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

   1 ##############################################################################
   2 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/RegularExpressions/ProhibitComplexRegexes.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/foo/;
  13 m/foo foo foo foo foo foo foo foo foo foo foo foo/;
  14 m/foo
  15   foo/;
  16
  17 m/foo # this is a foo
  18   bar # this is a bar
  19   baz # this is a baz
  20   more # more more more more more
  21  /x;
  22
  23 m/
  24
  25
  26
  27
  28
  29 /;
  30
  31 #-----------------------------------------------------------------------------
  32
  33 ## name basic failures
  34 ## failures 1
  35 ## cut
  36
  37 m/ foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo/;
  38
  39 ## name basic failures, m//x
  40 ## failures 1
  41 ## optional_modules Regexp::Parser
  42 ## cut
  43
  44 m/foo # this is a foo
  45   bar # this is a bar
  46   baz # this is a baz
  47   1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 # this is too long
  48  /x;
  49
  50 #-----------------------------------------------------------------------------
  51
  52 ## name config
  53 ## failures 1
  54 ## parms {max_characters => 2}
  55 ## cut
  56
  57 m/ foo /;
  58
  59 #-----------------------------------------------------------------------------
  60
  61 ## name failing regexp with syntax error
  62 ## failures 0
  63 ## cut
  64
  65 m/foofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoo(/x;
  66
  67 #-----------------------------------------------------------------------------
  68 # Local Variables:
  69 #   mode: cperl
  70 #   cperl-indent-level: 4
  71 #   fill-column: 78
  72 #   indent-tabs-mode: nil
  73 #   c-indentation-style: bsd
  74 # End:
  75 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :