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; | |||
18 | use IO::File; | 18 | use IO::File; |
19 | use Data::Dumper; | 19 | use Data::Dumper; |
20 | 20 | ||
21 | use Test; | 21 | use Test::More; |
22 | 22 | ||
23 | use vars qw($VERSION); | 23 | use vars qw($VERSION); |
24 | $VERSION = "1556."; # must be all one line, for MakeMaker | 24 | $VERSION = "1556."; # must be all one line, for MakeMaker |
@@ -625,12 +625,12 @@ sub testCmd { | |||
625 | chomp $output; | 625 | chomp $output; |
626 | $object->output($output); | 626 | $object->output($output); |
627 | 627 | ||
628 | my ($pkg, $file, $line) = caller(0); | ||
629 | diag("Testing: $command", $/); | ||
628 | if ($ENV{'NPTEST_DEBUG'}) { | 630 | if ($ENV{'NPTEST_DEBUG'}) { |
629 | my ($pkg, $file, $line) = caller(0); | 631 | diag("testCmd: Called from line $line in $file", $/); |
630 | print "testCmd: Called from line $line in $file", $/; | 632 | diag("Output: ", $object->output, $/); |
631 | print "Testing: $command", $/; | 633 | diag("Return code: ", $object->return_code, $/); |
632 | print "Output: ", $object->output, $/; | ||
633 | print "Return code: ", $object->return_code, $/; | ||
634 | } | 634 | } |
635 | 635 | ||
636 | return $object; | 636 | return $object; |
@@ -44,6 +44,6 @@ if ( ! scalar( @tests ) ) | |||
44 | 44 | ||
45 | use Test::Harness; | 45 | use Test::Harness; |
46 | 46 | ||
47 | #$Test::Harness::verbose=1; | 47 | $Test::Harness::verbose=1; |
48 | 48 | ||
49 | runtests( @tests ); | 49 | runtests( @tests ); |