diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-03-14 15:34:42 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-03-14 15:34:42 (GMT) |
| commit | 87b3bcc550bf664f70450f509faabb9584062890 (patch) | |
| tree | c4dc5f438f9d9b2323e061ac33c9ec25d10862d2 /tests/utfext.test | |
| parent | 95158a2d57b3724c868c22025657b56c2812f4d5 (diff) | |
| parent | b05b4cf94847c0a1efaf867e3048437e2261e030 (diff) | |
| download | tcl-87b3bcc550bf664f70450f509faabb9584062890.zip tcl-87b3bcc550bf664f70450f509faabb9584062890.tar.gz tcl-87b3bcc550bf664f70450f509faabb9584062890.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/utfext.test')
| -rw-r--r-- | tests/utfext.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/utfext.test b/tests/utfext.test index 6cf3dd7..bc996c9 100644 --- a/tests/utfext.test +++ b/tests/utfext.test @@ -85,8 +85,8 @@ 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 -} -result {nospace {} {}} + testencoding Tcl_UtfToExternal ucs-2 A {start end} {} 1 +} -result [list nospace {} \xFF] # Another bug - char limit not obeyed # % set cv 2 |