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

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 if (1 == 1 || 1 != 1 || 1 > 1 || 1 >= 1 || 1 < 1 || 1 <= 1) {}
   6 if (1 + 1 || 1 - 1 || 1 * 1 || 1 / 1) {}
   7
   8 if ($a == 1 || $a != 1 || $a > 1 || $a >= 1 || $a < 1 || $a <= 1) {}
   9 if ($a + 1 || $a - 1 || $a * 1 || $a / 1) {}
  10 $a += 1;
  11 $a -= 1;
  12 $a *= 1;
  13 $a /= 1;
  14
  15 if ($a == $a || $a != $a || $a > $a || $a >= $a || $a < $a || $a <= $a) {}
  16 if ($a + $a || $a - $a || $a * $a || $a / $a) {}
  17 $a += $a;
  18 $a -= $a;
  19 $a *= $a;
  20 $a /= $a;
  21
  22 if ('' eq '' || '' ne '' || '' gt '' || '' lt '' || '' ge '' || '' le '' || '' . '') {}
  23 if ('' eq $a || '' ne $a || '' gt $a || '' lt $a || '' ge $a || '' le $a || '' . $a) {}
  24
  25 #-----------------------------------------------------------------------------
  26
  27 ## name Basic failure
  28 ## failures 39
  29 ## cut
  30
  31 if ('' == 1 || '' != 1 || '' > 1  || '' >= 1 || '' < 1 || '' <= 1) {}
  32 if ('' + 1  || '' - 1  || '' * 1  || '' / 1) {}
  33
  34 if ($a == '' || $a != '' || $a > ''  || $a >= '' || $a < '' || $a <= '') {}
  35 if ($a + ''  || $a - ''  || $a * ''  || $a / '') {}
  36 $a += '';
  37 $a -= '';
  38 $a *= '';
  39 $a /= '';
  40
  41 if ($a eq 1 || $a ne 1 || $a lt 1 || $a gt 1 || $a le 1 || $a ge 1 || $a . 1) {}
  42 if ('' eq 1 || '' ne 1 || '' lt 1 || '' gt 1 || '' le 1 || '' ge 1 || '' . 1) {}
  43 $a .= 1;
  44
  45 #-----------------------------------------------------------------------------
  46
  47 ##############################################################################
  48 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ValuesAndExpressions/ProhibitMismatchedOperators.run $
  49 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  50 #   $Author: clonezone $
  51 # $Revision: 2187 $
  52 ##############################################################################
  53
  54 # Local Variables:
  55 #   mode: cperl
  56 #   cperl-indent-level: 4
  57 #   fill-column: 78
  58 #   indent-tabs-mode: nil
  59 #   c-indentation-style: bsd
  60 # End:
  61 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :