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