From 919caa4646584981dbe8a9353e03e94f38c82a8e Mon Sep 17 00:00:00 2001
From: Burak Emir <emir@epfl.ch>
Date: Wed, 31 Jan 2007 18:12:10 +0000
Subject: added test case 4 select unapply

---
 test/files/run/unapply.scala    |  23 +++++++--
 test/pending/run/testSome.scala | 103 ----------------------------------------
 2 files changed, 20 insertions(+), 106 deletions(-)
 delete mode 100644 test/pending/run/testSome.scala

diff --git a/test/files/run/unapply.scala b/test/files/run/unapply.scala
index d84711519f..8b913ee593 100644
--- a/test/files/run/unapply.scala
+++ b/test/files/run/unapply.scala
@@ -4,7 +4,8 @@ object Test {
   def main(args:Array[String]) = {
     Foo.run
     Mas.run
-    Lis.run
+    LisSeqArr.run
+    StreamFoo.run
   }
 }
 
@@ -77,10 +78,26 @@ object Mas extends Assert {
   }
 }
 
-object Lis extends Assert {
+object LisSeqArr extends Assert {
   def run {
-    assertEquals((List(1,2,3): Any) match { case List(x,y,_*) => {x,y}}, {1,2})
+    assertEquals((List(1,2,3): Any) match { case   List(x,y,_*) => {x,y}}, {1,2})
+    assertEquals((List(1,2,3): Any) match { case    Seq(x,y,_*) => {x,y}}, {1,2})
+    assertEquals((Array(1,2,3): Any) match { case   Seq(x,y,_*) => {x,y}}, {1,2})
+    //assertEquals((Array(1,2,3): Any) match { case Array(x,y,_*) => {x,y}}, {1,2})
   }
 }
 
 
+object StreamFoo extends TestCase("unapply for Streams") with Assert {
+  //val x:Stream[Int] = Stream.cons(1,x)
+
+  def sum(stream: Stream[int]): int =
+    stream match {
+      case Stream.empty => 0
+      case Stream.cons(hd, tl) => hd + sum(tl)
+    }
+  override def run {
+    val str: Stream[int] = Stream.fromIterator(List(1,2,3).elements)
+    assertEquals(sum(str), 6)
+  }
+}
diff --git a/test/pending/run/testSome.scala b/test/pending/run/testSome.scala
deleted file mode 100644
index 4320adb681..0000000000
--- a/test/pending/run/testSome.scala
+++ /dev/null
@@ -1,103 +0,0 @@
-import testing.SUnit._
-
-//trait Foo {
-//  def bar:Option[Seq[xml.Node]] = Some(Nil)
-//}
-object testSome extends Assert {
-  //val x: Option[String] = Some("foo")
-
-  //val x1: Option[Int] = Some(3)
-
-  //val y: Option[String] = None
-
-  //val y1: Option[Int] = None
-
-  def main(args:Array[String]) = {
-
-    //assertFalse("some[string].isEmpty ", x.isEmpty) // x eq null
-    //assertFalse("some[int].isEmpty ", x1.isEmpty)
-
-  //  assertTrue("some[string].isInstanceOf[Some] ", x.isInstanceOf[Some[String]])
-  //  assertTrue("some[int].isInstanceOf[Some] ",    x1.isInstanceOf[Some[Int]])
-
-    //assertTrue("some[string].asInstanceOf[Some] ", {x.asInstanceOf[Some[String]];true})
-    //assertTrue("some[int].asInstanceOf[Some] ",    {x1.asInstanceOf[Some[Int]]; true})
-    /*
-    assertTrue("none<:opt[string].isEmpty ", y.isEmpty)
-    assertTrue("non<:opt[int].isEmpty ", y1.isEmpty)
-
-    assertEquals("Some(foo).get ", "foo", x.get)
-
-    assertEquals("Some(3).get ", 3, x1.get)
-    val f = {x:String => Some(x.length)}
-
-    val len:Option[Int] = x.flatMap(f)
-    Console.println("len: (3) "+len)
-
-
-    val g = {x:String => x.charAt(0) == 'f'}
-
-    Console.println("filter: (foo) "+x.filter(g))
-    // to do:
-//    assertEquals("equals", len == Some(3))
-
-    // matching
-    x match {
-      case Some("foo") => true
-      case None        => false
-    }
-
-    // matching
-    x match {
-      case Some(z) => z
-      case _       => null
-    }
-    x match {
-      case None => "3"
-      case Some(z) => "4"
-    }
-*/
-
-    new collection.mutable.HashMap[Int,Option[String]]().get(1) match {
-      case Some(Some(x)) => 1
-      case _ => 2
-    }
-    // unapply
-  }
-/*
-  def foobar(x:Foo) = {x.bar == 42} // nonsense
-  val zz : Option[Int] =  try { Some(1/0) } catch { case _ => None}
-
-  trait ZyGo {
-    def impolite: Option[String]
-  }
-  val foo = new ZyGo {
-    val impolite = None
-  }
-
-  class Fu {
-    def bar: Option[String] = Some("foo")
-  }
-  new Fu().bar
-
-  def isNullable (metadata:java.sql.ResultSetMetaData, index:Int): Option[scala.Boolean] =
-    metadata.isNullable(index) match {
-      case java.sql.ResultSetMetaData.columnNoNulls => Some(false);
-      case java.sql.ResultSetMetaData.columnNullable => Some(true);
-      //case java.sql.ResultSetMetaData.columnNoNulls => None; // bq:unreachable code
-    }
-
-
-  def names_get_self : Option[scala.Symbol] = None
-
-  def send: Tuple1[String] = {
-    val senderName = new collection.mutable.HashMap[String, scala.Symbol].get("foo") match {
-      case None =>
-        "foo"
-      case Some(name) =>
-        "bar"
-    }
-    Tuple1(senderName)
-  }
-*/
-}
-- 
cgit v1.2.3