diff options
| author | nijtmans <nijtmans> | 2008-07-23 23:24:21 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2008-07-23 23:24:21 (GMT) |
| commit | 535ee80de6d5c048f9a3ae7a5956b114e9a5e3f6 (patch) | |
| tree | 44da117febb11bc69d260540340f018933aa8b45 /tests/menu.test | |
| parent | 8daba6660a12dce054485bf87cef227741ac76a0 (diff) | |
| download | tk-535ee80de6d5c048f9a3ae7a5956b114e9a5e3f6.zip tk-535ee80de6d5c048f9a3ae7a5956b114e9a5e3f6.tar.gz tk-535ee80de6d5c048f9a3ae7a5956b114e9a5e3f6.tar.bz2 | |
fix [2021443] inconsistant "wrong # args" messages (for Tk)
Diffstat (limited to 'tests/menu.test')
| -rw-r--r-- | tests/menu.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/menu.test b/tests/menu.test index f67fcbe..4a2fccb 100644 --- a/tests/menu.test +++ b/tests/menu.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: menu.test,v 1.20 2006/12/04 15:16:31 dkf Exp $ +# RCS: @(#) $Id: menu.test,v 1.21 2008/07/23 23:24:23 nijtmans Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -17,7 +17,7 @@ testConstraint hasEarthPhoto [file exists $earthPhotoFile] test menu-1.1 {Tk_MenuCmd procedure} { list [catch menu msg] $msg -} {1 {wrong # args: should be "menu pathName ?options?"}} +} {1 {wrong # args: should be "menu pathName ?-option value ...?"}} test menu-1.2 {Tk_MenuCmd procedure} { list [catch "menu bogus" msg] $msg } {1 {bad window path name "bogus"}} @@ -519,7 +519,7 @@ test menu-3.1 {MenuWidgetCmd procedure} { catch {destroy .m1} menu .m1 list [catch {.m1} msg] $msg [destroy .m1] -} {1 {wrong # args: should be ".m1 option ?arg arg ...?"} {}} +} {1 {wrong # args: should be ".m1 option ?arg ...?"} {}} test menu-3.2 {MenuWidgetCmd, Tcl_Preserve and Tcl_Release} {nonUnixUserInteraction } { catch {destroy .m1} menu .m1 -postcommand "destroy .m1" @@ -561,7 +561,7 @@ test menu-3.8 {MenuWidgetCmd procedure, "add" option} { catch {destroy .m1} menu .m1 list [catch {.m1 add} msg] $msg [destroy .m1] -} {1 {wrong # args: should be ".m1 add type ?options?"} {}} +} {1 {wrong # args: should be ".m1 add type ?-option value ...?"} {}} test menu-3.9 {MenuWidgetCmd procedure, "add" option} { catch {destroy .m1} menu .m1 @@ -706,7 +706,7 @@ test menu-3.34 {MenuWidgetCmd procedure, "entryconfigure" option} { catch {destroy .m1} menu .m1 list [catch {.m1 entryconfigure} msg] $msg [destroy .m1] -} {1 {wrong # args: should be ".m1 entryconfigure index ?option value ...?"} {}} +} {1 {wrong # args: should be ".m1 entryconfigure index ?-option value ...?"} {}} test menu-3.35 {MenuWidgetCmd procedure, "entryconfigure" option} { catch {destroy .m1} menu .m1 @@ -751,7 +751,7 @@ test menu-3.42 {MenuWidgetCmd procedure, "insert" option} { catch {destroy .m1} menu .m1 list [catch {.m1 insert} msg] $msg [destroy .m1] -} {1 {wrong # args: should be ".m1 insert index type ?options?"} {}} +} {1 {wrong # args: should be ".m1 insert index type ?-option value ...?"} {}} test menu-3.43 {MenuWidgetCmd procedure, "insert" option} { catch {destroy .m1} menu .m1 |