Commit | Line | Data |
---|---|---|
1 | use Test::More; | |
2 | use lib 'lib'; | |
3 | use_ok 'Exim::Runtest'; | |
4 | ||
5 | can_ok 'Exim::Runtest', qw(mailgroup); | |
6 | ||
7 | my $group = getgrgid $(; | |
8 | ok $group => 'got a group name'; | |
9 | diag "use group $group"; | |
10 | ||
11 | is Exim::Runtest::mailgroup($group), $group => 'group names match'; | |
12 | ok $group = Exim::Runtest::mailgroup('non existing group') => 'cope with unknown group'; | |
13 | diag "got random group: $group"; | |
14 | ||
15 | ok getgrnam($group) => 'got an existing group'; | |
16 | ||
17 | ||
18 | ||
19 | done_testing; |