diff options
| author | Craig A. Berry <craigberry@mac.com> | 2004-01-04 17:16:26 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-01-05 06:17:47 +0000 |
| commit | c3892a8ea285ab2a62d7d4dacf440bbb1588ba00 (patch) | |
| tree | fe7954e90f3e3aa3d19ce3004353178b095c55d9 /t/base | |
| parent | dfc1d8886424c8cecb2f02982ff2ebcc36eb57c5 (diff) | |
| download | perl-c3892a8ea285ab2a62d7d4dacf440bbb1588ba00.tar.gz | |
skip num.t #47 on VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3FF8F32A.5000108@mac.com>
p4raw-id: //depot/perl@22058
Diffstat (limited to 't/base')
| -rw-r--r-- | t/base/num.t | 7 |
1 files changed, 5 insertions, 2 deletions
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; |