Login
Resolved failing test cases for Miscellanea::ProhibitUnrestrictedNoCritic. Next...
[gknop/Perl-Critic.git] / t / Miscellanea / ProhibitUnrestrictedNoCritic.run
1 ##----------------------------------------------------------------------------
2 ## name standard failures
3 ## failures 4
4 ## cut
5
6 ##no critic
7 ## no critic
8 ## no critic;
9 ## no critic #blah,blah
10
11 ##----------------------------------------------------------------------------
12 ## name slightly more complicated failures
13 ## failures 6
14 ## cut
15
16 # just some spacing variations here...
17 $foo = $bar; ##  no critic
18 $foo = $bar; ##no critic
19
20 $foo = $bar; ## no critic ()
21 $foo = $bar; ## no critic ''
22 $foo = $bar; ## no critic ""
23 $foo = $bar; ## no critic qw()
24
25 #----------------------------------------------------------------------------
26 ## name unrestricted "no critic" on a sub block
27 ## failures 5
28 ## cut
29
30 sub frobulate { ##no critic
31     return $frob;
32 }
33     
34 sub frobulate { ## no critic #blah,blah
35     return $frob;
36 }
37
38 sub frobulate { ## no critic ''
39     return $frob;
40 }
41
42 sub frobulate { ## no critic ""
43     return $frob;
44 }
45
46 sub frobulate { ## no critic ()
47     return $frob;
48 }
49
50 ##----------------------------------------------------------------------------
51 ## name standard passes
52 ## failures 0
53 ## cut
54
55 ## no critic (shizzle)
56 ## no critic 'shizzle'
57 ## no critic "shizzle"
58 ## no critic qw(shizzle) #blah,blah
59
60 $foo = $bar; ## no critic 'shizzle';
61 $foo = $bar; ## no critic "shizzle";
62 $foo = $bar; ## no critic (shizzle);
63 $foo = $bar; ## no critic qw(shizzle);
64
65
66 sub frobulate { ## no critic 'shizzle'
67     return $frob;
68 }
69
70 sub frobulate { ## no critic "shizzle"
71     return $frob;
72 }
73
74 sub frobulate { ## no critic (shizzle)
75     return $frob;
76 }
77
78 sub fornicate { ## no critic qw(shizzle)
79     return $forn;
80 }