diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/t/00-basic.t | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/test/t/00-basic.t b/test/t/00-basic.t new file mode 100644 index 000000000..df7eab4de --- /dev/null +++ b/test/t/00-basic.t @@ -0,0 +1,19 @@ +use Test::More; +use lib 'lib'; +use_ok 'Exim::Runtest'; + +can_ok 'Exim::Runtest', qw(mailgroup); + +my $group = getgrgid $(; +ok $group => 'got a group name'; +diag "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"; + +ok getgrnam($group) => 'got an existing group'; + + + +done_testing; |