Lots of consting

[p5sagit/p5-mst-13.2.git] / t / op / cond.t

diff --git a/t/op/cond.t b/t/op/cond.t
index de72a51..427efb4 100755 (executable)
--- a/t/op/cond.t
+++ b/t/op/cond.t
@@ -2,7 +2,7 @@
 
 # $RCSfile: cond.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:41 $
 
-print "1..16\n";
+print "1..4\n";
 
 print 1 ? "ok 1\n" : "not ok 1\n";     # compile time
 print 0 ? "not ok 2\n" : "ok 2\n";
@@ -10,73 +10,3 @@ print 0 ? "not ok 2\n" : "ok 2\n";
 $x = 1;
 print $x ? "ok 3\n" : "not ok 3\n";    # run time
 print !$x ? "not ok 4\n" : "ok 4\n";
-
-# Very low precedence between the ? and the :
-print $x ? "ok 5\n" or "not ok 5\n" : "not ok 5\n";
-# Binds tighter than assignment
-$msg = "not ok 6\n" ? "ok 6\n" : "ok 6\n";
-print $msg;
-# Binds looser than ".."
-print "ok ", $x ? 7 : -2..15, "\n";
-# Right-associative
-print $x ? "ok 8\n" : 0 ? "not ok 8\n" : "not ok 8\n";
-# No parens needed when nested like an if-elsif-elsif-elsif-else
-$n = 9;
-print $n ==  7 ? "not ok 9\n" :
-      $n ==  8 ? "not ok 9\n" :
-      $n ==  9 ?     "ok 9\n" :
-      $n == 10 ? "not ok 9\n" :
-                "not ok 9\n";
-# Nor when used like a deeply nested if-else chain
-print $n != 7 ?
-       $n != 8 ?
-         $n != 9 ?
-           $n != 10 ?
-              "not ok 10\n"
-           :
-              "not ok 10\n"
-         :
-           "ok 10\n"
-       :
-         "not ok 10\n"
-      :
-        "not ok 10\n";
-# A random pathologically nested example, which parses like
-# $a ? ($b ? ($c ? $d : ($e ? $f : $g)) : $h) : ($i ? $j : $k),
-# i.e.,
-# if ($a) {
-#     if ($b) {
-#      if ($c) {
-#          $d;
-#      } else {
-#          if ($e) {
-#              $f;
-#          } else {
-#              $g;
-#          }
-#      }
-#     } else {
-#      $h;
-#     }
-# } else {
-#     if ($i) {
-#      $j;
-#     } else {
-#      $k;
-#     }
-# }
-# We exercise all the branches. The ".5"s should be dont-cares.
-($d, $f, $g, $h, $j, $k) =
-  ("ok 11\n", "ok 12\n", "ok 13\n", "ok 14\n", "ok 15\n", "ok 16\n");
-($a, $b, $c, $e, $i) = (1,  1,  1, .5, .5);
-print $a ? $ b ? $c ? $d : $e ? $f : $g : $h : $i ? $j : $k;
-($a, $b, $c, $e, $i) = (1,  1,  0,  1, .5);
-print $a ? $ b ? $c ? $d : $e ? $f : $g : $h : $i ? $j : $k;
-($a, $b, $c, $e, $i) = (1,  1,  0,  0, .5);
-print $a ? $ b ? $c ? $d : $e ? $f : $g : $h : $i ? $j : $k;
-($a, $b, $c, $e, $i) = (1,  0, .5, .5, .5);
-print $a ? $ b ? $c ? $d : $e ? $f : $g : $h : $i ? $j : $k;
-($a, $b, $c, $e, $i) = (0, .5, .5, .5,  1);
-print $a ? $ b ? $c ? $d : $e ? $f : $g : $h : $i ? $j : $k;
-($a, $b, $c, $e, $i) = (0, .5, .5, .5,  0);
-print $a ? $ b ? $c ? $d : $e ? $f : $g : $h : $i ? $j : $k;