[perl-ldap-checkins] CVS: asn/t 06bigint.t,1.4,1.5

[Graham B. <gb...@us...>]

Update of /cvsroot/perl-ldap/asn/t
In directory usw-pr-cvs1:/tmp/cvs-serv24089/t

Modified Files:
	06bigint.t 
Log Message:
Be safer in creating BigInt objects


Index: 06bigint.t
===================================================================
RCS file: /cvsroot/perl-ldap/asn/t/06bigint.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- 06bigint.t	2001/09/22 00:14:11	1.4
+++ 06bigint.t	2002/01/21 20:00:11	1.5
@@ -70,8 +70,7 @@
 
 
 ## Test most-significant bit bug in 0.09.
-$num = 
-Math::BigInt->new("1333280603684579469575805266526464216433260889799");
+$num =  Math::BigInt->new("1333280603684579469575805266526464216433260889799");
 $result = pack("C*", 0x2,  0x15, 0x00, 0xe9, 0x8a, 0x5e, 0xb8, 0x3a,
                      0xfa, 0x3d, 0x4,  0x13, 0x7d, 0x19, 0xfc, 0x39,
                      0x36, 0xa3, 0x2b, 0xd2, 0x22, 0x06, 0xc7);
@@ -80,8 +79,7 @@
 btest 30, exists $ret->{integer};
 ntest 31, $num, $ret->{integer};
 
-$num = 
-Math::BigInt->new(-1 * (1<<24) * (1<<24));
+$num = Math::BigInt->new(-1 * (1<<24)) * Math::BigInt->new(1<<24);
 $result = pack("C*", 0x2,  0x7, 0xff, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0);
 stest 32, $result, $asn->encode(integer => $num);
 btest 33, $ret = $asn->decode($result);