Login
RT #74647: False positive in TestingAndDebugging::ProhibitNoWarnings
[gknop/Perl-Critic.git] / t / TestingAndDebugging / ProhibitNoWarnings.run
1 ## name warnings disabled
2 ## failures 1
3 ## cut
4
5 package foo;
6
7 no warnings;
8
9 #-----------------------------------------------------------------------------
10
11 ## name selective warnings disabled, regular quotes
12 ## failures 1
13 ## cut
14
15 package foo;
16
17 no warnings 'uninitialized', 'deprecated';
18
19 #-----------------------------------------------------------------------------
20
21 ## name selective warnings disabled, qw<>
22 ## failures 1
23 ## cut
24
25 package foo;
26
27 no warnings qw(closure glob);
28
29 #-----------------------------------------------------------------------------
30
31 ## name allow no warnings, mixed case config
32 ## failures 0
33 ## parms {allow => 'iO Glob OnCe'}
34 ## cut
35
36 package foo;
37
38 no warnings qw(glob io once);
39
40 #-----------------------------------------------------------------------------
41
42 ## name allow no warnings, comma delimimted
43 ## failures 0
44 ## parms {allow => 'numeric,portable, pack'}
45 # Funky config
46 ## cut
47
48 package foo;
49
50 no warnings "numeric", "pack", "portable";
51
52 #-----------------------------------------------------------------------------
53
54 ## name wrong case, funky config
55 ## parms { allow => 'NumerIC;PORTABLE' }
56 ## failures 1
57 ## cut
58
59 package foo;
60
61 no warnings "numeric", "pack", 'portable';
62
63 #-----------------------------------------------------------------------------
64
65 ## name More wrong case, funky config
66 ## failures 1
67 ## parms { allow => 'paCK/PortablE' }
68 ## cut
69
70 package foo;
71
72 no warnings qw(numeric pack portable);
73
74 #-----------------------------------------------------------------------------
75
76 ## name with_at_least_one, no categories
77 ## failures 1
78 ## parms { allow_with_category_restriction => 1 }
79 ## cut
80
81 package foo;
82
83 no warnings;
84
85 #-----------------------------------------------------------------------------
86
87 ## name with_at_least_one, one category
88 ## failures 0
89 ## parms { allow_with_category_restriction => 1 }
90 ## cut
91
92 package foo;
93
94 no warnings "uninitalized";
95
96 #-----------------------------------------------------------------------------
97
98 ## name with_at_least_one, many categories, regular quotes
99 ## failures 0
100 ## parms { allow_with_category_restriction => 1 }
101 ## cut
102
103 package foo;
104
105 no warnings "uninitialized", 'glob';
106
107 #-----------------------------------------------------------------------------
108
109 ## name with_at_least_one, many categories, qw<>
110 ## failures 0
111 ## parms { allow_with_category_restriction => 1 }
112 ## cut
113
114 package foo;
115
116 no warnings qw< uninitialized glob >;
117
118 #-----------------------------------------------------------------------------
119
120 ## name allow_with_category_restriction, category qw. RT #74647,
121 ## failures 0
122 ## parms { allow_with_category_restriction => 1 }
123 ## cut
124
125 no warnings 'qw';   # Yes, 'qw' is an actual warnings category.
126 no warnings ( foo => "bar" );
127
128 #-----------------------------------------------------------------------------
129
130 ##############################################################################
131 #      $URL$
132 #     $Date$
133 #   $Author$
134 # $Revision$
135 ##############################################################################
136
137 # Local Variables:
138 #   mode: cperl
139 #   cperl-indent-level: 4
140 #   fill-column: 78
141 #   indent-tabs-mode: nil
142 #   c-indentation-style: bsd
143 # End:
144 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :