#!/usr/bin/env perl
use strict;
use warnings;

use Math::Prime::Util qw/-nobigint random_prime random_ndigit_prime/;
use Benchmark qw/:all/;
use List::Util qw/min max/;
my $count = shift || -3;
my $maxdigits = (~0 <= 4294967295) ? 10 : 20;

srand(29);
test_at_digits($_) for (2 .. $maxdigits);

sub test_at_digits {
  my $digits = shift;
  die "Digits must be > 0" unless $digits > 0;

  cmpthese($count,{
    "$digits digits" => sub { random_ndigit_prime($digits) for (1..1000) },
  });
}