anchor.diff:    //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>');
  
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: var
    sCategory: string;
  begin
    if ACategoryList.Count > 0 then
    begin
      Indent;
      WriteXMLLine('<categories>');
      Indent;
      for sCategory in ACategoryList do
        WriteXMLLine(Format('<category name="%s" />', [sCategory]));
      Outdent;
      WriteXMLLine('</categories>');
      Outdent;
    end;
  end;
  
  