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:   CheckEquals(Count, Cnt, 'Count of iterated values doesn''t match');
  end;
  
  procedure TestTOld_StringHashTrie.TravMeth(UserData: Pointer; Key: PChar; Data: TObject; var Done: Boolean);
  var
    AValue : TObject;
  begin
  