From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 3 Jun 2001 16:52:41 +0000 (+0000)
Subject: Tweak the test to be happy if the accuracy is 'good enough'.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=56dd5b296bcdfa13210bc9018d4cc5ec40d2f1f0;p=p5sagit%2Fp5-mst-13.2.git

Tweak the test to be happy if the accuracy is 'good enough'.

p4raw-id: //depot/perl@10408
---

diff --git a/t/lib/posix.t b/t/lib/posix.t
index 7c91eba..2f29e0d 100755
--- a/t/lib/posix.t
+++ b/t/lib/posix.t
@@ -82,7 +82,8 @@ if ($Config{d_strtod}) {
 # Using long double NVs may introduce greater accuracy than wanted.
     $n =~ s/^3.1415(8999|9000)\d*$/3.14159/
         if $Config{uselongdouble} eq 'define';
-    print (($n == 3.14159) && ($x == 6) ? "ok 14\n" : "not ok 14\n");
+    print ((abs($n - 3.14159) < 0.00001) && ($x == 6) ?
+          "ok 14\n" : "not ok 14\n");
     &POSIX::setlocale(&POSIX::LC_NUMERIC, $lc) if $Config{d_setlocale};
 } else { print "# strtod not present\n", "ok 14\n"; }