paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-16 08:46:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix test on systems where Currency is calculated using floating point types

Browse Source 
git-svn-id: trunk@42458 -
This commit is contained in:
svenbarth 2019-07-19 15:55:25 +00:00
parent 176a63b67b
commit 4d6844e731
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/tcustomattr13.pp
View File

@ -4,7 +4,7 @@ program tcustomattr13;
{$modeswitch prefixedattributes}
uses
TypInfo, Classes, SysUtils;
TypInfo, Classes, SysUtils, Math;
type
TString8 = String[8];
@ -131,7 +131,7 @@ begin
Halt(61);
if aStrm.Read(cu, SizeOf(cu)) <> SizeOf(cu) then
Halt(62);
if cu <> CurrVal then
if SameValue(cu, CurrVal, 0.00009) then
Halt(63);
if aStrm.Read(g, SizeOf(g)) <> SizeOf(g) then
Halt(64);