$  cd prime_scripts/

##</code><code>##

$  prove -l t/prime_test_1.t 
t/prime_test_1.t .. ok      
All tests successful.
Files=1, Tests=1000,  0 wallclock secs ( 0.06 usr  0.01 sys +  0.14 cusr  0.01 csys =  0.22 CPU)
Result: PASS
$  

##</code><code>##

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;