diff options
-rw-r--r-- | Changes | 3 | ||||
-rw-r--r-- | lib/Nagios/Plugin.pm | 2 | ||||
-rw-r--r-- | lib/Nagios/Plugin/Functions.pm | 2 | ||||
-rw-r--r-- | t/Nagios-Plugin-Performance.t | 5 |
4 files changed, 8 insertions, 4 deletions
@@ -1,5 +1,8 @@ | |||
1 | Revision history for Perl module Nagios::Plugin. | 1 | Revision history for Perl module Nagios::Plugin. |
2 | 2 | ||
3 | 0.35 3rd December 2010 | ||
4 | - Fixed test failures with Test::More 0.96 (Slaven Rezic and Peter John Edwards - RT57709) | ||
5 | |||
3 | 0.34 15th April 2010 | 6 | 0.34 15th April 2010 |
4 | - Amended standard --extra-opts help | 7 | - Amended standard --extra-opts help |
5 | - pod fix (Frank Wiegand - RT51872) | 8 | - pod fix (Frank Wiegand - RT51872) |
diff --git a/lib/Nagios/Plugin.pm b/lib/Nagios/Plugin.pm index c363c7e..b8c6b99 100644 --- a/lib/Nagios/Plugin.pm +++ b/lib/Nagios/Plugin.pm | |||
@@ -26,7 +26,7 @@ our @EXPORT_OK = qw(%ERRORS %STATUS_TEXT); | |||
26 | # CPAN stupidly won't index this module without a literal $VERSION here, | 26 | # CPAN stupidly won't index this module without a literal $VERSION here, |
27 | # so we're forced to duplicate it explicitly | 27 | # so we're forced to duplicate it explicitly |
28 | # Make sure you update $Nagios::Plugin::Functions::VERSION too | 28 | # Make sure you update $Nagios::Plugin::Functions::VERSION too |
29 | our $VERSION = "0.34"; | 29 | our $VERSION = "0.35"; |
30 | 30 | ||
31 | sub new { | 31 | sub new { |
32 | my $class = shift; | 32 | my $class = shift; |
diff --git a/lib/Nagios/Plugin/Functions.pm b/lib/Nagios/Plugin/Functions.pm index 455439c..9c32b3b 100644 --- a/lib/Nagios/Plugin/Functions.pm +++ b/lib/Nagios/Plugin/Functions.pm | |||
@@ -12,7 +12,7 @@ use Params::Validate qw(:types validate); | |||
12 | use Math::Calc::Units; | 12 | use Math::Calc::Units; |
13 | 13 | ||
14 | # Remember to update Nagios::Plugins as well | 14 | # Remember to update Nagios::Plugins as well |
15 | our $VERSION = "0.34"; | 15 | our $VERSION = "0.35"; |
16 | 16 | ||
17 | our @STATUS_CODES = qw(OK WARNING CRITICAL UNKNOWN DEPENDENT); | 17 | our @STATUS_CODES = qw(OK WARNING CRITICAL UNKNOWN DEPENDENT); |
18 | 18 | ||
diff --git a/t/Nagios-Plugin-Performance.t b/t/Nagios-Plugin-Performance.t index 6904f4c..8dce336 100644 --- a/t/Nagios-Plugin-Performance.t +++ b/t/Nagios-Plugin-Performance.t | |||
@@ -202,8 +202,9 @@ cmp_ok( $p[0]->uom, "eq", "s", "uom okay"); | |||
202 | ok( defined $p[0]->threshold->critical->is_set, "Critical range has been set"); | 202 | ok( defined $p[0]->threshold->critical->is_set, "Critical range has been set"); |
203 | # The two below used to be cmp_ok, but Test::More 0.86 appears to have a problem with a stringification | 203 | # The two below used to be cmp_ok, but Test::More 0.86 appears to have a problem with a stringification |
204 | # of 0. See http://rt.cpan.org/Ticket/Display.html?id=41109 | 204 | # of 0. See http://rt.cpan.org/Ticket/Display.html?id=41109 |
205 | is( $p[0]->threshold->warning, "0", "warn okay"); | 205 | # We need to force stringification for test. See RT 57709 |
206 | is( $p[0]->threshold->critical, "0", "crit okay"); | 206 | is( $p[0]->threshold->warning."", "0", "warn okay"); |
207 | is( $p[0]->threshold->critical."", "0", "crit okay"); | ||
207 | 208 | ||
208 | @p = Nagios::Plugin::Performance->parse_perfstring("pct_used=73.7%;90;95"); | 209 | @p = Nagios::Plugin::Performance->parse_perfstring("pct_used=73.7%;90;95"); |
209 | cmp_ok( $p[0]->label, "eq", "pct_used", "label okay"); | 210 | cmp_ok( $p[0]->label, "eq", "pct_used", "label okay"); |