summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-08-07 14:58:34 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-08-07 14:58:34 (GMT)
commit04049103c8d246d5dbc6c6d62e12b2f462208abb (patch)
treea7b9203360fb140f7f68ed0ceaa52cf97e7b4366 /tests
parentde3dd1a56602c61a4d1d2f8583ebaddd68207f43 (diff)
downloadtcl-04049103c8d246d5dbc6c6d62e12b2f462208abb.zip
tcl-04049103c8d246d5dbc6c6d62e12b2f462208abb.tar.gz
tcl-04049103c8d246d5dbc6c6d62e12b2f462208abb.tar.bz2
add 3 testcases for "dde poke", only active with --enable-symbols
(we need a "dde poke" server for that, which is now built into tcldde14g.dll, but not in tcldde14.dll)
Diffstat (limited to 'tests')
-rw-r--r--tests/winDde.test21
1 files changed, 21 insertions, 0 deletions
diff --git a/tests/winDde.test b/tests/winDde.test
index 8befa3c..8d9bd12 100644
--- a/tests/winDde.test
+++ b/tests/winDde.test
@@ -15,6 +15,7 @@ if {"::tcltest" ni [namespace children]} {
namespace import -force ::tcltest::*
}
+testConstraint debug [::tcl::pkgconfig get debug]
testConstraint dde 0
if {[testConstraint win]} {
if {![catch {
@@ -166,6 +167,16 @@ test winDde-3.7 {DDE request binary} -constraints dde -body {
dde execute -binary TclEval self [list set \xc3\xa1 \xc3\x84\x00]
scan [set \xe1] %c
} -result 196
+test winDde-3.8 {DDE poke locally} -constraints {dde debug} -body {
+ set \xe1 ""
+ dde poke TclEval self \xe1 \xc4
+ dde request TclEval self \xe1
+} -result \xc4
+test winDde-3.9 {DDE poke -binary locally} -constraints {dde debug} -body {
+ set \xe1 ""
+ dde poke -binary TclEval self \xe1 \xc3\x84\x00
+ dde request TclEval self \xe1
+} -result \xc4
# -------------------------------------------------------------------------
@@ -207,6 +218,16 @@ test winDde-4.4 {DDE eval remotely} -constraints {dde stdio} -body {
update
set \xe1
} -result foo
+test winDde-4.5 {DDE poke remotely} -constraints {dde debug stdio} -body {
+ set \xe1 ""
+ set name ch\xEDld-4.5
+ set child [createChildProcess $name]
+ dde poke TclEval $name \xe1 foo
+ set \xe1 [dde request TclEval $name \xe1]
+ dde execute TclEval $name {set done 1}
+ update
+ set \xe1
+} -result foo
# -------------------------------------------------------------------------