Fixed a test where a fractional number was stripped out

of the hash key, causing test failures


git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/Nagios-Plugin/trunk@1921 f882894a-f735-0410-b71e-b25c423dba1c

2 files changed, 10 insertions, 2 deletions

diff --git a/Changes b/Changes
index ab710a2..471bb31 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl module Nagios::Plugin.
 
+0.24  1st February 2008
+  - Fixed a test failure which highlighted a precision rounding within hashes
+
 0.23  18th December 2007
   - Use $^X for perl in check_stuff.t test, due to lots of failing in CPAN Testers
 
diff --git a/t/Nagios-Plugin-Range.t b/t/Nagios-Plugin-Range.t
index 9b75a13..6fe080c 100644
--- a/t/Nagios-Plugin-Range.t
+++ b/t/Nagios-Plugin-Range.t
@@ -1,7 +1,7 @@
 
 use strict;
 #use Test::More qw(no_plan); 
-use Test::More tests => 149;
+use Test::More tests => 151;
 
 BEGIN { 
   use_ok('Nagios::Plugin::Range');
@@ -157,8 +157,13 @@ $expected = {
     -95.999 => 1,
     -1 => 1,
     0  => 1,
-    123456789012344.91 => 1,
+    # The fractional values needs to be quoted, otherwise the hash rounds it up to ..345
+    # and there is one less test run.
+    # I think some newer versions of perl use a higher precision value for the hash key. 
+    # This doesn't appear to affect the actual plugin though
+    "123456789012344.91" => 1,
     123456789012345  => 0,
+    "123456789012345.61" => 0,
     123456789012346  => 0,
 };
 test_expected( $r, $expected );