diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-06-05 12:31:18 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-05 23:48:28 +0000 |
| commit | dfbc85eab5c948c5165574af463d36e7afe0af9c (patch) | |
| tree | a72ede9a07f61076422cc7a0571db449d0463d55 /t | |
| parent | 6b9b4622403ed9ea90ace1c72b8b71571b3324a6 (diff) | |
| download | perl-dfbc85eab5c948c5165574af463d36e7afe0af9c.tar.gz | |
t/op/arith.t -- don't test infinity if it doesn't exist
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <5.1.1.5.0.20020605171901.021cb8b8@exchi01>
p4raw-id: //depot/perl@17025
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/arith.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/op/arith.t b/t/op/arith.t index 654ce3b857..4af49c505d 100755 --- a/t/op/arith.t +++ b/t/op/arith.t @@ -5,6 +5,8 @@ BEGIN { @INC = '../lib'; } +use Config; + print "1..134\n"; sub try ($$) { @@ -277,7 +279,11 @@ tryeq_sloppy 130, 18446744073709551616/9223372036854775808, 2; if ($^O eq 'vos') { print "not ok 134 # TODO VOS raises SIGFPE instead of producing infinity.\n"; -} else { +} +elsif (($^O eq 'VMS') && !defined($Config{useieee})) { + print "ok 134 # SKIP -- the IEEE infinity model is unavailable in this configuration.\n"; +} +else { # The computation of $v should overflow and produce "infinity" # on any system whose max exponent is less than 10**1506. # The exact string used to represent infinity varies by OS, |