diff options
Diffstat (limited to 'NPTest.pm')
-rw-r--r-- | NPTest.pm | 12 |
1 files changed, 6 insertions, 6 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; |