diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | tests/main.test | 8 |
2 files changed, 9 insertions, 3 deletions
@@ -1,3 +1,7 @@ +2002-03-27 Don Porter <dgp@users.sourceforge.net> + + * tests/main.test: Added missing [after cancel]s. + 2002-03-25 Don Porter <dgp@users.sourceforge.net> * tests/main.test: Removed workarounds for Bug 495977. 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] |