xref: /sqlite-3.40.0/test/veryquick.test (revision 16e45a43) 
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: veryquick.test,v 1.3 2008/04/19 20:34:19 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    -start {
26       set STARTAT "[lshift argv]*"
27    }
28    default {
29      set argv [linsert $argv 0 $arg]
30      break
31    }
32  }
33}
34
35set testdir [file dirname $argv0]
36source $testdir/tester.tcl
37rename finish_test really_finish_test
38proc finish_test {} {}
39set ISQUICK 1
40
41set EXCLUDE {
42  all.test
43  async.test
44  async2.test
45  altermalloc.test
46  attachmalloc.test
47  autovacuum_crash.test
48  autovacuum_ioerr.test
49  autovacuum_ioerr2.test
50  bitvec.test
51  corrupt.test
52  crash.test
53  crash2.test
54  crash3.test
55  crash4.test
56  crash6.test
57  crash7.test
58  diskfull.test
59  exclusive3.test
60  fts3.test
61  fuzz.test
62  fuzz_malloc.test
63  in2.test
64  interrupt.test
65  ioerr.test
66  ioerr2.test
67  jrnlmode3.test
68  loadext.test
69  mallocAll.test
70  malloc.test
71  malloc2.test
72  malloc3.test
73  malloc4.test
74  malloc5.test
75  malloc6.test
76  malloc7.test
77  malloc8.test
78  malloc9.test
79  mallocA.test
80  mallocB.test
81  mallocC.test
82  mallocD.test
83  mallocE.test
84  mallocF.test
85  mallocG.test
86  memleak.test
87  misc7.test
88  misuse.test
89  onefile.test
90  quick.test
91  soak.test
92  speed1.test
93  speed1p.test
94  speed2.test
95  speed3.test
96  speed4.test
97  speed4p.test
98  sqllimits1.test
99  vacuum3.test
100
101  tkt2686.test
102  thread001.test
103  thread002.test
104
105  incrvacuum_ioerr.test
106  autovacuum_crash.test
107  btree8.test
108  utf16.test
109  shared_err.test
110  vtab_err.test
111  veryquick.test
112}
113
114if {[sqlite3 -has-codec]} {
115  # lappend EXCLUDE \
116  #  conflict.test
117}
118
119
120# Files to include in the test.  If this list is empty then everything
121# that is not in the EXCLUDE list is run.
122#
123set INCLUDE {
124}
125
126foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
127  set tail [file tail $testfile]
128  if {[lsearch -exact $EXCLUDE $tail]>=0} continue
129  if {[llength $INCLUDE]>0 && [lsearch -exact $INCLUDE $tail]<0} continue
130  if {[info exists STARTAT] && [string match $STARTAT $tail]} {unset STARTAT}
131  if {[info exists STARTAT]} continue
132  source $testfile
133  catch {db close}
134  if {$sqlite_open_file_count>0} {
135    puts "$tail did not close all files: $sqlite_open_file_count"
136    incr nErr
137    lappend ::failList $tail
138    set sqlite_open_file_count 0
139  }
140}
141source $testdir/misuse.test
142
143set sqlite_open_file_count 0
144really_finish_test
145