/ Hex Artifact Content
Login

Artifact 771a6b3a88fdd0e7e813ce013ceda29037bc9462:


0000: 23 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 64  #.#    May you d
0010: 6f 20 67 6f 6f 64 20 61 6e 64 20 6e 6f 74 20 65  o good and not e
0020: 76 69 6c 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f  vil..#    May yo
0030: 75 20 66 69 6e 64 20 66 6f 72 67 69 76 65 6e 65  u find forgivene
0040: 73 73 20 66 6f 72 20 79 6f 75 72 73 65 6c 66 20  ss for yourself 
0050: 61 6e 64 20 66 6f 72 67 69 76 65 20 6f 74 68 65  and forgive othe
0060: 72 73 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75  rs..#    May you
0070: 20 73 68 61 72 65 20 66 72 65 65 6c 79 2c 20 6e   share freely, n
0080: 65 76 65 72 20 74 61 6b 69 6e 67 20 6d 6f 72 65  ever taking more
0090: 20 74 68 61 6e 20 79 6f 75 20 67 69 76 65 2e 0a   than you give..
00a0: 23 0a 23 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  #.#*************
00b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
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 0a 23 20 54 68 69  **********.# Thi
00f0: 73 20 66 69 6c 65 20 72 75 6e 73 20 61 6c 6c 20  s file runs all 
0100: 74 65 73 74 73 2e 0a 23 0a 23 20 24 49 64 3a 20  tests..#.# $Id: 
0110: 71 75 69 63 6b 2e 74 65 73 74 2c 76 20 31 2e 36  quick.test,v 1.6
0120: 39 20 32 30 30 38 2f 30 31 2f 31 36 20 31 38 3a  9 2008/01/16 18:
0130: 32 30 3a 34 32 20 64 61 6e 69 65 6c 6b 31 39 37  20:42 danielk197
0140: 37 20 45 78 70 20 24 0a 0a 70 72 6f 63 20 6c 73  7 Exp $..proc ls
0150: 68 69 66 74 20 7b 6c 76 61 72 7d 20 7b 0a 20 20  hift {lvar} {.  
0160: 75 70 76 61 72 20 24 6c 76 61 72 20 6c 0a 20 20  upvar $lvar l.  
0170: 73 65 74 20 72 65 74 20 5b 6c 69 6e 64 65 78 20  set ret [lindex 
0180: 24 6c 20 30 5d 0a 20 20 73 65 74 20 6c 20 5b 6c  $l 0].  set l [l
0190: 72 61 6e 67 65 20 24 6c 20 31 20 65 6e 64 5d 0a  range $l 1 end].
01a0: 20 20 72 65 74 75 72 6e 20 24 72 65 74 0a 7d 0a    return $ret.}.
01b0: 77 68 69 6c 65 20 7b 5b 73 65 74 20 61 72 67 20  while {[set arg 
01c0: 5b 6c 73 68 69 66 74 20 61 72 67 76 5d 5d 20 21  [lshift argv]] !
01d0: 3d 20 22 22 7d 20 7b 0a 20 20 73 77 69 74 63 68  = ""} {.  switch
01e0: 20 2d 2d 20 24 61 72 67 20 7b 0a 20 20 20 20 2d   -- $arg {.    -
01f0: 73 68 61 72 65 64 70 61 67 65 72 63 61 63 68 65  sharedpagercache
0200: 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33   {.      sqlite3
0210: 5f 65 6e 61 62 6c 65 5f 73 68 61 72 65 64 5f 63  _enable_shared_c
0220: 61 63 68 65 20 31 0a 20 20 20 20 7d 0a 20 20 20  ache 1.    }.   
0230: 20 2d 73 6f 61 6b 20 7b 0a 20 20 20 20 20 20 20   -soak {.       
0240: 73 65 74 20 53 4f 41 4b 54 45 53 54 20 31 0a 20  set SOAKTEST 1. 
0250: 20 20 20 7d 0a 20 20 20 20 64 65 66 61 75 6c 74     }.    default
0260: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 61 72 67   {.      set arg
0270: 76 20 5b 6c 69 6e 73 65 72 74 20 24 61 72 67 76  v [linsert $argv
0280: 20 30 20 24 61 72 67 5d 0a 20 20 20 20 20 20 62   0 $arg].      b
0290: 72 65 61 6b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d  reak.    }.  }.}
02a0: 0a 0a 73 65 74 20 74 65 73 74 64 69 72 20 5b 66  ..set testdir [f
02b0: 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 61 72 67  ile dirname $arg
02c0: 76 30 5d 0a 73 6f 75 72 63 65 20 24 74 65 73 74  v0].source $test
02d0: 64 69 72 2f 74 65 73 74 65 72 2e 74 63 6c 0a 72  dir/tester.tcl.r
02e0: 65 6e 61 6d 65 20 66 69 6e 69 73 68 5f 74 65 73  ename finish_tes
02f0: 74 20 72 65 61 6c 6c 79 5f 66 69 6e 69 73 68 5f  t really_finish_
0300: 74 65 73 74 0a 70 72 6f 63 20 66 69 6e 69 73 68  test.proc finish
0310: 5f 74 65 73 74 20 7b 7d 20 7b 7d 0a 73 65 74 20  _test {} {}.set 
0320: 49 53 51 55 49 43 4b 20 31 0a 0a 73 65 74 20 45  ISQUICK 1..set E
0330: 58 43 4c 55 44 45 20 7b 0a 20 20 61 6c 6c 2e 74  XCLUDE {.  all.t
0340: 65 73 74 0a 20 20 61 73 79 6e 63 2e 74 65 73 74  est.  async.test
0350: 0a 20 20 61 73 79 6e 63 32 2e 74 65 73 74 0a 20  .  async2.test. 
0360: 20 62 74 72 65 65 32 2e 74 65 73 74 0a 20 20 62   btree2.test.  b
0370: 74 72 65 65 33 2e 74 65 73 74 0a 20 20 62 74 72  tree3.test.  btr
0380: 65 65 34 2e 74 65 73 74 0a 20 20 62 74 72 65 65  ee4.test.  btree
0390: 35 2e 74 65 73 74 0a 20 20 62 74 72 65 65 36 2e  5.test.  btree6.
03a0: 74 65 73 74 0a 20 20 63 6f 72 72 75 70 74 2e 74  test.  corrupt.t
03b0: 65 73 74 0a 20 20 63 72 61 73 68 2e 74 65 73 74  est.  crash.test
03c0: 0a 20 20 63 72 61 73 68 32 2e 74 65 73 74 0a 20  .  crash2.test. 
03d0: 20 63 72 61 73 68 33 2e 74 65 73 74 0a 20 20 63   crash3.test.  c
03e0: 72 61 73 68 34 2e 74 65 73 74 0a 20 20 65 78 63  rash4.test.  exc
03f0: 6c 75 73 69 76 65 33 2e 74 65 73 74 0a 20 20 66  lusive3.test.  f
0400: 74 73 33 2e 74 65 73 74 0a 20 20 66 75 7a 7a 2e  ts3.test.  fuzz.
0410: 74 65 73 74 0a 20 20 66 75 7a 7a 5f 6d 61 6c 6c  test.  fuzz_mall
0420: 6f 63 2e 74 65 73 74 0a 20 20 69 6e 32 2e 74 65  oc.test.  in2.te
0430: 73 74 0a 20 20 6c 6f 61 64 65 78 74 2e 74 65 73  st.  loadext.tes
0440: 74 0a 20 20 6d 61 6c 6c 6f 63 41 6c 6c 2e 74 65  t.  mallocAll.te
0450: 73 74 0a 20 20 6d 61 6c 6c 6f 63 2e 74 65 73 74  st.  malloc.test
0460: 0a 20 20 6d 61 6c 6c 6f 63 32 2e 74 65 73 74 0a  .  malloc2.test.
0470: 20 20 6d 61 6c 6c 6f 63 33 2e 74 65 73 74 0a 20    malloc3.test. 
0480: 20 6d 61 6c 6c 6f 63 34 2e 74 65 73 74 0a 20 20   malloc4.test.  
0490: 6d 65 6d 6c 65 61 6b 2e 74 65 73 74 0a 20 20 6d  memleak.test.  m
04a0: 69 73 63 37 2e 74 65 73 74 0a 20 20 6d 69 73 75  isc7.test.  misu
04b0: 73 65 2e 74 65 73 74 0a 20 20 6f 6e 65 66 69 6c  se.test.  onefil
04c0: 65 2e 74 65 73 74 0a 20 20 71 75 69 63 6b 2e 74  e.test.  quick.t
04d0: 65 73 74 0a 20 20 73 6f 61 6b 2e 74 65 73 74 0a  est.  soak.test.
04e0: 20 20 73 70 65 65 64 31 2e 74 65 73 74 0a 20 20    speed1.test.  
04f0: 73 70 65 65 64 32 2e 74 65 73 74 0a 20 20 73 70  speed2.test.  sp
0500: 65 65 64 34 2e 74 65 73 74 0a 20 20 73 71 6c 6c  eed4.test.  sqll
0510: 69 6d 69 74 73 31 2e 74 65 73 74 0a 0a 20 20 74  imits1.test..  t
0520: 68 72 65 61 64 30 30 31 2e 74 65 73 74 0a 20 20  hread001.test.  
0530: 74 68 72 65 61 64 30 30 32 2e 74 65 73 74 0a 0a  thread002.test..
0540: 20 20 69 6e 63 72 76 61 63 75 75 6d 5f 69 6f 65    incrvacuum_ioe
0550: 72 72 2e 74 65 73 74 0a 20 20 61 75 74 6f 76 61  rr.test.  autova
0560: 63 75 75 6d 5f 63 72 61 73 68 2e 74 65 73 74 0a  cuum_crash.test.
0570: 20 20 62 74 72 65 65 38 2e 74 65 73 74 0a 20 20    btree8.test.  
0580: 75 74 66 31 36 2e 74 65 73 74 0a 20 20 73 68 61  utf16.test.  sha
0590: 72 65 64 5f 65 72 72 2e 74 65 73 74 0a 20 20 76  red_err.test.  v
05a0: 74 61 62 5f 65 72 72 2e 74 65 73 74 0a 7d 0a 0a  tab_err.test.}..
05b0: 69 66 20 7b 5b 73 71 6c 69 74 65 33 20 2d 68 61  if {[sqlite3 -ha
05c0: 73 2d 63 6f 64 65 63 5d 7d 20 7b 0a 20 20 23 20  s-codec]} {.  # 
05d0: 6c 61 70 70 65 6e 64 20 45 58 43 4c 55 44 45 20  lappend EXCLUDE 
05e0: 5c 0a 20 20 23 20 20 63 6f 6e 66 6c 69 63 74 2e  \.  #  conflict.
05f0: 74 65 73 74 0a 7d 0a 0a 0a 23 20 46 69 6c 65 73  test.}...# Files
0600: 20 74 6f 20 69 6e 63 6c 75 64 65 20 69 6e 20 74   to include in t
0610: 68 65 20 74 65 73 74 2e 20 20 49 66 20 74 68 69  he test.  If thi
0620: 73 20 6c 69 73 74 20 69 73 20 65 6d 70 74 79 20  s list is empty 
0630: 74 68 65 6e 20 65 76 65 72 79 74 68 69 6e 67 0a  then everything.
0640: 23 20 74 68 61 74 20 69 73 20 6e 6f 74 20 69 6e  # that is not in
0650: 20 74 68 65 20 45 58 43 4c 55 44 45 20 6c 69 73   the EXCLUDE lis
0660: 74 20 69 73 20 72 75 6e 2e 0a 23 0a 73 65 74 20  t is run..#.set 
0670: 49 4e 43 4c 55 44 45 20 7b 0a 7d 0a 0a 66 6f 72  INCLUDE {.}..for
0680: 65 61 63 68 20 74 65 73 74 66 69 6c 65 20 5b 6c  each testfile [l
0690: 73 6f 72 74 20 2d 64 69 63 74 69 6f 6e 61 72 79  sort -dictionary
06a0: 20 5b 67 6c 6f 62 20 24 74 65 73 74 64 69 72 2f   [glob $testdir/
06b0: 2a 2e 74 65 73 74 5d 5d 20 7b 0a 20 20 73 65 74  *.test]] {.  set
06c0: 20 74 61 69 6c 20 5b 66 69 6c 65 20 74 61 69 6c   tail [file tail
06d0: 20 24 74 65 73 74 66 69 6c 65 5d 0a 20 20 69 66   $testfile].  if
06e0: 20 7b 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63   {[lsearch -exac
06f0: 74 20 24 45 58 43 4c 55 44 45 20 24 74 61 69 6c  t $EXCLUDE $tail
0700: 5d 3e 3d 30 7d 20 63 6f 6e 74 69 6e 75 65 0a 20  ]>=0} continue. 
0710: 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 49   if {[llength $I
0720: 4e 43 4c 55 44 45 5d 3e 30 20 26 26 20 5b 6c 73  NCLUDE]>0 && [ls
0730: 65 61 72 63 68 20 2d 65 78 61 63 74 20 24 49 4e  earch -exact $IN
0740: 43 4c 55 44 45 20 24 74 61 69 6c 5d 3c 30 7d 20  CLUDE $tail]<0} 
0750: 63 6f 6e 74 69 6e 75 65 0a 20 20 73 6f 75 72 63  continue.  sourc
0760: 65 20 24 74 65 73 74 66 69 6c 65 0a 20 20 63 61  e $testfile.  ca
0770: 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 20  tch {db close}. 
0780: 20 69 66 20 7b 24 73 71 6c 69 74 65 5f 6f 70 65   if {$sqlite_ope
0790: 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 3e 30 7d 20  n_file_count>0} 
07a0: 7b 0a 20 20 20 20 70 75 74 73 20 22 24 74 61 69  {.    puts "$tai
07b0: 6c 20 64 69 64 20 6e 6f 74 20 63 6c 6f 73 65 20  l did not close 
07c0: 61 6c 6c 20 66 69 6c 65 73 3a 20 24 73 71 6c 69  all files: $sqli
07d0: 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75  te_open_file_cou
07e0: 6e 74 22 0a 20 20 20 20 69 6e 63 72 20 6e 45 72  nt".    incr nEr
07f0: 72 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 3a 3a  r.    lappend ::
0800: 66 61 69 6c 4c 69 73 74 20 24 74 61 69 6c 0a 20  failList $tail. 
0810: 20 20 20 73 65 74 20 73 71 6c 69 74 65 5f 6f 70     set sqlite_op
0820: 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 20 30 0a  en_file_count 0.
0830: 20 20 7d 0a 7d 0a 73 6f 75 72 63 65 20 24 74 65    }.}.source $te
0840: 73 74 64 69 72 2f 6d 69 73 75 73 65 2e 74 65 73  stdir/misuse.tes
0850: 74 0a 0a 73 65 74 20 73 71 6c 69 74 65 5f 6f 70  t..set sqlite_op
0860: 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 20 30 0a  en_file_count 0.
0870: 72 65 61 6c 6c 79 5f 66 69 6e 69 73 68 5f 74 65  really_finish_te
0880: 73 74 0a 0a 0a                                   st...