From 8c23908ebb28540e89d3eec8ef699d6af55c3d55 Mon Sep 17 00:00:00 2001 From: Philipp Haller Date: Sun, 31 May 2009 13:20:43 +0000 Subject: New tests for exceptions and Actor.receiveWithin. --- test/files/jvm/actor-receivewithin.scala | 67 ++++++++++++++++++++++++++++++++ 1 file changed, 67 insertions(+) create mode 100644 test/files/jvm/actor-receivewithin.scala (limited to 'test/files/jvm/actor-receivewithin.scala') diff --git a/test/files/jvm/actor-receivewithin.scala b/test/files/jvm/actor-receivewithin.scala new file mode 100644 index 0000000000..c6818cf211 --- /dev/null +++ b/test/files/jvm/actor-receivewithin.scala @@ -0,0 +1,67 @@ +import scala.actors.{Actor, TIMEOUT} + +object A extends Actor { + def act() { + receive { + case 'done => + var cnt = 0 + while (cnt < 500) { + cnt += 1 + receiveWithin (0) { + case 'msg => + if (cnt % 100 == 0) + println("'msg") + case TIMEOUT => + // should not happen + println("FAIL1") + } + } + cnt = 0 + while (cnt < 500) { + cnt += 1 + receiveWithin (0) { + case 'msg => + // should not happen + println("FAIL2") + case TIMEOUT => + if (cnt % 100 == 0) + println("TIMEOUT") + } + } + B ! 'next + cnt = 0 + while (cnt < 501) { + cnt += 1 + receiveWithin (500) { + case 'msg2 => + if (cnt % 100 == 0) + println("'msg2") + case TIMEOUT => + println("TIMEOUT") + } + } + } + } +} + +object B extends Actor { + def act() { + A.start() + for (_ <- 1 to 500) { + A ! 'msg + } + A ! 'done + receive { + case 'next => + for (_ <- 1 to 500) { + A ! 'msg2 + } + } + } +} + +object Test { + def main(args:Array[String]) { + B.start() + } +} -- cgit v1.2.3