anchor.diff:    Arc: TAbZipArchive;
     Stream: TStream;
   begin
  -  Arc := TAbZipArchive.Create(Zip64Dir + 'Zeros.zip', fmOpenRead);
  -  try
  -    Arc.Load;
  -    Stream := TAbBitBucketStream.Create(32768);
  -    try
  -      Arc.ExtractToStream('0000', Stream);
  -      CheckEquals(5368709120, Stream.Size);
  -    finally
  -      Stream.Free;
  -    end;
  -  finally
  -    Arc.Free;
  -  end;
  +  Arc := TAbZipArchive.Create(Zip64Dir + 'Zeros.zip', fmOpenRead);
  +  try
  +    Arc.Load;
  +    Stream := TAbBitBucketStream.Create(32768);
  +    try
  +      Arc.ExtractToStream('0000', Stream);
  +      CheckEquals(5368709120, Stream.Size);
  +    finally
  +      Stream.Free;
  +    end;
  +  finally
  +    Arc.Free;
  +  end;
   end;
   {----------------------------------------------------------------------------}
   function TAbZip64Tests.Zip64Dir: string;
   begin
  -  Result := TestFileDir + 'Zip64' + PathDelim;
  +  Result := TestFileDir + 'Zip64' + PathDelim;
   end;
   {----------------------------------------------------------------------------}
   
  
positive.code: var
    Arc: TAbZipArchive;
  begin
    Arc := TAbZipArchive.Create(Zip64Dir + 'Zeros.zip', fmOpenRead);
    try
      Arc.Load;
      CheckEquals(5368709120, Arc.Items[0].UncompressedSize);
    finally
      Arc.Free;
    end;
  end;
  {----------------------------------------------------------------------------}
  procedure TAbZip64Tests.TestExtractLargeUncompressedSize;
  
negative.code: var
    Arc: TAbZipArchive;
  begin
    Arc := TAbZipArchive.Create(MPLDir + 'MPL.zip', fmOpenRead);
    try
      Arc.Load;
      Arc.TestItemAt(0);
      Check(True);
    finally
      Arc.Free;
    end;
  end;
  { -------------------------------------------------------------------------- }
  procedure TAbZipArchiveTests.TestTestItemAtCorrupt;
  var
    Arc: TAbZipArchive;
  begin
    Arc := TAbZipArchive.Create(TestFileDir + 'CorruptMPL.zip', fmOpenRead);
    try
      Arc.Load;
      try
        Arc.TestItemAt(0);
      except
        on E: Exception do
          Check((E is EAbZipBadCRC) or (E is EAbZipInvalidLFH));
      end;
    finally
      Arc.Free;
    end;
  end;
  
  
  