* 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.

1 files changed, 6 insertions, 6 deletions

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}