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: all() ->
      [
       {group, connect_tcp_anonymous}
  	,{group, connect_unix_anonymous}
  	,{group, connect_unix_external}
      ,{group, service}
      ].
  
  
  groups() ->
      [
  	 {connect_tcp_anonymous, [], [ connect_session ]}
  	,{connect_unix_anonymous, [], [ connect_session ]}
  	,{connect_unix_external, [], [ connect_session ]}
      ,{service, [], [
  					connect_service
  				   ,walk_node
  				   ,interface
  				   ,call_method
  				   ,signal_all
  				   ,signal
  				   ]}
      ].
  
  
  init_per_group(connect_tcp_anonymous, Config) ->
  	start_dbus(Config, ?dbus_session_tcp_anonymous);
  init_per_group(connect_unix_anonymous, Config) ->
  	start_dbus(Config, ?dbus_session_unix_anonymous);
  init_per_group(connect_unix_external, Config) ->
  	start_dbus(Config, ?dbus_session_unix_external);
  init_per_group(_Name, Config) ->
  	Config0 = start_dbus(Config, ?dbus_session_unix_external),
  	ServicePath = get_data_path(?SCRIPT, Config0),
      ServicePid = start_cmd(ServicePath),
  	timer:sleep(1000),
      [ {service_port, ServicePid}, {connect, true} | Config0 ].
  
  
  end_per_group(Group, Config) 
    when Group =:= connect_tcp_anonymous;
  	   Group =:= connect_unix_anonymous;
  	   Group =:= connect_unix_external ->
      stop_dbus(Config),
  	{return_group_result, ok};
  end_per_group(_Name, Config) ->
  	stop_cmd(?config(service_port, Config)),
  	stop_dbus(Config),
  	{return_group_result, ok}.
  
  
  init_per_testcase(_, Config) ->
  
negative.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.
  