database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-01 06:27:03 +03:00
Code Activity

Add new test script backcompat.test, for testing database/journal/wal file compatibility against previous versions.

Browse Source 
FossilOrigin-Name: 8804f4989d157707911488781109ce0641c0ad0b
This commit is contained in:
dan
2010-08-19 11:05:53 +00:00
parent e22e03e210
commit 8311c47d83
4 changed files with 214 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
test/lock_common.tcl
View File

@ -65,15 +65,18 @@ proc do_multiclient_test {varname script} {
# channel name is returned that may be passed as the first argument to proc
# 'testfixture' to execute a command. The child testfixture process is shut
# down by closing the channel.
proc launch_testfixture {} {
proc launch_testfixture {{prg ""}} {
write_main_loop
set prg [info nameofexec]
if {$prg eq ""} {
set prg [file join . testfixture]
}
if {$prg eq ""} { set prg [info nameofexec] }
if {$prg eq ""} { set prg [file join . testfixture] }
set chan [open "|$prg tf_main.tcl" r+]
fconfigure $chan -buffering line
testfixture $chan "sqlite3_test_control_pending_byte $::sqlite_pending_byte"
set rc [catch {
testfixture $chan "sqlite3_test_control_pending_byte $::sqlite_pending_byte"
}]
if {$rc} {
testfixture $chan "set ::sqlite_pending_byte $::sqlite_pending_byte"
}
return $chan
}