From: Heiko Schlittermann (HS12-RIPE) Date: Wed, 2 Nov 2016 22:16:49 +0000 (+0100) Subject: Testsuite: started t/ to add tests for the testsuite X-Git-Tag: exim-4_88_RC4~18 X-Git-Url: https://git.exim.org/exim.git/commitdiff_plain/acda767722286c4e35b3917d1812e590ec852b26 Testsuite: started t/ to add tests for the testsuite --- 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;