blob: 4b6b2b75bf4ccde9b77896c80c349b45a244538c [file] [log] [blame]
#!/usr/local/bin/perl
use ExtUtils::testlib;
use SSLeay;
for (7 .. 7926)
{
my $num = SSLeay::BN::dec2bn($_);
print "$_ is ".($num->is_prime ? 'prime' : 'composite'), "\n";
}