Be more tolerant about timing in tk-6.5 and remove unneeded constraint. This test really does pass on macOS with XQuartz. It may fail (both with XQuartz or with aqua) because of the slowness of the continuous integration platform on which the tests are performed.

1 files changed, 2 insertions, 4 deletions

diff --git a/tests/tk.test b/tests/tk.test
index f1a6b9a..d2e9044 100644
--- a/tests/tk.test
+++ b/tests/tk.test
@@ -10,8 +10,6 @@ eval tcltest::configure $argv
 tcltest::loadTestedCommands
 namespace import -force tcltest::test
 
-testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowingsystem] ne "x11" }]
-
 test tk-1.1 {tk command: general} -body {
     tk
 } -returnCodes error -result {wrong # args: should be "tk subcommand ?arg ...?"}
@@ -154,12 +152,12 @@ test tk-6.3 {tk inactive wrong argument} -body {
 test tk-6.4 {tk inactive too many arguments} -body {
     tk inactive reset foo
 } -returnCodes 1 -result {wrong # args: should be "tk inactive ?-displayof window? ?reset?"}
-test tk-6.5 {tk inactive} -constraints failsOnXQuarz -body {
+test tk-6.5 {tk inactive} -body {
     tk inactive reset
     update
     after 100
     set i [tk inactive]
-    expr {$i < 0 || ( $i > 90 && $i < 200 )}
+    expr {$i < 0 || ( $i > 90 && $i < 300 )}
 } -result 1
 
 test tk-7.1 {tk inactive in a safe interpreter} -body {