diff options
Diffstat (limited to 't/base/num.t')
-rw-r--r-- | t/base/num.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/t/base/num.t b/t/base/num.t index 8a61fb9890..6ccc0cf921 100644 --- a/t/base/num.t +++ b/t/base/num.t @@ -176,12 +176,14 @@ $a = 0.00049999999999999999999999999999999999999; $b = 0.0005000000000000000104; print $a <= $b ? "ok 46\n" : "not ok 46\n"; -if ($^O eq 'ultrix' || $^O eq 'VMS') { +if ($^O eq 'ultrix' || $^O eq 'VMS' || + (pack("d", 1) =~ /^[\x80\x10]\x40/) # VAX D_FLOAT, G_FLOAT. + ) { # Ultrix enters looong nirvana over this. VMS blows up when configured with # D_FLOAT (but with G_FLOAT or IEEE works fine). The test should probably # make the number of 0's a function of NV_DIG, but that's not in Config and # we probably don't want to suck Config into a base test anyway. - print "ok 47\n"; + print "ok 47 # skipped on $^O\n"; } else { $a = 0.00000000000000000000000000000000000000000000000000000000000000000001; print $a > 0 ? "ok 47\n" : "not ok 47\n"; |