diff options
Diffstat (limited to 'tests/encoding.test')
| -rw-r--r-- | tests/encoding.test | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index 6753833..ef9214e 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.10 2002/03/04 22:00:40 hobbs Exp $ +# RCS: @(#) $Id: encoding.test,v 1.11 2002/04/08 09:02:19 das Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -28,6 +28,8 @@ proc fromutf {args} { set ::tcltest::testConstraints(testencoding) \ [expr {[info commands testencoding] != {}}] +set ::tcltest::testConstraints(exec) \ + [llength [info commands exec]] # TclInitEncodingSubsystem is tested by the rest of this file @@ -361,7 +363,7 @@ test encoding-23.3 {iso2022-jp escape encoding test} { set data } [string range $::iso2022uniData 0 49] ; # 0 .. 49 inclusive == 50 -test encoding-24.1 {EscapeFreeProc on open channels} { +test encoding-24.1 {EscapeFreeProc on open channels} {exec} { # Bug #524674 input set f [open iso2022.tcl w] puts $f { @@ -373,7 +375,7 @@ test encoding-24.1 {EscapeFreeProc on open channels} { exec [list $::tcltest::tcltest] iso2022.tcl } {} -test encoding-24.2 {EscapeFreeProc on open channels} { +test encoding-24.2 {EscapeFreeProc on open channels} {exec} { # Bug #524674 output set f [open iso2022.tcl w] puts $f { @@ -385,7 +387,7 @@ test encoding-24.2 {EscapeFreeProc on open channels} { viewable [exec [list $::tcltest::tcltest] iso2022.tcl] } "ab\x1b\$B8C\x1b\$(DD%\x1b(Bg (ab\\u001b\$B8C\\u001b\$(DD%\\u001b(Bg)" -test encoding-24.3 {EscapeFreeProc on open channels} { +test encoding-24.3 {EscapeFreeProc on open channels} {exec} { # Bug #219314 - if we don't free escape encodings correctly on # channel closure, we go boom set f [open iso2022.tcl w] |