summaryrefslogtreecommitdiffstats
path: root/tests/wm.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/wm.test')
-rw-r--r--tests/wm.test249
1 files changed, 129 insertions, 120 deletions
diff --git a/tests/wm.test b/tests/wm.test
index 2978c1b..5fd5ee1 100644
--- a/tests/wm.test
+++ b/tests/wm.test
@@ -2,16 +2,16 @@
# manager, including the "wm" command. It is organized in the standard fashion
# for Tcl tests.
#
-# Copyright (c) 1992-1994 The Regents of the University of California.
-# Copyright (c) 1994-1997 Sun Microsystems, Inc.
-# Copyright (c) 1998-1999 by Scriptics Corporation.
+# Copyright © 1992-1994 The Regents of the University of California.
+# Copyright © 1994-1997 Sun Microsystems, Inc.
+# Copyright © 1998-1999 by Scriptics Corporation.
# All rights reserved.
# This file tests window manager interactions that work across platforms.
# Window manager tests that only work on a specific platform should be placed
# in unixWm.test or winWm.test.
-package require tcltest 2.1
+package require tcltest 2.2
eval tcltest::configure $argv
tcltest::loadTestedCommands
@@ -27,13 +27,18 @@ proc stdWindow {} {
update
}
+testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowingsystem] ne "x11" }]
+
# [raise] and [lower] may return before the window manager has completed the
# operation. The raiseDelay procedure idles for a while to give the operation
# a chance to complete.
#
proc raiseDelay {} {
- after 100; update
+ after 100;
+ update
+ update idletasks
}
# How to carry out a small delay while processing events
@@ -783,7 +788,7 @@ test wm-iconify-2.3 {Misc errors} -body {
wm iconify .t2
} -returnCodes error -cleanup {
destroy .t2
-} -result {can't iconify .t2: it is an icon for .t}
+} -result {can't iconify ".t2": it is an icon for ".t"}
# test embedded window for Windows
test wm-iconify-2.4.1 {Misc errors} -constraints win -setup {
destroy .t2
@@ -793,7 +798,7 @@ test wm-iconify-2.4.1 {Misc errors} -constraints win -setup {
wm iconify .t2
} -returnCodes error -cleanup {
destroy .t2 .r.f
-} -result {can't iconify .t2: the container does not support the request}
+} -result {can't iconify ".t2": the container does not support the request}
# test embedded window for other platforms
test wm-iconify-2.4.2 {Misc errors} -constraints !win -setup {
destroy .t2
@@ -803,15 +808,15 @@ test wm-iconify-2.4.2 {Misc errors} -constraints !win -setup {
wm iconify .t2
} -returnCodes error -cleanup {
destroy .t2 .r.f
-} -result {can't iconify .t2: it is an embedded window}
+} -result {can't iconify ".t2": it is an embedded window}
-test wm-iconify-3.1 {iconify behavior} -body {
+test wm-iconify-3.1 {iconify behavior} -constraints failsOnUbuntu -body {
toplevel .t2
wm geom .t2 -0+0
- update
+ update idletasks
set result [winfo ismapped .t2]
wm iconify .t2
- update
+ update idletasks
lappend result [winfo ismapped .t2]
} -cleanup {
destroy .t2
@@ -1413,7 +1418,7 @@ test wm-stackorder-2.7 {stacking order: no children returns self} -setup {
deleteWindows
-test wm-stackorder-3.1 {unmapped toplevel} -body {
+test wm-stackorder-3.1 {unmapped toplevel} -constraints failsOnUbuntu -body {
toplevel .t1 ; update
toplevel .t2 ; update
wm iconify .t1
@@ -1484,14 +1489,14 @@ test wm-stackorder-4.1 {wm stackorder isabove|isbelow} -body {
wm stackorder . isabove .t
} -cleanup {
destroy .t
-} -result {0}
+} -result 0
test wm-stackorder-4.2 {wm stackorder isabove|isbelow} -body {
toplevel .t ; update
raise .t
wm stackorder . isbelow .t
} -cleanup {
destroy .t
-} -result {1}
+} -result 1
test wm-stackorder-4.3 {wm stackorder isabove|isbelow} -body {
toplevel .t ; update
raise .
@@ -1499,7 +1504,7 @@ test wm-stackorder-4.3 {wm stackorder isabove|isbelow} -body {
wm stackorder .t isa .
} -cleanup {
destroy .t
-} -result {0}
+} -result 0
test wm-stackorder-4.4 {wm stackorder isabove|isbelow} -body {
toplevel .t ; update
raise .
@@ -1507,7 +1512,7 @@ test wm-stackorder-4.4 {wm stackorder isabove|isbelow} -body {
wm stackorder .t isb .
} -cleanup {
destroy .t
-} -result {1}
+} -result 1
deleteWindows
test wm-stackorder-5.1 {a menu is not a toplevel} -body {
@@ -1523,7 +1528,7 @@ test wm-stackorder-5.1 {a menu is not a toplevel} -body {
destroy .t
} -result {.t .}
test wm-stackorder-5.2 {A normal toplevel can't be raised above an \
- overrideredirect toplevel on unix} -constraints x11 -body {
+ overrideredirect toplevel on unix} -constraints {x11 failsOnUbuntu failsOnXQuarz} -body {
toplevel .t
tkwait visibility .t
wm overrideredirect .t 1
@@ -1547,7 +1552,7 @@ test wm-stackorder-5.2.1 {A normal toplevel can be raised above an \
destroy .t
} -result 1
test wm-stackorder-5.3 {An overrideredirect window\
- can be explicitly lowered} -body {
+ can be explicitly lowered} -constraints failsOnXQuarz -body {
toplevel .t
tkwait visibility .t
wm overrideredirect .t 1
@@ -1595,7 +1600,7 @@ test wm-title-2.1 {setting and reading values} -setup {
test wm-transient-1.1 {usage} -returnCodes error -body {
catch {destroy .t} ; toplevel .t
wm transient .t 1 2
-} -result {wrong # args: should be "wm transient window ?master?"}
+} -result {wrong # args: should be "wm transient window ?window?"}
test wm-transient-1.2 {usage} -returnCodes error -body {
catch {destroy .t} ; toplevel .t
wm transient .t foo
@@ -1606,9 +1611,9 @@ test wm-transient-1.3 {usage} -returnCodes error -body {
} -result {bad window path name "foo"}
deleteWindows
test wm-transient-1.4 {usage} -returnCodes error -body {
- toplevel .master
+ toplevel .top
toplevel .subject
- wm transient .subject .master
+ wm transient .subject .top
wm iconify .subject
} -cleanup {
deleteWindows
@@ -1630,13 +1635,13 @@ test wm-transient-1.6 {usage} -returnCodes error -body {
wm transient .dummy .icon
} -cleanup {
deleteWindows
-} -result {can't make ".icon" a master: it is an icon for .top}
+} -result {can't make ".icon" a container: it is an icon for .top}
test wm-transient-1.7 {usage} -returnCodes error -body {
- toplevel .master
- wm transient .master .master
+ toplevel .top
+ wm transient .top .top
} -cleanup {
deleteWindows
-} -result {setting ".master" as master creates a transient/master cycle}
+} -result {can't set ".top" as container: would cause management loop}
test wm-transient-1.8 {usage} -returnCodes error -body {
toplevel .t1
toplevel .t2
@@ -1646,75 +1651,75 @@ test wm-transient-1.8 {usage} -returnCodes error -body {
wm transient .t1 .t3
} -cleanup {
deleteWindows
-} -result {setting ".t3" as master creates a transient/master cycle}
+} -result {can't set ".t3" as container: would cause management loop}
test wm-transient-1.9 {usage} -returnCodes error -body {
- toplevel .master
- frame .master.f
- wm transient .master .master.f
+ toplevel .top
+ frame .top.f
+ wm transient .top .top.f
} -cleanup {
deleteWindows
-} -result {setting ".master" as master creates a transient/master cycle}
+} -result {can't set ".top" as container: would cause management loop}
-test wm-transient-2.1 {basic get/set of master} -setup {
+test wm-transient-2.1 {basic get/set of toplevel} -setup {
set results [list]
} -body {
- toplevel .master
+ toplevel .top
toplevel .subject
lappend results [wm transient .subject]
- wm transient .subject .master
+ wm transient .subject .top
lappend results [wm transient .subject]
wm transient .subject {}
lappend results [wm transient .subject]
} -cleanup {
deleteWindows
-} -result {{} .master {}}
-test wm-transient-2.2 {first toplevel parent of non-toplevel master is used} -body {
- toplevel .master
- frame .master.f
+} -result {{} .top {}}
+test wm-transient-2.2 {first toplevel parent of non-toplevel container window is used} -body {
+ toplevel .top
+ frame .top.f
toplevel .subject
- wm transient .subject .master.f
+ wm transient .subject .top.f
wm transient .subject
} -cleanup {
deleteWindows
-} -result {.master}
+} -result {.top}
test wm-transient-3.1 {transient toplevel is withdrawn
- when mapped if master is withdrawn} -body {
- toplevel .master
- wm withdraw .master
+ when mapped if toplevel is withdrawn} -body {
+ toplevel .top
+ wm withdraw .top
update
toplevel .subject
- wm transient .subject .master
+ wm transient .subject .top
update
list [wm state .subject] [winfo ismapped .subject]
} -cleanup {
deleteWindows
} -result {withdrawn 0}
test wm-transient-3.2 {already mapped transient toplevel
- takes on withdrawn state of master} -body {
- toplevel .master
- wm withdraw .master
+ takes on withdrawn state of toplevel} -body {
+ toplevel .top
+ wm withdraw .top
update
toplevel .subject
update
- wm transient .subject .master
+ wm transient .subject .top
update
list [wm state .subject] [winfo ismapped .subject]
} -cleanup {
deleteWindows
} -result {withdrawn 0}
-test wm-transient-3.3 {withdraw/deiconify on the master
+test wm-transient-3.3 {withdraw/deiconify on the toplevel
also does a withdraw/deiconify on the transient} -setup {
set results [list]
} -body {
- toplevel .master
+ toplevel .top
toplevel .subject
update
- wm transient .subject .master
- wm withdraw .master
+ wm transient .subject .top
+ wm withdraw .top
update
lappend results [wm state .subject] [winfo ismapped .subject]
- wm deiconify .master
+ wm deiconify .top
update
lappend results [wm state .subject] [winfo ismapped .subject]
} -cleanup {
@@ -1722,44 +1727,44 @@ test wm-transient-3.3 {withdraw/deiconify on the master
} -result {withdrawn 0 normal 1}
test wm-transient-4.1 {transient toplevel is withdrawn
- when mapped if master is iconic} -body {
- toplevel .master
- wm iconify .master
+ when mapped if toplevel is iconic} -constraints {failsOnUbuntu failsOnXQuarz} -body {
+ toplevel .top
+ wm iconify .top
update
toplevel .subject
- wm transient .subject .master
+ wm transient .subject .top
update
list [wm state .subject] [winfo ismapped .subject]
} -cleanup {
deleteWindows
} -result {withdrawn 0}
test wm-transient-4.2 {already mapped transient toplevel
- is withdrawn if master is iconic} -body {
- toplevel .master
+ is withdrawn if toplevel is iconic} -constraints failsOnUbuntu -body {
+ toplevel .top
raiseDelay
- wm iconify .master
- update
+ wm iconify .top
+ update idletasks
toplevel .subject
- update
- wm transient .subject .master
- update
+ update idletasks
+ wm transient .subject .top
+ update idletasks
list [wm state .subject] [winfo ismapped .subject]
} -cleanup {
deleteWindows
} -result {withdrawn 0}
-test wm-transient-4.3 {iconify/deiconify on the master
- does a withdraw/deiconify on the transient} -setup {
+test wm-transient-4.3 {iconify/deiconify on the toplevel
+ does a withdraw/deiconify on the transient} -constraints failsOnUbuntu -setup {
set results [list]
} -body {
- toplevel .master
+ toplevel .top
toplevel .subject
- update
- wm transient .subject .master
- wm iconify .master
- update
+ update idletasks
+ wm transient .subject .top
+ wm iconify .top
+ update idletasks
lappend results [wm state .subject] [winfo ismapped .subject]
- wm deiconify .master
- update
+ wm deiconify .top
+ update idletasks
lappend results [wm state .subject] [winfo ismapped .subject]
} -cleanup {
deleteWindows
@@ -1769,53 +1774,53 @@ test wm-transient-5.1 {an error during transient command should not
cause the map/unmap binding to be deleted} -setup {
set results [list]
} -body {
- toplevel .master
+ toplevel .top
toplevel .subject
update
- wm transient .subject .master
+ wm transient .subject .top
# Expect a bad window path error here
lappend results [catch {wm transient .subject .bad}]
- wm withdraw .master
+ wm withdraw .top
update
lappend results [wm state .subject]
- wm deiconify .master
+ wm deiconify .top
update
lappend results [wm state .subject]
} -cleanup {
deleteWindows
} -result {1 withdrawn normal}
-test wm-transient-5.2 {remove transient property when master
+test wm-transient-5.2 {remove transient property when toplevel
is destroyed} -body {
- toplevel .master
+ toplevel .top
toplevel .subject
- wm transient .subject .master
+ wm transient .subject .top
update
- destroy .master
+ destroy .top
update
wm transient .subject
} -cleanup {
deleteWindows
} -result {}
test wm-transient-5.3 {remove transient property from window
- that had never been mapped when master is destroyed} -body {
- toplevel .master
+ that had never been mapped when toplevel is destroyed} -body {
+ toplevel .top
toplevel .subject
- wm transient .subject .master
- destroy .master
+ wm transient .subject .top
+ destroy .top
wm transient .subject
} -cleanup {
deleteWindows
} -result {}
test wm-transient-6.1 {a withdrawn transient does not track
- state changes in the master} -body {
- toplevel .master
+ state changes in the toplevel} -body {
+ toplevel .top
toplevel .subject
update
- wm transient .subject .master
+ wm transient .subject .top
wm withdraw .subject
- wm withdraw .master
- wm deiconify .master
+ wm withdraw .top
+ wm deiconify .top
# idle handler should not map the transient
update
wm state .subject
@@ -1823,24 +1828,24 @@ test wm-transient-6.1 {a withdrawn transient does not track
deleteWindows
} -result {withdrawn}
test wm-transient-6.2 {a withdrawn transient does not track
- state changes in the master} -setup {
+ state changes in the toplevel} -setup {
set results [list]
} -body {
- toplevel .master
+ toplevel .top
toplevel .subject
update
- wm transient .subject .master
+ wm transient .subject .top
wm withdraw .subject
- wm withdraw .master
- wm deiconify .master
+ wm withdraw .top
+ wm deiconify .top
# idle handler should not map the transient
update
lappend results [wm state .subject]
wm deiconify .subject
lappend results [wm state .subject]
- wm withdraw .master
+ wm withdraw .top
lappend results [wm state .subject]
- wm deiconify .master
+ wm deiconify .top
# idle handler should map transient
update
lappend results [wm state .subject]
@@ -1848,15 +1853,15 @@ test wm-transient-6.2 {a withdrawn transient does not track
deleteWindows
} -result {withdrawn normal withdrawn normal}
test wm-transient-6.3 {a withdrawn transient does not track
- state changes in the master} -body {
- toplevel .master
+ state changes in the toplevel} -body {
+ toplevel .top
toplevel .subject
update
# withdraw before making window a transient
wm withdraw .subject
- wm transient .subject .master
- wm withdraw .master
- wm deiconify .master
+ wm transient .subject .top
+ wm withdraw .top
+ wm deiconify .top
# idle handler should not map the transient
update
wm state .subject
@@ -1864,7 +1869,7 @@ test wm-transient-6.3 {a withdrawn transient does not track
deleteWindows
} -result {withdrawn}
-# wm-transient-7.*: See SF Tk Bug #592201 "wm transient fails with two masters"
+# wm-transient-7.*: See SF Tk Bug #592201 "wm transient fails with two toplevels"
# wm-transient-7.3 through 7.5 all caused panics on Unix in Tk 8.4b1.
# 7.1 and 7.2 added to catch (potential) future errors.
#
@@ -1878,16 +1883,16 @@ test wm-transient-7.1 {Destroying transient} -body {
} -cleanup {
deleteWindows
}
-test wm-transient-7.2 {Destroying master} -body {
- toplevel .t
+test wm-transient-7.2 {Destroying toplevel} -body {
+ toplevel .top
toplevel .transient
- wm transient .transient .t
- destroy .t
+ wm transient .transient .top
+ destroy .top
wm transient .transient
} -cleanup {
deleteWindows
} -result {}
-test wm-transient-7.3 {Reassign transient, destroy old master} -body {
+test wm-transient-7.3 {Reassign transient, destroy old toplevel} -body {
toplevel .t1
toplevel .t2
toplevel .transient
@@ -1899,7 +1904,7 @@ test wm-transient-7.3 {Reassign transient, destroy old master} -body {
} -cleanup {
deleteWindows
}
-test wm-transient-7.4 {Reassign transient, destroy new master} -body {
+test wm-transient-7.4 {Reassign transient, destroy new toplevel} -body {
toplevel .t1
toplevel .t2
toplevel .transient
@@ -1924,12 +1929,12 @@ test wm-transient-7.5 {Reassign transient, destroy transient} -body {
deleteWindows
}
-test wm-transient-8.1 {transient to withdrawn window, Bug 1163496} -setup {
+test wm-transient-8.1 {transient to withdrawn window, Bug 1163496} -constraints {failsOnUbuntu failsOnXQuarz} -setup {
deleteWindows
set result {}
} -body {
- # Verifies that transients stay on top of their masters, even if they were
- # made transients when those masters were withdrawn.
+ # Verifies that transients stay on top of their toplevels, even if they were
+ # made transients when those toplevels were withdrawn.
toplevel .t1; wm withdraw .t1; update
toplevel .t2; wm transient .t2 .t1; update
lappend result [winfo ismapped .t1] [winfo ismapped .t2]
@@ -2001,7 +2006,7 @@ test wm-state-2.7 {state change before map} -body {
} -cleanup {
deleteWindows
} -result {iconic}
-test wm-state-2.8 {state change after map} -body {
+test wm-state-2.8 {state change after map} -constraints failsOnUbuntu -body {
toplevel .t
update
wm state .t iconic
@@ -2009,7 +2014,7 @@ test wm-state-2.8 {state change after map} -body {
} -cleanup {
deleteWindows
} -result {iconic}
-test wm-state-2.9 {state change after map} -body {
+test wm-state-2.9 {state change after map} -constraints failsOnUbuntu -body {
toplevel .t
update
wm iconify .t
@@ -2277,7 +2282,7 @@ test wm-forget-1.1 "bug #2009788: forget toplevel can cause crash" -body {
winfo exists .parent.child
} -cleanup {
deleteWindows
-} -result {1}
+} -result 1
test wm-forget-1.2 "bug #2009788: forget toplevel can cause crash" -body {
toplevel .parent
update
@@ -2286,7 +2291,7 @@ test wm-forget-1.2 "bug #2009788: forget toplevel can cause crash" -body {
winfo exists .parent.child
} -cleanup {
deleteWindows
-} -result {1}
+} -result 1
test wm-forget-1.3 "bug #2009788: forget toplevel can cause crash" -body {
toplevel .parent
toplevel .parent.child
@@ -2295,7 +2300,7 @@ test wm-forget-1.3 "bug #2009788: forget toplevel can cause crash" -body {
winfo exists .parent.child
} -cleanup {
deleteWindows
-} -result {1}
+} -result 1
test wm-forget-1.4 "pack into unmapped toplevel causes crash" -body {
toplevel .parent
toplevel .parent.child
@@ -2310,6 +2315,11 @@ test wm-forget-1.4 "pack into unmapped toplevel causes crash" -body {
test wm-forget-2 {bug [e9112ef96e] - [wm forget] doesn't completely} -setup {
catch {destroy .l .f.b .f}
set res {}
+ if {[tk windowingsystem] == "aqua"} {
+ proc doUpdate {} {update idletasks}
+ } else {
+ proc doUpdate {} {update}
+ }
} -body {
label .l -text "Top Dot"
frame .f
@@ -2317,16 +2327,15 @@ test wm-forget-2 {bug [e9112ef96e] - [wm forget] doesn't completely} -setup {
pack .l -side top
pack .f.b
pack .f -side bottom
- update
set res [winfo manager .f]
pack forget .f
- update
+ doUpdate
lappend res [winfo manager .f]
wm manage .f
- update
+ doUpdate
lappend res [winfo manager .f]
wm forget .f
- update
+ doUpdate
lappend res [winfo manager .f]
} -cleanup {
destroy .l .f.b .f
generated by cgit v0.12 at 2024-11-10 13:14:26 (GMT)