diff options
author | Moritz Lenz <moritz@faui2k3.org> | 2014-04-20 13:52:42 +0200 |
---|---|---|
committer | Moritz Lenz <moritz@faui2k3.org> | 2014-04-20 13:52:42 +0200 |
commit | 0e87ffeb33918eadd85f658d9cae8fc2c4750766 (patch) | |
tree | cd1918ee23b2e80788b48fb112229c968f00bc56 /tools/build/modules-test.pl | |
parent | 9fb3187d468c3263d538bb8229d7acec0d60e1c1 (diff) |
Add "verbose-modules-test" target
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"; |