summaryrefslogtreecommitdiffstats
path: root/tests/encoding.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-07-30 14:06:17 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-07-30 14:06:17 (GMT)
commitb06638a31cb3fb6d6671424bb6a96145d3c214bc (patch)
tree4f8bc37cfb822c78861919d9fa4611335f91a3b9 /tests/encoding.test
parentf9cd2ed03e8854ac2ce1e7c4c4af3a113428a7f3 (diff)
downloadtcl-b06638a31cb3fb6d6671424bb6a96145d3c214bc.zip
tcl-b06638a31cb3fb6d6671424bb6a96145d3c214bc.tar.gz
tcl-b06638a31cb3fb6d6671424bb6a96145d3c214bc.tar.bz2
eliminate the "testfinexit" command. We have the TCL_FINALIZE_ON_EXIT environment variable now, which makes "exit" do the same thing.
Diffstat (limited to 'tests/encoding.test')
-rw-r--r--tests/encoding.test7
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/encoding.test b/tests/encoding.test
index 30aada0..306dd6d 100644
--- a/tests/encoding.test
+++ b/tests/encoding.test
@@ -37,7 +37,6 @@ proc runtests {} {
testConstraint testencoding [llength [info commands testencoding]]
testConstraint exec [llength [info commands exec]]
testConstraint testgetdefenc [llength [info commands testgetdefenc]]
-testConstraint testfinexit [llength [info commands testfinexit]]
# TclInitEncodingSubsystem is tested by the rest of this file
# TclFinalizeEncodingSubsystem is not currently tested
@@ -409,7 +408,6 @@ cd [workingDirectory]
# Code to make the next few tests more intelligible; the code being tested
# should be in the body of the test!
proc runInSubprocess {contents {filename iso2022.tcl}} {
- set contents "load $::tcltestlib Tcltest\n$contents"
set theFile [makeFile $contents $filename]
try {
exec [interpreter] $theFile
@@ -425,13 +423,14 @@ test encoding-24.1 {EscapeFreeProc on open channels} exec {
gets $f
}
} {}
-test encoding-24.2 {EscapeFreeProc on open channels} {exec testfinexit} {
+test encoding-24.2 {EscapeFreeProc on open channels} {exec} {
# Bug #524674 output
viewable [runInSubprocess {
encoding system cp1252; # Bug #2891556 crash revelator
fconfigure stdout -encoding iso2022-jp
puts ab\u4e4e\u68d9g
- testfinexit
+ set env(TCL_FINALIZE_ON_EXIT) 1
+ exit
}]
} "ab\x1b\$B8C\x1b\$(DD%\x1b(Bg (ab\\u001b\$B8C\\u001b\$(DD%\\u001b(Bg)"
test encoding-24.3 {EscapeFreeProc on open channels} {stdio} {