anchor.diff:  		      NUsrSkip, NAutoSkip, 
   		      NActualSkip, NActualFail, NActualSucc, Config) ->
   
  -    ct:log("See test case log files under:~n~p~n",
  +    ct:log("<a href=\"file://~s\">Test case log files</a>\n",
   	   [filename:join([proplists:get_value(priv_dir, Config),
   			   SuiteName++".logs"])]),
   
  
positive.code: 			     {S,F,Su+1};
  			(#tc{ result = failed },{S,F,Su}) ->
  			     {S,F+1,Su}
  			  end,{0,0,0},Cases),
      Data.
  
  until(Fun) ->
      case Fun() of
  
negative.code:     
      rpc:call(Node,test_server_ctrl, stop, []),
  
      {ok,Data} =	test_server_test_lib:parse_suite(
  		  hd(filelib:wildcard(
  		       filename:join([proplists:get_value(priv_dir, Config), 
  				      SuiteName++".logs","run*","suite.log"])))),
      check([{"Number of cases",NCases,Data#suite.n_cases},
  	   {"Number failed",NFail,Data#suite.n_cases_failed},
  	   {"Number expected",NExpected,Data#suite.n_cases_expected},
  	   {"Number successful",NSucc,Data#suite.n_cases_succ},
  	   {"Number user skipped",NUsrSkip,Data#suite.n_cases_user_skip},
  	   {"Number auto skipped",NAutoSkip,Data#suite.n_cases_auto_skip}], ok),
      {NActualSkip,NActualFail,NActualSucc} = 
  	lists:foldl(fun(#tc{ result = skip },{S,F,Su}) ->
  			     {S+1,F,Su};
  