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

   1 ##############################################################################
   2 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/RegularExpressions/ProhibitUnusualDelimiters.run $
   3 #     $Date: 2008-04-12 14:38:38 -0500 (Sat, 12 Apr 2008) $
   4 #   $Author: clonezone $
   5 # $Revision: 2218 $
   6 ##############################################################################
   7
   8 ## name basic passes
   9 ## failures 0
  10 ## cut
  11
  12 m/foo/;
  13 m{foo};
  14 s/foo//;
  15 s{foo}{};
  16 qr/foo/;
  17 qr{foo};
  18
  19 ## name basic failures
  20 ## failures 25
  21 ## cut
  22
  23 m#foo#;
  24 m|foo|;
  25 m<foo>;
  26 m(foo);
  27 m'foo';
  28 m"foo";
  29 m;foo;;
  30 m,foo,;
  31
  32 s#foo##;
  33 s|foo||;
  34 s<foo><>;
  35 s<foo>//;
  36 s(foo)();
  37 s'foo'';
  38 s"foo"";
  39 s;foo;;;
  40 s,foo,,;
  41
  42 qr#foo#;
  43 qr|foo|;
  44 qr<foo>;
  45 qr(foo);
  46 qr'foo';
  47 qr"foo";
  48 qr;foo;;
  49 qr,foo,;
  50
  51 ## name allow_all_brackets
  52 ## failures 0
  53 ## parms { allow_all_brackets => 1 }
  54 ## cut
  55
  56 m{foo};
  57 m(foo);
  58 m[foo];
  59 m<foo>;
  60
  61 s{foo}{};
  62 s(foo){};
  63 s[foo]{};
  64 s<foo>{};
  65
  66 s{foo}();
  67 s(foo)();
  68 s[foo]();
  69 s<foo>();
  70
  71 s{foo}[];
  72 s(foo)[];
  73 s[foo][];
  74 s<foo>[];
  75
  76 s{foo}<>;
  77 s(foo)<>;
  78 s[foo]<>;
  79 s<foo><>;
  80
  81 #-----------------------------------------------------------------------------
  82 # Local Variables:
  83 #   mode: cperl
  84 #   cperl-indent-level: 4
  85 #   fill-column: 78
  86 #   indent-tabs-mode: nil
  87 #   c-indentation-style: bsd
  88 # End:
  89 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :