anchor.diff:        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>');
  +        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
  
positive.code:   //TODO: Populate these properly.
    WriteXMLLine('<environment nunit-version="DUnitX" clr-version="2.0.0.0" os-version="6.1.0.0" platform="Windows" cwd="c:\test" machine-name="mymachine" user="vincent" user-domain="finalbuilder.com"  />');
    WriteXMLLine('<culture-info current-culture="en" current-uiculture="en" />');
    Outdent;
  
    Indent;
    WriteXMLLine(Format('<test-suite type="Assembly" name="%s" executed="true" result="%s" success="%s" time="%s" asserts="0">',[sExeName,sResult,BoolToStr(RunResults.AllPassed,true),sTime]));
    Indent;
    WriteXMLLine('<results>');
  
negative.code:   Indent;
    for fixtureRes in RunResults.FixtureResults do
      WriteFixtureResult(fixtureRes);
    Outdent;
    WriteXMLLine('</results>');
    Outdent;
  