anchor.diff:  procedure TIntegerHashTrieTest.TestIterate32;
   var
     Key : Cardinal;
  -  Key32 : Word;
  +  Key16 : Word;
     Value : pointer;
     It : THashTrieIterator;
   begin
  
positive.code:   Check(Value = Pointer(Self), 'Value returned from Next should be Self');
    Check(not FIntHashTrie.Next(It, Key, Value), 'Second call to Next should return False');
    FIntHashTrie.InitIterator(It);
    ExpectedException := EIntegerHashTrie;
    FIntHashTrie.Next(It, Key32, Value);
  end;
  
  procedure TIntegerHashTrieTest.TestIterate16;
  
negative.code:   Check(Value = Pointer(Self), 'Value returned from Next should be Self');
    Check(not FIntHashTrie.Next(It, Key, Value), 'Second call to Next should return False');
    FIntHashTrie.InitIterator(It);
    {$IFNDEF FPC}
    ExpectedException := EIntegerHashTrie;
    FIntHashTrie.Next(It, Key32, Value);
    {$ELSE}
    try
      FIntHashTrie.Next(It, Key32, Value);
      Fail('Expected exception');
    except
      on EIntegerHashTrie do {};
    end;
    {$ENDIF}
  end;
  
  initialization
  