rust/src/test/run-pass/task-comm-3.rs

// xfail for now, due to some problem with polymorphic types.
// xfail-stage2
use std;
import std::task;
import std::comm;
import std::comm::chan_t;
import std::comm::send;

fn main() { log "===== WITHOUT THREADS ====="; test00(); }

fn test00_start(ch: chan_t[int], message: int, count: int) {
    log "Starting test00_start";
    let i: int = 0;
    while i < count {
        log "Sending Message";
        send(ch, message);
        i = i + 1;
    }
    log "Ending test00_start";
}

fn test00() {
    let number_of_tasks: int = 16;
    let number_of_messages: int = 4;

    log "Creating tasks";

    let po = comm::mk_port();
    let ch = po.mk_chan2();

    let i: int = 0;

    // Create and spawn tasks...
    let tasks: [task] = ~[];
    while i < number_of_tasks {
        tasks +=
            [spawn test00_start(ch.unsafe_ptr(), i, number_of_messages)];
        i = i + 1;
    }

    // Read from spawned tasks...
    let sum: int = 0;
    for t: task  in tasks {
        i = 0;
        while i < number_of_messages {
            let value: int;
            value = po.recv();
            sum += value;
            i = i + 1;
        }
    }

    // Join spawned tasks...
    for t: task  in tasks { task::join(t); }

    log "Completed: Final number is: ";
    // assert (sum == (((number_of_tasks * (number_of_tasks - 1)) / 2) *
    //       number_of_messages));
    assert (sum == 480);
}