summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog4
-rw-r--r--tests/main.test8
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 <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]