diff options
-rw-r--r-- | NPTest.pm | 8 |
1 files changed, 4 insertions, 4 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::More; | 21 | use Test; |
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 |
@@ -628,9 +628,9 @@ sub testCmd { | |||
628 | my ($pkg, $file, $line) = caller(0); | 628 | my ($pkg, $file, $line) = caller(0); |
629 | print "Testing: $command", $/; | 629 | print "Testing: $command", $/; |
630 | if ($ENV{'NPTEST_DEBUG'}) { | 630 | if ($ENV{'NPTEST_DEBUG'}) { |
631 | diag("testCmd: Called from line $line in $file", $/); | 631 | print "testCmd: Called from line $line in $file", $/; |
632 | diag("Output: ", $object->output, $/); | 632 | print "Output: ", $object->output, $/; |
633 | diag("Return code: ", $object->return_code, $/); | 633 | print "Return code: ", $object->return_code, $/; |
634 | } | 634 | } |
635 | 635 | ||
636 | return $object; | 636 | return $object; |