diff options
Diffstat (limited to 't/Nagios-Plugin-Range.t')
-rw-r--r-- | t/Nagios-Plugin-Range.t | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/t/Nagios-Plugin-Range.t b/t/Nagios-Plugin-Range.t index f01518d..df5dbd5 100644 --- a/t/Nagios-Plugin-Range.t +++ b/t/Nagios-Plugin-Range.t | |||
@@ -2,13 +2,17 @@ | |||
2 | use strict; | 2 | use strict; |
3 | use Test::More qw(no_plan); #tests => 123; | 3 | use Test::More qw(no_plan); #tests => 123; |
4 | 4 | ||
5 | BEGIN { use_ok('Nagios::Plugin::Range') }; | 5 | BEGIN { |
6 | use_ok('Nagios::Plugin::Range'); | ||
7 | # Silence warnings unless TEST_VERBOSE is set | ||
8 | $SIG{__WARN__} = sub { warn $_[0] if $ENV{TEST_VERBOSE} }; | ||
9 | }; | ||
6 | 10 | ||
7 | diag "\nusing Nagios::Plugin::Range revision ". $Nagios::Plugin::Range::VERSION . "\n"; | 11 | diag "\nusing Nagios::Plugin::Range revision ". $Nagios::Plugin::Range::VERSION . "\n" if $ENV{TEST_VERBOSE}; |
8 | 12 | ||
9 | my $r; | 13 | my $r; |
10 | 14 | ||
11 | diag "'garbage in' checks -- you should see 7 invalid range definition warnings here:"; | 15 | diag "'garbage in' checks -- you should see 7 invalid range definition warnings here:" if $ENV{TEST_VERBOSE}; |
12 | 16 | ||
13 | foreach (qw( | 17 | foreach (qw( |
14 | : | 18 | : |