/ Hex Artifact Content
Login

Artifact 471611ee89e815accf5514fe4a00bcec569e373d:


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.