diff options
| author | stanton <stanton> | 1998-12-09 01:18:38 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-12-09 01:18:38 (GMT) |
| commit | 74514b82bed9ad8b36d5849647c2cc82a649d2c5 (patch) | |
| tree | aa563687a6613c55116d0896452ab3a6a78ddd59 | |
| parent | 1ee66414aacae4ce09d372a2222b44a842567e2e (diff) | |
| download | tk-74514b82bed9ad8b36d5849647c2cc82a649d2c5.zip tk-74514b82bed9ad8b36d5849647c2cc82a649d2c5.tar.gz tk-74514b82bed9ad8b36d5849647c2cc82a649d2c5.tar.bz2 | |
updated broken tests
| -rw-r--r-- | tests/msgbox.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/msgbox.test b/tests/msgbox.test index 8beea58..f63cf53 100644 --- a/tests/msgbox.test +++ b/tests/msgbox.test @@ -6,7 +6,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: msgbox.test,v 1.1.4.2 1998/09/30 02:18:49 stanton Exp $ +# RCS: @(#) $Id: msgbox.test,v 1.1.4.3 1998/12/09 01:18:38 stanton Exp $ # if {[string compare test [info procs test]] == 1} { @@ -42,15 +42,15 @@ test msgbox-1.5 {tk_messageBox command} { test msgbox-1.6 {tk_messageBox command} { list [catch {tk_messageBox -default 1.1} msg] $msg -} {1 {bad -default value "1.1": must be abort, retry, ignore, ok, cancel, no, or yes}} +} {1 {invalid default button "1.1"}} test msgbox-1.7 {tk_messageBox command} { list [catch {tk_messageBox -default foo} msg] $msg -} {1 {bad -default value "foo": must be abort, retry, ignore, ok, cancel, no, or yes}} +} {1 {invalid default button "foo"}} test msgbox-1.8 {tk_messageBox command} { list [catch {tk_messageBox -type yesno -default 3} msg] $msg -} {1 {bad -default value "3": must be abort, retry, ignore, ok, cancel, no, or yes}} +} {1 {invalid default button "3"}} test msgbox-1.9 {tk_messageBox command} { list [catch {tk_messageBox -icon foo} msg] $msg |