diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-08 08:11:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-08 08:11:04 (GMT) |
| commit | 54adbbe05cd04c6fb6d82bb36d4f9f36a5cb7ad5 (patch) | |
| tree | 7a2945ffc6d43766d80b656dd51a1a38a1000205 /tests/string.test | |
| parent | 9848eb222d2b55f472945b371bd3523a89014f97 (diff) | |
| parent | c7de8a1d22c60626b19b0bb57ac58fa7d9d5cc16 (diff) | |
| download | tcl-54adbbe05cd04c6fb6d82bb36d4f9f36a5cb7ad5.zip tcl-54adbbe05cd04c6fb6d82bb36d4f9f36a5cb7ad5.tar.gz tcl-54adbbe05cd04c6fb6d82bb36d4f9f36a5cb7ad5.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/string.test')
| -rw-r--r-- | tests/string.test | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/string.test b/tests/string.test index 3e8e6ae..b8f01a5 100644 --- a/tests/string.test +++ b/tests/string.test @@ -1856,6 +1856,12 @@ test string-21.13.$noComp {string wordend, unicode} -body { test string-21.14.$noComp {string wordend, unicode} -body { run {string wordend "\uC700\uC700 abc" 8} } -result 6 +test string-21.15.$noComp {string wordend, unicode} -body { + run {string wordend "\U1D7CA\U1D7CA abc" 0} +} -result 2 +test string-21.16.$noComp {string wordend, unicode} -constraints fullutf -body { + run {string wordend "\U1D7CA\U1D7CA abc" 10} +} -result 6 test string-22.1.$noComp {string wordstart} -body { list [catch {run {string word a}} msg] $msg @@ -1896,6 +1902,12 @@ test string-22.12.$noComp {string wordstart, unicode} -body { test string-22.13.$noComp {string wordstart, unicode} -body { run {string wordstart "\uC700\uC700 abc" 8} } -result 3 +test string-22.14.$noComp {string wordstart, unicode} -body { + run {string wordstart "\U1D7CA\U1D7CA abc" 0} +} -result 0 +test string-22.15.$noComp {string wordstart, unicode} -constraints fullutf -body { + run {string wordstart "\U1D7CA\U1D7CA abc" 10} +} -result 3 test string-23.0.$noComp {string is boolean, Bug 1187123} testindexobj { set x 5 |