summaryrefslogtreecommitdiffstats
path: root/tests/wm.test
diff options
context:
space:
mode:
authormdejong <mdejong>2002-06-24 02:17:57 (GMT)
committermdejong <mdejong>2002-06-24 02:17:57 (GMT)
commit890c34e8889317e09ba6b4a4c328e16b4712b9c7 (patch)
treeedbc5e0880c2a9fa6c82684e50af26e54f9b776b /tests/wm.test
parentada9b40cb1ed12dff8ae71d167aeeea17bcade14 (diff)
downloadtk-890c34e8889317e09ba6b4a4c328e16b4712b9c7.zip
tk-890c34e8889317e09ba6b4a4c328e16b4712b9c7.tar.gz
tk-890c34e8889317e09ba6b4a4c328e16b4712b9c7.tar.bz2
* tests/wm.test: Remove invalid minsize test. Add update
calls to wm transient tests so that idle handlers get run. This is needed to get the tests to pass under Win32. * unix/tkUnixWm.c (WmWaitMapProc): Move the special transient withdrawn check into the if body to make it easier to set a breakpoint on this test inside a debugger. No functional changes. * win/tkWinWm.c (WmWaitVisibilityOrMapProc): Ditto.
Diffstat (limited to 'tests/wm.test')
-rw-r--r--tests/wm.test16
1 files changed, 9 insertions, 7 deletions
diff --git a/tests/wm.test b/tests/wm.test
index c7dceed..d859fa6 100644
--- a/tests/wm.test
+++ b/tests/wm.test
@@ -7,7 +7,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: wm.test,v 1.11 2002/06/22 01:43:47 mdejong Exp $
+# RCS: @(#) $Id: wm.test,v 1.12 2002/06/24 02:17:57 mdejong Exp $
# This file tests window manager interactions that work across
# platforms. Window manager tests that only work on a specific
@@ -519,6 +519,8 @@ test wm-transient-6.1 { a withdrawn transient does not track
wm withdraw .subject
wm withdraw .master
wm deiconify .master
+ # idle handler should not map the transient
+ update
wm state .subject
} {withdrawn}
@@ -533,12 +535,16 @@ test wm-transient-6.2 { a withdrawn transient does not track
wm withdraw .subject
wm withdraw .master
wm deiconify .master
+ # idle handler should not map the transient
+ update
lappend results [wm state .subject]
wm deiconify .subject
lappend results [wm state .subject]
wm withdraw .master
lappend results [wm state .subject]
wm deiconify .master
+ # idle handler should map transient
+ update
lappend results [wm state .subject]
} {withdrawn normal withdrawn normal}
@@ -725,18 +731,14 @@ test wm-minsize-1.3 {usage} {
} {1 {wrong # arguments: must be "wm minsize window ?width height?"}}
test wm-minsize-1.4 {usage} {
- wm minsize .t
-} {1 1}
-
-test wm-minsize-1.5 {usage} {
list [catch {wm minsize . x 100} msg] $msg
} {1 {expected integer but got "x"}}
-test wm-minsize-1.6 {usage} {
+test wm-minsize-1.5 {usage} {
list [catch {wm minsize . 100 bogus} msg] $msg
} {1 {expected integer but got "bogus"}}
-test wm-minsize-1.7 {usage} {
+test wm-minsize-1.6 {usage} {
wm minsize .t 200 150
wm minsize .t
} {200 150}