summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2015-04-09 12:50:22 (GMT)
committerdgp <dgp@users.sourceforge.net>2015-04-09 12:50:22 (GMT)
commitb50c997b3834601c7ff959360ab907fbe0498c69 (patch)
tree74c6a8c804211ec12f1d5104a5e2d19f7515ab64 /tests
parentf834b107eaf34a513bc41be49e0ad054af11cc6a (diff)
parent092fc0d2df191c5676cd4c39da254d9a35e8da1e (diff)
downloadtk-b50c997b3834601c7ff959360ab907fbe0498c69.zip
tk-b50c997b3834601c7ff959360ab907fbe0498c69.tar.gz
tk-b50c997b3834601c7ff959360ab907fbe0498c69.tar.bz2
[562118ce41] Fix wordstart modifier handling of multi-byte chars
Diffstat (limited to 'tests')
-rw-r--r--tests/textIndex.test10
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/textIndex.test b/tests/textIndex.test
index 92cbff0..abed3d4 100644
--- a/tests/textIndex.test
+++ b/tests/textIndex.test
@@ -905,6 +905,16 @@ test textIndex-22.12 {text index wordstart, unicode} {
test textIndex-22.13 {text index wordstart, unicode} {
text_test_word wordstart "\uc700\uc700 abc" 8
} 3
+test textIndex-22.14 {text index wordstart, unicode, start index at internal segment start} {
+ catch {destroy .t}
+ text .t
+ .t insert end "C'est du texte en fran\u00e7ais\n"
+ .t insert end "\u042D\u0442\u043E\u0020\u0442\u0435\u043A\u0441\u0442\u0020\u043D\u0430\u0020\u0440\u0443\u0441\u0441\u043A\u043E\u043C"
+ .t mark set insert 1.23
+ set res [.t index "1.23 wordstart"]
+ .t mark set insert 2.16
+ lappend res [.t index "2.16 wordstart"] [.t index "2.15 wordstart"]
+} {1.18 2.13 2.13}
test textIndex-22.15 {text index display wordstart} {
catch {destroy .t}
text .t