diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-02-01 21:01:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-02-01 21:01:51 (GMT) |
| commit | b9c893dbc940d680560b5cc10b414c702d845004 (patch) | |
| tree | 400a9b04ff166079b075c2682de18979ab64c00d | |
| parent | 3eaad4bbc95c9cb3eaaf79872646d4fa7f6d8c6e (diff) | |
| download | tcl-b9c893dbc940d680560b5cc10b414c702d845004.zip tcl-b9c893dbc940d680560b5cc10b414c702d845004.tar.gz tcl-b9c893dbc940d680560b5cc10b414c702d845004.tar.bz2 | |
Renumber testscase, sync with Tcl 9.0
| -rw-r--r-- | tests/encoding.test | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index ae6c78a..05d9918 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -481,8 +481,12 @@ test encoding-16.7 {Utf32ToUtfProc} -body { set val [encoding convertfrom utf-32be \0\0NN] list $val [format %x [scan $val %c]] } -result "乎 4e4e" +test encoding-16.8 {Utf32ToUtfProc} -body { + set val [encoding convertfrom -nocomplain utf-32 \x41\x00\x00\x41] + list $val [format %x [scan $val %c]] +} -result "\uFFFD fffd" -test encoding-16.8 { +test encoding-16.9 { Utf16ToUtfProc, Tcl_UniCharToUtf, surrogate pairs in utf-16 } -body { apply [list {} { @@ -930,7 +934,9 @@ test encoding-27.2 {encoding dirs basic behavior} -returnCodes error -body { test encoding-28.0 {all encodings load} -body { set string hello foreach name [encoding names] { - incr count + if {$name ne "unicode"} { + incr count + } encoding convertto -nocomplain $name $string # discard the cached internal representation of Tcl_Encoding @@ -938,7 +944,7 @@ test encoding-28.0 {all encodings load} -body { llength $name } return $count -} -result [expr {[info exists ::tcl_precision] ? 92 : 91}] +} -result 91 runtests |