vcs.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/ValuesAndExpressions/ProhibitNoisyQuotes.run

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 $var = q{'};
   6 $var = q{"};
   7 $var = q{!!};
   8 $var = q{||};
   9 $var = "!!!";
  10 $var = '!!!';
  11 $var = 'a';
  12 $var = "a";
  13 $var = '1';
  14 $var = "1";
  15
  16 #-----------------------------------------------------------------------------
  17
  18 ## name Basic failure
  19 ## failures 4
  20 ## cut
  21
  22 $var = "!";
  23 $var = '!';
  24 $var = '!!';
  25 $var = "||";
  26
  27 #-----------------------------------------------------------------------------
  28
  29 ## name overload pragma
  30 ## failures 0
  31 ## cut
  32
  33 use overload '""';
  34
  35 #-----------------------------------------------------------------------------
  36
  37 ## name Parentheses, braces, brackets
  38 ## failures 0
  39 ## cut
  40
  41 $var = '(';
  42 $var = ')';
  43 $var = '{';
  44 $var = '}';
  45 $var = '[';
  46 $var = ']';
  47
  48 $var = '{(';
  49 $var = ')}';
  50 $var = '[{';
  51 $var = '[}';
  52 $var = '[(';
  53 $var = '])';
  54
  55 $var = "(";
  56 $var = ")";
  57 $var = "{";
  58 $var = "}";
  59 $var = "[";
  60 $var = "]";
  61
  62 $var = "{(";
  63 $var = ")]";
  64 $var = "({";
  65 $var = "}]";
  66 $var = "{[";
  67 $var = "]}";
  68
  69 #-----------------------------------------------------------------------------
  70
  71 ##############################################################################
  72 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ValuesAndExpressions/ProhibitNoisyQuotes.run $
  73 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  74 #   $Author: clonezone $
  75 # $Revision: 2187 $
  76 ##############################################################################
  77
  78 # Local Variables:
  79 #   mode: cperl
  80 #   cperl-indent-level: 4
  81 #   fill-column: 78
  82 #   indent-tabs-mode: nil
  83 #   c-indentation-style: bsd
  84 # End:
  85 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :