anchor.diff:            Indent;
               WriteXMLLine('<message>');
               Indent;
  -              WriteXMLLine(Format('<![CDATA[ %s ]]>',[testResult.Message]));
  +              WriteXMLLine(Format('<![CDATA[ %s ]]>',[EscapeForXML(testResult.Message, False, True)]));
               Outdent;
               WriteXMLLine('</message>');
             Outdent;
  
positive.code: uses
    TypInfo;
  
  
  { TDUnitXXMLNUnitLogger }
  
  
negative.code:   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);
  