summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/winDde.test8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/winDde.test b/tests/winDde.test
index 01fb54c..8befa3c 100644
--- a/tests/winDde.test
+++ b/tests/winDde.test
@@ -162,9 +162,9 @@ test winDde-3.6 {DDE request utf8} -constraints dde -body {
# Set variable a to A with diaeresis (unicode C4) using binary execute
# and compose utf-8 (e.g. "c3 84" ) manualy
test winDde-3.7 {DDE request binary} -constraints dde -body {
- set a "not set"
- dde execute -binary TclEval self [list set a \xc3\x84\x00]
- scan $a %c
+ set \xe1 "not set"
+ dde execute -binary TclEval self [list set \xc3\xa1 \xc3\x84\x00]
+ scan [set \xe1] %c
} -result 196
# -------------------------------------------------------------------------
@@ -202,7 +202,7 @@ test winDde-4.4 {DDE eval remotely} -constraints {dde stdio} -body {
set \xe1 ""
set name ch\xEDld-4.4
set child [createChildProcess $name]
- set \xe1 [dde eval $name set a foo]
+ set \xe1 [dde eval $name set \xe1 foo]
dde execute TclEval $name {set done 1}
update
set \xe1