diff options
| author | fvogel <fvogelnew1@free.fr> | 2015-09-06 19:40:01 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2015-09-06 19:40:01 (GMT) |
| commit | e5ee47920e9044f6970c2429d683838877d8ddde (patch) | |
| tree | 55edde9e27b15d34e0092d4c6b3eff75da6e5b25 /tests/menu.test | |
| parent | c9a6593a17cf151dc2bd2aeb8e83eac17ef529f5 (diff) | |
| parent | 32124ed50e83c59a5144190137414a3c6f5c7fb9 (diff) | |
| download | tk-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/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 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 { |