summaryrefslogtreecommitdiff
path: root/test/pending/jvm
diff options
context:
space:
mode:
authorPaul Phillips <paulp@improving.org>2009-02-11 00:50:39 +0000
committerPaul Phillips <paulp@improving.org>2009-02-11 00:50:39 +0000
commit4fdfc29d7e1fb769ddc7d7999a90e31627d1a6d4 (patch)
tree7ce70e221bd9944d1c7d92de2197c5d594abcf68 /test/pending/jvm
parent347e682ba28c6cbec3169b450074b4f1d2fd4bd9 (diff)
downloadscala-4fdfc29d7e1fb769ddc7d7999a90e31627d1a6d4.tar.gz
scala-4fdfc29d7e1fb769ddc7d7999a90e31627d1a6d4.tar.bz2
scala-4fdfc29d7e1fb769ddc7d7999a90e31627d1a6d4.zip
moved timeout.scala back to pending and documen...
moved timeout.scala back to pending and documented why it's there
Diffstat (limited to 'test/pending/jvm')
-rw-r--r--test/pending/jvm/timeout.check1
-rw-r--r--test/pending/jvm/timeout.scala33
2 files changed, 34 insertions, 0 deletions
diff --git a/test/pending/jvm/timeout.check b/test/pending/jvm/timeout.check
new file mode 100644
index 0000000000..d86bac9de5
--- /dev/null
+++ b/test/pending/jvm/timeout.check
@@ -0,0 +1 @@
+OK
diff --git a/test/pending/jvm/timeout.scala b/test/pending/jvm/timeout.scala
new file mode 100644
index 0000000000..12f1bd7bad
--- /dev/null
+++ b/test/pending/jvm/timeout.scala
@@ -0,0 +1,33 @@
+
+import scala.actors.Actor._
+import scala.actors.TIMEOUT
+
+object Test extends Application {
+ case class Timing(time: Long)
+
+ actor {
+ val a = actor {
+ react {
+ case 'doTiming =>
+ val s = sender
+ reactWithin(500) {
+ case TIMEOUT =>
+ s ! Timing(System.currentTimeMillis)
+ }
+ }
+ }
+
+ val start = System.currentTimeMillis
+ (a !? 'doTiming) match {
+ case Timing(end) =>
+ val delay = end - start
+
+ if (delay > 100 && delay < 900)
+ println("OK")
+ else {
+ println("EXPECTED: 100 < x < 900")
+ println("ACTUAL: "+delay)
+ }
+ }
+ }
+}