anchor.diff:  %%% Test cases
   %%%
   connect_session(_Config) ->
  -	{ok, Bus} = dbus_bus_connection:connect(session),
  +    {ok, Bus} = dbus_bus_connection:connect(session),
       ?assertMatch(ok, dbus_bus_connection:close(Bus)).
   
   connect_system(_Config) ->
  
positive.code:     ?assertMatch(ok, dbus_bus_connection:close(Bus)).
  
  connect_service(Config) ->
  	?assertEqual(["/tmp/dbus-test"], filelib:wildcard("/tmp/dbus-test")),
      {ok, Service} = dbus_proxy:start_link(?config(bus, Config), ?SERVICE),
      ?assert(is_pid(Service)),
      ok.
  
negative.code:     filename:join([DataDir, Path]).
  
  start_dbus(Config, {DBusConfig, DBusEnv}) ->
      File = get_data_path(DBusConfig, Config),
      Port = start_cmd("dbus-daemon --config-file=" ++ File),
      os:putenv("DBUS_SESSION_BUS_ADDRESS", DBusEnv),
      [ {dbus, Port}, {dbus_env, DBusEnv} | Config ].
  
  stop_dbus(Config) ->
      stop_cmd(?config(dbus, Config)),
      proplists:delete(dbus_env, 
  		     proplists:delete(dbus, Config)).
  
  
  start_cmd(Cmd) ->
      spawn(?MODULE, init_cmd, [Cmd]).
  
  init_cmd(Cmd) ->
      Port = erlang:open_port({spawn, Cmd}, [exit_status]),
      loop(Port, Cmd).
  
  
  loop(Port, Cmd) ->
      receive
  	{Port, {exit_status, Status}} ->
  	    throw({command_error, {Cmd, Status}});
  	{command, exit} ->
  	    {os_pid, Pid} = erlang:port_info(Port, os_pid),
  	    erlang:port_close(Port),
  	    os:cmd(io_lib:format("kill -9 ~p", [Pid]));
  	{command, From, pid} ->
  	    {os_pid, Pid} = erlang:port_info(Port, os_pid),
  	    From ! {self(), Pid},
  	    loop(Port, Cmd);
  	_ ->
  	    loop(Port, Cmd)
      end.
  
  
  stop_cmd(Pid) ->
      Pid ! {command, exit}.
  