diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/Nagios-Plugin-05.t | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/t/Nagios-Plugin-05.t b/t/Nagios-Plugin-05.t new file mode 100644 index 0000000..cc602cc --- /dev/null +++ b/t/Nagios-Plugin-05.t | |||
| @@ -0,0 +1,16 @@ | |||
| 1 | # Check for exported vars | ||
| 2 | # Can't include Nagios::Plugin::Functions because it also exports %STATUS_TEXT | ||
| 3 | |||
| 4 | use strict; | ||
| 5 | use Test::More tests=>4; | ||
| 6 | |||
| 7 | BEGIN { use_ok('Nagios::Plugin') }; | ||
| 8 | |||
| 9 | eval ' $_ = $STATUS_TEXT{0} '; | ||
| 10 | like( $@, '/Global symbol "%STATUS_TEXT" requires explicit package name/' ); | ||
| 11 | |||
| 12 | use_ok("Nagios::Plugin", qw(%STATUS_TEXT)); | ||
| 13 | |||
| 14 | eval ' $_ = $STATUS_TEXT{0} '; | ||
| 15 | is( $@, '' ); | ||
| 16 | |||
