diff options
| author | das <das> | 2008-03-11 22:28:32 (GMT) |
|---|---|---|
| committer | das <das> | 2008-03-11 22:28:32 (GMT) |
| commit | 60e6cc626ebe85024897749ddc67364aa813fe9a (patch) | |
| tree | f4895e075ce09959507acb217a059f3110c87de1 /tests/ioCmd.test | |
| parent | c3cb8a61ef9f7d4705827c9db2f781a2df0e3bb8 (diff) | |
| download | tcl-60e6cc626ebe85024897749ddc67364aa813fe9a.zip tcl-60e6cc626ebe85024897749ddc67364aa813fe9a.tar.gz tcl-60e6cc626ebe85024897749ddc67364aa813fe9a.tar.bz2 | |
* macosx/GNUmakefile: fix quoting to allow paths to
* macosx/Tcl-Common.xcconfig: ${builddir} and ${INSTALL_ROOT}
* unix/Makefile.in: to contain spaces.
* unix/configure.in:
* unix/install-sh:
* unix/tcl.m4:
* tests/ioCmd.test:
* unix/Makefile.in (install-strip): strip non-global symbols from
dynamic library.
Diffstat (limited to 'tests/ioCmd.test')
| -rw-r--r-- | tests/ioCmd.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/ioCmd.test b/tests/ioCmd.test index 088d637..2b4877f 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.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: ioCmd.test,v 1.35 2007/12/13 15:26:06 dgp Exp $ +# RCS: @(#) $Id: ioCmd.test,v 1.36 2008/03/11 22:28:34 das Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -372,13 +372,13 @@ file delete $path(test5) test iocmd-11.1 {I/O to command pipelines} {unixOrPc unixExecs} { set f [open $path(test4) w] close $f - list [catch {open "| cat < $path(test4) > $path(test5)" w} msg] $msg $::errorCode + list [catch {open "| cat < \"$path(test4)\" > \"$path(test5)\"" w} msg] $msg $::errorCode } {1 {can't write input to command: standard input was redirected} NONE} test iocmd-11.2 {I/O to command pipelines} {unixOrPc unixExecs} { - list [catch {open "| echo > $path(test5)" r} msg] $msg $::errorCode + list [catch {open "| echo > \"$path(test5)\"" r} msg] $msg $::errorCode } {1 {can't read output from command: standard output was redirected} NONE} test iocmd-11.3 {I/O to command pipelines} {unixOrPc unixExecs} { - list [catch {open "| echo > $path(test5)" r+} msg] $msg $::errorCode + list [catch {open "| echo > \"$path(test5)\"" r+} msg] $msg $::errorCode } {1 {can't read output from command: standard output was redirected} NONE} test iocmd-12.1 {POSIX open access modes: RDONLY} { |