summaryrefslogtreecommitdiffstats
path: root/tests/encoding.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/encoding.test')
-rw-r--r--tests/encoding.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/encoding.test b/tests/encoding.test
index 836f277..1738413 100644
--- a/tests/encoding.test
+++ b/tests/encoding.test
@@ -67,7 +67,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
+ llength shiftjis ;# Shimmer away any cache of Tcl_Encoding
lappend x [catch {encoding convertto shiftjis \u4e4e} msg] $msg
encoding system identity
encoding dirs $path
@@ -221,7 +221,7 @@ test encoding-11.1 {LoadEncodingFile: unknown encoding} {testencoding} {
set path [encoding dirs]
encoding system iso8859-1
encoding dirs {}
- llength jis0208
+ 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
@@ -415,7 +415,7 @@ test encoding-24.2 {EscapeFreeProc on open channels} -constraints {
encoding system cp1252; # Bug #2891556 crash revelator
fconfigure stdout -encoding iso2022-jp
puts ab\u4e4e\u68d9g
- exit
+ testfinexit
} iso2022.tcl]
} -body {
viewable [exec [interpreter] $file]