From: Hugo van der Sanden Date: Wed, 11 Jul 2001 03:02:14 +0000 (+0100) Subject: Re: POSIX test #14 on UTS X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ad9fea34ce757b6a0cfa9cf2d6f68b45f1f216d8;p=p5sagit%2Fp5-mst-13.2.git 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 --- 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"; }