Login
Apply the unmodified patch from Schwern (modulo dealing with
[gknop/Perl-Critic.git] / t / 07_perlcritic.t
index c43d7dd..18bedef 100644 (file)
@@ -18,7 +18,7 @@ use File::Spec;
 
 use Perl::Critic::Utils qw< :characters >;
 
-use Test::More tests => 36;
+use Test::More tests => 37;
 
 #-----------------------------------------------------------------------------
 
@@ -179,6 +179,14 @@ $message = "@ARGV";
 %options = get_options();
 is( $options{-quiet}, 1, $message);
 
+
+#-----------------------------------------------------------------------------
+
+local @ARGV = qw(-pager foo);
+%options = eval { get_options() };
+is( $options{-pager}, "foo",  "@ARGV" );
+
+
 #-----------------------------------------------------------------------------
 # Intercept pod2usage so we can test invalid options and special switches