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

   1 ## name Basic failure
   2 ## failures 2
   3 ## cut
   4
   5 print "this is literal";
   6 print qq{this is literal};
   7
   8 #-----------------------------------------------------------------------------
   9
  10 ## name Basic passing
  11 ## failures 0
  12 ## cut
  13
  14 print 'this is literal';
  15 print q{this is literal};
  16
  17 #-----------------------------------------------------------------------------
  18
  19 ## name Code with all delimiters in configuration
  20 ## failures 0
  21 ## parms {allow => 'qq( qq{ qq[ qq/'}
  22 ## cut
  23
  24 $sql = qq(select foo from bar);
  25 $sql = qq{select foo from bar};
  26 $sql = qq[select foo from bar];
  27 $sql = qq/select foo from bar/;
  28
  29 is( pcritique($policy, \$code, \%config), 0, $policy);
  30
  31 #-----------------------------------------------------------------------------
  32
  33 ## name Code with not all delimiters in configuration
  34 ## failures 2
  35 ## parms {allow => 'qq( qq{'}
  36 ## cut
  37
  38 $sql = qq(select foo from bar);
  39 $sql = qq{select foo from bar};
  40 $sql = qq[select foo from bar];
  41 $sql = qq/select foo from bar/;
  42
  43 #-----------------------------------------------------------------------------
  44
  45 ## name Configuration with only delimiters, no operators
  46 ## failures 2
  47 ## parms {allow => '() {}'}
  48 ## cut
  49
  50 $sql = qq(select foo from bar);
  51 $sql = qq{select foo from bar};
  52 $sql = qq[select foo from bar];
  53 $sql = qq/select foo from bar/;
  54
  55 #-----------------------------------------------------------------------------
  56
  57 ## name Configuration with matching closing delimiters
  58 ## failures 2
  59 ## parms {allow => 'qq() qq{}'}
  60 ## cut
  61
  62 $sql = qq(select foo from bar);
  63 $sql = qq{select foo from bar};
  64 $sql = qq[select foo from bar];
  65 $sql = qq/select foo from bar/;
  66
  67 #-----------------------------------------------------------------------------
  68
  69 ##############################################################################
  70 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ValuesAndExpressions/ProhibitInterpolationOfLiterals.run $
  71 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  72 #   $Author: clonezone $
  73 # $Revision: 2187 $
  74 ##############################################################################
  75
  76 # Local Variables:
  77 #   mode: cperl
  78 #   cperl-indent-level: 4
  79 #   fill-column: 78
  80 #   indent-tabs-mode: nil
  81 #   c-indentation-style: bsd
  82 # End:
  83 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :