diff options
author | Ulrich Pfeifer <pfeifer@wait.de> | 2002-02-20 12:21:15 +0100 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-20 15:08:06 +0000 |
commit | a6c48a57b9ba63a7a72da88b9735f59a6e97a38e (patch) | |
tree | 4cc008dfe4bc4f7dd4d68c89ede9ff4c036d0e3c /t | |
parent | 7ba7f87b16f989948a9a7596cc8be80b0343a700 (diff) | |
download | perl-a6c48a57b9ba63a7a72da88b9735f59a6e97a38e.tar.gz |
Re: [ID 20020220.001] pack w with objects
Message-ID: <p5g03wcv38.fsf@de.uu.net>
p4raw-id: //depot/perl@14790
Diffstat (limited to 't')
-rwxr-xr-x | t/op/pack.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/op/pack.t b/t/op/pack.t index d1a8032beb..6bbd737d0a 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); } |