diff options
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 |