merge releasecore_8_4_branch

1 files changed, 5 insertions, 1 deletions

diff --git a/tests/window.test b/tests/window.test
index 8628c7a..f9b114a 100644
--- a/tests/window.test
+++ b/tests/window.test
@@ -11,9 +11,13 @@ namespace import -force tcltest::testsDirectory
 namespace import -force tcltest::interpreter
 namespace import -force tcltest::makeFile
 namespace import -force tcltest::removeFile
+namespace import -force tcltest::testConstraint
 configure -testdir [file join [pwd] [file dirname [info script]]]
 configure -loadfile [file join [testsDirectory] constraints.tcl]
 tcltest::loadTestedCommands
+testConstraint unthreaded [expr {
+    (![info exists tcl_platform(threaded)] || !$tcl_platform(threaded))
+}]
 
 update
 
@@ -148,7 +152,7 @@ test window-2.8 {Tk_DestroyWindow, cleanup half dead windows at exit} \
 } {0 {}}
 
 test window-2.9 {Tk_DestroyWindow, Destroy bindings evaluated after exit} \
-    unixOrWin {
+    {unixOrWin unthreaded} {
     set script [makeFile {
         toplevel .t1
         toplevel .t2