anchor.diff:  
   init_per_testcase(_, Config) ->
       case ?config(connect, Config) of
  -	true ->
  -	    {ok, Bus} = dbus_bus_connection:connect(session),
  -	    [ {bus, Bus} | Config ];
  -	_ -> Config
  +        true ->
  +            {ok, Bus} = dbus_bus_connection:connect(session),
  +            [ {bus, Bus} | Config ];
  +        _ -> Config
       end.
   
   end_per_testcase(_, Config) ->
       case ?config(connect, Config) of
  -	true -> dbus_connection:close(?config(bus, Config));
  -	_ -> ok
  +        true -> dbus_connection:close(?config(bus, Config));
  +        _ -> ok
       end,
       ok.
   
  
positive.code: %%% CT callbacks
  %%%
  -export([suite/0,
  	 init_per_suite/1,
  	 end_per_suite/1,
  	 all/0,
  	 groups/0,
  	 init_per_group/2,
  	 end_per_group/2,
  	 init_per_testcase/2,
  	 end_per_testcase/2]).
  
  %%%
  %%% Test cases
  %%%
  -export([
  	 connect_system/1,
  	 connect_session/1,
  	 connect_service/1,
  	 walk_node/1,
  	 interface/1,
  	 call_method/1,
  	 signal_all/1,
  	 signal/1
  	]).
  
  suite() ->
      [{timetrap,{seconds,30}}].
  
negative.code:     [
       {connect, [parallel, {repeat, 5}], [ connect_system, connect_session ]}
      ,{service, [parallel, {repeat, 1}], [
                                           connect_service
                                          ,walk_node
                                          ,interface
                                          ,call_method
                                          ,signal_all
                                          ,signal
                                          ]}
      ].
  
  
  