Login
Add allow_double_quote_if_string_contains_single_quote
[gknop/Perl-Critic.git] / t / ValuesAndExpressions / ProhibitInterpolationOfLiterals.run
1 ## name Basic failure
2 ## failures 2
3 ## cut
4
5 print "this is literal";
6 print qq{this is literal};
7
8 #-----------------------------------------------------------------------------
9
10 ## name Basic passing
11 ## failures 0
12 ## cut
13
14 print 'this is literal';
15 print q{this is literal};
16
17 #-----------------------------------------------------------------------------
18
19 ## name Code with all delimiters in configuration
20 ## failures 0
21 ## parms {allow => 'qq( qq{ qq[ qq/'}
22 ## cut
23
24 $sql = qq(select foo from bar);
25 $sql = qq{select foo from bar};
26 $sql = qq[select foo from bar];
27 $sql = qq/select foo from bar/;
28
29 is( pcritique($policy, \$code, \%config), 0, $policy);
30
31 #-----------------------------------------------------------------------------
32
33 ## name Code with not all delimiters in configuration
34 ## failures 2
35 ## parms {allow => 'qq( qq{'}
36 ## cut
37
38 $sql = qq(select foo from bar);
39 $sql = qq{select foo from bar};
40 $sql = qq[select foo from bar];
41 $sql = qq/select foo from bar/;
42
43 #-----------------------------------------------------------------------------
44
45 ## name Configuration with only delimiters, no operators
46 ## failures 2
47 ## parms {allow => '() {}'}
48 ## cut
49
50 $sql = qq(select foo from bar);
51 $sql = qq{select foo from bar};
52 $sql = qq[select foo from bar];
53 $sql = qq/select foo from bar/;
54
55 #-----------------------------------------------------------------------------
56
57 ## name Configuration with matching closing delimiters
58 ## failures 2
59 ## parms {allow => 'qq() qq{}'}
60 ## cut
61
62 $sql = qq(select foo from bar);
63 $sql = qq{select foo from bar};
64 $sql = qq[select foo from bar];
65 $sql = qq/select foo from bar/;
66
67 #-----------------------------------------------------------------------------
68
69 ## name Allow double-quote if string contains single quote
70 ## failures 2
71 ## cut
72
73 $sql = "it's me";
74 $sql = "\'";
75
76 #-----------------------------------------------------------------------------
77
78 ## name Configuration allowing double-quote for all single quote containing strings
79 ## failures 0
80 ## parms { allow_double_quote_if_string_contains_single_quote => 1 }
81 ## cut
82
83 $sql = "it's me";
84 $sql = "\'";
85
86 #-----------------------------------------------------------------------------
87
88 ##############################################################################
89 #      $URL$
90 #     $Date$
91 #   $Author$
92 # $Revision$
93 ##############################################################################
94
95 # Local Variables:
96 #   mode: cperl
97 #   cperl-indent-level: 4
98 #   fill-column: 78
99 #   indent-tabs-mode: nil
100 #   c-indentation-style: bsd
101 # End:
102 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :