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