Added test cases.

Author: mbebenita

src/Makefile

@@ -381,6 +381,9 @@ TASK_XFAILS := test/run-pass/acyclic-unwind.rs \
                test/run-pass/task-comm-7.rs \
                test/run-pass/task-comm-8.rs \
                test/run-pass/task-comm-9.rs \
+               test/run-pass/task-comm-10.rs \
+               test/run-pass/task-comm-11.rs \
+               test/run-pass/task-life-0.rs \
                test/run-pass/task-comm.rs \
                test/run-pass/threads.rs \
                test/run-pass/yield.rs

src/test/run-pass/task-comm-10.rs

@@ -0,0 +1,16 @@
+io fn start(chan[chan[str]] c) {
+    let port[str] p = port();
+    c <| chan(p);
+    auto a <- p;
+    auto b <- p;
+    // Never read the second string.
+}
+
+io fn main() {
+    let port[chan[str]] p = port();
+    auto child = spawn "start" start(chan(p));
+    auto c <- p;
+    c <| "A";
+    c <| "B";
+    yield;
+}

src/test/run-pass/task-comm-11.rs

@@ -0,0 +1,10 @@
+io fn start(chan[chan[str]] c) {
+    let port[str] p = port();
+    c <| chan(p);
+}
+
+io fn main() {
+    let port[chan[str]] p = port();
+    auto child = spawn "child" start(chan(p));
+    auto c <- p;
+}

src/test/run-pass/task-life-0.rs

@@ -0,0 +1,7 @@
+fn main() -> () {
+    spawn child("Hello");
+}
+
+fn child(str s) {
+    
+}