Login
in 20_policies.t, specify a more useful format for
authorElliot Shank <perl@galumph.com>
Sat, 9 Aug 2008 20:49:52 +0000 (20:49 +0000)
committerElliot Shank <perl@galumph.com>
Sat, 9 Aug 2008 20:49:52 +0000 (20:49 +0000)
violations that are shown when there's a test failure.

Inspired by failures in
Variables/RequireLocalizedPunctuationVars.run occurring when
running on a 5.10.0 + patches perl.

t/20_policies.t

index fd4aa1c..1fad2c7 100644 (file)
@@ -20,6 +20,7 @@ use Perl::Critic::TestUtils qw(
     fcritique_with_violations
     subtests_in_tree
 );
+use Perl::Critic::Violation qw<>;
 
 use Test::More;
 
@@ -31,6 +32,10 @@ our $VERSION = '1.090';
 
 Perl::Critic::TestUtils::block_perlcriticrc();
 
+Perl::Critic::Violation::set_format(
+    '%f: %m at line %l, column %c.  %e. (%r)\n'
+);
+
 my $subtests = subtests_in_tree( 't' );
 
 # Check for cmdline limit on policies.  Example: