From: Kenneth Albanowski <kjahds@kjahds.com>
Date: Tue, 3 Sep 1996 21:49:22 +0000 (-0400)
Subject: Pack Patch (was Re: 5.002 - pack/unpack does not do "I" right)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=73a1c01a52169304137bbab43cdbe76faa9aae6d;p=p5sagit%2Fp5-mst-13.2.git

Pack Patch (was Re: 5.002 - pack/unpack does not do "I" right)
---

diff --git a/t/op/pack.t b/t/op/pack.t
index 1cfcd60..ee228d9 100755
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -2,7 +2,7 @@
 
 # $RCSfile: pack.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:11 $
 
-print "1..8\n";
+print "1..9\n";
 
 $format = "c2x5CCxsdila6";
 # Need the expression in here to force ary[5] to be numeric.  This avoids
@@ -41,3 +41,6 @@ close BIN;
 $sum = unpack("%32b*", $foo);
 $longway = unpack("b*", $foo);
 print $sum == $longway =~ tr/1/1/ ? "ok 8\n" : "not ok 8\n";
+
+print +($x = unpack("I",pack("I", 0xFFFFFFFF))) == 0xFFFFFFFF
+	? "ok 9\n" : "not ok 9 $x\n";