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