diff options
| author | dgp <dgp@noemail.net> | 2002-03-27 05:28:25 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2002-03-27 05:28:25 (GMT) |
| commit | af35793addcfad9dafde55fe110db460b09965d4 (patch) | |
| tree | bf610ae485beb8ee7e29fd2f3da492ef9c01f746 /tests/main.test | |
| parent | 8f438e111316f97ff8acf7bdcea4431c65a8068b (diff) | |
| download | tcl-af35793addcfad9dafde55fe110db460b09965d4.zip tcl-af35793addcfad9dafde55fe110db460b09965d4.tar.gz tcl-af35793addcfad9dafde55fe110db460b09965d4.tar.bz2 | |
* Added missing [after cancel]s.
FossilOrigin-Name: 0c71c43e2d5d6d6b99e35523d343b3c852304a94
Diffstat (limited to 'tests/main.test')
| -rw-r--r-- | tests/main.test | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/main.test b/tests/main.test index f085ddf..13b27c8 100644 --- a/tests/main.test +++ b/tests/main.test @@ -1,6 +1,6 @@ # This file contains a collection of tests for generic/tclMain.c. # -# RCS: @(#) $Id: main.test,v 1.5 2002/03/25 20:18:05 dgp Exp $ +# RCS: @(#) $Id: main.test,v 1.6 2002/03/27 05:28:25 dgp Exp $ if {[catch {package require tcltest 2.0.2}]} { puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required." @@ -538,8 +538,9 @@ namespace eval ::tcl::main::test { variable wait fileevent $f readable \ [list set [namespace which -variable wait] "child exit"] - after 2000 [list set [namespace which -variable wait] timeout] + set id [after 2000 [list set [namespace which -variable wait] timeout]] vwait [namespace which -variable wait] + after cancel $id set wait } -cleanup { if {[string equal timeout $wait] @@ -561,8 +562,9 @@ namespace eval ::tcl::main::test { variable wait fileevent $f readable \ [list set [namespace which -variable wait] "child exit"] - after 2000 [list set [namespace which -variable wait] timeout] + set id [after 2000 [list set [namespace which -variable wait] timeout]] vwait [namespace which -variable wait] + after cancel $id set wait } -cleanup { if {[string equal timeout $wait] |