Add basic pod about is_aks_prime and add basic loading tests for AKS …

…and BigPolynomial
leto · Sep 25, 2012 · 5c947f0 · 5c947f0
1 parent 3ec9032
commit 5c947f0
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/lib/Math/Primality/AKS.pm b/lib/Math/Primality/AKS.pm
@@ -42,7 +42,9 @@ our %EXPORT_TAGS = ( all => \@EXPORT_OK );
 
 =head1 FUNCTIONS
 
-=head2 aks($n)
+=head2 is_aks_prime($n)
+
+Returns 1 if $n is an AKS prime, 0 if it is not.
 
 =cut
 
@@ -121,6 +123,7 @@ sub is_aks_prime($) {
 
         Math::Primality::BigPolynomial::mpz_poly_mod_power($res, $base, $n, $n, $intr);
 
+
         if($res->isEqual($compare)) {
             debug "Found not prime at $a\n";
             return 0;

diff --git a/t/00-load.t b/t/00-load.t
@@ -1,10 +1,12 @@
 #!/usr/bin/env perl
 use strict;
 
-use Test::More tests => 1;
+use Test::More tests => 3;
 
 BEGIN {
     use_ok( 'Math::Primality' );
+    use_ok( 'Math::Primality::AKS' );
+    use_ok( 'Math::Primality::BigPolynomial' );
 }
 
 diag( "Testing Math::Primality $Math::Primality::VERSION, Perl $], $^X" );