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 | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
e83efb232fe8d30714f4c7cffeef8009 |
| User & Date: | dan 2010-05-06 13:36:47 |
Context
|
2010-05-06
| ||
| 14:42 | Add tests to cover a couple of branches in wal.c. check-in: 429f437f user: dan tags: trunk | |
| 13:36 | Unset a tcl variable before reusing it in wal.test. check-in: e83efb23 user: dan tags: trunk | |
| 12:15 | Add tests for some lock-contention cases. check-in: f0fcb9c9 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 295 296 297 298 299 300 301 302 |
}
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}
|
< |
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}
|