diff options
author | pmichaud <pmichaud@pobox.com> | 2012-08-29 07:12:49 -0500 |
---|---|---|
committer | pmichaud <pmichaud@pobox.com> | 2012-08-29 07:12:49 -0500 |
commit | 900c0c422b951f3eefcda677b5fdcb2b2056f62e (patch) | |
tree | 551632437a31fdf6f0f160a8e4844c5e8f3a7282 /tools/build/modules-test.pl | |
parent | 7a5d72ceddfb7af387727b12363ecf33ecab7c1e (diff) |
Add script to run module tests.
Diffstat (limited to 'tools/build/modules-test.pl')
-rw-r--r-- | tools/build/modules-test.pl | 22 |
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; |