Login
f55421462ec02aa839ac3ba007902681abe2d705
[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 ##############################################################################
121 #      $URL$
122 #     $Date$
123 #   $Author$
124 # $Revision$
125 ##############################################################################
126
127 # Local Variables:
128 #   mode: cperl
129 #   cperl-indent-level: 4
130 #   fill-column: 78
131 #   indent-tabs-mode: nil
132 #   c-indentation-style: bsd
133 # End:
134 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :