anchor.diff:    for fixtureRes in RunResults.FixtureResults do
     begin
       fixtureRes.Reduce;
  -    LogFixture(fixtureRes,0);
  +//    LogFixture(fixtureRes,0);
     end;
   
   
  
positive.code: 
    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),'');
  
    if RunResults.AllPassed then
      sResult := 'Success'
  
negative.code:     else
        sSuccess := '';
  
      WriteXMLLine(Format('<test-case name="%s" executed="%s" result="%s" %s time="%s" asserts="0" %s>',[testResult.Test.Name, sExecuted, sResult,sSuccess,sTime,sLineEnd]));
      if testResult.ResultType <> TTestResultType.Pass then
      begin
        Indent;
  