Login
RT #74647: False positive in TestingAndDebugging::ProhibitNoWarnings
[gknop/Perl-Critic.git] / t / TestingAndDebugging / ProhibitNoWarnings.run
CommitLineData
dccf0913
AL
1## name warnings disabled
2## failures 1
3## cut
4
5package foo;
4df0e413 6
dccf0913
AL
7no warnings;
8
6036a254 9#-----------------------------------------------------------------------------
dccf0913 10
4df0e413 11## name selective warnings disabled, regular quotes
dccf0913
AL
12## failures 1
13## cut
14
15package foo;
dccf0913 16
4df0e413 17no warnings 'uninitialized', 'deprecated';
dccf0913 18
6036a254 19#-----------------------------------------------------------------------------
dccf0913 20
4df0e413 21## name selective warnings disabled, qw<>
dccf0913
AL
22## failures 1
23## cut
24
25package foo;
4df0e413 26
dccf0913
AL
27no warnings qw(closure glob);
28
6036a254 29#-----------------------------------------------------------------------------
dccf0913 30
fd5bd7b5 31## name allow no warnings, mixed case config
dccf0913
AL
32## failures 0
33## parms {allow => 'iO Glob OnCe'}
34## cut
35
36package foo;
4df0e413 37
dccf0913
AL
38no warnings qw(glob io once);
39
6036a254 40#-----------------------------------------------------------------------------
dccf0913 41
fd5bd7b5 42## name allow no warnings, comma delimimted
dccf0913
AL
43## failures 0
44## parms {allow => 'numeric,portable, pack'}
45# Funky config
46## cut
47
48package foo;
4df0e413 49
dccf0913
AL
50no warnings "numeric", "pack", "portable";
51
6036a254 52#-----------------------------------------------------------------------------
dccf0913
AL
53
54## name wrong case, funky config
dccf0913 55## parms { allow => 'NumerIC;PORTABLE' }
fd5bd7b5 56## failures 1
dccf0913
AL
57## cut
58
59package foo;
4df0e413 60
dccf0913
AL
61no warnings "numeric", "pack", 'portable';
62
6036a254 63#-----------------------------------------------------------------------------
dccf0913
AL
64
65## name More wrong case, funky config
66## failures 1
67## parms { allow => 'paCK/PortablE' }
68## cut
69
70package foo;
4df0e413 71
dccf0913 72no warnings qw(numeric pack portable);
39218f9b
ES
73
74#-----------------------------------------------------------------------------
75
76## name with_at_least_one, no categories
77## failures 1
4df0e413 78## parms { allow_with_category_restriction => 1 }
39218f9b
ES
79## cut
80
81package foo;
4df0e413 82
39218f9b
ES
83no warnings;
84
85#-----------------------------------------------------------------------------
86
87## name with_at_least_one, one category
88## failures 0
4df0e413 89## parms { allow_with_category_restriction => 1 }
39218f9b
ES
90## cut
91
92package foo;
4df0e413 93
39218f9b
ES
94no warnings "uninitalized";
95
96#-----------------------------------------------------------------------------
97
4df0e413 98## name with_at_least_one, many categories, regular quotes
39218f9b 99## failures 0
4df0e413 100## parms { allow_with_category_restriction => 1 }
39218f9b
ES
101## cut
102
103package foo;
39218f9b 104
4df0e413
ES
105no 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
114package foo;
39218f9b 115
4df0e413
ES
116no warnings qw< uninitialized glob >;
117
22f0723f
ES
118#-----------------------------------------------------------------------------
119
84b4cc18
TW
120## name allow_with_category_restriction, category qw. RT #74647,
121## failures 0
122## parms { allow_with_category_restriction => 1 }
123## cut
124
125no warnings 'qw'; # Yes, 'qw' is an actual warnings category.
126no warnings ( foo => "bar" );
127
128#-----------------------------------------------------------------------------
129
4df0e413 130##############################################################################
22f0723f
ES
131# $URL$
132# $Date$
133# $Author$
134# $Revision$
135##############################################################################
136
4df0e413
ES
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 :