anchor.diff:  %% Write a report to the XML directory.
   %% This function opens the report file, calls write_report_to/2 and closes the file.
   %% ----------------------------------------------------------------------------
  +write_reports(TestSuites, XmlDir) ->
  +    lists:foreach(fun(TestSuite) -> write_report(TestSuite, XmlDir) end,
  +                  TestSuites).
  +
   write_report(#testsuite{name = Name} = TestSuite, XmlDir) ->
       Filename = filename:join(XmlDir, lists:flatten(["TEST-", escape_suitename(Name)], ".xml")),
       case file:open(Filename, [write, raw]) of
  
positive.code:     NewTestSuite = TestSuite#testsuite{
  		     skipped = TestSuite#testsuite.skipped+1,
  		     testcases=[TestCase|TestSuite#testsuite.testcases] },
      St#state{testsuite=NewTestSuite}.
  
  format_name({Module, Function, Arity}, Line) ->
      lists:flatten([atom_to_list(Module), ":", atom_to_list(Function), "/",
  
negative.code: 	 }).
  -record(testsuite,
  	{
            id = 0 :: integer(),
  	  name = <<>> :: binary(),
  	  time = 0 :: integer(),
  	  output = <<>> :: binary(),
  