summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-08-06 07:40:47 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-08-06 07:40:47 (GMT)
commit22298666ade7c7396ece86e2976309e955e9abd5 (patch)
treed9af3e73a3058e77a5fcd08ed1b848553da8e23d /tests
parentaa7ab9ce5eba66a61032dc91795617354ca8c05f (diff)
parent6b4abc4554709c11344edd658305f417fa9c4929 (diff)
downloadtcl-22298666ade7c7396ece86e2976309e955e9abd5.zip
tcl-22298666ade7c7396ece86e2976309e955e9abd5.tar.gz
tcl-22298666ade7c7396ece86e2976309e955e9abd5.tar.bz2
Reference to correct Bug #number.
Fix warning in winDde.c, and more test-cases using Unicode characters
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