diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-06-21 14:44:17 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-06-21 14:44:17 (GMT) |
| commit | f82e67e7bfa7df973c5d4fc862b964c90ec5b72c (patch) | |
| tree | 9f7782ab6d1b00096c5ac77f4be9731e66d70f87 /tests/encoding.test | |
| parent | e715bc67dad8fd0fc152aff7a0f595f8d5fd1286 (diff) | |
| download | tcl-f82e67e7bfa7df973c5d4fc862b964c90ec5b72c.zip tcl-f82e67e7bfa7df973c5d4fc862b964c90ec5b72c.tar.gz tcl-f82e67e7bfa7df973c5d4fc862b964c90ec5b72c.tar.bz2 | |
Revise use of "-translation binary" in testcases: Use it where usefull, don't use it any more where misleading
Diffstat (limited to 'tests/encoding.test')
| -rw-r--r-- | tests/encoding.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index 3feaa55..93a52aa 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -183,11 +183,11 @@ test encoding-7.2 {Tcl_UtfToExternalDString: big buffer} { test encoding-8.1 {Tcl_ExternalToUtf} { set f [open [file join [temporaryDirectory] dummy] w] - fconfigure $f -translation binary -encoding iso8859-1 + fconfigure $f -translation binary puts -nonewline $f "ab\x8C\xC1g" close $f set f [open [file join [temporaryDirectory] dummy] r] - fconfigure $f -translation binary -encoding shiftjis + fconfigure $f -translation lf -encoding shiftjis set x [read $f] close $f file delete [file join [temporaryDirectory] dummy] @@ -211,11 +211,11 @@ test encoding-9.2 {Tcl_UtfToExternalDString: big buffer} { test encoding-10.1 {Tcl_UtfToExternal} { set f [open [file join [temporaryDirectory] dummy] w] - fconfigure $f -translation binary -encoding shiftjis + fconfigure $f -translation lf -encoding shiftjis puts -nonewline $f "ab\u4E4Eg" close $f set f [open [file join [temporaryDirectory] dummy] r] - fconfigure $f -translation binary -encoding iso8859-1 + fconfigure $f -translation binary set x [read $f] close $f file delete [file join [temporaryDirectory] dummy] |