This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pack.t tweak for non-IEEE VMS systems
authorCraig A. Berry <craigberry@mac.com>
Sun, 8 Jun 2003 16:49:43 +0000 (11:49 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 9 Jun 2003 04:29:04 +0000 (04:29 +0000)
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3EE3AF77.7060302@mac.com>

p4raw-id: //depot/perl@19714

t/op/pack.t

index 0c7d51d..53f44c1 100755 (executable)
@@ -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';