anchor.diff:                               DateToStr(dtNow),
                                  TimeToStr(dtNow)]));
   
  -   WriteXMLLine(Format('<application name="%s" />',[ExtractFileName(ParamStr(0))]));
  +   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);
  
positive.code: var
    unicodePreamble: TBytes;
    dtNow: TDateTime;
  begin
     //write the byte order mark
     unicodePreamble := TEncoding.UTF8.GetPreamble;
  
negative.code: 
  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 +
  