database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-30 19:03:16 +03:00
Code Activity

Add options to test command [do_faultsim_test] to support testing VFS implementations.

Browse Source 
FossilOrigin-Name: 503ad889da675b3dd83da7338e2902e42f69acac
This commit is contained in:
dan
2011-01-21 15:52:02 +00:00
parent 3a5676ce26
commit f3aef49cbd
4 changed files with 22 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
test/malloc_common.tcl
View File

@ -106,6 +106,10 @@ set FAULTSIM(cantopen-persistent) [list \
#
# -test Script to execute after -body.
#
# -install Script to execute after faultsim -injectinstall
#
# -uninstall Script to execute after faultsim -uninjectinstall
#
proc do_faultsim_test {name args} {
global FAULTSIM
@ -113,6 +117,8 @@ proc do_faultsim_test {name args} {
set DEFAULT(-prep) ""
set DEFAULT(-body) ""
set DEFAULT(-test) ""
set DEFAULT(-install) ""
set DEFAULT(-uninstall) ""
fix_testname name
@ -129,7 +135,9 @@ proc do_faultsim_test {name args} {
set faultlist [concat $faultlist $flist]
}
set testspec [list -prep $O(-prep) -body $O(-body) -test $O(-test)]
set testspec [list -prep $O(-prep) -body $O(-body) \
-test $O(-test) -install $O(-install) -uninstall $O(-uninstall)
]
foreach f [lsort -unique $faultlist] {
eval do_one_faultsim_test "$name-$f" $FAULTSIM($f) $testspec
}
@ -294,6 +302,8 @@ proc do_one_faultsim_test {testname args} {
set DEFAULT(-prep) ""
set DEFAULT(-body) ""
set DEFAULT(-test) ""
set DEFAULT(-install) ""
set DEFAULT(-uninstall) ""
array set O [array get DEFAULT]
array set O $args
@ -307,6 +317,7 @@ proc do_one_faultsim_test {testname args} {
"
eval $O(-injectinstall)
eval $O(-install)
set stop 0
for {set iFail 1} {!$stop} {incr iFail} {
@ -338,6 +349,7 @@ proc do_one_faultsim_test {testname args} {
if {$nfail==0} { set stop 1 }
}
eval $O(-uninstall)
eval $O(-injectuninstall)
}