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

   1 ## name Basic failure
   2 ## failures 2
   3 ## cut
   4
   5 @list = ('foo', 'bar', 'baz');
   6
   7 @list = ('foo',
   8          'bar',
   9          'baz');
  10
  11 #-----------------------------------------------------------------------------
  12
  13 ## name Basic passing
  14 ## failures 0
  15 ## cut
  16
  17 ('foo');
  18 @list = ();
  19 @list = ('foo');
  20 @list = ('foo', 'bar', 'bee baz');
  21 @list = ('foo', 'bar', q{bee baz});
  22 @list = ('foo', 'bar', q{});
  23 @list = ('foo', 'bar', 1.0);
  24 @list = ('foo', 'bar', 'foo'.'bar');
  25 @list = ('foo, 'bar'); # XXX is this a typo?  What is this trying to test?
  26 @list = ($foo, 'bar', 'baz');
  27 @list = (foo => 'bar');
  28 %hash = ('foo' => 'bar', 'fo' => 'fum');
  29 my_function('foo', 'bar', 'fudge');
  30 $a_function->('foo', 'bar', 'fudge');
  31 foreach ('foo', 'bar', 'nuts'){ do_something($_) }
  32
  33 #-----------------------------------------------------------------------------
  34
  35 ## name Three elements with minimum set to four
  36 ## failures 0
  37 ## parms {min_elements => 4}
  38 ## cut
  39
  40 @list = ('foo', 'bar, 'baz');
  41
  42 #-----------------------------------------------------------------------------
  43
  44 ## name Four elements with minimum set to four
  45 ## failures 1
  46 ## parms {min_elements => 4}
  47 ## cut
  48
  49 @list = ('foo', 'bar', 'baz', 'nuts');
  50
  51 #-----------------------------------------------------------------------------
  52
  53 ##############################################################################
  54 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/CodeLayout/ProhibitQuotedWordLists.run $
  55 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  56 #   $Author: clonezone $
  57 # $Revision: 2187 $
  58 ##############################################################################
  59
  60 # Local Variables:
  61 #   mode: cperl
  62 #   cperl-indent-level: 4
  63 #   fill-column: 78
  64 #   indent-tabs-mode: nil
  65 #   c-indentation-style: bsd
  66 # End:
  67 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :