[libmath-prime-util-perl] 15/25: Remove two tests obsoleted by new BigInt behavior

[Partha P. Mukherjee]

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