diff options
Diffstat (limited to 'tests/wm.test')
| -rw-r--r-- | tests/wm.test | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/tests/wm.test b/tests/wm.test index 2dcb3a3..9534fa7 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.21.2.1 2004/09/19 00:10:35 hobbs Exp $ +# RCS: @(#) $Id: wm.test,v 1.21.2.2 2004/10/05 22:27:27 hobbs Exp $ # This file tests window manager interactions that work across # platforms. Window manager tests that only work on a specific @@ -51,7 +51,7 @@ test wm-1.1 {Tk_WmObjCmd procedure, miscellaneous errors} { test wm-1.2 {Tk_WmObjCmd procedure, miscellaneous errors} { list [catch {wm foo} msg] $msg -} {1 {bad option "foo": must be aspect, attributes, client, colormapwindows, command, deiconify, focusmodel, frame, geometry, grid, group, iconbitmap, iconify, iconmask, iconname, iconposition, iconwindow, maxsize, minsize, overrideredirect, positionfrom, protocol, resizable, sizefrom, stackorder, state, title, transient, or withdraw}} +} {1 {bad option "foo": must be aspect, attributes, client, colormapwindows, command, deiconify, focusmodel, frame, geometry, grid, group, iconbitmap, iconify, iconmask, iconname, iconphoto, iconposition, iconwindow, maxsize, minsize, overrideredirect, positionfrom, protocol, resizable, sizefrom, stackorder, state, title, transient, or withdraw}} test wm-1.3 {Tk_WmObjCmd procedure, miscellaneous errors} { list [catch {wm command} msg] $msg @@ -564,6 +564,23 @@ test wm-iconname-2.1 {setting and reading values} { } [list {} ThisIconHasAName {}] +test wm-iconphoto-1.1 {usage} { + list [catch {wm iconphoto} err] $err +} {1 {wrong # args: should be "wm option window ?arg ...?"}} + +test wm-iconphoto-1.2 {usage} { + list [catch {wm iconphoto .} msg] $msg +} {1 {wrong # args: should be "wm iconphoto window ?-default? image1 ?image2 ...?"}} +test wm-iconphoto-1.3 {usage} { + list [catch {wm iconphoto . notanimage} msg] $msg +} {1 {can't use "notanimage" as iconphoto: not a photo image}} +test wm-iconphoto-1.4 {usage} { + # we currently have no return info + list [catch {wm iconphoto . -default} msg] $msg +} {1 {wrong # args: should be "wm iconphoto window ?-default? image1 ?image2 ...?"}} + +# All other iconphoto tests are platform specific + test wm-iconposition-1.1 {usage} { list [catch {wm iconposition} err] $err } {1 {wrong # args: should be "wm option window ?arg ...?"}} |