1
0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-30 19:03:16 +03:00

Updates for to WAL TCL test scripts to support running on Windows.

FossilOrigin-Name: 6a5630806c87b0f4e5632c37c357f98effd9608a
This commit is contained in:
shaneh
2010-05-11 02:46:16 +00:00
parent 09b1330026
commit a10069dd22
5 changed files with 23 additions and 22 deletions

View File

@ -1285,8 +1285,9 @@ proc logcksum {ckv1 ckv2 blob} {
upvar $ckv1 c1
upvar $ckv2 c2
binary scan $blob iu* values
binary scan $blob i* values
foreach v $values {
set v [expr {$v & 0xFFFFFFFF}]
incr c1 $v
incr c2 $c1
}
@ -1427,6 +1428,7 @@ do_test wal-19.4 {
# file in step 3 and the checkpoint was corrupting the database file.
#
do_test wal-20.1 {
catch {db close}
file delete -force test.db test.db-wal test.db-journal
sqlite3 db test.db
execsql {