From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 4 Jan 2004 23:16:26 +0000 (-0600)
Subject: skip num.t #47 on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c3892a8ea285ab2a62d7d4dacf440bbb1588ba00;p=p5sagit%2Fp5-mst-13.2.git

skip num.t #47 on VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3FF8F32A.5000108@mac.com>

p4raw-id: //depot/perl@22058
---

diff --git a/t/base/num.t b/t/base/num.t
index f915281..ffad5d5 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;