diff options
author | Gavin Carr <gonzai@users.sourceforge.net> | 2006-09-26 01:10:23 +0000 |
---|---|---|
committer | Gavin Carr <gonzai@users.sourceforge.net> | 2006-09-26 01:10:23 +0000 |
commit | e548a22a92b3aa345f4a952fddb39cc693c35a70 (patch) | |
tree | 606e3872d3070a90b5fa9881303eddb59efc8bbd /t/Nagios-Plugin-Functions-01.t | |
parent | d8f912e8f5abb1476366cfea6e0fb368a9669ec4 (diff) | |
download | monitoring-plugin-perl-e548a22a92b3aa345f4a952fddb39cc693c35a70.tar.gz |
Rename NP::Base to NP::Functions; add check_messages() to NP::Functions.
git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/Nagios-Plugin/trunk@1482 f882894a-f735-0410-b71e-b25c423dba1c
Diffstat (limited to 't/Nagios-Plugin-Functions-01.t')
-rw-r--r-- | t/Nagios-Plugin-Functions-01.t | 153 |
1 files changed, 153 insertions, 0 deletions
diff --git a/t/Nagios-Plugin-Functions-01.t b/t/Nagios-Plugin-Functions-01.t new file mode 100644 index 0000000..7401945 --- /dev/null +++ b/t/Nagios-Plugin-Functions-01.t | |||
@@ -0,0 +1,153 @@ | |||
1 | |||
2 | use strict; | ||
3 | use Test::More tests => 111; | ||
4 | |||
5 | BEGIN { use_ok("Nagios::Plugin::Functions", ":all"); } | ||
6 | Nagios::Plugin::Functions::_fake_exit(1); | ||
7 | |||
8 | my $this_version=$Nagios::Plugin::Functions::VERSION; | ||
9 | foreach my $m ("", qw(::Threshold ::Getopt ::Performance ::Range)) { | ||
10 | my $mod = "Nagios::Plugin$m"; | ||
11 | use_ok($mod); | ||
12 | # Lots of hackery below. Easier to say $mod->VERSION, but this is probably a recent perl thing | ||
13 | my $v = "$mod"."::VERSION"; | ||
14 | my $a = eval "\$$v"; | ||
15 | is($a, $this_version, "Version number for $mod the same as Functions: $this_version"); | ||
16 | } | ||
17 | |||
18 | # Hardcoded checks of constants | ||
19 | ok(defined %ERRORS, '%ERRORS defined'); | ||
20 | is(OK, $ERRORS{OK}, "OK => $ERRORS{OK}"); | ||
21 | is(WARNING, $ERRORS{WARNING}, "WARNING => $ERRORS{WARNING}"); | ||
22 | is(CRITICAL, $ERRORS{CRITICAL}, "CRITICAL => $ERRORS{CRITICAL}"); | ||
23 | is(UNKNOWN, $ERRORS{UNKNOWN}, "UNKNOWN => $ERRORS{UNKNOWN}"); | ||
24 | is(DEPENDENT, $ERRORS{DEPENDENT}, "DEPENDENT => $ERRORS{DEPENDENT}"); | ||
25 | |||
26 | # Test nagios_exit( CONSTANT, $msg ), nagios_exit( $string, $msg ) | ||
27 | my $r; | ||
28 | my @ok = ( | ||
29 | [ OK, "OK", 'test the first', ], | ||
30 | [ WARNING, "WARNING", 'test the second', ], | ||
31 | [ CRITICAL, "CRITICAL", 'test the third', ], | ||
32 | [ UNKNOWN, "UNKNOWN", 'test the fourth', ], | ||
33 | [ DEPENDENT, "DEPENDENT", 'test the fifth', ], | ||
34 | ); | ||
35 | for (@ok) { | ||
36 | # CONSTANT | ||
37 | $r = nagios_exit($_->[0], $_->[2]); | ||
38 | is($r->return_code, $_->[0], | ||
39 | sprintf('nagios_exit(%s, $msg) returned %s', $_->[1], $_->[0])); | ||
40 | like($r->message, qr/$_->[1]\b.*\b$_->[2]$/, | ||
41 | sprintf('nagios_exit(%s, $msg) output matched "%s"', | ||
42 | $_->[1], $_->[1] . '.*' . $_->[2])); | ||
43 | |||
44 | # $string | ||
45 | $r = nagios_exit($_->[1], $_->[2]); | ||
46 | is($r->return_code, $_->[0], | ||
47 | sprintf('nagios_exit("%s", $msg) returned %s', $_->[1], $_->[0])); | ||
48 | like($r->message, qr/$_->[1]\b.*\b$_->[2]$/, | ||
49 | sprintf('nagios_exit("%s", $msg) output matched "%s"', $_->[1], | ||
50 | $_->[1] . '.*' . $_->[2])); | ||
51 | like($r, qr/$_->[1]\b.*\b$_->[2]$/, | ||
52 | sprintf('nagios_exit("%s", $msg) stringified matched "%s"', $_->[1], | ||
53 | $_->[1] . '.*' . $_->[2])); | ||
54 | } | ||
55 | |||
56 | # nagios_exit code corner cases | ||
57 | my @ugly1 = ( | ||
58 | [ -1, 'testing code -1' ], | ||
59 | [ 7, 'testing code 7' ], | ||
60 | [ undef, 'testing code undef' ], | ||
61 | [ '', qq(testing code '') ], | ||
62 | [ 'string', qq(testing code 'string') ], | ||
63 | ); | ||
64 | for (@ugly1) { | ||
65 | $r = nagios_exit($_->[0], $_->[1]); | ||
66 | my $display = defined $_->[0] ? "'$_->[0]'" : 'undef'; | ||
67 | is($r->return_code, UNKNOWN, "nagios_exit($display, \$msg) returned ". UNKNOWN); | ||
68 | like($r->message, qr/UNKNOWN\b.*\b$_->[1]$/, | ||
69 | sprintf('nagios_exit(%s, $msg) output matched "%s"', | ||
70 | $display, 'UNKNOWN.*' . $_->[1])); | ||
71 | } | ||
72 | |||
73 | # nagios_exit message corner cases | ||
74 | my @ugly2 = ( | ||
75 | [ '' ], | ||
76 | [ undef ], | ||
77 | [ UNKNOWN ], | ||
78 | ); | ||
79 | for (@ugly2) { | ||
80 | $r = nagios_exit(CRITICAL, $_->[0]); | ||
81 | my $display1 = defined $_->[0] ? "'$_->[0]'" : "undef"; | ||
82 | my $display2 = defined $_->[0] ? $_->[0] : ''; | ||
83 | like($r->message, qr/CRITICAL\b.*\b$display2$/, | ||
84 | sprintf('nagios_exit(%s, $msg) output matched "%s"', | ||
85 | $display1, "CRITICAL.*$display2")); | ||
86 | } | ||
87 | |||
88 | # Test nagios_die( $msg ) | ||
89 | my @msg = ( | ||
90 | [ 'die you dog' ], | ||
91 | [ '' ], | ||
92 | [ undef ], | ||
93 | ); | ||
94 | for (@msg) { | ||
95 | $r = nagios_die($_->[0]); | ||
96 | my $display1 = defined $_->[0] ? "'$_->[0]'" : "undef"; | ||
97 | my $display2 = defined $_->[0] ? $_->[0] : ''; | ||
98 | is($r->return_code, UNKNOWN, | ||
99 | sprintf('nagios_die(%s) returned UNKNOWN', $display1)); | ||
100 | like($r->message, qr/UNKNOWN\b.*\b$display2$/, | ||
101 | sprintf('nagios_die(%s) output matched "%s"', $display1, | ||
102 | "UNKNOWN.*$display2")); | ||
103 | } | ||
104 | |||
105 | # Test nagios_die( CONSTANT, $msg ), nagios_die( $msg, CONSTANT ), | ||
106 | # nagios_die( $string, $msg ), and nagios_die( $msg, $string ) | ||
107 | @ok = ( | ||
108 | [ OK, "OK", 'test the first', ], | ||
109 | [ WARNING, "WARNING", 'test the second', ], | ||
110 | [ CRITICAL, "CRITICAL", 'test the third', ], | ||
111 | [ UNKNOWN, "UNKNOWN", 'test the fourth', ], | ||
112 | [ DEPENDENT, "DEPENDENT", 'test the fifth', ], | ||
113 | ); | ||
114 | for (@ok) { | ||
115 | # CONSTANT, $msg | ||
116 | $r = nagios_die($_->[0], $_->[2]); | ||
117 | is($r->return_code, $_->[0], | ||
118 | sprintf('nagios_die(%s, $msg) returned %s', $_->[1], $_->[0])); | ||
119 | like($r->message, qr/$_->[1]\b.*\b$_->[2]$/, | ||
120 | sprintf('nagios_die(%s, $msg) output matched "%s"', | ||
121 | $_->[1], $_->[1] . '.*' . $_->[2])); | ||
122 | |||
123 | # $msg, CONSTANT | ||
124 | $r = nagios_die($_->[2], $_->[0]); | ||
125 | is($r->return_code, $_->[0], | ||
126 | sprintf('nagios_die($msg, %s) returned %s', $_->[1], $_->[0])); | ||
127 | like($r->message, qr/$_->[1]\b.*\b$_->[2]$/, | ||
128 | sprintf('nagios_die($msg, %s) output matched "%s"', | ||
129 | $_->[1], $_->[1] . '.*' . $_->[2])); | ||
130 | |||
131 | # $string, $msg | ||
132 | $r = nagios_die($_->[1], $_->[2]); | ||
133 | is($r->return_code, $_->[0], | ||
134 | sprintf('nagios_die("%s", $msg) returned %s', $_->[1], $_->[0])); | ||
135 | like($r->message, qr/$_->[1]\b.*\b$_->[2]$/, | ||
136 | sprintf('nagios_die("%s", $msg) output matched "%s"', $_->[1], | ||
137 | $_->[1] . '.*' . $_->[2])); | ||
138 | like($r, qr/$_->[1]\b.*\b$_->[2]$/, | ||
139 | sprintf('nagios_die("%s", $msg) stringified matched "%s"', $_->[1], | ||
140 | $_->[1] . '.*' . $_->[2])); | ||
141 | |||
142 | # $string, $msg | ||
143 | $r = nagios_die($_->[2], $_->[1]); | ||
144 | is($r->return_code, $_->[0], | ||
145 | sprintf('nagios_die($msg, "%s") returned %s', $_->[1], $_->[0])); | ||
146 | like($r->message, qr/$_->[1]\b.*\b$_->[2]$/, | ||
147 | sprintf('nagios_die($msg, "%s") output matched "%s"', $_->[1], | ||
148 | $_->[1] . '.*' . $_->[2])); | ||
149 | like($r, qr/$_->[1]\b.*\b$_->[2]$/, | ||
150 | sprintf('nagios_die($msg, "%s") stringified matched "%s"', $_->[1], | ||
151 | $_->[1] . '.*' . $_->[2])); | ||
152 | } | ||
153 | |||