Login
Add new policy Variables::ProhibitMatchVars
[gknop/Perl-Critic.git] / t / 20_policies_variables.t
index 296a19f..1e33688 100755 (executable)
@@ -7,7 +7,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 8;
+use Test::More tests => 10;
 use Perl::Critic::Config;
 use Perl::Critic;
 
@@ -56,6 +56,34 @@ is( pcritique($policy, \$code), 0, $policy);
 #----------------------------------------------------------------
 
 $code = <<'END_PERL';
+use English;
+ use English qw($PREMATCH) ; 
+use English qw($MATCH);
+use English qw($POSTMATCH);
+$`;
+$&;
+$';
+$PREMATCH;
+$MATCH;
+$POSTMATCH;
+END_PERL
+
+$policy = 'Variables::ProhibitMatchVars';
+is( pcritique($policy, \$code), 10, $policy);
+
+#----------------------------------------------------------------
+
+$code = <<'END_PERL';
+use English qw(-no_match_vars);
+use English qw($EVAL_ERROR);
+END_PERL
+
+$policy = 'Variables::ProhibitMatchVars';
+is( pcritique($policy, \$code), 0, $policy);
+
+#----------------------------------------------------------------
+
+$code = <<'END_PERL';
 our $var1 = 'foo';
 our (%var2, %var3) = 'foo';
 our (%VAR4, $var5) = ();