t/Nagios-Plugin-05.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

# Check for exported vars
# Can't include Nagios::Plugin::Functions because it also exports %STATUS_TEXT

use strict;
use Test::More tests=>4;

BEGIN { use_ok('Nagios::Plugin') };

eval ' $_ = $STATUS_TEXT{0} ';
like( $@, '/Global symbol "%STATUS_TEXT" requires explicit package name/' );

use_ok("Nagios::Plugin", qw(%STATUS_TEXT));

eval ' $_ = $STATUS_TEXT{0} ';
is( $@, '' );