From: Ulrich Pfeifer <pfeifer@wait.de>
Date: Wed, 20 Feb 2002 11:21:15 +0000 (+0100)
Subject: Re: [ID 20020220.001] pack w with objects
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a6c48a57b9ba63a7a72da88b9735f59a6e97a38e;p=p5sagit%2Fp5-mst-13.2.git

Re: [ID 20020220.001] pack w with objects
Message-ID: <p5g03wcv38.fsf@de.uu.net>

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

diff --git a/t/op/pack.t b/t/op/pack.t
index d1a8032..6bbd737 100755
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -6,7 +6,7 @@ BEGIN {
     require './test.pl';
 }
 
-plan tests => 1476;
+plan tests => 1477;
 
 use strict;
 use warnings;
@@ -116,6 +116,12 @@ sub list_eq ($$) {
 
     is(scalar(@y), 2);
     is($y[1], 130);
+    $x = pack('w*', 5000000000); $y = '';
+    eval {
+    use Math::BigInt;
+    $y = pack('w*', Math::BigInt::->new(5000000000));
+    };
+    is($x, $y);
 }