From 0e87ffeb33918eadd85f658d9cae8fc2c4750766 Mon Sep 17 00:00:00 2001
From: Moritz Lenz <moritz@faui2k3.org>
Date: Sun, 20 Apr 2014 13:52:42 +0200
Subject: Add "verbose-modules-test" target

---
 tools/build/Makefile.in     | 7 +++++++
 tools/build/modules-test.pl | 5 ++++-
 2 files changed, 11 insertions(+), 1 deletion(-)

(limited to 'tools')

diff --git a/tools/build/Makefile.in b/tools/build/Makefile.in
index 223d376..083aae2 100644
--- 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
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";
-- 
cgit v1.1