anchor.diff:  var
     preamble: TBytes;
   begin
  +  FFormatSettings := TFormatSettings.Create;
  +  FFormatSettings.ThousandSeparator := ',';
  +  FFormatSettings.DecimalSeparator := '.';
     FOutputStream := AOutputStream;
     FOwnsStream   := AOwnsStream;
   
  
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:     FOutputStream : TStream;
      FOwnsStream   : boolean;
      FIndent       : integer;
      FFormatSettings : TFormatSettings;
    protected
      procedure Indent;
      procedure Outdent;
  