use strict;
use warnings;
use Test::More tests => 2000;
use Email::MessageID;

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