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: var
    preamble: TBytes;
  begin
    FOutputStream := AOutputStream;
    FOwnsStream   := AOwnsStream;
  
  
negative.code:     FOutputStream : TStream;
      FOwnsStream   : boolean;
      FIndent       : integer;
      FFormatSettings : TFormatSettings;
    protected
      procedure Indent;
      procedure Outdent;
  