X-Git-Url: https://vcs.fsf.org/?p=exim.git;a=blobdiff_plain;f=test%2Ft%2F00-basic.t;h=99a3e5fbd15c80e01e5620df959e0deedcc34a14;hp=f198f7af146180fd84eba5bfe695f88ea2213efc;hb=87e93574a5da99b5f36751a4219caacc4e81ea3c;hpb=b1227303735a346c79fd0734c9efb5d13609ad55 diff --git a/test/t/00-basic.t b/test/t/00-basic.t index f198f7af1..99a3e5fbd 100644 --- a/test/t/00-basic.t +++ b/test/t/00-basic.t @@ -3,7 +3,7 @@ use Test::Pod::Coverage; use Test::Exception; use lib 'lib'; -use_ok 'Exim::Runtest' or BAIL_OUT 'Can not load the module'; +use_ok 'Exim::Runtest', qw(:all) or BAIL_OUT 'Can not load the module'; can_ok 'Exim::Runtest', qw(mailgroup dynamic_socket); pod_coverage_ok 'Exim::Runtest' => 'docs complete'; @@ -13,18 +13,18 @@ subtest 'mailgroup' => sub { ok $group => 'got a group name'; note "use group $group"; - 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'; note "got random group: $group"; ok getgrnam($group) => 'got an existing 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'; }; subtest 'dynamic_socket' => sub { - ok my $socket = Exim::Runtest::dynamic_socket() => 'got a socket'; + ok my $socket = dynamic_socket() => 'got a socket'; note "got socket on port @{[$socket->sockport]}"; isa_ok $socket => 'IO::Socket::INET'; cmp_ok $socket->sockport(), '>=', 1024 => 'port is >= 1024';