diff options
| author | culler <culler> | 2024-06-22 04:35:36 (GMT) |
|---|---|---|
| committer | culler <culler> | 2024-06-22 04:35:36 (GMT) |
| commit | a1b9917ea6b5178d4e212d172d52f59a6359e31e (patch) | |
| tree | e6af2fcf9ce1b5d9070a9f8a820e22a3eeaf2ed7 | |
| parent | cb90cb6add00df5bec77b2625f20b3302e3a48ed (diff) | |
| download | tk-a1b9917ea6b5178d4e212d172d52f59a6359e31e.zip tk-a1b9917ea6b5178d4e212d172d52f59a6359e31e.tar.gz tk-a1b9917ea6b5178d4e212d172d52f59a6359e31e.tar.bz2 | |
Even small speedups cause test failures.
| -rw-r--r-- | tests/unixWm.test | 1 | ||||
| -rw-r--r-- | tests/window.test | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/tests/unixWm.test b/tests/unixWm.test index b47fb91..4d2dad5 100644 --- a/tests/unixWm.test +++ b/tests/unixWm.test @@ -1998,6 +1998,7 @@ test unixWm-50.9 {Tk_CoordsToWindow procedure, unmapped windows} {unix failsOnUb set result [list [winfo containing 100 100]] wm iconify .t2 update + restackDelay lappend result [winfo containing 100 100] } {.t2 .t} test unixWm-50.10 {Tk_CoordsToWindow procedure, unmapped windows} unix { diff --git a/tests/window.test b/tests/window.test index 8a56d5a..892ceea 100644 --- a/tests/window.test +++ b/tests/window.test @@ -11,7 +11,8 @@ tcltest::configure {*}$argv tcltest::loadTestedCommands namespace import ::tk::test::loadTkCommand update - +# Move the mouse out of the way for window-2.1 +event generate {} <Motion> -warp 1 -x 640 -y 10 # XXX This file is woefully incomplete. Right now it only tests # a few parts of a few procedures in tkWindow.c |