Login
Added failing test case that came to me in the mail today.
authorJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Tue, 19 Aug 2008 05:31:59 +0000 (05:31 +0000)
committerJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Tue, 19 Aug 2008 05:31:59 +0000 (05:31 +0000)
t/20_policy_prohibithardtabs.t

index ba26ff3..929ff99 100644 (file)
@@ -14,7 +14,7 @@ use warnings;
 # common P::C testing tools
 use Perl::Critic::TestUtils qw(pcritique fcritique);
 
-use Test::More tests => 5;
+use Test::More tests => 6;
 
 #-----------------------------------------------------------------------------
 
@@ -60,6 +60,21 @@ is( pcritique($policy, \$code), 1, $policy );
 #-----------------------------------------------------------------------------
 
 $code = <<"END_PERL";
+#This will be interpolated!
+
+my \@list = qw(
+\tfoo
+\tbar
+\tbaz
+);
+
+END_PERL
+
+is( pcritique($policy, \$code, \%config), 0, 'Tabs in qw()' );
+
+#-----------------------------------------------------------------------------
+
+$code = <<"END_PERL";
 ##This will be interpolated!
 
 sub my_sub {