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 (file)
index 0000000..df7eab4
--- /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;