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 | |||
