OLD | NEW |
| (Empty) |
1 # 2008 July 22 | |
2 # | |
3 # May you do good and not evil. | |
4 # May you find forgiveness for yourself and forgive others. | |
5 # May you share freely, never taking more than you give. | |
6 # | |
7 #*********************************************************************** | |
8 # This file runs all tests. | |
9 # | |
10 # $Id: fts2.test,v 1.2 2008/07/23 18:17:32 drh Exp $ | |
11 | |
12 proc lshift {lvar} { | |
13 upvar $lvar l | |
14 set ret [lindex $l 0] | |
15 set l [lrange $l 1 end] | |
16 return $ret | |
17 } | |
18 while {[set arg [lshift argv]] != ""} { | |
19 switch -- $arg { | |
20 -sharedpagercache { | |
21 sqlite3_enable_shared_cache 1 | |
22 } | |
23 -soak { | |
24 set G(issoak) 1 | |
25 } | |
26 default { | |
27 set argv [linsert $argv 0 $arg] | |
28 break | |
29 } | |
30 } | |
31 } | |
32 | |
33 set testdir [file dirname $argv0] | |
34 source $testdir/tester.tcl | |
35 # If SQLITE_ENABLE_FTS2 is defined, omit this file. | |
36 ifcapable !fts2 { | |
37 return | |
38 } | |
39 rename finish_test really_finish_test | |
40 proc finish_test {} {} | |
41 set G(isquick) 1 | |
42 | |
43 set EXCLUDE { | |
44 fts2.test | |
45 } | |
46 | |
47 # Files to include in the test. If this list is empty then everything | |
48 # that is not in the EXCLUDE list is run. | |
49 # | |
50 set INCLUDE { | |
51 } | |
52 | |
53 foreach testfile [lsort -dictionary [glob $testdir/fts2*.test]] { | |
54 set tail [file tail $testfile] | |
55 if {[lsearch -exact $EXCLUDE $tail]>=0} continue | |
56 if {[llength $INCLUDE]>0 && [lsearch -exact $INCLUDE $tail]<0} continue | |
57 source $testfile | |
58 catch {db close} | |
59 if {$sqlite_open_file_count>0} { | |
60 puts "$tail did not close all files: $sqlite_open_file_count" | |
61 fail_test $tail | |
62 set sqlite_open_file_count 0 | |
63 } | |
64 } | |
65 | |
66 set sqlite_open_file_count 0 | |
67 really_finish_test | |
OLD | NEW |