diff options
| author | dgp <dgp@users.sourceforge.net> | 2009-11-20 00:19:46 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2009-11-20 00:19:46 (GMT) |
| commit | 574b585c5101310f119cd540bdcae05636888bca (patch) | |
| tree | ce8fd87b7b6f1906563b8a0990fa66781f39f28a /tests/io.test | |
| parent | cf20f0bed2369b03a48196a130f6ccab9912ad61 (diff) | |
| download | tcl-574b585c5101310f119cd540bdcae05636888bca.zip tcl-574b585c5101310f119cd540bdcae05636888bca.tar.gz tcl-574b585c5101310f119cd540bdcae05636888bca.tar.bz2 | |
a bit of cleanup
Diffstat (limited to 'tests/io.test')
| -rw-r--r-- | tests/io.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/io.test b/tests/io.test index 1ad9f6e..2b08454 100644 --- a/tests/io.test +++ b/tests/io.test @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: io.test,v 1.94 2009/11/12 17:25:18 andreas_kupries Exp $ +# RCS: @(#) $Id: io.test,v 1.95 2009/11/20 00:19:46 dgp Exp $ if {[catch {package require tcltest 2}]} { puts stderr "Skipping tests in [info script]. tcltest 2 required." @@ -1670,8 +1670,8 @@ test io-14.3 {Tcl_SetStdChannel & Tcl_GetStdChannel} {exec openpipe} { out } {err }} -# This test relies on the fact that the smallest available fd is used first. -test io-14.4 {Tcl_SetStdChannel & Tcl_GetStdChannel} {exec unix} { +# This test relies on the fact that stdout is used before stderr +test io-14.4 {Tcl_SetStdChannel & Tcl_GetStdChannel} {exec} { set f [open $path(test1) w] puts -nonewline $f { close stdin close stdout @@ -1696,8 +1696,8 @@ test io-14.4 {Tcl_SetStdChannel & Tcl_GetStdChannel} {exec unix} { close $f2 set result } {{ close stdin -file1 -} {file2 +stdout +} {stderr }} catch {interp delete z} test io-14.5 {Tcl_GetChannel: stdio name translation} { |