2011-07-12 17:27:17 -05:00
|
|
|
use std;
|
|
|
|
|
|
|
|
import std::task;
|
2010-06-23 23:03:09 -05:00
|
|
|
|
2011-07-27 07:19:39 -05:00
|
|
|
fn main() {
|
2011-07-12 17:27:17 -05:00
|
|
|
test00();
|
2010-06-23 23:03:09 -05:00
|
|
|
// test01();
|
2010-08-09 08:53:37 -05:00
|
|
|
test02();
|
|
|
|
test03();
|
|
|
|
test04();
|
|
|
|
test05();
|
2010-07-19 16:05:18 -05:00
|
|
|
test06();
|
2010-06-23 23:03:09 -05:00
|
|
|
}
|
|
|
|
|
2011-07-27 07:19:39 -05:00
|
|
|
fn test00_start(ch: chan[int], message: int, count: int) {
|
2010-06-23 23:03:09 -05:00
|
|
|
log "Starting test00_start";
|
2011-07-27 07:19:39 -05:00
|
|
|
let i: int = 0;
|
|
|
|
while i < count { log "Sending Message"; ch <| message; i = i + 1; }
|
2010-06-23 23:03:09 -05:00
|
|
|
log "Ending test00_start";
|
|
|
|
}
|
|
|
|
|
2011-07-12 17:27:17 -05:00
|
|
|
fn test00() {
|
2011-07-27 07:19:39 -05:00
|
|
|
let number_of_tasks: int = 1;
|
|
|
|
let number_of_messages: int = 4;
|
2010-06-23 23:03:09 -05:00
|
|
|
log "Creating tasks";
|
2011-07-13 17:44:09 -05:00
|
|
|
|
2011-07-27 07:19:39 -05:00
|
|
|
let po: port[int] = port();
|
|
|
|
let ch: chan[int] = chan(po);
|
2011-07-13 17:44:09 -05:00
|
|
|
|
2011-07-27 07:19:39 -05:00
|
|
|
let i: int = 0;
|
2011-07-13 17:44:09 -05:00
|
|
|
|
2011-07-27 07:19:39 -05:00
|
|
|
let tasks: vec[task] = [];
|
|
|
|
while i < number_of_tasks {
|
2010-06-23 23:03:09 -05:00
|
|
|
i = i + 1;
|
2011-07-12 17:27:17 -05:00
|
|
|
tasks += [spawn test00_start(ch, i, number_of_messages)];
|
2010-06-23 23:03:09 -05:00
|
|
|
}
|
2011-07-13 17:44:09 -05:00
|
|
|
|
2011-07-27 07:19:39 -05:00
|
|
|
let sum: int = 0;
|
|
|
|
for t: task in tasks {
|
2010-06-23 23:03:09 -05:00
|
|
|
i = 0;
|
2011-07-27 07:19:39 -05:00
|
|
|
while i < number_of_messages {
|
|
|
|
let value: int;
|
|
|
|
po |> value;
|
2010-06-23 23:03:09 -05:00
|
|
|
sum += value;
|
|
|
|
i = i + 1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2011-07-27 07:19:39 -05:00
|
|
|
for t: task in tasks { task::join(t); }
|
2011-07-13 17:44:09 -05:00
|
|
|
|
2010-06-23 23:03:09 -05:00
|
|
|
log "Completed: Final number is: ";
|
2011-07-27 07:19:39 -05:00
|
|
|
assert (sum ==
|
|
|
|
number_of_messages *
|
|
|
|
(number_of_tasks * number_of_tasks + number_of_tasks) /
|
|
|
|
2);
|
2010-06-23 23:03:09 -05:00
|
|
|
}
|
|
|
|
|
2011-04-19 15:35:49 -05:00
|
|
|
fn test01() {
|
2011-07-27 07:19:39 -05:00
|
|
|
let p: port[int] = port();
|
2010-06-23 23:03:09 -05:00
|
|
|
log "Reading from a port that is never written to.";
|
2011-07-27 07:19:39 -05:00
|
|
|
let value: int;
|
|
|
|
p |> value;
|
2010-06-23 23:03:09 -05:00
|
|
|
log value;
|
|
|
|
}
|
|
|
|
|
2011-04-19 15:35:49 -05:00
|
|
|
fn test02() {
|
2011-07-27 07:19:39 -05:00
|
|
|
let p: port[int] = port();
|
|
|
|
let c: chan[int] = chan(p);
|
2010-06-23 23:03:09 -05:00
|
|
|
log "Writing to a local task channel.";
|
|
|
|
c <| 42;
|
|
|
|
log "Reading from a local task port.";
|
2011-07-27 07:19:39 -05:00
|
|
|
let value: int;
|
|
|
|
p |> value;
|
2010-06-23 23:03:09 -05:00
|
|
|
log value;
|
|
|
|
}
|
|
|
|
|
2011-07-27 07:19:39 -05:00
|
|
|
obj vector(mutable x: int, y: int) {
|
|
|
|
fn length() -> int { x = x + 2; ret x + y; }
|
2010-06-23 23:03:09 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
fn test03() {
|
|
|
|
log "Creating object ...";
|
2011-07-27 07:19:39 -05:00
|
|
|
let v: vector = vector(1, 2);
|
2010-06-23 23:03:09 -05:00
|
|
|
log "created object ...";
|
2011-07-27 07:19:39 -05:00
|
|
|
let t: vector = v;
|
2010-06-23 23:03:09 -05:00
|
|
|
log v.length();
|
|
|
|
}
|
|
|
|
|
|
|
|
fn test04_start() {
|
2011-05-12 10:24:54 -05:00
|
|
|
log "Started task";
|
2011-07-27 07:19:39 -05:00
|
|
|
let i: int = 1024 * 1024 * 64;
|
|
|
|
while i > 0 { i = i - 1; }
|
2011-05-12 10:24:54 -05:00
|
|
|
log "Finished task";
|
2010-06-23 23:03:09 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
fn test04() {
|
|
|
|
log "Spawning lots of tasks.";
|
2011-07-27 07:19:39 -05:00
|
|
|
let i: int = 4;
|
|
|
|
while i > 0 { i = i - 1; spawn test04_start(); }
|
2010-06-23 23:03:09 -05:00
|
|
|
log "Finishing up.";
|
|
|
|
}
|
|
|
|
|
2011-07-27 07:19:39 -05:00
|
|
|
fn test05_start(ch: chan[int]) {
|
2010-07-19 16:05:18 -05:00
|
|
|
ch <| 10;
|
|
|
|
ch <| 20;
|
|
|
|
ch <| 30;
|
|
|
|
ch <| 30;
|
2011-07-13 17:44:09 -05:00
|
|
|
ch <| 30;
|
2010-07-19 16:05:18 -05:00
|
|
|
}
|
2010-06-23 23:03:09 -05:00
|
|
|
|
2011-04-19 15:35:49 -05:00
|
|
|
fn test05() {
|
2011-07-27 07:19:39 -05:00
|
|
|
let po: port[int] = port();
|
|
|
|
let ch: chan[int] = chan(po);
|
2011-07-12 17:27:17 -05:00
|
|
|
spawn test05_start(ch);
|
2011-07-27 07:19:39 -05:00
|
|
|
let value: int;
|
|
|
|
po |> value;
|
2011-05-27 13:59:19 -05:00
|
|
|
po |> value;
|
|
|
|
po |> value;
|
2010-07-19 16:05:18 -05:00
|
|
|
log value;
|
|
|
|
}
|
2010-06-23 23:03:09 -05:00
|
|
|
|
2011-07-27 07:19:39 -05:00
|
|
|
fn test06_start(task_number: int) {
|
2010-07-19 16:05:18 -05:00
|
|
|
log "Started task.";
|
2011-07-27 07:19:39 -05:00
|
|
|
let i: int = 0;
|
|
|
|
while i < 100000000 { i = i + 1; }
|
2010-07-19 16:05:18 -05:00
|
|
|
log "Finished task.";
|
|
|
|
}
|
2011-07-13 17:44:09 -05:00
|
|
|
|
2010-07-19 16:05:18 -05:00
|
|
|
fn test06() {
|
2011-07-27 07:19:39 -05:00
|
|
|
let number_of_tasks: int = 4;
|
2010-07-19 16:05:18 -05:00
|
|
|
log "Creating tasks";
|
2011-07-13 17:44:09 -05:00
|
|
|
|
2011-07-27 07:19:39 -05:00
|
|
|
let i: int = 0;
|
2011-07-13 17:44:09 -05:00
|
|
|
|
2011-07-27 07:19:39 -05:00
|
|
|
let tasks: vec[task] = [];
|
|
|
|
while i < number_of_tasks { i = i + 1; tasks += [spawn test06_start(i)]; }
|
2011-07-13 17:44:09 -05:00
|
|
|
|
2011-07-27 07:19:39 -05:00
|
|
|
|
|
|
|
for t: task in tasks { task::join(t); }
|
2010-07-19 16:05:18 -05:00
|
|
|
}
|
2010-06-23 23:03:09 -05:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|