anchor.diff:      procedure WriteFixtureResult(const fixtureResult : IFixtureResult);
       procedure WriteTestResult(const testResult : ITestResult);
   
  -
  +    function Format(const Format: string; const Args: array of const): String;
     public
       constructor Create(const AOutputStream : TStream; const AOwnsStream : boolean = false);
       destructor Destroy;override;
  
positive.code:   if FOwnsStream then
      FOutputStream.Free;
    inherited;
  end;
  
  procedure TDUnitXXMLNUnitLogger.Indent;
  
negative.code: var
    preamble: TBytes;
  begin
    FFormatSettings := TFormatSettings.Create;
    FFormatSettings.ThousandSeparator := ',';
    FFormatSettings.DecimalSeparator := '.';
    FOutputStream := AOutputStream;
    FOwnsStream   := AOwnsStream;
  
  