anchor.diff:  
   initialization
     // Register any test cases with the test runner
  -  RegisterTest(TestTStringHashTrie.Suite);
  +  RegisterTest(TestTOld_StringHashTrie.Suite);
   end.
   
  
positive.code: 
  implementation
  
  procedure TestTStringHashTrie.SetUp;
  begin
    FStringHashTrie := TStringHashTrie.Create;
  end;
  
  procedure TestTStringHashTrie.TearDown;
  begin
    FStringHashTrie.Free;
    FStringHashTrie := nil;
  end;
  
  procedure TestTStringHashTrie.TestAddIterateAndFindManyEntries;
  const
    Count = 1024 * 1024;
  var
  
negative.code: interface
  
  uses
    TestFramework, SysUtils, Old_HashTrie;
  
  type
    // Test methods for class TStringHashTrie
    
    TestTOld_StringHashTrie = class(TTestCase)
    private
      FStringHashTrie: TStringHashTrie;
      Cnt : Integer;
  