# # 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.6 2008/06/21 19:20:13 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 permutations.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