Login
94445ba83e76ef46c00366762d98112a2b5da86a
[gknop/Perl-Critic.git] / t / RegularExpressions / ProhibitSingleCharAlternation.run
1 ##############################################################################
2 #      $URL$
3 #     $Date$
4 #   $Author$
5 # $Revision$
6 ##############################################################################
7
8 ## name basic passes
9 ## failures 0
10 ## cut
11
12 m/\A [adiqrwx] \z/xms;
13 m/\A (?: qq | qr | qx | [qsy] | tr ) \z/xms;
14 m/\A (?: q[qrx] | [qsy] | tr ) \z/xms;
15
16 m/\A (?: a ) \z/xms;   # bad form, but not a violation of this policy
17 m/\A (?: [a] ) \z/xms; # bad form, but not a violation of this policy
18
19 ## name warnings reported by users (App::Ack)
20 ## failures 1
21 ## cut
22
23 return ('shell',TEXT)  if $header =~ /\b(?:ba|c|k|z)?sh\b/;
24
25 ## name metacharacters
26 ## failures 0
27 ## cut
28
29 m/(?: ^ | . | \d | $ )/xms;
30
31 ## name allowed to have one single character alternation
32 ## failures 0
33 ## cut
34
35 m/\A (?: a | do | in | queue | rue | woe | xray ) \z/xms;
36 return 1 if $file =~ m/ [.] (?: p (?: l x? | m ) | t | PL ) \z /xms;
37
38 ## name basic failures
39 ## failures 2
40 ## optional_modules Regexp::Parser
41 ## cut
42
43 m/\A (?: a | d | i | q | r | w | x ) \z/xms;
44 m/\A (?: qq| qr | qx | q | s | y | tr ) \z/xms;
45
46 ## name failing regexp with syntax error
47 ## failures 0
48 ## cut
49
50 m/\A (?: a | d | i | q | r | w | x ) ( \z/xms;
51
52 #-----------------------------------------------------------------------------
53 # Local Variables:
54 #   mode: cperl
55 #   cperl-indent-level: 4
56 #   fill-column: 78
57 #   indent-tabs-mode: nil
58 #   c-indentation-style: bsd
59 # End:
60 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :