/ Hex Artifact Content
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

Artifact 27f9413c3343bac200a28d81e8234adb0f5e141c4771893cb19b40235a91f1e0:


0000: 23 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20  # Documentation 
0010: 66 6f 72 20 74 68 69 73 20 73 63 72 69 70 74 2e  for this script.
0020: 20 54 68 69 73 20 6d 61 79 20 62 65 20 6f 75 74   This may be out
0030: 70 75 74 20 74 6f 20 73 74 64 65 72 72 0a 23 20  put to stderr.# 
0040: 69 66 20 74 68 65 20 73 63 72 69 70 74 20 69 73  if the script is
0050: 20 69 6e 76 6f 6b 65 64 20 69 6e 63 6f 72 72 65   invoked incorre
0060: 63 74 6c 79 2e 0a 73 65 74 20 3a 3a 55 53 41 47  ctly..set ::USAG
0070: 45 5f 4d 45 53 53 41 47 45 20 7b 0a 54 68 69 73  E_MESSAGE {.This
0080: 20 54 63 6c 20 73 63 72 69 70 74 20 69 73 20 75   Tcl script is u
0090: 73 65 64 20 74 6f 20 74 65 73 74 20 74 68 65 20  sed to test the 
00a0: 76 61 72 69 6f 75 73 20 63 6f 6d 70 69 6c 65 20  various compile 
00b0: 74 69 6d 65 20 6f 70 74 69 6f 6e 73 20 0a 61 76  time options .av
00c0: 61 69 6c 61 62 6c 65 20 66 6f 72 20 6f 6d 69 74  ailable for omit
00d0: 74 69 6e 67 20 63 6f 64 65 20 28 74 68 65 20 53  ting code (the S
00e0: 51 4c 49 54 45 5f 4f 4d 49 54 5f 78 78 78 20 6f  QLITE_OMIT_xxx o
00f0: 70 74 69 6f 6e 73 29 2e 20 49 74 0a 73 68 6f 75  ptions). It.shou
0100: 6c 64 20 62 65 20 69 6e 76 6f 6b 65 64 20 61 73  ld be invoked as
0110: 20 66 6f 6c 6c 6f 77 73 3a 0a 0a 20 20 20 20 3c   follows:..    <
0120: 73 63 72 69 70 74 3e 20 3f 74 65 73 74 2d 73 79  script> ?test-sy
0130: 6d 62 6f 6c 3f 20 3f 2d 6d 61 6b 65 66 69 6c 65  mbol? ?-makefile
0140: 20 50 41 54 48 2d 54 4f 2d 4d 41 4b 45 46 49 4c   PATH-TO-MAKEFIL
0150: 45 3f 20 3f 2d 73 6b 69 70 5f 72 75 6e 3f 0a 0a  E? ?-skip_run?..
0160: 54 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75  The default valu
0170: 65 20 66 6f 72 20 3a 3a 4d 41 4b 45 46 49 4c 45  e for ::MAKEFILE
0180: 20 69 73 20 22 2e 2e 2f 4d 61 6b 65 66 69 6c 65   is "../Makefile
0190: 2e 6c 69 6e 75 78 2e 67 63 63 22 2e 0a 0a 49 66  .linux.gcc"...If
01a0: 20 2d 73 6b 69 70 5f 72 75 6e 20 6f 70 74 69 6f   -skip_run optio
01b0: 6e 20 69 73 20 67 69 76 65 6e 20 74 68 65 6e 20  n is given then 
01c0: 6f 6e 6c 79 20 74 68 65 20 63 6f 6d 70 69 6c 65  only the compile
01d0: 20 70 61 72 74 20 69 73 20 61 74 74 65 6d 70 74   part is attempt
01e0: 65 64 2e 0a 0a 54 68 69 73 20 73 63 72 69 70 74  ed...This script
01f0: 20 62 75 69 6c 64 73 20 74 68 65 20 74 65 73 74   builds the test
0200: 66 69 78 74 75 72 65 20 70 72 6f 67 72 61 6d 20  fixture program 
0210: 61 6e 64 20 72 75 6e 73 20 74 68 65 20 53 51 4c  and runs the SQL
0220: 69 74 65 20 74 65 73 74 20 73 75 69 74 65 0a 6f  ite test suite.o
0230: 6e 63 65 20 77 69 74 68 20 65 61 63 68 20 53 51  nce with each SQ
0240: 4c 49 54 45 5f 4f 4d 49 54 5f 20 6f 70 74 69 6f  LITE_OMIT_ optio
0250: 6e 20 64 65 66 69 6e 65 64 20 61 6e 64 20 74 68  n defined and th
0260: 65 6e 20 6f 6e 63 65 20 77 69 74 68 20 61 6c 6c  en once with all
0270: 20 6f 70 74 69 6f 6e 73 0a 64 65 66 69 6e 65 64   options.defined
0280: 20 74 6f 67 65 74 68 65 72 2e 20 45 61 63 68 20   together. Each 
0290: 72 75 6e 20 69 73 20 70 65 72 66 6f 72 6d 65 64  run is performed
02a0: 20 69 6e 20 61 20 73 65 70 65 72 61 74 65 20 64   in a seperate d
02b0: 69 72 65 63 74 6f 72 79 20 63 72 65 61 74 65 64  irectory created
02c0: 0a 61 73 20 61 20 73 75 62 2d 64 69 72 65 63 74  .as a sub-direct
02d0: 6f 72 79 20 6f 66 20 74 68 65 20 63 75 72 72 65  ory of the curre
02e0: 6e 74 20 64 69 72 65 63 74 6f 72 79 20 62 79 20  nt directory by 
02f0: 74 68 65 20 73 63 72 69 70 74 2e 20 54 68 65 20  the script. The 
0300: 6f 75 74 70 75 74 0a 6f 66 20 74 68 65 20 62 75  output.of the bu
0310: 69 6c 64 20 69 73 20 73 61 76 65 64 20 69 6e 20  ild is saved in 
0320: 3c 73 75 62 2d 64 69 72 65 63 74 6f 72 79 3e 2f  <sub-directory>/
0330: 62 75 69 6c 64 2e 6c 6f 67 2e 20 54 68 65 20 6f  build.log. The o
0340: 75 74 70 75 74 20 6f 66 20 74 68 65 0a 74 65 73  utput of the.tes
0350: 74 2d 73 75 69 74 65 20 69 73 20 73 61 76 65 64  t-suite is saved
0360: 20 69 6e 20 3c 73 75 62 2d 64 69 72 65 63 74 6f   in <sub-directo
0370: 72 79 3e 2f 74 65 73 74 2e 6c 6f 67 2e 0a 0a 41  ry>/test.log...A
0380: 6c 6d 6f 73 74 20 61 6e 79 20 53 51 4c 69 74 65  lmost any SQLite
0390: 20 6d 61 6b 65 66 69 6c 65 20 28 65 78 63 65 70   makefile (excep
03a0: 74 20 74 68 6f 73 65 20 67 65 6e 65 72 61 74 65  t those generate
03b0: 64 20 62 79 20 63 6f 6e 66 69 67 75 72 65 20 2d  d by configure -
03c0: 20 73 65 65 20 62 65 6c 6f 77 29 0a 73 68 6f 75   see below).shou
03d0: 6c 64 20 77 6f 72 6b 2e 20 54 68 65 20 66 6f 6c  ld work. The fol
03e0: 6c 6f 77 69 6e 67 20 70 72 6f 70 65 72 74 69 65  lowing propertie
03f0: 73 20 61 72 65 20 72 65 71 75 69 72 65 64 3a 0a  s are required:.
0400: 0a 20 20 2a 20 54 68 65 20 6d 61 6b 65 66 69 6c  .  * The makefil
0410: 65 20 73 68 6f 75 6c 64 20 73 75 70 70 6f 72 74  e should support
0420: 20 74 68 65 20 22 74 65 73 74 66 69 78 74 75 72   the "testfixtur
0430: 65 22 20 74 61 72 67 65 74 2e 0a 20 20 2a 20 54  e" target..  * T
0440: 68 65 20 6d 61 6b 65 66 69 6c 65 20 73 68 6f 75  he makefile shou
0450: 6c 64 20 73 75 70 70 6f 72 74 20 74 68 65 20 22  ld support the "
0460: 74 65 73 74 22 20 74 61 72 67 65 74 2e 0a 20 20  test" target..  
0470: 2a 20 54 68 65 20 6d 61 6b 65 66 69 6c 65 20 73  * The makefile s
0480: 68 6f 75 6c 64 20 73 75 70 70 6f 72 74 20 74 68  hould support th
0490: 65 20 76 61 72 69 61 62 6c 65 20 22 4f 50 54 53  e variable "OPTS
04a0: 22 20 61 73 20 61 20 77 61 79 20 74 6f 20 70 61  " as a way to pa
04b0: 73 73 0a 20 20 20 20 6f 70 74 69 6f 6e 73 20 66  ss.    options f
04c0: 72 6f 6d 20 74 68 65 20 6d 61 6b 65 20 63 6f 6d  rom the make com
04d0: 6d 61 6e 64 20 6c 69 6e 65 20 74 6f 20 6c 65 6d  mand line to lem
04e0: 6f 6e 20 61 6e 64 20 74 68 65 20 43 20 63 6f 6d  on and the C com
04f0: 70 69 6c 65 72 2e 0a 0a 4d 6f 72 65 20 70 72 65  piler...More pre
0500: 63 69 73 65 6c 79 2c 20 74 68 65 20 66 6f 6c 6c  cisely, the foll
0510: 6f 77 69 6e 67 20 74 77 6f 20 69 6e 76 6f 63 61  owing two invoca
0520: 74 69 6f 6e 73 20 6d 75 73 74 20 62 65 20 73 75  tions must be su
0530: 70 70 6f 72 74 65 64 3a 0a 0a 20 20 24 3a 3a 4d  pported:..  $::M
0540: 41 4b 45 42 49 4e 20 2d 66 20 24 3a 3a 4d 41 4b  AKEBIN -f $::MAK
0550: 45 46 49 4c 45 20 74 65 73 74 66 69 78 74 75 72  EFILE testfixtur
0560: 65 20 4f 50 54 53 3d 22 2d 44 53 51 4c 49 54 45  e OPTS="-DSQLITE
0570: 5f 4f 4d 49 54 5f 41 4c 54 45 52 54 41 42 4c 45  _OMIT_ALTERTABLE
0580: 3d 31 22 0a 20 20 24 3a 3a 4d 41 4b 45 42 49 4e  =1".  $::MAKEBIN
0590: 20 2d 66 20 24 3a 3a 4d 41 4b 45 46 49 4c 45 20   -f $::MAKEFILE 
05a0: 74 65 73 74 0a 0a 4d 61 6b 65 66 69 6c 65 73 20  test..Makefiles 
05b0: 67 65 6e 65 72 61 74 65 64 20 62 79 20 74 68 65  generated by the
05c0: 20 73 71 6c 69 74 65 20 63 6f 6e 66 69 67 75 72   sqlite configur
05d0: 65 20 70 72 6f 67 72 61 6d 20 63 61 6e 6e 6f 74  e program cannot
05e0: 20 62 65 20 75 73 65 64 20 61 73 0a 74 68 65 79   be used as.they
05f0: 20 64 6f 20 6e 6f 74 20 72 65 73 70 65 63 74 20   do not respect 
0600: 74 68 65 20 4f 50 54 53 20 76 61 72 69 61 62 6c  the OPTS variabl
0610: 65 2e 0a 7d 0a 0a 0a 23 20 42 75 69 6c 64 20 61  e..}...# Build a
0620: 20 74 65 73 74 66 69 78 74 75 72 65 20 65 78 65   testfixture exe
0630: 63 75 74 61 62 6c 65 20 61 6e 64 20 72 75 6e 20  cutable and run 
0640: 71 75 69 63 6b 2e 74 65 73 74 20 75 73 69 6e 67  quick.test using
0650: 20 69 74 2e 20 54 68 65 20 66 69 72 73 74 0a 23   it. The first.#
0660: 20 70 61 72 61 6d 65 74 65 72 20 69 73 20 74 68   parameter is th
0670: 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 64 69  e name of the di
0680: 72 65 63 74 6f 72 79 20 74 6f 20 63 72 65 61 74  rectory to creat
0690: 65 20 61 6e 64 20 75 73 65 20 74 6f 20 72 75 6e  e and use to run
06a0: 20 74 68 65 0a 23 20 74 65 73 74 20 69 6e 2e 20   the.# test in. 
06b0: 54 68 65 20 73 65 63 6f 6e 64 20 70 61 72 61 6d  The second param
06c0: 65 74 65 72 20 69 73 20 61 20 6c 69 73 74 20 6f  eter is a list o
06d0: 66 20 4f 4d 49 54 20 73 79 6d 62 6f 6c 73 20 74  f OMIT symbols t
06e0: 6f 20 64 65 66 69 6e 65 0a 23 20 77 68 65 6e 20  o define.# when 
06f0: 64 6f 69 6e 67 20 73 6f 2e 20 46 6f 72 20 65 78  doing so. For ex
0700: 61 6d 70 6c 65 3a 0a 23 0a 23 20 20 20 20 20 72  ample:.#.#     r
0710: 75 6e 5f 71 75 69 63 6b 5f 74 65 73 74 20 2f 74  un_quick_test /t
0720: 6d 70 2f 74 65 73 74 64 69 72 20 7b 53 51 4c 49  mp/testdir {SQLI
0730: 54 45 5f 4f 4d 49 54 5f 54 52 49 47 47 45 52 20  TE_OMIT_TRIGGER 
0740: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 56 49 45 57  SQLITE_OMIT_VIEW
0750: 7d 0a 23 0a 23 0a 70 72 6f 63 20 72 75 6e 5f 71  }.#.#.proc run_q
0760: 75 69 63 6b 5f 74 65 73 74 20 7b 64 69 72 20 6f  uick_test {dir o
0770: 6d 69 74 5f 73 79 6d 62 6f 6c 5f 6c 69 73 74 7d  mit_symbol_list}
0780: 20 7b 0a 20 20 23 20 43 6f 6d 70 69 6c 65 20 74   {.  # Compile t
0790: 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20  he value of the 
07a0: 4f 50 54 53 20 4d 61 6b 65 66 69 6c 65 20 76 61  OPTS Makefile va
07b0: 72 69 61 62 6c 65 2e 0a 20 20 73 65 74 20 6f 70  riable..  set op
07c0: 74 73 20 22 22 0a 20 20 69 66 20 7b 24 3a 3a 74  ts "".  if {$::t
07d0: 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 70 6c 61 74  cl_platform(plat
07e0: 66 6f 72 6d 29 3d 3d 22 77 69 6e 64 6f 77 73 22  form)=="windows"
07f0: 7d 20 7b 0a 20 20 20 20 61 70 70 65 6e 64 20 6f  } {.    append o
0800: 70 74 73 20 22 4f 50 54 53 20 2b 3d 20 2d 44 53  pts "OPTS += -DS
0810: 51 4c 49 54 45 5f 4f 53 5f 57 49 4e 3d 31 5c 6e  QLITE_OS_WIN=1\n
0820: 22 0a 20 20 20 20 73 65 74 20 74 61 72 67 65 74  ".    set target
0830: 20 22 74 65 73 74 66 69 78 74 75 72 65 2e 65 78   "testfixture.ex
0840: 65 22 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20  e".  } else {.  
0850: 20 20 61 70 70 65 6e 64 20 6f 70 74 73 20 22 4f    append opts "O
0860: 50 54 53 20 2b 3d 20 2d 44 53 51 4c 49 54 45 5f  PTS += -DSQLITE_
0870: 4f 53 5f 55 4e 49 58 3d 31 5c 6e 22 0a 20 20 7d  OS_UNIX=1\n".  }
0880: 0a 20 20 66 6f 72 65 61 63 68 20 73 79 6d 20 24  .  foreach sym $
0890: 6f 6d 69 74 5f 73 79 6d 62 6f 6c 5f 6c 69 73 74  omit_symbol_list
08a0: 20 7b 0a 20 20 20 20 61 70 70 65 6e 64 20 6f 70   {.    append op
08b0: 74 73 20 22 4f 50 54 53 20 2b 3d 20 2d 44 24 7b  ts "OPTS += -D${
08c0: 73 79 6d 7d 3d 31 5c 6e 22 0a 20 20 7d 0a 0a 20  sym}=1\n".  }.. 
08d0: 20 23 20 43 72 65 61 74 65 20 74 68 65 20 64 69   # Create the di
08e0: 72 65 63 74 6f 72 79 20 61 6e 64 20 64 6f 20 74  rectory and do t
08f0: 68 65 20 62 75 69 6c 64 2e 20 49 66 20 61 6e 20  he build. If an 
0900: 65 72 72 6f 72 20 6f 63 63 75 72 73 20 72 65 74  error occurs ret
0910: 75 72 6e 0a 20 20 23 20 65 61 72 6c 79 20 77 69  urn.  # early wi
0920: 74 68 6f 75 74 20 61 74 74 65 6d 70 74 69 6e 67  thout attempting
0930: 20 74 6f 20 72 75 6e 20 74 68 65 20 74 65 73 74   to run the test
0940: 20 73 75 69 74 65 2e 0a 20 20 66 69 6c 65 20 6d   suite..  file m
0950: 6b 64 69 72 20 24 64 69 72 0a 20 20 70 75 74 73  kdir $dir.  puts
0960: 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 22 42 75 69   -nonewline "Bui
0970: 6c 64 69 6e 67 20 24 64 69 72 2e 2e 2e 22 0a 20  lding $dir...". 
0980: 20 66 6c 75 73 68 20 73 74 64 6f 75 74 0a 20 20   flush stdout.  
0990: 63 61 74 63 68 20 7b 0a 20 20 20 20 66 69 6c 65  catch {.    file
09a0: 20 63 6f 70 79 20 2d 66 6f 72 63 65 20 2e 2f 63   copy -force ./c
09b0: 6f 6e 66 69 67 2e 68 20 24 64 69 72 0a 20 20 20  onfig.h $dir.   
09c0: 20 66 69 6c 65 20 63 6f 70 79 20 2d 66 6f 72 63   file copy -forc
09d0: 65 20 2e 2f 6c 69 62 74 6f 6f 6c 20 24 64 69 72  e ./libtool $dir
09e0: 0a 20 20 7d 0a 20 20 73 65 74 20 66 64 20 5b 6f  .  }.  set fd [o
09f0: 70 65 6e 20 24 3a 3a 4d 41 4b 45 46 49 4c 45 5d  pen $::MAKEFILE]
0a00: 0a 20 20 73 65 74 20 6d 6b 66 69 6c 65 20 5b 72  .  set mkfile [r
0a10: 65 61 64 20 24 66 64 5d 0a 20 20 63 6c 6f 73 65  ead $fd].  close
0a20: 20 24 66 64 0a 20 20 72 65 67 73 75 62 20 7b 5c   $fd.  regsub {\
0a30: 6e 69 6e 63 6c 75 64 65 7d 20 24 6d 6b 66 69 6c  ninclude} $mkfil
0a40: 65 20 22 5c 6e 24 6f 70 74 73 5c 6e 69 6e 63 6c  e "\n$opts\nincl
0a50: 75 64 65 22 20 6d 6b 66 69 6c 65 0a 20 20 73 65  ude" mkfile.  se
0a60: 74 20 66 64 20 5b 6f 70 65 6e 20 24 64 69 72 2f  t fd [open $dir/
0a70: 6d 61 6b 65 66 69 6c 65 20 77 5d 0a 20 20 70 75  makefile w].  pu
0a80: 74 73 20 24 66 64 20 24 6d 6b 66 69 6c 65 0a 20  ts $fd $mkfile. 
0a90: 20 63 6c 6f 73 65 20 24 66 64 0a 20 20 0a 20 20   close $fd.  .  
0aa0: 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b 0a  set rc [catch {.
0ab0: 20 20 20 20 65 78 65 63 20 24 3a 3a 4d 41 4b 45      exec $::MAKE
0ac0: 42 49 4e 20 2d 43 20 24 64 69 72 20 2d 66 20 6d  BIN -C $dir -f m
0ad0: 61 6b 65 66 69 6c 65 20 63 6c 65 61 6e 20 24 3a  akefile clean $:
0ae0: 3a 54 41 52 47 45 54 20 3e 26 20 24 64 69 72 2f  :TARGET >& $dir/
0af0: 62 75 69 6c 64 2e 6c 6f 67 0a 20 20 7d 5d 0a 20  build.log.  }]. 
0b00: 20 69 66 20 7b 24 72 63 7d 20 7b 0a 20 20 20 20   if {$rc} {.    
0b10: 70 75 74 73 20 22 4e 6f 20 67 6f 6f 64 2e 20 53  puts "No good. S
0b20: 65 65 20 24 64 69 72 2f 62 75 69 6c 64 2e 6c 6f  ee $dir/build.lo
0b30: 67 2e 22 0a 20 20 20 20 72 65 74 75 72 6e 0a 20  g.".    return. 
0b40: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 70 75   } else {.    pu
0b50: 74 73 20 22 4f 6b 22 0a 20 20 7d 0a 20 20 0a 20  ts "Ok".  }.  . 
0b60: 20 23 20 43 72 65 61 74 65 20 61 6e 20 65 6d 70   # Create an emp
0b70: 74 79 20 66 69 6c 65 20 22 24 64 69 72 2f 73 71  ty file "$dir/sq
0b80: 6c 69 74 65 33 22 2e 20 54 68 69 73 20 69 73 20  lite3". This is 
0b90: 74 6f 20 74 72 69 63 6b 20 74 68 65 20 6d 61 6b  to trick the mak
0ba0: 65 66 69 6c 65 20 6f 75 74 20 0a 20 20 23 20 6f  efile out .  # o
0bb0: 66 20 74 72 79 69 6e 67 20 74 6f 20 62 75 69 6c  f trying to buil
0bc0: 64 20 74 68 65 20 73 71 6c 69 74 65 20 73 68 65  d the sqlite she
0bd0: 6c 6c 2e 20 54 68 65 20 73 71 6c 69 74 65 20 73  ll. The sqlite s
0be0: 68 65 6c 6c 20 77 6f 6e 27 74 20 62 75 69 6c 64  hell won't build
0bf0: 20 0a 20 20 23 20 77 69 74 68 20 73 6f 6d 65 20   .  # with some 
0c00: 6f 66 20 74 68 65 20 4f 4d 49 54 20 6f 70 74 69  of the OMIT opti
0c10: 6f 6e 73 20 28 69 2e 65 20 4f 4d 49 54 5f 43 4f  ons (i.e OMIT_CO
0c20: 4d 50 4c 45 54 45 29 2e 0a 20 20 73 65 74 20 73  MPLETE)..  set s
0c30: 71 6c 69 74 65 33 5f 64 75 6d 6d 79 20 24 64 69  qlite3_dummy $di
0c40: 72 2f 73 71 6c 69 74 65 33 0a 20 20 69 66 20 7b  r/sqlite3.  if {
0c50: 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28  $::tcl_platform(
0c60: 70 6c 61 74 66 6f 72 6d 29 3d 3d 22 77 69 6e 64  platform)=="wind
0c70: 6f 77 73 22 7d 20 7b 0a 20 20 20 20 61 70 70 65  ows"} {.    appe
0c80: 6e 64 20 73 71 6c 69 74 65 33 5f 64 75 6d 6d 79  nd sqlite3_dummy
0c90: 20 22 2e 65 78 65 22 0a 20 20 7d 0a 20 20 69 66   ".exe".  }.  if
0ca0: 20 7b 21 5b 66 69 6c 65 20 65 78 69 73 74 73 20   {![file exists 
0cb0: 24 73 71 6c 69 74 65 33 5f 64 75 6d 6d 79 5d 7d  $sqlite3_dummy]}
0cc0: 20 7b 0a 20 20 20 20 73 65 74 20 77 72 20 5b 6f   {.    set wr [o
0cd0: 70 65 6e 20 24 73 71 6c 69 74 65 33 5f 64 75 6d  pen $sqlite3_dum
0ce0: 6d 79 20 77 5d 0a 20 20 20 20 70 75 74 73 20 24  my w].    puts $
0cf0: 77 72 20 22 64 75 6d 6d 79 22 0a 20 20 20 20 63  wr "dummy".    c
0d00: 6c 6f 73 65 20 24 77 72 0a 20 20 7d 0a 0a 20 20  lose $wr.  }..  
0d10: 69 66 20 7b 24 3a 3a 53 4b 49 50 5f 52 55 4e 7d  if {$::SKIP_RUN}
0d20: 20 7b 0a 20 20 20 20 20 20 70 75 74 73 20 22 53   {.      puts "S
0d30: 6b 69 70 20 74 65 73 74 69 6e 67 20 24 64 69 72  kip testing $dir
0d40: 2e 22 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20  .".  } else {.  
0d50: 20 20 23 20 52 75 6e 20 74 68 65 20 74 65 73 74    # Run the test
0d60: 20 73 75 69 74 65 2e 0a 20 20 20 20 70 75 74 73   suite..    puts
0d70: 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 22 54 65 73   -nonewline "Tes
0d80: 74 69 6e 67 20 24 64 69 72 2e 2e 2e 22 0a 20 20  ting $dir...".  
0d90: 20 20 66 6c 75 73 68 20 73 74 64 6f 75 74 0a 20    flush stdout. 
0da0: 20 20 20 73 65 74 20 72 63 20 5b 63 61 74 63 68     set rc [catch
0db0: 20 7b 0a 20 20 20 20 20 20 65 78 65 63 20 24 3a   {.      exec $:
0dc0: 3a 4d 41 4b 45 42 49 4e 20 2d 43 20 24 64 69 72  :MAKEBIN -C $dir
0dd0: 20 2d 66 20 6d 61 6b 65 66 69 6c 65 20 74 65 73   -f makefile tes
0de0: 74 20 3e 26 20 24 64 69 72 2f 74 65 73 74 2e 6c  t >& $dir/test.l
0df0: 6f 67 0a 20 20 20 20 7d 5d 0a 20 20 20 20 69 66  og.    }].    if
0e00: 20 7b 24 72 63 7d 20 7b 0a 20 20 20 20 20 20 70   {$rc} {.      p
0e10: 75 74 73 20 22 4e 6f 20 67 6f 6f 64 2e 20 53 65  uts "No good. Se
0e20: 65 20 24 64 69 72 2f 74 65 73 74 2e 6c 6f 67 2e  e $dir/test.log.
0e30: 22 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20  ".    } else {. 
0e40: 20 20 20 20 20 70 75 74 73 20 22 4f 6b 22 0a 20       puts "Ok". 
0e50: 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 0a 23 20 54     }.  }.}...# T
0e60: 68 69 73 20 70 72 6f 63 20 70 72 6f 63 65 73 73  his proc process
0e70: 65 73 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c  es the command l
0e80: 69 6e 65 20 6f 70 74 69 6f 6e 73 20 70 61 73 73  ine options pass
0e90: 65 64 20 74 6f 20 74 68 69 73 20 73 63 72 69 70  ed to this scrip
0ea0: 74 2e 0a 23 20 43 75 72 72 65 6e 74 6c 79 20 74  t..# Currently t
0eb0: 68 65 20 6f 6e 6c 79 20 6f 70 74 69 6f 6e 20 73  he only option s
0ec0: 75 70 70 6f 72 74 65 64 20 69 73 20 22 2d 6d 61  upported is "-ma
0ed0: 6b 65 66 69 6c 65 22 2c 20 64 65 66 61 75 6c 74  kefile", default
0ee0: 0a 23 20 22 2e 2e 2f 4d 61 6b 65 66 69 6c 65 2e  .# "../Makefile.
0ef0: 6c 69 6e 75 78 2d 67 63 63 22 2e 20 53 65 74 20  linux-gcc". Set 
0f00: 74 68 65 20 3a 3a 4d 41 4b 45 46 49 4c 45 20 76  the ::MAKEFILE v
0f10: 61 72 69 61 62 6c 65 20 74 6f 20 74 68 65 20 76  ariable to the v
0f20: 61 6c 75 65 20 6f 66 20 74 68 69 73 0a 23 20 6f  alue of this.# o
0f30: 70 74 69 6f 6e 2e 0a 23 0a 70 72 6f 63 20 70 72  ption..#.proc pr
0f40: 6f 63 65 73 73 5f 6f 70 74 69 6f 6e 73 20 7b 61  ocess_options {a
0f50: 72 67 76 7d 20 7b 0a 20 20 73 65 74 20 3a 3a 4d  rgv} {.  set ::M
0f60: 41 4b 45 42 49 4e 20 6d 61 6b 65 20 20 20 20 20  AKEBIN make     
0f70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0f80: 20 20 20 3b 23 20 44 65 66 61 75 6c 74 20 76 61     ;# Default va
0f90: 6c 75 65 0a 20 20 69 66 20 7b 24 3a 3a 74 63 6c  lue.  if {$::tcl
0fa0: 5f 70 6c 61 74 66 6f 72 6d 28 70 6c 61 74 66 6f  _platform(platfo
0fb0: 72 6d 29 3d 3d 22 77 69 6e 64 6f 77 73 22 7d 20  rm)=="windows"} 
0fc0: 7b 0a 20 20 20 20 73 65 74 20 3a 3a 4d 41 4b 45  {.    set ::MAKE
0fd0: 46 49 4c 45 20 2e 2f 4d 61 6b 65 66 69 6c 65 20  FILE ./Makefile 
0fe0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 23                ;#
0ff0: 20 44 65 66 61 75 6c 74 20 76 61 6c 75 65 20 6f   Default value o
1000: 6e 20 57 69 6e 64 6f 77 73 0a 20 20 7d 20 65 6c  n Windows.  } el
1010: 73 65 20 7b 0a 20 20 20 20 73 65 74 20 3a 3a 4d  se {.    set ::M
1020: 41 4b 45 46 49 4c 45 20 2e 2f 4d 61 6b 65 66 69  AKEFILE ./Makefi
1030: 6c 65 2e 6c 69 6e 75 78 2d 67 63 63 20 20 20 20  le.linux-gcc    
1040: 20 3b 23 20 44 65 66 61 75 6c 74 20 76 61 6c 75   ;# Default valu
1050: 65 0a 20 20 7d 0a 20 20 73 65 74 20 3a 3a 53 4b  e.  }.  set ::SK
1060: 49 50 5f 52 55 4e 20 30 20 20 20 20 20 20 20 20  IP_RUN 0        
1070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1080: 20 20 3b 23 20 44 65 66 61 75 6c 74 20 74 6f 20    ;# Default to 
1090: 61 74 74 65 6d 70 74 20 74 65 73 74 0a 20 20 73  attempt test.  s
10a0: 65 74 20 3a 3a 54 41 52 47 45 54 20 74 65 73 74  et ::TARGET test
10b0: 66 69 78 74 75 72 65 20 20 20 20 20 20 20 20 20  fixture         
10c0: 20 20 20 20 20 20 20 20 20 3b 23 20 44 65 66 61           ;# Defa
10d0: 75 6c 74 20 74 68 69 6e 67 20 74 6f 20 62 75 69  ult thing to bui
10e0: 6c 64 0a 0a 20 20 66 6f 72 20 7b 73 65 74 20 69  ld..  for {set i
10f0: 20 30 7d 20 7b 24 69 20 3c 20 5b 6c 6c 65 6e 67   0} {$i < [lleng
1100: 74 68 20 24 61 72 67 76 5d 7d 20 7b 69 6e 63 72  th $argv]} {incr
1110: 20 69 7d 20 7b 0a 20 20 20 20 73 77 69 74 63 68   i} {.    switch
1120: 20 2d 72 65 67 65 78 70 20 2d 2d 20 5b 6c 69 6e   -regexp -- [lin
1130: 64 65 78 20 24 61 72 67 76 20 24 69 5d 20 7b 0a  dex $argv $i] {.
1140: 20 20 20 20 20 20 2d 7b 31 2c 32 7d 6d 61 6b 65        -{1,2}make
1150: 66 69 6c 65 20 7b 0a 20 20 20 20 20 20 20 20 69  file {.        i
1160: 6e 63 72 20 69 0a 20 20 20 20 20 20 20 20 73 65  ncr i.        se
1170: 74 20 3a 3a 4d 41 4b 45 46 49 4c 45 20 5b 6c 69  t ::MAKEFILE [li
1180: 6e 64 65 78 20 24 61 72 67 76 20 24 69 5d 0a 20  ndex $argv $i]. 
1190: 20 20 20 20 20 7d 0a 20 20 0a 20 20 20 20 20 20       }.  .      
11a0: 2d 7b 31 2c 32 7d 6e 6d 61 6b 65 20 7b 0a 20 20  -{1,2}nmake {.  
11b0: 20 20 20 20 20 20 73 65 74 20 3a 3a 4d 41 4b 45        set ::MAKE
11c0: 42 49 4e 20 6e 6d 61 6b 65 0a 20 20 20 20 20 20  BIN nmake.      
11d0: 20 20 73 65 74 20 3a 3a 4d 41 4b 45 46 49 4c 45    set ::MAKEFILE
11e0: 20 2e 2f 4d 61 6b 65 66 69 6c 65 2e 6d 73 63 0a   ./Makefile.msc.
11f0: 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 2d        }..      -
1200: 7b 31 2c 32 7d 74 61 72 67 65 74 20 7b 0a 20 20  {1,2}target {.  
1210: 20 20 20 20 20 20 69 6e 63 72 20 69 0a 20 20 20        incr i.   
1220: 20 20 20 20 20 73 65 74 20 3a 3a 54 41 52 47 45       set ::TARGE
1230: 54 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 76 20  T [lindex $argv 
1240: 24 69 5d 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20  $i].      }..   
1250: 20 20 20 2d 7b 31 2c 32 7d 73 6b 69 70 5f 72 75     -{1,2}skip_ru
1260: 6e 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20  n {.        set 
1270: 3a 3a 53 4b 49 50 5f 52 55 4e 20 31 0a 20 20 20  ::SKIP_RUN 1.   
1280: 20 20 20 7d 0a 0a 20 20 20 20 20 20 2d 7b 31 2c     }..      -{1,
1290: 32 7d 68 65 6c 70 20 7b 0a 20 20 20 20 20 20 20  2}help {.       
12a0: 20 70 75 74 73 20 24 3a 3a 55 53 41 47 45 5f 4d   puts $::USAGE_M
12b0: 45 53 53 41 47 45 0a 20 20 20 20 20 20 20 20 65  ESSAGE.        e
12c0: 78 69 74 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20  xit.      }..   
12d0: 20 20 20 2d 2e 2a 20 7b 0a 20 20 20 20 20 20 20     -.* {.       
12e0: 20 70 75 74 73 20 73 74 64 65 72 72 20 22 55 6e   puts stderr "Un
12f0: 6b 6e 6f 77 6e 20 6f 70 74 69 6f 6e 3a 20 5b 6c  known option: [l
1300: 69 6e 64 65 78 20 24 61 72 67 76 20 69 5d 22 0a  index $argv i]".
1310: 20 20 20 20 20 20 20 20 70 75 74 73 20 73 74 64          puts std
1320: 65 72 72 20 24 3a 3a 55 53 41 47 45 5f 4d 45 53  err $::USAGE_MES
1330: 53 41 47 45 0a 20 20 20 20 20 20 20 20 65 78 69  SAGE.        exi
1340: 74 20 31 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20  t 1.      }..   
1350: 20 20 20 64 65 66 61 75 6c 74 20 7b 0a 20 20 20     default {.   
1360: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65       if {[info e
1370: 78 69 73 74 73 20 3a 3a 53 59 4d 42 4f 4c 5d 7d  xists ::SYMBOL]}
1380: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 70 75 74   {.          put
1390: 73 20 73 74 64 65 72 72 20 5b 73 74 72 69 6e 67  s stderr [string
13a0: 20 74 72 69 6d 20 24 3a 3a 55 53 41 47 45 5f 4d   trim $::USAGE_M
13b0: 45 53 53 41 47 45 5d 0a 20 20 20 20 20 20 20 20  ESSAGE].        
13c0: 20 20 65 78 69 74 20 2d 31 0a 20 20 20 20 20 20    exit -1.      
13d0: 20 20 7d 0a 20 20 20 20 20 20 20 20 73 65 74 20    }.        set 
13e0: 3a 3a 53 59 4d 42 4f 4c 20 5b 6c 69 6e 64 65 78  ::SYMBOL [lindex
13f0: 20 24 61 72 67 76 20 24 69 5d 0a 20 20 20 20 20   $argv $i].     
1400: 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 73 65 74   }.    }.    set
1410: 20 3a 3a 4d 41 4b 45 46 49 4c 45 20 5b 66 69 6c   ::MAKEFILE [fil
1420: 65 20 6e 6f 72 6d 61 6c 69 7a 65 20 24 3a 3a 4d  e normalize $::M
1430: 41 4b 45 46 49 4c 45 5d 0a 20 20 7d 0a 7d 0a 0a  AKEFILE].  }.}..
1440: 23 20 4d 61 69 6e 20 72 6f 75 74 69 6e 65 2e 0a  # Main routine..
1450: 23 0a 0a 70 72 6f 63 20 6d 61 69 6e 20 7b 61 72  #..proc main {ar
1460: 67 76 7d 20 7b 0a 20 20 23 20 4c 69 73 74 20 6f  gv} {.  # List o
1470: 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 58 58  f SQLITE_OMIT_XX
1480: 58 20 73 79 6d 62 6f 6c 73 20 73 75 70 70 6f 72  X symbols suppor
1490: 74 65 64 20 62 79 20 53 51 4c 69 74 65 2e 0a 20  ted by SQLite.. 
14a0: 20 73 65 74 20 3a 3a 4f 4d 49 54 5f 53 59 4d 42   set ::OMIT_SYMB
14b0: 4f 4c 53 20 5b 6c 69 73 74 20 5c 0a 20 20 20 20  OLS [list \.    
14c0: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 41 4c 54 45  SQLITE_OMIT_ALTE
14d0: 52 54 41 42 4c 45 20 5c 0a 20 20 20 20 53 51 4c  RTABLE \.    SQL
14e0: 49 54 45 5f 4f 4d 49 54 5f 41 4e 41 4c 59 5a 45  ITE_OMIT_ANALYZE
14f0: 20 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f 4f 4d   \.    SQLITE_OM
1500: 49 54 5f 41 54 54 41 43 48 20 5c 0a 20 20 20 20  IT_ATTACH \.    
1510: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 41 55 54 48  SQLITE_OMIT_AUTH
1520: 4f 52 49 5a 41 54 49 4f 4e 20 5c 0a 20 20 20 20  ORIZATION \.    
1530: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 41 55 54 4f  SQLITE_OMIT_AUTO
1540: 49 4e 43 52 45 4d 45 4e 54 20 5c 0a 20 20 20 20  INCREMENT \.    
1550: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 41 55 54 4f  SQLITE_OMIT_AUTO
1560: 49 4e 49 54 20 5c 0a 20 20 20 20 53 51 4c 49 54  INIT \.    SQLIT
1570: 45 5f 4f 4d 49 54 5f 41 55 54 4f 4d 41 54 49 43  E_OMIT_AUTOMATIC
1580: 5f 49 4e 44 45 58 20 5c 0a 20 20 20 20 53 51 4c  _INDEX \.    SQL
1590: 49 54 45 5f 4f 4d 49 54 5f 41 55 54 4f 52 45 53  ITE_OMIT_AUTORES
15a0: 45 54 20 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f  ET \.    SQLITE_
15b0: 4f 4d 49 54 5f 41 55 54 4f 56 41 43 55 55 4d 20  OMIT_AUTOVACUUM 
15c0: 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f 4f 4d 49  \.    SQLITE_OMI
15d0: 54 5f 42 45 54 57 45 45 4e 5f 4f 50 54 49 4d 49  T_BETWEEN_OPTIMI
15e0: 5a 41 54 49 4f 4e 20 5c 0a 20 20 20 20 53 51 4c  ZATION \.    SQL
15f0: 49 54 45 5f 4f 4d 49 54 5f 42 4c 4f 42 5f 4c 49  ITE_OMIT_BLOB_LI
1600: 54 45 52 41 4c 20 5c 0a 20 20 20 20 53 51 4c 49  TERAL \.    SQLI
1610: 54 45 5f 4f 4d 49 54 5f 42 54 52 45 45 43 4f 55  TE_OMIT_BTREECOU
1620: 4e 54 20 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f  NT \.    SQLITE_
1630: 4f 4d 49 54 5f 43 41 53 54 20 5c 0a 20 20 20 20  OMIT_CAST \.    
1640: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 43 48 45 43  SQLITE_OMIT_CHEC
1650: 4b 20 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f 4f  K \.    SQLITE_O
1660: 4d 49 54 5f 43 4f 4d 50 49 4c 45 4f 50 54 49 4f  MIT_COMPILEOPTIO
1670: 4e 5f 44 49 41 47 53 20 5c 0a 20 20 20 20 53 51  N_DIAGS \.    SQ
1680: 4c 49 54 45 5f 4f 4d 49 54 5f 43 4f 4d 50 4c 45  LITE_OMIT_COMPLE
1690: 54 45 20 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f  TE \.    SQLITE_
16a0: 4f 4d 49 54 5f 43 4f 4d 50 4f 55 4e 44 5f 53 45  OMIT_COMPOUND_SE
16b0: 4c 45 43 54 20 5c 0a 20 20 20 20 53 51 4c 49 54  LECT \.    SQLIT
16c0: 45 5f 4f 4d 49 54 5f 43 4f 4e 46 4c 49 43 54 5f  E_OMIT_CONFLICT_
16d0: 43 4c 41 55 53 45 20 5c 0a 20 20 20 20 53 51 4c  CLAUSE \.    SQL
16e0: 49 54 45 5f 4f 4d 49 54 5f 43 54 45 20 5c 0a 20  ITE_OMIT_CTE \. 
16f0: 20 20 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 44     SQLITE_OMIT_D
1700: 41 54 45 54 49 4d 45 5f 46 55 4e 43 53 20 5c 0a  ATETIME_FUNCS \.
1710: 20 20 20 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f      SQLITE_OMIT_
1720: 44 45 43 4c 54 59 50 45 20 5c 0a 20 20 20 20 53  DECLTYPE \.    S
1730: 51 4c 49 54 45 5f 4f 4d 49 54 5f 44 45 50 52 45  QLITE_OMIT_DEPRE
1740: 43 41 54 45 44 20 5c 0a 20 20 20 20 53 51 4c 49  CATED \.    SQLI
1750: 54 45 5f 4f 4d 49 54 5f 44 49 53 4b 49 4f 20 5c  TE_OMIT_DISKIO \
1760: 0a 20 20 20 20 53 51 4c 49 54 45 5f 4f 4d 49 54  .    SQLITE_OMIT
1770: 5f 45 58 50 4c 41 49 4e 20 5c 0a 20 20 20 20 53  _EXPLAIN \.    S
1780: 51 4c 49 54 45 5f 4f 4d 49 54 5f 46 4c 41 47 5f  QLITE_OMIT_FLAG_
1790: 50 52 41 47 4d 41 53 20 5c 0a 20 20 20 20 53 51  PRAGMAS \.    SQ
17a0: 4c 49 54 45 5f 4f 4d 49 54 5f 46 4c 4f 41 54 49  LITE_OMIT_FLOATI
17b0: 4e 47 5f 50 4f 49 4e 54 20 5c 0a 20 20 20 20 53  NG_POINT \.    S
17c0: 51 4c 49 54 45 5f 4f 4d 49 54 5f 46 4f 52 45 49  QLITE_OMIT_FOREI
17d0: 47 4e 5f 4b 45 59 20 5c 0a 20 20 20 20 53 51 4c  GN_KEY \.    SQL
17e0: 49 54 45 5f 4f 4d 49 54 5f 47 45 54 5f 54 41 42  ITE_OMIT_GET_TAB
17f0: 4c 45 20 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f  LE \.    SQLITE_
1800: 4f 4d 49 54 5f 48 45 58 5f 49 4e 54 45 47 45 52  OMIT_HEX_INTEGER
1810: 20 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f 4f 4d   \.    SQLITE_OM
1820: 49 54 5f 49 4e 43 52 42 4c 4f 42 20 5c 0a 20 20  IT_INCRBLOB \.  
1830: 20 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 49 4e    SQLITE_OMIT_IN
1840: 54 45 47 52 49 54 59 5f 43 48 45 43 4b 20 5c 0a  TEGRITY_CHECK \.
1850: 20 20 20 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f      SQLITE_OMIT_
1860: 4c 49 4b 45 5f 4f 50 54 49 4d 49 5a 41 54 49 4f  LIKE_OPTIMIZATIO
1870: 4e 20 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f 4f  N \.    SQLITE_O
1880: 4d 49 54 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49  MIT_LOAD_EXTENSI
1890: 4f 4e 20 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f  ON \.    SQLITE_
18a0: 4f 4d 49 54 5f 4c 4f 43 41 4c 54 49 4d 45 20 5c  OMIT_LOCALTIME \
18b0: 0a 20 20 20 20 53 51 4c 49 54 45 5f 4f 4d 49 54  .    SQLITE_OMIT
18c0: 5f 4c 4f 4f 4b 41 53 49 44 45 20 5c 0a 20 20 20  _LOOKASIDE \.   
18d0: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4d 45 4d   SQLITE_OMIT_MEM
18e0: 4f 52 59 44 42 20 5c 0a 20 20 20 20 53 51 4c 49  ORYDB \.    SQLI
18f0: 54 45 5f 4f 4d 49 54 5f 4d 45 4d 4f 52 59 5f 41  TE_OMIT_MEMORY_A
1900: 4c 4c 4f 43 41 54 49 4f 4e 20 5c 0a 20 20 20 20  LLOCATION \.    
1910: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4f 52 5f 4f  SQLITE_OMIT_OR_O
1920: 50 54 49 4d 49 5a 41 54 49 4f 4e 20 5c 0a 20 20  PTIMIZATION \.  
1930: 20 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 50 41    SQLITE_OMIT_PA
1940: 47 45 52 5f 50 52 41 47 4d 41 53 20 5c 0a 20 20  GER_PRAGMAS \.  
1950: 20 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 50 41    SQLITE_OMIT_PA
1960: 52 53 45 52 5f 54 52 41 43 45 20 5c 0a 20 20 20  RSER_TRACE \.   
1970: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 50 4f 50   SQLITE_OMIT_POP
1980: 45 4e 20 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f  EN \.    SQLITE_
1990: 4f 4d 49 54 5f 50 52 41 47 4d 41 20 5c 0a 20 20  OMIT_PRAGMA \.  
19a0: 20 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 50 52    SQLITE_OMIT_PR
19b0: 4f 47 52 45 53 53 5f 43 41 4c 4c 42 41 43 4b 20  OGRESS_CALLBACK 
19c0: 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f 4f 4d 49  \.    SQLITE_OMI
19d0: 54 5f 51 55 49 43 4b 42 41 4c 41 4e 43 45 20 5c  T_QUICKBALANCE \
19e0: 0a 20 20 20 20 53 51 4c 49 54 45 5f 4f 4d 49 54  .    SQLITE_OMIT
19f0: 5f 52 41 4e 44 4f 4d 4e 45 53 53 20 5c 0a 20 20  _RANDOMNESS \.  
1a00: 20 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 52 45    SQLITE_OMIT_RE
1a10: 49 4e 44 45 58 20 5c 0a 20 20 20 20 53 51 4c 49  INDEX \.    SQLI
1a20: 54 45 5f 4f 4d 49 54 5f 53 43 48 45 4d 41 5f 50  TE_OMIT_SCHEMA_P
1a30: 52 41 47 4d 41 53 20 5c 0a 20 20 20 20 53 51 4c  RAGMAS \.    SQL
1a40: 49 54 45 5f 4f 4d 49 54 5f 53 43 48 45 4d 41 5f  ITE_OMIT_SCHEMA_
1a50: 56 45 52 53 49 4f 4e 5f 50 52 41 47 4d 41 53 20  VERSION_PRAGMAS 
1a60: 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f 4f 4d 49  \.    SQLITE_OMI
1a70: 54 5f 53 48 41 52 45 44 5f 43 41 43 48 45 20 5c  T_SHARED_CACHE \
1a80: 0a 20 20 20 20 53 51 4c 49 54 45 5f 4f 4d 49 54  .    SQLITE_OMIT
1a90: 5f 53 48 55 54 44 4f 57 4e 5f 44 49 52 45 43 54  _SHUTDOWN_DIRECT
1aa0: 4f 52 49 45 53 20 5c 0a 20 20 20 20 53 51 4c 49  ORIES \.    SQLI
1ab0: 54 45 5f 4f 4d 49 54 5f 53 55 42 51 55 45 52 59  TE_OMIT_SUBQUERY
1ac0: 20 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f 4f 4d   \.    SQLITE_OM
1ad0: 49 54 5f 54 43 4c 5f 56 41 52 49 41 42 4c 45 20  IT_TCL_VARIABLE 
1ae0: 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f 4f 4d 49  \.    SQLITE_OMI
1af0: 54 5f 54 45 4d 50 44 42 20 5c 0a 20 20 20 20 53  T_TEMPDB \.    S
1b00: 51 4c 49 54 45 5f 4f 4d 49 54 5f 54 45 53 54 5f  QLITE_OMIT_TEST_
1b10: 43 4f 4e 54 52 4f 4c 20 5c 0a 20 20 20 20 53 51  CONTROL \.    SQ
1b20: 4c 49 54 45 5f 4f 4d 49 54 5f 54 52 41 43 45 20  LITE_OMIT_TRACE 
1b30: 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f 4f 4d 49  \.    SQLITE_OMI
1b40: 54 5f 54 52 49 47 47 45 52 20 5c 0a 20 20 20 20  T_TRIGGER \.    
1b50: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 54 52 55 4e  SQLITE_OMIT_TRUN
1b60: 43 41 54 45 5f 4f 50 54 49 4d 49 5a 41 54 49 4f  CATE_OPTIMIZATIO
1b70: 4e 20 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f 4f  N \.    SQLITE_O
1b80: 4d 49 54 5f 55 50 53 45 52 54 20 5c 0a 20 20 20  MIT_UPSERT \.   
1b90: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46   SQLITE_OMIT_UTF
1ba0: 31 36 20 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f  16 \.    SQLITE_
1bb0: 4f 4d 49 54 5f 56 41 43 55 55 4d 20 5c 0a 20 20  OMIT_VACUUM \.  
1bc0: 20 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 56 49    SQLITE_OMIT_VI
1bd0: 45 57 20 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f  EW \.    SQLITE_
1be0: 4f 4d 49 54 5f 56 49 52 54 55 41 4c 54 41 42 4c  OMIT_VIRTUALTABL
1bf0: 45 20 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f 4f  E \.    SQLITE_O
1c00: 4d 49 54 5f 57 41 4c 20 5c 0a 20 20 20 20 53 51  MIT_WAL \.    SQ
1c10: 4c 49 54 45 5f 4f 4d 49 54 5f 57 49 4e 44 4f 57  LITE_OMIT_WINDOW
1c20: 46 55 4e 43 20 5c 0a 20 20 20 20 53 51 4c 49 54  FUNC \.    SQLIT
1c30: 45 5f 4f 4d 49 54 5f 57 53 44 20 5c 0a 20 20 20  E_OMIT_WSD \.   
1c40: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 58 46 45   SQLITE_OMIT_XFE
1c50: 52 5f 4f 50 54 20 5c 0a 20 20 5d 0a 0a 20 20 73  R_OPT \.  ]..  s
1c60: 65 74 20 3a 3a 45 4e 41 42 4c 45 5f 53 59 4d 42  et ::ENABLE_SYMB
1c70: 4f 4c 53 20 5b 6c 69 73 74 20 5c 0a 20 20 20 20  OLS [list \.    
1c80: 53 51 4c 49 54 45 5f 44 49 53 41 42 4c 45 5f 44  SQLITE_DISABLE_D
1c90: 49 52 53 59 4e 43 20 5c 0a 20 20 20 20 53 51 4c  IRSYNC \.    SQL
1ca0: 49 54 45 5f 44 49 53 41 42 4c 45 5f 4c 46 53 20  ITE_DISABLE_LFS 
1cb0: 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f 45 4e 41  \.    SQLITE_ENA
1cc0: 42 4c 45 5f 41 54 4f 4d 49 43 5f 57 52 49 54 45  BLE_ATOMIC_WRITE
1cd0: 20 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f 45 4e   \.    SQLITE_EN
1ce0: 41 42 4c 45 5f 43 4f 4c 55 4d 4e 5f 4d 45 54 41  ABLE_COLUMN_META
1cf0: 44 41 54 41 20 5c 0a 20 20 20 20 53 51 4c 49 54  DATA \.    SQLIT
1d00: 45 5f 45 4e 41 42 4c 45 5f 45 58 50 45 4e 53 49  E_ENABLE_EXPENSI
1d10: 56 45 5f 41 53 53 45 52 54 20 5c 0a 20 20 20 20  VE_ASSERT \.    
1d20: 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 46 54  SQLITE_ENABLE_FT
1d30: 53 33 20 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f  S3 \.    SQLITE_
1d40: 45 4e 41 42 4c 45 5f 46 54 53 33 5f 50 41 52 45  ENABLE_FTS3_PARE
1d50: 4e 54 48 45 53 49 53 20 5c 0a 20 20 20 20 53 51  NTHESIS \.    SQ
1d60: 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 46 54 53 34  LITE_ENABLE_FTS4
1d70: 20 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f 45 4e   \.    SQLITE_EN
1d80: 41 42 4c 45 5f 49 4f 54 52 41 43 45 20 5c 0a 20  ABLE_IOTRACE \. 
1d90: 20 20 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45     SQLITE_ENABLE
1da0: 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e 20  _LOAD_EXTENSION 
1db0: 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f 45 4e 41  \.    SQLITE_ENA
1dc0: 42 4c 45 5f 4c 4f 43 4b 49 4e 47 5f 53 54 59 4c  BLE_LOCKING_STYL
1dd0: 45 20 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f 45  E \.    SQLITE_E
1de0: 4e 41 42 4c 45 5f 4d 45 4d 4f 52 59 5f 4d 41 4e  NABLE_MEMORY_MAN
1df0: 41 47 45 4d 45 4e 54 20 5c 0a 20 20 20 20 53 51  AGEMENT \.    SQ
1e00: 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 4d 45 4d 53  LITE_ENABLE_MEMS
1e10: 59 53 33 20 5c 0a 20 20 20 20 53 51 4c 49 54 45  YS3 \.    SQLITE
1e20: 5f 45 4e 41 42 4c 45 5f 4d 45 4d 53 59 53 35 20  _ENABLE_MEMSYS5 
1e30: 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f 45 4e 41  \.    SQLITE_ENA
1e40: 42 4c 45 5f 4f 56 45 52 53 49 5a 45 5f 43 45 4c  BLE_OVERSIZE_CEL
1e50: 4c 5f 43 48 45 43 4b 20 5c 0a 20 20 20 20 53 51  L_CHECK \.    SQ
1e60: 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 52 54 52 45  LITE_ENABLE_RTRE
1e70: 45 20 5c 0a 20 20 20 20 53 51 4c 49 54 45 5f 45  E \.    SQLITE_E
1e80: 4e 41 42 4c 45 5f 53 54 41 54 33 20 5c 0a 20 20  NABLE_STAT3 \.  
1e90: 20 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f    SQLITE_ENABLE_
1ea0: 55 4e 4c 4f 43 4b 5f 4e 4f 54 49 46 59 20 5c 0a  UNLOCK_NOTIFY \.
1eb0: 20 20 20 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c      SQLITE_ENABL
1ec0: 45 5f 55 50 44 41 54 45 5f 44 45 4c 45 54 45 5f  E_UPDATE_DELETE_
1ed0: 4c 49 4d 49 54 20 5c 0a 20 20 5d 0a 0a 20 20 23  LIMIT \.  ]..  #
1ee0: 20 50 72 6f 63 65 73 73 20 61 6e 79 20 63 6f 6d   Process any com
1ef0: 6d 61 6e 64 20 6c 69 6e 65 20 6f 70 74 69 6f 6e  mand line option
1f00: 73 2e 0a 20 20 70 72 6f 63 65 73 73 5f 6f 70 74  s..  process_opt
1f10: 69 6f 6e 73 20 24 61 72 67 76 0a 0a 20 20 69 66  ions $argv..  if
1f20: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
1f30: 3a 53 59 4d 42 4f 4c 5d 20 7d 20 7b 0a 20 20 20  :SYMBOL] } {.   
1f40: 20 73 65 74 20 73 79 6d 20 24 3a 3a 53 59 4d 42   set sym $::SYMB
1f50: 4f 4c 0a 0a 20 20 20 20 69 66 20 7b 5b 6c 73 65  OL..    if {[lse
1f60: 61 72 63 68 20 24 3a 3a 4f 4d 49 54 5f 53 59 4d  arch $::OMIT_SYM
1f70: 42 4f 4c 53 20 24 73 79 6d 5d 3c 30 20 26 26 20  BOLS $sym]<0 && 
1f80: 5b 6c 73 65 61 72 63 68 20 24 3a 3a 45 4e 41 42  [lsearch $::ENAB
1f90: 4c 45 5f 53 59 4d 42 4f 4c 53 20 24 73 79 6d 5d  LE_SYMBOLS $sym]
1fa0: 3c 30 7d 20 7b 0a 20 20 20 20 20 20 70 75 74 73  <0} {.      puts
1fb0: 20 73 74 64 65 72 72 20 22 4e 6f 20 73 75 63 68   stderr "No such
1fc0: 20 73 79 6d 62 6f 6c 3a 20 24 73 79 6d 22 0a 20   symbol: $sym". 
1fd0: 20 20 20 20 20 65 78 69 74 20 2d 31 0a 20 20 20       exit -1.   
1fe0: 20 7d 0a 0a 20 20 20 20 73 65 74 20 64 69 72 6e   }..    set dirn
1ff0: 61 6d 65 20 22 74 65 73 74 5f 5b 72 65 67 73 75  ame "test_[regsu
2000: 62 20 2d 6e 6f 63 61 73 65 20 7b 5e 78 2a 53 51  b -nocase {^x*SQ
2010: 4c 49 54 45 5f 7d 20 24 73 79 6d 20 7b 7d 5d 22  LITE_} $sym {}]"
2020: 0a 20 20 20 20 72 75 6e 5f 71 75 69 63 6b 5f 74  .    run_quick_t
2030: 65 73 74 20 24 64 69 72 6e 61 6d 65 20 24 73 79  est $dirname $sy
2040: 6d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20  m.  } else {.   
2050: 20 23 20 46 69 72 73 74 20 74 72 79 20 61 20 74   # First try a t
2060: 65 73 74 20 77 69 74 68 20 61 6c 6c 20 4f 4d 49  est with all OMI
2070: 54 20 73 79 6d 62 6f 6c 73 20 65 78 63 65 70 74  T symbols except
2080: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 46 4c 4f   SQLITE_OMIT_FLO
2090: 41 54 49 4e 47 5f 50 4f 49 4e 54 20 0a 20 20 20  ATING_POINT .   
20a0: 20 23 20 61 6e 64 20 53 51 4c 49 54 45 5f 4f 4d   # and SQLITE_OM
20b0: 49 54 5f 50 52 41 47 4d 41 20 64 65 66 69 6e 65  IT_PRAGMA define
20c0: 64 2e 20 54 68 65 20 66 6f 72 6d 65 72 20 64 6f  d. The former do
20d0: 65 73 6e 27 74 20 77 6f 72 6b 20 28 63 61 75 73  esn't work (caus
20e0: 65 73 20 73 65 67 66 61 75 6c 74 73 29 0a 20 20  es segfaults).  
20f0: 20 20 23 20 61 6e 64 20 74 68 65 20 6c 61 74 74    # and the latt
2100: 65 72 20 69 73 20 63 75 72 72 65 6e 74 6c 79 20  er is currently 
2110: 69 6e 63 6f 6d 70 61 74 69 62 6c 65 20 77 69 74  incompatible wit
2120: 68 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65  h the test suite
2130: 20 28 74 68 69 73 20 73 68 6f 75 6c 64 0a 20 20   (this should.  
2140: 20 20 23 20 62 65 20 66 69 78 65 64 2c 20 62 75    # be fixed, bu
2150: 74 20 69 74 20 77 69 6c 6c 20 62 65 20 61 20 6c  t it will be a l
2160: 6f 74 20 6f 66 20 77 6f 72 6b 29 2e 0a 20 20 20  ot of work)..   
2170: 20 73 65 74 20 61 6c 6c 73 79 6d 73 20 5b 6c 69   set allsyms [li
2180: 73 74 5d 0a 20 20 20 20 66 6f 72 65 61 63 68 20  st].    foreach 
2190: 73 20 24 3a 3a 4f 4d 49 54 5f 53 59 4d 42 4f 4c  s $::OMIT_SYMBOL
21a0: 53 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 24 73  S {.      if {$s
21b0: 21 3d 22 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 46  !="SQLITE_OMIT_F
21c0: 4c 4f 41 54 49 4e 47 5f 50 4f 49 4e 54 22 20 26  LOATING_POINT" &
21d0: 26 20 24 73 21 3d 22 53 51 4c 49 54 45 5f 4f 4d  & $s!="SQLITE_OM
21e0: 49 54 5f 50 52 41 47 4d 41 22 7d 20 7b 0a 20 20  IT_PRAGMA"} {.  
21f0: 20 20 20 20 20 20 6c 61 70 70 65 6e 64 20 61 6c        lappend al
2200: 6c 73 79 6d 73 20 24 73 0a 20 20 20 20 20 20 7d  lsyms $s.      }
2210: 0a 20 20 20 20 7d 0a 20 20 20 20 72 75 6e 5f 71  .    }.    run_q
2220: 75 69 63 6b 5f 74 65 73 74 20 74 65 73 74 5f 4f  uick_test test_O
2230: 4d 49 54 5f 45 56 45 52 59 54 48 49 4e 47 20 24  MIT_EVERYTHING $
2240: 61 6c 6c 73 79 6d 73 0a 20 20 0a 20 20 20 20 23  allsyms.  .    #
2250: 20 4e 6f 77 20 74 72 79 20 6f 6e 65 20 71 75 69   Now try one qui
2260: 63 6b 2e 74 65 73 74 20 77 69 74 68 20 65 61 63  ck.test with eac
2270: 68 20 6f 66 20 74 68 65 20 4f 4d 49 54 20 73 79  h of the OMIT sy
2280: 6d 62 6f 6c 73 20 64 65 66 69 6e 65 64 2e 20 49  mbols defined. I
2290: 6e 63 6c 75 64 65 64 0a 20 20 20 20 23 20 61 72  ncluded.    # ar
22a0: 65 20 74 68 65 20 4f 4d 49 54 5f 46 4c 4f 41 54  e the OMIT_FLOAT
22b0: 49 4e 47 5f 50 4f 49 4e 54 20 61 6e 64 20 4f 4d  ING_POINT and OM
22c0: 49 54 5f 50 52 41 47 4d 41 20 73 79 6d 62 6f 6c  IT_PRAGMA symbol
22d0: 73 2c 20 65 76 65 6e 20 74 68 6f 75 67 68 20 77  s, even though w
22e0: 65 0a 20 20 20 20 23 20 6b 6e 6f 77 20 74 68 65  e.    # know the
22f0: 79 20 77 69 6c 6c 20 66 61 69 6c 2e 20 49 74 27  y will fail. It'
2300: 73 20 67 6f 6f 64 20 74 6f 20 62 65 20 72 65 6d  s good to be rem
2310: 69 6e 64 65 64 20 6f 66 20 74 68 69 73 20 66 72  inded of this fr
2320: 6f 6d 20 74 69 6d 65 20 74 6f 20 74 69 6d 65 2e  om time to time.
2330: 0a 20 20 20 20 66 6f 72 65 61 63 68 20 73 79 6d  .    foreach sym
2340: 20 24 3a 3a 4f 4d 49 54 5f 53 59 4d 42 4f 4c 53   $::OMIT_SYMBOLS
2350: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 64 69 72   {.      set dir
2360: 6e 61 6d 65 20 22 74 65 73 74 5f 5b 72 65 67 73  name "test_[regs
2370: 75 62 20 2d 6e 6f 63 61 73 65 20 7b 5e 78 2a 53  ub -nocase {^x*S
2380: 51 4c 49 54 45 5f 7d 20 24 73 79 6d 20 7b 7d 5d  QLITE_} $sym {}]
2390: 22 0a 20 20 20 20 20 20 72 75 6e 5f 71 75 69 63  ".      run_quic
23a0: 6b 5f 74 65 73 74 20 24 64 69 72 6e 61 6d 65 20  k_test $dirname 
23b0: 24 73 79 6d 0a 20 20 20 20 7d 0a 20 20 0a 20 20  $sym.    }.  .  
23c0: 20 20 23 20 54 72 79 20 74 68 65 20 45 4e 41 42    # Try the ENAB
23d0: 4c 45 2f 44 49 53 41 42 4c 45 20 73 79 6d 62 6f  LE/DISABLE symbo
23e0: 6c 73 20 6f 6e 65 20 61 74 20 61 20 74 69 6d 65  ls one at a time
23f0: 2e 20 20 0a 20 20 20 20 23 20 57 65 20 64 6f 6e  .  .    # We don
2400: 27 74 20 64 6f 20 74 68 65 6d 20 61 6c 6c 20 61  't do them all a
2410: 74 20 6f 6e 63 65 20 73 69 6e 63 65 20 73 6f 6d  t once since som
2420: 65 20 61 72 65 20 63 6f 6e 66 6c 69 63 74 69 6e  e are conflictin
2430: 67 2e 0a 20 20 20 20 66 6f 72 65 61 63 68 20 73  g..    foreach s
2440: 79 6d 20 24 3a 3a 45 4e 41 42 4c 45 5f 53 59 4d  ym $::ENABLE_SYM
2450: 42 4f 4c 53 20 7b 0a 20 20 20 20 20 20 73 65 74  BOLS {.      set
2460: 20 64 69 72 6e 61 6d 65 20 22 74 65 73 74 5f 5b   dirname "test_[
2470: 72 65 67 73 75 62 20 2d 6e 6f 63 61 73 65 20 7b  regsub -nocase {
2480: 5e 78 2a 53 51 4c 49 54 45 5f 7d 20 24 73 79 6d  ^x*SQLITE_} $sym
2490: 20 7b 7d 5d 22 0a 20 20 20 20 20 20 72 75 6e 5f   {}]".      run_
24a0: 71 75 69 63 6b 5f 74 65 73 74 20 24 64 69 72 6e  quick_test $dirn
24b0: 61 6d 65 20 24 73 79 6d 0a 20 20 20 20 7d 0a 20  ame $sym.    }. 
24c0: 20 7d 0a 7d 0a 0a 6d 61 69 6e 20 24 61 72 67 76   }.}..main $argv
24d0: 0a                                               .