From 936bae60225b39532ed5a37afd633737ac95613b Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Wed, 25 May 2016 21:19:33 +0000
Subject: Fixed [f2655bb0ec] - bind-15.23 fails if the mouse is inside the test
 window

---
 tests/bind.test | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/tests/bind.test b/tests/bind.test
index 474771d..ab3fa15 100644
--- a/tests/bind.test
+++ b/tests/bind.test
@@ -34,6 +34,14 @@ proc unsetBindings {} {
     bind .t <Enter> {}
 }
 
+# move the mouse pointer away of the testing area
+# otherwise some spurious events may pollute the tests
+toplevel .top
+wm geometry .top 50x50-50-50
+update
+event generate .top <Button-1> -warp 1
+update
+destroy .top
 
 test bind-1.1 {bind command} -body {
     bind
-- 
cgit v0.12