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

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 reverse sort {$a <=> $b} @list;
   6 reverse sort {$a->[0] <=> $b->[0] && $a->[1] <=> $b->[1]} @list;
   7 sort {$beta{$a} <=> $alpha{$b}} @list;
   8 reverse sort({$a <=> $b} @list);
   9 reverse sort({$a->[0] <=> $b->[0] && $a->[1] <=> $b->[1]} @list);
  10 sort({$beta{$a} <=> $alpha{$b}} @list);
  11
  12 sort{ $isopen{$a}->[0] <=> $isopen{$b}->[0] } @list;
  13
  14 #-----------------------------------------------------------------------------
  15
  16 ## name Basic failure
  17 ## failures 3
  18 ## cut
  19
  20 sort {$b <=> $a} @list;
  21 sort {$alpha{$b} <=> $beta{$a}} @list;
  22 sort {$b->[0] <=> $a->[0] && $b->[1] <=> $a->[1]} @list;
  23
  24 #-----------------------------------------------------------------------------
  25
  26 ## name Things that might look like sorts, but aren't, and sorts not involving $a and $b.
  27 ## failures 0
  28 ## cut
  29
  30 $hash1{sort} = { $b <=> $a };
  31 %hash2 = (sort => { $b <=> $a });
  32 $foo->sort({ $b <=> $a });
  33 sub sort { $b <=> $a }
  34 sort 'some_sort_func', @list;
  35 sort('some_sort_func', @list);
  36 sort();
  37
  38 {sort}; # for Devel::Cover
  39
  40 is( pcritique($policy, \$code), 0, $policy );
  41
  42 #-----------------------------------------------------------------------------
  43
  44 ##############################################################################
  45 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/BuiltinFunctions/ProhibitReverseSortBlock.run $
  46 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  47 #   $Author: clonezone $
  48 # $Revision: 2187 $
  49 ##############################################################################
  50
  51 # Local Variables:
  52 #   mode: cperl
  53 #   cperl-indent-level: 4
  54 #   fill-column: 78
  55 #   indent-tabs-mode: nil
  56 #   c-indentation-style: bsd
  57 # End:
  58 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :