diff options
| author | hobbs <hobbs> | 2006-10-05 21:24:55 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2006-10-05 21:24:55 (GMT) |
| commit | 09a4df69886849c229acc747bd459109a2c7aa4a (patch) | |
| tree | d6077e824e5917a9231a5f2fd44cbce8d165d195 /tests | |
| parent | b8250fee59da71021aa11343910dd4eb0594f003 (diff) | |
| download | tcl-09a4df69886849c229acc747bd459109a2c7aa4a.zip tcl-09a4df69886849c229acc747bd459109a2c7aa4a.tar.gz tcl-09a4df69886849c229acc747bd459109a2c7aa4a.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')
| -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 83f5f69..4e5a7fa 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.16.2.2 2004/05/27 14:33:20 rmax Exp $ +# RCS: @(#) $Id: encoding.test,v 1.16.2.3 2006/10/05 21:24:56 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} { } {} |