Login
Fix ProhibitEscapedMetacharacters in tests.
authorElliot Shank <perl@galumph.com>
Mon, 21 Jul 2008 21:36:04 +0000 (21:36 +0000)
committerElliot Shank <perl@galumph.com>
Mon, 21 Jul 2008 21:36:04 +0000 (21:36 +0000)
t/01_config.t
t/06_violation.t
t/ControlStructures/ProhibitNegativeExpressionsInUnlessAndUntilConditions.run.PL
t/Variables/RequireLocalizedPunctuationVars.run.PL
xt/author/93_version.t
xt/author/94_includes.t
xt/author/generate_without_optional_dependencies_wrappers.PL

index bb8607e..ef1dd9d 100644 (file)
@@ -390,7 +390,7 @@ my $total_policies   = scalar @names_of_policies_willing_to_work;
     eval{ Perl::Critic::Config->new( -severity => 'bogus' ) };
     like(
         $EVAL_ERROR,
-        qr/The value for the global "-severity" option \("bogus"\) is not one of the valid severity names/ms, ## no critic (RequireExtendedFormatting)
+        qr/The value for the global "-severity" option [(]"bogus"[)] is not one of the valid severity names/ms, ## no critic (RequireExtendedFormatting)
         'invalid severity'
     );
 
index b912de9..b797713 100644 (file)
@@ -95,8 +95,11 @@ is($viol->explanation(), 'See pages 28,30 of PBP', 'explanation');
 
 #-----------------------------------------------------------------------------
 # Import tests
-like(ViolationTest->get_violation()->diagnostics(),
-     qr/ \A \s* This [ ] is [ ] a [ ] test [ ] diagnostic\. \s*\z /xms, 'import diagnostics');
+like(
+    ViolationTest->get_violation()->diagnostics(),
+    qr/ \A \s* This [ ] is [ ] a [ ] test [ ] diagnostic [.] \s*\z /xms,
+    'import diagnostics',
+);
 
 #-----------------------------------------------------------------------------
 # Violation sorting
index e06d1aa..526f52d 100644 (file)
@@ -15,7 +15,7 @@ our $VERSION = '1.088';
 
 
 my $this_program = __FILE__;
-(my $test_file_name = $this_program) =~ s/ \.PL \z //xms;
+(my $test_file_name = $this_program) =~ s/ [.] PL \z //xms;
 if ($this_program eq $test_file_name) {
     confess
         'Was not able to figure out the name of the file to generate.'
index a6b289a..59a93f6 100644 (file)
@@ -17,7 +17,7 @@ use B::Keywords qw();
 use List::MoreUtils qw< apply uniq >;
 
 my $this_program = __FILE__;
-(my $test_file_name = $this_program) =~ s/ \.PL \z //xms;
+(my $test_file_name = $this_program) =~ s< [.] PL \z ><>xms;
 if ($this_program eq $test_file_name) {
     confess
         'Was not able to figure out the name of the file to generate.'
index 13ce27a..d2ec6d5 100644 (file)
@@ -32,7 +32,7 @@ if (! defined $last_version) {
 }
 
 sub check_version {
-    return if (! m{blib/script/}xms && ! m{\.pm \z}xms);
+    return if (! m< blib/script/ >xms && ! m< [.] pm \z >xms);
 
     local $INPUT_RECORD_SEPARATOR = undef;
     my $fh;
index 1d64a19..f68694d 100644 (file)
@@ -36,7 +36,7 @@ my %implied = (
 my @pm;
 find(
     {
-        wanted => sub { push @pm, $_ if m/\.pm \z/xms && !m/svn/xms },
+        wanted => sub { push @pm, $_ if m< [.] pm \z >xms && ! m<svn>xms },
         no_chdir => 1,
     },
     'lib'
@@ -70,7 +70,7 @@ for my $file (@pm) {
 
             my $token = $pkg->next_sibling;
 
-            if ($token =~ m/\A \(/xms) {
+            if ($token =~ m< \A [(] >xms) {
                 $name =~ s/::\w+\z//xms;
             }
 
index f8b40b1..f47351b 100644 (file)
@@ -47,8 +47,8 @@ foreach my $test_program_name (@ARGV) {
         $test_program_name =~ m<
             \A
             $GENERATED_DIRECTORY
-            ( (?: t | xt/author ) / [\w.]+ \.t ) # test to be wrapped
-            _without_optional_dependencies\.t   # suffix the new test will have
+            ( (?: t | xt/author ) / [\w.]+ [.] t ) # test to be wrapped
+            _without_optional_dependencies [.] t   # suffix the new test will have
             \z
         >xmso;
     if (not $wrapped_test_name) {