Help tests bind-34.1 and bind-34.2 to always pass on Win10. See today's comment posted in ticket [69b48f427e]

1 files changed, 4 insertions, 0 deletions

diff --git a/tests/bind.test b/tests/bind.test
index e7b3db3..240a07e 100644
--- a/tests/bind.test
+++ b/tests/bind.test
@@ -6636,11 +6636,13 @@ test bind-34.1 {-warp works relatively to a window} -setup {
     update
     event generate .top <Motion> -x 20 -y 20 -warp 1
     update idletasks ; # DoWarp is an idle callback
+    after 50         ; # Win specific - wait for SendInput to be executed
     set pointerPos1 [winfo pointerxy .t]
     wm geometry .top +600+600
     update
     event generate .top <Motion> -x 20 -y 20 -warp 1
     update idletasks ; # DoWarp is an idle callback
+    after 50         ; # Win specific - wait for SendInput to be executed
     set pointerPos2 [winfo pointerxy .t]
     # from the first warped position to the second one, the mouse
     # pointer should have moved the same amount as the window moved
@@ -6659,9 +6661,11 @@ test bind-34.2 {-warp works relatively to the screen} -setup {
     # Contrary to bind-34.1, we're directly checking screen coordinates
     event generate {} <Motion> -x 20 -y 20 -warp 1
     update idletasks ; # DoWarp is an idle callback
+    after 50         ; # Win specific - wait for SendInput to be executed
     set res [winfo pointerxy .]
     event generate {} <Motion> -x 200 -y 200 -warp 1
     update idletasks ; # DoWarp is an idle callback
+    after 50         ; # Win specific - wait for SendInput to be executed
     lappend res {*}[winfo pointerxy .]
 } -cleanup {
 } -result {20 20 200 200}