From 8ca7da652a892daee3f4847a3003b6c2abb621d0 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 31 Jan 2003 22:19:26 +0000
Subject:         The utility [slave] command failed to properly [list]-quote a
         constructed [open] command, causing failure when the pathname        
 contained whitespace.  [Bug 678415]

---
 ChangeLog          | 3 +++
 tests/tcltest.test | 8 +++++---
 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] \
-- 
cgit v0.12