summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-06-20 16:18:07 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-06-20 16:18:07 (GMT)
commit64ade57c455847b103bb0bfb4545beede557043f (patch)
tree4aed7fca329eb7faa7f4987f9ba8d62194d5d252
parentb2feda81522b5e104e93fa64c501aa99ef6a2c4e (diff)
downloadtcl-64ade57c455847b103bb0bfb4545beede557043f.zip
tcl-64ade57c455847b103bb0bfb4545beede557043f.tar.gz
tcl-64ade57c455847b103bb0bfb4545beede557043f.tar.bz2
* tests/encoding.test: Make failing tests pass again.
-rw-r--r--ChangeLog4
-rw-r--r--tests/encoding.test4
2 files changed, 7 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 1f23d2c..718adad 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2008-06-20 Don Porter <dgp@users.sourceforge.net>
+
+ * tests/encoding.test: Make failing tests pass again.
+
2008-06-19 Donal K. Fellows <dkf@users.sf.net>
* generic/tclOO.c (Tcl_ObjectContextInvokeNext): Corrected 'next' (at
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