1
0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +03:00

Get rid of "-encoding binary" across all test cases, as that is no longer

supported in Tcl9.  Use "-translation binary" instead.

FossilOrigin-Name: e0d9670dd98a22d2e22aac8ba8720787a05e280e18ec9b2d4323f947c83718f5
This commit is contained in:
drh
2024-07-30 17:09:51 +00:00
parent 3302bf4dbd
commit 780187f090
36 changed files with 91 additions and 105 deletions

View File

@ -132,7 +132,7 @@ proc readFile { fileName } {
# may contain binary data.
#
set file_id [open $fileName RDONLY]
fconfigure $file_id -encoding binary -translation binary
fconfigure $file_id -translation binary
set result [read $file_id]
close $file_id
return $result
@ -144,7 +144,7 @@ proc writeFile { fileName data } {
# binary data.
#
set file_id [open $fileName {WRONLY CREAT TRUNC}]
fconfigure $file_id -encoding binary -translation binary
fconfigure $file_id -translation binary
puts -nonewline $file_id $data
close $file_id
return ""