anchor.diff:    sLine := AXMLLine + NUNIT_LOGGER_CRLF;
     if FOutputStream <> nil then
     begin
  -    btUTF8Buffer := TEncoding.UTF8.GetBytes(AXMLLine);
  +    btUTF8Buffer := TEncoding.UTF8.GetBytes(sLine);
       FOutputStream.WriteBuffer(btUTF8Buffer[0],Length(btUTF8Buffer));
     end
     else
  
positive.code: 
  procedure TDUnitXXMLNUnitLogger.OnTestingEnds(const TestResults: ITestResults);
  begin
    WriteXMLLine('<statistics>' + NUNIT_LOGGER_CRLF +
                    Format('<stat name="tests" value="%d" />', [TestResults.Count]) + NUNIT_LOGGER_CRLF +
                    Format('<stat name="failures" value="%d" />', [TestResults.FailureCount]) + NUNIT_LOGGER_CRLF +
  
negative.code:                              DateToStr(dtNow),
                                 TimeToStr(dtNow)]));
  
     sExe := ExtractFileName(ParamStr(0));
  
  
     WriteXMLLine(Format('<application name="%s" />',[sExe]));
     WriteXMLLine(Format('<test-suite type="Assembly" name="%s" total="0" notrun="0">',[ChangeFileExt(sExe,'')]));
  
  
  end;
  
  procedure TDUnitXXMLNUnitLogger.OnTestSuccess(const threadId: Cardinal; const Success: ITestResult);
  