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

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 sort @list;
   6 sort {$a cmp $b;} @list;
   7 sort {$a->[0] <=> $b->[0] && $a->[1] <=> $b->[1]} @list;
   8 sort {bar($a,$b)} @list;
   9 sort 'func', @list;
  10
  11 sort(@list);
  12 sort({$a cmp $b;} @list);
  13 sort({$a->[0] <=> $b->[0] && $a->[1] <=> $b->[1]} @list);
  14 sort({bar($a,$b)} @list);
  15 sort('func', @list);
  16
  17 $foo{sort}; # for Devel::Cover
  18 {sort}; # for Devel::Cover
  19 sort();
  20
  21 #-----------------------------------------------------------------------------
  22
  23 ## name Basic failure
  24 ## failures 1
  25 ## cut
  26
  27 sort {my $aa = $foo{$a};my $b = $foo{$b};$a cmp $b} @list;
  28
  29 #-----------------------------------------------------------------------------
  30
  31 ## name Potential false positives
  32 ## failures 0
  33 ## cut
  34
  35 # These are things I found in my Perl that caused some false-
  36 # positives because they have some extra whitespace in the block.
  37
  38 sort { $a->[2] cmp $b->[2] } @dl;
  39 sort { $a->[0] <=> $b->[0] } @failed;
  40 sort{ $isopen{$a}->[0] <=> $isopen{$b}->[0] } @list;
  41 sort { -M $b <=> -M $a} @entries;
  42
  43 #-----------------------------------------------------------------------------
  44
  45 ##############################################################################
  46 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/BuiltinFunctions/RequireSimpleSortBlock.run $
  47 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  48 #   $Author: clonezone $
  49 # $Revision: 2187 $
  50 ##############################################################################
  51
  52 # Local Variables:
  53 #   mode: cperl
  54 #   cperl-indent-level: 4
  55 #   fill-column: 78
  56 #   indent-tabs-mode: nil
  57 #   c-indentation-style: bsd
  58 # End:
  59 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :