summaryrefslogtreecommitdiffstats
path: root/tests/exec.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2021-03-30 07:11:18 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2021-03-30 07:11:18 (GMT)
commit1f1f43fcd2bfa68c8bff1a9d6dbb8ecab4be43e7 (patch)
tree35749cc38881de41be58b2c55c3e82de9cdc342c /tests/exec.test
parentc8617b374b29d14c8be0900f1623ca3120468b62 (diff)
downloadtcl-1f1f43fcd2bfa68c8bff1a9d6dbb8ecab4be43e7.zip
tcl-1f1f43fcd2bfa68c8bff1a9d6dbb8ecab4be43e7.tar.gz
tcl-1f1f43fcd2bfa68c8bff1a9d6dbb8ecab4be43e7.tar.bz2
Thanks to TIP #587, convert many escapes in the testcases into the actual (UTF-8) character.
Diffstat (limited to 'tests/exec.test')
-rw-r--r--tests/exec.test10
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/exec.test b/tests/exec.test
index 412cd4c..6e4718a 100644
--- a/tests/exec.test
+++ b/tests/exec.test
@@ -169,19 +169,19 @@ test exec-2.6 {redirecting input from immediate source, with UTF} -setup {
encoding system iso8859-1
proc quotenonascii s {
regsub -all {\[|\\|\]} $s {\\&} s
- regsub -all "\[\u007f-\uffff\]" $s \
- {[apply {c {format {\u%04x} [scan $c %c]}} &]} s
+ regsub -all "\[\x7F-\xFF\]" $s \
+ {[apply {c {format {\x%02X} [scan $c %c]}} &]} s
return [subst -novariables $s]
}
} -constraints {exec} -body {
- # If this fails, it may give back: "\uC3\uA9\uC3\uA0\uC3\uBC\uC3\uB1"
+ # If this fails, it may give back: "\xC3\xA9\xC3\xA0\xC3\xBC\xC3\xB1"
# If it does, this means that the UTF -> external conversion did not occur
# before writing out the temp file.
- quotenonascii [exec [interpreter] $path(cat) << "\uE9\uE0\uFC\uF1"]
+ quotenonascii [exec [interpreter] $path(cat) << "\xE9\xE0\xFC\xF1"]
} -cleanup {
encoding system $sysenc
rename quotenonascii {}
-} -result {\u00e9\u00e0\u00fc\u00f1}
+} -result {\xE9\xE0\xFC\xF1}
# I/O redirection: output to file.