can_ok 'Exim::Runtest', qw(mailgroup dynamic_socket);
pod_coverage_ok 'Exim::Runtest' => 'docs complete';
can_ok 'Exim::Runtest', qw(mailgroup dynamic_socket);
pod_coverage_ok 'Exim::Runtest' => 'docs complete';
- is Exim::Runtest::mailgroup($group), $group => 'group names match';
- ok $group = Exim::Runtest::mailgroup('non existing group') => 'cope with unknown group';
+ is mailgroup($group), $group => 'group names match';
+ ok $group = mailgroup('non existing group') => 'cope with unknown group';
- dies_ok { Exim::Runtest::mailgroup(22) } 'dies on numeric group';
- dies_ok { Exim::Runtest::mailgroup() } 'dies on missing default group';
+ dies_ok { mailgroup(22) } 'dies on numeric group';
+ dies_ok { mailgroup() } 'dies on missing default group';
note "got socket on port @{[$socket->sockport]}";
isa_ok $socket => 'IO::Socket::INET';
cmp_ok $socket->sockport(), '>=', 1024 => 'port is >= 1024';
note "got socket on port @{[$socket->sockport]}";
isa_ok $socket => 'IO::Socket::INET';
cmp_ok $socket->sockport(), '>=', 1024 => 'port is >= 1024';