diff options
Diffstat (limited to 't/check_stuff.t')
-rwxr-xr-x | t/check_stuff.t | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/t/check_stuff.t b/t/check_stuff.t index 2815b76..6a1d845 100755 --- a/t/check_stuff.t +++ b/t/check_stuff.t | |||
@@ -1,5 +1,5 @@ | |||
1 | #!/usr/local/bin/perl | 1 | #!/usr/local/bin/perl |
2 | # | 2 | # |
3 | use strict; use warnings; | 3 | use strict; use warnings; |
4 | #use Test::More qw(no_plan); | 4 | #use Test::More qw(no_plan); |
5 | use Test::More tests => 14; | 5 | use Test::More tests => 14; |
@@ -10,7 +10,7 @@ $s = "$^X -Ilib $s"; | |||
10 | 10 | ||
11 | my $n = 'STUFF'; | 11 | my $n = 'STUFF'; |
12 | 12 | ||
13 | # Nagios status strings and exit codes | 13 | # Monitoring status strings and exit codes |
14 | my %e = qw( | 14 | my %e = qw( |
15 | OK 0 | 15 | OK 0 |
16 | WARNING 1 | 16 | WARNING 1 |
@@ -58,9 +58,3 @@ sub test_expected { | |||
58 | like $r, qr/^$n $expected->{$_}/i, "looks $expected->{$_} with $_"; | 58 | like $r, qr/^$n $expected->{$_}/i, "looks $expected->{$_} with $_"; |
59 | } | 59 | } |
60 | } | 60 | } |
61 | |||
62 | |||
63 | |||
64 | |||
65 | |||
66 | |||