use strict;
use warnings;
use 5.10.1;
use Math::Prime::Util qw (is_prime);
use Test::More;

use FindBin::libs;
use LousyPrime qw(is_lousy_prime);
for (1..1000) {
	say is_prime($_), is_lousy_prime($_);
	is (  is_prime($_) , is_lousy_prime($_), "matches");
	
}
done_testing;