diff options
Diffstat (limited to 't/Nagios-Plugin-Getopt-03.t')
-rw-r--r-- | t/Nagios-Plugin-Getopt-03.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/Nagios-Plugin-Getopt-03.t b/t/Nagios-Plugin-Getopt-03.t index 11443c8..560b782 100644 --- a/t/Nagios-Plugin-Getopt-03.t +++ b/t/Nagios-Plugin-Getopt-03.t | |||
@@ -96,7 +96,8 @@ for my $infile (glob File::Spec->catfile($tdir, 'input', $glob)) { | |||
96 | eval { $ng->getopts }; | 96 | eval { $ng->getopts }; |
97 | if ($@) { | 97 | if ($@) { |
98 | chomp $@; | 98 | chomp $@; |
99 | ok($infile =~ m/_dies?$/, "$infile ($@)"); | 99 | ok($infile =~ m/_(dies?|catch)$/, "$infile ($@)"); |
100 | is($@, $EXPECTED{$infile}, $infile) if ($infile =~ m/_catch$/); | ||
100 | } | 101 | } |
101 | else { | 102 | else { |
102 | is($plugin . ' ' . $ng->_cmdline, $EXPECTED{$infile}, $infile); | 103 | is($plugin . ' ' . $ng->_cmdline, $EXPECTED{$infile}, $infile); |