1# 2# May you do good and not evil. 3# May you find forgiveness for yourself and forgive others. 4# May you share freely, never taking more than you give. 5# 6#*********************************************************************** 7# This file runs all tests. 8# 9# $Id: quick.test,v 1.50 2007/03/26 13:48:14 drh Exp $ 10 11proc lshift {lvar} { 12 upvar $lvar l 13 set ret [lindex $l 0] 14 set l [lrange $l 1 end] 15 return $ret 16} 17while {[set arg [lshift argv]] != ""} { 18 switch -- $arg { 19 -sharedpagercache { 20 sqlite3_enable_shared_cache 1 21 } 22 default { 23 set argv [linsert $argv 0 $arg] 24 break 25 } 26 } 27} 28 29set testdir [file dirname $argv0] 30source $testdir/tester.tcl 31rename finish_test really_finish_test 32proc finish_test {} {} 33set ISQUICK 1 34 35set EXCLUDE { 36 all.test 37 async.test 38 async2.test 39 btree2.test 40 btree3.test 41 btree4.test 42 btree5.test 43 btree6.test 44 corrupt.test 45 crash.test 46 crash2.test 47 exclusive3.test 48 loadext.test 49 malloc.test 50 malloc2.test 51 malloc3.test 52 memleak.test 53 misuse.test 54 quick.test 55 speed1.test 56 speed2.test 57 58 autovacuum_crash.test 59 btree8.test 60 utf16.test 61 shared_err.test 62 vtab_err.test 63} 64 65if {[sqlite3 -has-codec]} { 66 # lappend EXCLUDE \ 67 # conflict.test 68} 69 70 71# Files to include in the test. If this list is empty then everything 72# that is not in the EXCLUDE list is run. 73# 74set INCLUDE { 75} 76 77foreach testfile [lsort -dictionary [glob $testdir/*.test]] { 78 set tail [file tail $testfile] 79 if {[lsearch -exact $EXCLUDE $tail]>=0} continue 80 if {[llength $INCLUDE]>0 && [lsearch -exact $INCLUDE $tail]<0} continue 81 source $testfile 82 catch {db close} 83 if {$sqlite_open_file_count>0} { 84 puts "$tail did not close all files: $sqlite_open_file_count" 85 incr nErr 86 lappend ::failList $tail 87 } 88} 89source $testdir/misuse.test 90 91set sqlite_open_file_count 0 92really_finish_test 93