xref: /sqlite-3.40.0/test/quick.test (revision 74217cc0) 
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.36 2005/03/29 08:26:13 danielk1977 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  btree2.test
24  btree3.test
25  btree4.test
26  btree5.test
27  btree6.test
28  corrupt.test
29  crash.test
30  malloc.test
31  malloc2.test
32  memleak.test
33  misuse.test
34  quick.test
35  utf16.test
36  autovacuum_crash.test
37  btree8.test
38}
39
40if {[sqlite3 -has-codec]} {
41  # lappend EXCLUDE \
42  #  conflict.test
43}
44
45foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
46  set tail [file tail $testfile]
47  if {[lsearch -exact $EXCLUDE $tail]>=0} continue
48  source $testfile
49  catch {db close}
50  if {$sqlite_open_file_count>0} {
51    puts "$tail did not close all files: $sqlite_open_file_count"
52    incr nErr
53    lappend ::failList $tail
54  }
55}
56source $testdir/misuse.test
57
58set sqlite_open_file_count 0
59really_finish_test
60