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