2011-03-25 12:19:20 -07:00
|
|
|
// xfail-stage0
|
2011-05-03 18:13:51 -07:00
|
|
|
// xfail-stage1
|
|
|
|
// xfail-stage2
|
2011-04-19 13:35:49 -07:00
|
|
|
fn main() -> () {
|
2010-07-28 16:58:17 -07:00
|
|
|
test00();
|
|
|
|
}
|
|
|
|
|
2011-04-19 13:35:49 -07:00
|
|
|
fn test00_start(chan[int] c, int number_of_messages) {
|
2010-07-28 16:58:17 -07:00
|
|
|
let int i = 0;
|
|
|
|
while (i < number_of_messages) {
|
|
|
|
c <| i;
|
|
|
|
i += 1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2011-04-19 13:35:49 -07:00
|
|
|
fn test00() {
|
2010-07-28 16:58:17 -07:00
|
|
|
let int r = 0;
|
|
|
|
let int sum = 0;
|
|
|
|
let port[int] p = port();
|
|
|
|
let int number_of_messages = 10;
|
|
|
|
|
2010-09-07 23:37:51 -07:00
|
|
|
let task t0 = spawn thread "child"
|
|
|
|
test00_start(chan(p), number_of_messages);
|
2010-07-28 16:58:17 -07:00
|
|
|
|
|
|
|
let int i = 0;
|
|
|
|
while (i < number_of_messages) {
|
2011-05-27 11:59:19 -07:00
|
|
|
p |> r; sum += r; log (r);
|
2010-07-28 16:58:17 -07:00
|
|
|
i += 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
join t0;
|
|
|
|
|
2011-05-02 17:47:24 -07:00
|
|
|
assert (sum == (number_of_messages * (number_of_messages - 1)) / 2);
|
2010-07-28 16:58:17 -07:00
|
|
|
}
|