Switch back to "use Test" and plain prints instead of diag()

This commit is contained in:
Matthias Eble 2009-06-16 23:51:19 +02:00
parent 3ea954933c
commit 013f0a187f

View file

@ -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;