Index: tests/wm.test ================================================================== --- tests/wm.test +++ tests/wm.test @@ -735,15 +735,15 @@ wm iconbitmap .t 12 13 14 } -result {wrong # args: should be "wm iconbitmap window ?-default? ?image?"} test wm-iconbitmap-1.3 {usage} -constraints win -returnCodes error -body { wm iconbitmap .t 12 13 } -result {illegal option "12" must be "-default"} -test wm-iconbitmap-1.4 {usage} -returnCodes error -body { +test wm-iconbitmap-1.4 {usage} -constraints notAqua -returnCodes error -body { wm iconbitmap .t bad-bitmap } -result {bitmap "bad-bitmap" not defined} -test wm-iconbitmap-2.1 {setting and reading values} -setup { +test wm-iconbitmap-2.1 {setting and reading values} -constraints notAqua -setup { set result {} } -body { lappend result [wm iconbitmap .t] wm iconbitmap .t hourglass lappend result [wm iconbitmap .t]