X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Fi386%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Ft%2FValuesAndExpressions%2FProhibitMismatchedOperators.run;fp=dev%2Fi386%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Ft%2FValuesAndExpressions%2FProhibitMismatchedOperators.run;h=4ac3cae2d1276aa383d173d65cfef127b72b7132;hp=0000000000000000000000000000000000000000;hb=da95c414033799c3a62606f299c3c00b5c77ca11;hpb=2d38e14bacbb15b98e539843a40b3c52a225f493

diff --git a/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/ValuesAndExpressions/ProhibitMismatchedOperators.run b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/ValuesAndExpressions/ProhibitMismatchedOperators.run
new file mode 100644
index 0000000..4ac3cae
--- /dev/null
+++ b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/ValuesAndExpressions/ProhibitMismatchedOperators.run
@@ -0,0 +1,61 @@
+## name Basic passing
+## failures 0
+## cut
+
+if (1 == 1 || 1 != 1 || 1 > 1 || 1 >= 1 || 1 < 1 || 1 <= 1) {}
+if (1 + 1 || 1 - 1 || 1 * 1 || 1 / 1) {}
+
+if ($a == 1 || $a != 1 || $a > 1 || $a >= 1 || $a < 1 || $a <= 1) {}
+if ($a + 1 || $a - 1 || $a * 1 || $a / 1) {}
+$a += 1;
+$a -= 1;
+$a *= 1;
+$a /= 1;
+
+if ($a == $a || $a != $a || $a > $a || $a >= $a || $a < $a || $a <= $a) {}
+if ($a + $a || $a - $a || $a * $a || $a / $a) {}
+$a += $a;
+$a -= $a;
+$a *= $a;
+$a /= $a;
+
+if ('' eq '' || '' ne '' || '' gt '' || '' lt '' || '' ge '' || '' le '' || '' . '') {}
+if ('' eq $a || '' ne $a || '' gt $a || '' lt $a || '' ge $a || '' le $a || '' . $a) {}
+
+#-----------------------------------------------------------------------------
+
+## name Basic failure
+## failures 39
+## cut
+
+if ('' == 1 || '' != 1 || '' > 1  || '' >= 1 || '' < 1 || '' <= 1) {}
+if ('' + 1  || '' - 1  || '' * 1  || '' / 1) {}
+
+if ($a == '' || $a != '' || $a > ''  || $a >= '' || $a < '' || $a <= '') {}
+if ($a + ''  || $a - ''  || $a * ''  || $a / '') {}
+$a += '';
+$a -= '';
+$a *= '';
+$a /= '';
+
+if ($a eq 1 || $a ne 1 || $a lt 1 || $a gt 1 || $a le 1 || $a ge 1 || $a . 1) {}
+if ('' eq 1 || '' ne 1 || '' lt 1 || '' gt 1 || '' le 1 || '' ge 1 || '' . 1) {}
+$a .= 1;
+
+#-----------------------------------------------------------------------------
+
+##############################################################################
+#      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ValuesAndExpressions/ProhibitMismatchedOperators.run $
+#     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
+#   $Author: clonezone $
+# $Revision: 2187 $
+##############################################################################
+
+# Local Variables:
+#   mode: cperl
+#   cperl-indent-level: 4
+#   fill-column: 78
+#   indent-tabs-mode: nil
+#   c-indentation-style: bsd
+# End:
+# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :