summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-09-02 20:27:57 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-09-02 20:27:57 (GMT)
commit7708c070940fa9d780429ace70c7643fb553872a (patch)
tree3f501420718292a5dc80fbb8556f73450fae9b03 /tests
parent43fa4c24905499a1f9e52986e3bcc75e2ede53fb (diff)
downloadtk-7708c070940fa9d780429ace70c7643fb553872a.zip
tk-7708c070940fa9d780429ace70c7643fb553872a.tar.gz
tk-7708c070940fa9d780429ace70c7643fb553872a.tar.bz2
Fixed bug [1581435fff] - Documented precedence order in the matching process of the index stringbug_1581435fff
Diffstat (limited to 'tests')
-rw-r--r--tests/menu.test9
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