1 BEGIN { exec(tclsh => 't/tcl/harness.tcl' => $0) }
7 ok {![f1 is_ready]} "Future not yet ready"
12 f1 on_ready [list set "[namespace current]::ready_args"]
14 f1 on_done [list set "[namespace current]::done_args"]
18 ok {[f1 is_ready]} "Future ready"
20 is $ready_args {::f1} "Future passed to ready"
22 cmp_ok == [llength $done_args] 2 "Both args passed to done"
24 is [lindex $done_args 0] foo "Right first arg"
26 is [lindex $done_args 1] bar "Right second arg"
28 is [f1 get] "foo bar" "get return ok"