[libmath-prime-util-perl] 15/17: Testing changes for release
Partha P. Mukherjee
ppm-guest at moszumanska.debian.org
Thu May 21 18:47:14 UTC 2015
This is an automated email from the git hooks/post-receive script.
ppm-guest pushed a commit to annotated tag v0.21
in repository libmath-prime-util-perl.
commit f27df65258a6e4b63a8bdd4081e9daa05829f86c
Author: Dana Jacobsen <dana at acm.org>
Date: Fri Feb 22 20:11:07 2013 -0800
Testing changes for release
---
t/31-threading.t | 3 ++-
t/81-bignum.t | 5 ++++-
2 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/t/31-threading.t b/t/31-threading.t
index d968a65..cf182df 100644
--- a/t/31-threading.t
+++ b/t/31-threading.t
@@ -110,7 +110,8 @@ thread_test(
{
my $seed = 1;
sub mysrand { $seed = $_[0]; }
- sub rand { $seed = (1103515245*$seed + 12345) % 4294967296; $seed/4294967296.0; }
+ sub irand { $seed = (1103515245*$seed + 12345) % 4294967296; }
+ prime_set_config( irand => \&irand );
}
thread_test(
diff --git a/t/81-bignum.t b/t/81-bignum.t
index 9f88a51..d7bfba8 100644
--- a/t/81-bignum.t
+++ b/t/81-bignum.t
@@ -143,7 +143,10 @@ foreach my $n (@proveprimes) {
###############################################################################
-is_deeply( primes(2**66, 2**66+100), [73786976294838206473,73786976294838206549], "primes( 2^66, 2^66 + 100 )" );
+# Used to be (2**66, 2**66+100), but old ActiveState chokes for some reason.
+is_deeply( primes(73786976294838206464, 73786976294838206564),
+ [73786976294838206473,73786976294838206549],
+ "primes( 2^66, 2^66 + 100 )" );
###############################################################################
--
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