summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHeiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>2016-11-03 10:14:54 +0100
committerHeiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>2016-11-03 10:14:54 +0100
commit100122504d03e5583b8321f939d4f688ab16886c (patch)
tree2255bf60383f132465f89b58df5f1282ba510b74
parent58ae4e3edecdab20a77dd8c68698ed0015ae12f4 (diff)
Testsuite: Add POD to Exim::Runtest
-rw-r--r--test/lib/Exim/Runtest.pm38
1 files changed, 35 insertions, 3 deletions
diff --git a/test/lib/Exim/Runtest.pm b/test/lib/Exim/Runtest.pm
index 1df2ea1a9..e60fce1e6 100644
--- a/test/lib/Exim/Runtest.pm
+++ b/test/lib/Exim/Runtest.pm
@@ -6,10 +6,22 @@ use Carp;
use List::Util qw'shuffle';
+=head1 NAME
+
+Exim::Runtest - helper functions for the runtest script
+
+=head1 SYNOPSIS
+
+ use Exim::Runtest;
+ my $foo = Exim::Runtest::foo('foo');
+
+=head1 DESCRIPTION
+
+The B<Exim::Runtest> module provides some simple functions
+for the F<runtest> script. No functions are exported yet.
+
+=cut
-# find a group name, preferrable 'mail', but
-# use some other random name if 'mail' isn't a valid group
-# name
sub mailgroup {
my $group = shift;
@@ -39,3 +51,23 @@ sub dynamic_socket {
}
1;
+
+__END__
+
+=head1 FUNCTIONS
+
+=over
+
+=item B<mailgroup>(I<$default>)
+
+Check if the mailgroup I<$default> exists. Return the checked
+group name or some other random but existing group.
+
+=item B<dynamic_socket>()
+
+Return a dynamically allocated listener socket in the range
+between 1024 and 65534;
+
+=back
+
+=cut