|
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522 |
- unit uutlEnumeratorTests;
-
- {$mode objfpc}{$H+}
- {$IFDEF UTL_NESTED_PROCVARS}
- {$modeswitch nestedprocvars}
- {$ENDIF}
-
- interface
-
- uses
- Classes, SysUtils, TestFramework,
- uutlEnumerator, uutlInterfaces;
-
- type
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- IIntEnumerator = specialize {$IFDEF UTL_ENUMERATORS}IutlEnumerator{$ELSE}IEnumerator{$ENDIF}<Integer>;
- TutlEnumeratorTests = class(TTestCase)
- protected
- fEnumerator: IIntEnumerator;
-
- function GenerateOther(const aData: array of Integer): IIntEnumerator;
- procedure Generate(const aData: array of Integer); virtual; abstract;
-
- published
- // Procedure Names: ProcedureUnderTest_[Parameter]_EnumeratorItems_Result
- procedure Iterate_1to5_1to5;
- {$IFDEF UTL_ENUMERATORS}
- procedure Count_1to5_5;
- procedure Any_Empty_False;
- procedure Any_1to5_True;
- procedure Reverse_1to5_5to1;
- procedure Skip2_1to5_3to5;
- procedure Take3_1to5_1to3;
- procedure Skip5_Reverse_0to9_9to5;
- procedure Take5_Reverse_0to9_4to0;
- procedure Reverse_Skip5_0to9_4to0;
- procedure Reverse_Take5_0to9_9to5;
- procedure Contains3_1to5_true;
- procedure Contains9_1to5_false;
- procedure Concat6to8_1to5_1to8;
- {$IFDEF UTL_ADVANCED_ENUMERATORS}
- procedure Sort;
- procedure Where_IsEven;
- procedure Distinct;
- procedure Intersect;
- procedure Union;
- procedure Without;
- procedure Select;
- {$ENDIF}
- {$ENDIF}
- end;
-
- TutlArrayEnumeratorTests = class(TutlEnumeratorTests)
- protected
- procedure Generate(const aData: array of Integer); override;
-
- public
- procedure SetUp; override;
- end;
-
- implementation
-
- uses
- uutlFilter, uutlComparer;
-
- type
- TIntArrayEnumerator = specialize TutlArrayEnumerator<Integer>;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //TutlEnumeratorTests///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- function TutlEnumeratorTests.GenerateOther(const aData: array of Integer): IIntEnumerator;
- var
- i: Integer;
- arr: TIntArrayEnumerator.TArray;
- begin
- SetLength(arr, Length(aData));
- for i := low(aData) to high(aData) do
- arr[i] := aData[i];
- result := TIntArrayEnumerator.Create(arr);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlEnumeratorTests.Iterate_1to5_1to5;
- begin
- Generate([1, 2, 3, 4, 5]);
- fEnumerator.Reset;
- AssertTrue (fEnumerator.MoveNext);
- AssertEquals(1, fEnumerator.GetCurrent);
- AssertTrue (fEnumerator.MoveNext);
- AssertEquals(2, fEnumerator.GetCurrent);
- AssertTrue (fEnumerator.MoveNext);
- AssertEquals(3, fEnumerator.GetCurrent);
- AssertTrue (fEnumerator.MoveNext);
- AssertEquals(4, fEnumerator.GetCurrent);
- AssertTrue (fEnumerator.MoveNext);
- AssertEquals(5, fEnumerator.GetCurrent);
- AssertFalse (fEnumerator.MoveNext);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- {$IFDEF UTL_ENUMERATORS}
- procedure TutlEnumeratorTests.Count_1to5_5;
- var
- i: Integer;
- begin
- Generate([1, 2, 3, 4, 5]);
- i := fEnumerator.Count;
- AssertEquals(5, i);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlEnumeratorTests.Any_Empty_False;
- begin
- AssertFalse(fEnumerator.Any);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlEnumeratorTests.Any_1to5_True;
- begin
- Generate([1, 2, 3, 4, 5]);
- AssertTrue(fEnumerator.Any);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlEnumeratorTests.Reverse_1to5_5to1;
- var
- e: IIntEnumerator;
- begin
- e := fEnumerator.Reverse;
- Generate([1, 2, 3, 4, 5]);
- e.Reset;
- AssertTrue (e.MoveNext);
- AssertEquals(5, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(4, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(3, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(2, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(1, e.GetCurrent);
- AssertFalse (e.MoveNext);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlEnumeratorTests.Skip2_1to5_3to5;
- var
- e: IIntEnumerator;
- begin
- e := fEnumerator.Skip(2);
- Generate([1, 2, 3, 4, 5]);
- e.Reset;
- AssertTrue (e.MoveNext);
- AssertEquals(3, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(4, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(5, e.GetCurrent);
- AssertFalse (e.MoveNext);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlEnumeratorTests.Take3_1to5_1to3;
- var
- e: IIntEnumerator;
- begin
- e := fEnumerator.Take(3);
- Generate([1, 2, 3, 4, 5]);
- e.Reset;
- AssertTrue (e.MoveNext);
- AssertEquals(1, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(2, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(3, e.GetCurrent);
- AssertFalse (e.MoveNext);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlEnumeratorTests.Skip5_Reverse_0to9_9to5;
- var
- e: IIntEnumerator;
- begin
- e := fEnumerator.Skip(5).Reverse;
- Generate([0, 1, 2, 3, 4, 5, 6, 7, 8, 9]);
- e.Reset;
- AssertTrue (e.MoveNext);
- AssertEquals(9, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(8, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(7, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(6, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(5, e.GetCurrent);
- AssertFalse (e.MoveNext);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlEnumeratorTests.Take5_Reverse_0to9_4to0;
- var
- e: IIntEnumerator;
- begin
- e := fEnumerator.Take(5).Reverse;
- Generate([0, 1, 2, 3, 4, 5, 6, 7, 8, 9]);
- e.Reset;
- AssertTrue (e.MoveNext);
- AssertEquals(4, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(3, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(2, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(1, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(0, e.GetCurrent);
- AssertFalse (e.MoveNext);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlEnumeratorTests.Reverse_Skip5_0to9_4to0;
- var
- e: IIntEnumerator;
- begin
- e := fEnumerator.Reverse.Skip(5);
- Generate([0, 1, 2, 3, 4, 5, 6, 7, 8, 9]);
- e.Reset;
- AssertTrue (e.MoveNext);
- AssertEquals(4, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(3, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(2, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(1, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(0, e.GetCurrent);
- AssertFalse (e.MoveNext);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlEnumeratorTests.Reverse_Take5_0to9_9to5;
- var
- e: IIntEnumerator;
- begin
- e := fEnumerator.Reverse.Take(5);
- Generate([0, 1, 2, 3, 4, 5, 6, 7, 8, 9]);
- e.Reset;
- AssertTrue (e.MoveNext);
- AssertEquals(9, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(8, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(7, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(6, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(5, e.GetCurrent);
- AssertFalse (e.MoveNext);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlEnumeratorTests.Contains3_1to5_true;
- var
- b: Boolean;
- begin
- Generate([1, 2, 3, 4, 5]);
- b := fEnumerator.Contains(3, specialize TutlEqualityComparer<Integer>.Create);
- AssertTrue(b);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlEnumeratorTests.Contains9_1to5_false;
- var
- b: Boolean;
- begin
- Generate([1, 2, 3, 4, 5]);
- b := fEnumerator.Contains(9, specialize TutlEqualityComparer<Integer>.Create);
- AssertFalse(b);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlEnumeratorTests.Concat6to8_1to5_1to8;
- var
- e: IIntEnumerator;
- begin
- e := fEnumerator.Concat(GenerateOther([6, 7, 8]));
- Generate([1, 2, 3, 4, 5]);
- e.Reset;
- AssertTrue (e.MoveNext);
- AssertEquals(1, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(2, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(3, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(4, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(5, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(6, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(7, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(8, e.GetCurrent);
- AssertFalse (e.MoveNext);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- {$IFDEF UTL_ADVANCED_ENUMERATORS}
- procedure TutlEnumeratorTests.Sort;
- var
- e: IIntEnumerator;
- begin
- e := fEnumerator.Sort(specialize TutlComparer<Integer>.Create);
- Generate([5, 8, 2, 6, 9, 4, 2, 6, 8, 4, 2, 5, 8, 4]);
- e.Reset;
- AssertTrue (e.MoveNext);
- AssertEquals(2, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(2, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(2, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(4, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(4, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(4, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(5, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(5, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(6, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(6, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(8, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(8, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(8, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(9, e.GetCurrent);
- AssertFalse (e.MoveNext);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- function IsEven(constref i: Integer): Boolean;
- begin
- result := (i mod 2) = 0;
- end;
-
- procedure TutlEnumeratorTests.Where_IsEven;
- var
- e: IIntEnumerator;
- begin
- e := fEnumerator.Where(specialize TutlCallbackFilter<Integer>.Create(@IsEven));
- Generate([0, 1, 2, 3, 4, 5, 6, 7, 8, 9]);
- e.Reset;
- AssertTrue (e.MoveNext);
- AssertEquals(0, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(2, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(4, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(6, e.GetCurrent);
- AssertTrue (e.MoveNext);
- AssertEquals(8, e.GetCurrent);
- AssertFalse (e.MoveNext);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlEnumeratorTests.Distinct;
- var
- e: IIntEnumerator;
- begin
- e := fEnumerator.Distinct(specialize TutlComparer<Integer>.Create);
- Generate([1, 5, 2, 7, 1, 3, 7, 4, 5, 8]);
- e.Reset;
- AssertTrue (e.MoveNext);
- AssertEquals(1, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(5, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(2, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(7, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(3, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(4, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(8, e.Current);
- AssertFalse (e.MoveNext);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlEnumeratorTests.Intersect;
- var
- e: IIntEnumerator;
- begin
- e := fEnumerator
- .Intersect(GenerateOther([5, 6, 8]), specialize TutlComparer<Integer>.Create);
- Generate([1, 6, 4, 8, 2, 5]);
- e.Reset;
- AssertTrue (e.MoveNext);
- AssertEquals(6, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(8, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(5, e.Current);
- AssertFalse (e.MoveNext);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlEnumeratorTests.Union;
- var
- e: IIntEnumerator;
- begin
- e := fEnumerator
- .Union(GenerateOther([9, 3, 4, 6, 7]), specialize TutlComparer<Integer>.Create);
- Generate([1, 6, 4, 8, 2, 5]);
- e.Reset;
- AssertTrue (e.MoveNext);
- AssertEquals(1, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(6, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(4, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(8, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(2, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(5, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(9, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(3, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(7, e.Current);
- AssertFalse (e.MoveNext);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlEnumeratorTests.Without;
- var
- e: IIntEnumerator;
- begin
- e := fEnumerator
- .Without(GenerateOther([6, 8, 5]), specialize TutlComparer<Integer>.Create);
- Generate([1, 6, 4, 8, 2, 5]);
- e.Reset;
- AssertTrue (e.MoveNext);
- AssertEquals(1, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(4, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(2, e.Current);
- AssertFalse (e.MoveNext);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- function ConvertToFloat(constref a: Integer): Single;
- begin
- result := Single(a) / 2.0;
- end;
-
- procedure TutlEnumeratorTests.Select;
- var
- e: specialize IutlEnumerator<Single>;
- begin
- e := specialize TutlSelectEnumerator<Integer, Single>.Create(
- fEnumerator,
- specialize TutlCallbackSelector<Integer, Single>.Create(@ConvertToFloat));
- Generate([1, 2, 3, 4, 5]);
- e.Reset;
- AssertTrue (e.MoveNext);
- AssertEquals(0.5, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(1.0, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(1.5, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(2.0, e.Current);
- AssertTrue (e.MoveNext);
- AssertEquals(2.5, e.Current);
- AssertFalse (e.MoveNext);
- end;
- {$ENDIF}
- {$ENDIF}
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //TutlArrayEnumeratorTests//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlArrayEnumeratorTests.Generate(const aData: array of Integer);
- var
- i: Integer;
- arr: TIntArrayEnumerator.TArray;
- begin
- SetLength(arr, Length(aData));
- for i := low(aData) to high(aData) do
- arr[i] := aData[i];
- (fEnumerator as TIntArrayEnumerator).Data := arr;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlArrayEnumeratorTests.SetUp;
- begin
- fEnumerator := TIntArrayEnumerator.Create;
- end;
-
- initialization
- RegisterTest(TutlArrayEnumeratorTests.Suite);
-
- end.
-
|