diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-14 10:30:59 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-14 10:30:59 (GMT) |
commit | b05b4cf94847c0a1efaf867e3048437e2261e030 (patch) | |
tree | e34532e0d69204a14df75acc09ff7ca9f1ecc38d /tests | |
parent | 953a44bc6e6686057459b4449087caf571070013 (diff) | |
parent | 18a99f2522b77516b62a0d44dca1c90b3479bda1 (diff) | |
download | tcl-b05b4cf94847c0a1efaf867e3048437e2261e030.zip tcl-b05b4cf94847c0a1efaf867e3048437e2261e030.tar.gz tcl-b05b4cf94847c0a1efaf867e3048437e2261e030.tar.bz2 |
Since "unicode" is deprecated, use "utf-16" in testcases. Otherwise -DTCL_NO_DEPRECATED build fails.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/encoding.test | 10 | ||||
-rw-r--r-- | tests/ioTrans.test | 2 |
2 files changed, 6 insertions, 6 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index efe5a91..d9ec3ab 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -1054,28 +1054,28 @@ test encoding-bug-183a1adcc0-1 {Bug [183a1adcc0] Buffer overflow Tcl_UtfToExtern testencoding } -body { # Note - buffers are initialized to \xff - list [catch {testencoding Tcl_UtfToExternal unicode A {start end} {} 1} result] $result + list [catch {testencoding Tcl_UtfToExternal utf-16 A {start end} {} 1} result] $result } -result [list 0 [list nospace {} \xff]] test encoding-bug-183a1adcc0-2 {Bug [183a1adcc0] Buffer overflow Tcl_UtfToExternal} -constraints { testencoding } -body { # Note - buffers are initialized to \xff - list [catch {testencoding Tcl_UtfToExternal unicode A {start end} {} 0} result] $result + list [catch {testencoding Tcl_UtfToExternal utf-16 A {start end} {} 0} result] $result } -result [list 0 [list nospace {} {}]] test encoding-bug-183a1adcc0-3 {Bug [183a1adcc0] Buffer overflow Tcl_UtfToExternal} -constraints { testencoding } -body { # Note - buffers are initialized to \xff - list [catch {testencoding Tcl_UtfToExternal unicode A {start end} {} 2} result] $result + list [catch {testencoding Tcl_UtfToExternal utf-16 A {start end} {} 2} result] $result } -result [list 0 [list nospace {} \x00\x00]] test encoding-bug-183a1adcc0-4 {Bug [183a1adcc0] Buffer overflow Tcl_UtfToExternal} -constraints { testencoding } -body { # Note - buffers are initialized to \xff - list [catch {testencoding Tcl_UtfToExternal unicode A {start end} {} 3} result] $result + list [catch {testencoding Tcl_UtfToExternal utf-16 A {start end} {} 3} result] $result } -result [list 0 [list nospace {} \x00\x00\xff]] test encoding-bug-183a1adcc0-5 {Bug [183a1adcc0] Buffer overflow Tcl_UtfToExternal} -constraints { @@ -1087,7 +1087,7 @@ test encoding-bug-183a1adcc0-5 {Bug [183a1adcc0] Buffer overflow Tcl_UtfToExtern # also UtfToUtf16 assumes space required in destination buffer is # sizeof(Tcl_UniChar) which is incorrect when TCL_UTF_MAX==4 # Note - buffers are initialized to \xff - list [catch {testencoding Tcl_UtfToExternal unicode A {start end} {} 4} result] $result + list [catch {testencoding Tcl_UtfToExternal utf-16 A {start end} {} 4} result] $result } -result [list 0 [list ok {} [expr {$::tcl_platform(byteOrder) eq "littleEndian" ? "\x41\x00" : "\x00\x41"}]\x00\x00]] } diff --git a/tests/ioTrans.test b/tests/ioTrans.test index f481a17..9639576 100644 --- a/tests/ioTrans.test +++ b/tests/ioTrans.test @@ -671,7 +671,7 @@ namespace eval inputfilter { proc initialize {chan mode} { return {initialize finalize read} } - + proc read {chan buffer} { return $buffer } |