Login
ProhibitQuotedWordLists does not apply to lists
[gknop/Perl-Critic.git] / t / CodeLayout / ProhibitQuotedWordLists.run
1 ## name Basic failure
2 ## failures 2
3 ## cut
4
5 @list = ('foo', 'bar', 'baz-bot');
6
7 @list = ('foo',
8          'bar',
9          'baz-bot');
10
11 #-----------------------------------------------------------------------------
12 ## name Non-word lists
13 ## failures 0
14 ## cut
15
16 @list = ('3/4', '-123', '#@$%');
17
18 @list = ('3/4',
19          '-123',
20          '#@$%');
21
22 #-----------------------------------------------------------------------------
23 ## name Basic passing
24 ## failures 0
25 ## cut
26
27 ('foo');
28 @list = ();
29 @list = ('foo');
30 @list = ('foo', 'bar', 'bee baz');
31 @list = ('foo', 'bar', q{bee baz});
32 @list = ('foo', 'bar', q{});
33 @list = ('foo', 'bar', 1.0);
34 @list = ('foo', 'bar', 'foo'.'bar');
35 @list = ($foo, 'bar', 'baz');
36 @list = (foo => 'bar');
37 %hash = ('foo' => 'bar', 'fo' => 'fum');
38 my_function('foo', 'bar', 'fudge');
39 $an_object->a_method('foo', 'bar', 'fudge');
40 foreach ('foo', 'bar', 'nuts'){ do_something($_) }
41
42 #-----------------------------------------------------------------------------
43
44 ## name Three elements with minimum set to four
45 ## failures 0
46 ## parms {min_elements => 4}
47 ## cut
48
49 @list = ('foo', 'bar', 'baz');
50
51 #-----------------------------------------------------------------------------
52
53 ## name Four elements with minimum set to four
54 ## failures 1
55 ## parms {min_elements => 4}
56 ## cut
57
58 @list = ('foo', 'bar', 'baz', 'nuts');
59
60 #-----------------------------------------------------------------------------
61
62 ##############################################################################
63 #      $URL$
64 #     $Date$
65 #   $Author$
66 # $Revision$
67 ##############################################################################
68
69 # Local Variables:
70 #   mode: cperl
71 #   cperl-indent-level: 4
72 #   fill-column: 78
73 #   indent-tabs-mode: nil
74 #   c-indentation-style: bsd
75 # End:
76 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :