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

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

commit 9b97f8abfe139ff3ab27980c0e66404f61d3ba5a
Author: Dana Jacobsen <d...@acm.org>
Date:   Mon Nov 26 00:37:50 2012 -0800

    Skip 15+ digit tests on broken 5.6.2.  Workaround bug in Math::BigInt in 
extra tests.
---
 t/16-randomprime.t | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/t/16-randomprime.t b/t/16-randomprime.t
index da06444..ad493ba 100644
--- a/t/16-randomprime.t
+++ b/t/16-randomprime.t
@@ -11,6 +11,7 @@ use Math::Prime::Util qw/random_prime random_ndigit_prime 
random_nbit_prime
 
 my $use64 = Math::Prime::Util::prime_get_config->{'maxbits'} > 32;
 my $extra = defined $ENV{RELEASE_TESTING} && $ENV{RELEASE_TESTING};
+my $broken64 = (18446744073709550592 == ~0);
 my $maxbits = $use64 ? 64 : 32;
 
 my @random_to = (2, 3, 4, 5, 6, 7, 8, 9, 100, 1000, 1000000, 4294967295);
@@ -135,6 +136,14 @@ foreach my $high (@random_to) {
   ok($inrange, "All returned values for $high were in the range" );
 }
 
+SKIP: {
+  if ($use64 && $broken64) {
+    my $num_ndigit_tests = scalar @random_ndigit_tests;
+    @random_ndigit_tests = grep { $_ < 15 } @random_ndigit_tests;
+    my $nskip = $num_ndigit_tests - scalar @random_ndigit_tests;
+    skip "Skipping random 15+ digit primes on broken 64-bit Perl", $nskip;
+  }
+}
 foreach my $digits ( @random_ndigit_tests ) {
   my $n = random_ndigit_prime($digits);
   ok ( length($n) == $digits && is_prime($n),
@@ -150,6 +159,7 @@ sub check_bits {
   my($n, $bits, $what) = @_;
   my $min = 1 << ($bits-1);
   my $max = ~0 >> ($maxbits - $bits);
+  $max = Math::BigInt->new("$max") if ref($n) eq 'Math::BigInt';
   ok ( $n >= $min && $n <= $max && is_prime($n),
        "$bits-bit random $what prime is in range and prime");
 }

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

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to