summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorUlrich Pfeifer <pfeifer@wait.de>2002-02-20 12:21:15 +0100
committerJarkko Hietaniemi <jhi@iki.fi>2002-02-20 15:08:06 +0000
commita6c48a57b9ba63a7a72da88b9735f59a6e97a38e (patch)
tree4cc008dfe4bc4f7dd4d68c89ede9ff4c036d0e3c /t
parent7ba7f87b16f989948a9a7596cc8be80b0343a700 (diff)
downloadperl-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-xt/op/pack.t8
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);
}