Login
d6aa80afac993c454ffad3721529a116f9c39c5a
[gknop/Perl-Critic.git] / t / RegularExpressions / RequireExtendedFormatting.run
1 ##############################################################################
2 #      $URL$
3 #     $Date$
4 #   $Author$
5 # $Revision$
6 ##############################################################################
7
8 ## name basic passes
9 ## failures 0
10 ## cut
11 my $string =~ m{pattern}x;
12 my $string =~ m{pattern}gimx;
13 my $string =~ m{pattern}gixs;
14 my $string =~ m{pattern}xgms;
15
16 my $string =~ m/pattern/x;
17 my $string =~ m/pattern/gimx;
18 my $string =~ m/pattern/gixs;
19 my $string =~ m/pattern/xgms;
20
21 my $string =~ /pattern/x;
22 my $string =~ /pattern/gimx;
23 my $string =~ /pattern/gixs;
24 my $string =~ /pattern/xgms;
25
26 my $string =~ s/pattern/foo/x;
27 my $string =~ s/pattern/foo/gimx;
28 my $string =~ s/pattern/foo/gixs;
29 my $string =~ s/pattern/foo/xgms;
30
31 my $re =~ qr/pattern/x;
32
33 #-----------------------------------------------------------------------------
34
35 ## name basic failures
36 ## failures 17
37 ## cut
38 my $string =~ m{pattern};
39 my $string =~ m{pattern}gim;
40 my $string =~ m{pattern}gis;
41 my $string =~ m{pattern}gms;
42
43 my $string =~ m/pattern/;
44 my $string =~ m/pattern/gim;
45 my $string =~ m/pattern/gis;
46 my $string =~ m/pattern/gms;
47
48 my $string =~ /pattern/;
49 my $string =~ /pattern/gim;
50 my $string =~ /pattern/gis;
51 my $string =~ /pattern/gms;
52
53 my $string =~ s/pattern/foo/;
54 my $string =~ s/pattern/foo/gim;
55 my $string =~ s/pattern/foo/gis;
56 my $string =~ s/pattern/foo/gms;
57
58 my $re =~ qr/pattern/;
59
60 #-----------------------------------------------------------------------------
61
62 ## name tr and y formatting
63 ## failures 0
64 ## cut
65
66 my $string =~ tr/[A-Z]/[a-z]/;
67 my $string =~ tr|[A-Z]|[a-z]|;
68 my $string =~ tr{[A-Z]}{[a-z]};
69
70 my $string =~ y/[A-Z]/[a-z]/;
71 my $string =~ y|[A-Z]|[a-z]|;
72 my $string =~ y{[A-Z]}{[a-z]};
73
74 my $string =~ tr/[A-Z]/[a-z]/cds;
75 my $string =~ y/[A-Z]/[a-z]/cds;
76
77
78 #-----------------------------------------------------------------------------
79
80 ## name allow_short_regex, pass
81 ## failures 0
82 ## parms { allow_short_regex => 5 }
83 ## cut
84
85 my $string =~ m/foo/;
86
87 my $string =~ s/foo//;
88 my $string =~ s/foo/bar/;
89 my $string =~ s/foo/barbarbar/;
90 my $string =~ s/12345//;
91
92
93 #-----------------------------------------------------------------------------
94
95 ## name allow_short_regex, fail
96 ## failures 2
97 ## parms { allow_short_regex => 5 }
98 ## cut
99
100 my $string =~ m/foofoo/;
101
102 my $string =~ s/foofoo//;
103
104
105 #-----------------------------------------------------------------------------
106
107 ## name allow_with_whitespace, pass
108 ## failures 0
109 ## parms { allow_with_whitespace => 1 }
110 ## cut
111
112 my $string =~ m/foo bar/;
113
114 my $string =~ s/foo bar//;
115
116
117 #-----------------------------------------------------------------------------
118
119 ## name allow_with_whitespace, fail
120 ## failures 2
121 ## parms { allow_with_whitespace => 1 }
122 ## cut
123
124 my $string =~ m/foobar/;
125
126 my $string =~ s/foobar/foo bar/;
127
128
129 #-----------------------------------------------------------------------------
130 # Local Variables:
131 #   mode: cperl
132 #   cperl-indent-level: 4
133 #   fill-column: 78
134 #   indent-tabs-mode: nil
135 #   c-indentation-style: bsd
136 # End:
137 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :