diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-16 10:00:26 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-16 10:00:26 (GMT) |
commit | 93ce80a91680899c039e65bf1c00d24045619bd9 (patch) | |
tree | 4dbe1c2a544015530d1e8bdba57d6da99fd40e78 /tests | |
parent | 4d978a00ede12fc08aeddf81f4c936d533f7c9f3 (diff) | |
download | tcl-93ce80a91680899c039e65bf1c00d24045619bd9.zip tcl-93ce80a91680899c039e65bf1c00d24045619bd9.tar.gz tcl-93ce80a91680899c039e65bf1c00d24045619bd9.tar.bz2 |
unicode -> utf-16. Remove some unneeded encodingProfileTodo constraints
Diffstat (limited to 'tests')
-rw-r--r-- | tests/encoding.test | 12 | ||||
-rw-r--r-- | tests/utfext.test | 2 |
2 files changed, 2 insertions, 12 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index 5224225..407bd28 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -514,8 +514,6 @@ test encoding-16.7 {Utf32ToUtfProc} -body { test encoding-16.8 {Utf32ToUtfProc} -body { set val [encoding convertfrom -profile tcl8 utf-32 \x41\x00\x00\x41] list $val [format %x [scan $val %c]] -} -constraints { - encodingProfileTodo } -result "\uFFFD fffd" test encoding-16.9 {Utf32ToUtfProc} -constraints utf32 -body { encoding convertfrom utf-32le \x00\xD8\x00\x00 @@ -625,8 +623,6 @@ test encoding-17.12 {Utf32ToUtfProc} -body { test encoding-18.1 {TableToUtfProc on invalid input} -body { list [catch {encoding convertto jis0208 \\} res] $res -} -constraints { - encodingProfileTodo } -result {1 {unexpected character at index 0: 'U+00005C'}} test encoding-18.2 {TableToUtfProc on invalid input with -profile strict} -body { list [catch {encoding convertto -profile strict jis0208 \\} res] $res @@ -816,8 +812,6 @@ test encoding-24.18 {Parse valid or invalid utf-8} -constraints testbytestring - } -result "Z\xC3\xA0\xE2\x82\xACxxxxxx" test encoding-24.19 {Parse valid or invalid utf-8} -body { encoding convertto utf-8 "ZX\uD800" -} -constraints { - encodingProfileTodo } -returnCodes 1 -match glob -result "unexpected character at index 2: 'U+00D800'" test encoding-24.20 {Parse with -profile tcl8 but without providing encoding} -body { encoding convertfrom -profile tcl8 "\x20" @@ -875,8 +869,6 @@ test encoding-24.37 {Parse invalid utf-8 with -profile tcl8} -body { } -result \uD800 test encoding-24.38 {Try to generate invalid utf-8} -body { encoding convertto utf-8 \uD800 -} -constraints { - encodingProfileTodo } -returnCodes 1 -result {unexpected character at index 0: 'U+00D800'} test encoding-24.39 {Try to generate invalid utf-8 with -profile strict} -body { encoding convertto -profile strict utf-8 \uD800 @@ -1096,9 +1088,7 @@ test encoding-bug-183a1adcc0-4 {Bug [183a1adcc0] Buffer overflow Tcl_UtfToExtern } -result [list 0 [list nospace {} \x00\x00\xff]] test encoding-bug-183a1adcc0-5 {Bug [183a1adcc0] Buffer overflow Tcl_UtfToExternal} -constraints { - testencoding -} -constraints { - knownBug + testencoding ucs2 knownBug } -body { # The knownBug constraint is because test depends on TCL_UTF_MAX and # also UtfToUtf16 assumes space required in destination buffer is diff --git a/tests/utfext.test b/tests/utfext.test index 4ceb72f..175e3fa 100644 --- a/tests/utfext.test +++ b/tests/utfext.test @@ -85,7 +85,7 @@ foreach {enc utfhex hex} $utfExtMap { # Test for insufficient space test xx-bufferoverflow {buffer overflow Tcl_ExternalToUtf} -body { - testencoding Tcl_UtfToExternal unicode A {start end} {} 1 + testencoding Tcl_UtfToExternal utf-16 A {start end} {} 1 } -result [list nospace {} \xFF] ::tcltest::cleanupTests |