diff options
| author | dgp <dgp@users.sourceforge.net> | 2008-06-20 16:18:07 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2008-06-20 16:18:07 (GMT) |
| commit | 64ade57c455847b103bb0bfb4545beede557043f (patch) | |
| tree | 4aed7fca329eb7faa7f4987f9ba8d62194d5d252 /tests/encoding.test | |
| parent | b2feda81522b5e104e93fa64c501aa99ef6a2c4e (diff) | |
| download | tcl-64ade57c455847b103bb0bfb4545beede557043f.zip tcl-64ade57c455847b103bb0bfb4545beede557043f.tar.gz tcl-64ade57c455847b103bb0bfb4545beede557043f.tar.bz2 | |
* tests/encoding.test: Make failing tests pass again.
Diffstat (limited to 'tests/encoding.test')
| -rw-r--r-- | tests/encoding.test | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index a11f5cd..0aa49d3 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.27 2007/05/04 14:59:06 kennykb Exp $ +# RCS: @(#) $Id: encoding.test,v 1.28 2008/06/20 16:18:13 dgp Exp $ package require tcltest 2 @@ -69,6 +69,7 @@ test encoding-2.2 {Tcl_FreeEncoding: refcount != 0} {testencoding} { encoding dirs [list [pwd]] set x [encoding convertto shiftjis \u4e4e] ;# old one found encoding system identity + llength shiftjis ;# Shimmer away any cache of Tcl_Encoding lappend x [catch {encoding convertto shiftjis \u4e4e} msg] $msg encoding system identity encoding dirs $path @@ -222,6 +223,7 @@ test encoding-11.1 {LoadEncodingFile: unknown encoding} {testencoding} { set path [encoding dirs] encoding system iso8859-1 encoding dirs {} + llength jis0208 ;# Shimmer any cached Tcl_Encoding in shared literal set x [list [catch {encoding convertto jis0208 \u4e4e} msg] $msg] encoding dirs $path encoding system $system |