channels test I guess

ooc-lang · Oct 9, 2013 · ba3f2df · ba3f2df
1 parent 45f7954
commit ba3f2df
Showing 1 changed file with 30 additions and 0 deletions.
diff --git a/test/sdk/os/channels.ooc b/test/sdk/os/channels.ooc
@@ -0,0 +1,30 @@
+import os/Channel
+
+chan := make(Int)
+
+go(||
+    for (i in 0..5) {
+        chan << i
+        yield()
+    }
+    chan << -1
+)
+
+go(||
+    for (i in 5..10) {
+        chan << i
+        yield()
+    }
+    chan << -1
+)
+
+go(||
+    while (true) match (i := !chan) {
+        case -1 =>
+            break
+        case =>
+            "%d" printfln(i)
+            yield
+    }
+)
+