diff options
author | Matthias Eble <psychotrahe@gmx.de> | 2009-06-16 23:51:19 +0200 |
---|---|---|
committer | Matthias Eble <psychotrahe@gmx.de> | 2009-06-16 23:51:19 +0200 |
commit | 013f0a187f0a52edc94488ed1afbed71a6d3efd5 (patch) | |
tree | b9f182801f37445837ee011b94fdeefbaef2b284 /NPTest.pm | |
parent | 3ea954933ce538fa366a998ae9acbb241a63293a (diff) | |
download | monitoring-plugins-013f0a187f0a52edc94488ed1afbed71a6d3efd5.tar.gz |
Switch back to "use Test" and plain prints instead of diag()
Diffstat (limited to 'NPTest.pm')
-rw-r--r-- | NPTest.pm | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -18,7 +18,7 @@ use File::Basename; | |||
18 | use IO::File; | 18 | use IO::File; |
19 | use Data::Dumper; | 19 | use Data::Dumper; |
20 | 20 | ||
21 | use Test::More; | 21 | use Test; |
22 | 22 | ||
23 | use vars qw($VERSION); | 23 | use vars qw($VERSION); |
24 | $VERSION = "1556."; # must be all one line, for MakeMaker | 24 | $VERSION = "1556."; # must be all one line, for MakeMaker |
@@ -628,9 +628,9 @@ sub testCmd { | |||
628 | my ($pkg, $file, $line) = caller(0); | 628 | my ($pkg, $file, $line) = caller(0); |
629 | print "Testing: $command", $/; | 629 | print "Testing: $command", $/; |
630 | if ($ENV{'NPTEST_DEBUG'}) { | 630 | if ($ENV{'NPTEST_DEBUG'}) { |
631 | diag("testCmd: Called from line $line in $file", $/); | 631 | print "testCmd: Called from line $line in $file", $/; |
632 | diag("Output: ", $object->output, $/); | 632 | print "Output: ", $object->output, $/; |
633 | diag("Return code: ", $object->return_code, $/); | 633 | print "Return code: ", $object->return_code, $/; |
634 | } | 634 | } |
635 | 635 | ||
636 | return $object; | 636 | return $object; |