diff options
Diffstat (limited to 't/Nagios-Plugin-Functions-01.t')
-rw-r--r-- | t/Nagios-Plugin-Functions-01.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/Nagios-Plugin-Functions-01.t b/t/Nagios-Plugin-Functions-01.t index 70db221..5268255 100644 --- a/t/Nagios-Plugin-Functions-01.t +++ b/t/Nagios-Plugin-Functions-01.t | |||
@@ -1,6 +1,6 @@ | |||
1 | 1 | ||
2 | use strict; | 2 | use strict; |
3 | use Test::More tests => 112; | 3 | use Test::More tests => 113; |
4 | 4 | ||
5 | BEGIN { use_ok("Nagios::Plugin::Functions", ":all"); } | 5 | BEGIN { use_ok("Nagios::Plugin::Functions", ":all"); } |
6 | Nagios::Plugin::Functions::_fake_exit(1); | 6 | Nagios::Plugin::Functions::_fake_exit(1); |
@@ -154,3 +154,8 @@ for (@ok) { | |||
154 | $_->[1] . '.*' . $_->[2])); | 154 | $_->[1] . '.*' . $_->[2])); |
155 | } | 155 | } |
156 | 156 | ||
157 | # Check that _use_die set to 1 will catch exceptions correctly | ||
158 | Nagios::Plugin::Functions::_fake_exit(0); | ||
159 | Nagios::Plugin::Functions::_use_die(1); | ||
160 | eval { nagios_die("Using die") }; | ||
161 | is( $@, "NAGIOS-PLUGIN-FUNCTIONS-01 UNKNOWN - Using die\n", "Caught exception"); | ||