use
strict;
use
warnings;
use
Test::More;
use
FindBin;
# use checkster with check sub
# default constructor
subtest
'constructor'
=>
sub
{
my
$obj
= Checkster->new;
isa_ok
$obj
,
'Checkster'
;
};
# check (sub) constructor
subtest
'check function'
=>
sub
{
my
$var
= check;
isa_ok
$var
,
'Checkster'
;
};
done_testing;