Adequate hygiene in the added tests prevents several failures (false positives) when running the complete test suite.

1 files changed, 5 insertions, 1 deletions

diff --git a/tests/event.test b/tests/event.test
index 3fb29ed..84af0c7 100644
--- a/tests/event.test
+++ b/tests/event.test
@@ -892,7 +892,9 @@ test event-9 {no <Enter> event is generated for the container window when its
     }
 } -result {.top .top.f}
 
-test event-9.1 {enter . window by destroying a toplevel - bug b1d115fa60} -body {
+test event-9.1 {enter . window by destroying a toplevel - bug b1d115fa60} -setup {
+    set EnterBind [bind . <Enter>]
+} -body {
     wm geometry . 200x200+300+300
     wm deiconify .
     _pause 200
@@ -918,6 +920,7 @@ test event-9.2 {enter toplevel window by destroying a toplevel - bug b1d115fa60}
         update
         set iconified true
     }
+    bind . <Enter> $EnterBind
 } -body {
     toplevel .top1
     wm geometry .top1 200x200+300+300
@@ -941,6 +944,7 @@ test event-9.2 {enter toplevel window by destroying a toplevel - bug b1d115fa60}
         wm deiconify .
         update
     }
+    destroy .top1
 } -result {.top1}
 
 # cleanup