diff options
-rw-r--r-- | NPTest.pm | 12 | ||||
-rwxr-xr-x | test.pl.in | 2 |
2 files changed, 7 insertions, 7 deletions
@@ -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; @@ -44,6 +44,6 @@ if ( ! scalar( @tests ) ) use Test::Harness; -#$Test::Harness::verbose=1; +$Test::Harness::verbose=1; runtests( @tests ); |