diff options
| author | fvogel <fvogelnew1@free.fr> | 2015-09-06 18:48:11 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2015-09-06 18:48:11 (GMT) |
| commit | 32124ed50e83c59a5144190137414a3c6f5c7fb9 (patch) | |
| tree | 3f501420718292a5dc80fbb8556f73450fae9b03 /tests | |
| parent | 43fa4c24905499a1f9e52986e3bcc75e2ede53fb (diff) | |
| parent | 7708c070940fa9d780429ace70c7643fb553872a (diff) | |
| download | tk-32124ed50e83c59a5144190137414a3c6f5c7fb9.zip tk-32124ed50e83c59a5144190137414a3c6f5c7fb9.tar.gz tk-32124ed50e83c59a5144190137414a3c6f5c7fb9.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.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 |