anchor.diff:  
   procedure TDUnitXXMLNUnitLogger.OnTestingEnds(const TestResults: ITestResults);
   begin
  +  WriteXMLLine('</test-suite>');
     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 +
  
positive.code:   sLine := AXMLLine + NUNIT_LOGGER_CRLF;
    if FOutputStream <> nil then
    begin
      btUTF8Buffer := TEncoding.UTF8.GetBytes(AXMLLine);
      FOutputStream.WriteBuffer(btUTF8Buffer[0],Length(btUTF8Buffer));
    end
    else
  
negative.code: var
    unicodePreamble: TBytes;
    dtNow: TDateTime;
    sExe : string;
  begin
     //write the byte order mark
     unicodePreamble := TEncoding.UTF8.GetPreamble;
  