xref: /sqlite-3.40.0/test/quick.test (revision 85b623f2) 
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.67 2007/11/26 13:36:00 drh 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  fts3.test
53  fuzz.test
54  fuzz_malloc.test
55  in2.test
56  loadext.test
57  mallocAll.test
58  malloc.test
59  malloc2.test
60  malloc3.test
61  malloc4.test
62  memleak.test
63  misc7.test
64  misuse.test
65  onefile.test
66  quick.test
67  soak.test
68  speed1.test
69  speed2.test
70  speed4.test
71  sqllimits1.test
72
73  thread001.test
74  thread002.test
75
76  incrvacuum_ioerr.test
77  autovacuum_crash.test
78  btree8.test
79  utf16.test
80  shared_err.test
81  vtab_err.test
82}
83
84if {[sqlite3 -has-codec]} {
85  # lappend EXCLUDE \
86  #  conflict.test
87}
88
89
90# Files to include in the test.  If this list is empty then everything
91# that is not in the EXCLUDE list is run.
92#
93set INCLUDE {
94}
95
96foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
97  set tail [file tail $testfile]
98  if {[lsearch -exact $EXCLUDE $tail]>=0} continue
99  if {[llength $INCLUDE]>0 && [lsearch -exact $INCLUDE $tail]<0} continue
100  source $testfile
101  catch {db close}
102  if {$sqlite_open_file_count>0} {
103    puts "$tail did not close all files: $sqlite_open_file_count"
104    incr nErr
105    lappend ::failList $tail
106    set sqlite_open_file_count 0
107  }
108}
109source $testdir/misuse.test
110
111set sqlite_open_file_count 0
112really_finish_test
113