dan
47 lines
954 B
Tcl
47 lines
954 B
Tcl
# 2017 July 25
|
|
#
|
|
# The author disclaims copyright to this source code. In place of
|
|
# a legal notice, here is a blessing:
|
|
#
|
|
# May you do good and not evil.
|
|
# May you find forgiveness for yourself and forgive others.
|
|
# May you share freely, never taking more than you give.
|
|
#
|
|
#***********************************************************************
|
|
#
|
|
#
|
|
|
|
ifcapable !server {
|
|
proc return_if_no_server {} {
|
|
finish_test
|
|
return -code return
|
|
}
|
|
return
|
|
} else {
|
|
proc return_if_no_server {} {}
|
|
}
|
|
|
|
proc server_sqlite3 {cmd file} {
|
|
sqlite3 $cmd $file -vfs $::server_vfs
|
|
}
|
|
|
|
proc server_reset_db {} {
|
|
catch {db close}
|
|
forcedelete test.db test.db-journal test.db-wal
|
|
file mkdir test.db-journal
|
|
server_sqlite3 db test.db
|
|
}
|
|
|
|
|
|
set ::server_vfs unix-excl
|
|
proc server_set_vfs {vfs} {
|
|
if {$vfs=="single"} {
|
|
set ::server_vfs unix-excl
|
|
} elseif {$vfs=="multi"} {
|
|
set ::server_vfs unix
|
|
} else {
|
|
set ::server_vfs $vfs
|
|
}
|
|
}
|
|
|