Code

Tinderbox output testing commit
authorMatthias Eble <psychotrahe@gmx.de>
Tue, 16 Jun 2009 17:31:25 +0000 (19:31 +0200)
committerMatthias Eble <psychotrahe@gmx.de>
Tue, 16 Jun 2009 17:31:25 +0000 (19:31 +0200)
NPTest.pm

index cbd78c82b2ac71393bc02da41424a1db0741fd25..8ea5af8c3bb28ec930ae81ded686859e66adae7f 100644 (file)
--- a/NPTest.pm
+++ b/NPTest.pm
@@ -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, $/);