Skip to content

Commit f9e49b5

Browse files
committed
improved performance of test - don't need FloatToStr for some integer value
1 parent fc32504 commit f9e49b5

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

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

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3901,7 +3901,7 @@ TManagedRec = record
39013901
values[j].DoubleValue :=j;
39023902
PDouble(@values[j].Stuff[0])^ := 2 * j;
39033903
PDouble(@values[j].Stuff[8])^ := -3 * j;
3904-
values[j].Text := FloatToStr(6 * j + 2);
3904+
values[j].Text := IntToStr(6 * j + 2);
39053905
end;
39063906
TArray.Shuffle<TManagedRec>(values);
39073907
TArray.StableSort<TManagedRec>(values, comparison);
@@ -3912,7 +3912,7 @@ TManagedRec = record
39123912
CheckEquals(j, values[j].DoubleValue);
39133913
CheckEquals(2 * j, PDouble(@values[j].Stuff[0])^);
39143914
CheckEquals(-3 * j, PDouble(@values[j].Stuff[8])^);
3915-
CheckEquals(FloatToStr(6 * j + 2), values[j].Text);
3915+
CheckEquals(IntToStr(6 * j + 2), values[j].Text);
39163916
end;
39173917
end;
39183918
end;

0 commit comments

Comments
 (0)