anchor.diff:  var
     Arc: TAbZipArchive;
   begin
  -  Arc := TAbZipArchive.Create(MPLDir + 'MPL.zip', fmOpenRead);
  -  try
  -    Arc.Load;
  -    Arc.TestItemAt(0);
  -    Check(True);
  -  finally
  -    Arc.Free;
  -  end;
  +  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;
  +  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;
   
   
  
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: {----------------------------------------------------------------------------}
  procedure TAbZipArchive.DoTestHelper(Sender : TObject; Item : TAbArchiveItem);
  begin
    AbTestZipItem(Sender, TAbZipItem(Item));
  end;
  
  {----------------------------------------------------------------------------}
  