summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-09-06 19:40:01 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-09-06 19:40:01 (GMT)
commite5ee47920e9044f6970c2429d683838877d8ddde (patch)
tree55edde9e27b15d34e0092d4c6b3eff75da6e5b25 /tests
parentc9a6593a17cf151dc2bd2aeb8e83eac17ef529f5 (diff)
parent32124ed50e83c59a5144190137414a3c6f5c7fb9 (diff)
downloadtk-e5ee47920e9044f6970c2429d683838877d8ddde.zip
tk-e5ee47920e9044f6970c2429d683838877d8ddde.tar.gz
tk-e5ee47920e9044f6970c2429d683838877d8ddde.tar.bz2
Fixed bug [1581435fff] - Documented precedence order in the matching process of the index string
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 595a21b..59239d7 100644
--- a/tests/menu.test
+++ b/tests/menu.test
@@ -1548,10 +1548,15 @@ test menu-3.41 {MenuWidgetCmd procedure, "index" option} -setup {
} -body {
menu .m1
.m1 add command -label "test"
- .m1 index "test"
+ .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"]
} -cleanup {
destroy .m1
-} -result {1}
+} -result {1 3 5 6}
test menu-3.42 {MenuWidgetCmd procedure, "insert" option} -setup {
destroy .m1
} -body {