projects
/
scpubgit/TenDotTcl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
more future API
[scpubgit/TenDotTcl.git]
/
t
/
future.t
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