anchor.diff:  interface
   
   uses
  -  TestFramework, StringHashTrie, SysUtils, HashTrie;
  +  TestFramework, SysUtils, Old_HashTrie;
   
   type
     // Test methods for class TStringHashTrie
     
  -  TestTStringHashTrie = class(TTestCase)
  +  TestTOld_StringHashTrie = class(TTestCase)
     private
       FStringHashTrie: TStringHashTrie;
       Cnt : Integer;
  
positive.code:   CheckEquals(Count, Cnt, 'Count of iterated values doesn''t match');
  end;
  
  procedure TestTStringHashTrie.TravMeth(UserData: Pointer; Key: PChar; Data: TObject; var Done: Boolean);
  var
    AValue : TObject;
  begin
  
negative.code: 
  implementation
  
  procedure TestTOld_StringHashTrie.SetUp;
  begin
    FStringHashTrie := TStringHashTrie.Create;
  end;
  
  procedure TestTOld_StringHashTrie.TearDown;
  begin
    FStringHashTrie.Free;
    FStringHashTrie := nil;
  end;
  
  procedure TestTOld_StringHashTrie.TestAddIterateAndFindManyEntries;
  const
    Count = 1024 * 1024;
  var
  