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