Login
Some failing test cases for ProhibitUnrestrictedNoCritic.
[gknop/Perl-Critic.git] / t / Miscellanea / ProhibitUnrestrictedNoCritic.run
index 215f650..9f3814c 100644 (file)
@@ -1,16 +1,31 @@
 ##----------------------------------------------------------------------------
 ## name standard failures
-## failures 6
+## failures 12
 ## cut
 
 ## no critic
 ## no critic;
 ## no critic #blah,blah
 
-$foo = $bar; ## no critic ();
-$foo = $bar; ## no critic qw();
+$foo = $bar; ## no critic
+$foo = $bar; ## no critic ()
+$foo = $bar; ## no critic ''
+$foo = $bar; ## no critic ""
+$foo = $bar; ## no critic qw()
 
-sub frobulate { ## no critic
+sub frobulate { ## no critic #blah,blah
+    return $frob;
+}
+
+sub frobulate { ## no critic ''
+    return $frob;
+}
+
+sub frobulate { ## no critic ""
+    return $frob;
+}
+
+sub frobulate { ## no critic ()
     return $frob;
 }
 
@@ -20,14 +35,27 @@ sub frobulate { ## no critic
 ## cut
 
 ## no critic (shizzle)
+## no critic 'shizzle'
+## no critic "shizzle"
 ## no critic qw(shizzle) #blah,blah
 
+$foo = $bar; ## no critic 'shizzle';
+$foo = $bar; ## no critic "shizzle";
 $foo = $bar; ## no critic (shizzle);
 $foo = $bar; ## no critic qw(shizzle);
 
-sub frobulate { ## no critic (shizzle)
+
+sub frobulate { ## no critic 'shizzle'
     return $frob;
+}
 
+sub frobulate { ## no critic "shizzle"
+    return $frob;
+}
+
+sub frobulate { ## no critic (shizzle)
+    return $frob;
+}
 
 sub fornicate { ## no critic qw(shizzle)
     return $forn;