149 lines
2.8 KiB
Plaintext
149 lines
2.8 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: veryquick.test,v 1.5 2008/06/21 18:07:37 danielk1977 Exp $
|
|
|
|
proc lshift {lvar} {
|
|
upvar $lvar l
|
|
set ret [lindex $l 0]
|
|
set l [lrange $l 1 end]
|
|
return $ret
|
|
}
|
|
while {[set arg [lshift argv]] != ""} {
|
|
switch -- $arg {
|
|
-sharedpagercache {
|
|
sqlite3_enable_shared_cache 1
|
|
}
|
|
-soak {
|
|
set SOAKTEST 1
|
|
}
|
|
-start {
|
|
set STARTAT "[lshift argv]*"
|
|
}
|
|
default {
|
|
set argv [linsert $argv 0 $arg]
|
|
break
|
|
}
|
|
}
|
|
}
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
rename finish_test really_finish_test
|
|
proc finish_test {} {}
|
|
set ISQUICK 1
|
|
|
|
set EXCLUDE {
|
|
all.test
|
|
async.test
|
|
async2.test
|
|
altermalloc.test
|
|
attachmalloc.test
|
|
autovacuum_crash.test
|
|
autovacuum_ioerr.test
|
|
autovacuum_ioerr2.test
|
|
bitvec.test
|
|
corrupt.test
|
|
crash.test
|
|
crash2.test
|
|
crash3.test
|
|
crash4.test
|
|
crash6.test
|
|
crash7.test
|
|
diskfull.test
|
|
exclusive3.test
|
|
fts3.test
|
|
fuzz.test
|
|
fuzz_malloc.test
|
|
in2.test
|
|
interrupt.test
|
|
ioerr.test
|
|
ioerr2.test
|
|
jrnlmode3.test
|
|
loadext.test
|
|
mallocAll.test
|
|
malloc.test
|
|
malloc2.test
|
|
malloc3.test
|
|
malloc4.test
|
|
malloc5.test
|
|
malloc6.test
|
|
malloc7.test
|
|
malloc8.test
|
|
malloc9.test
|
|
mallocA.test
|
|
mallocB.test
|
|
mallocC.test
|
|
mallocD.test
|
|
mallocE.test
|
|
mallocF.test
|
|
mallocG.test
|
|
memleak.test
|
|
misc7.test
|
|
misuse.test
|
|
mutex2.test
|
|
onefile.test
|
|
quick.test
|
|
soak.test
|
|
speed1.test
|
|
speed1p.test
|
|
speed2.test
|
|
speed3.test
|
|
speed4.test
|
|
speed4p.test
|
|
sqllimits1.test
|
|
vacuum3.test
|
|
|
|
tkt2686.test
|
|
thread001.test
|
|
thread002.test
|
|
|
|
incrvacuum_ioerr.test
|
|
autovacuum_crash.test
|
|
btree8.test
|
|
utf16.test
|
|
shared_err.test
|
|
vtab_err.test
|
|
veryquick.test
|
|
}
|
|
|
|
if {[sqlite3 -has-codec]} {
|
|
# lappend EXCLUDE \
|
|
# conflict.test
|
|
}
|
|
|
|
|
|
# Files to include in the test. If this list is empty then everything
|
|
# that is not in the EXCLUDE list is run.
|
|
#
|
|
set INCLUDE {
|
|
}
|
|
|
|
foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
|
|
set tail [file tail $testfile]
|
|
if {[lsearch -exact $EXCLUDE $tail]>=0} continue
|
|
if {[llength $INCLUDE]>0 && [lsearch -exact $INCLUDE $tail]<0} continue
|
|
if {[info exists STARTAT] && [string match $STARTAT $tail]} {unset STARTAT}
|
|
if {[info exists STARTAT]} continue
|
|
source $testfile
|
|
catch {db close}
|
|
if {$sqlite_open_file_count>0} {
|
|
puts "$tail did not close all files: $sqlite_open_file_count"
|
|
incr nErr
|
|
lappend ::failList $tail
|
|
set sqlite_open_file_count 0
|
|
}
|
|
}
|
|
set argv veryquick
|
|
source $testdir/permutations.test
|
|
set argv ""
|
|
source $testdir/misuse.test
|
|
|
|
set sqlite_open_file_count 0
|
|
really_finish_test
|