diff options
| author | andreas_kupries <akupries@shaw.ca> | 2008-04-07 19:40:57 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2008-04-07 19:40:57 (GMT) |
| commit | a9077b7650915e4f0dd8c7788a7c455fa644db53 (patch) | |
| tree | 9b47541206ea7e5f195bdaa0192f60e1f5670b19 /tests | |
| parent | b5dca8245923aea2ae9e88e04405563273143163 (diff) | |
| download | tcl-a9077b7650915e4f0dd8c7788a7c455fa644db53.zip tcl-a9077b7650915e4f0dd8c7788a7c455fa644db53.tar.gz tcl-a9077b7650915e4f0dd8c7788a7c455fa644db53.tar.bz2 | |
* generic/tclIO.c (BUSY_STATE, CheckChannelErrors,
TclCopyChannel): New macro, and the places using it. This change
allows for bi-directional fcopy on channels. Thanks to Alexandre
Ferrieux <ferrieux@users.sourceforge.net> for the patch.
* tests/io.test (io-53.9): Made test cleanup robust against the
possibility of slow process shutdown on Windows. Backported from
Kevin Kenny's change to the same test on the 8.5 and head
branches.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/io.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/io.test b/tests/io.test index 24e6580..696366b 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.40.2.14 2008/04/04 20:01:00 andreas_kupries Exp $ +# RCS: @(#) $Id: io.test,v 1.40.2.15 2008/04/07 19:41:00 andreas_kupries Exp $ if {[catch {package require tcltest 2}]} { puts stderr "Skipping tests in [info script]. tcltest 2 required." @@ -7008,6 +7008,7 @@ test io-53.9 {CopyData: -size and event interaction, Bug 780533} -setup { } -cleanup { close $pipe rename ::done {} + after 1000 ;# Give Windows time to kill the process removeFile out removeFile err catch {unset ::forever} |