anchor.diff:    Indent;
     for fixtureRes in RunResults.FixtureResults do
       WriteFixtureResult(fixtureRes);
  -
     Outdent;
     WriteXMLLine('</results>');
     Outdent;
  
positive.code: 
      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:
          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;
          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;
        end;
  
        Outdent;
        WriteXMLLine('</test-case>');
      end;
  
    finally
      Outdent;
  
negative.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]));
          WriteCategoryNodes(fixtureResult.Fixture.Categories);
            Indent;
            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
  