Add "verbose-modules-test" target

rakudo · Apr 20, 2014 · 0e87ffe · 0e87ffe
1 parent 9fb3187
commit 0e87ffe
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 1 deletion.
diff --git a/Configure.pl b/Configure.pl
@@ -118,6 +118,9 @@
     $config{backend_modules_test} = join ' ', map
         { 'modules-test-' . lc(substr $_, 0, 1) }
         keys %backends;
+    $config{verbose_backend_modules_test} = join ' ', map
+        { 'verbose-modules-test-' . lc(substr $_, 0, 1) }
+        keys %backends;
     $config{default_backend_exe} = '$(PERL6_' .
         uc(substr $default_backend, 0, 1) .
         '_INSTALL)';

diff --git a/tools/build/Makefile.in b/tools/build/Makefile.in
@@ -85,15 +85,22 @@ modules-install-m:
 	$(PERL) tools/build/bin-install.pl $(PERL6_M_INSTALL) $(DESTDIR)$(MOAR_BIN_DIR) m modules/ufo/bin/ufo modules/panda/bin/panda modules/doc/bin/p6doc
 
 modules-test: @backend_modules_test@
+verbose-modules-test: @backend_modules_test@
 
 modules-test-p:
 	$(PERL) tools/build/modules-test.pl $(CURDIR) $(DESTDIR)$(PERL6_P_INSTALL) $(MODULES)
+verbose-modules-test-p:
+	$(PERL) tools/build/modules-test.pl --verbose $(CURDIR) $(DESTDIR)$(PERL6_P_INSTALL) $(MODULES)
 
 modules-test-j:
 	$(PERL) tools/build/modules-test.pl $(CURDIR) $(DESTDIR)$(PERL6_J_INSTALL) $(MODULES)
+verbose-modules-test-j:
+	$(PERL) tools/build/modules-test.pl --verbose $(CURDIR) $(DESTDIR)$(PERL6_J_INSTALL) $(MODULES)
 
 modules-test-m:
 	$(PERL) tools/build/modules-test.pl $(CURDIR) $(DESTDIR)$(PERL6_M_INSTALL) $(MODULES)
+verbose-modules-test-m:
+	$(PERL) tools/build/modules-test.pl --verbose $(CURDIR) $(DESTDIR)$(PERL6_M_INSTALL) $(MODULES)
 
 install: rakudo-install modules-install
 

diff --git 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 @@
     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";