xref: /sqlite-3.40.0/test/quick.test (revision 961303c1) 
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.63 2007/09/10 10:53:02 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  thread001.test
70  thread002.test
71
72  incrvacuum_ioerr.test
73  autovacuum_crash.test
74  btree8.test
75  utf16.test
76  shared_err.test
77  vtab_err.test
78}
79
80if {[sqlite3 -has-codec]} {
81  # lappend EXCLUDE \
82  #  conflict.test
83}
84
85
86# Files to include in the test.  If this list is empty then everything
87# that is not in the EXCLUDE list is run.
88#
89set INCLUDE {
90}
91
92foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
93  set tail [file tail $testfile]
94  if {[lsearch -exact $EXCLUDE $tail]>=0} continue
95  if {[llength $INCLUDE]>0 && [lsearch -exact $INCLUDE $tail]<0} continue
96  source $testfile
97  catch {db close}
98  if {$sqlite_open_file_count>0} {
99    puts "$tail did not close all files: $sqlite_open_file_count"
100    incr nErr
101    lappend ::failList $tail
102    set sqlite_open_file_count 0
103  }
104}
105source $testdir/misuse.test
106
107set sqlite_open_file_count 0
108really_finish_test
109