Login
Since PPIx::Regexp is no longer optional, some of the tests that use it
authorTom Wyant <harryfmudd@comcast.net>
Mon, 23 Aug 2010 18:08:06 +0000 (18:08 +0000)
committerTom Wyant <harryfmudd@comcast.net>
Mon, 23 Aug 2010 18:08:06 +0000 (18:08 +0000)
no longer need separate .t files. These are moved into the .run files.
Unfortunately it looks like I forgot to add
t/20_policy_prohibit_unused_variables.t to subversion in the first
place, but that's where the tests in the .run file came from.

Added version to 'use PPIx::Regexp' in lib/Perl/Critic.pm.

lib/Perl/Critic.pm
t/20_policy_prohibit_unused_private_subroutines.t [deleted file]
t/Subroutines/ProhibitUnusedPrivateSubroutines.run
t/Variables/ProhibitUnusedVariables.run

index a1dca06..a66c983 100644 (file)
@@ -18,7 +18,7 @@ use base qw(Exporter);
 
 use File::Spec;
 use List::MoreUtils qw< firstidx >;
-use PPIx::Regexp qw< >;
+use PPIx::Regexp 0.010 qw< >;
 use Scalar::Util qw< blessed >;
 
 use Perl::Critic::Exception::Configuration::Generic;
diff --git a/t/20_policy_prohibit_unused_private_subroutines.t b/t/20_policy_prohibit_unused_private_subroutines.t
deleted file mode 100644 (file)
index 0566f33..0000000
+++ /dev/null
@@ -1,96 +0,0 @@
-#!perl
-
-##############################################################################
-#      $URL: http://perlcritic.tigris.org/svn/perlcritic/branches/Perl-Critic-backlog/t/20_policy_require_interpolation_of_metachars.t $
-#     $Date: 2009-09-07 16:19:21 -0500 (Mon, 07 Sep 2009) $
-#   $Author: clonezone $
-# $Revision: 3629 $
-##############################################################################
-
-use 5.006001;
-use strict;
-use warnings;
-
-use Perl::Critic::TestUtils qw< pcritique >;
-
-use Test::More tests => 3;
-
-#-----------------------------------------------------------------------------
-
-our $VERSION = '1.105';
-
-#-----------------------------------------------------------------------------
-
-Perl::Critic::TestUtils::block_perlcriticrc();
-
-# This is in addition to the regular .run file.
-
-my $policy = 'Subroutines::ProhibitUnusedPrivateSubroutines';
-
-
-my $code = <<'END_PERL';
-
-s/ ( foo ) / _bar( $1 ) /smxe;
-
-sub _bar {
-    my ( $foo ) = @_;
-    return $foo x 3;
-}
-
-END_PERL
-
-my $result = pcritique($policy, \$code);
-is(
-    $result,
-    0,
-    'Subroutine called in replacement portion of s/.../.../e',
-);
-
-
-$code = <<'END_PERL';
-
-s/ ( foo ) /@{[ _bar( $1 ) ]}/smx;
-
-sub _bar {
-    my ( $foo ) = @_;
-    return $foo x 3;
-}
-
-END_PERL
-
-$result = pcritique($policy, \$code);
-is(
-    $result,
-    0,
-    'Subroutine called in regexp interpolation',
-);
-
-
-$code = <<'END_PERL';
-
-m/ (?{ _foo() }) /smx;
-
-sub _foo {
-    return 'bar';
-}
-
-END_PERL
-
-$result = pcritique($policy, \$code);
-is(
-    $result,
-    0,
-    'Subroutine called in regexp embedded code',
-);
-
-
-#-----------------------------------------------------------------------------
-
-# Local Variables:
-#   mode: cperl
-#   cperl-indent-level: 4
-#   fill-column: 78
-#   indent-tabs-mode: nil
-#   c-indentation-style: bsd
-# End:
-# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :
index 1054225..30e806d 100644 (file)
@@ -183,6 +183,44 @@ sub _Foo::_foo {}
 
 #-----------------------------------------------------------------------------
 
+## name Subroutine called in replacement portion of s/.../.../e
+## failures 0
+## cut
+
+s/ ( foo ) / _bar( $1 ) /smxe;
+
+sub _bar {
+    my ( $foo ) = @_;
+    return $foo x 3;
+}
+
+#-----------------------------------------------------------------------------
+
+## name Subroutine called in regexp interpolation
+## failures 0
+## cut
+
+s/ ( foo ) /@{[ _bar( $1 ) ]}/smx;
+
+sub _bar {
+    my ( $foo ) = @_;
+    return $foo x 3;
+}
+
+#-----------------------------------------------------------------------------
+
+## name Subroutine called in regexp embedded code
+## failures 0
+## cut
+
+m/ (?{ _foo() }) /smx;
+
+sub _foo {
+    return 'bar';
+}
+
+#-----------------------------------------------------------------------------
+
 
 ##############################################################################
 #      $URL$
index 4654949..d135a6d 100644 (file)
@@ -132,6 +132,36 @@ my $x = 2;
 
 #-----------------------------------------------------------------------------
 
+## name Interpolation in replacement portion of s/.../.../smx
+## failures 0
+## cut
+
+my %foo;
+
+s/ ( \w+ ) /$foo{$1}/smx;
+
+#-----------------------------------------------------------------------------
+
+## name Interpolation in replacement portion of s/.../.../smxe
+## failures 0
+## cut
+
+my %foo;
+
+s/ ( \w+ ) / $foo{$1} /smxe;
+
+#-----------------------------------------------------------------------------
+
+## name Variable used in regexp embedded code
+## failures 0
+## cut
+
+my %foo;
+
+m/ (?{ $foo{bar} }) /smx;
+
+#-----------------------------------------------------------------------------
+
 ##############################################################################
 #      $URL$
 #     $Date$