diff options
| author | dgp <dgp@users.sourceforge.net> | 2002-03-27 05:28:25 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2002-03-27 05:28:25 (GMT) |
| commit | b2c0ae891a638888904d882ce02ed1637b867403 (patch) | |
| tree | bf610ae485beb8ee7e29fd2f3da492ef9c01f746 /tests | |
| parent | 0fbe3cc5aeec850669786ded6ad8155e35655470 (diff) | |
| download | tcl-b2c0ae891a638888904d882ce02ed1637b867403.zip tcl-b2c0ae891a638888904d882ce02ed1637b867403.tar.gz tcl-b2c0ae891a638888904d882ce02ed1637b867403.tar.bz2 | |
* Added missing [after cancel]s.
Diffstat (limited to 'tests')
| -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] |