summaryrefslogtreecommitdiffstats
path: root/t/check_stuff.t
diff options
context:
space:
mode:
authorTon Voon <tonvoon@users.sourceforge.net>2007-09-24 18:45:59 +0000
committerTon Voon <tonvoon@users.sourceforge.net>2007-09-24 18:45:59 +0000
commit6625e6a0d2a4cec99339b8b526035592dcd4418c (patch)
tree85971687f4bfef6a7f30595522f2454c73f4b2af /t/check_stuff.t
parent7fb5ed0f0a95ce5817e0b0f7c3bba91968393d49 (diff)
downloadmonitoring-plugin-perl-6625e6a0d2a4cec99339b8b526035592dcd4418c.tar.gz
Help, usage and version output go to stdout now, rather than stderr
git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/Nagios-Plugin/trunk@1795 f882894a-f735-0410-b71e-b25c423dba1c
Diffstat (limited to 't/check_stuff.t')
-rwxr-xr-xt/check_stuff.t24
1 files changed, 7 insertions, 17 deletions
diff --git a/t/check_stuff.t b/t/check_stuff.t
index 2d2ce38..64f95ae 100755
--- a/t/check_stuff.t
+++ b/t/check_stuff.t
@@ -2,7 +2,7 @@
2# 2#
3use strict; use warnings; 3use strict; use warnings;
4#use Test::More qw(no_plan); 4#use Test::More qw(no_plan);
5use Test::More tests => 16; 5use Test::More tests => 14;
6 6
7my ($r,$args); 7my ($r,$args);
8my $s = 't/check_stuff.pl'; 8my $s = 't/check_stuff.pl';
@@ -22,23 +22,13 @@ $r = `$s`;
22is $?>>8 , $e{UNKNOWN}, "exits($e{UNKNOWN}) with no args"; 22is $?>>8 , $e{UNKNOWN}, "exits($e{UNKNOWN}) with no args";
23like $r, qr/^$n UNKNOWN/, "UNKNOWN with no args"; 23like $r, qr/^$n UNKNOWN/, "UNKNOWN with no args";
24 24
25$r = `$s -V`;
26is $?>>8 , $e{UNKNOWN}, "exits($e{UNKNOWN}) with -V arg";
27like $r, qr/^[\w\.]+ \d+/i, "looks like there's a version";
25 28
26#TODO: 29$r = `$s -h`;
27SKIP: { 30is $?>>8 , $e{UNKNOWN}, "exits($e{UNKNOWN}) with -h arg";
28 local $TODO = q~d'oh! we'll have to redirect STDERR and check it with like() here instead of checking `` which only gets STDIN. Maybe use IPC::Open3?~; 31like $r, qr/usage/i, "looks like there's something helpful"; # broken
29 skip "too noisy, see TODO here", 6;
30
31 $r = `$s -V`;
32 is $?>>8 , $e{UNKNOWN}, "exits($e{UNKNOWN}) with -V arg";
33 like $r, qr/\d+\.\d/i, "looks like there's a version"; # broken
34 is $r, '', "prints nothing to STDOUT";
35
36 $r = `$s -h`;
37 is $?>>8 , $e{UNKNOWN}, "exits($e{UNKNOWN}) with -h arg";
38 like $r, qr/usage/i, "looks like there's something helpful"; # broken
39 is $r, '', "prints nothing to STDOUT";
40}
41
42 32
43$args = " -r 99 "; 33$args = " -r 99 ";
44diag "running `$s $args`" if $ENV{TEST_VERBOSE}; 34diag "running `$s $args`" if $ENV{TEST_VERBOSE};