Login
9462d975f45c0bc787cc87f0db15221d19ecd354
[gknop/Perl-Critic.git] / t / RegularExpressions / ProhibitEscapedMetacharacters.run
1 ##############################################################################
2 #      $URL$
3 #     $Date$
4 #   $Author$
5 # $Revision$
6 ##############################################################################
7
8 ## name basic passes
9 ## failures 0
10 ## cut
11
12 m/ [{] . [.] \d{2} [}] /xms;
13 $name =~ m{ harry [ ] s [ ] truman
14           | harry [ ] j [ ] potter
15           }ixms;
16
17 ## name basic failures
18 ## failures 2
19 ## optional_modules Regexp::Parser
20 ## cut
21
22 m/ \{ . \. \d{2} \} /xms;
23 $name =~ m{ harry \ s \ truman
24           | harry \ j \ potter
25           }ixms;
26
27 ## name allow comment character in //x mode -- http://rt.perl.org/rt3/Public/Bug/Display.html?id=45667
28 ## failures 0
29 ## cut
30
31 m/\#/x;
32 m/\#/;
33
34 ## name allowed escapes
35 ## failures 0
36 ## cut
37
38 # omit \N{}, \p{}, \P{}, \xfe \cx
39 m/\Q\E \L\U \l\u /;  # matched pairs of specials
40 m/\A\B\C\D  \F\G\H\I\J\K \M  \O   \R\S\T \V\W\X\Y\Z /;
41 m/\a\b  \d\e\f\g\h\i\j\k \m\n\o \q\r\s\t \v\w  \y\z /;
42 m/(.)(.)(.)(.)(.)(.)(.)(.)(.)
43   \1\2\3\4\5\6\7\8\9 /;
44 m/\!\@\%\&\-\_\= /;
45 m/\\ \'\"\` \~\,\<\> \/ /;
46 m/ \[\] /x;
47
48 ## name unexpected failures
49 ## failures 0
50 ## cut
51
52 s{\%[fF]}{STDIN}mx;
53
54 ## name escaped characters in character classes
55 ## failures 0
56 ## cut
57
58 m/ ([\)]) /xms;
59 m/ [\.] /xms;
60
61
62 #-----------------------------------------------------------------------------
63 # Local Variables:
64 #   mode: cperl
65 #   cperl-indent-level: 4
66 #   fill-column: 78
67 #   indent-tabs-mode: nil
68 #   c-indentation-style: bsd
69 # End:
70 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :