From: Craig A. Berry <craigberry@mac.com>
Date: Wed, 5 Jun 2002 17:31:18 +0000 (-0500)
Subject: t/op/arith.t -- don't test infinity if it doesn't exist
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dfbc85eab5c948c5165574af463d36e7afe0af9c;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/t/op/arith.t b/t/op/arith.t
index 654ce3b..4af49c5 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,