vcs.maemo.org Git - dh-make-perl/blob - dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/RegularExpressions/ProhibitSingleCharAlternation.run

   1 ##############################################################################
   2 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/RegularExpressions/ProhibitSingleCharAlternation.run $
   3 #     $Date: 2008-06-06 19:57:46 -0500 (Fri, 06 Jun 2008) $
   4 #   $Author: clonezone $
   5 # $Revision: 2417 $
   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
  20 ## name metacharacters
  21 ## failures 0
  22 ## cut
  23
  24 m/(?: ^ | . | \d | $ )/xms;
  25
  26 ## name allowed to have one single character alternation
  27 ## failures 0
  28 ## cut
  29
  30 m/\A (?: a | do | in | queue | rue | woe | xray ) \z/xms;
  31
  32 ## name basic failures
  33 ## failures 2
  34 ## optional_modules Regexp::Parser
  35 ## cut
  36
  37 m/\A (?: a | d | i | q | r | w | x ) \z/xms;
  38 m/\A (?: qq| qr | qx | q | s | y | tr ) \z/xms;
  39
  40 ## name failing regexp with syntax error
  41 ## failures 0
  42 ## cut
  43
  44 m/\A (?: a | d | i | q | r | w | x ) ( \z/xms;
  45
  46 #-----------------------------------------------------------------------------
  47 # Local Variables:
  48 #   mode: cperl
  49 #   cperl-indent-level: 4
  50 #   fill-column: 78
  51 #   indent-tabs-mode: nil
  52 #   c-indentation-style: bsd
  53 # End:
  54 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :