|
|
@@ -18,7 +18,7 @@ use File::Basename;
|
|
|
use IO::File;
|
|
|
use Data::Dumper;
|
|
|
|
|
|
-use Test::More;
|
|
|
+use Test;
|
|
|
|
|
|
use vars qw($VERSION);
|
|
|
$VERSION = "1556."; # must be all one line, for MakeMaker
|
|
|
@@ -628,9 +628,9 @@ sub testCmd {
|
|
|
my ($pkg, $file, $line) = caller(0);
|
|
|
print "Testing: $command", $/;
|
|
|
if ($ENV{'NPTEST_DEBUG'}) {
|
|
|
- diag("testCmd: Called from line $line in $file", $/);
|
|
|
- diag("Output: ", $object->output, $/);
|
|
|
- diag("Return code: ", $object->return_code, $/);
|
|
|
+ print "testCmd: Called from line $line in $file", $/;
|
|
|
+ print "Output: ", $object->output, $/;
|
|
|
+ print "Return code: ", $object->return_code, $/;
|
|
|
}
|
|
|
|
|
|
return $object;
|