summaryrefslogtreecommitdiff
path: root/t/base
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2016-06-27 18:57:14 -0400
committerJarkko Hietaniemi <jhi@iki.fi>2016-07-01 20:43:13 -0400
commit15899733e6c3ba2d82e9b5373dabc6958554975c (patch)
tree1af5eeba4a61185533358a8d629c3cda6b0c11e5 /t/base
parenta7157111fed730f765c2c281a61bcde95bacc9ed (diff)
downloadperl-15899733e6c3ba2d82e9b5373dabc6958554975c.tar.gz
VAX: test changes for VAX floats
The hexfp (literals or %a) seems to be partially working: simple cases seem to work, but there are failures.
Diffstat (limited to 't/base')
-rw-r--r--t/base/num.t6
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";