This is an automated email from the git hooks/post-receive script.
ppm-guest pushed a commit to annotated tag v0.35
in repository libmath-prime-util-perl.
commit 87fa96f61e6d5f995c94d3098d8a510101f21302
Author: Dana Jacobsen <d...@acm.org>
Date: Wed Nov 20 19:01:12 2013 -0800
Tests hit by Math::BigInt::GMP bug. Work around.
---
lib/Math/Prime/Util.pm | 2 +-
t/14-nthprime.t | 6 +++---
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/lib/Math/Prime/Util.pm b/lib/Math/Prime/Util.pm
index 25e5995..6f762c2 100644
--- a/lib/Math/Prime/Util.pm
+++ b/lib/Math/Prime/Util.pm
@@ -2400,7 +2400,7 @@ sub nth_prime_upper {
return $_primes_small[$n] if $n <= $#_primes_small;
$n = _upgrade_to_float($n)
- if ref($n) eq 'Math::BigInt' || $n >= $_Config{'maxprimeidx'};
+ if ref($n) eq 'Math::BigInt' || $n > $_Config{'maxprimeidx'};
my $flogn = log($n);
my $flog2n = log($flogn); # Note distinction between log_2(n) and log^2(n)
diff --git a/t/14-nthprime.t b/t/14-nthprime.t
index d3b7438..74fa023 100644
--- a/t/14-nthprime.t
+++ b/t/14-nthprime.t
@@ -96,9 +96,9 @@ if ($use64) {
}
}
-my $maxindex = $use64 ? 425656284035217743 : 203280221;
-my $maxindexp1 = $use64 ? 425656284035217744 : 203280222;
-my $maxprime = $use64 ? 18446744073709551557 : 4294967291;
+my $maxindex = $use64 ? '425656284035217743' : '203280221';
+my $maxindexp1 = $use64 ? '425656284035217744' : '203280222';
+my $maxprime = $use64 ? '18446744073709551557' : '4294967291';
cmp_ok( nth_prime_lower($maxindex), '<=', $maxprime,
"nth_prime_lower(maxindex) <= maxprime");
cmp_ok( nth_prime_upper($maxindex), '>=', $maxprime,
"nth_prime_upper(maxindex) >= maxprime");
cmp_ok( nth_prime_lower($maxindexp1), '>=', nth_prime_lower($maxindex),
"nth_prime_lower(maxindex+1) >= nth_prime_lower(maxindex)");
--
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
