anchor.diff:  		    ConfigTime when is_integer(ConfigTime) ->
   			ConfigTime
   		end,
  -	    Dog = 
  -		case get(megaco_test_server) of
  -		    true ->
  -			spawn_link(?MODULE, watchdog, [self(), Time]);
  -		    _ ->
  -			test_server:timetrap(Time)
  -		end,
  +	    Dog = test_server:timetrap(Time),
   	    [{kill_timer, Dog}|Config]
   		    
   	    
       end.
   
   reset_kill_timer(Config) ->
  -    DogKiller = 
  -	case get(megaco_test_server) of
  -	    true ->
  -		fun(P) when is_pid(P) -> P ! stop;
  -		   (_) -> ok 
  -		end;
  -	    _ ->
  -		fun(Ref) -> test_server:timetrap_cancel(Ref) end
  -	end,
       case lists:keysearch(kill_timer, 1, Config) of
   	{value, {kill_timer, Dog}} ->
  -	    DogKiller(Dog), 
  +	    test_server:timetrap_cancel(Dog), 
   	    lists:keydelete(kill_timer, 1, Config);
   	_ ->
   	    Config
  -    end.
  -
  -watchdog(Pid, Time) ->
  -    _ = os:timestamp(),
  -    receive
  -	stop ->
  -	    ok
  -    after Time ->
  -	    case (catch process_info(Pid)) of
  -		undefined ->
  -		    ok;
  -		Info ->
  -		    ?LOG("<ERROR> Watchdog in test case timed out "
  -			"for ~p after ~p min"
  -			 "~n~p"
  -			 "~n",
  -		    [Pid, Time div (1000*60), Info]),
  -		    exit(Pid, kill)
  -	    end
       end.
   
   
  
positive.code: 	_ ->
  	    []
      end.
  
  default_config() ->
      [{nodes, default_nodes()}, {ts, megaco}].
  
  default_nodes() ->    
      mk_nodes(3, []).
  
  mk_nodes(N) when (N > 0) ->
      mk_nodes(N, []).
  
negative.code:     end.
  		      
      
  display_system_info(WhenStr) ->
      display_system_info(WhenStr, undefined, undefined).
  
  