[libmath-prime-util-perl] 15/17: Testing changes for release

[Partha P. Mukherjee]

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