forked from perl/perl-Nagios-Plugin
fdd829a00b
patch test to work with perl-5.22 OBS-URL: https://build.opensuse.org/request/show/327317 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Nagios-Plugin?expand=0&rev=22
12 lines
602 B
Diff
12 lines
602 B
Diff
--- a/Nagios-Plugin-0.36/t/Nagios-Plugin-Functions-01.t 2010-12-03 12:46:21.000000000 +0100
|
|
+++ b/Nagios-Plugin-0.36/t/Nagios-Plugin-Functions-01.t 2015-08-27 12:16:13.649140550 +0200
|
|
@@ -19,7 +19,7 @@
|
|
is(get_shortname, "NAGIOS-PLUGIN-FUNCTIONS-01", "get_shortname ok");
|
|
|
|
# Hardcoded checks of constants
|
|
-ok(defined %ERRORS, '%ERRORS defined');
|
|
+ok(%ERRORS, '%ERRORS defined');
|
|
is(OK, $ERRORS{OK}, "OK => $ERRORS{OK}");
|
|
is(WARNING, $ERRORS{WARNING}, "WARNING => $ERRORS{WARNING}");
|
|
is(CRITICAL, $ERRORS{CRITICAL}, "CRITICAL => $ERRORS{CRITICAL}");
|