diff options
Diffstat (limited to 'tools/build')
-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; |