[libmath-prime-util-perl] 14/16: Fiddle with Makefile.PL
Partha P. Mukherjee
ppm-guest at moszumanska.debian.org
Thu May 21 18:44:35 UTC 2015
This is an automated email from the git hooks/post-receive script.
ppm-guest pushed a commit to annotated tag v0.08
in repository libmath-prime-util-perl.
commit 93349516050d3a60570f6bd45cc3c03b0ca82c69
Author: Dana Jacobsen <dana at acm.org>
Date: Fri Jun 22 00:13:39 2012 -0600
Fiddle with Makefile.PL
---
Makefile.PL | 2 ++
t/31-threading.t | 21 +++++++++++----------
2 files changed, 13 insertions(+), 10 deletions(-)
diff --git a/Makefile.PL b/Makefile.PL
index f11bea2..1c8925f 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -12,6 +12,7 @@ WriteMakefile1(
'sieve.o ' .
'util.o ' .
'XS.o',
+ LIBS => ['-lm'],
BUILD_REQUIRES => {
'Test::More' => '0.45',
@@ -21,6 +22,7 @@ WriteMakefile1(
'XSLoader' => '0.01',
'Carp' => 0,
'Tie::Array' => 0,
+ 'base' => 0,
},
MIN_PERL_VERSION => 5.006002,
diff --git a/t/31-threading.t b/t/31-threading.t
index 8959276..ec1704f 100644
--- a/t/31-threading.t
+++ b/t/31-threading.t
@@ -17,46 +17,47 @@ BEGIN {
use Test::More 'tests' => 9;
use Math::Prime::Util ":all";
+my $numthreads = 8;
srand(50);
my @randn;
-push @randn, rand(100000) for (0..37);
+push @randn, rand(100000) for (0..377);
thread_test(
sub { my $sum = 0; $sum += prime_count($_) for (@randn); return $sum;},
- 8, "sum prime_count");
+ $numthreads, "sum prime_count");
thread_test(
sub { my $sum = 0; for (@randn) {$sum += prime_count($_); prime_memfree; } return $sum;},
- 8, "sum prime_count with overlapping memfree calls");
+ $numthreads, "sum prime_count with overlapping memfree calls");
thread_test(
sub { my $sum = 0; for my $d (@randn) { for my $f (factor($d)) { $sum += $f; } } return $sum; },
- 8, "factor");
+ $numthreads, "factor");
thread_test(
sub { my $sum = 0; $sum += nth_prime($_) for (@randn); return $sum;},
- 8, "nth_prime");
+ $numthreads, "nth_prime");
thread_test(
sub { my $sum = 0; $sum += next_prime($_) for (@randn); return $sum;},
- 8, "next_prime");
+ $numthreads, "next_prime");
thread_test(
sub { my $sum = 0; $sum += prev_prime($_) for (@randn); return $sum;},
- 8, "prev_prime");
+ $numthreads, "prev_prime");
thread_test(
sub { my $sum = 0; $sum += is_prime($_) for (@randn); return $sum;},
- 8, "is_prime");
+ $numthreads, "is_prime");
thread_test(
sub { my $sum = 0; for (@randn) { srand($_); $sum += random_ndigit_prime(6); } return $sum;},
- 8, "random 7-digit prime");
+ $numthreads, "random 7-digit prime");
thread_test(
sub { my $sum = 0; $sum += int(RiemannR($_)) for (@randn); return $sum;},
- 8, "RiemannR");
+ $numthreads, "RiemannR");
sub thread_test {
my $tsub = shift;
--
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