diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-14 08:57:03 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-14 08:57:03 (GMT) |
commit | 939adaec382ce7257869e18efa3ab353edda0ed5 (patch) | |
tree | 50b33044dd56b63633e734e9bf0725cdd7ba7e4c /tests/menu.test | |
parent | dfde3458e7bc27e3eef496b2b65d38a93092b9aa (diff) | |
parent | 4b62f1fb163792e9cc42e12ee5e803ae187cb609 (diff) | |
download | tk-939adaec382ce7257869e18efa3ab353edda0ed5.zip tk-939adaec382ce7257869e18efa3ab353edda0ed5.tar.gz tk-939adaec382ce7257869e18efa3ab353edda0ed5.tar.bz2 |
merge core-8-5-branch
Diffstat (limited to 'tests/menu.test')
-rw-r--r-- | tests/menu.test | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/tests/menu.test b/tests/menu.test index 3cb47c3..cfe00b9 100644 --- a/tests/menu.test +++ b/tests/menu.test @@ -754,8 +754,13 @@ test menu-3.41 {MenuWidgetCmd procedure, "index" option} { catch {destroy .m1} menu .m1 .m1 add command -label "test" - list [catch {.m1 index "test"} msg] $msg [destroy .m1] -} {0 1 {}} + .m1 add command -label "3" + .m1 add command -label "another label" + .m1 add command -label "end" + .m1 add command -label "3a" + .m1 add command -label "final entry" + list [.m1 index "test"] [.m1 index "3"] [.m1 index "3a"] [.m1 index "end"] [destroy .m1] +} {1 3 5 6 {}} test menu-3.42 {MenuWidgetCmd procedure, "insert" option} { catch {destroy .m1} menu .m1 |