Tcl Source Code

Artifact 90c22e3cb6b7db368b50209e1ab632861e8a5dd8:

Attachment "main.test.diff" to ticket [549614ffff] added by kennykb 2002-04-28 05:34:51.

---

Index: tests/main.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/main.test,v
retrieving revision 1.7
diff -u -r1.7 main.test
--- tests/main.test	16 Apr 2002 00:39:39 -0000	1.7
+++ tests/main.test	27 Apr 2002 22:30:49 -0000
@@ -48,7 +48,7 @@
 	exec
     } -setup {
 	makeFile {puts [list $argv0 $argv $tcl_interactive]} script
-	catch {set f [open "|[interpreter] script" r]}
+	catch {set f [open "|[list [interpreter]] script" r]}
     } -body {
 	read $f
     } -cleanup {
@@ -62,7 +62,7 @@
 	exec
     } -setup {
 	makeFile {puts [list $argv0 $argv $tcl_interactive]} -script
-	catch {set f [open "|[interpreter] -script" w+]}
+	catch {set f [open "|[list [interpreter]] -script" w+]}
     } -body {
 	puts $f {puts [list $argv0 $argv $tcl_interactive]; exit}
 	flush $f
@@ -79,7 +79,7 @@
 	exec
     } -setup {
 	makeFile {puts [list $argv0 $argv $tcl_interactive]} script
-	catch {set f [open "|[interpreter] script \u00c0" r]}
+	catch {set f [open "|[list [interpreter]] script \u00c0" r]}
     } -body {
 	read $f
     } -cleanup {
@@ -95,7 +95,7 @@
 	exec
     } -setup {
 	makeFile {puts [list $argv0 $argv $tcl_interactive]} script
-	catch {set f [open "|[interpreter] script \u20ac" r]}
+	catch {set f [open "|[list [interpreter]] script \u20ac" r]}
     } -body {
 	read $f
     } -cleanup {
@@ -111,7 +111,7 @@
 	exec
     } -setup {
 	makeFile {puts [list $argv0 $argv $tcl_interactive]} \u00c0
-	catch {set f [open "|[interpreter] \u00c0" r]}
+	catch {set f [open "|[list [interpreter]] \u00c0" r]}
     } -body {
 	read $f
     } -cleanup {
@@ -127,7 +127,7 @@
 	exec
     } -setup {
 	makeFile {puts [list $argv0 $argv $tcl_interactive]} \u20ac
-	catch {set f [open "|[interpreter] \u20ac" r]}
+	catch {set f [open "|[list [interpreter]] \u20ac" r]}
     } -body {
 	read $f
     } -cleanup {
@@ -514,7 +514,7 @@
     } -constraints {
 	exec
     } -setup {
-	catch {set f [open "|[interpreter]" w+]}
+	catch {set f [open "|[list [interpreter]]" w+]}
     } -body {
 	type $f {
 	    fconfigure stdin -blocking 0
@@ -530,7 +530,7 @@
     } -constraints {
 	exec
     } -setup {
-	catch {set f [open "|[interpreter]" w+]}
+	catch {set f [open "|[list [interpreter]]" w+]}
 	catch {fconfigure $f -blocking 0}
     } -body {
 	type $f "fconfigure stdin -eofchar \\032
@@ -556,7 +556,7 @@
 	exec
     } -setup {
 	set cmd {makeFile "if 1 \{" script}
-	catch {set f [open "|[interpreter] < [eval $cmd]" r]}
+	catch {set f [open "|[list [interpreter]] < [list [eval $cmd]]" r]}
 	catch {fconfigure $f -blocking 0}
     } -body {
 	variable wait
@@ -674,7 +674,7 @@
     } -constraints {
 	exec Tcltest
     } -setup {
-	catch {set f [open "|[interpreter]" w+]}
+	catch {set f [open "|[list [interpreter]]" w+]}
 	catch {fconfigure $f -blocking 0}
     } -body {
 	type $f "testsetmainloop