summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2003-03-22 23:01:15 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2003-03-22 23:01:15 (GMT)
commit9cb6eb20a290f06006f72f409b1375a6141276ed (patch)
tree3279d435abfeb4e5756796ee9499ed1d92d6b9b2 /tests
parenta0ed5880ee97954af162748411d3a6e692b29d7f (diff)
downloadtcl-9cb6eb20a290f06006f72f409b1375a6141276ed.zip
tcl-9cb6eb20a290f06006f72f409b1375a6141276ed.tar.gz
tcl-9cb6eb20a290f06006f72f409b1375a6141276ed.tar.bz2
* win/tclWinDde.c: Make dde services conform the the documentation
such that giving only a topic name really returns all services with that topic. [Bug 219155] Prevent hangup caused by dde server applications failing to process messages [Bug 707822] * tests/winDde.test: Corrected labels and added a test for search by topic name.
Diffstat (limited to 'tests')
-rw-r--r--tests/winDde.test17
1 files changed, 12 insertions, 5 deletions
diff --git a/tests/winDde.test b/tests/winDde.test
index c573d58..bcf0c9b 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.13 2003/01/16 20:51:57 hobbs Exp $
+# RCS: @(#) $Id: winDde.test,v 1.14 2003/03/22 23:01:22 patthoyts Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -53,6 +53,7 @@ proc createChildProcess { ddeServerName } {
puts $f [list dde servername $ddeServerName]
puts $f {
puts ready
+ flush stdout
vwait done
update
exit
@@ -60,7 +61,8 @@ proc createChildProcess { ddeServerName } {
close $f
set f [open |[list [interpreter] $::scriptName] r]
- gets $f
+ fconfigure $f -buffering line
+ gets $f line
return $f
}
@@ -82,6 +84,11 @@ test winDde-2.3 {Checking for existence, with only the service specified} \
expr [llength [dde services TclEval {}]] >= 1
} 1
+test winDde-2.4 {Checking for existence, with only the topic specified} \
+ {pcOnly} {
+ expr [llength [dde services {} self]] >= 1
+} 1
+
test winDde-3.1 {DDE execute locally} {pcOnly} {
set a ""
dde execute TclEval self {set a "foo"}
@@ -121,7 +128,7 @@ test winDde-4.1 {DDE execute remotely} {stdio pcOnly} {
set a
} ""
-test winDde-4.2 {DDE execute remotely} {stdio pcOnly} {
+test winDde-4.2 {DDE execute async remotely} {stdio pcOnly} {
set a ""
set child [createChildProcess child]
dde execute -async TclEval child {set a "foo"}
@@ -130,7 +137,7 @@ test winDde-4.2 {DDE execute remotely} {stdio pcOnly} {
set a
} ""
-test winDde-4.3 {DDE request locally} {stdio pcOnly} {
+test winDde-4.3 {DDE request remotely} {stdio pcOnly} {
set a ""
set child [createChildProcess child]
dde execute TclEval child {set a "foo"}
@@ -140,7 +147,7 @@ test winDde-4.3 {DDE request locally} {stdio pcOnly} {
set a
} foo
-test winDde-4.4 {DDE eval locally} {stdio pcOnly} {
+test winDde-4.4 {DDE eval remotely} {stdio pcOnly} {
set a ""
set child [createChildProcess child]
set a [dde eval child set a "foo"]