Tinderbox output testing commit

This commit is contained in:
Matthias Eble 2009-06-16 19:31:25 +02:00
parent 2e7c3ac75a
commit 3ea954933c

View file

@ -626,7 +626,7 @@ sub testCmd {
$object->output($output);
my ($pkg, $file, $line) = caller(0);
diag("Testing: $command", $/);
print "Testing: $command", $/;
if ($ENV{'NPTEST_DEBUG'}) {
diag("testCmd: Called from line $line in $file", $/);
diag("Output: ", $object->output, $/);