From 2e7c3ac75ac62d8e5bfd0b62d60d7b98597bb9ea Mon Sep 17 00:00:00 2001 From: Matthias Eble Date: Mon, 15 Jun 2009 21:45:12 +0200 Subject: [PATCH] Make output of "make test" more verbose This is intended to make error fixing based on tinderbox output easier. --- NPTest.pm | 12 ++++++------ test.pl.in | 2 +- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/NPTest.pm b/NPTest.pm index 1cd89db..cbd78c8 100644 --- a/NPTest.pm +++ b/NPTest.pm @@ -18,7 +18,7 @@ use File::Basename; use IO::File; use Data::Dumper; -use Test; +use Test::More; use vars qw($VERSION); $VERSION = "1556."; # must be all one line, for MakeMaker @@ -625,12 +625,12 @@ sub testCmd { chomp $output; $object->output($output); + my ($pkg, $file, $line) = caller(0); + diag("Testing: $command", $/); if ($ENV{'NPTEST_DEBUG'}) { - my ($pkg, $file, $line) = caller(0); - print "testCmd: Called from line $line in $file", $/; - print "Testing: $command", $/; - print "Output: ", $object->output, $/; - print "Return code: ", $object->return_code, $/; + diag("testCmd: Called from line $line in $file", $/); + diag("Output: ", $object->output, $/); + diag("Return code: ", $object->return_code, $/); } return $object; diff --git a/test.pl.in b/test.pl.in index a022818..3834d3c 100755 --- a/test.pl.in +++ b/test.pl.in @@ -44,6 +44,6 @@ if ( ! scalar( @tests ) ) use Test::Harness; -#$Test::Harness::verbose=1; +$Test::Harness::verbose=1; runtests( @tests ); -- 2.30.2