1
0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +03:00

Enhancements to test_vfs.c and walfault.test.

FossilOrigin-Name: ac0de2f39e948f3b00e96eebf56ebee70472020d
This commit is contained in:
dan
2010-06-03 09:25:10 +00:00
parent 40ad9d2870
commit 1f55e28d2a
6 changed files with 443 additions and 281 deletions

View File

@ -72,7 +72,8 @@ proc incr_tvfs_hdr {file idx incrval} {
#
do_test wal2-1.0 {
proc tvfs_cb {method args} { return SQLITE_OK }
testvfs tvfs tvfs_cb
testvfs tvfs
tvfs script tvfs_cb
sqlite3 db test.db -vfs tvfs
sqlite3 db2 test.db -vfs tvfs
@ -166,7 +167,8 @@ set LOCKS [list \
]
do_test wal2-2.0 {
testvfs tvfs tvfs_cb
testvfs tvfs
tvfs script tvfs_cb
proc tvfs_cb {method args} {
if {$method == "xShmOpen"} { set ::shm_file [lindex $args 0] }
return SQLITE_OK
@ -281,7 +283,8 @@ do_test wal2-3.0 {
return 0
}
testvfs tvfs tvfs_cb
testvfs tvfs
tvfs script tvfs_cb
sqlite3 db test.db -vfs tvfs
db busy busyhandler
@ -348,15 +351,13 @@ do_test wal2-4.1 {
} {wal}
do_test wal2-4.2 {
db close
proc ok {args} {return SQLITE_OK}
testvfs -noshm tvfs ok
testvfs tvfs -noshm 1
sqlite3 db test.db -vfs tvfs
catchsql { SELECT * FROM data }
} {1 {unable to open database file}}
do_test wal2-4.3 {
db close
proc ok {args} {return SQLITE_OK}
testvfs tvfs ok
testvfs tvfs
sqlite3 db test.db -vfs tvfs
catchsql { SELECT * FROM data }
} {0 {{need xShmOpen to see this}}}
@ -388,7 +389,8 @@ do_test wal2-5.1 {
}
set tvfs_cb_return SQLITE_OK
testvfs tvfs tvfs_cb
testvfs tvfs
tvfs script tvfs_cb
sqlite3 db test.db -vfs tvfs
execsql {
@ -578,7 +580,8 @@ do_test wal2-6.4.1 {
if {$method == "xShmLock"} { lappend ::locks [lindex $args 2] }
return "SQLITE_OK"
}
testvfs tvfs tvfs_cb
testvfs tvfs
tvfs script tvfs_cb
sqlite3 db test.db -vfs tvfs
} {}