diff options
author | fvogel <fvogelnew1@free.fr> | 2021-09-14 19:42:25 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2021-09-14 19:42:25 (GMT) |
commit | d9112839a88e25fdc849732b331ef56da48e192b (patch) | |
tree | a67e606b97577ca302df534b923da46f9fe6352d /tests/winWm.test | |
parent | a3561e3753f30dbcd0ef5db6dcc61146219fc513 (diff) | |
download | tk-d9112839a88e25fdc849732b331ef56da48e192b.zip tk-d9112839a88e25fdc849732b331ef56da48e192b.tar.gz tk-d9112839a88e25fdc849732b331ef56da48e192b.tar.bz2 |
Fix [489b69a820]: Slightly wrong error message on 'wm attributes $w -junk'
Diffstat (limited to 'tests/winWm.test')
-rw-r--r-- | tests/winWm.test | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/winWm.test b/tests/winWm.test index e19fcf2..030d11a 100644 --- a/tests/winWm.test +++ b/tests/winWm.test @@ -279,12 +279,11 @@ test winWm-6.2 {wm attributes} -constraints win -setup { test winWm-6.3 {wm attributes} -constraints win -setup { destroy .t } -body { - # This isn't quite the correct error message yet, but it works. toplevel .t wm attributes .t -foo } -cleanup { destroy .t -} -returnCodes error -result {wrong # args: should be "wm attributes window ?-alpha ?double?? ?-transparentcolor ?color?? ?-disabled ?bool?? ?-fullscreen ?bool?? ?-toolwindow ?bool?? ?-topmost ?bool??"} +} -returnCodes error -result {bad attribute "-foo": must be -alpha, -transparentcolor, -disabled, -fullscreen, -toolwindow, or -topmost} test winWm-6.4 {wm attributes -alpha} -constraints win -setup { destroy .t |