anchor.diff:      FOutputStream : TStream;
       FOwnsStream   : boolean;
       FIndent       : integer;
  +    FFormatSettings : TFormatSettings;
     protected
       procedure Indent;
       procedure Outdent;
  
positive.code:     procedure WriteFixtureResult(const fixtureResult : IFixtureResult);
      procedure WriteTestResult(const testResult : ITestResult);
  
  
    public
      constructor Create(const AOutputStream : TStream; const AOwnsStream : boolean = false);
      destructor Destroy;override;
  
negative.code: var
    preamble: TBytes;
  begin
    FFormatSettings := TFormatSettings.Create;
    FFormatSettings.ThousandSeparator := ',';
    FFormatSettings.DecimalSeparator := '.';
    FOutputStream := AOutputStream;
    FOwnsStream   := AOwnsStream;
  
  