git.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/RegularExpressions/ProhibitEscapedMetacharacters.run

   1 ##############################################################################
   2 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/RegularExpressions/ProhibitEscapedMetacharacters.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/ [{] . [.] \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 #-----------------------------------------------------------------------------
  55 # Local Variables:
  56 #   mode: cperl
  57 #   cperl-indent-level: 4
  58 #   fill-column: 78
  59 #   indent-tabs-mode: nil
  60 #   c-indentation-style: bsd
  61 # End:
  62 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :