Testsuite: started t/ to add tests for the testsuite

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;