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