diff options
author | Ton Voon <tonvoon@users.sourceforge.net> | 2006-06-08 12:27:44 +0000 |
---|---|---|
committer | Ton Voon <tonvoon@users.sourceforge.net> | 2006-06-08 12:27:44 +0000 |
commit | 2c6651034f76e2bccb549a867485f8fabbf07cb1 (patch) | |
tree | 8de53d7efe4564017e1ebce73353c7e3a3c8b548 /t/Nagios-Plugin-Threshold.t | |
parent | 83e29d795dddf34a652cda8665179b77372ddcfe (diff) | |
download | monitoring-plugin-perl-2c6651034f76e2bccb549a867485f8fabbf07cb1.tar.gz |
Initial revision
git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/Nagios-Plugin/trunk@1419 f882894a-f735-0410-b71e-b25c423dba1c
Diffstat (limited to 't/Nagios-Plugin-Threshold.t')
-rw-r--r-- | t/Nagios-Plugin-Threshold.t | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/t/Nagios-Plugin-Threshold.t b/t/Nagios-Plugin-Threshold.t new file mode 100644 index 0000000..764f7b0 --- /dev/null +++ b/t/Nagios-Plugin-Threshold.t | |||
@@ -0,0 +1,32 @@ | |||
1 | |||
2 | use strict; | ||
3 | use Test::More tests => 18; | ||
4 | BEGIN { use_ok('Nagios::Plugin::Threshold'); use_ok('Nagios::Plugin::Base') }; | ||
5 | |||
6 | Nagios::Plugin::Base->exit_on_die(0); | ||
7 | Nagios::Plugin::Base->print_on_die(0); | ||
8 | |||
9 | my $t = Nagios::Plugin::Threshold->set_thresholds(critical => "80"); | ||
10 | ok( defined $t, "Threshold ('', '80') set"); | ||
11 | ok( ! defined $t->warning, "Warning not set"); | ||
12 | cmp_ok( $t->critical->end, '==', 80, "Critical set correctly"); | ||
13 | |||
14 | $t = Nagios::Plugin::Threshold->set_thresholds(warning => "5:33", critical => ""); | ||
15 | ok( defined $t, "Threshold ('5:33', '') set"); | ||
16 | cmp_ok( $t->warning->start, '==', 5, "Warning start set"); | ||
17 | cmp_ok( $t->warning->end, '==', 33, "Warning end set"); | ||
18 | ok( ! defined $t->critical, "Critical not set"); | ||
19 | |||
20 | $t = Nagios::Plugin::Threshold->set_thresholds(warning => "30", critical => "60"); | ||
21 | ok( defined $t, "Threshold ('30', '60') set"); | ||
22 | cmp_ok( $t->warning->end, '==', 30, "Warning end set"); | ||
23 | cmp_ok( $t->critical->end, '==',60, "Critical end set"); | ||
24 | cmp_ok( $t->get_status(15.3), '==', $ERRORS{OK}, "15.3 - ok"); | ||
25 | cmp_ok( $t->get_status(30.0001), '==', $ERRORS{WARNING}, "30.0001 - warning"); | ||
26 | cmp_ok( $t->get_status(69), '==', $ERRORS{CRITICAL}, "69 - critical"); | ||
27 | |||
28 | $t = Nagios::Plugin::Threshold->set_thresholds(warning => "total", critical => "rubbish"); | ||
29 | ok( defined $t, "Threshold object created although ..."); | ||
30 | ok( ! defined $t->warning, "Warning not set"); | ||
31 | ok( ! defined $t->critical, "Critical not set"); | ||
32 | |||