diff options
Diffstat (limited to 't/Nagios-Plugin-Getopt-03.t')
-rw-r--r-- | t/Nagios-Plugin-Getopt-03.t | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/t/Nagios-Plugin-Getopt-03.t b/t/Nagios-Plugin-Getopt-03.t index 9dc39da..557a2c6 100644 --- a/t/Nagios-Plugin-Getopt-03.t +++ b/t/Nagios-Plugin-Getopt-03.t | |||
@@ -1,4 +1,4 @@ | |||
1 | # Nagios::Plugin::Getopt --default-opts tests | 1 | # Nagios::Plugin::Getopt --extra-opts tests |
2 | 2 | ||
3 | use strict; | 3 | use strict; |
4 | use File::Spec; | 4 | use File::Spec; |
@@ -27,7 +27,8 @@ for my $efile (glob File::Spec->catfile($tdir, 'expected', '*')) { | |||
27 | } | 27 | } |
28 | } | 28 | } |
29 | 29 | ||
30 | $Nagios::Plugin::Getopt::DEFAULT_CONFIG_FILE = File::Spec->catfile($tdir, 'plugins.cfg'); | 30 | # Override NAGIOS_CONFIG_PATH to use our test plugins.ini file |
31 | $ENV{NAGIOS_CONFIG_PATH} = "/random/bogus/path:$tdir"; | ||
31 | 32 | ||
32 | my %PARAM = ( | 33 | my %PARAM = ( |
33 | version => '0.01', | 34 | version => '0.01', |
@@ -56,14 +57,18 @@ my $arg = [ | |||
56 | { spec => 'S', help => '-S' }, | 57 | { spec => 'S', help => '-S' }, |
57 | { spec => 'H=s', help => '-H' }, | 58 | { spec => 'H=s', help => '-H' }, |
58 | { spec => 'p=s@', help => '-p' }, | 59 | { spec => 'p=s@', help => '-p' }, |
60 | { spec => 'path=s@', help => '--path' }, | ||
59 | { spec => 'username|u=s', help => '--username' }, | 61 | { spec => 'username|u=s', help => '--username' }, |
60 | { spec => 'password=s', help => '--password' }, | 62 | { spec => 'password=s', help => '--password' }, |
61 | { spec => 'critical=i', help => '--critical' }, | 63 | { spec => 'critical=s', help => '--critical' }, |
62 | { spec => 'warning=i', help => '--warning' }, | 64 | { spec => 'warning=s', help => '--warning' }, |
63 | { spec => 'expect=s', help => '--expect' }, | 65 | { spec => 'expect=s', help => '--expect' }, |
66 | { spec => 'units=s', help => '--units' }, | ||
64 | ]; | 67 | ]; |
65 | 68 | ||
66 | my %SKIP = map { $_ => 1 } qw(05_singlechar1 07_singlechar3); | 69 | #my %SKIP = map { $_ => 1 } qw(05_singlechar1 07_singlechar3); |
70 | #my %SKIP = map { $_ => 1 } qw(06_singlechar2); | ||
71 | my %SKIP = (); | ||
67 | 72 | ||
68 | # Process all test cases in $tdir/input | 73 | # Process all test cases in $tdir/input |
69 | my $glob = $ARGV[0] || '*'; | 74 | my $glob = $ARGV[0] || '*'; |
@@ -82,7 +87,7 @@ for my $infile (glob File::Spec->catfile($tdir, 'input', $glob)) { | |||
82 | 87 | ||
83 | # Parse the options | 88 | # Parse the options |
84 | SKIP: { | 89 | SKIP: { |
85 | skip "Still discussing how overrides with multiple arguments should work ...", 1 if $SKIP{$infile}; | 90 | skip "Skipping ..." if $SKIP{$infile}; |
86 | 91 | ||
87 | @ARGV = @args; | 92 | @ARGV = @args; |
88 | eval { $ng->getopts }; | 93 | eval { $ng->getopts }; |