summaryrefslogtreecommitdiffstats
path: root/tests/menu.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/menu.test')
-rw-r--r--tests/menu.test12
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