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