summaryrefslogtreecommitdiffstats
path: root/NPTest.pm
diff options
context:
space:
mode:
authorMatthias Eble <psychotrahe@gmx.de>2009-06-16 23:51:19 +0200
committerMatthias Eble <psychotrahe@gmx.de>2009-06-16 23:51:19 +0200
commit013f0a187f0a52edc94488ed1afbed71a6d3efd5 (patch)
treeb9f182801f37445837ee011b94fdeefbaef2b284 /NPTest.pm
parent3ea954933ce538fa366a998ae9acbb241a63293a (diff)
downloadmonitoring-plugins-013f0a187f0a52edc94488ed1afbed71a6d3efd5.tar.gz
Switch back to "use Test" and plain prints instead of diag()
Diffstat (limited to 'NPTest.pm')
-rw-r--r--NPTest.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/NPTest.pm b/NPTest.pm
index 8ea5af8c..54a535e7 100644
--- a/NPTest.pm
+++ b/NPTest.pm
@@ -18,7 +18,7 @@ use File::Basename;
18use IO::File; 18use IO::File;
19use Data::Dumper; 19use Data::Dumper;
20 20
21use Test::More; 21use Test;
22 22
23use vars qw($VERSION); 23use 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;