anchor.diff:  
       WriteXMLLine(Format('<test-case name="%s" executed="%s" result="%s" %s time="%s" asserts="0" %s>', [sName, sExecuted, sResult, sSuccess, sTime, sLineEnd]));
       WriteCategoryNodes(testResult.Test.Categories);
  -
  -    if testResult.ResultType <> TTestResultType.Pass then
  -    begin
  -      Indent;
  -      case testResult.ResultType of
  -        TTestResultType.MemoryLeak,
  -        TTestResultType.Failure,
  -        TTestResultType.Error:
  +    case testResult.ResultType of
  +      TTestResultType.MemoryLeak,
  +      TTestResultType.Failure,
  +      TTestResultType.Error:
  +      begin
  +        Indent;
  +        WriteXMLLine('<failure>');
  +        Indent;
  +          WriteXMLLine('<message>');
  +          Indent;
  +            WriteXMLLine(Format('<![CDATA[ %s ]]>',[EscapeForXML(testResult.Message, False, True)]));
  +          Outdent;
  +          WriteXMLLine('</message>');
  +        Outdent;
  +        Indent;
  +          WriteXMLLine('<stack-trace>');
  +          Indent;
  +            WriteXMLLine(Format('<![CDATA[ %s ]]>',[EscapeForXML(testResult.StackTrace, False, True)]));
  +          Outdent;
  +          WriteXMLLine('</stack-trace>');
  +        Outdent;
  +        WriteXMLLine('</failure>');
  +      end;
  +      TTestResultType.Ignored:
  +      begin
  +        Indent;
  +        WriteXMLLine('<reason>');
  +        Indent;
  +          WriteXMLLine('<message>');
  +          Indent;
  +            WriteXMLLine(Format('<![CDATA[ %s ]]>',[EscapeForXML(testResult.Message, False, True)]));
  +          Outdent;
  +          WriteXMLLine('</message>');
  +        Outdent;
  +        WriteXMLLine('</reason>');
  +      end;
  +      TTestResultType.Pass :
  +      begin
  +        if testResult.Test.Categories.Count = 0 then
           begin
  -          Indent;
  -          WriteXMLLine('<failure>');
  -          Indent;
  -            WriteXMLLine('<message>');
  -            Indent;
  -              WriteXMLLine(Format('<![CDATA[ %s ]]>',[EscapeForXML(testResult.Message, False, True)]));
  -            Outdent;
  -            WriteXMLLine('</message>');
  -          Outdent;
  -          Indent;
  -            WriteXMLLine('<stack-trace>');
  -            Indent;
  -              WriteXMLLine(Format('<![CDATA[ %s ]]>',[EscapeForXML(testResult.StackTrace, False, True)]));
  -            Outdent;
  -            WriteXMLLine('</stack-trace>');
  -          Outdent;
  -          WriteXMLLine('</failure>');
  -          Outdent;
  +          exit;
           end;
  -        TTestResultType.Ignored:
  -        begin
  -          Indent;
  -          WriteXMLLine('<reason>');
  -          Indent;
  -            WriteXMLLine('<message>');
  -            Indent;
  -              WriteXMLLine(Format('<![CDATA[ %s ]]>',[EscapeForXML(testResult.Message, False, True)]));
  -            Outdent;
  -            WriteXMLLine('</message>');
  -          Outdent;
  -          WriteXMLLine('</reason>');
  -          Outdent;
  -        end;
  +        Indent;
         end;
  -
  -      Outdent;
  -      WriteXMLLine('</test-case>');
       end;
  +    Outdent;
  +    WriteXMLLine('</test-case>');
   
     finally
       Outdent;
  
positive.code:       sExecuted := EscapeForXML(sExecuted);
  
        WriteXMLLine(Format('<test-suite type="Fixture" name="%s" executed="%s" result="%s" success="%s" time="%s" >',[sName, sExecuted, sResult, sSuccess, sTime]));
        Indent;
  
        WriteCategoryNodes(fixtureResult.Fixture.Categories);
  
        WriteXMLLine('<results>');
        for testResult in fixtureResult.TestResults do
        begin
          WriteTestResult(testResult);
        end;
  
        for child in fixtureResult.Children do
        begin
          WriteFixtureResult(child);
        end;
  
        WriteXMLLine('</results>');
        Outdent;
        WriteXMLLine('</test-suite>');
      end
      else
      begin
  
negative.code:   Indent;
    for fixtureRes in RunResults.FixtureResults do
      WriteFixtureResult(fixtureRes);
    Outdent;
    WriteXMLLine('</results>');
    Outdent;
  