anchor.diff:  	{fail, Info} -> 
   %	    erlang:display(Info),
   	    io:format("~n*** ~p: ~nFailed with:~p ~n", [TestName,Info]),
  -	    ok;
  +	    {failure, {ModSuite,Test}, Info};
   
   	ok -> 
   	    io:format("~n*** ~p: Succeeded~n", [TestName]),
  -	    ok
  +	    {success, {ModSuite,Test}}
   	
       end.
  +
  +count(Result) ->
  +    {Succes,Failure} = 
  +	lists:foldl(fun({success, _},{S,F}) -> 
  +			    {S+1,F}; 
  +		       ({failure, _, _},{S,F}) -> 
  +			    {S,F+1} end, 
  +		    {0,0}, 
  +		    Result),
  +    io:format("Run completed with ~p successes, and ~p failures; total = ~p%~n", 
  +	      [Succes, Failure, ((100*Succes) div (Succes+Failure))]).
   
   
   test_control_loop(PID, Ref) ->
  
positive.code: 
  %% @doc Run all tests in module Mod (i.e. `Mod ++ "_SUITE"' ).
  run(Mod) when is_atom(Mod) ->
      run(Mod,all).
  
  %% @doc Run test `What' in module Mod (i.e. `Mod ++ "_SUITE"' ).
  run(Mod, What) when is_atom(Mod), is_atom(What) ->
      {module, ModSuite} = compile_and_load(Mod),
      run (ModSuite, [], [What], []);
  
  run(Mod,{Group,List}) when is_atom(Group) ->
      run(Mod,List);
  
  run(Mod,What) when is_list(What) ->
      [ run(Mod,E) || E <- What ].
  
  
  run(_ModSuite,_Sub,[], _Config) ->
      done;
  
  run(ModSuite,Sub,[Test|Rest], Config) ->
      case catch ModSuite:Test(suite) of
  
  	[_|_]=L ->
  	    io:format("Running test category ~p~n", [lists:reverse([Test|Sub])]),
  	    run(ModSuite,[Test|Sub],L,Config),
  	    run(ModSuite,Sub,Rest,Config);
  	    
  	_ ->
  	    run_single_test(ModSuite,Test,Config),
  	    run(ModSuite,Sub,Rest, Config)
  	
      end.
      
  
negative.code: 			   %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);
  			       _ ->
  