diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-28 07:56:13 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-28 07:56:13 (GMT) |
commit | be873bf63eba1e99003bacf0b8214da688462985 (patch) | |
tree | eee8262fa53b3433ed5f112d6c18e93c5feec985 /tests/winWm.test | |
parent | b0ff53377869ccfb7928d389f7bd6fdeddaca3f3 (diff) | |
parent | 7cd7731a93610c00e44c811f86b7afd62e83b82e (diff) | |
download | tk-be873bf63eba1e99003bacf0b8214da688462985.zip tk-be873bf63eba1e99003bacf0b8214da688462985.tar.gz tk-be873bf63eba1e99003bacf0b8214da688462985.tar.bz2 |
Merge 8.5. Update to Xcode12 and gcc-10. ttk test failures now lead to Travis build failures
Diffstat (limited to 'tests/winWm.test')
-rw-r--r-- | tests/winWm.test | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/tests/winWm.test b/tests/winWm.test index ad4988d..792a0e4 100644 --- a/tests/winWm.test +++ b/tests/winWm.test @@ -474,7 +474,7 @@ test winWm-9.0 "Bug #2799589 - delayed activation of destroyed window" -constrai global winwm90done set winwm90done wait toplevel .t -} -body { +} -body { pack [button .t.b -text "Show" -command {winwm90proc1 .tx}] bind .t.b <Map> {bind %W <Map> {}; after idle {winwm90click %W}} after 5000 {set winwm90done timeout} @@ -485,7 +485,7 @@ test winWm-9.0 "Bug #2799589 - delayed activation of destroyed window" -constrai rename winwm90$cmd {} } destroy .tx .t .sd -} -result {ok} +} -result ok test winWm-9.1 "delayed activation of grabbed destroyed window" -constraints win -setup { proc winwm91click {w} { @@ -519,7 +519,7 @@ test winWm-9.1 "delayed activation of grabbed destroyed window" -constraints win global winwm91done set winwm91done wait toplevel .t -} -body { +} -body { pack [button .t.b -text "Show" -command {winwm91proc1 .tx}] bind .t.b <Map> {bind %W <Map> {}; after idle {winwm91click %W}} after 5000 {set winwm91done timeout} @@ -530,9 +530,9 @@ test winWm-9.1 "delayed activation of grabbed destroyed window" -constraints win rename winwm91$cmd {} } destroy .tx .t .sd -} -result {ok} +} -result ok -test winWm-9.2 "check wm forget for unmapped parent (#3205464,#2967911)" -setup { +test winWm-9.2 "check wm forget for unmapped parent (#3205464,#2967911)" -constraints failsOnUbuntu -setup { destroy .t toplevel .t set winwm92 {} @@ -541,15 +541,15 @@ test winWm-9.2 "check wm forget for unmapped parent (#3205464,#2967911)" -setup } -body { pack .t.f.x pack .t.f - lappend aid [after 2000 {set ::winwm92 timeout}] [after 100 { + lappend aid [after 5000 {set ::winwm92 timeout}] [after 500 { wm manage .t.f wm iconify .t - lappend aid [after 100 { + lappend aid [after 500 { wm forget .t.f wm deiconify .t - lappend aid [after 100 { + lappend aid [after 500 { pack .t.f - lappend aid [after 100 { + lappend aid [after 500 { set ::winwm92 [expr { [winfo rooty .t.f.x] == 0 ? "failed" : "ok"}]}] }] |