anchor.diff:      TestCase = #testcase{name = Name, description = Desc,
   			 time = Time,output = Output},
       NewTestSuite = add_testcase_to_testsuite(Result, TestCase, TestSuite),
  -    St#state{testsuite=NewTestSuite}.
  +    St#state{testsuites=store_suite(NewTestSuite, TestSuites)}.
   
   %% Cancel group does not give information on the individual cancelled test case
   %% We ignore this event
  
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: %% 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
  