Closes #3407. Closes #3412. Review by plocinic.

1 files changed, 38 insertions, 0 deletions

diff --git a/test/files/jvm/t3412-channel.scala b/test/files/jvm/t3412-channel.scala
new file mode 100644
index 0000000000..fcc439b488
--- /dev/null
+++ b/test/files/jvm/t3412-channel.scala
@@ -0,0 +1,38 @@
+import scala.actors._, scala.actors.Actor._, scala.actors.Futures._
+
+object Test {
+
+  def main(args: Array[String]) {
+
+    actor {
+      val C: Channel[Int] = new Channel[Int](self)
+
+      def respondAll(fts: List[Future[Int]], cnt: Int): Unit =
+        fts match {
+          case List() => C ! 0
+          case ft :: rest =>
+            if (cnt % 100 == 0)
+              println(ft())
+            respondAll(rest, cnt + 1)
+        }
+
+      actor {
+        val fts = for (_ <- 1 to 1000)
+                  yield C !! (3, {case x: Int => x})
+
+        actor {
+          respondAll(fts.toList, 0)
+        }
+      }
+
+      loop {
+        C.react {
+          case 0 => exit()
+          case i => reply(i * 2)
+        }
+      }
+    }
+
+  }
+
+}