From c3892a8ea285ab2a62d7d4dacf440bbb1588ba00 Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Sun, 4 Jan 2004 17:16:26 -0600 Subject: skip num.t #47 on VMS From: "Craig A. Berry" Message-ID: <3FF8F32A.5000108@mac.com> p4raw-id: //depot/perl@22058 --- t/base/num.t | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 't') diff --git a/t/base/num.t b/t/base/num.t index f91528169e..ffad5d5584 100644 --- a/t/base/num.t +++ b/t/base/num.t @@ -174,8 +174,11 @@ $a = 0.00049999999999999999999999999999999999999; $b = 0.0005000000000000000104; print $a <= $b ? "ok 46\n" : "not ok 46\n"; -if ($^O eq 'ultrix') { - # Ultrix enters looong nirvana over this. +if ($^O eq 'ultrix' || $^O eq 'VMS') { + # 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"; } else { $a = 0.00000000000000000000000000000000000000000000000000000000000000000001; -- cgit v1.2.1