diff options
| author | drh <> | 2024-07-30 17:09:51 +0000 |
|---|---|---|
| committer | drh <> | 2024-07-30 17:09:51 +0000 |
| commit | 780187f090d7da3ec49041ab24fc3363a30cb1b0 (patch) | |
| tree | 8d0b2d24a2c429d3ed1890cde522dc022a713fd3 /ext/session | |
| parent | 3302bf4dbdda5ba3ccbf3229ecd9e2fec3a6b06e (diff) | |
| download | sqlite-780187f090d7da3ec49041ab24fc3363a30cb1b0.tar.gz sqlite-780187f090d7da3ec49041ab24fc3363a30cb1b0.zip | |
Get rid of "-encoding binary" across all test cases, as that is no longer
supported in Tcl9. Use "-translation binary" instead.
FossilOrigin-Name: e0d9670dd98a22d2e22aac8ba8720787a05e280e18ec9b2d4323f947c83718f5
Diffstat (limited to 'ext/session')
| -rw-r--r-- | ext/session/changesetfuzz1.test | 3 | ||||
| -rw-r--r-- | ext/session/session4.test | 2 | ||||
| -rw-r--r-- | ext/session/sessiondiff.test | 2 |
3 files changed, 3 insertions, 4 deletions
diff --git a/ext/session/changesetfuzz1.test b/ext/session/changesetfuzz1.test index 20f5ac6de..d77fd53b9 100644 --- a/ext/session/changesetfuzz1.test +++ b/ext/session/changesetfuzz1.test @@ -27,7 +27,7 @@ if {$CF==""} { proc writefile {zFile data} { set fd [open $zFile w] - fconfigure $fd -translation binary -encoding binary + fconfigure $fd -translation binary puts -nonewline $fd $data close $fd } @@ -81,4 +81,3 @@ do_test 1.2 { finish_test - diff --git a/ext/session/session4.test b/ext/session/session4.test index de183a69a..6c5ab5d02 100644 --- a/ext/session/session4.test +++ b/ext/session/session4.test @@ -136,7 +136,7 @@ foreach {tn blob} { do_test 2.$tn { set changeset [binary decode hex $blob] #set fd [open x.change w+] -#fconfigure $fd -encoding binary -translation binary +#fconfigure $fd -translation binary #puts -nonewline $fd $changeset #close $fd list [catch { sqlite3changeset_apply db $changeset xConflict } msg] $msg diff --git a/ext/session/sessiondiff.test b/ext/session/sessiondiff.test index b00af0eb3..461ce17c9 100644 --- a/ext/session/sessiondiff.test +++ b/ext/session/sessiondiff.test @@ -47,7 +47,7 @@ proc database_cksum {db1} { proc readfile {filename} { set fd [open $filename] - fconfigure $fd -translation binary -encoding binary + fconfigure $fd -translation binary set data [read $fd] close $fd set data |