* tests/timer.test: slight skewing of after values to allow for

	correct results on burdened machines.


FossilOrigin-Name: 78fb8ecb5b7a50d850efc1b5ef3cac17f8617021

1 files changed, 5 insertions, 5 deletions

diff --git a/tests/timer.test b/tests/timer.test
index 2b9c9c5..ea2af0e 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.7 2000/04/10 17:19:05 ericm Exp $
+# RCS: @(#) $Id: timer.test,v 1.7.2.1 2001/10/13 01:14:19 hobbs Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -28,7 +28,7 @@ test timer-1.1 {Tcl_CreateTimerHandler procedure} {
     foreach i {100 200 1000 50 150} {
 	after $i lappend x $i
     }
-    after 200
+    after 210
     update
     set x
 } {50 100 150 200}
@@ -43,7 +43,7 @@ test timer-2.1 {Tcl_DeleteTimerHandler procedure} {
     }
     after cancel lappend x 150
     after cancel lappend x 50
-    after 200
+    after 210
     update
     set x
 } {100 200}
@@ -67,7 +67,7 @@ test timer-3.2 {TimerHandlerEventProc procedure: multiple timers} {
     foreach i {200 600 1000} {
 	after $i lappend x $i
     }
-    after 200
+    after 210
     set result ""
     set x ""
     update
@@ -99,7 +99,7 @@ test timer-3.4 {TimerHandlerEventProc procedure: all expired timers fire} {
     after 100 lappend x a
     after 200 lappend x b
     after 300 lappend x c
-    after 300
+    after 310
     vwait x
     set x
 } {a b c}