Ver código fonte

Tinderbox output testing commit

Matthias Eble 16 anos atrás
pai
commit
3ea954933c
1 arquivos alterados com 1 adições e 1 exclusões
  1. 1 1
      NPTest.pm

+ 1 - 1
NPTest.pm

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