aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--NPTest.pm12
-rwxr-xr-xtest.pl.in2
2 files changed, 7 insertions, 7 deletions
diff --git a/NPTest.pm b/NPTest.pm
index 1cd89db7..cbd78c82 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 a0228185..3834d3c3 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 );