diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2001-01-24 14:06:57 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-25 04:16:32 +0000 |
| commit | f216259dc50e3a06164781e025bbb486cdc1dbaa (patch) | |
| tree | e8ed6fb1558ef7ad342bdb1e96cef33c01c92f07 /t/lib/bigintpm.t | |
| parent | f2766b05f6136cc9e8c8812afdbe7a31657a110d (diff) | |
| download | perl-f216259dc50e3a06164781e025bbb486cdc1dbaa.tar.gz | |
overload int()
Message-ID: <20010124190657.A8512@math.ohio-state.edu>
p4raw-id: //depot/perl@8545
Diffstat (limited to 't/lib/bigintpm.t')
| -rwxr-xr-x | t/lib/bigintpm.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/t/lib/bigintpm.t b/t/lib/bigintpm.t index e76f246f18..dac6f5f4a0 100755 --- a/t/lib/bigintpm.t +++ b/t/lib/bigintpm.t @@ -9,7 +9,7 @@ use Math::BigInt; $test = 0; $| = 1; -print "1..278\n"; +print "1..283\n"; while (<DATA>) { chop; if (s/^&//) { @@ -25,6 +25,8 @@ while (<DATA>) { $try .= "-\$x;"; } elsif ($f eq "babs") { $try .= "abs \$x;"; + } elsif ($f eq "bint") { + $try .= "int \$x;"; } else { $try .= "\$y = new Math::BigInt \"$args[1]\";"; if ($f eq "bcmp"){ @@ -375,3 +377,9 @@ abc:NaN +0:-1 +8:-9 +281474976710656:-281474976710657 +&bint ++0:+0 ++1:+1 ++11111111111111111234:+11111111111111111234 +-1:-1 +-11111111111111111234:-11111111111111111234 |