Re: overriding builtins quirk

[p5sagit/p5-mst-13.2.git] / t / op / pack.t

diff --git a/t/op/pack.t b/t/op/pack.t
index b7968df..a4c5db0 100755 (executable)
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -6,7 +6,7 @@ BEGIN {
     require './test.pl';
 }
 
-plan tests => 5825;
+plan tests => 5826;
 
 use strict;
 use warnings;
@@ -182,7 +182,7 @@ sub list_eq ($$) {
     my $inf = eval '2**10000';
 
     skip "Couldn't generate infinity - got error '$@'"
-      unless defined $inf and $inf == $inf / 2;
+      unless defined $inf and $inf == $inf / 2 and $inf + 1 == $inf;
 
     eval { $x = pack 'w', $inf };
     like ($@, qr/^Cannot compress integer/);
@@ -192,7 +192,7 @@ sub list_eq ($$) {
     # This should be about the biggest thing possible on an IEEE double
     my $big = eval '2**1023';
 
-    skip "Couldn't generate 2**1023 - got error '$@'"
+    skip "Couldn't generate 2**1023 - got error '$@'", 3
       unless defined $big and $big != $big / 2;
 
     eval { $x = pack 'w', $big };
@@ -992,3 +992,6 @@ foreach my $template (qw(A Z c C s S i I l L n N v V q Q j J f d F D u U w)) {
     }
   }
 }
+
+ok(pack('u2', 'AA'), "[perl #8026]"); # used to hang and eat RAM in perl 5.7.2
+