diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/timer.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/timer.test b/tests/timer.test index 46b21de..2954507 100644 --- a/tests/timer.test +++ b/tests/timer.test @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: timer.test,v 1.9 2004/08/25 22:21:34 dgp Exp $ +# RCS: @(#) $Id: timer.test,v 1.10 2004/09/07 19:12:42 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -28,8 +28,8 @@ test timer-1.1 {Tcl_CreateTimerHandler procedure} { foreach i {100 200 1000 50 150} { after $i lappend x $i } - after 200 - update + after 200 set done 1 + vwait done set x } {50 100 150 200} @@ -38,13 +38,13 @@ test timer-2.1 {Tcl_DeleteTimerHandler procedure} { after cancel $i } set x "" - foreach i {100 200 300 50 150} { + foreach i {100 200 1000 50 150} { after $i lappend x $i } after cancel lappend x 150 after cancel lappend x 50 - after 200 - update + after 200 set done 1 + vwait done set x } {100 200} |