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

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

commit 91a9d1c20a72c2b6b4b452717e0493817b126efc
Author: Dana Jacobsen <d...@acm.org>
Date:   Fri Dec 21 23:37:32 2012 -0800

    Don't run the long AKS test on any 32-bit platform
---
 Makefile.PL            | 2 +-
 lib/Math/Prime/Util.pm | 5 +----
 t/22-aks-prime.t       | 6 +++++-
 3 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/Makefile.PL b/Makefile.PL
index c81d6a6..27629f9 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -20,7 +20,7 @@ WriteMakefile1(
 
     BUILD_REQUIRES=>{
                       'Test::More'       => '0.45',
-                      'bignum'           => '0.22',   # Used for bigint tests
+                      'bignum'           => '0.22',   # 'use bigint' in tests
                     },
     PREREQ_PM    => {
                       'Exporter'         => '5.562',
diff --git a/lib/Math/Prime/Util.pm b/lib/Math/Prime/Util.pm
index efcfe03..7156271 100644
--- a/lib/Math/Prime/Util.pm
+++ b/lib/Math/Prime/Util.pm
@@ -518,10 +518,7 @@ sub primes {
           $U = ($irandf->() << 32) + $irandf->();
         } while $U >= (18446744073709551615 - $remainder);
       }
-      #return $U % $range;
-      $U %= $range;
-      die "random failure: $max $U\n" if $U > $max;
-      return $U;
+      return $U % $range;
     };
     return $randf;
   }
diff --git a/t/22-aks-prime.t b/t/22-aks-prime.t
index b736a58..9d1811a 100644
--- a/t/22-aks-prime.t
+++ b/t/22-aks-prime.t
@@ -35,7 +35,11 @@ is( is_aks_prime(877), 1, "is_aks_prime(877) is true" );
 #diag "Unfortunately these tests are very slow.";
 
 SKIP: {
-  skip "Skipping PP AKS on 32-bit -- just too slow.", 1 if $ispp && !$use64;
+  # If we're pure Perl, then this is definitely too slow.  If we have 64-bit
+  # available in the compiler (e.g. uint64_t) , this can still be quite fast.
+  # However for pretty much everyone else, this is just unreasonably slow
+  # for a standard test suite.
+  skip "Skipping PP AKS on 32-bit -- just too slow.", 1 if !$use64;
   # The first number that makes it past the sqrt test to actually run.
   is( is_aks_prime(69197), 1, "is_aks_prime(69197) is true" );
 }

-- 
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