2011-03-25 14:19:20 -05:00
|
|
|
// xfail-stage0
|
2010-11-02 13:11:58 -05:00
|
|
|
impure fn main() -> () {
|
2010-07-19 16:05:18 -05:00
|
|
|
test05();
|
|
|
|
}
|
|
|
|
|
2010-11-02 13:11:58 -05:00
|
|
|
impure fn test05_start(chan[int] ch) {
|
2010-07-19 16:05:18 -05:00
|
|
|
ch <| 10;
|
|
|
|
ch <| 20;
|
|
|
|
ch <| 30;
|
|
|
|
}
|
|
|
|
|
2010-11-02 13:11:58 -05:00
|
|
|
impure fn test05() {
|
2010-07-19 16:05:18 -05:00
|
|
|
let port[int] po = port();
|
|
|
|
let chan[int] ch = chan(po);
|
|
|
|
spawn test05_start(chan(po));
|
|
|
|
let int value <- po;
|
|
|
|
value <- po;
|
|
|
|
value <- po;
|
2010-08-09 08:53:37 -05:00
|
|
|
check(value == 30);
|
2010-07-19 16:05:18 -05:00
|
|
|
}
|