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

   1 ## name Basic failure
   2 ## failures 1
   3 ## cut
   4
   5 print <<END_QUOTE;
   6 Four score and seven years ago...
   7 END_QUOTE
   8
   9 #-----------------------------------------------------------------------------
  10
  11 ## name Single quote passing
  12 ## failures 0
  13 ## cut
  14
  15 print <<'END_QUOTE';
  16 Four score and seven years ago...
  17 END_QUOTE
  18
  19 #-----------------------------------------------------------------------------
  20
  21 ## name Double quote passing
  22 ## failures 0
  23 ## cut
  24
  25 print <<"END_QUOTE";
  26 Four score and seven years ago...
  27 END_QUOTE
  28
  29 #-----------------------------------------------------------------------------
  30
  31 ## name RT# 25085: Spaces before HEREDOC token - w/ double quotes
  32 ## failures 0
  33 ## cut
  34
  35 print <<  "END_QUOTE";
  36 Four score and seven years ago...
  37 END_QUOTE
  38
  39 #-----------------------------------------------------------------------------
  40
  41 ## name RT# 25085: Spaces before HEREDOC token - w/ single quotes
  42 ## failures 0
  43 ## cut
  44
  45 print <<  'END_QUOTE';
  46 The only thing we have to fear is fear itself...
  47 END_QUOTE
  48
  49 #-----------------------------------------------------------------------------
  50
  51 ##############################################################################
  52 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ValuesAndExpressions/RequireQuotedHeredocTerminator.run $
  53 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  54 #   $Author: clonezone $
  55 # $Revision: 2187 $
  56 ##############################################################################
  57
  58 # Local Variables:
  59 #   mode: cperl
  60 #   cperl-indent-level: 4
  61 #   fill-column: 78
  62 #   indent-tabs-mode: nil
  63 #   c-indentation-style: bsd
  64 # End:
  65 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :