Peter Prymmer wrote:
>
> not ok 1145
> # Test 1145 got: '-176544' (lib/Math/BigInt/t/bigintpm.t at line 359)
> # Expected: '23456'
That is this pair of tests:
###############################################################################
# bug in sub where number with at least 6 trailing zeros after any op
failed
$x = Math::BigInt->new(123456); $z = Math::BigInt->new(10000); $z *= 10;
$x -= $z;
ok ($z, 100000);
ok ($x, 23456);
So I guess that would point the finger at "-=" which is apparently
subtracting 300000 from $x!
Peter, could you change that to:
$x = $x - $z;
and see if you get the same answer? I cannot see anything in the code
which would explain why you are getting that error. It certainly has
small enough values to be stored in a conventional int. I am not
seeing a failure here under Cygwin.
John
--
John Peacock
Director of Information Research and Technology
Rowman & Littlefield Publishing Group
4720 Boston Way
Lanham, MD 20706
301-459-3366 x.5010
fax 301-429-5747
