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 }; |
