diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-30 07:11:18 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-30 07:11:18 (GMT) |
commit | 1f1f43fcd2bfa68c8bff1a9d6dbb8ecab4be43e7 (patch) | |
tree | 35749cc38881de41be58b2c55c3e82de9cdc342c /tests/exec.test | |
parent | c8617b374b29d14c8be0900f1623ca3120468b62 (diff) | |
download | tcl-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.test | 10 |
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. |