xref: /sqlite-3.40.0/test/quick.test (revision ef5ecb41) 
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.19 2004/05/24 07:34:49 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  quick.test
24  btree2.test
25  malloc.test
26  memleak.test
27  misuse.test
28  format3.test
29}
30
31lappend EXCLUDE interrupt.test    ;# assert() fails in btree
32lappend EXCLUDE ioerr.test        ;# seg-faults (?)
33lappend EXCLUDE memdb.test        ;# fails - malformed database
34
35lappend EXCLUDE printf.test       ;# sqlite3_XX vs sqlite_XX problem
36lappend EXCLUDE auth.test         ;# Cannot attach empty databases.
37lappend EXCLUDE tableapi.test     ;# sqlite3_XX vs sqlite_XX problem
38lappend EXCLUDE version.test      ;# uses the btree_meta API (not updated)
39
40# Some tests fail in these file as a result of the partial manifest types
41# implementation.
42lappend EXCLUDE capi2.test
43
44if {[sqlite -has-codec]} {
45  lappend EXCLUDE \
46    attach.test \
47    attach2.test \
48    auth.test \
49    format3.test \
50    version.test
51}
52
53foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
54  set tail [file tail $testfile]
55  if {[lsearch -exact $EXCLUDE $tail]>=0} continue
56  source $testfile
57  catch {db close}
58  if {$sqlite_open_file_count>0} {
59    puts "$tail did not close all files: $sqlite_open_file_count"
60    incr nErr
61    lappend ::failList $tail
62  }
63}
64# source $testdir/misuse.test
65
66set sqlite_open_file_count 0
67really_finish_test
68