This is an automated email from the git hooks/post-receive script. ppm-guest pushed a commit to annotated tag v0.27 in repository libmath-prime-util-perl.
commit 90153563766c2e43658f26c50ab7b286ecdfb2af Author: Dana Jacobsen <d...@acm.org> Date: Tue May 14 16:12:46 2013 -0700 Increase coverage --- t/50-factoring.t | 6 ++++-- t/80-pp.t | 12 ++++++++++-- 2 files changed, 14 insertions(+), 4 deletions(-) diff --git a/t/50-factoring.t b/t/50-factoring.t index 2d367a7..86fded8 100644 --- a/t/50-factoring.t +++ b/t/50-factoring.t @@ -74,7 +74,7 @@ my %all_factors = ( 0 => [], ); -plan tests => (2 * scalar @testn) + scalar(keys %all_factors) + 10*8; +plan tests => (2 * scalar @testn) + scalar(keys %all_factors) + 10*8 + 1; foreach my $n (@testn) { my @f = factor($n); @@ -107,6 +107,9 @@ extra_factor_test("pbrent_factor", sub {Math::Prime::Util::pbrent_factor(shift)} extra_factor_test("prho_factor", sub {Math::Prime::Util::prho_factor(shift)}); extra_factor_test("pminus1_factor",sub {Math::Prime::Util::pminus1_factor(shift)}); +# To hit some extra coverage +is_deeply( [Math::Prime::Util::trial_factor(5514109)], [2203,2503], "trial factor 2203*2503" ); + sub extra_factor_test { my $fname = shift; my $fsub = shift; @@ -122,4 +125,3 @@ sub extra_factor_test { is_deeply( [ sort {$a<=>$b} $fsub->(403) ], [13, 31], "$fname(403)" ); is_deeply( [ sort {$a<=>$b} $fsub->(549900) ], [2,2,3,3,5,5,13,47], "$fname(549900)" ); } - diff --git a/t/80-pp.t b/t/80-pp.t index 06f7c92..fe4e85e 100644 --- a/t/80-pp.t +++ b/t/80-pp.t @@ -54,6 +54,7 @@ my %pseudoprimes = ( 37 => [ qw/9 451 469 589 685 817 1333 3781 8905 9271 18631 19517 20591 25327 34237 45551 46981 47587 48133 59563 61337 68101 68251 73633 79381 79501 83333 84151 96727/ ], 61 => [ qw/217 341 1261 2701 3661 6541 6697 7613 13213 16213 22177 23653 23959 31417 50117 61777 63139 67721 76301 77421 79381 80041/ ], 73 => [ qw/205 259 533 1441 1921 2665 3439 5257 15457 23281 24617 26797 27787 28939 34219 39481 44671 45629 64681 67069 76429 79501 93521/ ], + lucas => [ qw/5459 5777 10877 16109 18971 22499 24569 25199 40309 58519 75077 97439/ ], ); # Test a pseudoprime larger than 2^32. push @{$pseudoprimes{2}}, 75792980677 if $use64; @@ -216,7 +217,7 @@ my %rvals = ( plan tests => 1 + - 2 + + 3 + 3 + scalar(keys %small_single) + scalar(keys %small_range) + 2*scalar(keys %primegaps) + 8 + 1 + 1 + 1 + scalar(keys %pivals_small) + scalar(keys %pi_intervals) + @@ -242,6 +243,7 @@ require_ok 'Math::Prime::Util::PP'; *next_prime = \&Math::Prime::Util::PP::next_prime; *prev_prime = \&Math::Prime::Util::PP::prev_prime; + *is_strong_lucas_pseudoprime = \&Math::Prime::Util::PP::is_strong_lucas_pseudoprime; *miller_rabin = \&Math::Prime::Util::PP::miller_rabin; *is_aks_prime = \&Math::Prime::Util::PP::is_aks_prime; @@ -269,6 +271,10 @@ $_ = 'this should not change'; is_deeply( \@isprime, \@exprime, "is_prime for selected numbers" ); } +is_deeply( Math::Prime::Util::PP::trial_primes(80), + [2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79], + "Trial primes 2-80" ); + ############################################################################### is_deeply( primes(1069), \@small_primes, "Primes between 0 and 1069" ); @@ -352,7 +358,9 @@ is( miller_rabin(3, 2), 1, "MR with 3 shortcut prime"); while (my($base, $ppref) = each (%pseudoprimes)) { my $npseudos = scalar @$ppref; my @expmr = map { 1 } @$ppref; - my @gotmr = map { miller_rabin($_, $base) } @$ppref; + my @gotmr; + if ($base eq 'lucas') { @gotmr = map { is_strong_lucas_pseudoprime($_) } @$ppref; } + else { @gotmr = map { miller_rabin($_, $base) } @$ppref; } is_deeply(\@gotmr, \@expmr, "$npseudos pseudoprimes (base $base)"); } -- 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