summaryrefslogtreecommitdiffstats
path: root/tests/winDde.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-05-03 09:29:06 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-05-03 09:29:06 (GMT)
commit5d79bd3acf1fe03e74875c031f9d48d4a7bc8a1b (patch)
tree693dd702a2398a7086cc614414363275aba9d31b /tests/winDde.test
parentcaa103b08062654da705bd7b648cd3f1fc0122d8 (diff)
downloadtcl-5d79bd3acf1fe03e74875c031f9d48d4a7bc8a1b.zip
tcl-5d79bd3acf1fe03e74875c031f9d48d4a7bc8a1b.tar.gz
tcl-5d79bd3acf1fe03e74875c031f9d48d4a7bc8a1b.tar.bz2
add some tests
Diffstat (limited to 'tests/winDde.test')
-rw-r--r--tests/winDde.test14
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/winDde.test b/tests/winDde.test
index ca50a96..bd5ef73 100644
--- a/tests/winDde.test
+++ b/tests/winDde.test
@@ -156,6 +156,20 @@ test winDde-3.5 {DDE request locally} {win dde} {
dde execute TclEval self {set a "foo"}
dde request -binary TclEval self a
} "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} {win dde} {
+ set a "not set"
+ dde execute TclEval self "set a \xc4"
+ scan $a %c
+} 196
+# 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} {win dde} {
+ set a "not set"
+ dde execute -binary TclEval self "set a \xc3\x84"
+ scan $a %c
+} 196
# -------------------------------------------------------------------------