Skip to content

Commit 6fead6b

Browse files
committed
Remove tests that compile now that StrWrap modified
Two tests passed negative Margin and MaxLineLen parameters to StrWrap routine. Since such values make no sense, StrWrap was modified to make these parameters unsigned: they were changed from Integer to UInt16.
1 parent eb65b89 commit 6fead6b

File tree

1 file changed

+2
-4
lines changed

1 file changed

+2
-4
lines changed

Tests/Src/DUnit/TestUStrUtils.pas

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1069,10 +1069,8 @@ procedure TTestStrUtilsRoutines.TestStrWrap_overload1;
10691069
CheckEquals(ResA, StrWrap(Text, 10, 0), 'Test 5');
10701070
CheckEquals(ResB, StrWrap(Text, 10, 2), 'Test 6');
10711071
CheckEquals(ResC, StrWrap(Text, 15, 0), 'Test 7');
1072-
CheckEquals(ResC, StrWrap(Text, 15, -2), 'Test 8');
1073-
CheckEquals(ResD, StrWrap(Text, 1, 0), 'Test 9');
1074-
CheckEquals(ResD, StrWrap(Text, 0, 0), 'Test 10');
1075-
CheckEquals(ResD, StrWrap(Text, -1, 0), 'Test 11');
1072+
CheckEquals(ResD, StrWrap(Text, 1, 0), 'Test 8');
1073+
CheckEquals(ResD, StrWrap(Text, 0, 0), 'Test 9');
10761074
end;
10771075

10781076
procedure TTestStrUtilsRoutines.TestStrWrap_overload2;

0 commit comments

Comments
 (0)