X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fbignum%2Ft%2Fbigint.t;h=03fb11bebe0731cc1e9fd387721cf43833627cd7;hb=95a2d02cdf2a29fa62cf928c06bf47a38a6c680d;hp=b0c8f39dd4026961bbc0feb69a2c3347d58a97c3;hpb=b8884ce4af9d0f622732315808561f174bd9be0c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/bignum/t/bigint.t b/lib/bignum/t/bigint.t
index b0c8f39..03fb11b 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");
   }
 
 ###############################################################################