use FindBin;
use Test::More tests => 3;
use Test::Exception;

dies_ok { 'DupEventChecker'->new } 'dir_name not provided';

my $checker = 'DupEventChecker'->new(dir_name => $FindBin::Bin);
isa_ok $checker, 'DupEventChecker';

my ($itself) = grep { 0 <= index $0, $_ } $checker->dir->read;
ok $itself, 'test script found';