diff options
| author | Tels <nospam-abuse@bloodgate.com> | 2007-02-03 14:42:20 +0100 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2007-02-19 19:27:27 +0000 |
| commit | 95a2d02cdf2a29fa62cf928c06bf47a38a6c680d (patch) | |
| tree | 63e51443b5f35d078015beb8e2eb1a3b843a2ebb /lib/bignum/t/bigint.t | |
| parent | b8884ce4af9d0f622732315808561f174bd9be0c (diff) | |
| download | perl-95a2d02cdf2a29fa62cf928c06bf47a38a6c680d.tar.gz | |
integrate bignum 0.19
Message-Id: <200702031342.21634@bloodgate.com>
p4raw-id: //depot/perl@30360
Diffstat (limited to 'lib/bignum/t/bigint.t')
| -rwxr-xr-x | lib/bignum/t/bigint.t | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/lib/bignum/t/bigint.t b/lib/bignum/t/bigint.t index b0c8f39dd4..03fb11bebe 100755 --- a/lib/bignum/t/bigint.t +++ b/lib/bignum/t/bigint.t @@ -10,7 +10,7 @@ BEGIN $| = 1; chdir 't' if -d 't'; unshift @INC, '../lib'; - plan tests => 32; + plan tests => 36; } use bigint; @@ -40,7 +40,19 @@ foreach (qw/ { my ($x,$y) = split /:/; print "# Try $x\n"; - ok (bigint::_constant("$x"),"$y"); + ok (bigint::_float_constant("$x"),"$y"); + } + +foreach (qw/ + 0100:64 + 0200:128 + 0x100:256 + 0b1001:9 + /) + { + my ($x,$y) = split /:/; + print "# Try $x\n"; + ok (bigint::_binary_constant("$x"),"$y"); } ############################################################################### |