summaryrefslogtreecommitdiffstats
path: root/t/Nagios-Plugin-Getopt-02.t
diff options
context:
space:
mode:
authorSven Nierlein <sven@nierlein.de>2014-01-20 00:54:34 +0100
committerSven Nierlein <sven@nierlein.de>2014-01-20 00:54:34 +0100
commitb418181dfe80dd75169b6e8a619ac1932155dea2 (patch)
treecad9c0ae0eae8e800cfff60555ead06ad33c6856 /t/Nagios-Plugin-Getopt-02.t
parent1cd8d1c52cbd47121f344c4074aec84653f412ce (diff)
downloadmonitoring-plugin-perl-b418181dfe80dd75169b6e8a619ac1932155dea2.tar.gz
renamed module into Monitoring::Plugin
since the complete monitoring team has been renamed, we also rename this module. Signed-off-by: Sven Nierlein <sven@nierlein.de>
Diffstat (limited to 't/Nagios-Plugin-Getopt-02.t')
-rw-r--r--t/Nagios-Plugin-Getopt-02.t64
1 files changed, 0 insertions, 64 deletions
diff --git a/t/Nagios-Plugin-Getopt-02.t b/t/Nagios-Plugin-Getopt-02.t
deleted file mode 100644
index f83b180..0000000
--- a/t/Nagios-Plugin-Getopt-02.t
+++ /dev/null
@@ -1,64 +0,0 @@
1# Nagios::Plugin::Getopt timeout tests
2
3use strict;
4
5use Test::More tests => 14;
6BEGIN { use_ok('Nagios::Plugin::Getopt') };
7
8# Needed to get evals to work in testing
9Nagios::Plugin::Functions::_use_die(1);
10
11my %PARAM = (
12 version => '0.01',
13 url => 'http://www.openfusion.com.au/labs/nagios/',
14 blurb => 'This plugin tests various stuff.',
15 usage => "Usage: %s -H <host> -w <warning_threshold>
16 -c <critical threshold>",
17 plugin => 'test_plugin',
18 timeout => 18,
19);
20
21sub setup
22{
23 # Instantiate object
24 my $ng = Nagios::Plugin::Getopt->new(%PARAM);
25 ok($ng, 'constructor ok');
26 return $ng;
27}
28
29my $ng;
30
31# No args
32@ARGV = qw();
33$ng = setup();
34$ng->getopts;
35is($ng->timeout, 18, 'default timeout set to 18');
36
37# Check help message
38@ARGV = ( '-h' );
39$ng = setup;
40ok(! defined eval { $ng->getopts }, 'getopts died on help');
41like($@, qr/times out.*default: 18\b/i, 'help timeout changed to 18');
42
43# Explicit timeout
44@ARGV = qw(--timeout=25 --verbose);
45$ng = setup();
46$ng->getopts;
47is($ng->timeout, 25, 'timeout changed to 25');
48
49# Explicit timeout
50@ARGV = qw(-t10 --verbose);
51$ng = setup();
52$ng->getopts;
53is($ng->timeout, 10, 'timeout changed to 10');
54
55# Short timeout, test default timeout handler
56@ARGV = qw(-t2 --verbose);
57$ng = setup();
58$ng->getopts;
59is($ng->timeout, 2, 'timeout changed to 2');
60alarm($ng->timeout);
61# Loop
62ok(! defined eval { 1 while 1 }, 'loop timed out');
63like($@, qr/UNKNOWN\b.*\btimed out/, 'default timeout handler ok');
64