Artifact
471611ee89e815accf5514fe4a00bcec569e373d:
- File
test/fts3.test
— part of check-in
[7c33eb5a]
at
2010-06-07 17:47:27
on branch trunk
— Change all.test, quick.test and permutations.test so that they use a separate interpreter for each test file.
(user:
dan
size: 1570)
0000: 23 20 32 30 30 37 20 4e 6f 76 65 6d 62 65 72 20 # 2007 November
0010: 32 33 0a 23 0a 23 20 20 20 20 4d 61 79 20 79 6f 23.#.# May yo
0020: 75 20 64 6f 20 67 6f 6f 64 20 61 6e 64 20 6e 6f u do good and no
0030: 74 20 65 76 69 6c 2e 0a 23 20 20 20 20 4d 61 79 t evil..# May
0040: 20 79 6f 75 20 66 69 6e 64 20 66 6f 72 67 69 76 you find forgiv
0050: 65 6e 65 73 73 20 66 6f 72 20 79 6f 75 72 73 65 eness for yourse
0060: 6c 66 20 61 6e 64 20 66 6f 72 67 69 76 65 20 6f lf and forgive o
0070: 74 68 65 72 73 2e 0a 23 20 20 20 20 4d 61 79 20 thers..# May
0080: 79 6f 75 20 73 68 61 72 65 20 66 72 65 65 6c 79 you share freely
0090: 2c 20 6e 65 76 65 72 20 74 61 6b 69 6e 67 20 6d , never taking m
00a0: 6f 72 65 20 74 68 61 6e 20 79 6f 75 20 67 69 76 ore than you giv
00b0: 65 2e 0a 23 0a 23 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a e..#.#**********
00c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
00d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
00e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
00f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 23 20 *************.#
0100: 54 68 69 73 20 66 69 6c 65 20 72 75 6e 73 20 61 This file runs a
0110: 6c 6c 20 74 65 73 74 73 2e 0a 23 0a 23 20 24 49 ll tests..#.# $I
0120: 64 3a 20 66 74 73 33 2e 74 65 73 74 2c 76 20 31 d: fts3.test,v 1
0130: 2e 32 20 32 30 30 38 2f 30 37 2f 32 33 20 31 38 .2 2008/07/23 18
0140: 3a 31 37 3a 33 32 20 64 72 68 20 45 78 70 20 24 :17:32 drh Exp $
0150: 0a 0a 70 72 6f 63 20 6c 73 68 69 66 74 20 7b 6c ..proc lshift {l
0160: 76 61 72 7d 20 7b 0a 20 20 75 70 76 61 72 20 24 var} {. upvar $
0170: 6c 76 61 72 20 6c 0a 20 20 73 65 74 20 72 65 74 lvar l. set ret
0180: 20 5b 6c 69 6e 64 65 78 20 24 6c 20 30 5d 0a 20 [lindex $l 0].
0190: 20 73 65 74 20 6c 20 5b 6c 72 61 6e 67 65 20 24 set l [lrange $
01a0: 6c 20 31 20 65 6e 64 5d 0a 20 20 72 65 74 75 72 l 1 end]. retur
01b0: 6e 20 24 72 65 74 0a 7d 0a 77 68 69 6c 65 20 7b n $ret.}.while {
01c0: 5b 73 65 74 20 61 72 67 20 5b 6c 73 68 69 66 74 [set arg [lshift
01d0: 20 61 72 67 76 5d 5d 20 21 3d 20 22 22 7d 20 7b argv]] != ""} {
01e0: 0a 20 20 73 77 69 74 63 68 20 2d 2d 20 24 61 72 . switch -- $ar
01f0: 67 20 7b 0a 20 20 20 20 2d 73 68 61 72 65 64 70 g {. -sharedp
0200: 61 67 65 72 63 61 63 68 65 20 7b 0a 20 20 20 20 agercache {.
0210: 20 20 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 sqlite3_enable
0220: 5f 73 68 61 72 65 64 5f 63 61 63 68 65 20 31 0a _shared_cache 1.
0230: 20 20 20 20 7d 0a 20 20 20 20 2d 73 6f 61 6b 20 }. -soak
0240: 7b 0a 20 20 20 20 20 20 20 73 65 74 20 47 28 69 {. set G(i
0250: 73 73 6f 61 6b 29 20 31 0a 20 20 20 20 7d 0a 20 ssoak) 1. }.
0260: 20 20 20 64 65 66 61 75 6c 74 20 7b 0a 20 20 20 default {.
0270: 20 20 20 73 65 74 20 61 72 67 76 20 5b 6c 69 6e set argv [lin
0280: 73 65 72 74 20 24 61 72 67 76 20 30 20 24 61 72 sert $argv 0 $ar
0290: 67 5d 0a 20 20 20 20 20 20 62 72 65 61 6b 0a 20 g]. break.
02a0: 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 73 65 74 20 }. }.}..set
02b0: 74 65 73 74 64 69 72 20 5b 66 69 6c 65 20 64 69 testdir [file di
02c0: 72 6e 61 6d 65 20 24 61 72 67 76 30 5d 0a 73 6f rname $argv0].so
02d0: 75 72 63 65 20 24 74 65 73 74 64 69 72 2f 74 65 urce $testdir/te
02e0: 73 74 65 72 2e 74 63 6c 0a 23 20 49 66 20 53 51 ster.tcl.# If SQ
02f0: 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 46 54 53 33 LITE_ENABLE_FTS3
0300: 20 69 73 20 64 65 66 69 6e 65 64 2c 20 6f 6d 69 is defined, omi
0310: 74 20 74 68 69 73 20 66 69 6c 65 2e 0a 69 66 63 t this file..ifc
0320: 61 70 61 62 6c 65 20 21 66 74 73 33 20 7b 0a 20 apable !fts3 {.
0330: 20 72 65 74 75 72 6e 0a 7d 0a 72 65 6e 61 6d 65 return.}.rename
0340: 20 66 69 6e 69 73 68 5f 74 65 73 74 20 72 65 61 finish_test rea
0350: 6c 6c 79 5f 66 69 6e 69 73 68 5f 74 65 73 74 0a lly_finish_test.
0360: 70 72 6f 63 20 66 69 6e 69 73 68 5f 74 65 73 74 proc finish_test
0370: 20 7b 7d 20 7b 7d 0a 73 65 74 20 47 28 69 73 71 {} {}.set G(isq
0380: 75 69 63 6b 29 20 31 0a 0a 73 65 74 20 45 58 43 uick) 1..set EXC
0390: 4c 55 44 45 20 7b 0a 20 20 66 74 73 33 2e 74 65 LUDE {. fts3.te
03a0: 73 74 0a 20 20 66 74 73 33 6d 61 6c 6c 6f 63 2e st. fts3malloc.
03b0: 74 65 73 74 0a 20 20 66 74 73 33 72 6e 64 2e 74 test. fts3rnd.t
03c0: 65 73 74 0a 7d 0a 0a 23 20 46 69 6c 65 73 20 74 est.}..# Files t
03d0: 6f 20 69 6e 63 6c 75 64 65 20 69 6e 20 74 68 65 o include in the
03e0: 20 74 65 73 74 2e 20 20 49 66 20 74 68 69 73 20 test. If this
03f0: 6c 69 73 74 20 69 73 20 65 6d 70 74 79 20 74 68 list is empty th
0400: 65 6e 20 65 76 65 72 79 74 68 69 6e 67 0a 23 20 en everything.#
0410: 74 68 61 74 20 69 73 20 6e 6f 74 20 69 6e 20 74 that is not in t
0420: 68 65 20 45 58 43 4c 55 44 45 20 6c 69 73 74 20 he EXCLUDE list
0430: 69 73 20 72 75 6e 2e 0a 23 0a 73 65 74 20 49 4e is run..#.set IN
0440: 43 4c 55 44 45 20 7b 0a 7d 0a 0a 66 6f 72 65 61 CLUDE {.}..forea
0450: 63 68 20 74 65 73 74 66 69 6c 65 20 5b 6c 73 6f ch testfile [lso
0460: 72 74 20 2d 64 69 63 74 69 6f 6e 61 72 79 20 5b rt -dictionary [
0470: 67 6c 6f 62 20 24 74 65 73 74 64 69 72 2f 66 74 glob $testdir/ft
0480: 73 33 2a 2e 74 65 73 74 5d 5d 20 7b 0a 20 20 73 s3*.test]] {. s
0490: 65 74 20 74 61 69 6c 20 5b 66 69 6c 65 20 74 61 et tail [file ta
04a0: 69 6c 20 24 74 65 73 74 66 69 6c 65 5d 0a 20 20 il $testfile].
04b0: 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 2d 65 78 if {[lsearch -ex
04c0: 61 63 74 20 24 45 58 43 4c 55 44 45 20 24 74 61 act $EXCLUDE $ta
04d0: 69 6c 5d 3e 3d 30 7d 20 63 6f 6e 74 69 6e 75 65 il]>=0} continue
04e0: 0a 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 . if {[llength
04f0: 24 49 4e 43 4c 55 44 45 5d 3e 30 20 26 26 20 5b $INCLUDE]>0 && [
0500: 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74 20 24 lsearch -exact $
0510: 49 4e 43 4c 55 44 45 20 24 74 61 69 6c 5d 3c 30 INCLUDE $tail]<0
0520: 7d 20 63 6f 6e 74 69 6e 75 65 0a 20 20 73 6f 75 } continue. sou
0530: 72 63 65 20 24 74 65 73 74 66 69 6c 65 0a 20 20 rce $testfile.
0540: 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d catch {db close}
0550: 0a 20 20 69 66 20 7b 24 73 71 6c 69 74 65 5f 6f . if {$sqlite_o
0560: 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 3e 30 pen_file_count>0
0570: 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22 24 74 } {. puts "$t
0580: 61 69 6c 20 64 69 64 20 6e 6f 74 20 63 6c 6f 73 ail did not clos
0590: 65 20 61 6c 6c 20 66 69 6c 65 73 3a 20 24 73 71 e all files: $sq
05a0: 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 lite_open_file_c
05b0: 6f 75 6e 74 22 0a 20 20 20 20 66 61 69 6c 5f 74 ount". fail_t
05c0: 65 73 74 20 24 74 61 69 6c 0a 20 20 20 20 73 65 est $tail. se
05d0: 74 20 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 t sqlite_open_fi
05e0: 6c 65 5f 63 6f 75 6e 74 20 30 0a 20 20 7d 0a 7d le_count 0. }.}
05f0: 0a 0a 73 65 74 20 73 71 6c 69 74 65 5f 6f 70 65 ..set sqlite_ope
0600: 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 20 30 0a 72 n_file_count 0.r
0610: 65 61 6c 6c 79 5f 66 69 6e 69 73 68 5f 74 65 73 eally_finish_tes
0620: 74 0a t.