Login
CodeLayout::ProhibitQuotedWordLists also now applies to the
[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 &my_function('foo', 'bar', 'fudge');
40 $an_object->a_method('foo', 'bar', 'fudge');
41 $a_sub_routine_ref->('foo', 'bar', 'fudge');
42 foreach ('foo', 'bar', 'nuts'){ do_something($_) }
43
44 #-----------------------------------------------------------------------------
45
46 ## name Three elements with minimum set to four
47 ## failures 0
48 ## parms {min_elements => 4}
49 ## cut
50
51 @list = ('foo', 'bar', 'baz');
52
53 #-----------------------------------------------------------------------------
54
55 ## name Four elements with minimum set to four
56 ## failures 1
57 ## parms {min_elements => 4}
58 ## cut
59
60 @list = ('foo', 'bar', 'baz', 'nuts');
61
62 #-----------------------------------------------------------------------------
63 ## name Failing 'use' statements
64 ## failures 1
65 ## cut
66
67 use Foo ('foo', 'bar', 'baz');
68
69 #-----------------------------------------------------------------------------
70 ## name Passing 'use' statements
71 ## failures 0
72 ## cut
73
74 use Foo ();
75 use Foo ('foo', 1, 'bar', '1/2');
76 use Foo ('foo' => 'bar', 'baz' => 'nuts');
77
78 ##############################################################################
79 #      $URL$
80 #     $Date$
81 #   $Author$
82 # $Revision$
83 ##############################################################################
84
85 # Local Variables:
86 #   mode: cperl
87 #   cperl-indent-level: 4
88 #   fill-column: 78
89 #   indent-tabs-mode: nil
90 #   c-indentation-style: bsd
91 # End:
92 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :