diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-22 16:00:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-22 16:00:36 (GMT) |
| commit | 04bb9b292c26675655414e30f8257deca1bbe097 (patch) | |
| tree | bdf676301f26cd0c26f6824b7fae5189505570fb /tests/io.test | |
| parent | 070fa22acbfab9614a41de82797ab8709a43ae36 (diff) | |
| download | tcl-04bb9b292c26675655414e30f8257deca1bbe097.zip tcl-04bb9b292c26675655414e30f8257deca1bbe097.tar.gz tcl-04bb9b292c26675655414e30f8257deca1bbe097.tar.bz2 | |
Attempt to fix [1004065] for TCL_UTF_MAX=4. Disallow building Tcl with TCL_UTF_MAX>4
Diffstat (limited to 'tests/io.test')
| -rw-r--r-- | tests/io.test | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/tests/io.test b/tests/io.test index 06be982..04fa1d2 100644 --- a/tests/io.test +++ b/tests/io.test @@ -29,8 +29,6 @@ namespace eval ::tcl::test::io { variable msg variable expected -testConstraint ucs2 [expr {[format %c 0x010000] eq "\uFFFD"}] - testConstraint testchannel [llength [info commands testchannel]] testConstraint exec [llength [info commands exec]] testConstraint openpipe 1 @@ -912,7 +910,7 @@ test io-6.44 {Tcl_GetsObj: input saw cr, not followed by cr} {stdio testchannel close $f set x } [list "bbbbbbbbbbbbbbb" 15 "123456789abcdef" 1 4 "abcd" 0 3 "efg"] -test io-6.45 {Tcl_GetsObj: input saw cr, skip right number of bytes} {stdio testchannel openpipe fileevent ucs2} { +test io-6.45 {Tcl_GetsObj: input saw cr, skip right number of bytes} {stdio testchannel openpipe fileevent} { # Tcl_ExternalToUtf() set f [open "|[list [interpreter] $path(cat)]" w+] |