1# 2# 2001 September 15 3# 4# The author disclaims copyright to this source code. In place of 5# a legal notice, here is a blessing: 6# 7# May you do good and not evil. 8# May you find forgiveness for yourself and forgive others. 9# May you share freely, never taking more than you give. 10# 11#*********************************************************************** 12# This file runs all tests. 13# 14# $Id: quick.test,v 1.6 2004/02/11 02:18:07 drh Exp $ 15 16set testdir [file dirname $argv0] 17source $testdir/tester.tcl 18rename finish_test really_finish_test 19proc finish_test {} {} 20set ISQUICK 1 21 22set EXCLUDE { 23 all.test 24 quick.test 25 btree2.test 26 malloc.test 27 memleak.test 28 misuse.test 29} 30 31if {[sqlite -has-codec]} { 32 lappend EXCLUDE \ 33 attach.test \ 34 attach2.test \ 35 auth.test \ 36 format3.test \ 37 version.test 38} 39 40foreach testfile [lsort -dictionary [glob $testdir/*.test]] { 41 set tail [file tail $testfile] 42 if {[lsearch -exact $EXCLUDE $tail]>=0} continue 43 source $testfile 44 catch {db close} 45 if {$sqlite_open_file_count>0} { 46 puts "$tail did not close all files: $sqlite_open_file_count" 47 incr nErr 48 lappend ::failList $tail 49 } 50} 51source $testdir/misuse.test 52 53set sqlite_open_file_count 0 54really_finish_test 55