diff options
author | das <das@noemail.net> | 2008-03-11 22:28:31 (GMT) |
---|---|---|
committer | das <das@noemail.net> | 2008-03-11 22:28:31 (GMT) |
commit | 6e1cc6984814a00b90b2525fe658eab7e1067be6 (patch) | |
tree | f4895e075ce09959507acb217a059f3110c87de1 /tests | |
parent | 7404f2af70da36909eb875c3458a852ce415aa64 (diff) | |
download | tcl-6e1cc6984814a00b90b2525fe658eab7e1067be6.zip tcl-6e1cc6984814a00b90b2525fe658eab7e1067be6.tar.gz tcl-6e1cc6984814a00b90b2525fe658eab7e1067be6.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.
FossilOrigin-Name: 82d286110d8aba7cc7ffb0cfd1ce0d2315a733c3
Diffstat (limited to 'tests')
-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} { |