[libmath-prime-util-perl] 145/181: More tests run on 5.6.2 64-bit now

[Partha P. Mukherjee]

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

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

commit 4670b909933c19aa7ca0bb0a996e21fba4113ba2
Author: Dana Jacobsen <dana at acm.org>
Date:   Wed Jan 8 19:37:40 2014 -0800

    More tests run on 5.6.2 64-bit now
---
 t/16-randomprime.t |  2 +-
 t/17-pseudoprime.t |  5 ++---
 t/20-primorial.t   | 10 ++--------
 3 files changed, 5 insertions(+), 12 deletions(-)

diff --git a/t/16-randomprime.t b/t/16-randomprime.t
index ac41023..3fd3205 100644
--- a/t/16-randomprime.t
+++ b/t/16-randomprime.t
@@ -24,7 +24,7 @@ push @random_nbit_tests, (34) if $use64;
 my @random_ndigit_tests = (1 .. ($use64 ? 20 : 10));
 
 if ($use64 && $broken64) {
-  diag "Skipping some values with broken 64-bit Perl\n";
+  diag "Skipping some tests with broken 64-bit Perl\n";
   @random_ndigit_tests = grep { $_ < 10 } @random_ndigit_tests;
   @random_nbit_tests = grep { $_ < 50 } @random_nbit_tests;
 }
diff --git a/t/17-pseudoprime.t b/t/17-pseudoprime.t
index 488ba59..978e5f6 100644
--- a/t/17-pseudoprime.t
+++ b/t/17-pseudoprime.t
@@ -213,8 +213,7 @@ while (my($params, $expect) = each (%lucas_sequences)) {
   is_deeply( [lucas_sequence(split(' ', $params))], $expect, "Lucas sequence $params" );
 }
 
-SKIP: {
-  skip "Old Perl+bigint segfaults in F-U code",1+2*$use64 if $] < 5.008;
+{
   my $fufail = 0;
   my $ntests = ($usexs) ? 100 : 2;
   foreach my $i (1 .. $ntests) {
@@ -228,7 +227,7 @@ SKIP: {
   }
   is($fufail, 0, "is_frobenius_underwood_pseudoprime matches is_prime");
   if ($use64) {
-    is( is_frobenius_underwood_pseudoprime(2727480595375747), 1, "frobenius with 52-bit prime" );
+    is( is_frobenius_underwood_pseudoprime("2727480595375747"), 1, "frobenius with 52-bit prime" );
     is( is_frobenius_underwood_pseudoprime(10099386070337), 0, "frobenius with 44-bit lucas pseudoprime" );
   }
 }
diff --git a/t/20-primorial.t b/t/20-primorial.t
index c575c85..afe1f89 100644
--- a/t/20-primorial.t
+++ b/t/20-primorial.t
@@ -5,8 +5,6 @@ use warnings;
 use Test::More;
 use Math::Prime::Util qw/primorial pn_primorial/;
 
-my $broken64 = (18446744073709550592 == ~0);
-
 my @pn_primorials = qw/
 1
 2
@@ -63,12 +61,8 @@ sub nth_prime {
 }
 
 foreach my $n (0 .. $#pn_primorials) {
-  SKIP: {
-    skip "Primorials for 14,15 are broken when Perl is borked", 2
-         if $broken64 && $n >= 14 && $n <= 15;
-    is( primorial(nth_prime($n)), $pn_primorials[$n], "primorial(nth($n))" );
-    is( pn_primorial($n), $pn_primorials[$n], "pn_primorial($n)" );
-  }
+  is( primorial(nth_prime($n)), $pn_primorials[$n], "primorial(nth($n))" );
+  is( pn_primorial($n), $pn_primorials[$n], "pn_primorial($n)" );
 }
 
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git