Add new test - match on "die" error message

1. Add new test "class" where expected data is the error string caught
2. Add new test exposing a bug where default file used is not shown, ex:
  Invalid section 'bad_section' in config file ''

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)) {
       eval { $ng->getopts };
       if ($@) {
         chomp $@;
-        ok($infile =~ m/_dies?$/, "$infile ($@)");
+        ok($infile =~ m/_(dies?|catch)$/, "$infile ($@)");
+        is($@, $EXPECTED{$infile}, $infile) if ($infile =~ m/_catch$/);
       }
       else { 
         is($plugin . ' ' . $ng->_cmdline, $EXPECTED{$infile}, $infile);