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

   1 ##############################################################################
   2 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/RegularExpressions/ProhibitEnumeratedClasses.run $
   3 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
   4 #   $Author: clonezone $
   5 # $Revision: 2187 $
   6 ##############################################################################
   7
   8 ## name basic passes
   9 ## failures 0
  10 ## cut
  11
  12 m/\w\d\p{Uppercase}/;
  13 m/[\w\s]/;
  14
  15 #-----------------------------------------------------------------------------
  16
  17 ## name allowed classes
  18 ## failures 0
  19 ## cut
  20
  21 m/[B-Y]/;
  22 m/[0-8]/;
  23 m/[\x{ffef}]/; # for code coverage
  24
  25 #-----------------------------------------------------------------------------
  26
  27 ## name basic failures
  28 ## failures 8
  29 ## optional_modules Regexp::Parser
  30 ## cut
  31
  32 m/[A-Z]/;      # \p{Uppercase}
  33 m/[a-z]/;      # \p{Lowercase}
  34 m/[0-9]/;      # \d
  35 m/[A-Za-z_]/;  # \w
  36 m/[a-z_A-Z]/;  # \w
  37 m/[a-zA-Z]/;   # \p{Alphabetic}
  38 m/[ \t\r\n\f]/;# \s
  39 m/[\ \t\r\n]/; # \s
  40
  41 #-----------------------------------------------------------------------------
  42
  43 ## name alterate representations of line endings
  44 ## failures 3
  45 ## optional_modules Regexp::Parser
  46 ## cut
  47
  48 m/[\ \t\012\015]/; # \s
  49 m/[\ \t\x0a\x0d]/; # \s
  50 m/[\ \t\x{0a}\x{0d}]/; # \s
  51
  52 #-----------------------------------------------------------------------------
  53
  54 ## name negative failures
  55 ## failures 8
  56 ## optional_modules Regexp::Parser
  57 ## cut
  58
  59 m/[^\w]/;       # \W
  60 m/[^\s]/;       # \S
  61 m/[^0-9]/;      # \D
  62 m/[^A-Za-z_]/;  # \W
  63 m/[^a-z_A-Z]/;  # \W
  64 m/[^a-zA-Z]/;   # \P{Alphabetic}
  65 m/[^ \t\r\n\f]/;# \S
  66 m/[^\ \t\r\n]/; # \S
  67
  68 #-----------------------------------------------------------------------------
  69
  70 ## name special negative successes
  71 ## failures 0
  72 ## cut
  73
  74 m/[^\s\w]/;
  75
  76 #-----------------------------------------------------------------------------
  77
  78 ## name failing regexp with syntax error
  79 ## failures 0
  80 ## cut
  81
  82 m/[^\w] (/;
  83
  84 #-----------------------------------------------------------------------------
  85 # Local Variables:
  86 #   mode: cperl
  87 #   cperl-indent-level: 4
  88 #   fill-column: 78
  89 #   indent-tabs-mode: nil
  90 #   c-indentation-style: bsd
  91 # End:
  92 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :