anchor.diff:  %%%-----------------------------------------------------------------
   %%% @spec run(TestDir,Suite) -> Result
   %%%
  -%%% @doc Run all testcases in the given suite.
  +%%% @doc Run all test cases in the given suite.
   %%% @see run/3.
   run(TestDir,Suite) ->
       ct_run:run(TestDir,Suite).
  
positive.code: %%%      Format = string()
  %%%      Args = list()
  %%%
  %%% @doc Printout from a testcase to the log. 
  %%%
  %%% <p>This function is meant for printing stuff directly from a
  %%% testcase (i.e. not from within the CT framework) in the test
  %%% log.</p>
  %%%
  %%% <p>Default <code>Category</code> is <code>default</code> and
  %%% default <code>Args</code> is <code>[]</code>.</p>
  
negative.code: %%% @spec comment(Comment) -> void()
  %%%      Comment = term()
  %%%
  %%% @doc Print the given <code>Comment</code> in the comment field in
  %%% the table on the test suite result page.
  %%%
  %%% <p>If called several times, only the last comment is printed.
  %%% The test case return value <code>{comment,Comment}</code>
  %%% overwrites the string set by this function.</p>
  comment(Comment) when is_list(Comment) ->
      Formatted =
  	case (catch io_lib:format("~s",[Comment])) of
  