summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2002-03-27 05:28:25 (GMT)
committerdgp <dgp@users.sourceforge.net>2002-03-27 05:28:25 (GMT)
commitb2c0ae891a638888904d882ce02ed1637b867403 (patch)
treebf610ae485beb8ee7e29fd2f3da492ef9c01f746 /tests
parent0fbe3cc5aeec850669786ded6ad8155e35655470 (diff)
downloadtcl-b2c0ae891a638888904d882ce02ed1637b867403.zip
tcl-b2c0ae891a638888904d882ce02ed1637b867403.tar.gz
tcl-b2c0ae891a638888904d882ce02ed1637b867403.tar.bz2
* Added missing [after cancel]s.
Diffstat (limited to 'tests')
-rw-r--r--tests/main.test8
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]