anchor.diff:      procedure Execute;
     end;
   
  -  TAbArchiveComrpessEmptyFoldersTest = class(TAbArchiveTestCase)
  +  TAbArchiveCompressEmptyFoldersTest = class(TAbArchiveTestCase)
     published
       procedure Execute;
     end;
  
positive.code:     Result.AddTest(
        TAbArchiveDecompressEmptyFoldersTest.Create(Self, 'Decompress Empty Folders'));
      Result.AddTest(
        TAbArchiveComrpessEmptyFoldersTest.Create(Self, 'Compress Empty Folders'));
    end;
    AddCanterburyTests(Result);
    Result.AddTest(TAbArchiveCompressTest.Create(Self, 'Compress Unicode',
  
negative.code: end;
  
  {----------------------------------------------------------------------------}
  { TAbArchiveCompressEmptyFoldersTest }
  {----------------------------------------------------------------------------}
  procedure TAbArchiveCompressEmptyFoldersTest.Execute;
  var
    Arc: TAbArchive;
    Filename: string;
  