summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-08-02 09:54:22 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-08-02 09:54:22 (GMT)
commit3546e128c0c379f71d6fdf6678ad19cd9d0a0265 (patch)
tree2f7b0a919cbbf235da00b4db9c4de19eb5aed90c /tests
parente557e3df44d60bf5754cbc2e8a1a1225322dd5dd (diff)
downloadtcl-3546e128c0c379f71d6fdf6678ad19cd9d0a0265.zip
tcl-3546e128c0c379f71d6fdf6678ad19cd9d0a0265.tar.gz
tcl-3546e128c0c379f71d6fdf6678ad19cd9d0a0265.tar.bz2
Fix Bug #3545367: DDE test failures
It turns out that "dde poke" had the same bug, unfortunately we cannot make a test-case for that. Also modified more test-cases to use unicode variable names, so we can more reliably detect this
Diffstat (limited to 'tests')
-rw-r--r--tests/winDde.test30
1 files changed, 15 insertions, 15 deletions
diff --git a/tests/winDde.test b/tests/winDde.test
index 9e0b20a..01fb54c 100644
--- a/tests/winDde.test
+++ b/tests/winDde.test
@@ -139,25 +139,25 @@ test winDde-3.2 {DDE execute -async locally} -constraints dde -body {
set \xe1
} -result foo
test winDde-3.3 {DDE request locally} -constraints dde -body {
- set a ""
- dde execute TclEval self [list set a foo]
- dde request TclEval self a
+ set \xe1 ""
+ dde execute TclEval self [list set \xe1 foo]
+ dde request TclEval self \xe1
} -result foo
test winDde-3.4 {DDE eval locally} -constraints dde -body {
set \xe1 ""
dde eval self set \xe1 foo
} -result foo
test winDde-3.5 {DDE request locally} -constraints dde -body {
- set a ""
- dde execute TclEval self [list set a foo]
- dde request -binary TclEval self a
+ set \xe1 ""
+ dde execute TclEval self [list set \xe1 foo]
+ dde request -binary TclEval self \xe1
} -result "foo\x00"
# Set variable a to A with diaeresis (unicode C4) by relying on the fact
# that utf8 is sent (e.g. "c3 84" on the wire)
test winDde-3.6 {DDE request utf8} -constraints dde -body {
- set a "not set"
- dde execute TclEval self "set a \xc4"
- scan $a %c
+ set \xe1 "not set"
+ dde execute TclEval self "set \xe1 \xc4"
+ scan [set \xe1] %c
} -result 196
# Set variable a to A with diaeresis (unicode C4) using binary execute
# and compose utf-8 (e.g. "c3 84" ) manualy
@@ -189,23 +189,23 @@ test winDde-4.2 {DDE execute async remotely} -constraints {dde stdio} -body {
set \xe1
} -result ""
test winDde-4.3 {DDE request remotely} -constraints {dde stdio} -body {
- set a ""
+ set \xe1 ""
set name ch\xEDld-4.3
set child [createChildProcess $name]
dde execute TclEval $name [list set a foo]
- set a [dde request TclEval $name a]
+ set \xe1 [dde request TclEval $name a]
dde execute TclEval $name {set done 1}
update
- set a
+ set \xe1
} -result foo
test winDde-4.4 {DDE eval remotely} -constraints {dde stdio} -body {
- set a ""
+ set \xe1 ""
set name ch\xEDld-4.4
set child [createChildProcess $name]
- set a [dde eval $name set a foo]
+ set \xe1 [dde eval $name set a foo]
dde execute TclEval $name {set done 1}
update
- set a
+ set \xe1
} -result foo
# -------------------------------------------------------------------------