c5531beb56
running with all.test. Lots of hidden failures now come to light. (CVS 4723) FossilOrigin-Name: 251c78a982a33194a052897c37a2a79ae9654452
62 lines
1.4 KiB
Plaintext
62 lines
1.4 KiB
Plaintext
#
|
|
# 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.
|
|
#
|
|
#***********************************************************************
|
|
# This file runs all tests.
|
|
#
|
|
# $Id: onefile.test,v 1.3 2008/01/18 02:31:56 drh Exp $
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
rename finish_test really_finish_test2
|
|
proc finish_test {} {
|
|
catch {db close}
|
|
catch {db2 close}
|
|
catch {db3 close}
|
|
}
|
|
set ISQUICK 1
|
|
|
|
set onefile_INCLUDE {
|
|
conflict.test
|
|
insert.test
|
|
insert2.test
|
|
insert3.test
|
|
rollback.test
|
|
select1.test
|
|
select2.test
|
|
select3.test
|
|
temptable.test
|
|
}
|
|
#set onefile_INCLUDE insert2.test
|
|
|
|
rename sqlite3 really_sqlite3
|
|
proc sqlite3 {args} {
|
|
if {[string range [lindex $args 0] 0 0] ne "-"} {
|
|
lappend args -vfs fs
|
|
}
|
|
uplevel [concat really_sqlite3 $args]
|
|
}
|
|
|
|
rename do_test really_do_test
|
|
proc do_test {name args} {
|
|
uplevel really_do_test onefile-$name $args
|
|
}
|
|
|
|
foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
|
|
set tail [file tail $testfile]
|
|
if {[lsearch -exact $onefile_INCLUDE $tail]<0} continue
|
|
source $testfile
|
|
}
|
|
|
|
file delete -force test.db test2.db test3.db test4.db
|
|
|
|
really_finish_test2
|
|
rename do_test {}
|
|
rename really_do_test do_test
|
|
rename finish_test {}
|
|
rename really_finish_test2 finish_test
|
|
rename sqlite3 {}
|
|
rename really_sqlite3 sqlite3
|