diff options
Diffstat (limited to 'cpan/Math-BigInt/t/from_oct-mbf.t')
-rw-r--r-- | cpan/Math-BigInt/t/from_oct-mbf.t | 39 |
1 files changed, 37 insertions, 2 deletions
diff --git a/cpan/Math-BigInt/t/from_oct-mbf.t b/cpan/Math-BigInt/t/from_oct-mbf.t index 685934820c..921ca6878a 100644 --- a/cpan/Math-BigInt/t/from_oct-mbf.t +++ b/cpan/Math-BigInt/t/from_oct-mbf.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 729; +use Test::More tests => 1401; my $class; @@ -69,6 +69,8 @@ for my $entry (@data) { __END__ +# Without "0o" prefix. + 01p+0:1 0.4p+1:1 0.2p+2:1 @@ -96,7 +98,40 @@ __END__ -0.361152746757p+32:-2023406814.9375 44.3212636115p+30:39093746765 +.p+0:NaN + +# With "0o" prefix. + +0o01p+0:1 +0o0.4p+1:1 +0o0.2p+2:1 +0o0.1p+3:1 +0o0.04p+4:1 +0o02p-1:1 +0o04p-2:1 +0o010p-3:1 + +-0o1p+0:-1 + +0o0p+0:0 +0o0p+7:0 +0o0p-7:0 +0o0.p+0:0 +0o.0p+0:0 +0o0.0p+0:0 + +0o145376:51966 +0O145376:51966 +o145376:51966 +O145376:51966 + +0o3.1p+2:12.5 +0o22.15p-1:9.1015625 +-0o0.361152746757p+32:-2023406814.9375 +0o44.3212636115p+30:39093746765 + +0o.p+0:NaN + NaN:NaN +inf:NaN -inf:NaN -.p+0:NaN |