summaryrefslogtreecommitdiffstats
path: root/tests/io.test
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2003-02-25 22:03:23 (GMT)
committerandreas_kupries <akupries@shaw.ca>2003-02-25 22:03:23 (GMT)
commitd1b091eb4fb7d440ca4281ab468189ce04b508a6 (patch)
tree7bb73af95c128a818a1213d03dbfbe085d5ed151 /tests/io.test
parent96a3b80e0a446cfce5e07783fee3af2965d1dd31 (diff)
downloadtcl-d1b091eb4fb7d440ca4281ab468189ce04b508a6.zip
tcl-d1b091eb4fb7d440ca4281ab468189ce04b508a6.tar.gz
tcl-d1b091eb4fb7d440ca4281ab468189ce04b508a6.tar.bz2
* tests/pid.test: See below [Bug #678412].
* tests/io.test: Made more robust against spaces in paths [Bug #678400].
Diffstat (limited to 'tests/io.test')
-rw-r--r--tests/io.test16
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/io.test b/tests/io.test
index 0130dc0..d74fa9d 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -12,7 +12,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.39 2003/02/09 02:50:25 hobbs Exp $
+# RCS: @(#) $Id: io.test,v 1.40 2003/02/25 22:03:38 andreas_kupries Exp $
if {[catch {package require tcltest 2}]} {
puts stderr "Skipping tests in [info script]. tcltest 2 required."
@@ -53,7 +53,7 @@ close $f
set path(cat) [makeFile {
set f stdin
if {$argv != ""} {
- set f [open $argv]
+ set f [open [lindex $argv 0]]
}
fconfigure $f -encoding binary -translation lf -blocking 0 -eofchar \x1a
fconfigure stdout -encoding binary -translation lf -buffering none
@@ -2628,15 +2628,15 @@ test io-29.32 {Tcl_WriteChars, background flush to slow reader} \
catch {removeFile pipe}
catch {removeFile output}
set f [open $path(pipe) w]
- puts $f [format {set f [open "%s" w]} $path(output)]
+ puts $f [format {set f [open {%s} w]} $path(output)]
puts $f {fconfigure $f -translation lf}
set x [list while {![eof stdin]}]
- set x "$x {"
+ set x "$x \{"
puts $f $x
puts $f { after 20}
puts $f { puts -nonewline $f [read stdin 1024]}
puts $f { flush $f}
- puts $f "}"
+ puts $f "\}"
puts $f {close $f}
close $f
set x 01234567890123456789012345678901
@@ -5748,7 +5748,7 @@ test io-48.3 {testing readability conditions} {stdio unixOnly nonBlockFiles} {
}
close $f
set f [open "|[list [interpreter]]" r+]
- fileevent $f readable [namespace code [list consume $f]]
+ fileevent $f readable [namespace code [list consume $f]]
fconfigure $f -buffering line
fconfigure $f -blocking off
proc consume {f} {
@@ -5765,8 +5765,8 @@ test io-48.3 {testing readability conditions} {stdio unixOnly nonBlockFiles} {
}
set l ""
variable x not_done
- puts $f [format {source %s} $path(my_script)]
- puts $f [format {set f [open %s r]} $path(bar)]
+ puts $f [format {source {%s}} $path(my_script)]
+ puts $f [format {set f [open {%s} r]} $path(bar)]
puts $f {copy_slowly $f}
puts $f {exit}
vwait [namespace which -variable x]