anchor.diff:  			   %erlang:group_leader(Owner, self()),
   			   put('$ts$owner', Owner),
   			   case Test of
  +			       smp_unfix_fix -> erlang:throw(skipped);
   			       t_repair_continuation -> erlang:throw(skipped);
   			       evil_rename -> erlang:throw(skipped);
   			       _ ->
  
positive.code: 	{fail, Info} -> 
  %	    erlang:display(Info),
  	    io:format("~n*** ~p: ~nFailed with:~p ~n", [TestName,Info]),
  	    ok;
  
  	ok -> 
  	    io:format("~n*** ~p: Succeeded~n", [TestName]),
  	    ok
  	
      end.
  
  
  test_control_loop(PID, Ref) ->
  
negative.code: 
  %% @doc Run all tests in module Mod (i.e. `Mod ++ "_SUITE"' ).
  run(Mod) when is_atom(Mod) ->
      run(Mod,list(Mod)).
  
  %% @doc Run test `What' in module Mod (i.e. `Mod ++ "_SUITE"' ).
  run(Mod,What) ->
      {module, ModSuite} = compile_and_load(Mod),
      run(ModSuite,What,[]).
  
  run(ModSuite, What, Acc) when is_atom(ModSuite), is_atom(What) ->
      test_loop (ModSuite, [], [What], [], Acc);
  
  run(ModSuite,{Group,List},Acc) when is_atom(Group) ->
      run(ModSuite,List,Acc);
  
  run(_,[],Acc) -> Acc;
  
  run(ModSuite,[First|Next],Acc) ->
      Acc1 = run(ModSuite,First,Acc),
      run(ModSuite,Next,Acc1).
  
  test_loop(_ModSuite,_Sub,[], _Config, Acc) ->
      Acc;
  
  test_loop(ModSuite,Sub,[Test|Rest], Config, Acc) ->
      case catch ModSuite:Test(suite) of
  
  	[_|_]=L ->
  	    io:format("Running test category ~p~n", [lists:reverse([Test|Sub])]),
  	    Acc1 = test_loop(ModSuite,[Test|Sub],L,Config, Acc),
  	    test_loop(ModSuite,Sub,Rest,Config, Acc1);
  	    
  	_ ->
  	    TestResult = run_single_test(ModSuite,Test,Config),
  	    test_loop(ModSuite,Sub,Rest, Config, [TestResult|Acc])
  	
      end.
      
  