[libmath-prime-util-perl] 13/55: Update benchmark

[Partha P. Mukherjee]

This is an automated email from the git hooks/post-receive script.

ppm-guest pushed a commit to annotated tag v0.41
in repository libmath-prime-util-perl.

commit 413ed835f8fb6c92f2331598cc920421a4aa4a49
Author: Dana Jacobsen <dana at acm.org>
Date:   Wed Apr 30 12:10:14 2014 -0700

    Update benchmark
---
 bench/bench-mp-psrp.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/bench/bench-mp-psrp.pl b/bench/bench-mp-psrp.pl
index 337d5ae..f232651 100755
--- a/bench/bench-mp-psrp.pl
+++ b/bench/bench-mp-psrp.pl
@@ -3,6 +3,7 @@ use strict;
 use warnings;
 use Math::Prime::Util;
 use Math::Prime::Util::GMP;
+use Math::Prime::Util::PP;
 use Math::Primality;
 use Benchmark qw/:all/;
 use List::Util qw/min max/;
@@ -23,7 +24,7 @@ sub test_at_digits {
   cmpthese($count,{
     'MP'      =>sub {Math::Primality::is_strong_pseudoprime($_,3) for @nums;},
     'MPU'     =>sub {Math::Prime::Util::is_strong_pseudoprime($_,3) for @nums;},
-    'MPU PP'  =>sub {Math::Prime::Util::PP::miller_rabin($_,3) for @nums;},
+    'MPU PP'  =>sub {Math::Prime::Util::PP::is_strong_pseudoprime($_,3) for @nums;},
     'MPU GMP' =>sub {Math::Prime::Util::GMP::is_strong_pseudoprime($_,3) for @nums;},
   });
 }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git