1
0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +03:00
i
Minor changes to checksum related test cases.

FossilOrigin-Name: 60c22bde52121993d4bea11eef38ab285c737e2c
This commit is contained in:
dan
2010-05-29 06:18:54 +00:00
parent 5f168a5d53
commit 94b7f76b96
4 changed files with 18 additions and 14 deletions

View File

@ -30,9 +30,9 @@ proc set_tvfs_hdr {file args} {
set blob [tvfs shm $file]
if {[llength $args]} {
set blob [
binary format i${nInt}a* [lindex $args 0] [string range $blob $nHdr end]
]
set ia [lindex $args 0]
set tail [string range $blob [expr $nHdr*2] end]
set blob [binary format i${nInt}i${nInt}a* $ia $ia $tail]
tvfs shm $file $blob
}
@ -101,7 +101,9 @@ foreach {tn iInsert res wal_index_hdr_mod wal_locks} {
7 10 {10 55} 5 {READ RECOVER READ UNLOCK}
8 11 {11 66} 6 {READ RECOVER READ UNLOCK}
9 12 {12 78} 7 {READ RECOVER READ UNLOCK}
10 13 {13 91} -1 {READ UNLOCK}
10 13 {13 91} 8 {READ RECOVER READ UNLOCK}
11 14 {14 105} 9 {READ RECOVER READ UNLOCK}
12 15 {15 120} -1 {READ UNLOCK}
} {
do_test wal2-1.$tn.1 {