From 71f93cb90a7a9a642b3934238bdb85ce8183854f Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Sun, 8 Jun 2003 11:49:43 -0500 Subject: [PATCH] pack.t tweak for non-IEEE VMS systems From: "Craig A. Berry" Message-ID: <3EE3AF77.7060302@mac.com> p4raw-id: //depot/perl@19714 --- t/op/pack.t | 8 ++++++++ 1 file changed, 8 insertions(+) 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'; -- 2.7.4