use Test::More tests => 2001;
use_ok 'Email::MessageID';
my %ids;
for ( 1 .. (shift || 1000) ) {
my $mid = Email::MessageID->new;
isa_ok $mid, 'Email::Address';
ok ! exists $ids{$mid->address}, "$mid unique";
$ids{$mid->address}++;
}