diff options
Diffstat (limited to 'test/t')
-rw-r--r-- | test/t/00-basic.t | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/test/t/00-basic.t b/test/t/00-basic.t index af7414aa2..f198f7af1 100644 --- a/test/t/00-basic.t +++ b/test/t/00-basic.t @@ -1,24 +1,31 @@ use Test::More; +use Test::Pod::Coverage; +use Test::Exception; + use lib 'lib'; use_ok 'Exim::Runtest' or BAIL_OUT 'Can not load the module'; can_ok 'Exim::Runtest', qw(mailgroup dynamic_socket); +pod_coverage_ok 'Exim::Runtest' => 'docs complete'; subtest 'mailgroup' => sub { my $group = getgrgid $(; ok $group => 'got a group name'; - diag "use group $group"; + 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'; - diag "got random group: $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'; }; subtest 'dynamic_socket' => sub { ok my $socket = Exim::Runtest::dynamic_socket() => 'got a socket'; - diag "got socket on port @{[$socket->sockport]}"; + note "got socket on port @{[$socket->sockport]}"; isa_ok $socket => 'IO::Socket::INET'; cmp_ok $socket->sockport(), '>=', 1024 => 'port is >= 1024'; $socket->close; |