summaryrefslogtreecommitdiffstats
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)
commit21ffddf58f04c4a455f133435b83bc79da913805 (patch)
tree693dd702a2398a7086cc614414363275aba9d31b
parent8cc3c8dbcc8bd130f161afaf0c4ccc36562ff705 (diff)
downloadtcl-21ffddf58f04c4a455f133435b83bc79da913805.zip
tcl-21ffddf58f04c4a455f133435b83bc79da913805.tar.gz
tcl-21ffddf58f04c4a455f133435b83bc79da913805.tar.bz2
add some tests
-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
# -------------------------------------------------------------------------