[libmath-prime-util-perl] 15/25: Remove two tests obsoleted by new BigInt behavior
Partha P. Mukherjee
ppm-guest at moszumanska.debian.org
Thu May 21 18:50:38 UTC 2015
This is an automated email from the git hooks/post-receive script.
ppm-guest pushed a commit to annotated tag v0.35
in repository libmath-prime-util-perl.
commit 7953a905c020634b48f3df39b484301db9de67fe
Author: Dana Jacobsen <dana at acm.org>
Date: Thu Dec 5 16:26:35 2013 -0800
Remove two tests obsoleted by new BigInt behavior
---
t/10-isprime.t | 10 ----------
t/15-probprime.t | 10 ----------
2 files changed, 20 deletions(-)
diff --git a/t/10-isprime.t b/t/10-isprime.t
index 855d807..2dcaa7f 100644
--- a/t/10-isprime.t
+++ b/t/10-isprime.t
@@ -78,7 +78,6 @@ plan tests => 6 # range
+ 1 # small numbers
+ scalar @composites
+ scalar @primes
- + 1 # 32-bit or 64-bit edge
+ 0;
ok(!eval { is_prime(undef); }, "is_prime(undef)");
@@ -107,12 +106,3 @@ foreach my $n (@composites) {
foreach my $n (@primes) {
is( is_prime($n), 2, "$n is definitely prime" );
}
-
-# Check that we do the right thing near the word-size edge
-Math::Prime::Util::prime_set_config(gmp=>0);
-SKIP: {
- skip "Skipping 64-bit edge case on broken 64-bit Perl", 1 if $use64 && $broken64;
- skip "Skipping ~0 + delta because we have Math::BigInt loaded", 1 if defined $Math::BigInt::VERSION;
- eval { is_prime( $use64 ? "18446744073709551629" : "4294967306" ); };
- like($@, qr/range/i, "is_prime on ~0 + delta without bigint should croak");
-}
diff --git a/t/15-probprime.t b/t/15-probprime.t
index d765f7a..b548676 100644
--- a/t/15-probprime.t
+++ b/t/15-probprime.t
@@ -77,7 +77,6 @@ plan tests => 6 # range
+ 1 # small numbers
+ scalar @composites
+ scalar @primes
- + 1 # 32-bit or 64-bit edge
+ 0;
ok(!eval { is_prob_prime(undef); }, "is_prob_prime(undef)");
@@ -106,12 +105,3 @@ foreach my $n (@composites) {
foreach my $n (@primes) {
is( is_prob_prime($n), 2, "$n is definitely prime" );
}
-
-# Check that we do the right thing near the word-size edge
-Math::Prime::Util::prime_set_config(gmp=>0);
-SKIP: {
- skip "Skipping 64-bit edge case on broken 64-bit Perl", 1 if $use64 && $broken64;
- skip "Skipping ~0 + delta because we have Math::BigInt loaded", 1 if defined $Math::BigInt::VERSION;
- eval { is_prob_prime( $use64 ? "18446744073709551629" : "4294967306" ); };
- like($@, qr/range/i, "is_prob_prime on ~0 + delta without bigint should croak");
-}
--
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