* we halt if the currency values are *not* equal, not if they're equal... m(

git-svn-id: trunk@42487 -

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);