From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 8 Jun 2003 16:49:43 +0000 (-0500)
Subject: pack.t tweak for non-IEEE VMS systems
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=71f93cb90a7a9a642b3934238bdb85ce8183854f;p=p5sagit%2Fp5-mst-13.2.git

pack.t tweak for non-IEEE VMS systems
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3EE3AF77.7060302@mac.com>

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

diff --git a/t/op/pack.t b/t/op/pack.t
index 0c7d51d..53f44c1 100755
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -179,6 +179,10 @@ sub list_eq ($$) {
 
  SKIP: {
     # Is this a stupid thing to do on VMS, VOS and other unusual platforms?
+
+    skip "-- the IEEE infinity model is unavailable in this configuration."
+       if (($^O eq 'VMS') && !defined($Config{useieee}));
+
     my $inf = eval '2**10000';
 
     skip "Couldn't generate infinity - got error '$@'"
@@ -193,6 +197,10 @@ sub list_eq ($$) {
   }
 
  SKIP: {
+
+    skip "-- the full range of an IEEE double may not be available in this configuration."
+       if (($^O eq 'VMS') && !defined($Config{useieee}));
+
     # This should be about the biggest thing possible on an IEEE double
     my $big = eval '2**1023';