[scpubgit/TenDotTcl.git] / t / future.t

BEGIN { exec(tclsh => 't/tcl/harness.tcl' => $0) }

package require ten

ten::future f1

ok {![f1 is_ready]} "Future not yet ready"

set ready_args ""
set done_args ""

f1 on_ready {set "[namespace current]::ready_args"}

f1 on_done {set "[namespace current]::done_args"}

f1 done foo bar

ok {[f1 is_ready]} "Future ready"

done_testing
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