Complete unit tests

Author: odersky

tests/run/lst/LstTest.scala

@@ -139,6 +139,39 @@ object Test extends App {
     assert(xs0.take(10).length == 0)
   }
 
+  def zipWithTest() = {
+    val ys4a = xs4.zipWith(xs5)(_ + _)
+    val ys4b = xs5.zipWith(xs4)(_ + _)
+    assert(ys4a.mkString("") == "aabbccdd")
+    assert(ys4a === ys4b)
+    val ys1a = xs1.zipWith(xs1)(_ + _)
+    assert(ys1a === Lst("aa"))
+    val ys1b = xs1.zipWith(xs2)(_ + _)
+    assert(ys1b === Lst("aa"))
+    val ys1c = xs2.zipWith(xs1)(_ + _)
+    assert(ys1c === Lst("aa"))
+    val ys0a = xs1.zipWith(xs0)(_ + _)
+    val ys0b = xs0.zipWith(xs1)(_ + _)
+    assert((ys0a ++ ys0b).isEmpty)
+    val ys3i = xs3.zipWithIndex.map((x, y) => (x, y + 1))
+    assert(ys3i === Lst(("a", 1), ("b", 2), ("c", 3)), ys3i)
+  }
+
+  def correspondsTest() = {
+    assert(xs4.corresponds(xs4)(_ == _))
+    assert(!xs4.corresponds(xs5)(_ == _))
+    assert(xs1.corresponds(xs1)(_ == _))
+    assert(!xs1.corresponds(Lst("b"))(_ == _))
+    assert(xs0.corresponds(xs0)(_ == _))
+    assert(!xs0.corresponds(xs1)(_ == _))
+    val zs1 = Lst(new Object, new Object)
+    val zs2 = Lst(zs1(0), zs1(1))
+    val zs3 = Lst(new Object, new Object)
+    assert(zs1.eqElements(zs1))
+    assert(zs1.eqElements(zs2))
+    assert(!zs1.eqElements(zs3))
+  }
+
   println("testing")
   lengthTest()
   concatTest()
@@ -154,4 +187,6 @@ object Test extends App {
   reverseTest()
   applyTest()
   sliceTest()
+  zipWithTest()
+  correspondsTest()
 }