xref: /titanic_41/usr/src/lib/libsqlite/test/quick.test (revision 159d09a20817016f09b3ea28d1bdada4a336bb91)
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