summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-01-31 22:19:26 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-01-31 22:19:26 (GMT)
commit8ca7da652a892daee3f4847a3003b6c2abb621d0 (patch)
tree2aaf49526b3c43a5fd1e297d18176bb3749217a0
parent3f2cd8bcfcb1de17d95cf4026499b9d7c42ac4c3 (diff)
downloadtcl-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]
-rw-r--r--ChangeLog3
-rwxr-xr-xtests/tcltest.test8
2 files changed, 8 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index e9ed181..97d93cd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,9 @@
* tests/tcltest.test: Cleaned up management of file/directory
creation/deletion to improve "-debug 1" output. [Bug 675614]
+ The utility [slave] command failed to properly [list]-quote a
+ constructed [open] command, causing failure when the pathname
+ contained whitespace. [Bug 678415]
* tests/main.test: Stopped main.test from deleting existing file.
Test suite should not delete files that already exist. [Bug 675660]
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] \