xref: /sqlite-3.40.0/test/quick.test (revision 999cc5d7) 
1#
2#    May you do good and not evil.
3#    May you find forgiveness for yourself and forgive others.
4#    May you share freely, never taking more than you give.
5#
6#***********************************************************************
7# This file runs all tests.
8#
9# $Id: quick.test,v 1.62 2007/08/23 16:27:21 danielk1977 Exp $
10
11proc lshift {lvar} {
12  upvar $lvar l
13  set ret [lindex $l 0]
14  set l [lrange $l 1 end]
15  return $ret
16}
17while {[set arg [lshift argv]] != ""} {
18  switch -- $arg {
19    -sharedpagercache {
20      sqlite3_enable_shared_cache 1
21    }
22    -soak {
23       set SOAKTEST 1
24    }
25    default {
26      set argv [linsert $argv 0 $arg]
27      break
28    }
29  }
30}
31
32set testdir [file dirname $argv0]
33source $testdir/tester.tcl
34rename finish_test really_finish_test
35proc finish_test {} {}
36set ISQUICK 1
37
38set EXCLUDE {
39  all.test
40  async.test
41  async2.test
42  btree2.test
43  btree3.test
44  btree4.test
45  btree5.test
46  btree6.test
47  corrupt.test
48  crash.test
49  crash2.test
50  crash3.test
51  exclusive3.test
52  fuzz.test
53  fuzz_malloc.test
54  in2.test
55  loadext.test
56  malloc.test
57  malloc2.test
58  malloc3.test
59  malloc4.test
60  memleak.test
61  misc7.test
62  misuse.test
63  quick.test
64  soak.test
65  speed1.test
66  speed2.test
67  sqllimits1.test
68
69  incrvacuum_ioerr.test
70  autovacuum_crash.test
71  btree8.test
72  utf16.test
73  shared_err.test
74  vtab_err.test
75}
76
77if {[sqlite3 -has-codec]} {
78  # lappend EXCLUDE \
79  #  conflict.test
80}
81
82
83# Files to include in the test.  If this list is empty then everything
84# that is not in the EXCLUDE list is run.
85#
86set INCLUDE {
87}
88
89foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
90  set tail [file tail $testfile]
91  if {[lsearch -exact $EXCLUDE $tail]>=0} continue
92  if {[llength $INCLUDE]>0 && [lsearch -exact $INCLUDE $tail]<0} continue
93  source $testfile
94  catch {db close}
95  if {$sqlite_open_file_count>0} {
96    puts "$tail did not close all files: $sqlite_open_file_count"
97    incr nErr
98    lappend ::failList $tail
99    set sqlite_open_file_count 0
100  }
101}
102source $testdir/misuse.test
103
104set sqlite_open_file_count 0
105really_finish_test
106