From b2c0ae891a638888904d882ce02ed1637b867403 Mon Sep 17 00:00:00 2001 From: dgp Date: Wed, 27 Mar 2002 05:28:25 +0000 Subject: * Added missing [after cancel]s. --- ChangeLog | 4 ++++ tests/main.test | 8 +++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index c014d87..58d91a2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2002-03-27 Don Porter + + * tests/main.test: Added missing [after cancel]s. + 2002-03-25 Don Porter * 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] -- cgit v0.12