summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Changes1
-rw-r--r--t/Nagios-Plugin-05.t16
2 files changed, 17 insertions, 0 deletions
diff --git a/Changes b/Changes
index 64b8a56..6061e61 100644
--- a/Changes
+++ b/Changes
@@ -3,6 +3,7 @@ Revision history for Perl module Nagios::Plugin.
30.34 15th April 2010 30.34 15th April 2010
4 - Amended standard --extra-opts help 4 - Amended standard --extra-opts help
5 - pod fix (Frank Wiegand - RT51872) 5 - pod fix (Frank Wiegand - RT51872)
6 - Added %STATUS_TEXT to valid possible exports (Andrew Ford - RT46048)
6 7
70.33 5th June 2009 80.33 5th June 2009
8 - Fixed infinite loop when invalid performance data with multiple = were present 9 - Fixed infinite loop when invalid performance data with multiple = were present
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
4use strict;
5use Test::More tests=>4;
6
7BEGIN { use_ok('Nagios::Plugin') };
8
9eval ' $_ = $STATUS_TEXT{0} ';
10like( $@, '/Global symbol "%STATUS_TEXT" requires explicit package name/' );
11
12use_ok("Nagios::Plugin", qw(%STATUS_TEXT));
13
14eval ' $_ = $STATUS_TEXT{0} ';
15is( $@, '' );
16