[libmath-prime-util-perl] 45/54: Allow threading failures with diagnostics
Partha P. Mukherjee
ppm-guest at moszumanska.debian.org
Thu May 21 18:52:11 UTC 2015
This is an automated email from the git hooks/post-receive script.
ppm-guest pushed a commit to annotated tag v0.38
in repository libmath-prime-util-perl.
commit b779d4a6f5f8b8c685078179e0ffce36bfa42c07
Author: Dana Jacobsen <dana at acm.org>
Date: Thu Feb 27 15:03:14 2014 -0800
Allow threading failures with diagnostics
---
Changes | 8 +++++++-
t/31-threading.t | 9 ++++++++-
2 files changed, 15 insertions(+), 2 deletions(-)
diff --git a/Changes b/Changes
index 78b1691..1f0eb34 100644
--- a/Changes
+++ b/Changes
@@ -8,7 +8,7 @@ Revision history for Perl module Math::Prime::Util
[FUNCTIONALITY AND PERFORMANCE]
- - Factoring powers is much faster.
+ - Factoring powers (and k*n^m for small k) is much faster.
- Add Bernstein+Voloch improvements to AKS. Much faster than the v6
implementation, though still terribly slow vs. BPSW or other proofs.
@@ -17,6 +17,12 @@ Revision history for Perl module Math::Prime::Util
- Added some Project Euler examples.
+ - If using a threaded Perl without EXTENDED_TESTING, thread tests will
+ print diagnostics instead of failing. This might help find issues
+ with platforms that are currently failing with no indications, and
+ allow installation for non-threaded use.
+
+
0.37 2014-01-26
[FUNCTIONALITY AND PERFORMANCE]
diff --git a/t/31-threading.t b/t/31-threading.t
index cb7db87..6cbb1ac 100644
--- a/t/31-threading.t
+++ b/t/31-threading.t
@@ -134,5 +134,12 @@ sub thread_test {
$seq_sum += $tsub->() for (1..$nthreads);
prime_memfree;
- is($par_sum, $seq_sum, "$nthreads threads $text");
+ SKIP: {
+ # If not doing extended testing, allow these to fail with a note.
+ if (!$extra && $par_sum != $seq_sum) {
+ diag "Threading test $text got $par_sum, expected $seq_sum";
+ skip "Threading failure", 1;
+ }
+ is($par_sum, $seq_sum, "$nthreads threads $text");
+ }
}
--
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