summaryrefslogtreecommitdiffstats
path: root/tests/winDde.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/winDde.test')
-rw-r--r--tests/winDde.test12
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/winDde.test b/tests/winDde.test
index 5afae757..37d91ee 100644
--- a/tests/winDde.test
+++ b/tests/winDde.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: winDde.test,v 1.11 2001/08/22 23:56:14 hobbs Exp $
+# RCS: @(#) $Id: winDde.test,v 1.12 2002/07/10 11:56:45 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -59,7 +59,7 @@ proc createChildProcess { ddeServerName } {
}
close $f
- set f [open |[list $tcltest::tcltest $::scriptName] r]
+ set f [open |[list [interpreter] $::scriptName] r]
gets $f
return $f
}
@@ -112,7 +112,7 @@ test winDde-3.5 {DDE request locally} {pcOnly} {
dde request -binary TclEval self a
} "foo\x00"
-test winDde-4.1 {DDE execute remotely} {pcOnly} {
+test winDde-4.1 {DDE execute remotely} {stdio pcOnly} {
set a ""
set child [createChildProcess child]
dde execute TclEval child {set a "foo"}
@@ -121,7 +121,7 @@ test winDde-4.1 {DDE execute remotely} {pcOnly} {
set a
} ""
-test winDde-4.2 {DDE execute remotely} {pcOnly} {
+test winDde-4.2 {DDE execute remotely} {stdio pcOnly} {
set a ""
set child [createChildProcess child]
dde execute -async TclEval child {set a "foo"}
@@ -130,7 +130,7 @@ test winDde-4.2 {DDE execute remotely} {pcOnly} {
set a
} ""
-test winDde-4.3 {DDE request locally} {pcOnly} {
+test winDde-4.3 {DDE request locally} {stdio pcOnly} {
set a ""
set child [createChildProcess child]
dde execute TclEval child {set a "foo"}
@@ -140,7 +140,7 @@ test winDde-4.3 {DDE request locally} {pcOnly} {
set a
} foo
-test winDde-4.4 {DDE eval locally} {pcOnly} {
+test winDde-4.4 {DDE eval locally} {stdio pcOnly} {
set a ""
set child [createChildProcess child]
set a [dde eval child set a "foo"]