From abcb9bd1b0b42addc1f0d5a2d17bc806220c7f3c Mon Sep 17 00:00:00 2001 From: Kevin B Kenny Date: Tue, 7 Sep 2004 19:12:30 +0000 Subject: * 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. --- ChangeLog | 3 +++ tests/timer.test | 12 ++++++------ 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} -- cgit v0.12