Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Unset a tcl variable before reusing it in wal.test. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
e83efb232fe8d30714f4c7cffeef8009 |
User & Date: | dan 2010-05-06 13:36:47.000 |
Context
2010-05-06
| ||
14:42 | Add tests to cover a couple of branches in wal.c. (check-in: 429f437fb7 user: dan tags: trunk) | |
13:36 | Unset a tcl variable before reusing it in wal.test. (check-in: e83efb232f user: dan tags: trunk) | |
12:15 | Add tests for some lock-contention cases. (check-in: f0fcb9c9a6 user: dan tags: trunk) | |
Changes
Changes to test/wal.test.
︙ | ︙ | |||
1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 | file copy -force test.db testX.db file copy -force test.db-wal testX.db-wal db close list [file size testX.db] [file size testX.db-wal] } [list [expr 3*1024] [log_file_size 6 1024]] foreach {nFrame result} { 0 {0 0} 1 {0 0} 2 {0 0 1 2} 3 {0 0 1 2} 4 {0 0 1 2 3 4} 5 {0 0 1 2 3 4} | > | 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 | file copy -force test.db testX.db file copy -force test.db-wal testX.db-wal db close list [file size testX.db] [file size testX.db-wal] } [list [expr 3*1024] [log_file_size 6 1024]] unset -nocomplain nFrame result foreach {nFrame result} { 0 {0 0} 1 {0 0} 2 {0 0 1 2} 3 {0 0 1 2} 4 {0 0 1 2 3 4} 5 {0 0 1 2 3 4} |
︙ | ︙ |
Changes to test/wal2.test.
︙ | ︙ | |||
288 289 290 291 292 293 294 | } if {[info exists ::locked] && [lindex $args 2] == "RECOVER"} { return SQLITE_BUSY } } return SQLITE_OK } | < | 288 289 290 291 292 293 294 295 296 297 298 299 300 301 | } if {[info exists ::locked] && [lindex $args 2] == "RECOVER"} { return SQLITE_BUSY } } return SQLITE_OK } set ::sabotage 1 set ::locked 1 list [info exists ::sabotage] [info exists ::locked] } {1 1} do_test wal2-3.4 { execsql { SELECT count(a), sum(a) FROM t1 } } {4 10} |
︙ | ︙ |