anchor.diff:  
     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 := ChangeFileExt(ExtractFileName(sExeName),'');
  +  sExeName := ExtractFileName(sExeName);
   
     if RunResults.AllPassed then
       sResult := 'Success'
  
positive.code: 
  procedure TDUnitXXMLNUnitLogger.Outdent;
  begin
    Dec(FIndent,1);
  end;
  
  procedure TDUnitXXMLNUnitLogger.WriteFixtureResult(const fixtureResult: IFixtureResult);
  
negative.code: 
  procedure TDUnitXXMLNUnitLogger.Indent;
  begin
    Inc(FIndent,2);
  end;
  
  procedure TDUnitXXMLNUnitLogger.OnTestingEnds(const RunResults: IRunResults);
  