* Git Patch 9ce10f8ba895c9d14a57df17910715bfd52b5257 from Maciej

git-svn-id: trunk@39376 -

packages/rtl-generics/tests/tests.generics.bugs.pas

@@ -38,6 +38,7 @@ type
   TTestBugs = class(TTestCase)
   published
     procedure Test_QuadraticProbing_InfinityLoop;
+    procedure Test_GetEqualityComparer;
   end;
 
 implementation
@@ -58,6 +59,11 @@ begin
   LMap.Free;
 end;
 
+procedure TTestBugs.Test_GetEqualityComparer;
+begin
+  TDelphiQuadrupleHashFactory.GetHashService.LookupEqualityComparer(TypeInfo(Integer), SizeOf(Integer));
+end;
+
 begin
   RegisterTest(TTestBugs);
 end.