[libmath-prime-util-perl] 145/181: More tests run on 5.6.2 64-bit now
Partha P. Mukherjee
ppm-guest at moszumanska.debian.org
Thu May 21 18:51:15 UTC 2015
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
More information about the Pkg-perl-cvs-commits
mailing list