diff options
| author | Sven Nierlein <sven@nierlein.de> | 2015-03-30 15:32:53 (GMT) |
|---|---|---|
| committer | Sven Nierlein <sven@nierlein.de> | 2015-03-30 15:32:53 (GMT) |
| commit | 5b2ab7f928b17b2013bdc914e36f7c2314f7b922 (patch) | |
| tree | 43276f0865d29d07ddae39c0abde721f48589e33 | |
| parent | 4f60c45a99233010365ed34c380b156335672e0c (diff) | |
| download | monitoring-plugin-perl-5b2ab7f.tar.gz | |
fix warning in function tests
fixes https://rt.cpan.org/Ticket/Display.html?id=103190
Signed-off-by: Sven Nierlein <sven@nierlein.de>
| -rw-r--r-- | t/Monitoring-Plugin-Functions-01.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/Monitoring-Plugin-Functions-01.t b/t/Monitoring-Plugin-Functions-01.t index 084ad28..d99dcf7 100644 --- a/t/Monitoring-Plugin-Functions-01.t +++ b/t/Monitoring-Plugin-Functions-01.t | |||
| @@ -19,7 +19,7 @@ foreach my $m ("", qw(::Threshold ::Getopt ::Performance ::Range)) { | |||
| 19 | is(get_shortname, "MONITORING-PLUGIN-FUNCTIONS-01", "get_shortname ok"); | 19 | is(get_shortname, "MONITORING-PLUGIN-FUNCTIONS-01", "get_shortname ok"); |
| 20 | 20 | ||
| 21 | # Hardcoded checks of constants | 21 | # Hardcoded checks of constants |
| 22 | ok(%ERRORS, '%ERRORS defined'); | 22 | ok(defined %ERRORS, '%ERRORS defined'); |
| 23 | is(OK, $ERRORS{OK}, "OK => $ERRORS{OK}"); | 23 | is(OK, $ERRORS{OK}, "OK => $ERRORS{OK}"); |
| 24 | is(WARNING, $ERRORS{WARNING}, "WARNING => $ERRORS{WARNING}"); | 24 | is(WARNING, $ERRORS{WARNING}, "WARNING => $ERRORS{WARNING}"); |
| 25 | is(CRITICAL, $ERRORS{CRITICAL}, "CRITICAL => $ERRORS{CRITICAL}"); | 25 | is(CRITICAL, $ERRORS{CRITICAL}, "CRITICAL => $ERRORS{CRITICAL}"); |