paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-11 14:10:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Git Patch 9ce10f8ba895c9d14a57df17910715bfd52b5257 from Maciej

Browse Source 
git-svn-id: trunk@39376 -
This commit is contained in:
michael 2018-07-04 07:24:02 +00:00
parent f1673275c7
commit 2f2a5d968b
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl-generics/tests/tests.generics.bugs.pas
View File

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