summaryrefslogtreecommitdiff
path: root/tests/utftcl.test
diff options
context:
space:
mode:
authorDidier Raboud <odyx@debian.org>2019-11-20 20:30:03 +0100
committerDidier Raboud <odyx@debian.org>2019-11-20 20:30:03 +0100
commitb0aeaea912817dd53fda33331a8f6e562b695a50 (patch)
tree4c3eca617f759c0bc9698cc35c599ef3113fa706 /tests/utftcl.test
parent68b3a623cde64e8dd53f8b1929a7cc9eabf0dadd (diff)
parent052cee686ea886c16b59dcabb5a04b2e6d390ade (diff)
Update to upstream 0.79+dfsg0
[git-debrebase anchor: new upstream 0.79+dfsg0, merge]
Diffstat (limited to 'tests/utftcl.test')
-rw-r--r--tests/utftcl.test5
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/utftcl.test b/tests/utftcl.test
index 33b8933..fac14ce 100644
--- a/tests/utftcl.test
+++ b/tests/utftcl.test
@@ -74,7 +74,8 @@ test utf-4.2 {Tcl_NumUtfChars: length 1} {
test utf-4.3 {Tcl_NumUtfChars: long string} {
testnumutfchars [bytestring "abc\xC2\xA2\xe4\xb9\x8e\uA2\u4e4e"]
} {7}
-test utf-4.4 {Tcl_NumUtfChars: #u0000} {
+# This is an invalid utf-8 sequence. Not minimal, so should return 2
+test utf-4.4 {Tcl_NumUtfChars: #u0000} tcl {
testnumutfchars [bytestring "\xC0\x80"]
} {1}
test utf-4.5 {Tcl_NumUtfChars: zero length, calc len} {
@@ -86,7 +87,7 @@ test utf-4.6 {Tcl_NumUtfChars: length 1, calc len} {
test utf-4.7 {Tcl_NumUtfChars: long string, calc len} {
testnumutfchars [bytestring "abc\xC2\xA2\xe4\xb9\x8e\uA2\u4e4e"] 1
} {7}
-test utf-4.8 {Tcl_NumUtfChars: #u0000, calc len} {
+test utf-4.8 {Tcl_NumUtfChars: #u0000, calc len} tcl {
testnumutfchars [bytestring "\xC0\x80"] 1
} {1}