1
0
mirror of synced 2024-12-23 01:33:08 +01:00
x2utils/UnitTests/Units/HashesTest.pas

555 lines
20 KiB
ObjectPascal
Raw Normal View History

unit HashesTest;
{$I X2UtCompilerVersion.inc}
interface
uses
TestFramework,
X2UtHashes,
X2UtHashesVariants;
type
THashesTest = class(TTestCase)
private
FHash: TX2CustomHash;
protected
procedure TearDown; override;
procedure FillTestItems; virtual; abstract;
published
procedure testSet; virtual; abstract;
procedure testGet; virtual; abstract;
procedure testClear;
procedure testDelete; virtual; abstract;
procedure testIterate; virtual; abstract;
procedure testEnumerator; virtual; abstract;
end;
// Two test cases involving all value managers.
// This should be sufficient for a realistic scenario.
THashesSITest = class(THashesTest)
private
function GetHash: TX2SIHash;
property Hash: TX2SIHash read GetHash;
protected
procedure SetUp; override;
procedure FillTestItems; override;
published
procedure testSet; override;
procedure testGet; override;
procedure testDelete; override;
procedure testIterate; override;
2013-02-15 12:28:24 +01:00
procedure testIterateEmpty;
procedure testEnumerator; override;
end;
THashesPOTest = class(THashesTest)
private
function GetHash: TX2POHash;
property Hash: TX2POHash read GetHash;
protected
procedure SetUp; override;
procedure FillTestItems; override;
published
procedure testSet; override;
procedure testGet; override;
procedure testDelete; override;
procedure testIterate; override;
procedure testEnumerator; override;
end;
THashesVariantTest = class(THashesTest)
private
function GetHash: TX2SVHash;
property Hash: TX2SVHash read GetHash;
protected
procedure SetUp; override;
procedure FillTestItems; override;
published
procedure testSet; override;
procedure testGet; override;
procedure testDelete; override;
procedure testIterate; override;
procedure testEnumerator; override;
end;
THashesBugTest = class(TTestCase)
published
procedure testAccessViolation;
end;
implementation
uses
SysUtils;
type
TObject0 = class(TObject);
TObject1 = class(TObject);
TObject2 = class(TObject);
{ THashesTest }
procedure THashesTest.TearDown;
begin
FreeAndNil(FHash);
inherited;
end;
procedure THashesTest.testClear;
begin
FillTestItems;
FHash.Clear;
CheckEquals(0, FHash.Count);
end;
{ THashesSITest }
procedure THashesSITest.SetUp;
begin
inherited;
FHash := TX2SIHash.Create;
end;
procedure THashesSITest.FillTestItems;
begin
Hash['Key1'] := 1;
Hash['Key2'] := 2;
Hash['Key3'] := 3;
end;
procedure THashesSITest.testSet;
begin
FillTestItems;
CheckEquals(3, Hash.Count);
end;
procedure THashesSITest.testGet;
begin
FillTestItems;
CheckEquals(1, Hash['Key1']);
CheckEquals(2, Hash['Key2']);
CheckEquals(3, Hash['Key3']);
end;
procedure THashesSITest.testDelete;
begin
FillTestItems;
Hash.Delete('Key2');
CheckEquals(2, Hash.Count);
CheckTrue(Hash.Exists('Key1'), 'Key1 does not exist!');
CheckFalse(Hash.Exists('Key2'), 'Key2 still exists!');
CheckTrue(Hash.Exists('Key3'), 'Key3 does not exist!');
end;
procedure THashesSITest.testEnumerator;
var
aPresent: array[1..3] of Boolean;
sKey: String;
begin
{$IFDEF D2006PLUS}
FillTestItems;
FillChar(aPresent, SizeOf(aPresent), #0);
for sKey in Hash do
begin
if sKey = 'Key1' then
aPresent[1] := True
else if sKey = 'Key2' then
aPresent[2] := True
else if sKey = 'Key3' then
aPresent[3] := True;
end;
CheckTrue(aPresent[1], 'Key1 was not in the enumeration!');
CheckTrue(aPresent[2], 'Key2 was not in the enumeration!');
CheckTrue(aPresent[3], 'Key3 was not in the enumeration!');
{$ENDIF}
{ Not supported yet, maybe in the future.
FillChar(aPresent, SizeOf(aPresent), #0);
for iValue in Hash.Values do
aPresent[iValue] := True;
CheckTrue(aPresent[1], 'Value of Key1 was not in the enumeration!');
CheckTrue(aPresent[2], 'Value of Key2 was not in the enumeration!');
CheckTrue(aPresent[3], 'Value of Key3 was not in the enumeration!');
}
end;
procedure THashesSITest.testIterate;
var
aPresent: array[1..3] of Boolean;
begin
FillTestItems;
FillChar(aPresent, SizeOf(aPresent), #0);
Hash.First;
while Hash.Next do
if ((Hash.CurrentKey = 'Key1') and (Hash.CurrentValue = 1)) or
((Hash.CurrentKey = 'Key2') and (Hash.CurrentValue = 2)) or
((Hash.CurrentKey = 'Key3') and (Hash.CurrentValue = 3)) then
aPresent[Hash.CurrentValue] := True;
CheckTrue(aPresent[1], 'Key1 was not in the iteration!');
CheckTrue(aPresent[2], 'Key2 was not in the iteration!');
CheckTrue(aPresent[3], 'Key3 was not in the iteration!');
end;
2013-02-15 12:28:24 +01:00
procedure THashesSITest.testIterateEmpty;
begin
Hash.First;
CheckFalse(Hash.Next, 'Next');
end;
function THashesSITest.GetHash: TX2SIHash;
begin
Result := TX2SIHash(FHash);
end;
{ THashesPOTest }
procedure THashesPOTest.SetUp;
begin
inherited;
FHash := TX2POHash.Create(True);
end;
procedure THashesPOTest.FillTestItems;
begin
Hash[Pointer(0)] := TObject0.Create;
Hash[Pointer(1)] := TObject1.Create;
Hash[Pointer(2)] := TObject2.Create;
end;
procedure THashesPOTest.testSet;
begin
FillTestItems;
CheckEquals(3, Hash.Count);
end;
procedure THashesPOTest.testGet;
begin
FillTestItems;
CheckTrue(Hash[Pointer(0)] is TObject0);
CheckTrue(Hash[Pointer(1)] is TObject1);
CheckTrue(Hash[Pointer(2)] is TObject2);
end;
procedure THashesPOTest.testDelete;
begin
FillTestItems;
Hash.Delete(Pointer(1));
CheckEquals(2, Hash.Count);
CheckTrue(Hash.Exists(Pointer(0)), 'Key1 does not exist!');
CheckFalse(Hash.Exists(Pointer(1)), 'Key2 still exists!');
CheckTrue(Hash.Exists(Pointer(2)), 'Key3 does not exist!');
end;
procedure THashesPOTest.testEnumerator;
var
aPresent: array[0..2] of Boolean;
pKey: Pointer;
begin
{$IFDEF D2006PLUS}
FillTestItems;
FillChar(aPresent, SizeOf(aPresent), #0);
for pKey in Hash do
aPresent[Integer(pKey)] := True;
CheckTrue(aPresent[0], 'Key1 was not in the enumeration!');
CheckTrue(aPresent[1], 'Key2 was not in the enumeration!');
CheckTrue(aPresent[2], 'Key3 was not in the enumeration!');
{$ENDIF}
end;
procedure THashesPOTest.testIterate;
var
aPresent: array[0..2] of Boolean;
begin
FillTestItems;
FillChar(aPresent, SizeOf(aPresent), #0);
Hash.First;
while Hash.Next do
if ((Hash.CurrentKey = Pointer(0)) and (Hash.CurrentValue is TObject0)) or
((Hash.CurrentKey = Pointer(1)) and (Hash.CurrentValue is TObject1)) or
((Hash.CurrentKey = Pointer(2)) and (Hash.CurrentValue is TObject2)) then
aPresent[Integer(Hash.CurrentKey)] := True;
CheckTrue(aPresent[0], 'Key1 was not in the iteration!');
CheckTrue(aPresent[1], 'Key2 was not in the iteration!');
CheckTrue(aPresent[2], 'Key3 was not in the iteration!');
end;
function THashesPOTest.GetHash: TX2POHash;
begin
Result := TX2POHash(FHash);
end;
{ THashesVariantTest }
procedure THashesVariantTest.SetUp;
begin
inherited;
FHash := TX2SVHash.Create;
end;
function THashesVariantTest.GetHash: TX2SVHash;
begin
Result := TX2SVHash(FHash);
end;
procedure THashesVariantTest.FillTestItems;
begin
Hash['Key1'] := 'String';
Hash['Key2'] := 5;
Hash['Key3'] := 40.4;
end;
procedure THashesVariantTest.testSet;
begin
FillTestItems;
CheckEquals(3, Hash.Count);
end;
procedure THashesVariantTest.testGet;
begin
FillTestItems;
CheckTrue(Hash['Key1'] = 'String');
CheckTrue(Hash['Key2'] = 5);
CheckTrue(Hash['Key3'] = 40.4);
end;
procedure THashesVariantTest.testDelete;
begin
FillTestItems;
Hash.Delete('Key2');
CheckEquals(2, Hash.Count);
CheckTrue(Hash.Exists('Key1'), 'Key1 does not exist!');
CheckFalse(Hash.Exists('Key2'), 'Key2 still exists!');
CheckTrue(Hash.Exists('Key3'), 'Key3 does not exist!');
end;
procedure THashesVariantTest.testEnumerator;
begin
Check(True, 'Not implemented yet.');
end;
procedure THashesVariantTest.testIterate;
var
aPresent: array[0..2] of Boolean;
begin
FillTestItems;
FillChar(aPresent, SizeOf(aPresent), #0);
Hash.First;
while Hash.Next do
if ((Hash.CurrentKey = 'Key1') and (Hash.CurrentValue = 'String')) then
aPresent[0] := True
else if ((Hash.CurrentKey = 'Key2') and (Hash.CurrentValue = 5)) then
aPresent[1] := True
else if ((Hash.CurrentKey = 'Key3') and (Hash.CurrentValue = 40.4)) then
aPresent[2] := True;
CheckTrue(aPresent[0], 'Key1 was not in the iteration!');
CheckTrue(aPresent[1], 'Key2 was not in the iteration!');
CheckTrue(aPresent[2], 'Key3 was not in the iteration!');
end;
{ THashesBugTest }
procedure THashesBugTest.testAccessViolation;
const
TestValues: array[0..878] of Integer =
(
2480044, 2480046, 2480174, 2480187, 2480188, 2480210,
2490187, 2500044, 2500046, 2500174, 2500187, 2500188,
2500210, 2530046, 2530174, 2530187, 2530188, 2530210,
2550046, 2550174, 2550187, 2550188, 2550210, 2560046,
4920097, 4920098, 4920218, 4930098, 4930099, 4930218,
4940097, 4940098, 4950098, 4950099, 4950218, 5070102,
5070164, 5090102, 5090164, 5090222, 5100102, 5110102,
5110164, 5120102, 5130104, 5130159, 5130177, 5140104,
5140105, 5140159, 5140177, 5160159, 5160177, 5210105,
5210159, 5210177, 5210184, 5210236, 5210237, 5210238,
5210290, 5210297, 5210321, 5220105, 5220159, 5220177,
5220184, 5220236, 5220237, 5220238, 5220290, 5220297,
5220321, 5240105, 5240159, 5240177, 5240184, 5240236,
5240237, 5240238, 5370105, 5370159, 5370177, 5370184,
5370236, 5370237, 5370238, 5370290, 5370297, 5380105,
5380159, 5380177, 5380184, 5380236, 5380237, 5380238,
5380290, 5380297, 5400105, 5400159, 5400177, 5400184,
5400236, 5400237, 5400238, 5450107, 5460107, 5480108,
5480109, 5480220, 5480238, 5530107, 5530158, 5540107,
5540112, 5540158, 5550112, 5550113, 5550176, 5550253,
5560108, 5560109, 5560158, 5560176, 5560220, 5560237,
5560238, 5690105, 5690107, 5690108, 5690109, 5690176,
5690184, 5690220, 5700105, 5700107, 5700112, 5700184,
5700220, 5770110, 5790112, 5790114, 5790158, 5800110,
5850111, 5930105, 5930107, 5930159, 5930177, 5930184,
5940107, 5940238, 5950105, 5950107, 5950159, 5950177,
5950184, 5960107, 5960112, 5960158, 5960238, 5980108,
5980109, 5980158, 5980220, 5980237, 5980238, 6000112,
6000113, 6000176, 6330108, 6330109, 6330176, 6330220,
6340105, 6340184, 6350108, 6350109, 6350176, 6350220,
6350238, 6360238, 6370108, 6370109, 6370176, 6370220,
6370237, 6370238, 6380220, 6380238, 6400119, 6400120,
6410119, 6410120, 6410121, 6410125, 6410221, 6420119,
6420120, 6420121, 6430119, 6430120, 6430121, 6430221,
6430251, 6440119, 6440120, 6440121, 6440124, 6440125,
6440221, 6490120, 6490121, 6490125, 6490221, 8290152,
8290153, 8290155, 8300152, 8300153, 8300154, 8300155,
8300156, 8300157, 8310152, 8310153, 8310154, 8310155,
8310156, 8310157, 8320153, 8320154, 8320155, 8320156,
8320157, 8330153, 8330154, 8330155, 8330156, 8330157,
8330302, 8340152, 8340153, 8340155, 8340255, 8340273,
8340275, 8340299, 8340300, 8340335, 8340375, 8350152,
8350153, 8350154, 8350155, 8350156, 8350157, 8350256,
8350275, 8350299, 8350300, 8350302, 8350335, 8360152,
8360153, 8360154, 8360155, 8360156, 8360157, 8370154,
8370155, 8370156, 8370157, 8370241, 8370302, 8380152,
8380153, 8380155, 8390152, 8390153, 8390154, 8390155,
8390156, 8390157, 8400152, 8400153, 8400154, 8400155,
8400156, 8400157, 8410153, 8410154, 8410155, 8410156,
8410157, 8420153, 8420154, 8420155, 8420156, 8420157,
8420302, 8430152, 8430153, 8430155, 8430255, 8430273,
8430275, 8430299, 8430300, 8430335, 8430375, 8440152,
8440153, 8440154, 8440155, 8440156, 8440157, 8440256,
8440275, 8440299, 8440300, 8440302, 8440335, 8450152,
8450153, 8450154, 8450155, 8450156, 8450157, 8460154,
8460155, 8460156, 8460157, 8460241, 8460302, 8470098,
8480102, 8480164, 8490110, 8490158, 8490176, 8490220,
8500110, 8500158, 8500176, 8500220, 8600119, 8600120,
8600121, 8600124, 8600125, 8600221, 8600251, 8620120,
8630119, 8700188, 8700210, 8700211, 8710188, 8710210,
8710211, 8720158, 8720220, 8730102, 8730164, 8740102,
8740103, 8740164, 8740165, 8780215, 8780216, 8790215,
8790216, 8790217, 8800216, 8800217, 8800258, 8800259,
8800338, 8810215, 8810216, 8810217, 8810257, 8810258,
8810259, 8810281, 8820152, 8820153, 8820154, 8820155,
8820156, 8820157, 8830152, 8830153, 8830154, 8830155,
8830156, 8830157, 8840152, 8840153, 8840154, 8840155,
8840156, 8840157, 8850152, 8850153, 8850154, 8850155,
8850156, 8850157, 8930119, 8930120, 8930121, 8950158,
8950219, 9150223, 9150224, 9150276, 9160223, 9160224,
9160225, 9160276, 9170223, 9170224, 9170225, 9170291,
9330223, 9330224, 9340223, 9340224, 9340225, 9340226,
9350223, 9350224, 9350225, 9370224, 9380226, 9380229,
9380230, 9510224, 9510227, 9520224, 9520225, 9520227,
9520254, 9520276, 9530224, 9530225, 9530254, 9530276,
9530292, 9550224, 9560227, 9560229, 9560230, 9560254,
9560276, 9560292, 9630224, 9640224, 9640225, 9640226,
9640254, 9640276, 9650224, 9650225, 9650254, 9650276,
9650292, 9680226, 9680229, 9680230, 9690224, 9690254,
9690276, 9700224, 9700225, 9700226, 9700254, 9700276,
9710224, 9710225, 9710254, 9710276, 9710291, 9710292,
9720232, 9740226, 9740229, 9740230, 9740254, 9740276,
9740292, 9930227, 9930228, 9940227, 9940228, 9960232,
9960233, 9980227, 9980230, 9980292, 9990224, 9990227,
10000224, 10000225, 10000227, 10010224, 10010225, 10020232,
10020254, 10020293, 10040227, 10040230, 10040254, 10040276,
10040292, 10050224, 10050227, 10060224, 10060225, 10060227,
10060254, 10060276, 10070224, 10070225, 10070254, 10070276,
10070292, 10080232, 10080254, 10080293, 10100227, 10100230,
10100254, 10100276, 10100292, 10230228, 10240227, 10240228,
10260233, 10350234, 10350235, 10350295, 10350343, 10360235,
10360295, 10370234, 10370235, 10370295, 10370343, 10380235,
10380295, 10390119, 10390120, 10390121, 10390125, 10390221,
10390251, 10390317, 10390342, 10400119, 10400120, 10400121,
10400125, 10400221, 10400251, 10400317, 10400342, 10450239,
10450240, 10460240, 10470240, 10470241, 10480239, 10480240,
10480241, 10500152, 10500153, 10500155, 10500255, 10500273,
10500275, 10500299, 10500300, 10500335, 10500375, 10520152,
10520153, 10520154, 10520155, 10520156, 10520157, 10520256,
10520275, 10520300, 10520302, 10520335, 10520376, 10530152,
10530153, 10530154, 10530155, 10530156, 10530157, 10530256,
10530275, 10530300, 10530335, 10550152, 10550153, 10550155,
10550255, 10550273, 10550275, 10550299, 10550300, 10550335,
10550375, 10560152, 10560153, 10560154, 10560155, 10560156,
10560157, 10560256, 10560275, 10560300, 10560302, 10560335,
10560376, 10570152, 10570153, 10570154, 10570155, 10570156,
10570157, 10570256, 10570275, 10570300, 10570335, 10580152,
10580153, 10580154, 10580155, 10580156, 10580157, 10580256,
10580300, 10580302, 10580335, 10590152, 10590153, 10590154,
10590155, 10590156, 10590157, 10590256, 10590300, 10590302,
10590335, 10600187, 10600188, 10600210, 10610187, 10610188,
10610210, 10630216, 10630217, 10630258, 10630259, 10630281,
10640215, 10640216, 10640217, 10640257, 10640258, 10640338,
10650215, 10650216, 10650217, 10650257, 10650258, 10650259,
10660097, 10660098, 10660218, 10670097, 10670098, 10680098,
10680099, 10680218, 10690102, 10690164, 10700102, 10700164,
10700222, 10700320, 10710102, 10710103, 10710165, 10720244,
10720245, 10720277, 10720309, 10720336, 10720346, 10730244,
10730245, 10730246, 10730248, 10730260, 10730277, 10740245,
10750246, 10750248, 10750260, 10760246, 10760260, 10760336,
10760346, 10770246, 10770260, 10770336, 10770346, 10780247,
10780334, 10790244, 10790245, 10790246, 10790277, 10790309,
10800244, 10800245, 10800246, 10800260, 10800277, 10810246,
10810247, 10810248, 10810260, 10810334, 10810366, 10820244,
10820245, 10820246, 10820249, 10820277, 10820309, 10820336,
10820346, 10830244, 10830245, 10830246, 10830248, 10830249,
10830260, 10830277, 10840245, 10850246, 10850248, 10850249,
10850260, 10860246, 10860249, 10860260, 10860336, 10860346,
10870246, 10870249, 10870260, 10870336, 10870346, 10870365,
10880244, 10880245, 10880246, 10880249, 10880277, 10880309,
10890244, 10890245, 10890246, 10890249, 10890260, 10890277,
10900246, 10900247, 10900248, 10900249, 10900260, 10900366,
10910154, 10910302, 10920154, 10920302, 10930241, 10930252,
10930302, 10940241, 10940252, 10940302, 10950188, 10950210,
10960216, 10960217, 10960258, 10960259, 10960281, 10970223,
10970224, 10980223, 10980224, 10980226, 10980254, 10980276,
10990223, 10990224, 10990254, 10990276, 10990291, 10990292,
11000226, 11000229, 11000230, 11000254, 11000276, 11000292,
11010224, 11010276, 11020119, 11020120, 11020121, 11020125,
11020221, 11020251, 11020317, 11020342, 11080264, 11080265,
11090264, 11120264, 11130264, 11130265, 11140264, 11140265,
11150264, 11160264, 11160265, 11170264, 11170265, 11180264,
11190264, 11200264, 11210264, 11210265, 11220264, 11220265,
11230264, 11240264, 11250264, 11260264, 11280264, 11290264,
11300264, 11310264, 11320264, 11330264, 11340264, 11350264,
11360264, 11370264, 11390264, 11400264, 11410264, 11420264,
11430264, 11440264, 11450264);
var
hash: TX2IIHash;
valueIndex: Integer;
begin
{ Bug found in an import application when a bucket overflows }
hash := TX2IIHash.Create;
try
for valueIndex := Low(TestValues) to High(TestValues) do
hash[TestValues[valueIndex]] := valueIndex;
for valueIndex := Low(TestValues) to High(TestValues) do
CheckEquals(hash[TestValues[valueIndex]], valueIndex, 'Index: ' + IntToStr(valueIndex));
finally
FreeAndNil(hash);
end;
end;
initialization
RegisterTest('Hashes', THashesSITest.Suite);
RegisterTest('Hashes', THashesPOTest.Suite);
RegisterTest('Hashes', THashesVariantTest.Suite);
RegisterTest('Hashes', THashesBugTest.Suite);
end.