summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/Nagios-Plugin-Range.t9
1 files changed, 7 insertions, 2 deletions
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 @@
1 1
2use strict; 2use strict;
3#use Test::More qw(no_plan); 3#use Test::More qw(no_plan);
4use Test::More tests => 149; 4use Test::More tests => 151;
5 5
6BEGIN { 6BEGIN {
7 use_ok('Nagios::Plugin::Range'); 7 use_ok('Nagios::Plugin::Range');
@@ -157,8 +157,13 @@ $expected = {
157 -95.999 => 1, 157 -95.999 => 1,
158 -1 => 1, 158 -1 => 1,
159 0 => 1, 159 0 => 1,
160 123456789012344.91 => 1, 160 # The fractional values needs to be quoted, otherwise the hash rounds it up to ..345
161 # and there is one less test run.
162 # I think some newer versions of perl use a higher precision value for the hash key.
163 # This doesn't appear to affect the actual plugin though
164 "123456789012344.91" => 1,
161 123456789012345 => 0, 165 123456789012345 => 0,
166 "123456789012345.61" => 0,
162 123456789012346 => 0, 167 123456789012346 => 0,
163}; 168};
164test_expected( $r, $expected ); 169test_expected( $r, $expected );