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

   1 ##############################################################################
   2 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/RegularExpressions/ProhibitFixedStringMatches.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 /foo/;
  13 /foo/s;
  14 / bar /;
  15 /(bar)/;
  16 /(foo|bar)/;
  17
  18 s/foo//;
  19 qr/ bar /;
  20
  21 ## name failures mentioned in perldoc
  22 ## failures 7
  23 ## cut
  24
  25     m/^foo$/;
  26     m/\A foo \z/x;
  27     m/\A foo \z/xm;
  28     m/\A(foo)\z/;
  29     m/\A(?:foo)\z/;
  30     m/\A(foo|bar)\z/;
  31     m/\A(?:foo|bar)\z/;
  32
  33 ## name anchored passes
  34 ## failures 0
  35 ## cut
  36
  37 /\A \s* \z/sx;
  38 / \A \s* \z /sx;
  39 /^ \w+ $/x;
  40 /^ foo $/mx;
  41
  42 s/\A \s* \z//sx;
  43 s/^ \w+ $//x;
  44 s/^ foo $//m;
  45
  46 qr/\A \s* \z/s;
  47 qr/^ \w+ $/x;
  48 qr/^ foo $/m;
  49
  50 ## name escapes
  51 ## failures 0
  52 ## cut
  53
  54 /\\A foo \\z/s;
  55 /\^ foo \$/;
  56
  57 ## name alternating passes
  58 ## failures 0
  59 ## cut
  60
  61 /\A (foo|\w+) \z/x;
  62 /^ (foo|bar) \z/mx;
  63
  64 ## name basic failures, m//
  65 ## failures 5
  66 ## cut
  67
  68 /\A foo \z/x;
  69 /\A foo \z/s;
  70 /\A foo \z/xs;
  71 /^ foo $/sx;
  72 /\A foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo \z/;
  73
  74 ## name basic failures, s///
  75 ## failures 5
  76 ## cut
  77
  78 s/\A foo \z//;
  79 s/\A foo \z//s;
  80 s/\A foo \z//xs;
  81 s/^ foo $//s;
  82 s/\A foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo \z//;
  83
  84 ## name basic failures, qr//
  85 ## failures 5
  86 ## cut
  87
  88 qr/\A foo \z/;
  89 qr/\A foo \z/s;
  90 qr/\A foo \z/xs;
  91 qr/^ foo $/s;
  92 qr/\A foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo \z/;
  93
  94 ## name alternating failures
  95 ## failures 5
  96 ## cut
  97
  98 qr/\A(foo|bar)\z/;
  99 qr/\A(foo|)\z/;
 100 qr/\A(?:foo|bar)\z/;
 101 /^(?:foo|bar)$/;
 102 /^(?:foo|bar|baz|spam|splunge)$/;
 103
 104 #-----------------------------------------------------------------------------
 105 # Local Variables:
 106 #   mode: cperl
 107 #   cperl-indent-level: 4
 108 #   fill-column: 78
 109 #   indent-tabs-mode: nil
 110 #   c-indentation-style: bsd
 111 # End:
 112 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :