diff options
author | dgp <dgp@users.sourceforge.net> | 2020-05-07 20:50:55 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2020-05-07 20:50:55 (GMT) |
commit | 098e262372efb9e7d7ac9e3f58bf30febfbaf8bd (patch) | |
tree | c95065e047b30caf6565322fa7127ee0f339242c /tests/utf.test | |
parent | 1a4f2bb690f881a94a9bd1247ce7b00079e829e2 (diff) | |
parent | 6d3523c5c610db0509a1e1484163de4651b10c4d (diff) | |
download | tcl-098e262372efb9e7d7ac9e3f58bf30febfbaf8bd.zip tcl-098e262372efb9e7d7ac9e3f58bf30febfbaf8bd.tar.gz tcl-098e262372efb9e7d7ac9e3f58bf30febfbaf8bd.tar.bz2 |
close fork
Diffstat (limited to 'tests/utf.test')
-rw-r--r-- | tests/utf.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/utf.test b/tests/utf.test index b8839c0..a9534f2 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -190,15 +190,15 @@ test utf-5.2 {Tcl_UtfFindLast} {testfindlast testbytestring} { testfindlast [testbytestring abcbc] 98 } bc -test utf-6.1 {Tcl_UtfNext} {testutfnext testbytestring} { +test utf-6.1 {Tcl_UtfNext} testutfnext { # This takes the pointer one past the terminating NUL. # This is really an invalid call. testutfnext {} } 1 -test utf-6.2 {Tcl_UtfNext} {testutfnext testbytestring} { +test utf-6.2 {Tcl_UtfNext} testutfnext { testutfnext A } 1 -test utf-6.3 {Tcl_UtfNext} {testutfnext testbytestring} { +test utf-6.3 {Tcl_UtfNext} testutfnext { testutfnext AA } 1 test utf-6.4 {Tcl_UtfNext} {testutfnext testbytestring} { @@ -450,7 +450,7 @@ test utf-6.79.0 {Tcl_UtfNext} {testutfnext testbytestring ucs2_utf16} { test utf-6.79.1 {Tcl_UtfNext} {testutfnext testbytestring ucs4} { testutfnext [testbytestring \xF2\xA0\xA0\xA0G\xF8] } 4 -test utf-6.80 {Tcl_UtfNext - overlong sequences} {testutfnext} { +test utf-6.80 {Tcl_UtfNext - overlong sequences} testutfnext { testutfnext \x00 } 2 test utf-6.81 {Tcl_UtfNext - overlong sequences} {testutfnext testbytestring} { @@ -934,7 +934,7 @@ test utf-7.46.1 {Tcl_UtfPrev -- no lead byte at start} {testutfprev testbytestr test utf-7.47 {Tcl_UtfPrev, pointing to 3th byte of 3-byte valid sequence} {testutfprev testbytestring} { testutfprev [testbytestring \xE8\xA0] } 0 -test utf-7.47.1 {Tcl_UtfPrev, pointing to 3th byte of 3-byte valid sequence} {testutfprev testbytestring} { +test utf-7.47.1 {Tcl_UtfPrev, pointing to 3th byte of 3-byte valid sequence} testutfprev { testutfprev \u8820 2 } 0 test utf-7.47.2 {Tcl_UtfPrev, pointing to 3th byte of 3-byte invalid sequence} {testutfprev testbytestring} { |