From 0c27ea83bea2f8afc7541d7d8206396c13b1f8ef Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Tue, 23 Jul 2019 20:53:50 +0000
Subject: [PATCH] * we halt if the currency values are *not* equal, not if
 they're equal... m(

git-svn-id: trunk@42487 -
---
 tests/test/tcustomattr13.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/test/tcustomattr13.pp b/tests/test/tcustomattr13.pp
index b09cce0fb8..e65b1be3f2 100644
--- a/tests/test/tcustomattr13.pp
+++ b/tests/test/tcustomattr13.pp
@@ -131,7 +131,7 @@ begin
     Halt(61);
   if aStrm.Read(cu, SizeOf(cu)) <> SizeOf(cu) then
     Halt(62);
-  if SameValue(cu, CurrVal, 0.00009) then
+  if not SameValue(cu, CurrVal, 0.00009) then
     Halt(63);
   if aStrm.Read(g, SizeOf(g)) <> SizeOf(g) then
     Halt(64);