Re: POSIX test #14 on UTS

Message-Id: <200107110202.f6B22Ea10727@crypt.compulink.co.uk>

p4raw-id: //depot/perl@11276

diff --git a/ext/POSIX/POSIX.t b/ext/POSIX/POSIX.t
index 87a2aea..2c80924 100755 (executable)
--- a/ext/POSIX/POSIX.t
+++ b/ext/POSIX/POSIX.t
@@ -86,10 +86,8 @@ print getcwd() =~ m#[/\\]t$# ? "ok 13\n" : "not ok 13\n";
 if ($Config{d_strtod}) {
     $lc = &POSIX::setlocale(&POSIX::LC_NUMERIC, 'C') if $Config{d_setlocale};
     ($n, $x) = &POSIX::strtod('3.14159_OR_SO');
-# 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) ?
+# we're just checking that strtod works, not how accurate it is
+    print (("3.14159" eq $n + 0) && ($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"; }