Testsuite: add --test and --range options

[exim.git] / test / lib / Exim / Utils.pm

diff --git a/test/lib/Exim/Utils.pm b/test/lib/Exim/Utils.pm
new file mode 100644 (file)
index 0000000..b744b0b
--- /dev/null
+++ b/test/lib/Exim/Utils.pm
@@ -0,0 +1,16 @@
+package Exim::Utils;
+use v5.10.1;
+use strict;
+use warnings;
+use parent 'Exporter';
+our @EXPORT_OK = qw(uniq numerically);
+
+
+sub uniq {
+    my %uniq = map { $_, undef } @_;
+    return keys %uniq;
+}
+
+sub numerically { $::a <=> $::b }
+
+1;