diff options
| author | hobbs <hobbs> | 2006-10-05 21:24:39 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2006-10-05 21:24:39 (GMT) |
| commit | d78a8ea8c98971dec54e3bf5c738432029bb7e61 (patch) | |
| tree | 82fd1cd2dec7ddd5c18e1f14ddf44d3e52aa27c6 /tests/encoding.test | |
| parent | 46aff41e83607a2efd59982d1393cff759ba692e (diff) | |
| download | tcl-d78a8ea8c98971dec54e3bf5c738432029bb7e61.zip tcl-d78a8ea8c98971dec54e3bf5c738432029bb7e61.tar.gz tcl-d78a8ea8c98971dec54e3bf5c738432029bb7e61.tar.bz2 | |
* generic/tcl.h: note limitation on changing Tcl_UniChar size
* generic/tclEncoding.c (UtfToUnicodeProc, UnicodeToUtfProc):
* tests/encoding.test (encoding-16.1): fix alignment issues in
unicode <> utf conversion procs. [Bug 1122671]
Diffstat (limited to 'tests/encoding.test')
| -rw-r--r-- | tests/encoding.test | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index 1de8880..8b7f60e 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: encoding.test,v 1.24 2006/02/08 21:41:28 dgp Exp $ +# RCS: @(#) $Id: encoding.test,v 1.25 2006/10/05 21:24:40 hobbs Exp $ package require tcltest 2 namespace import -force ::tcltest::* @@ -307,8 +307,9 @@ test encoding-15.3 {UtfToUtfProc null character input} { } {1 2 c080} test encoding-16.1 {UnicodeToUtfProc} { - encoding convertfrom unicode NN -} "\u4e4e" + set val [encoding convertfrom unicode NN] + list $val [format %x [scan $val %c]] +} "\u4e4e 4e4e" test encoding-17.1 {UtfToUnicodeProc} { } {} |