upstream/monitoring-plugins
1
0
Fork 0
mirror of https://github.com/monitoring-plugins/monitoring-plugins.git synced 2026-04-26 08:37:11 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Make output of "make test" more verbose

Browse source 
This is intended to make error fixing based on tinderbox output
easier.
This commit is contained in:
Matthias Eble 2009-06-15 21:45:12 +02:00
parent 5f67308451
commit 2e7c3ac75a
2 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
NPTest.pm
View file

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

2
test.pl.in
View file

@ -44,6 +44,6 @@ if ( ! scalar( @tests ) )
use Test::Harness;
#$Test::Harness::verbose=1;
$Test::Harness::verbose=1;
runtests( @tests );