diff options
author | dgp <dgp@noemail.net> | 2002-07-10 11:56:44 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2002-07-10 11:56:44 (GMT) |
commit | 0b8dbc6c276254e46b44b83af4045917d6ed6428 (patch) | |
tree | 1a37add20fefab1047a8268adf31e600b827891e /tests/winDde.test | |
parent | f4be1b6d436902021d441bfa1fe6f53eaa5305fb (diff) | |
download | tcl-0b8dbc6c276254e46b44b83af4045917d6ed6428.zip tcl-0b8dbc6c276254e46b44b83af4045917d6ed6428.tar.gz tcl-0b8dbc6c276254e46b44b83af4045917d6ed6428.tar.bz2 |
* Cleaned up, constrained, and reduced the amount of [exec] usage
in the test suite.
FossilOrigin-Name: b0f3dfed629f8e4c506365bc62ba4dd7900a03c6
Diffstat (limited to 'tests/winDde.test')
-rw-r--r-- | tests/winDde.test | 12 |
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"] |