[libmath-prime-util-perl] 07/13: Move a test into xt directory

Partha P. Mukherjee ppm-guest at moszumanska.debian.org
Thu May 21 18:47:42 UTC 2015


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

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

commit 58cd15041a2d15810941b7977a080d560df9de6e
Author: Dana Jacobsen <dana at acm.org>
Date:   Fri Mar 8 04:10:15 2013 -0800

    Move a test into xt directory
---
 MANIFEST                                                  | 2 +-
 examples/test-euler-pari.pl => xt/pari-totient-moebius.pl | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/MANIFEST b/MANIFEST
index b68f0ea..739086d 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -53,7 +53,6 @@ examples/twin_primes.pl
 examples/find_mr_bases.pl
 examples/parallel_fibprime.pl
 examples/test-bpsw.pl
-examples/test-euler-pari.pl
 examples/test-factor-gnufactor.pl
 examples/test-primes-script.pl
 examples/test-primes-script2.pl
@@ -91,6 +90,7 @@ xt/primality-small.pl
 xt/primality-aks.pl
 xt/factor-holf.pl
 xt/make-script-test-data.pl
+xt/pari-totient-moebius.pl
 xt/rwh_primecount.py
 xt/rwh_primecount_numpy.py
 .travis.yml
diff --git a/examples/test-euler-pari.pl b/xt/pari-totient-moebius.pl
similarity index 88%
rename from examples/test-euler-pari.pl
rename to xt/pari-totient-moebius.pl
index 9be3147..2c073af 100755
--- a/examples/test-euler-pari.pl
+++ b/xt/pari-totient-moebius.pl
@@ -6,12 +6,12 @@ $| = 1;  # fast pipes
 use Math::Prime::Util qw/-nobigint/;
 use Math::Pari;
 
-Math::Prime::Util::prime_precalc(10_000_000);
 my $nlinear = 100000;
 my $nrandom = shift || 100000;
 my $randmax = 10**16;
 
-# Looks like MPU is 4x faster than Pari for 1 .. 1M, 5x faster for 1M - 10_000M.
+# Moebius and euler_phi seem about 2-4x faster than Pari.  Also, we have
+# ranged versions that run much faster.
 #
 print "OK for first 1";
 my $dig = 1;

-- 
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