diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-17 13:34:35 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-17 13:34:35 (GMT) |
commit | 63f259a68dd64cede8fbc99109ada7dbb92c1d8f (patch) | |
tree | 478a868fd8b5ce782b3a974e8887da2cbf8817c5 /tests/encoding.test | |
parent | 2370ce47bb48024aeafb79786406fa393635414b (diff) | |
parent | 7056164cd356e6aed9a9290471a7029c35a606f5 (diff) | |
download | tcl-63f259a68dd64cede8fbc99109ada7dbb92c1d8f.zip tcl-63f259a68dd64cede8fbc99109ada7dbb92c1d8f.tar.gz tcl-63f259a68dd64cede8fbc99109ada7dbb92c1d8f.tar.bz2 |
Merge 9.0
Diffstat (limited to 'tests/encoding.test')
-rw-r--r-- | tests/encoding.test | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index f4343c4..061bc11 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -22,8 +22,6 @@ catch { package require -exact tcl::test [info patchlevel] } -testConstraint deprecated [expr {![info exists tcl_precision]}] - proc toutf {args} { variable x lappend x "toutf $args" @@ -637,28 +635,28 @@ test encoding-24.10 {Parse valid or invalid utf-8} { test encoding-24.11 {Parse valid or invalid utf-8} { string length [encoding convertfrom -nocomplain utf-8 "\xEF\xBF\xBF"] } 1 -test encoding-24.12 {Parse valid or invalid utf-8} -constraints deprecated -body { +test encoding-24.12 {Parse valid or invalid utf-8} -body { encoding convertfrom utf-8 "\xC0\x81" } -returnCodes 1 -result {unexpected byte sequence starting at index 0: '\xC0'} -test encoding-24.13 {Parse valid or invalid utf-8} -constraints deprecated -body { +test encoding-24.13 {Parse valid or invalid utf-8} -body { encoding convertfrom utf-8 "\xC1\xBF" } -returnCodes 1 -result {unexpected byte sequence starting at index 0: '\xC1'} test encoding-24.14 {Parse valid or invalid utf-8} { string length [encoding convertfrom utf-8 "\xC2\x80"] } 1 -test encoding-24.15 {Parse valid or invalid utf-8} -constraints deprecated -body { +test encoding-24.15 {Parse valid or invalid utf-8} -body { encoding convertfrom utf-8 "Z\xE0\x80" } -returnCodes 1 -result {unexpected byte sequence starting at index 1: '\xE0'} -test encoding-24.16 {Parse valid or invalid utf-8} -constraints {testbytestring deprecated} -body { +test encoding-24.16 {Parse valid or invalid utf-8} -constraints testbytestring -body { encoding convertto utf-8 [testbytestring "Z\u4343\x80"] } -returnCodes 1 -result {expected byte sequence but character 1 was '䍃' (U+004343)} -test encoding-24.17 {Parse valid or invalid utf-8} -constraints {testbytestring deprecated} -body { +test encoding-24.17 {Parse valid or invalid utf-8} -constraints testbytestring -body { encoding convertto utf-8 [testbytestring "Z\xE0\x80"] } -result "Z\xC3\xA0\xE2\x82\xAC" -test encoding-24.18 {Parse valid or invalid utf-8} -constraints {testbytestring deprecated} -body { +test encoding-24.18 {Parse valid or invalid utf-8} -constraints testbytestring -body { encoding convertto utf-8 [testbytestring "Z\xE0\x80xxxxxx"] } -result "Z\xC3\xA0\xE2\x82\xACxxxxxx" -test encoding-24.19 {Parse valid or invalid utf-8} -constraints deprecated -body { +test encoding-24.19 {Parse valid or invalid utf-8} -body { encoding convertto utf-8 "ZX\uD800" } -returnCodes 1 -match glob -result "unexpected character at index 2: 'U+00D800'" test encoding-24.20 {Parse with -nocomplain but without providing encoding} { |