diff options
| author | dgp <dgp@users.sourceforge.net> | 2003-01-31 22:19:26 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2003-01-31 22:19:26 (GMT) |
| commit | 8ca7da652a892daee3f4847a3003b6c2abb621d0 (patch) | |
| tree | 2aaf49526b3c43a5fd1e297d18176bb3749217a0 /tests | |
| parent | 3f2cd8bcfcb1de17d95cf4026499b9d7c42ac4c3 (diff) | |
| download | tcl-8ca7da652a892daee3f4847a3003b6c2abb621d0.zip tcl-8ca7da652a892daee3f4847a3003b6c2abb621d0.tar.gz tcl-8ca7da652a892daee3f4847a3003b6c2abb621d0.tar.bz2 | |
The utility [slave] command failed to properly [list]-quote a
constructed [open] command, causing failure when the pathname
contained whitespace. [Bug 678415]
Diffstat (limited to 'tests')
| -rwxr-xr-x | tests/tcltest.test | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test index 7992985..09f713d 100755 --- a/tests/tcltest.test +++ b/tests/tcltest.test @@ -6,7 +6,7 @@ # Copyright (c) 2000 by Ajuba Solutions # All rights reserved. # -# RCS: @(#) $Id: tcltest.test,v 1.36 2003/01/31 22:10:24 dgp Exp $ +# RCS: @(#) $Id: tcltest.test,v 1.37 2003/01/31 22:19:30 dgp Exp $ # Note that there are several places where the value of # tcltest::currentFailure is stored/reset in the -setup/-cleanup @@ -70,8 +70,10 @@ proc slave {msgVar args} { interp create [namespace current]::i # Fake the slave interp into dumping output to a file i eval {namespace eval ::tcltest {}} - i eval "set tcltest::outputChannel \[open [set of [makeFile {} output]] w]" - i eval "set tcltest::errorChannel \[open [set ef [makeFile {} error]] w]" + i eval "set tcltest::outputChannel\ + \[[list open [set of [makeFile {} output]] w]]" + i eval "set tcltest::errorChannel\ + \[[list open [set ef [makeFile {} error]] w]]" i eval [list set argv0 [lindex $args 0]] i eval [list set argv [lrange $args 1 end]] i eval [list package ifneeded tcltest [package provide tcltest] \ |