Fix wm-stackorder-2.3 on CI (hopefully)

tcltk · Oct 18, 2024 · f6a05c1 · f6a05c1
2 parents 3aa4fe9 + f7ae4da
commit f6a05c1
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/tests/wm.test b/tests/wm.test
@@ -1504,18 +1504,24 @@ test wm-stackorder-2.2 {stacking order} -body {
     destroy .t
 } -result {.t .}
 test wm-stackorder-2.3 {stacking order} -body {
+    set res {}
     toplevel .t
     tkwait visibility .t
+    raiseDelay
     toplevel .t2
     tkwait visibility .t2
+    raiseDelay
+    lappend res [wm stackorder .] 
     raise .
     raiseDelay
+    lappend res [wm stackorder .] 
     raise .t2
     raiseDelay
-    wm stackorder .
+    lappend res [wm stackorder .]
+    set res
 } -cleanup {
     destroy .t .t2
-} -result {.t . .t2}
+} -result {. .t .t2} {.t .t2 .} {.t . .t2}
 test wm-stackorder-2.4 {stacking order} -body {
     toplevel .t ; update
     toplevel .t2 ; update