[libmath-prime-util-perl] 127/181: Right number of extra tests, remove references to old _XS_next_prime
Partha P. Mukherjee
ppm-guest at moszumanska.debian.org
Thu May 21 18:51:13 UTC 2015
This is an automated email from the git hooks/post-receive script.
ppm-guest pushed a commit to annotated tag v0.36
in repository libmath-prime-util-perl.
commit 443caad8921b0e3443a6f941d8c0ae123e981377
Author: Dana Jacobsen <dana at acm.org>
Date: Tue Jan 7 01:41:08 2014 -0800
Right number of extra tests, remove references to old _XS_next_prime
---
lib/Math/Prime/Util.pm | 6 ------
t/81-bignum.t | 4 ++--
2 files changed, 2 insertions(+), 8 deletions(-)
diff --git a/lib/Math/Prime/Util.pm b/lib/Math/Prime/Util.pm
index 3655e0b..906fcd6 100644
--- a/lib/Math/Prime/Util.pm
+++ b/lib/Math/Prime/Util.pm
@@ -1544,9 +1544,6 @@ sub _generic_next_prime {
my($n) = @_;
_validate_num($n) || _validate_positive_integer($n);
- return _XS_next_prime($n)
- if $n <= $_XS_MAXVAL && $n < MPU_MAXPRIME;
-
if ($_HAVE_GMP) {
my $r = Math::Prime::Util::GMP::next_prime($n);
return (ref($n) eq 'Math::BigInt' || $n >= MPU_MAXPRIME)
@@ -1560,9 +1557,6 @@ sub _generic_prev_prime {
my($n) = @_;
_validate_num($n) || _validate_positive_integer($n);
- return _XS_prev_prime($n)
- if $n <= $_XS_MAXVAL;
-
if ($_HAVE_GMP) {
my $r = Math::Prime::Util::GMP::prev_prime($n);
return (ref($n) eq 'Math::BigInt' && $r > MPU_MAXPRIME)
diff --git a/t/81-bignum.t b/t/81-bignum.t
index 5e21c6c..570cb02 100644
--- a/t/81-bignum.t
+++ b/t/81-bignum.t
@@ -76,7 +76,7 @@ plan tests => 0
+ 6*2*$extra # more PC tests
+ 2*scalar(keys %factors)
+ scalar(keys %allfactors)
- + 13+4*$extra # moebius, euler_phi, jordan totient, divsum, etc.
+ + 13+3*$extra # moebius, euler_phi, jordan totient, divsum, etc.
+ 2 # liouville
+ 3 # gcd
+ 3 # lcm
@@ -225,7 +225,7 @@ SKIP: {
###############################################################################
SKIP: {
- skip "Your 64-bit Perl is broken, skipping moebius, totient, etc.", 13+4*$extra if $broken64;
+ skip "Your 64-bit Perl is broken, skipping moebius, totient, etc.", 13+3*$extra if $broken64;
my $n;
$n = 618970019642690137449562110;
is( moebius($n), -1, "moebius($n)" );
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git
More information about the Pkg-perl-cvs-commits
mailing list