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

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 grep {$_ eq 'foo'}  @list;
   6 @matches = grep {$_ eq 'foo'}  @list;
   7 grep( {$_ eq 'foo'}  @list );
   8 @matches = grep( {$_ eq 'foo'}  @list )
   9 grep();
  10 @matches = grep();
  11 {grep}; # for Devel::Cover
  12 grelp $_ eq 'foo', @list; # deliberately misspell grep
  13
  14 #-----------------------------------------------------------------------------
  15
  16 ## name Basic failure
  17 ## failures 2
  18 ## cut
  19
  20 grep $_ eq 'foo', @list;
  21 @matches = grep $_ eq 'foo', @list;
  22
  23 #-----------------------------------------------------------------------------
  24
  25 ## name Things that may look like a grep, but aren't
  26 ## failures 0
  27 ## cut
  28
  29 $hash1{grep} = 1;
  30 %hash2 = (grep => 1);
  31
  32 #-----------------------------------------------------------------------------
  33
  34 ##############################################################################
  35 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/BuiltinFunctions/RequireBlockGrep.run $
  36 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  37 #   $Author: clonezone $
  38 # $Revision: 2187 $
  39 ##############################################################################
  40
  41 # Local Variables:
  42 #   mode: cperl
  43 #   cperl-indent-level: 4
  44 #   fill-column: 78
  45 #   indent-tabs-mode: nil
  46 #   c-indentation-style: bsd
  47 # End:
  48 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :