Login
ProhibitSingleCharAlternation test was failing when
[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 ## optional_modules Regexp::Parser
22 ## cut
23
24 return ('shell',TEXT)  if $header =~ /\b(?:ba|c|k|z)?sh\b/;
25
26 ## name metacharacters
27 ## failures 0
28 ## cut
29
30 m/(?: ^ | . | \d | $ )/xms;
31
32 ## name allowed to have one single character alternation
33 ## failures 0
34 ## cut
35
36 m/\A (?: a | do | in | queue | rue | woe | xray ) \z/xms;
37 return 1 if $file =~ m/ [.] (?: p (?: l x? | m ) | t | PL ) \z /xms;
38
39 ## name basic failures
40 ## failures 2
41 ## optional_modules Regexp::Parser
42 ## cut
43
44 m/\A (?: a | d | i | q | r | w | x ) \z/xms;
45 m/\A (?: qq| qr | qx | q | s | y | tr ) \z/xms;
46
47 ## name failing regexp with syntax error
48 ## failures 0
49 ## cut
50
51 m/\A (?: a | d | i | q | r | w | x ) ( \z/xms;
52
53 #-----------------------------------------------------------------------------
54 # Local Variables:
55 #   mode: cperl
56 #   cperl-indent-level: 4
57 #   fill-column: 78
58 #   indent-tabs-mode: nil
59 #   c-indentation-style: bsd
60 # End:
61 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :