Skip to content

Commit 61320b4

Browse files
committed
fixed tests SetUp to allow multiple runs during the same process session
1 parent c527204 commit 61320b4

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

Tests/Source/Base/Spring.Tests.Collections.pas

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1169,6 +1169,7 @@ procedure TTestNormalHashSet.SetUp;
11691169
fSet2 := TCollections.CreateSet<Integer>(10);
11701170
fSet1.AddRange([1, 2, 3]);
11711171
fSet2.AddRange([3, 1, 4, 5]);
1172+
fChangeCount := 0;
11721173
end;
11731174

11741175
procedure TTestNormalHashSet.TearDown;
@@ -1308,6 +1309,7 @@ procedure TTestIntegerList.SetUp;
13081309
begin
13091310
inherited;
13101311
SUT := TCollections.CreateList<Integer>;
1312+
ChangeCount := 0;
13111313
end;
13121314

13131315
procedure TTestIntegerList.TearDown;

0 commit comments

Comments
 (0)