vcs.maemo.org Git - dh-make-perl/blob - dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/ValuesAndExpressions/ProhibitQuotesAsQuotelikeOperatorDelimiters.run

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 $x = q{};
   6 $x = qq{};
   7 $x = qx{};
   8 $x = qr{};
   9 $x = qw{};
  10
  11 $x =~ //;
  12 $x =~ m{};
  13 $x =~ s{}{};
  14 $x =~ tr{}{};
  15 $x =~ y{}{};
  16
  17 $x = qx'';
  18 $x = qr'';
  19
  20 $x =~ m'';
  21 $x =~ s''';
  22
  23 #-----------------------------------------------------------------------------
  24
  25 ## name Basic failure
  26 ## failures 23
  27 ## cut
  28
  29 $x = q'';
  30 $x = qq'';
  31 $x = qw'';
  32
  33 $x =~ tr''';
  34 $x =~ y''';
  35
  36 $x = q"";
  37 $x = qq"";
  38 $x = qx"";
  39 $x = qr"";
  40 $x = qw"";
  41
  42 $x =~ m"";
  43 $x =~ s""";
  44 $x =~ tr""";
  45 $x =~ y""";
  46
  47 $x = q``;
  48 $x = qq``;
  49 $x = qx``;
  50 $x = qr``;
  51 $x = qw``;
  52
  53 $x =~ m``;
  54 $x =~ s```;
  55 $x =~ tr```;
  56 $x =~ y```;
  57
  58 #-----------------------------------------------------------------------------
  59
  60 ## name single_quote_allowed_operators = m q qq qr qw qx s tr y
  61 ## failures 0
  62 ## parms { single_quote_allowed_operators => 'm q qq qr qw qx s tr y' }
  63 ## cut
  64
  65 $x = q'';
  66 $x = qq'';
  67 $x = qx'';
  68 $x = qr'';
  69 $x = qw'';
  70
  71 $x =~ m'';
  72 $x =~ s''';
  73 $x =~ tr''';
  74 $x =~ y''';
  75
  76 #-----------------------------------------------------------------------------
  77
  78 ## name single_quote_allowed_operators =
  79 ## failures 9
  80 ## parms { single_quote_allowed_operators => '' }
  81 ## cut
  82
  83 $x = q'';
  84 $x = qq'';
  85 $x = qx'';
  86 $x = qr'';
  87 $x = qw'';
  88
  89 $x =~ m'';
  90 $x =~ s''';
  91 $x =~ tr''';
  92 $x =~ y''';
  93
  94 #-----------------------------------------------------------------------------
  95
  96 ## name double_quote_allowed_operators = m q qq qr qw qx s tr y
  97 ## failures 0
  98 ## parms { double_quote_allowed_operators => 'm q qq qr qw qx s tr y' }
  99 ## cut
 100
 101 $x = q"";
 102 $x = qq"";
 103 $x = qx"";
 104 $x = qr"";
 105 $x = qw"";
 106
 107 $x =~ m"";
 108 $x =~ s""";
 109 $x =~ tr""";
 110 $x =~ y""";
 111
 112 #-----------------------------------------------------------------------------
 113
 114 ## name double_quote_allowed_operators =
 115 ## failures 9
 116 ## parms { double_quote_allowed_operators => '' }
 117 ## cut
 118
 119 $x = q"";
 120 $x = qq"";
 121 $x = qx"";
 122 $x = qr"";
 123 $x = qw"";
 124
 125 $x =~ m"";
 126 $x =~ s""";
 127 $x =~ tr""";
 128 $x =~ y""";
 129
 130 #-----------------------------------------------------------------------------
 131
 132 ## name back_quote_allowed_operators = m q qq qr qw qx s tr y
 133 ## failures 0
 134 ## parms { back_quote_allowed_operators => 'm q qq qr qw qx s tr y' }
 135 ## cut
 136
 137 $x = q``;
 138 $x = qq``;
 139 $x = qx``;
 140 $x = qr``;
 141 $x = qw``;
 142
 143 $x =~ m``;
 144 $x =~ s```;
 145 $x =~ tr```;
 146 $x =~ y```;
 147
 148 #-----------------------------------------------------------------------------
 149
 150 ## name back_quote_allowed_operators =
 151 ## failures 9
 152 ## parms { back_quote_allowed_operators => '' }
 153 ## cut
 154
 155 $x = q``;
 156 $x = qq``;
 157 $x = qx``;
 158 $x = qr``;
 159 $x = qw``;
 160
 161 $x =~ m``;
 162 $x =~ s```;
 163 $x =~ tr```;
 164 $x =~ y```;
 165
 166
 167 ##############################################################################
 168 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ValuesAndExpressions/ProhibitQuotesAsQuotelikeOperatorDelimiters.run $
 169 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
 170 #   $Author: clonezone $
 171 # $Revision: 2187 $
 172 ##############################################################################
 173
 174 # Local Variables:
 175 #   mode: cperl
 176 #   cperl-indent-level: 4
 177 #   fill-column: 78
 178 #   indent-tabs-mode: nil
 179 #   c-indentation-style: bsd
 180 # End:
 181 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :