summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorapnadkarni <apnmbx-wits@yahoo.com>2023-12-05 13:09:22 (GMT)
committerapnadkarni <apnmbx-wits@yahoo.com>2023-12-05 13:09:22 (GMT)
commitb844b819dc474968b15fb4c891ded3fd57ea1184 (patch)
tree68109cce3ca25f1913eb3c1327987051ba624a82
parentec111e454d8d0c27ae09daa327636732a5c35164 (diff)
downloadtcl-b844b819dc474968b15fb4c891ded3fd57ea1184.zip
tcl-b844b819dc474968b15fb4c891ded3fd57ea1184.tar.gz
tcl-b844b819dc474968b15fb4c891ded3fd57ea1184.tar.bz2
Test case for bug
-rw-r--r--tests/exec.test16
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/exec.test b/tests/exec.test
index 5a640b0..7f40a38 100644
--- a/tests/exec.test
+++ b/tests/exec.test
@@ -712,6 +712,22 @@ test exec-20.1 {exec .CMD file} -constraints {win} -body {
exec [makeFile "echo %1> $log" exec201.CMD] "Testing exec-20.1"
viewFile $log
} -result "\"Testing exec-20.1\""
+
+# Test with encoding mismatches (Bug 0f1ddc0df7fb7)
+test exec-21.1 {exec encoding mismatch} -setup {
+ set path(script) [makeFile {
+ fconfigure stdout -translation binary
+ puts a\xe9b
+ } script]
+ set enc [encoding system]
+ encoding system utf-8
+} -cleanup {
+ removeFile $path(script)
+ encoding system $enc
+} -body {
+ exec [info nameofexecutable] $path(script)
+} -result a\uFFFDb
+
# ----------------------------------------------------------------------
# cleanup