diff options
-rw-r--r-- | Configure.pl | 3 | ||||
-rw-r--r-- | tools/build/Makefile.in | 7 | ||||
-rw-r--r-- | tools/build/modules-test.pl | 5 |
3 files changed, 14 insertions, 1 deletions
diff --git a/Configure.pl b/Configure.pl index c6cef50..d562365 100644 --- a/Configure.pl +++ b/Configure.pl @@ -118,6 +118,9 @@ MAIN: { $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 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"; |