Commit | Line | Data |
---|---|---|
15e006dc | 1 | BEGIN { exec(tclsh => 't/tcl/harness.tcl' => $0) } |
2 | ||
3 | package require ten | |
4 | ||
5 | ten::future f1 | |
6 | ||
7 | ok {![f1 is_ready]} "Future not yet ready" | |
8 | ||
9 | set ready_args "" | |
10 | set done_args "" | |
11 | ||
12 | f1 on_ready {set "[namespace current]::ready_args"} | |
13 | ||
14 | f1 on_done {set "[namespace current]::done_args"} | |
15 | ||
16 | f1 done foo bar | |
17 | ||
18 | ok {[f1 is_ready]} "Future ready" | |
19 | ||
20 | done_testing |