anchor.diff:        OutStream : TStream);
       procedure DoInsertFromStreamHelper(Sender : TObject; Item : TAbArchiveItem;
         OutStream, InStream : TStream);
  +    procedure DoTestHelper(Sender : TObject; Item : TAbArchiveItem);
     public {methods}
       constructor CreateFromStream( aStream : TStream; const ArchiveName : string );
         override;
  
positive.code: implementation
  
  uses
    SysUtils, AbConst, AbUnzPrc, AbZipPrc;
  
  {----------------------------------------------------------------------------}
  { TAbZipArchive with Extract/Insert helpers }
  
negative.code: 
    public
      class function Suite: ITestSuite; override;
  
    published
      procedure TestTestItemAt;
      procedure TestTestItemAtCorrupt;
    end;
  
    TAbZipDecompressTest = class(TAbArchiveDecompressTest)
  