Increase delays so tests pass on macOS Sonoma.

tcltk · Dec 6, 2023 · cf28e70 · cf28e70
1 parent 8272917
commit cf28e70
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/tests/focus.test b/tests/focus.test
@@ -78,6 +78,7 @@ if {[testConstraint altDisplay]} {
 
 test focus-1.1 {Tk_FocusCmd procedure} -constraints unix -body {
     focusClear
+    after 100
     focus
 } -result {}
 test focus-1.2 {Tk_FocusCmd procedure} -constraints {

diff --git a/tests/wm.test b/tests/wm.test
@@ -36,7 +36,7 @@ testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowi
 #
 
 proc raiseDelay {} {
-    after 100;
+    after 200;
     update
     update idletasks
 }