Permalink
Browse files

Add the first number to fail a poly test

  • Loading branch information...
1 parent d45cda4 commit dd9fb91bf0bdbd14a0b2bfc1d0f664ed1dd08342 @danaj danaj committed Feb 12, 2013
Showing with 5 additions and 1 deletion.
  1. +5 −1 t/is_aks_prime.t
View
@@ -5,9 +5,12 @@
# polynomial tests or we'll take a *really* long time. With the current
# implementation including the sqrt test this means < 85991.
+# First number to make it to poly test and succeed: 85991
+# First number to make it to poly test and fail: 95477
+
use strict;
use warnings;
-use Test::More tests => 140;
+use Test::More tests => 141;
#use Carp::Always;
use Math::GMPz qw/:mpz/;
@@ -67,3 +70,4 @@ map { ok(!is_aks_prime($_), "Pseudoprime (base 2) $_ is not an AKS prime" ) } qw
4681 5461 6601 7957 8321
/;
+ok(!is_aks_prime(95477), "95477 is not prime");

0 comments on commit dd9fb91

Please sign in to comment.