anchor.diff:    sTime := Format('%.3f',[RunResults.Duration.TotalSeconds]);
     sDate := FormatDateTime('yyyy-MM-dd',RunResults.StartTime);
   
  +  WriteXMLLine('<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>');
     WriteXMLLine(Format('<test-results name="%s" total="%d" errors="%d" failures="%d" ignored="%d" inconclusive="0" not-run="%d" skipped="0" invalid="0" date="%s" time="%s">',
                         [sExeName,RunResults.TestCount,RunResults.ErrorCount,RunResults.FailureCount,RunResults.IgnoredCount,RunResults.IgnoredCount,sDate,sTime]));
     sExeName := ExtractFileName(sExeName);
  
positive.code: uses
    TypInfo;
  
  
  { TDUnitXXMLNUnitLogger }
  
  
negative.code:           Indent;
              WriteXMLLine('<message>');
              Indent;
                WriteXMLLine(Format('<![CDATA[ %s ]]>',[EscapeForXML(testResult.Message, False, True)]));
              Outdent;
              WriteXMLLine('</message>');
            Outdent;
  