Add script to run module tests.

1 files changed, 22 insertions, 0 deletions

diff --git a/tools/build/modules-test.pl b/tools/build/modules-test.pl
new file mode 100644
index 0000000..b469d6c
--- /dev/null
+++ b/tools/build/modules-test.pl
@@ -0,0 +1,22 @@
+#! perl
+
+use Cwd;
+
+my $base = shift @ARGV;
+my $perl6 = shift @ARGV;
+
+while (<>) {
+    next if /^\s*(#|$)/;
+    my ($moduledir) = /(\S+)/;
+    print "Testing modules/$moduledir...\n";
+    if (-d "$base/modules/$moduledir/t") {
+        chdir("$base/modules/$moduledir");
+        system('prove', '-e', $perl6, '-r', 't');
+    }
+    else {
+        print "...no t/ directory found.\n";
+    }
+    print "\n";
+}
+
+0;