From 4d6844e731e2d65760ec0441cec83e6ba097e169 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Fri, 19 Jul 2019 15:55:25 +0000
Subject: [PATCH] * fix test on systems where Currency is calculated using
 floating point types

git-svn-id: trunk@42458 -
---
 tests/test/tcustomattr13.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/test/tcustomattr13.pp b/tests/test/tcustomattr13.pp
index c7720ff5de..b09cce0fb8 100644
--- a/tests/test/tcustomattr13.pp
+++ b/tests/test/tcustomattr13.pp
@@ -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);