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