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

   1 ##############################################################################
   2 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/RegularExpressions/RequireLineBoundaryMatching.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 my $string =~ m{pattern}m;
  12 my $string =~ m{pattern}gimx;
  13 my $string =~ m{pattern}gmis;
  14 my $string =~ m{pattern}mgxs;
  15
  16 my $string =~ m/pattern/m;
  17 my $string =~ m/pattern/gimx;
  18 my $string =~ m/pattern/gmis;
  19 my $string =~ m/pattern/mgxs;
  20
  21 my $string =~ /pattern/m;
  22 my $string =~ /pattern/gimx;
  23 my $string =~ /pattern/gmis;
  24 my $string =~ /pattern/mgxs;
  25
  26 my $string =~ s/pattern/foo/m;
  27 my $string =~ s/pattern/foo/gimx;
  28 my $string =~ s/pattern/foo/gmis;
  29 my $string =~ s/pattern/foo/mgxs;
  30
  31 my $re = qr/pattern/m;
  32
  33 #-----------------------------------------------------------------------------
  34
  35 ## name basic failures
  36 ## failures 17
  37 ## cut
  38 my $string =~ m{pattern};
  39 my $string =~ m{pattern}gix;
  40 my $string =~ m{pattern}gis;
  41 my $string =~ m{pattern}gxs;
  42
  43 my $string =~ m/pattern/;
  44 my $string =~ m/pattern/gix;
  45 my $string =~ m/pattern/gis;
  46 my $string =~ m/pattern/gxs;
  47
  48 my $string =~ /pattern/;
  49 my $string =~ /pattern/gix;
  50 my $string =~ /pattern/gis;
  51 my $string =~ /pattern/gxs;
  52
  53 my $string =~ s/pattern/foo/;
  54 my $string =~ s/pattern/foo/gix;
  55 my $string =~ s/pattern/foo/gis;
  56 my $string =~ s/pattern/foo/gxs;
  57
  58 my $re = qr/pattern/;
  59
  60 #-----------------------------------------------------------------------------
  61
  62 ## name tr and y checking
  63 ## failures 0
  64 ## cut
  65 my $string =~ tr/[A-Z]/[a-z]/;
  66 my $string =~ tr|[A-Z]|[a-z]|;
  67 my $string =~ tr{[A-Z]}{[a-z]};
  68
  69 my $string =~ y/[A-Z]/[a-z]/;
  70 my $string =~ y|[A-Z]|[a-z]|;
  71 my $string =~ y{[A-Z]}{[a-z]};
  72
  73 my $string =~ tr/[A-Z]/[a-z]/cds;
  74 my $string =~ y/[A-Z]/[a-z]/cds;
  75
  76 #-----------------------------------------------------------------------------
  77 # Local Variables:
  78 #   mode: cperl
  79 #   cperl-indent-level: 4
  80 #   fill-column: 78
  81 #   indent-tabs-mode: nil
  82 #   c-indentation-style: bsd
  83 # End:
  84 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :