This is an automated email from the git hooks/post-receive script. ppm-guest pushed a commit to annotated tag v0.33 in repository libmath-prime-util-perl.
commit 3117ccc73880e9c26e53a84b9fb89443287f481f Author: Dana Jacobsen <d...@acm.org> Date: Mon Nov 18 12:14:16 2013 -0800 Quote 0 in two tests, 5.8.2 use bigint treats 0 = NaN --- t/81-bignum.t | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/t/81-bignum.t b/t/81-bignum.t index 99dc9bc..f84b3e8 100644 --- a/t/81-bignum.t +++ b/t/81-bignum.t @@ -228,7 +228,8 @@ SKIP: { my $hundredfac = Math::BigInt->new(100)->bfac; is( divisor_sum($hundredfac), 774026292208877355243820142464115597282472420387824628823543695735957009720184359087194959566149232506852422409529601312686157396490982598473425595924480000000, "Divisor sum of 100!" ); # These should yield bigint results. - is( divisor_sum(pn_primorial(71),0), 2361183241434822606848, "Divisor count(353#)" ); + # Quoted 0 to prevent error in perl 5.8.2 + bigint 0.23 (0 turns into NaN) + is( divisor_sum(pn_primorial(71),"0"), 2361183241434822606848, "Divisor count(353#)" ); is( divisor_sum(pn_primorial(71),1), 592169807666179080336898884075191344863843751107274613826065194910163387683715846870630955555390054490059876013007363004327526400000000000000000, "Divisor sum(353#)" ); is( divisor_sum(pn_primorial(71),2), "12949784465615028275107011121945805610528825503288465119226912396970037707579655747291137846306343809131200618880146749230653882973421307691846381555612687582146340434261447200658536708625570145324567757917046739100833453606420350207262720000000000000000000000000000000000000000000000000", "sigma_2(353#)" ); # Calc/FastCalc are slugs with this function, so tone things down. @@ -280,7 +281,7 @@ SKIP: { $randprime = random_nbit_prime(80); is( miller_rabin_random( $randprime, 20 ), 1, "80-bit prime passes Miller-Rabin with 20 random bases" ); $randprime += 2 while is_prime($randprime); -is( miller_rabin_random( $randprime, 40 ), 0, "80-bit composite fails Miller-Rabin with 40 random bases" ); +is( miller_rabin_random( $randprime, 40 ), "0", "80-bit composite fails Miller-Rabin with 40 random bases" ); ############################################################################### -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits