diff options
Diffstat (limited to 'tools/build/modules-test.pl')
-rw-r--r-- | tools/build/modules-test.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tools/build/modules-test.pl b/tools/build/modules-test.pl index 095e76b..396f066 100644 --- a/tools/build/modules-test.pl +++ b/tools/build/modules-test.pl @@ -1,6 +1,9 @@ #! perl use Cwd; +use Getopt::Long; + +GetOptions('verbose' => \my $verbose); my $base = shift @ARGV; my $perl6 = shift @ARGV; @@ -11,7 +14,7 @@ while (<>) { print "Testing modules/$moduledir with $perl6...\n"; if (-d "$base/modules/$moduledir/t") { chdir("$base/modules/$moduledir"); - system('prove', '-e', $perl6, '-r', 't'); + system('prove', $verbose ? '-v' : (), '-e', $perl6, '-r', 't'); } else { print "...no t/ directory found.\n"; |