summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2004-09-07 19:12:30 (GMT)
committerKevin B Kenny <kennykb@acm.org>2004-09-07 19:12:30 (GMT)
commitabcb9bd1b0b42addc1f0d5a2d17bc806220c7f3c (patch)
tree165027f6bfdc8d506d0cbb65682af2ef8068054b
parent491f5c4a789c1dec4f721e7642a2c0796f93cc4e (diff)
downloadtcl-abcb9bd1b0b42addc1f0d5a2d17bc806220c7f3c.zip
tcl-abcb9bd1b0b42addc1f0d5a2d17bc806220c7f3c.tar.gz
tcl-abcb9bd1b0b42addc1f0d5a2d17bc806220c7f3c.tar.bz2
* tests/timer.test (timer-1.1, timer-2.1): Changed to (one hopes!)
be more resilient on an overloaded system, if [after 200] sleeps for 300 ms or longer.
-rw-r--r--ChangeLog3
-rw-r--r--tests/timer.test12
2 files changed, 9 insertions, 6 deletions
diff --git a/ChangeLog b/ChangeLog
index 5499fa1..da5a0e2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -12,6 +12,9 @@
where the 'system' locale tests fail on a non-English Windows
machine. [Bug 1023761]. Added a test to make sure that alias
time zones load correctly. [Bug 1023779].
+ * tests/timer.test (timer-1.1, timer-2.1): Changed to (one hopes!)
+ be more resilient on an overloaded system, if [after 200] sleeps
+ for 300 ms or longer.
* tools/tclZIC.tcl (writeLinks): Corrected a problem where
alias time zone names were written incorrectly, causing them
to fail to load at run time. [Bug 1023779].
diff --git a/tests/timer.test b/tests/timer.test
index 46b21de..2954507 100644
--- a/tests/timer.test
+++ b/tests/timer.test
@@ -13,7 +13,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: timer.test,v 1.9 2004/08/25 22:21:34 dgp Exp $
+# RCS: @(#) $Id: timer.test,v 1.10 2004/09/07 19:12:42 kennykb Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -28,8 +28,8 @@ test timer-1.1 {Tcl_CreateTimerHandler procedure} {
foreach i {100 200 1000 50 150} {
after $i lappend x $i
}
- after 200
- update
+ after 200 set done 1
+ vwait done
set x
} {50 100 150 200}
@@ -38,13 +38,13 @@ test timer-2.1 {Tcl_DeleteTimerHandler procedure} {
after cancel $i
}
set x ""
- foreach i {100 200 300 50 150} {
+ foreach i {100 200 1000 50 150} {
after $i lappend x $i
}
after cancel lappend x 150
after cancel lappend x 50
- after 200
- update
+ after 200 set done 1
+ vwait done
set x
} {100 200}