anchor.diff:        WriteXMLLine(Format('<test-suite type="Namespace" name="%s" executed="true" result="%s" success="%s" time="%s" asserts="0" %s>',[fixtureResult.Fixture.Name, sResult,BoolToStr(not fixtureResult.HasFailures,true),sTime,sLineEnd]));
         if fixtureResult.ChildCount > 0 then
         begin
  +        Indent;
           WriteXMLLine('<results>');
  +        Indent;
           for child in fixtureResult.Children do
           begin
               WriteFixtureResult(child);
           end;
  +        Outdent;
           WriteXMLLine('</results>');
  +        Outdent;
           WriteXMLLine('</test-suite>');
         end;
       end;
  
positive.code:   for fixtureRes in RunResults.FixtureResults do
    begin
      fixtureRes.Reduce;
      LogFixture(fixtureRes,0);
    end;
  
  
  
negative.code: 
  procedure TDUnitXXMLNUnitLogger.Indent;
  begin
    Inc(FIndent,2);
  end;
  
  procedure TDUnitXXMLNUnitLogger.OnTestingEnds(const RunResults: IRunResults);
  