diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-07-30 14:06:17 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-07-30 14:06:17 (GMT) |
| commit | b06638a31cb3fb6d6671424bb6a96145d3c214bc (patch) | |
| tree | 4f8bc37cfb822c78861919d9fa4611335f91a3b9 /tests | |
| parent | f9cd2ed03e8854ac2ce1e7c4c4af3a113428a7f3 (diff) | |
| download | tcl-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')
| -rw-r--r-- | tests/encoding.test | 7 |
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} { |