Login
Fix ProhibitInterpolationOfLiterals in tests.
authorElliot Shank <perl@galumph.com>
Mon, 21 Jul 2008 18:58:59 +0000 (18:58 +0000)
committerElliot Shank <perl@galumph.com>
Mon, 21 Jul 2008 18:58:59 +0000 (18:58 +0000)
t/01_config.t
t/01_config_bad_perlcriticrc.t
t/05_utils.t
t/92_memory_leaks.t
xt/author/94_includes.t

index a0dec91..16b4a09 100644 (file)
@@ -153,7 +153,7 @@ my $total_policies   = scalar @names_of_policies_willing_to_work;
     my $critic = Perl::Critic::Config->new( %pc_args );
     my $policy_count = scalar $critic->policies();
     my $expected_count = $SEVERITY_HIGHEST * 10;
-    my $test_name = "user-defined severity, all remaining policies";
+    my $test_name = 'user-defined severity, all remaining policies';
     cmp_ok( $policy_count, '>=', $expected_count, $test_name);
 }
 
index c045598..d2d7ab9 100644 (file)
@@ -103,7 +103,7 @@ while (my ($parameter, $regex) = each %expected_regexes) {
 is(
     ( scalar grep { $INVALID_PARAMETER_MESSAGE eq $_ } @exceptions ),
     1,
-    "should have received an extra-parameter exception",
+    'should have received an extra-parameter exception',
 );
 
 # Test that we get an exception for bad individual policy configuration.
@@ -111,7 +111,7 @@ is(
 is(
     ( scalar grep { is_require_pod_sections_source_exception($_) } @exceptions ),
     1,
-    "should have received an invalid source exception for RequirePodSections",
+    'should have received an invalid source exception for RequirePodSections',
 );
 
 sub generate_global_message_regex {
index f6842c4..86b030f 100644 (file)
@@ -283,7 +283,7 @@ sub test_policy_long_name_and_policy_short_name {
 
 sub test_interpolate {
     is( interpolate( '\r%l\t%c\n' ), "\r%l\t%c\n", 'Interpolation' );
-    is( interpolate( 'literal'    ), "literal",    'Interpolation' );
+    is( interpolate( 'literal'    ), 'literal',    'Interpolation' );
 
     return;
 }
index 32dbebb..fdcee78 100644 (file)
@@ -55,7 +55,7 @@ plan skip_all => 'Test::Memory::Cycle requried to test memory leaks'
     my $pc_doc  = Perl::Critic::Document->new( $ppi_doc );
     my $critic  = Perl::Critic->new( -severity => 1 );
     my @violations = $critic->critique( $pc_doc );
-    confess "No violations were created" if not @violations;
+    confess 'No violations were created' if not @violations;
 
     # One test for each violation, plus one each for Critic and Document.
     plan( tests => scalar @violations + 2 );
index c544ce5..1d64a19 100644 (file)
@@ -97,7 +97,7 @@ sub match {
     return 1 if $deps->{$pkg};
     $pkg = $implied{$pkg};
     return 0 if !defined $pkg;
-    return 1 if "1" eq $pkg;
+    return 1 if '1' eq $pkg;
     return match($pkg, $deps, $thispkg);
 }