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

Artifact 9ec2de42f310d5c85945a793d118b595b62526dc:


0000: 23 20 32 30 30 31 20 53 65 70 74 65 6d 62 65 72  # 2001 September
0010: 20 31 35 0a 23 0a 23 20 54 68 65 20 61 75 74 68   15.#.# The auth
0020: 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70  or disclaims cop
0030: 79 72 69 67 68 74 20 74 6f 20 74 68 69 73 20 73  yright to this s
0040: 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20  ource code.  In 
0050: 70 6c 61 63 65 20 6f 66 0a 23 20 61 20 6c 65 67  place of.# a leg
0060: 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 65 20  al notice, here 
0070: 69 73 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a 23  is a blessing:.#
0080: 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 64 6f  .#    May you do
0090: 20 67 6f 6f 64 20 61 6e 64 20 6e 6f 74 20 65 76   good and not ev
00a0: 69 6c 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75  il..#    May you
00b0: 20 66 69 6e 64 20 66 6f 72 67 69 76 65 6e 65 73   find forgivenes
00c0: 73 20 66 6f 72 20 79 6f 75 72 73 65 6c 66 20 61  s for yourself a
00d0: 6e 64 20 66 6f 72 67 69 76 65 20 6f 74 68 65 72  nd forgive other
00e0: 73 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20  s..#    May you 
00f0: 73 68 61 72 65 20 66 72 65 65 6c 79 2c 20 6e 65  share freely, ne
0100: 76 65 72 20 74 61 6b 69 6e 67 20 6d 6f 72 65 20  ver taking more 
0110: 74 68 61 6e 20 79 6f 75 20 67 69 76 65 2e 0a 23  than you give..#
0120: 0a 23 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  .#**************
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 23 20 54 68 69 73  *********.# This
0170: 20 66 69 6c 65 20 69 6d 70 6c 65 6d 65 6e 74 73   file implements
0180: 20 73 6f 6d 65 20 63 6f 6d 6d 6f 6e 20 54 43 4c   some common TCL
0190: 20 72 6f 75 74 69 6e 65 73 20 75 73 65 64 20 66   routines used f
01a0: 6f 72 20 72 65 67 72 65 73 73 69 6f 6e 0a 23 20  or regression.# 
01b0: 74 65 73 74 69 6e 67 20 74 68 65 20 53 51 4c 69  testing the SQLi
01c0: 74 65 20 6c 69 62 72 61 72 79 0a 23 0a 23 20 24  te library.#.# $
01d0: 49 64 3a 20 74 65 73 74 65 72 2e 74 63 6c 2c 76  Id: tester.tcl,v
01e0: 20 31 2e 39 39 20 32 30 30 38 2f 30 31 2f 31 36   1.99 2008/01/16
01f0: 20 30 38 3a 32 34 3a 34 36 20 64 61 6e 69 65 6c   08:24:46 daniel
0200: 6b 31 39 37 37 20 45 78 70 20 24 0a 0a 0a 73 65  k1977 Exp $...se
0210: 74 20 74 63 6c 5f 70 72 65 63 69 73 69 6f 6e 20  t tcl_precision 
0220: 31 35 0a 73 65 74 20 73 71 6c 69 74 65 5f 70 65  15.set sqlite_pe
0230: 6e 64 69 6e 67 5f 62 79 74 65 20 30 78 30 30 31  nding_byte 0x001
0240: 30 30 30 30 0a 0a 23 20 0a 23 20 43 68 65 63 6b  0000..# .# Check
0250: 20 74 68 65 20 63 6f 6d 6d 61 6e 64 2d 6c 69 6e   the command-lin
0260: 65 20 61 72 67 75 6d 65 6e 74 73 20 66 6f 72 20  e arguments for 
0270: 61 20 64 65 66 61 75 6c 74 20 73 6f 66 74 2d 68  a default soft-h
0280: 65 61 70 2d 6c 69 6d 69 74 2e 0a 23 20 53 74 6f  eap-limit..# Sto
0290: 72 65 20 74 68 69 73 20 64 65 66 61 75 6c 74 20  re this default 
02a0: 76 61 6c 75 65 20 69 6e 20 74 68 65 20 67 6c 6f  value in the glo
02b0: 62 61 6c 20 76 61 72 69 61 62 6c 65 20 3a 3a 73  bal variable ::s
02c0: 6f 66 74 5f 6c 69 6d 69 74 20 61 6e 64 0a 23 20  oft_limit and.# 
02d0: 75 70 64 61 74 65 20 74 68 65 20 73 6f 66 74 2d  update the soft-
02e0: 68 65 61 70 2d 6c 69 6d 69 74 20 65 61 63 68 20  heap-limit each 
02f0: 74 69 6d 65 20 74 68 69 73 20 73 63 72 69 70 74  time this script
0300: 20 69 73 20 72 75 6e 2e 20 20 49 6e 20 74 68 61   is run.  In tha
0310: 74 0a 23 20 77 61 79 20 69 66 20 61 6e 20 69 6e  t.# way if an in
0320: 64 69 76 69 64 75 61 6c 20 74 65 73 74 20 66 69  dividual test fi
0330: 6c 65 20 63 68 61 6e 67 65 73 20 74 68 65 20 73  le changes the s
0340: 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74 2c 20  oft-heap-limit, 
0350: 69 74 0a 23 20 77 69 6c 6c 20 62 65 20 72 65 73  it.# will be res
0360: 65 74 20 61 74 20 74 68 65 20 73 74 61 72 74 20  et at the start 
0370: 6f 66 20 74 68 65 20 6e 65 78 74 20 74 65 73 74  of the next test
0380: 20 66 69 6c 65 2e 0a 23 0a 69 66 20 7b 21 5b 69   file..#.if {![i
0390: 6e 66 6f 20 65 78 69 73 74 73 20 73 6f 66 74 5f  nfo exists soft_
03a0: 6c 69 6d 69 74 5d 7d 20 7b 0a 20 20 73 65 74 20  limit]} {.  set 
03b0: 73 6f 66 74 5f 6c 69 6d 69 74 20 30 0a 20 20 66  soft_limit 0.  f
03c0: 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69  or {set i 0} {$i
03d0: 3c 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 76 5d  <[llength $argv]
03e0: 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20  } {incr i} {.   
03f0: 20 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 5e 2d   if {[regexp {^-
0400: 2d 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74  -soft-heap-limit
0410: 3d 28 2e 2b 29 24 7d 20 5b 6c 69 6e 64 65 78 20  =(.+)$} [lindex 
0420: 24 61 72 67 76 20 24 69 5d 20 61 6c 6c 20 76 61  $argv $i] all va
0430: 6c 75 65 5d 7d 20 7b 0a 20 20 20 20 20 20 69 66  lue]} {.      if
0440: 20 7b 24 76 61 6c 75 65 21 3d 22 6f 66 66 22 7d   {$value!="off"}
0450: 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 73   {.        set s
0460: 6f 66 74 5f 6c 69 6d 69 74 20 24 76 61 6c 75 65  oft_limit $value
0470: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 73  .      }.      s
0480: 65 74 20 61 72 67 76 20 5b 6c 72 65 70 6c 61 63  et argv [lreplac
0490: 65 20 24 61 72 67 76 20 24 69 20 24 69 5d 0a 20  e $argv $i $i]. 
04a0: 20 20 20 7d 0a 20 20 7d 0a 7d 0a 73 71 6c 69 74     }.  }.}.sqlit
04b0: 65 33 5f 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d  e3_soft_heap_lim
04c0: 69 74 20 24 73 6f 66 74 5f 6c 69 6d 69 74 0a 0a  it $soft_limit..
04d0: 23 20 0a 23 20 43 68 65 63 6b 20 74 68 65 20 63  # .# Check the c
04e0: 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 20 61 72 67 75  ommand-line argu
04f0: 6d 65 6e 74 73 20 74 6f 20 73 65 74 20 74 68 65  ments to set the
0500: 20 6d 65 6d 6f 72 79 20 64 65 62 75 67 67 65 72   memory debugger
0510: 0a 23 20 62 61 63 6b 74 72 61 63 65 20 64 65 70  .# backtrace dep
0520: 74 68 2e 0a 23 0a 23 20 53 65 65 20 74 68 65 20  th..#.# See the 
0530: 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67  sqlite3_memdebug
0540: 5f 62 61 63 6b 74 72 61 63 65 28 29 20 66 75 6e  _backtrace() fun
0550: 63 74 69 6f 6e 20 69 6e 20 6d 65 6d 32 2e 63 20  ction in mem2.c 
0560: 6f 72 0a 23 20 74 65 73 74 5f 6d 61 6c 6c 6f 63  or.# test_malloc
0570: 2e 63 20 66 6f 72 20 61 64 64 69 74 69 6f 6e 61  .c for additiona
0580: 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0a 23  l information..#
0590: 0a 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b  .for {set i 0} {
05a0: 24 69 3c 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67  $i<[llength $arg
05b0: 76 5d 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20  v]} {incr i} {. 
05c0: 20 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 5e 2d   if {[regexp {^-
05d0: 2d 62 61 63 6b 74 72 61 63 65 3d 28 5c 64 2b 29  -backtrace=(\d+)
05e0: 24 7d 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 76  $} [lindex $argv
05f0: 20 24 69 5d 20 61 6c 6c 20 76 61 6c 75 65 5d 7d   $i] all value]}
0600: 20 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 6d   {.    sqlite3_m
0610: 65 6d 64 65 62 75 67 5f 62 61 63 6b 74 72 61 63  emdebug_backtrac
0620: 65 20 24 76 61 6c 75 65 0a 20 20 20 20 73 65 74  e $value.    set
0630: 20 61 72 67 76 20 5b 6c 72 65 70 6c 61 63 65 20   argv [lreplace 
0640: 24 61 72 67 76 20 24 69 20 24 69 5d 0a 20 20 7d  $argv $i $i].  }
0650: 0a 7d 0a 0a 23 20 0a 23 20 43 68 65 63 6b 20 74  .}..# .# Check t
0660: 68 65 20 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 20  he command-line 
0670: 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 73 65 74  arguments to set
0680: 20 74 68 65 20 6d 61 78 69 6d 75 6d 20 6e 75 6d   the maximum num
0690: 62 65 72 20 6f 66 0a 23 20 65 72 72 6f 72 73 20  ber of.# errors 
06a0: 74 6f 6c 65 72 61 74 65 64 20 62 65 66 6f 72 65  tolerated before
06b0: 20 68 61 6c 74 69 6e 67 2e 0a 23 0a 69 66 20 7b   halting..#.if {
06c0: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 6d 61  ![info exists ma
06d0: 78 45 72 72 5d 7d 20 7b 0a 20 20 73 65 74 20 6d  xErr]} {.  set m
06e0: 61 78 45 72 72 20 31 30 30 30 0a 7d 0a 66 6f 72  axErr 1000.}.for
06f0: 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 3c 5b   {set i 0} {$i<[
0700: 6c 6c 65 6e 67 74 68 20 24 61 72 67 76 5d 7d 20  llength $argv]} 
0710: 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 69 66 20  {incr i} {.  if 
0720: 7b 5b 72 65 67 65 78 70 20 7b 5e 2d 2d 6d 61 78  {[regexp {^--max
0730: 65 72 72 6f 72 3d 28 5c 64 2b 29 24 7d 20 5b 6c  error=(\d+)$} [l
0740: 69 6e 64 65 78 20 24 61 72 67 76 20 24 69 5d 20  index $argv $i] 
0750: 61 6c 6c 20 6d 61 78 45 72 72 5d 7d 20 7b 0a 20  all maxErr]} {. 
0760: 20 20 20 73 65 74 20 61 72 67 76 20 5b 6c 72 65     set argv [lre
0770: 70 6c 61 63 65 20 24 61 72 67 76 20 24 69 20 24  place $argv $i $
0780: 69 5d 0a 20 20 7d 0a 7d 0a 23 70 75 74 73 20 22  i].  }.}.#puts "
0790: 4d 61 78 20 65 72 72 6f 72 20 3d 20 24 6d 61 78  Max error = $max
07a0: 45 72 72 22 0a 0a 0a 23 20 55 73 65 20 74 68 65  Err"...# Use the
07b0: 20 70 61 67 65 72 20 63 6f 64 65 63 20 69 66 20   pager codec if 
07c0: 69 74 20 69 73 20 61 76 61 69 6c 61 62 6c 65 0a  it is available.
07d0: 23 0a 69 66 20 7b 5b 73 71 6c 69 74 65 33 20 2d  #.if {[sqlite3 -
07e0: 68 61 73 2d 63 6f 64 65 63 5d 20 26 26 20 5b 69  has-codec] && [i
07f0: 6e 66 6f 20 63 6f 6d 6d 61 6e 64 20 73 71 6c 69  nfo command sqli
0800: 74 65 5f 6f 72 69 67 5d 3d 3d 22 22 7d 20 7b 0a  te_orig]==""} {.
0810: 20 20 72 65 6e 61 6d 65 20 73 71 6c 69 74 65 33    rename sqlite3
0820: 20 73 71 6c 69 74 65 5f 6f 72 69 67 0a 20 20 70   sqlite_orig.  p
0830: 72 6f 63 20 73 71 6c 69 74 65 33 20 7b 61 72 67  roc sqlite3 {arg
0840: 73 7d 20 7b 0a 20 20 20 20 69 66 20 7b 5b 6c 6c  s} {.    if {[ll
0850: 65 6e 67 74 68 20 24 61 72 67 73 5d 3d 3d 32 20  ength $args]==2 
0860: 26 26 20 5b 73 74 72 69 6e 67 20 69 6e 64 65 78  && [string index
0870: 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20 30   [lindex $args 0
0880: 5d 20 30 5d 21 3d 22 2d 22 7d 20 7b 0a 20 20 20  ] 0]!="-"} {.   
0890: 20 20 20 6c 61 70 70 65 6e 64 20 61 72 67 73 20     lappend args 
08a0: 2d 6b 65 79 20 7b 78 79 7a 7a 79 7d 0a 20 20 20  -key {xyzzy}.   
08b0: 20 7d 0a 20 20 20 20 75 70 6c 65 76 65 6c 20 31   }.    uplevel 1
08c0: 20 73 71 6c 69 74 65 5f 6f 72 69 67 20 24 61 72   sqlite_orig $ar
08d0: 67 73 0a 20 20 7d 0a 7d 0a 0a 0a 23 20 43 72 65  gs.  }.}...# Cre
08e0: 61 74 65 20 61 20 74 65 73 74 20 64 61 74 61 62  ate a test datab
08f0: 61 73 65 0a 23 0a 63 61 74 63 68 20 7b 64 62 20  ase.#.catch {db 
0900: 63 6c 6f 73 65 7d 0a 66 69 6c 65 20 64 65 6c 65  close}.file dele
0910: 74 65 20 2d 66 6f 72 63 65 20 74 65 73 74 2e 64  te -force test.d
0920: 62 0a 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66  b.file delete -f
0930: 6f 72 63 65 20 74 65 73 74 2e 64 62 2d 6a 6f 75  orce test.db-jou
0940: 72 6e 61 6c 0a 73 71 6c 69 74 65 33 20 64 62 20  rnal.sqlite3 db 
0950: 2e 2f 74 65 73 74 2e 64 62 0a 73 65 74 20 3a 3a  ./test.db.set ::
0960: 44 42 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e 6e  DB [sqlite3_conn
0970: 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64  ection_pointer d
0980: 62 5d 0a 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  b].if {[info exi
0990: 73 74 73 20 3a 3a 53 45 54 55 50 5f 53 51 4c 5d  sts ::SETUP_SQL]
09a0: 7d 20 7b 0a 20 20 64 62 20 65 76 61 6c 20 24 3a  } {.  db eval $:
09b0: 3a 53 45 54 55 50 5f 53 51 4c 0a 7d 0a 0a 23 20  :SETUP_SQL.}..# 
09c0: 41 62 6f 72 74 20 65 61 72 6c 79 20 69 66 20 74  Abort early if t
09d0: 68 69 73 20 73 63 72 69 70 74 20 68 61 73 20 62  his script has b
09e0: 65 65 6e 20 72 75 6e 20 62 65 66 6f 72 65 2e 0a  een run before..
09f0: 23 0a 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73  #.if {[info exis
0a00: 74 73 20 6e 54 65 73 74 5d 7d 20 72 65 74 75 72  ts nTest]} retur
0a10: 6e 0a 0a 23 20 53 65 74 20 74 68 65 20 74 65 73  n..# Set the tes
0a20: 74 20 63 6f 75 6e 74 65 72 73 20 74 6f 20 7a 65  t counters to ze
0a30: 72 6f 0a 23 0a 73 65 74 20 6e 45 72 72 20 30 0a  ro.#.set nErr 0.
0a40: 73 65 74 20 6e 54 65 73 74 20 30 0a 73 65 74 20  set nTest 0.set 
0a50: 73 6b 69 70 5f 74 65 73 74 20 30 0a 73 65 74 20  skip_test 0.set 
0a60: 66 61 69 6c 4c 69 73 74 20 7b 7d 0a 69 66 20 7b  failList {}.if {
0a70: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 73 70  ![info exists sp
0a80: 65 65 64 54 65 73 74 5d 7d 20 7b 0a 20 20 73 65  eedTest]} {.  se
0a90: 74 20 73 70 65 65 64 54 65 73 74 20 30 0a 7d 0a  t speedTest 0.}.
0aa0: 0a 23 20 49 6e 76 6f 6b 65 20 74 68 65 20 64 6f  .# Invoke the do
0ab0: 5f 74 65 73 74 20 70 72 6f 63 65 64 75 72 65 20  _test procedure 
0ac0: 74 6f 20 72 75 6e 20 61 20 73 69 6e 67 6c 65 20  to run a single 
0ad0: 74 65 73 74 20 0a 23 0a 70 72 6f 63 20 64 6f 5f  test .#.proc do_
0ae0: 74 65 73 74 20 7b 6e 61 6d 65 20 63 6d 64 20 65  test {name cmd e
0af0: 78 70 65 63 74 65 64 7d 20 7b 0a 20 20 67 6c 6f  xpected} {.  glo
0b00: 62 61 6c 20 61 72 67 76 20 6e 45 72 72 20 6e 54  bal argv nErr nT
0b10: 65 73 74 20 73 6b 69 70 5f 74 65 73 74 20 6d 61  est skip_test ma
0b20: 78 45 72 72 0a 20 20 73 71 6c 69 74 65 33 5f 6d  xErr.  sqlite3_m
0b30: 65 6d 64 65 62 75 67 5f 73 65 74 74 69 74 6c 65  emdebug_settitle
0b40: 20 24 6e 61 6d 65 0a 20 20 69 66 20 7b 24 73 6b   $name.  if {$sk
0b50: 69 70 5f 74 65 73 74 7d 20 7b 0a 20 20 20 20 73  ip_test} {.    s
0b60: 65 74 20 73 6b 69 70 5f 74 65 73 74 20 30 0a 20  et skip_test 0. 
0b70: 20 20 20 72 65 74 75 72 6e 0a 20 20 7d 0a 20 20     return.  }.  
0b80: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72  if {[llength $ar
0b90: 67 76 5d 3d 3d 30 7d 20 7b 20 0a 20 20 20 20 73  gv]==0} { .    s
0ba0: 65 74 20 67 6f 20 31 0a 20 20 7d 20 65 6c 73 65  et go 1.  } else
0bb0: 20 7b 0a 20 20 20 20 73 65 74 20 67 6f 20 30 0a   {.    set go 0.
0bc0: 20 20 20 20 66 6f 72 65 61 63 68 20 70 61 74 74      foreach patt
0bd0: 65 72 6e 20 24 61 72 67 76 20 7b 0a 20 20 20 20  ern $argv {.    
0be0: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61    if {[string ma
0bf0: 74 63 68 20 24 70 61 74 74 65 72 6e 20 24 6e 61  tch $pattern $na
0c00: 6d 65 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 73  me]} {.        s
0c10: 65 74 20 67 6f 20 31 0a 20 20 20 20 20 20 20 20  et go 1.        
0c20: 62 72 65 61 6b 0a 20 20 20 20 20 20 7d 0a 20 20  break.      }.  
0c30: 20 20 7d 0a 20 20 7d 0a 20 20 69 66 20 7b 21 24    }.  }.  if {!$
0c40: 67 6f 7d 20 72 65 74 75 72 6e 0a 20 20 69 6e 63  go} return.  inc
0c50: 72 20 6e 54 65 73 74 0a 20 20 70 75 74 73 20 2d  r nTest.  puts -
0c60: 6e 6f 6e 65 77 6c 69 6e 65 20 24 6e 61 6d 65 2e  nonewline $name.
0c70: 2e 2e 0a 20 20 66 6c 75 73 68 20 73 74 64 6f 75  ...  flush stdou
0c80: 74 0a 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b  t.  if {[catch {
0c90: 75 70 6c 65 76 65 6c 20 23 30 20 22 24 63 6d 64  uplevel #0 "$cmd
0ca0: 3b 5c 6e 22 7d 20 72 65 73 75 6c 74 5d 7d 20 7b  ;\n"} result]} {
0cb0: 0a 20 20 20 20 70 75 74 73 20 22 5c 6e 45 72 72  .    puts "\nErr
0cc0: 6f 72 3a 20 24 72 65 73 75 6c 74 22 0a 20 20 20  or: $result".   
0cd0: 20 69 6e 63 72 20 6e 45 72 72 0a 20 20 20 20 6c   incr nErr.    l
0ce0: 61 70 70 65 6e 64 20 3a 3a 66 61 69 6c 4c 69 73  append ::failLis
0cf0: 74 20 24 6e 61 6d 65 0a 20 20 20 20 69 66 20 7b  t $name.    if {
0d00: 24 6e 45 72 72 3e 24 6d 61 78 45 72 72 7d 20 7b  $nErr>$maxErr} {
0d10: 70 75 74 73 20 22 2a 2a 2a 20 47 69 76 69 6e 67  puts "*** Giving
0d20: 20 75 70 2e 2e 2e 22 3b 20 66 69 6e 61 6c 69 7a   up..."; finaliz
0d30: 65 5f 74 65 73 74 69 6e 67 7d 0a 20 20 7d 20 65  e_testing}.  } e
0d40: 6c 73 65 69 66 20 7b 5b 73 74 72 69 6e 67 20 63  lseif {[string c
0d50: 6f 6d 70 61 72 65 20 24 72 65 73 75 6c 74 20 24  ompare $result $
0d60: 65 78 70 65 63 74 65 64 5d 7d 20 7b 0a 20 20 20  expected]} {.   
0d70: 20 70 75 74 73 20 22 5c 6e 45 78 70 65 63 74 65   puts "\nExpecte
0d80: 64 3a 20 5c 5b 24 65 78 70 65 63 74 65 64 5c 5d  d: \[$expected\]
0d90: 5c 6e 20 20 20 20 20 47 6f 74 3a 20 5c 5b 24 72  \n     Got: \[$r
0da0: 65 73 75 6c 74 5c 5d 22 0a 20 20 20 20 69 6e 63  esult\]".    inc
0db0: 72 20 6e 45 72 72 0a 20 20 20 20 6c 61 70 70 65  r nErr.    lappe
0dc0: 6e 64 20 3a 3a 66 61 69 6c 4c 69 73 74 20 24 6e  nd ::failList $n
0dd0: 61 6d 65 0a 20 20 20 20 69 66 20 7b 24 6e 45 72  ame.    if {$nEr
0de0: 72 3e 3d 24 6d 61 78 45 72 72 7d 20 7b 70 75 74  r>=$maxErr} {put
0df0: 73 20 22 2a 2a 2a 20 47 69 76 69 6e 67 20 75 70  s "*** Giving up
0e00: 2e 2e 2e 22 3b 20 66 69 6e 61 6c 69 7a 65 5f 74  ..."; finalize_t
0e10: 65 73 74 69 6e 67 7d 0a 20 20 7d 20 65 6c 73 65  esting}.  } else
0e20: 20 7b 0a 20 20 20 20 70 75 74 73 20 22 20 4f 6b   {.    puts " Ok
0e30: 22 0a 20 20 7d 0a 20 20 66 6c 75 73 68 20 73 74  ".  }.  flush st
0e40: 64 6f 75 74 0a 7d 0a 0a 23 20 52 75 6e 20 61 6e  dout.}..# Run an
0e50: 20 53 51 4c 20 73 63 72 69 70 74 2e 20 20 0a 23   SQL script.  .#
0e60: 20 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62   Return the numb
0e70: 65 72 20 6f 66 20 6d 69 63 72 6f 73 65 63 6f 6e  er of microsecon
0e80: 64 73 20 70 65 72 20 73 74 61 74 65 6d 65 6e 74  ds per statement
0e90: 2e 0a 23 0a 70 72 6f 63 20 73 70 65 65 64 5f 74  ..#.proc speed_t
0ea0: 72 69 61 6c 20 7b 6e 61 6d 65 20 6e 75 6d 73 74  rial {name numst
0eb0: 6d 74 20 75 6e 69 74 73 20 73 71 6c 7d 20 7b 0a  mt units sql} {.
0ec0: 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e    puts -nonewlin
0ed0: 65 20 5b 66 6f 72 6d 61 74 20 7b 25 2d 32 31 2e  e [format {%-21.
0ee0: 32 31 73 20 7d 20 24 6e 61 6d 65 2e 2e 2e 5d 0a  21s } $name...].
0ef0: 20 20 66 6c 75 73 68 20 73 74 64 6f 75 74 0a 20    flush stdout. 
0f00: 20 73 65 74 20 73 70 65 65 64 20 5b 74 69 6d 65   set speed [time
0f10: 20 7b 73 71 6c 69 74 65 33 5f 65 78 65 63 5f 6e   {sqlite3_exec_n
0f20: 72 20 64 62 20 24 73 71 6c 7d 5d 0a 20 20 73 65  r db $sql}].  se
0f30: 74 20 74 6d 20 5b 6c 69 6e 64 65 78 20 24 73 70  t tm [lindex $sp
0f40: 65 65 64 20 30 5d 0a 20 20 73 65 74 20 72 61 74  eed 0].  set rat
0f50: 65 20 5b 65 78 70 72 20 7b 31 30 30 30 30 30 30  e [expr {1000000
0f60: 2e 30 2a 24 6e 75 6d 73 74 6d 74 2f 24 74 6d 7d  .0*$numstmt/$tm}
0f70: 5d 0a 20 20 73 65 74 20 75 32 20 24 75 6e 69 74  ].  set u2 $unit
0f80: 73 2f 73 0a 20 20 70 75 74 73 20 5b 66 6f 72 6d  s/s.  puts [form
0f90: 61 74 20 7b 25 31 32 64 20 75 53 20 25 32 30 2e  at {%12d uS %20.
0fa0: 35 66 20 25 73 7d 20 24 74 6d 20 24 72 61 74 65  5f %s} $tm $rate
0fb0: 20 24 75 32 5d 0a 20 20 67 6c 6f 62 61 6c 20 74   $u2].  global t
0fc0: 6f 74 61 6c 5f 74 69 6d 65 0a 20 20 73 65 74 20  otal_time.  set 
0fd0: 74 6f 74 61 6c 5f 74 69 6d 65 20 5b 65 78 70 72  total_time [expr
0fe0: 20 7b 24 74 6f 74 61 6c 5f 74 69 6d 65 2b 24 74   {$total_time+$t
0ff0: 6d 7d 5d 0a 7d 0a 70 72 6f 63 20 73 70 65 65 64  m}].}.proc speed
1000: 5f 74 72 69 61 6c 5f 69 6e 69 74 20 7b 6e 61 6d  _trial_init {nam
1010: 65 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 74 6f  e} {.  global to
1020: 74 61 6c 5f 74 69 6d 65 0a 20 20 73 65 74 20 74  tal_time.  set t
1030: 6f 74 61 6c 5f 74 69 6d 65 20 30 0a 7d 0a 70 72  otal_time 0.}.pr
1040: 6f 63 20 73 70 65 65 64 5f 74 72 69 61 6c 5f 73  oc speed_trial_s
1050: 75 6d 6d 61 72 79 20 7b 6e 61 6d 65 7d 20 7b 0a  ummary {name} {.
1060: 20 20 67 6c 6f 62 61 6c 20 74 6f 74 61 6c 5f 74    global total_t
1070: 69 6d 65 0a 20 20 70 75 74 73 20 5b 66 6f 72 6d  ime.  puts [form
1080: 61 74 20 7b 25 2d 32 31 2e 32 31 73 20 25 31 32  at {%-21.21s %12
1090: 64 20 75 53 20 54 4f 54 41 4c 7d 20 24 6e 61 6d  d uS TOTAL} $nam
10a0: 65 20 24 74 6f 74 61 6c 5f 74 69 6d 65 5d 0a 7d  e $total_time].}
10b0: 0a 0a 23 20 52 75 6e 20 74 68 69 73 20 72 6f 75  ..# Run this rou
10c0: 74 69 6e 65 20 6c 61 73 74 0a 23 0a 70 72 6f 63  tine last.#.proc
10d0: 20 66 69 6e 69 73 68 5f 74 65 73 74 20 7b 7d 20   finish_test {} 
10e0: 7b 0a 20 20 66 69 6e 61 6c 69 7a 65 5f 74 65 73  {.  finalize_tes
10f0: 74 69 6e 67 0a 7d 0a 70 72 6f 63 20 66 69 6e 61  ting.}.proc fina
1100: 6c 69 7a 65 5f 74 65 73 74 69 6e 67 20 7b 7d 20  lize_testing {} 
1110: 7b 0a 20 20 67 6c 6f 62 61 6c 20 6e 54 65 73 74  {.  global nTest
1120: 20 6e 45 72 72 20 73 71 6c 69 74 65 5f 6f 70 65   nErr sqlite_ope
1130: 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 0a 0a 20 20  n_file_count..  
1140: 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d  catch {db close}
1150: 0a 20 20 63 61 74 63 68 20 7b 64 62 32 20 63 6c  .  catch {db2 cl
1160: 6f 73 65 7d 0a 20 20 63 61 74 63 68 20 7b 64 62  ose}.  catch {db
1170: 33 20 63 6c 6f 73 65 7d 0a 0a 20 20 76 66 73 5f  3 close}..  vfs_
1180: 75 6e 6c 69 6e 6b 5f 74 65 73 74 0a 20 20 73 71  unlink_test.  sq
1190: 6c 69 74 65 33 20 64 62 20 7b 7d 0a 20 20 23 20  lite3 db {}.  # 
11a0: 73 71 6c 69 74 65 33 5f 63 6c 65 61 72 5f 74 73  sqlite3_clear_ts
11b0: 64 5f 6d 65 6d 64 65 62 75 67 0a 20 20 64 62 20  d_memdebug.  db 
11c0: 63 6c 6f 73 65 0a 20 20 73 65 74 20 68 65 61 70  close.  set heap
11d0: 6c 69 6d 69 74 20 5b 73 71 6c 69 74 65 33 5f 73  limit [sqlite3_s
11e0: 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69 74 5d 0a  oft_heap_limit].
11f0: 20 20 69 66 20 7b 24 68 65 61 70 6c 69 6d 69 74    if {$heaplimit
1200: 21 3d 24 3a 3a 73 6f 66 74 5f 6c 69 6d 69 74 7d  !=$::soft_limit}
1210: 20 7b 0a 20 20 20 20 70 75 74 73 20 22 73 6f 66   {.    puts "sof
1220: 74 2d 68 65 61 70 2d 6c 69 6d 69 74 20 63 68 61  t-heap-limit cha
1230: 6e 67 65 64 20 62 79 20 74 68 69 73 20 73 63 72  nged by this scr
1240: 69 70 74 5c 0a 20 20 20 20 20 20 20 20 20 20 66  ipt\.          f
1250: 72 6f 6d 20 24 3a 3a 73 6f 66 74 5f 6c 69 6d 69  rom $::soft_limi
1260: 74 20 74 6f 20 24 68 65 61 70 6c 69 6d 69 74 22  t to $heaplimit"
1270: 0a 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 68 65  .  } elseif {$he
1280: 61 70 6c 69 6d 69 74 21 3d 22 22 20 26 26 20 24  aplimit!="" && $
1290: 68 65 61 70 6c 69 6d 69 74 3e 30 7d 20 7b 0a 20  heaplimit>0} {. 
12a0: 20 20 20 70 75 74 73 20 22 73 6f 66 74 2d 68 65     puts "soft-he
12b0: 61 70 2d 6c 69 6d 69 74 20 73 65 74 20 74 6f 20  ap-limit set to 
12c0: 24 68 65 61 70 6c 69 6d 69 74 22 0a 20 20 7d 0a  $heaplimit".  }.
12d0: 20 20 73 71 6c 69 74 65 33 5f 73 6f 66 74 5f 68    sqlite3_soft_h
12e0: 65 61 70 5f 6c 69 6d 69 74 20 30 0a 20 20 69 6e  eap_limit 0.  in
12f0: 63 72 20 6e 54 65 73 74 0a 20 20 70 75 74 73 20  cr nTest.  puts 
1300: 22 24 6e 45 72 72 20 65 72 72 6f 72 73 20 6f 75  "$nErr errors ou
1310: 74 20 6f 66 20 24 6e 54 65 73 74 20 74 65 73 74  t of $nTest test
1320: 73 22 0a 20 20 69 66 20 7b 24 6e 45 72 72 3e 30  s".  if {$nErr>0
1330: 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22 46 61  } {.    puts "Fa
1340: 69 6c 75 72 65 73 20 6f 6e 20 74 68 65 73 65 20  ilures on these 
1350: 74 65 73 74 73 3a 20 24 3a 3a 66 61 69 6c 4c 69  tests: $::failLi
1360: 73 74 22 0a 20 20 7d 0a 20 20 69 66 20 7b 24 6e  st".  }.  if {$n
1370: 45 72 72 3e 30 20 26 26 20 21 5b 77 6f 72 6b 69  Err>0 && ![worki
1380: 6e 67 5f 36 34 62 69 74 5f 69 6e 74 5d 7d 20 7b  ng_64bit_int]} {
1390: 0a 20 20 20 20 70 75 74 73 20 22 2a 2a 2a 2a 2a  .    puts "*****
13a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
13b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
13c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
13d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 0a 20  *************". 
13e0: 20 20 20 70 75 74 73 20 22 4e 2e 42 2e 3a 20 20     puts "N.B.:  
13f0: 54 68 65 20 76 65 72 73 69 6f 6e 20 6f 66 20 54  The version of T
1400: 43 4c 20 74 68 61 74 20 79 6f 75 20 75 73 65 64  CL that you used
1410: 20 74 6f 20 62 75 69 6c 64 20 74 68 69 73 20 74   to build this t
1420: 65 73 74 20 68 61 72 6e 65 73 73 22 0a 20 20 20  est harness".   
1430: 20 70 75 74 73 20 22 69 73 20 64 65 66 65 63 74   puts "is defect
1440: 69 76 65 20 69 6e 20 74 68 61 74 20 69 74 20 64  ive in that it d
1450: 6f 65 73 20 6e 6f 74 20 73 75 70 70 6f 72 74 20  oes not support 
1460: 36 34 2d 62 69 74 20 69 6e 74 65 67 65 72 73 2e  64-bit integers.
1470: 20 20 53 6f 6d 65 20 6f 72 22 0a 20 20 20 20 70    Some or".    p
1480: 75 74 73 20 22 61 6c 6c 20 6f 66 20 74 68 65 20  uts "all of the 
1490: 74 65 73 74 20 66 61 69 6c 75 72 65 73 20 61 62  test failures ab
14a0: 6f 76 65 20 6d 69 67 68 74 20 62 65 20 61 20 72  ove might be a r
14b0: 65 73 75 6c 74 20 66 72 6f 6d 20 74 68 69 73 20  esult from this 
14c0: 64 65 66 65 63 74 22 0a 20 20 20 20 70 75 74 73  defect".    puts
14d0: 20 22 69 6e 20 79 6f 75 72 20 54 43 4c 20 62 75   "in your TCL bu
14e0: 69 6c 64 2e 22 0a 20 20 20 20 70 75 74 73 20 22  ild.".    puts "
14f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
1500: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
1510: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
1520: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
1530: 2a 2a 22 0a 20 20 7d 0a 20 20 69 66 20 7b 24 73  **".  }.  if {$s
1540: 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f  qlite_open_file_
1550: 63 6f 75 6e 74 7d 20 7b 0a 20 20 20 20 70 75 74  count} {.    put
1560: 73 20 22 24 73 71 6c 69 74 65 5f 6f 70 65 6e 5f  s "$sqlite_open_
1570: 66 69 6c 65 5f 63 6f 75 6e 74 20 66 69 6c 65 73  file_count files
1580: 20 77 65 72 65 20 6c 65 66 74 20 6f 70 65 6e 22   were left open"
1590: 0a 20 20 20 20 69 6e 63 72 20 6e 45 72 72 0a 20  .    incr nErr. 
15a0: 20 7d 0a 20 20 69 66 20 7b 5b 73 71 6c 69 74 65   }.  if {[sqlite
15b0: 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 64 5d 3e 30  3_memory_used]>0
15c0: 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22 55 6e  } {.    puts "Un
15d0: 66 72 65 65 64 20 6d 65 6d 6f 72 79 3a 20 5b 73  freed memory: [s
15e0: 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73  qlite3_memory_us
15f0: 65 64 5d 20 62 79 74 65 73 22 0a 20 20 20 20 69  ed] bytes".    i
1600: 6e 63 72 20 6e 45 72 72 0a 20 20 20 20 69 66 63  ncr nErr.    ifc
1610: 61 70 61 62 6c 65 20 6d 65 6d 64 65 62 75 67 7c  apable memdebug|
1620: 7c 28 6d 65 6d 33 26 26 64 65 62 75 67 29 20 7b  |(mem3&&debug) {
1630: 0a 20 20 20 20 20 20 70 75 74 73 20 22 57 72 69  .      puts "Wri
1640: 74 69 6e 67 20 75 6e 66 72 65 65 64 20 6d 65 6d  ting unfreed mem
1650: 6f 72 79 20 6c 6f 67 20 74 6f 20 5c 22 2e 2f 6d  ory log to \"./m
1660: 65 6d 6c 65 61 6b 2e 74 78 74 5c 22 22 0a 20 20  emleak.txt\"".  
1670: 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64      sqlite3_memd
1680: 65 62 75 67 5f 64 75 6d 70 20 2e 2f 6d 65 6d 6c  ebug_dump ./meml
1690: 65 61 6b 2e 74 78 74 0a 20 20 20 20 7d 0a 20 20  eak.txt.    }.  
16a0: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 70 75 74  } else {.    put
16b0: 73 20 22 41 6c 6c 20 6d 65 6d 6f 72 79 20 61 6c  s "All memory al
16c0: 6c 6f 63 61 74 69 6f 6e 73 20 66 72 65 65 64 20  locations freed 
16d0: 2d 20 6e 6f 20 6c 65 61 6b 73 22 0a 20 20 20 20  - no leaks".    
16e0: 69 66 63 61 70 61 62 6c 65 20 6d 65 6d 64 65 62  ifcapable memdeb
16f0: 75 67 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 74  ug {.      sqlit
1700: 65 33 5f 6d 65 6d 64 65 62 75 67 5f 64 75 6d 70  e3_memdebug_dump
1710: 20 2e 2f 6d 65 6d 75 73 61 67 65 2e 74 78 74 0a   ./memusage.txt.
1720: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 70 75 74 73      }.  }.  puts
1730: 20 22 4d 61 78 69 6d 75 6d 20 6d 65 6d 6f 72 79   "Maximum memory
1740: 20 75 73 61 67 65 3a 20 5b 73 71 6c 69 74 65 33   usage: [sqlite3
1750: 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 61 74 65  _memory_highwate
1760: 72 5d 20 62 79 74 65 73 22 0a 20 20 66 6f 72 65  r] bytes".  fore
1770: 61 63 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63  ach f [glob -noc
1780: 6f 6d 70 6c 61 69 6e 20 74 65 73 74 2e 64 62 2d  omplain test.db-
1790: 2a 2d 6a 6f 75 72 6e 61 6c 5d 20 7b 0a 20 20 20  *-journal] {.   
17a0: 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f   file delete -fo
17b0: 72 63 65 20 24 66 0a 20 20 7d 0a 20 20 66 6f 72  rce $f.  }.  for
17c0: 65 61 63 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f  each f [glob -no
17d0: 63 6f 6d 70 6c 61 69 6e 20 74 65 73 74 2e 64 62  complain test.db
17e0: 2d 6d 6a 2a 5d 20 7b 0a 20 20 20 20 66 69 6c 65  -mj*] {.    file
17f0: 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 24   delete -force $
1800: 66 0a 20 20 7d 0a 20 20 65 78 69 74 20 5b 65 78  f.  }.  exit [ex
1810: 70 72 20 7b 24 6e 45 72 72 3e 30 7d 5d 0a 7d 0a  pr {$nErr>0}].}.
1820: 0a 23 20 41 20 70 72 6f 63 65 64 75 72 65 20 74  .# A procedure t
1830: 6f 20 65 78 65 63 75 74 65 20 53 51 4c 0a 23 0a  o execute SQL.#.
1840: 70 72 6f 63 20 65 78 65 63 73 71 6c 20 7b 73 71  proc execsql {sq
1850: 6c 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 23  l {db db}} {.  #
1860: 20 70 75 74 73 20 22 53 51 4c 20 3d 20 24 73 71   puts "SQL = $sq
1870: 6c 22 0a 20 20 75 70 6c 65 76 65 6c 20 5b 6c 69  l".  uplevel [li
1880: 73 74 20 24 64 62 20 65 76 61 6c 20 24 73 71 6c  st $db eval $sql
1890: 5d 0a 7d 0a 0a 23 20 45 78 65 63 75 74 65 20 53  ].}..# Execute S
18a0: 51 4c 20 61 6e 64 20 63 61 74 63 68 20 65 78 63  QL and catch exc
18b0: 65 70 74 69 6f 6e 73 2e 0a 23 0a 70 72 6f 63 20  eptions..#.proc 
18c0: 63 61 74 63 68 73 71 6c 20 7b 73 71 6c 20 7b 64  catchsql {sql {d
18d0: 62 20 64 62 7d 7d 20 7b 0a 20 20 23 20 70 75 74  b db}} {.  # put
18e0: 73 20 22 53 51 4c 20 3d 20 24 73 71 6c 22 0a 20  s "SQL = $sql". 
18f0: 20 73 65 74 20 72 20 5b 63 61 74 63 68 20 7b 24   set r [catch {$
1900: 64 62 20 65 76 61 6c 20 24 73 71 6c 7d 20 6d 73  db eval $sql} ms
1910: 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72 20 24  g].  lappend r $
1920: 6d 73 67 0a 20 20 72 65 74 75 72 6e 20 24 72 0a  msg.  return $r.
1930: 7d 0a 0a 23 20 44 6f 20 61 6e 20 56 44 42 45 20  }..# Do an VDBE 
1940: 63 6f 64 65 20 64 75 6d 70 20 6f 6e 20 74 68 65  code dump on the
1950: 20 53 51 4c 20 67 69 76 65 6e 0a 23 0a 70 72 6f   SQL given.#.pro
1960: 63 20 65 78 70 6c 61 69 6e 20 7b 73 71 6c 20 7b  c explain {sql {
1970: 64 62 20 64 62 7d 7d 20 7b 0a 20 20 70 75 74 73  db db}} {.  puts
1980: 20 22 22 0a 20 20 70 75 74 73 20 22 61 64 64 72   "".  puts "addr
1990: 20 20 6f 70 63 6f 64 65 20 20 20 20 20 20 20 20    opcode        
19a0: 70 31 20 20 20 20 20 20 70 32 20 20 20 20 20 20  p1      p2      
19b0: 70 33 20 20 20 20 20 20 70 34 20 20 20 20 20 20  p3      p4      
19c0: 20 20 20 20 20 20 20 20 20 70 35 20 20 23 22 0a           p5  #".
19d0: 20 20 70 75 74 73 20 22 2d 2d 2d 2d 20 20 2d 2d    puts "----  --
19e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d  ----------  ----
19f0: 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d  --  ------  ----
1a00: 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  --  ------------
1a10: 2d 2d 2d 20 20 2d 2d 20 20 2d 22 0a 20 20 24 64  ---  --  -".  $d
1a20: 62 20 65 76 61 6c 20 22 65 78 70 6c 61 69 6e 20  b eval "explain 
1a30: 24 73 71 6c 22 20 7b 7d 20 7b 0a 20 20 20 20 70  $sql" {} {.    p
1a40: 75 74 73 20 5b 66 6f 72 6d 61 74 20 7b 25 2d 34  uts [format {%-4
1a50: 64 20 20 25 2d 31 32 2e 31 32 73 20 20 25 2d 36  d  %-12.12s  %-6
1a60: 64 20 20 25 2d 36 64 20 20 25 2d 36 64 20 20 25  d  %-6d  %-6d  %
1a70: 20 2d 31 37 73 20 25 73 20 20 25 73 7d 20 5c 0a   -17s %s  %s} \.
1a80: 20 20 20 20 20 20 24 61 64 64 72 20 24 6f 70 63        $addr $opc
1a90: 6f 64 65 20 24 70 31 20 24 70 32 20 24 70 33 20  ode $p1 $p2 $p3 
1aa0: 24 70 34 20 24 70 35 20 24 63 6f 6d 6d 65 6e 74  $p4 $p5 $comment
1ab0: 0a 20 20 20 20 5d 0a 20 20 7d 0a 7d 0a 0a 23 20  .    ].  }.}..# 
1ac0: 41 6e 6f 74 68 65 72 20 70 72 6f 63 65 64 75 72  Another procedur
1ad0: 65 20 74 6f 20 65 78 65 63 75 74 65 20 53 51 4c  e to execute SQL
1ae0: 2e 20 20 54 68 69 73 20 6f 6e 65 20 69 6e 63 6c  .  This one incl
1af0: 75 64 65 73 20 74 68 65 20 66 69 65 6c 64 0a 23  udes the field.#
1b00: 20 6e 61 6d 65 73 20 69 6e 20 74 68 65 20 72 65   names in the re
1b10: 74 75 72 6e 65 64 20 6c 69 73 74 2e 0a 23 0a 70  turned list..#.p
1b20: 72 6f 63 20 65 78 65 63 73 71 6c 32 20 7b 73 71  roc execsql2 {sq
1b30: 6c 7d 20 7b 0a 20 20 73 65 74 20 72 65 73 75 6c  l} {.  set resul
1b40: 74 20 7b 7d 0a 20 20 64 62 20 65 76 61 6c 20 24  t {}.  db eval $
1b50: 73 71 6c 20 64 61 74 61 20 7b 0a 20 20 20 20 66  sql data {.    f
1b60: 6f 72 65 61 63 68 20 66 20 24 64 61 74 61 28 2a  oreach f $data(*
1b70: 29 20 7b 0a 20 20 20 20 20 20 6c 61 70 70 65 6e  ) {.      lappen
1b80: 64 20 72 65 73 75 6c 74 20 24 66 20 24 64 61 74  d result $f $dat
1b90: 61 28 24 66 29 0a 20 20 20 20 7d 0a 20 20 7d 0a  a($f).    }.  }.
1ba0: 20 20 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74    return $result
1bb0: 0a 7d 0a 0a 23 20 55 73 65 20 74 68 65 20 6e 6f  .}..# Use the no
1bc0: 6e 2d 63 61 6c 6c 62 61 63 6b 20 41 50 49 20 74  n-callback API t
1bd0: 6f 20 65 78 65 63 75 74 65 20 6d 75 6c 74 69 70  o execute multip
1be0: 6c 65 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74  le SQL statement
1bf0: 73 0a 23 0a 70 72 6f 63 20 73 74 65 70 73 71 6c  s.#.proc stepsql
1c00: 20 7b 64 62 70 74 72 20 73 71 6c 7d 20 7b 0a 20   {dbptr sql} {. 
1c10: 20 73 65 74 20 73 71 6c 20 5b 73 74 72 69 6e 67   set sql [string
1c20: 20 74 72 69 6d 20 24 73 71 6c 5d 0a 20 20 73 65   trim $sql].  se
1c30: 74 20 72 20 30 0a 20 20 77 68 69 6c 65 20 7b 5b  t r 0.  while {[
1c40: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 73  string length $s
1c50: 71 6c 5d 3e 30 7d 20 7b 0a 20 20 20 20 69 66 20  ql]>0} {.    if 
1c60: 7b 5b 63 61 74 63 68 20 7b 73 71 6c 69 74 65 33  {[catch {sqlite3
1c70: 5f 70 72 65 70 61 72 65 20 24 64 62 70 74 72 20  _prepare $dbptr 
1c80: 24 73 71 6c 20 2d 31 20 73 71 6c 74 61 69 6c 7d  $sql -1 sqltail}
1c90: 20 76 6d 5d 7d 20 7b 0a 20 20 20 20 20 20 72 65   vm]} {.      re
1ca0: 74 75 72 6e 20 5b 6c 69 73 74 20 31 20 24 76 6d  turn [list 1 $vm
1cb0: 5d 0a 20 20 20 20 7d 0a 20 20 20 20 73 65 74 20  ].    }.    set 
1cc0: 73 71 6c 20 5b 73 74 72 69 6e 67 20 74 72 69 6d  sql [string trim
1cd0: 20 24 73 71 6c 74 61 69 6c 5d 0a 23 20 20 20 20   $sqltail].#    
1ce0: 77 68 69 6c 65 20 7b 5b 73 71 6c 69 74 65 5f 73  while {[sqlite_s
1cf0: 74 65 70 20 24 76 6d 20 4e 20 56 41 4c 20 43 4f  tep $vm N VAL CO
1d00: 4c 5d 3d 3d 22 53 51 4c 49 54 45 5f 52 4f 57 22  L]=="SQLITE_ROW"
1d10: 7d 20 7b 0a 23 20 20 20 20 20 20 66 6f 72 65 61  } {.#      forea
1d20: 63 68 20 76 20 24 56 41 4c 20 7b 6c 61 70 70 65  ch v $VAL {lappe
1d30: 6e 64 20 72 20 24 76 7d 0a 23 20 20 20 20 7d 0a  nd r $v}.#    }.
1d40: 20 20 20 20 77 68 69 6c 65 20 7b 5b 73 71 6c 69      while {[sqli
1d50: 74 65 33 5f 73 74 65 70 20 24 76 6d 5d 3d 3d 22  te3_step $vm]=="
1d60: 53 51 4c 49 54 45 5f 52 4f 57 22 7d 20 7b 0a 20  SQLITE_ROW"} {. 
1d70: 20 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69 20       for {set i 
1d80: 30 7d 20 7b 24 69 3c 5b 73 71 6c 69 74 65 33 5f  0} {$i<[sqlite3_
1d90: 64 61 74 61 5f 63 6f 75 6e 74 20 24 76 6d 5d 7d  data_count $vm]}
1da0: 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20   {incr i} {.    
1db0: 20 20 20 20 6c 61 70 70 65 6e 64 20 72 20 5b 73      lappend r [s
1dc0: 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65  qlite3_column_te
1dd0: 78 74 20 24 76 6d 20 24 69 5d 0a 20 20 20 20 20  xt $vm $i].     
1de0: 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20   }.    }.    if 
1df0: 7b 5b 63 61 74 63 68 20 7b 73 71 6c 69 74 65 33  {[catch {sqlite3
1e00: 5f 66 69 6e 61 6c 69 7a 65 20 24 76 6d 7d 20 65  _finalize $vm} e
1e10: 72 72 6d 73 67 5d 7d 20 7b 0a 20 20 20 20 20 20  rrmsg]} {.      
1e20: 72 65 74 75 72 6e 20 5b 6c 69 73 74 20 31 20 24  return [list 1 $
1e30: 65 72 72 6d 73 67 5d 0a 20 20 20 20 7d 0a 20 20  errmsg].    }.  
1e40: 7d 0a 20 20 72 65 74 75 72 6e 20 24 72 0a 7d 0a  }.  return $r.}.
1e50: 0a 23 20 44 65 6c 65 74 65 20 61 20 66 69 6c 65  .# Delete a file
1e60: 20 6f 72 20 64 69 72 65 63 74 6f 72 79 0a 23 0a   or directory.#.
1e70: 70 72 6f 63 20 66 6f 72 63 65 64 65 6c 65 74 65  proc forcedelete
1e80: 20 7b 66 69 6c 65 6e 61 6d 65 7d 20 7b 0a 20 20   {filename} {.  
1e90: 69 66 20 7b 5b 63 61 74 63 68 20 7b 66 69 6c 65  if {[catch {file
1ea0: 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 24   delete -force $
1eb0: 66 69 6c 65 6e 61 6d 65 7d 5d 7d 20 7b 0a 20 20  filename}]} {.  
1ec0: 20 20 65 78 65 63 20 72 6d 20 2d 72 66 20 24 66    exec rm -rf $f
1ed0: 69 6c 65 6e 61 6d 65 0a 20 20 7d 0a 7d 0a 0a 23  ilename.  }.}..#
1ee0: 20 44 6f 20 61 6e 20 69 6e 74 65 67 72 69 74 79   Do an integrity
1ef0: 20 63 68 65 63 6b 20 6f 66 20 74 68 65 20 65 6e   check of the en
1f00: 74 69 72 65 20 64 61 74 61 62 61 73 65 0a 23 0a  tire database.#.
1f10: 70 72 6f 63 20 69 6e 74 65 67 72 69 74 79 5f 63  proc integrity_c
1f20: 68 65 63 6b 20 7b 6e 61 6d 65 7d 20 7b 0a 20 20  heck {name} {.  
1f30: 69 66 63 61 70 61 62 6c 65 20 69 6e 74 65 67 72  ifcapable integr
1f40: 69 74 79 63 6b 20 7b 0a 20 20 20 20 64 6f 5f 74  ityck {.    do_t
1f50: 65 73 74 20 24 6e 61 6d 65 20 7b 0a 20 20 20 20  est $name {.    
1f60: 20 20 65 78 65 63 73 71 6c 20 7b 50 52 41 47 4d    execsql {PRAGM
1f70: 41 20 69 6e 74 65 67 72 69 74 79 5f 63 68 65 63  A integrity_chec
1f80: 6b 7d 0a 20 20 20 20 7d 20 7b 6f 6b 7d 0a 20 20  k}.    } {ok}.  
1f90: 7d 0a 7d 0a 0a 70 72 6f 63 20 66 69 78 5f 69 66  }.}..proc fix_if
1fa0: 63 61 70 61 62 6c 65 5f 65 78 70 72 20 7b 65 78  capable_expr {ex
1fb0: 70 72 7d 20 7b 0a 20 20 73 65 74 20 72 65 74 20  pr} {.  set ret 
1fc0: 22 22 0a 20 20 73 65 74 20 73 74 61 74 65 20 30  "".  set state 0
1fd0: 0a 20 20 66 6f 72 20 7b 73 65 74 20 69 20 30 7d  .  for {set i 0}
1fe0: 20 7b 24 69 20 3c 20 5b 73 74 72 69 6e 67 20 6c   {$i < [string l
1ff0: 65 6e 67 74 68 20 24 65 78 70 72 5d 7d 20 7b 69  ength $expr]} {i
2000: 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20 73 65 74  ncr i} {.    set
2010: 20 63 68 61 72 20 5b 73 74 72 69 6e 67 20 72 61   char [string ra
2020: 6e 67 65 20 24 65 78 70 72 20 24 69 20 24 69 5d  nge $expr $i $i]
2030: 0a 20 20 20 20 73 65 74 20 6e 65 77 73 74 61 74  .    set newstat
2040: 65 20 5b 65 78 70 72 20 7b 5b 73 74 72 69 6e 67  e [expr {[string
2050: 20 69 73 20 61 6c 6e 75 6d 20 24 63 68 61 72 5d   is alnum $char]
2060: 20 7c 7c 20 24 63 68 61 72 20 65 71 20 22 5f 22   || $char eq "_"
2070: 7d 5d 0a 20 20 20 20 69 66 20 7b 24 6e 65 77 73  }].    if {$news
2080: 74 61 74 65 20 26 26 20 21 24 73 74 61 74 65 7d  tate && !$state}
2090: 20 7b 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20   {.      append 
20a0: 72 65 74 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 6f  ret {$::sqlite_o
20b0: 70 74 69 6f 6e 73 28 7d 0a 20 20 20 20 7d 0a 20  ptions(}.    }. 
20c0: 20 20 20 69 66 20 7b 21 24 6e 65 77 73 74 61 74     if {!$newstat
20d0: 65 20 26 26 20 24 73 74 61 74 65 7d 20 7b 0a 20  e && $state} {. 
20e0: 20 20 20 20 20 61 70 70 65 6e 64 20 72 65 74 20       append ret 
20f0: 29 0a 20 20 20 20 7d 0a 20 20 20 20 61 70 70 65  ).    }.    appe
2100: 6e 64 20 72 65 74 20 24 63 68 61 72 0a 20 20 20  nd ret $char.   
2110: 20 73 65 74 20 73 74 61 74 65 20 24 6e 65 77 73   set state $news
2120: 74 61 74 65 0a 20 20 7d 0a 20 20 69 66 20 7b 24  tate.  }.  if {$
2130: 73 74 61 74 65 7d 20 7b 61 70 70 65 6e 64 20 72  state} {append r
2140: 65 74 20 29 7d 0a 20 20 72 65 74 75 72 6e 20 24  et )}.  return $
2150: 72 65 74 0a 7d 0a 0a 23 20 45 76 61 6c 75 61 74  ret.}..# Evaluat
2160: 65 20 61 20 62 6f 6f 6c 65 61 6e 20 65 78 70 72  e a boolean expr
2170: 65 73 73 69 6f 6e 20 6f 66 20 63 61 70 61 62 69  ession of capabi
2180: 6c 69 74 69 65 73 2e 20 20 49 66 20 74 72 75 65  lities.  If true
2190: 2c 20 65 78 65 63 75 74 65 20 74 68 65 0a 23 20  , execute the.# 
21a0: 63 6f 64 65 2e 20 20 4f 6d 69 74 20 74 68 65 20  code.  Omit the 
21b0: 63 6f 64 65 20 69 66 20 66 61 6c 73 65 2e 0a 23  code if false..#
21c0: 0a 70 72 6f 63 20 69 66 63 61 70 61 62 6c 65 20  .proc ifcapable 
21d0: 7b 65 78 70 72 20 63 6f 64 65 20 7b 65 6c 73 65  {expr code {else
21e0: 20 22 22 7d 20 7b 65 6c 73 65 63 6f 64 65 20 22   ""} {elsecode "
21f0: 22 7d 7d 20 7b 0a 20 20 23 72 65 67 73 75 62 20  "}} {.  #regsub 
2200: 2d 61 6c 6c 20 7b 5b 61 2d 7a 5f 30 2d 39 5d 2b  -all {[a-z_0-9]+
2210: 7d 20 24 65 78 70 72 20 7b 24 3a 3a 73 71 6c 69  } $expr {$::sqli
2220: 74 65 5f 6f 70 74 69 6f 6e 73 28 26 29 7d 20 65  te_options(&)} e
2230: 32 0a 20 20 73 65 74 20 65 32 20 5b 66 69 78 5f  2.  set e2 [fix_
2240: 69 66 63 61 70 61 62 6c 65 5f 65 78 70 72 20 24  ifcapable_expr $
2250: 65 78 70 72 5d 0a 20 20 69 66 20 28 24 65 32 29  expr].  if ($e2)
2260: 20 7b 0a 20 20 20 20 73 65 74 20 63 20 5b 63 61   {.    set c [ca
2270: 74 63 68 20 7b 75 70 6c 65 76 65 6c 20 31 20 24  tch {uplevel 1 $
2280: 63 6f 64 65 7d 20 72 5d 0a 20 20 7d 20 65 6c 73  code} r].  } els
2290: 65 20 7b 0a 20 20 20 20 73 65 74 20 63 20 5b 63  e {.    set c [c
22a0: 61 74 63 68 20 7b 75 70 6c 65 76 65 6c 20 31 20  atch {uplevel 1 
22b0: 24 65 6c 73 65 63 6f 64 65 7d 20 72 5d 0a 20 20  $elsecode} r].  
22c0: 7d 0a 20 20 72 65 74 75 72 6e 20 2d 63 6f 64 65  }.  return -code
22d0: 20 24 63 20 24 72 0a 7d 0a 0a 23 20 54 68 69 73   $c $r.}..# This
22e0: 20 70 72 6f 63 20 65 78 65 63 73 20 61 20 73 65   proc execs a se
22f0: 70 65 72 61 74 65 20 70 72 6f 63 65 73 73 20 74  perate process t
2300: 68 61 74 20 63 72 61 73 68 65 73 20 6d 69 64 77  hat crashes midw
2310: 61 79 20 74 68 72 6f 75 67 68 20 65 78 65 63 75  ay through execu
2320: 74 69 6e 67 0a 23 20 74 68 65 20 53 51 4c 20 73  ting.# the SQL s
2330: 63 72 69 70 74 20 24 73 71 6c 20 6f 6e 20 64 61  cript $sql on da
2340: 74 61 62 61 73 65 20 74 65 73 74 2e 64 62 2e 0a  tabase test.db..
2350: 23 0a 23 20 54 68 65 20 63 72 61 73 68 20 6f 63  #.# The crash oc
2360: 63 75 72 73 20 64 75 72 69 6e 67 20 61 20 73 79  curs during a sy
2370: 6e 63 28 29 20 6f 66 20 66 69 6c 65 20 24 63 72  nc() of file $cr
2380: 61 73 68 66 69 6c 65 2e 20 57 68 65 6e 20 74 68  ashfile. When th
2390: 65 20 63 72 61 73 68 0a 23 20 6f 63 63 75 72 73  e crash.# occurs
23a0: 20 61 20 72 61 6e 64 6f 6d 20 73 75 62 73 65 74   a random subset
23b0: 20 6f 66 20 61 6c 6c 20 75 6e 73 79 6e 63 65 64   of all unsynced
23c0: 20 77 72 69 74 65 73 20 6d 61 64 65 20 62 79 20   writes made by 
23d0: 74 68 65 20 70 72 6f 63 65 73 73 20 61 72 65 0a  the process are.
23e0: 23 20 77 72 69 74 74 65 6e 20 69 6e 74 6f 20 74  # written into t
23f0: 68 65 20 66 69 6c 65 73 20 6f 6e 20 64 69 73 6b  he files on disk
2400: 2e 20 41 72 67 75 6d 65 6e 74 20 24 63 72 61 73  . Argument $cras
2410: 68 64 65 6c 61 79 20 69 6e 64 69 63 61 74 65 73  hdelay indicates
2420: 20 74 68 65 0a 23 20 6e 75 6d 62 65 72 20 6f 66   the.# number of
2430: 20 66 69 6c 65 20 73 79 6e 63 73 20 74 6f 20 77   file syncs to w
2440: 61 69 74 20 62 65 66 6f 72 65 20 63 72 61 73 68  ait before crash
2450: 69 6e 67 2e 0a 23 0a 23 20 54 68 65 20 72 65 74  ing..#.# The ret
2460: 75 72 6e 20 76 61 6c 75 65 20 69 73 20 61 20 6c  urn value is a l
2470: 69 73 74 20 6f 66 20 74 77 6f 20 65 6c 65 6d 65  ist of two eleme
2480: 6e 74 73 2e 20 54 68 65 20 66 69 72 73 74 20 65  nts. The first e
2490: 6c 65 6d 65 6e 74 20 69 73 20 61 0a 23 20 62 6f  lement is a.# bo
24a0: 6f 6c 65 61 6e 2c 20 69 6e 64 69 63 61 74 69 6e  olean, indicatin
24b0: 67 20 77 68 65 74 68 65 72 20 6f 72 20 6e 6f 74  g whether or not
24c0: 20 74 68 65 20 70 72 6f 63 65 73 73 20 61 63 74   the process act
24d0: 75 61 6c 6c 79 20 63 72 61 73 68 65 64 20 6f 72  ually crashed or
24e0: 0a 23 20 72 65 70 6f 72 74 65 64 20 73 6f 6d 65  .# reported some
24f0: 20 6f 74 68 65 72 20 65 72 72 6f 72 2e 20 54 68   other error. Th
2500: 65 20 73 65 63 6f 6e 64 20 65 6c 65 6d 65 6e 74  e second element
2510: 20 69 6e 20 74 68 65 20 72 65 74 75 72 6e 65 64   in the returned
2520: 20 6c 69 73 74 20 69 73 20 74 68 65 0a 23 20 65   list is the.# e
2530: 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 20 54 68  rror message. Th
2540: 69 73 20 69 73 20 22 63 68 69 6c 64 20 70 72 6f  is is "child pro
2550: 63 65 73 73 20 65 78 69 74 65 64 20 61 62 6e 6f  cess exited abno
2560: 72 6d 61 6c 6c 79 22 20 69 66 20 74 68 65 20 63  rmally" if the c
2570: 72 61 73 68 0a 23 20 6f 63 63 75 72 65 64 2e 0a  rash.# occured..
2580: 23 0a 23 20 20 20 63 72 61 73 68 73 71 6c 20 2d  #.#   crashsql -
2590: 64 65 6c 61 79 20 43 52 41 53 48 44 45 4c 41 59  delay CRASHDELAY
25a0: 20 2d 66 69 6c 65 20 43 52 41 53 48 46 49 4c 45   -file CRASHFILE
25b0: 20 3f 2d 62 6c 6f 63 6b 73 69 7a 65 20 42 4c 4f   ?-blocksize BLO
25c0: 43 4b 53 49 5a 45 3f 20 24 73 71 6c 0a 23 0a 70  CKSIZE? $sql.#.p
25d0: 72 6f 63 20 63 72 61 73 68 73 71 6c 20 7b 61 72  roc crashsql {ar
25e0: 67 73 7d 20 7b 0a 20 20 69 66 20 7b 24 3a 3a 74  gs} {.  if {$::t
25f0: 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 70 6c 61 74  cl_platform(plat
2600: 66 6f 72 6d 29 21 3d 22 75 6e 69 78 22 7d 20 7b  form)!="unix"} {
2610: 0a 20 20 20 20 65 72 72 6f 72 20 22 63 72 61 73  .    error "cras
2620: 68 73 71 6c 20 73 68 6f 75 6c 64 20 6f 6e 6c 79  hsql should only
2630: 20 62 65 20 75 73 65 64 20 6f 6e 20 75 6e 69 78   be used on unix
2640: 22 0a 20 20 7d 0a 0a 20 20 73 65 74 20 62 6c 6f  ".  }..  set blo
2650: 63 6b 73 69 7a 65 20 22 22 0a 20 20 73 65 74 20  cksize "".  set 
2660: 63 72 61 73 68 64 65 6c 61 79 20 31 0a 20 20 73  crashdelay 1.  s
2670: 65 74 20 70 72 6e 67 73 65 65 64 20 30 0a 20 20  et prngseed 0.  
2680: 73 65 74 20 74 63 6c 62 6f 64 79 20 7b 7d 0a 20  set tclbody {}. 
2690: 20 73 65 74 20 63 72 61 73 68 66 69 6c 65 20 22   set crashfile "
26a0: 22 0a 20 20 73 65 74 20 64 63 20 22 22 0a 20 20  ".  set dc "".  
26b0: 73 65 74 20 73 71 6c 20 5b 6c 69 6e 64 65 78 20  set sql [lindex 
26c0: 24 61 72 67 73 20 65 6e 64 5d 0a 20 20 0a 20 20  $args end].  .  
26d0: 66 6f 72 20 7b 73 65 74 20 69 69 20 30 7d 20 7b  for {set ii 0} {
26e0: 24 69 69 20 3c 20 5b 6c 6c 65 6e 67 74 68 20 24  $ii < [llength $
26f0: 61 72 67 73 5d 2d 31 7d 20 7b 69 6e 63 72 20 69  args]-1} {incr i
2700: 69 20 32 7d 20 7b 0a 20 20 20 20 73 65 74 20 7a  i 2} {.    set z
2710: 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20 24   [lindex $args $
2720: 69 69 5d 0a 20 20 20 20 73 65 74 20 6e 20 5b 73  ii].    set n [s
2730: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 7a 5d  tring length $z]
2740: 0a 20 20 20 20 73 65 74 20 7a 32 20 5b 6c 69 6e  .    set z2 [lin
2750: 64 65 78 20 24 61 72 67 73 20 5b 65 78 70 72 20  dex $args [expr 
2760: 24 69 69 2b 31 5d 5d 0a 0a 20 20 20 20 69 66 20  $ii+1]]..    if 
2770: 20 20 20 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74      {$n>1 && [st
2780: 72 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d 64  ring first $z -d
2790: 65 6c 61 79 5d 3d 3d 30 7d 20 20 20 20 20 7b 73  elay]==0}     {s
27a0: 65 74 20 63 72 61 73 68 64 65 6c 61 79 20 24 7a  et crashdelay $z
27b0: 32 7d 20 5c 0a 20 20 20 20 65 6c 73 65 69 66 20  2} \.    elseif 
27c0: 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e 67  {$n>1 && [string
27d0: 20 66 69 72 73 74 20 24 7a 20 2d 73 65 65 64 5d   first $z -seed]
27e0: 3d 3d 30 7d 20 20 20 20 20 20 7b 73 65 74 20 70  ==0}      {set p
27f0: 72 6e 67 73 65 65 64 20 24 7a 32 7d 20 5c 0a 20  rngseed $z2} \. 
2800: 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 20     elseif {$n>1 
2810: 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74  && [string first
2820: 20 24 7a 20 2d 66 69 6c 65 5d 3d 3d 30 7d 20 20   $z -file]==0}  
2830: 20 20 20 20 7b 73 65 74 20 63 72 61 73 68 66 69      {set crashfi
2840: 6c 65 20 24 7a 32 7d 20 20 5c 0a 20 20 20 20 65  le $z2}  \.    e
2850: 6c 73 65 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b  lseif {$n>1 && [
2860: 73 74 72 69 6e 67 20 66 69 72 73 74 20 24 7a 20  string first $z 
2870: 2d 74 63 6c 62 6f 64 79 5d 3d 3d 30 7d 20 20 20  -tclbody]==0}   
2880: 7b 73 65 74 20 74 63 6c 62 6f 64 79 20 24 7a 32  {set tclbody $z2
2890: 7d 20 20 5c 0a 20 20 20 20 65 6c 73 65 69 66 20  }  \.    elseif 
28a0: 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e 67  {$n>1 && [string
28b0: 20 66 69 72 73 74 20 24 7a 20 2d 62 6c 6f 63 6b   first $z -block
28c0: 73 69 7a 65 5d 3d 3d 30 7d 20 7b 73 65 74 20 62  size]==0} {set b
28d0: 6c 6f 63 6b 73 69 7a 65 20 22 2d 73 20 24 7a 32  locksize "-s $z2
28e0: 22 20 7d 20 5c 0a 20 20 20 20 65 6c 73 65 69 66  " } \.    elseif
28f0: 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e   {$n>1 && [strin
2900: 67 20 66 69 72 73 74 20 24 7a 20 2d 63 68 61 72  g first $z -char
2910: 61 63 74 65 72 69 73 74 69 63 73 5d 3d 3d 30 7d  acteristics]==0}
2920: 20 7b 73 65 74 20 64 63 20 22 2d 63 20 7b 24 7a   {set dc "-c {$z
2930: 32 7d 22 20 7d 20 5c 0a 20 20 20 20 65 6c 73 65  2}" } \.    else
2940: 20 20 20 7b 20 65 72 72 6f 72 20 22 55 6e 72 65     { error "Unre
2950: 63 6f 67 6e 69 7a 65 64 20 6f 70 74 69 6f 6e 3a  cognized option:
2960: 20 24 7a 22 20 7d 0a 20 20 7d 0a 0a 20 20 69 66   $z" }.  }..  if
2970: 20 7b 24 63 72 61 73 68 66 69 6c 65 20 65 71 20   {$crashfile eq 
2980: 22 22 7d 20 7b 0a 20 20 20 20 65 72 72 6f 72 20  ""} {.    error 
2990: 22 43 6f 6d 70 75 6c 73 6f 72 79 20 6f 70 74 69  "Compulsory opti
29a0: 6f 6e 20 2d 66 69 6c 65 20 6d 69 73 73 69 6e 67  on -file missing
29b0: 22 0a 20 20 7d 0a 0a 20 20 73 65 74 20 63 66 69  ".  }..  set cfi
29c0: 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 70  le [file join [p
29d0: 77 64 5d 20 24 63 72 61 73 68 66 69 6c 65 5d 0a  wd] $crashfile].
29e0: 0a 20 20 73 65 74 20 66 20 5b 6f 70 65 6e 20 63  .  set f [open c
29f0: 72 61 73 68 2e 74 63 6c 20 77 5d 0a 20 20 70 75  rash.tcl w].  pu
2a00: 74 73 20 24 66 20 22 73 71 6c 69 74 65 33 5f 63  ts $f "sqlite3_c
2a10: 72 61 73 68 5f 65 6e 61 62 6c 65 20 31 22 0a 20  rash_enable 1". 
2a20: 20 70 75 74 73 20 24 66 20 22 73 71 6c 69 74 65   puts $f "sqlite
2a30: 33 5f 63 72 61 73 68 70 61 72 61 6d 73 20 24 62  3_crashparams $b
2a40: 6c 6f 63 6b 73 69 7a 65 20 24 64 63 20 24 63 72  locksize $dc $cr
2a50: 61 73 68 64 65 6c 61 79 20 24 63 66 69 6c 65 22  ashdelay $cfile"
2a60: 0a 20 20 70 75 74 73 20 24 66 20 22 73 65 74 20  .  puts $f "set 
2a70: 73 71 6c 69 74 65 5f 70 65 6e 64 69 6e 67 5f 62  sqlite_pending_b
2a80: 79 74 65 20 24 3a 3a 73 71 6c 69 74 65 5f 70 65  yte $::sqlite_pe
2a90: 6e 64 69 6e 67 5f 62 79 74 65 22 0a 20 20 70 75  nding_byte".  pu
2aa0: 74 73 20 24 66 20 22 73 71 6c 69 74 65 33 20 64  ts $f "sqlite3 d
2ab0: 62 20 74 65 73 74 2e 64 62 20 2d 76 66 73 20 63  b test.db -vfs c
2ac0: 72 61 73 68 22 0a 0a 20 20 23 20 54 68 69 73 20  rash"..  # This 
2ad0: 62 6c 6f 63 6b 20 73 65 74 73 20 74 68 65 20 63  block sets the c
2ae0: 61 63 68 65 20 73 69 7a 65 20 6f 66 20 74 68 65  ache size of the
2af0: 20 6d 61 69 6e 20 64 61 74 61 62 61 73 65 20 74   main database t
2b00: 6f 20 31 30 0a 20 20 23 20 70 61 67 65 73 2e 20  o 10.  # pages. 
2b10: 54 68 69 73 20 69 73 20 64 6f 6e 65 20 69 6e 20  This is done in 
2b20: 63 61 73 65 20 74 68 65 20 62 75 69 6c 64 20 69  case the build i
2b30: 73 20 63 6f 6e 66 69 67 75 72 65 64 20 74 6f 20  s configured to 
2b40: 6f 6d 69 74 0a 20 20 23 20 22 50 52 41 47 4d 41  omit.  # "PRAGMA
2b50: 20 63 61 63 68 65 5f 73 69 7a 65 22 2e 0a 20 20   cache_size"..  
2b60: 70 75 74 73 20 24 66 20 7b 64 62 20 65 76 61 6c  puts $f {db eval
2b70: 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20   {SELECT * FROM 
2b80: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 3b 7d 7d  sqlite_master;}}
2b90: 0a 20 20 70 75 74 73 20 24 66 20 7b 73 65 74 20  .  puts $f {set 
2ba0: 62 74 20 5b 62 74 72 65 65 5f 66 72 6f 6d 5f 64  bt [btree_from_d
2bb0: 62 20 64 62 5d 7d 0a 20 20 70 75 74 73 20 24 66  b db]}.  puts $f
2bc0: 20 7b 62 74 72 65 65 5f 73 65 74 5f 63 61 63 68   {btree_set_cach
2bd0: 65 5f 73 69 7a 65 20 24 62 74 20 31 30 7d 0a 20  e_size $bt 10}. 
2be0: 20 69 66 20 7b 24 70 72 6e 67 73 65 65 64 7d 20   if {$prngseed} 
2bf0: 7b 0a 20 20 20 20 73 65 74 20 73 65 65 64 20 5b  {.    set seed [
2c00: 65 78 70 72 20 7b 24 70 72 6e 67 73 65 65 64 25  expr {$prngseed%
2c10: 31 30 30 30 37 2b 31 7d 5d 0a 20 20 20 20 23 20  10007+1}].    # 
2c20: 70 75 74 73 20 73 65 65 64 3d 24 73 65 65 64 0a  puts seed=$seed.
2c30: 20 20 20 20 70 75 74 73 20 24 66 20 22 64 62 20      puts $f "db 
2c40: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 72 61 6e  eval {SELECT ran
2c50: 64 6f 6d 62 6c 6f 62 28 24 73 65 65 64 29 7d 22  domblob($seed)}"
2c60: 0a 20 20 7d 0a 0a 20 20 69 66 20 7b 5b 73 74 72  .  }..  if {[str
2c70: 69 6e 67 20 6c 65 6e 67 74 68 20 24 74 63 6c 62  ing length $tclb
2c80: 6f 64 79 5d 3e 30 7d 20 7b 0a 20 20 20 20 70 75  ody]>0} {.    pu
2c90: 74 73 20 24 66 20 24 74 63 6c 62 6f 64 79 0a 20  ts $f $tclbody. 
2ca0: 20 7d 0a 20 20 69 66 20 7b 5b 73 74 72 69 6e 67   }.  if {[string
2cb0: 20 6c 65 6e 67 74 68 20 24 73 71 6c 5d 3e 30 7d   length $sql]>0}
2cc0: 20 7b 0a 20 20 20 20 70 75 74 73 20 24 66 20 22   {.    puts $f "
2cd0: 64 62 20 65 76 61 6c 20 7b 22 0a 20 20 20 20 70  db eval {".    p
2ce0: 75 74 73 20 24 66 20 20 20 22 24 73 71 6c 22 0a  uts $f   "$sql".
2cf0: 20 20 20 20 70 75 74 73 20 24 66 20 22 7d 22 0a      puts $f "}".
2d00: 20 20 7d 0a 20 20 63 6c 6f 73 65 20 24 66 0a 0a    }.  close $f..
2d10: 20 20 73 65 74 20 72 20 5b 63 61 74 63 68 20 7b    set r [catch {
2d20: 0a 20 20 20 20 65 78 65 63 20 5b 69 6e 66 6f 20  .    exec [info 
2d30: 6e 61 6d 65 6f 66 65 78 65 63 5d 20 63 72 61 73  nameofexec] cras
2d40: 68 2e 74 63 6c 20 3e 40 73 74 64 6f 75 74 0a 20  h.tcl >@stdout. 
2d50: 20 7d 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e   } msg].  lappen
2d60: 64 20 72 20 24 6d 73 67 0a 7d 0a 0a 23 20 55 73  d r $msg.}..# Us
2d70: 61 67 65 3a 20 64 6f 5f 69 6f 65 72 72 5f 74 65  age: do_ioerr_te
2d80: 73 74 20 3c 74 65 73 74 20 6e 75 6d 62 65 72 3e  st <test number>
2d90: 20 3c 6f 70 74 69 6f 6e 73 2e 2e 2e 3e 0a 23 0a   <options...>.#.
2da0: 23 20 54 68 69 73 20 70 72 6f 63 20 69 73 20 75  # This proc is u
2db0: 73 65 64 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74  sed to implement
2dc0: 20 74 65 73 74 20 63 61 73 65 73 20 74 68 61 74   test cases that
2dd0: 20 63 68 65 63 6b 20 74 68 61 74 20 49 4f 20 65   check that IO e
2de0: 72 72 6f 72 73 0a 23 20 61 72 65 20 63 6f 72 72  rrors.# are corr
2df0: 65 63 74 6c 79 20 68 61 6e 64 6c 65 64 2e 20 54  ectly handled. T
2e00: 68 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e  he first argumen
2e10: 74 2c 20 3c 74 65 73 74 20 6e 75 6d 62 65 72 3e  t, <test number>
2e20: 2c 20 69 73 20 61 6e 20 69 6e 74 65 67 65 72 20  , is an integer 
2e30: 0a 23 20 75 73 65 64 20 74 6f 20 6e 61 6d 65 20  .# used to name 
2e40: 74 68 65 20 74 65 73 74 73 20 65 78 65 63 75 74  the tests execut
2e50: 65 64 20 62 79 20 74 68 69 73 20 70 72 6f 63 2e  ed by this proc.
2e60: 20 4f 70 74 69 6f 6e 73 20 61 72 65 20 61 73 20   Options are as 
2e70: 66 6f 6c 6c 6f 77 73 3a 0a 23 0a 23 20 20 20 20  follows:.#.#    
2e80: 20 2d 74 63 6c 70 72 65 70 20 20 20 20 20 20 20   -tclprep       
2e90: 20 20 20 54 43 4c 20 73 63 72 69 70 74 20 74 6f     TCL script to
2ea0: 20 72 75 6e 20 74 6f 20 70 72 65 70 61 72 65 20   run to prepare 
2eb0: 74 65 73 74 2e 0a 23 20 20 20 20 20 2d 73 71 6c  test..#     -sql
2ec0: 70 72 65 70 20 20 20 20 20 20 20 20 20 20 53 51  prep          SQ
2ed0: 4c 20 73 63 72 69 70 74 20 74 6f 20 72 75 6e 20  L script to run 
2ee0: 74 6f 20 70 72 65 70 61 72 65 20 74 65 73 74 2e  to prepare test.
2ef0: 0a 23 20 20 20 20 20 2d 74 63 6c 62 6f 64 79 20  .#     -tclbody 
2f00: 20 20 20 20 20 20 20 20 20 54 43 4c 20 73 63 72           TCL scr
2f10: 69 70 74 20 74 6f 20 72 75 6e 20 77 69 74 68 20  ipt to run with 
2f20: 49 4f 20 65 72 72 6f 72 20 73 69 6d 75 6c 61 74  IO error simulat
2f30: 69 6f 6e 2e 0a 23 20 20 20 20 20 2d 73 71 6c 62  ion..#     -sqlb
2f40: 6f 64 79 20 20 20 20 20 20 20 20 20 20 54 43 4c  ody          TCL
2f50: 20 73 63 72 69 70 74 20 74 6f 20 72 75 6e 20 77   script to run w
2f60: 69 74 68 20 49 4f 20 65 72 72 6f 72 20 73 69 6d  ith IO error sim
2f70: 75 6c 61 74 69 6f 6e 2e 0a 23 20 20 20 20 20 2d  ulation..#     -
2f80: 65 78 63 6c 75 64 65 20 20 20 20 20 20 20 20 20  exclude         
2f90: 20 4c 69 73 74 20 6f 66 20 27 4e 27 20 76 61 6c   List of 'N' val
2fa0: 75 65 73 20 6e 6f 74 20 74 6f 20 74 65 73 74 2e  ues not to test.
2fb0: 0a 23 20 20 20 20 20 2d 65 72 63 20 20 20 20 20  .#     -erc     
2fc0: 20 20 20 20 20 20 20 20 20 55 73 65 20 65 78 74           Use ext
2fd0: 65 6e 64 65 64 20 72 65 73 75 6c 74 20 63 6f 64  ended result cod
2fe0: 65 73 0a 23 20 20 20 20 20 2d 70 65 72 73 69 73  es.#     -persis
2ff0: 74 20 20 20 20 20 20 20 20 20 20 4d 61 6b 65 20  t          Make 
3000: 73 69 6d 75 6c 61 74 65 64 20 49 2f 4f 20 65 72  simulated I/O er
3010: 72 6f 72 73 20 70 65 72 73 69 73 74 65 6e 74 0a  rors persistent.
3020: 23 20 20 20 20 20 2d 73 74 61 72 74 20 20 20 20  #     -start    
3030: 20 20 20 20 20 20 20 20 56 61 6c 75 65 20 6f 66          Value of
3040: 20 27 4e 27 20 74 6f 20 62 65 67 69 6e 20 77 69   'N' to begin wi
3050: 74 68 20 28 64 65 66 61 75 6c 74 20 31 29 0a 23  th (default 1).#
3060: 0a 23 20 20 20 20 20 2d 63 6b 73 75 6d 20 20 20  .#     -cksum   
3070: 20 20 20 20 20 20 20 20 20 42 6f 6f 6c 65 61 6e           Boolean
3080: 2e 20 49 66 20 74 72 75 65 2c 20 74 65 73 74 20  . If true, test 
3090: 74 68 61 74 20 74 68 65 20 64 61 74 61 62 61 73  that the databas
30a0: 65 20 64 6f 65 73 0a 23 20 20 20 20 20 20 20 20  e does.#        
30b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e                 n
30c0: 6f 74 20 63 68 61 6e 67 65 20 64 75 72 69 6e 67  ot change during
30d0: 20 74 68 65 20 65 78 65 63 75 74 69 6f 6e 20 6f   the execution o
30e0: 66 20 74 68 65 20 74 65 73 74 20 63 61 73 65 2e  f the test case.
30f0: 0a 23 0a 70 72 6f 63 20 64 6f 5f 69 6f 65 72 72  .#.proc do_ioerr
3100: 5f 74 65 73 74 20 7b 74 65 73 74 6e 61 6d 65 20  _test {testname 
3110: 61 72 67 73 7d 20 7b 0a 0a 20 20 73 65 74 20 3a  args} {..  set :
3120: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73 74 61 72  :ioerropts(-star
3130: 74 29 20 31 0a 20 20 73 65 74 20 3a 3a 69 6f 65  t) 1.  set ::ioe
3140: 72 72 6f 70 74 73 28 2d 63 6b 73 75 6d 29 20 30  rropts(-cksum) 0
3150: 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70  .  set ::ioerrop
3160: 74 73 28 2d 65 72 63 29 20 30 0a 20 20 73 65 74  ts(-erc) 0.  set
3170: 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6f   ::ioerropts(-co
3180: 75 6e 74 29 20 31 30 30 30 30 30 30 30 30 0a 20  unt) 100000000. 
3190: 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73   set ::ioerropts
31a0: 28 2d 70 65 72 73 69 73 74 29 20 31 0a 20 20 61  (-persist) 1.  a
31b0: 72 72 61 79 20 73 65 74 20 3a 3a 69 6f 65 72 72  rray set ::ioerr
31c0: 6f 70 74 73 20 24 61 72 67 73 0a 0a 20 20 73 65  opts $args..  se
31d0: 74 20 3a 3a 67 6f 20 31 0a 20 20 66 6f 72 20 7b  t ::go 1.  for {
31e0: 73 65 74 20 6e 20 24 3a 3a 69 6f 65 72 72 6f 70  set n $::ioerrop
31f0: 74 73 28 2d 73 74 61 72 74 29 7d 20 7b 24 3a 3a  ts(-start)} {$::
3200: 67 6f 7d 20 7b 69 6e 63 72 20 6e 7d 20 7b 0a 20  go} {incr n} {. 
3210: 20 20 20 73 65 74 20 3a 3a 54 4e 20 24 6e 0a 20     set ::TN $n. 
3220: 20 20 20 69 6e 63 72 20 3a 3a 69 6f 65 72 72 6f     incr ::ioerro
3230: 70 74 73 28 2d 63 6f 75 6e 74 29 20 2d 31 0a 20  pts(-count) -1. 
3240: 20 20 20 69 66 20 7b 24 3a 3a 69 6f 65 72 72 6f     if {$::ioerro
3250: 70 74 73 28 2d 63 6f 75 6e 74 29 3c 30 7d 20 62  pts(-count)<0} b
3260: 72 65 61 6b 0a 20 0a 20 20 20 20 23 20 53 6b 69  reak. .    # Ski
3270: 70 20 74 68 69 73 20 49 4f 20 65 72 72 6f 72 20  p this IO error 
3280: 69 66 20 69 74 20 77 61 73 20 73 70 65 63 69 66  if it was specif
3290: 69 65 64 20 77 69 74 68 20 74 68 65 20 22 2d 65  ied with the "-e
32a0: 78 63 6c 75 64 65 22 20 6f 70 74 69 6f 6e 2e 0a  xclude" option..
32b0: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78      if {[info ex
32c0: 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74 73  ists ::ioerropts
32d0: 28 2d 65 78 63 6c 75 64 65 29 5d 7d 20 7b 0a 20  (-exclude)]} {. 
32e0: 20 20 20 20 20 69 66 20 7b 5b 6c 73 65 61 72 63       if {[lsearc
32f0: 68 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d  h $::ioerropts(-
3300: 65 78 63 6c 75 64 65 29 20 24 6e 5d 21 3d 2d 31  exclude) $n]!=-1
3310: 7d 20 63 6f 6e 74 69 6e 75 65 0a 20 20 20 20 7d  } continue.    }
3320: 0a 0a 20 20 20 20 23 20 44 65 6c 65 74 65 20 74  ..    # Delete t
3330: 68 65 20 66 69 6c 65 73 20 74 65 73 74 2e 64 62  he files test.db
3340: 20 61 6e 64 20 74 65 73 74 32 2e 64 62 2c 20 74   and test2.db, t
3350: 68 65 6e 20 65 78 65 63 75 74 65 20 74 68 65 20  hen execute the 
3360: 54 43 4c 20 61 6e 64 20 0a 20 20 20 20 23 20 53  TCL and .    # S
3370: 51 4c 20 28 69 6e 20 74 68 61 74 20 6f 72 64 65  QL (in that orde
3380: 72 29 20 74 6f 20 70 72 65 70 61 72 65 20 66 6f  r) to prepare fo
3390: 72 20 74 68 65 20 74 65 73 74 20 63 61 73 65 2e  r the test case.
33a0: 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65  .    do_test $te
33b0: 73 74 6e 61 6d 65 2e 24 6e 2e 31 20 7b 0a 20 20  stname.$n.1 {.  
33c0: 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65      set ::sqlite
33d0: 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e  _io_error_pendin
33e0: 67 20 30 0a 20 20 20 20 20 20 63 61 74 63 68 20  g 0.      catch 
33f0: 7b 64 62 20 63 6c 6f 73 65 7d 0a 20 20 20 20 20  {db close}.     
3400: 20 63 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c   catch {file del
3410: 65 74 65 20 2d 66 6f 72 63 65 20 74 65 73 74 2e  ete -force test.
3420: 64 62 7d 0a 20 20 20 20 20 20 63 61 74 63 68 20  db}.      catch 
3430: 7b 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f  {file delete -fo
3440: 72 63 65 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72  rce test.db-jour
3450: 6e 61 6c 7d 0a 20 20 20 20 20 20 63 61 74 63 68  nal}.      catch
3460: 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66   {file delete -f
3470: 6f 72 63 65 20 74 65 73 74 32 2e 64 62 7d 0a 20  orce test2.db}. 
3480: 20 20 20 20 20 63 61 74 63 68 20 7b 66 69 6c 65       catch {file
3490: 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 74   delete -force t
34a0: 65 73 74 32 2e 64 62 2d 6a 6f 75 72 6e 61 6c 7d  est2.db-journal}
34b0: 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 44 42 20  .      set ::DB 
34c0: 5b 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74  [sqlite3 db test
34d0: 2e 64 62 3b 20 73 71 6c 69 74 65 33 5f 63 6f 6e  .db; sqlite3_con
34e0: 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20  nection_pointer 
34f0: 64 62 5d 0a 20 20 20 20 20 20 73 71 6c 69 74 65  db].      sqlite
3500: 33 5f 65 78 74 65 6e 64 65 64 5f 72 65 73 75 6c  3_extended_resul
3510: 74 5f 63 6f 64 65 73 20 24 3a 3a 44 42 20 24 3a  t_codes $::DB $:
3520: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 65 72 63 29  :ioerropts(-erc)
3530: 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f  .      if {[info
3540: 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f   exists ::ioerro
3550: 70 74 73 28 2d 74 63 6c 70 72 65 70 29 5d 7d 20  pts(-tclprep)]} 
3560: 7b 0a 20 20 20 20 20 20 20 20 65 76 61 6c 20 24  {.        eval $
3570: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 74 63 6c  ::ioerropts(-tcl
3580: 70 72 65 70 29 0a 20 20 20 20 20 20 7d 0a 20 20  prep).      }.  
3590: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78      if {[info ex
35a0: 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74 73  ists ::ioerropts
35b0: 28 2d 73 71 6c 70 72 65 70 29 5d 7d 20 7b 0a 20  (-sqlprep)]} {. 
35c0: 20 20 20 20 20 20 20 65 78 65 63 73 71 6c 20 24         execsql $
35d0: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73 71 6c  ::ioerropts(-sql
35e0: 70 72 65 70 29 0a 20 20 20 20 20 20 7d 0a 20 20  prep).      }.  
35f0: 20 20 20 20 65 78 70 72 20 30 0a 20 20 20 20 7d      expr 0.    }
3600: 20 7b 30 7d 0a 0a 20 20 20 20 23 20 52 65 61 64   {0}..    # Read
3610: 20 74 68 65 20 27 63 68 65 63 6b 73 75 6d 27 20   the 'checksum' 
3620: 6f 66 20 74 68 65 20 64 61 74 61 62 61 73 65 2e  of the database.
3630: 0a 20 20 20 20 69 66 20 7b 24 3a 3a 69 6f 65 72  .    if {$::ioer
3640: 72 6f 70 74 73 28 2d 63 6b 73 75 6d 29 7d 20 7b  ropts(-cksum)} {
3650: 0a 20 20 20 20 20 20 73 65 74 20 63 68 65 63 6b  .      set check
3660: 73 75 6d 20 5b 63 6b 73 75 6d 5d 0a 20 20 20 20  sum [cksum].    
3670: 7d 0a 20 20 0a 20 20 20 20 23 20 53 65 74 20 74  }.  .    # Set t
3680: 68 65 20 4e 74 68 20 49 4f 20 65 72 72 6f 72 20  he Nth IO error 
3690: 74 6f 20 66 61 69 6c 2e 0a 20 20 20 20 64 6f 5f  to fail..    do_
36a0: 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24  test $testname.$
36b0: 6e 2e 32 20 5b 73 75 62 73 74 20 7b 0a 20 20 20  n.2 [subst {.   
36c0: 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f     set ::sqlite_
36d0: 69 6f 5f 65 72 72 6f 72 5f 70 65 72 73 69 73 74  io_error_persist
36e0: 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 70   $::ioerropts(-p
36f0: 65 72 73 69 73 74 29 0a 20 20 20 20 20 20 73 65  ersist).      se
3700: 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72  t ::sqlite_io_er
3710: 72 6f 72 5f 70 65 6e 64 69 6e 67 20 24 6e 0a 20  ror_pending $n. 
3720: 20 20 20 7d 5d 20 24 6e 0a 20 20 0a 20 20 20 20     }] $n.  .    
3730: 23 20 43 72 65 61 74 65 20 61 20 73 69 6e 67 6c  # Create a singl
3740: 65 20 54 43 4c 20 73 63 72 69 70 74 20 66 72 6f  e TCL script fro
3750: 6d 20 74 68 65 20 54 43 4c 20 61 6e 64 20 53 51  m the TCL and SQ
3760: 4c 20 73 70 65 63 69 66 69 65 64 0a 20 20 20 20  L specified.    
3770: 23 20 61 73 20 74 68 65 20 62 6f 64 79 20 6f 66  # as the body of
3780: 20 74 68 65 20 74 65 73 74 2e 0a 20 20 20 20 73   the test..    s
3790: 65 74 20 3a 3a 69 6f 65 72 72 6f 72 62 6f 64 79  et ::ioerrorbody
37a0: 20 7b 7d 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66   {}.    if {[inf
37b0: 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72  o exists ::ioerr
37c0: 6f 70 74 73 28 2d 74 63 6c 62 6f 64 79 29 5d 7d  opts(-tclbody)]}
37d0: 20 7b 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20   {.      append 
37e0: 3a 3a 69 6f 65 72 72 6f 72 62 6f 64 79 20 22 24  ::ioerrorbody "$
37f0: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 74 63 6c  ::ioerropts(-tcl
3800: 62 6f 64 79 29 5c 6e 22 0a 20 20 20 20 7d 0a 20  body)\n".    }. 
3810: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69     if {[info exi
3820: 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28  sts ::ioerropts(
3830: 2d 73 71 6c 62 6f 64 79 29 5d 7d 20 7b 0a 20 20  -sqlbody)]} {.  
3840: 20 20 20 20 61 70 70 65 6e 64 20 3a 3a 69 6f 65      append ::ioe
3850: 72 72 6f 72 62 6f 64 79 20 22 64 62 20 65 76 61  rrorbody "db eva
3860: 6c 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28  l {$::ioerropts(
3870: 2d 73 71 6c 62 6f 64 79 29 7d 22 0a 20 20 20 20  -sqlbody)}".    
3880: 7d 0a 0a 20 20 20 20 23 20 45 78 65 63 75 74 65  }..    # Execute
3890: 20 74 68 65 20 54 43 4c 20 53 63 72 69 70 74 20   the TCL Script 
38a0: 63 72 65 61 74 65 64 20 69 6e 20 74 68 65 20 61  created in the a
38b0: 62 6f 76 65 20 62 6c 6f 63 6b 2e 20 49 66 0a 20  bove block. If. 
38c0: 20 20 20 23 20 74 68 65 72 65 20 61 72 65 20 61     # there are a
38d0: 74 20 6c 65 61 73 74 20 4e 20 49 4f 20 6f 70 65  t least N IO ope
38e0: 72 61 74 69 6f 6e 73 20 70 65 72 66 6f 72 6d 65  rations performe
38f0: 64 20 62 79 20 53 51 4c 69 74 65 20 61 73 0a 20  d by SQLite as. 
3900: 20 20 20 23 20 61 20 72 65 73 75 6c 74 20 6f 66     # a result of
3910: 20 74 68 65 20 73 63 72 69 70 74 2c 20 74 68 65   the script, the
3920: 20 4e 74 68 20 77 69 6c 6c 20 66 61 69 6c 2e 0a   Nth will fail..
3930: 20 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73      do_test $tes
3940: 74 6e 61 6d 65 2e 24 6e 2e 33 20 7b 0a 20 20 20  tname.$n.3 {.   
3950: 20 20 20 73 65 74 20 72 20 5b 63 61 74 63 68 20     set r [catch 
3960: 24 3a 3a 69 6f 65 72 72 6f 72 62 6f 64 79 20 6d  $::ioerrorbody m
3970: 73 67 5d 0a 20 20 20 20 20 20 73 65 74 20 72 63  sg].      set rc
3980: 20 5b 73 71 6c 69 74 65 33 5f 65 72 72 63 6f 64   [sqlite3_errcod
3990: 65 20 24 3a 3a 44 42 5d 0a 20 20 20 20 20 20 69  e $::DB].      i
39a0: 66 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28  f {$::ioerropts(
39b0: 2d 65 72 63 29 7d 20 7b 0a 20 20 20 20 20 20 20  -erc)} {.       
39c0: 20 23 20 49 66 20 77 65 20 61 72 65 20 69 6e 20   # If we are in 
39d0: 65 78 74 65 6e 64 65 64 20 72 65 73 75 6c 74 20  extended result 
39e0: 63 6f 64 65 20 6d 6f 64 65 2c 20 6d 61 6b 65 20  code mode, make 
39f0: 73 75 72 65 20 61 6c 6c 20 6f 66 20 74 68 65 0a  sure all of the.
3a00: 20 20 20 20 20 20 20 20 23 20 49 4f 45 52 52 73          # IOERRs
3a10: 20 77 65 20 67 65 74 20 62 61 63 6b 20 72 65 61   we get back rea
3a20: 6c 6c 79 20 64 6f 20 68 61 76 65 20 74 68 65 69  lly do have thei
3a30: 72 20 65 78 74 65 6e 64 65 64 20 63 6f 64 65 20  r extended code 
3a40: 76 61 6c 75 65 73 2e 0a 20 20 20 20 20 20 20 20  values..        
3a50: 23 20 49 66 20 61 6e 20 65 78 74 65 6e 64 65 64  # If an extended
3a60: 20 72 65 73 75 6c 74 20 63 6f 64 65 20 69 73 20   result code is 
3a70: 72 65 74 75 72 6e 65 64 2c 20 74 68 65 20 73 71  returned, the sq
3a80: 6c 69 74 65 33 5f 65 72 72 63 6f 64 65 0a 20 20  lite3_errcode.  
3a90: 20 20 20 20 20 20 23 20 54 43 4c 63 6f 6d 6d 61        # TCLcomma
3aa0: 6e 64 20 77 69 6c 6c 20 72 65 74 75 72 6e 20 61  nd will return a
3ab0: 20 73 74 72 69 6e 67 20 6f 66 20 74 68 65 20 66   string of the f
3ac0: 6f 72 6d 3a 20 20 53 51 4c 49 54 45 5f 49 4f 45  orm:  SQLITE_IOE
3ad0: 52 52 2b 6e 6e 6e 6e 0a 20 20 20 20 20 20 20 20  RR+nnnn.        
3ae0: 23 20 77 68 65 72 65 20 6e 6e 6e 6e 20 69 73 20  # where nnnn is 
3af0: 61 20 6e 75 6d 62 65 72 0a 20 20 20 20 20 20 20  a number.       
3b00: 20 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 5e 53   if {[regexp {^S
3b10: 51 4c 49 54 45 5f 49 4f 45 52 52 7d 20 24 72 63  QLITE_IOERR} $rc
3b20: 5d 20 26 26 20 21 5b 72 65 67 65 78 70 20 7b 49  ] && ![regexp {I
3b30: 4f 45 52 52 5c 2b 5c 64 7d 20 24 72 63 5d 7d 20  OERR\+\d} $rc]} 
3b40: 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75  {.          retu
3b50: 72 6e 20 24 72 63 0a 20 20 20 20 20 20 20 20 7d  rn $rc.        }
3b60: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a  .      } else {.
3b70: 20 20 20 20 20 20 20 20 23 20 49 66 20 77 65 20          # If we 
3b80: 61 72 65 20 6e 6f 74 20 69 6e 20 65 78 74 65 6e  are not in exten
3b90: 64 65 64 20 72 65 73 75 6c 74 20 63 6f 64 65 20  ded result code 
3ba0: 6d 6f 64 65 2c 20 6d 61 6b 65 20 73 75 72 65 20  mode, make sure 
3bb0: 6e 6f 0a 20 20 20 20 20 20 20 20 23 20 65 78 74  no.        # ext
3bc0: 65 6e 64 65 64 20 65 72 72 6f 72 20 63 6f 64 65  ended error code
3bd0: 73 20 61 72 65 20 72 65 74 75 72 6e 65 64 2e 0a  s are returned..
3be0: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 72 65 67          if {[reg
3bf0: 65 78 70 20 7b 5c 2b 5c 64 7d 20 24 72 63 5d 7d  exp {\+\d} $rc]}
3c00: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74   {.          ret
3c10: 75 72 6e 20 24 72 63 0a 20 20 20 20 20 20 20 20  urn $rc.        
3c20: 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  }.      }.      
3c30: 23 20 54 68 65 20 74 65 73 74 20 72 65 70 65 61  # The test repea
3c40: 74 73 20 61 73 20 6c 6f 6e 67 20 61 73 20 24 3a  ts as long as $:
3c50: 3a 67 6f 20 69 73 20 74 72 75 65 2e 20 20 0a 20  :go is true.  . 
3c60: 20 20 20 20 20 73 65 74 20 3a 3a 67 6f 20 5b 65       set ::go [e
3c70: 78 70 72 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 69  xpr {$::sqlite_i
3c80: 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 3c  o_error_pending<
3c90: 3d 30 7d 5d 0a 20 20 20 20 20 20 73 65 74 20 73  =0}].      set s
3ca0: 20 5b 65 78 70 72 20 24 3a 3a 73 71 6c 69 74 65   [expr $::sqlite
3cb0: 5f 69 6f 5f 65 72 72 6f 72 5f 68 69 74 3d 3d 30  _io_error_hit==0
3cc0: 5d 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 73 71  ].      set ::sq
3cd0: 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 69  lite_io_error_hi
3ce0: 74 20 30 0a 0a 20 20 20 20 20 20 23 20 4f 6e 65  t 0..      # One
3cf0: 20 6f 66 20 74 77 6f 20 74 68 69 6e 67 73 20 6d   of two things m
3d00: 75 73 74 20 68 61 76 65 20 68 61 70 70 65 6e 65  ust have happene
3d10: 64 2e 20 65 69 74 68 65 72 0a 20 20 20 20 20 20  d. either.      
3d20: 23 20 20 20 31 2e 20 20 57 65 20 6e 65 76 65 72  #   1.  We never
3d30: 20 68 69 74 20 74 68 65 20 49 4f 20 65 72 72 6f   hit the IO erro
3d40: 72 20 61 6e 64 20 74 68 65 20 53 51 4c 20 72 65  r and the SQL re
3d50: 74 75 72 6e 65 64 20 4f 4b 0a 20 20 20 20 20 20  turned OK.      
3d60: 23 20 20 20 32 2e 20 20 41 6e 20 49 4f 20 65 72  #   2.  An IO er
3d70: 72 6f 72 20 77 61 73 20 68 69 74 20 61 6e 64 20  ror was hit and 
3d80: 74 68 65 20 53 51 4c 20 66 61 69 6c 65 64 0a 20  the SQL failed. 
3d90: 20 20 20 20 20 23 0a 20 20 20 20 20 20 65 78 70       #.      exp
3da0: 72 20 7b 20 28 24 73 20 26 26 20 21 24 72 20 26  r { ($s && !$r &
3db0: 26 20 21 24 3a 3a 67 6f 29 20 7c 7c 20 28 21 24  & !$::go) || (!$
3dc0: 73 20 26 26 20 24 72 20 26 26 20 24 3a 3a 67 6f  s && $r && $::go
3dd0: 29 20 7d 0a 20 20 20 20 7d 20 7b 31 7d 0a 0a 20  ) }.    } {1}.. 
3de0: 20 20 20 23 20 49 66 20 61 6e 20 49 4f 20 65 72     # If an IO er
3df0: 72 6f 72 20 6f 63 63 75 72 65 64 2c 20 74 68 65  ror occured, the
3e00: 6e 20 74 68 65 20 63 68 65 63 6b 73 75 6d 20 6f  n the checksum o
3e10: 66 20 74 68 65 20 64 61 74 61 62 61 73 65 20 73  f the database s
3e20: 68 6f 75 6c 64 0a 20 20 20 20 23 20 62 65 20 74  hould.    # be t
3e30: 68 65 20 73 61 6d 65 20 61 73 20 62 65 66 6f 72  he same as befor
3e40: 65 20 74 68 65 20 73 63 72 69 70 74 20 74 68 61  e the script tha
3e50: 74 20 63 61 75 73 65 64 20 74 68 65 20 49 4f 20  t caused the IO 
3e60: 65 72 72 6f 72 20 77 61 73 20 72 75 6e 2e 0a 20  error was run.. 
3e70: 20 20 20 69 66 20 7b 24 3a 3a 67 6f 20 26 26 20     if {$::go && 
3e80: 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b  $::ioerropts(-ck
3e90: 73 75 6d 29 7d 20 7b 0a 20 20 20 20 20 20 64 6f  sum)} {.      do
3ea0: 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e  _test $testname.
3eb0: 24 6e 2e 34 20 7b 0a 20 20 20 20 20 20 20 20 63  $n.4 {.        c
3ec0: 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a  atch {db close}.
3ed0: 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 44 42          set ::DB
3ee0: 20 5b 73 71 6c 69 74 65 33 20 64 62 20 74 65 73   [sqlite3 db tes
3ef0: 74 2e 64 62 3b 20 73 71 6c 69 74 65 33 5f 63 6f  t.db; sqlite3_co
3f00: 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72  nnection_pointer
3f10: 20 64 62 5d 0a 20 20 20 20 20 20 20 20 63 6b 73   db].        cks
3f20: 75 6d 0a 20 20 20 20 20 20 7d 20 24 63 68 65 63  um.      } $chec
3f30: 6b 73 75 6d 0a 20 20 20 20 7d 0a 0a 20 20 20 20  ksum.    }..    
3f40: 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f  set ::sqlite_io_
3f50: 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a  error_pending 0.
3f60: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78      if {[info ex
3f70: 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74 73  ists ::ioerropts
3f80: 28 2d 63 6c 65 61 6e 75 70 29 5d 7d 20 7b 0a 20  (-cleanup)]} {. 
3f90: 20 20 20 20 20 63 61 74 63 68 20 24 3a 3a 69 6f       catch $::io
3fa0: 65 72 72 6f 70 74 73 28 2d 63 6c 65 61 6e 75 70  erropts(-cleanup
3fb0: 29 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 65  ).    }.  }.  se
3fc0: 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72  t ::sqlite_io_er
3fd0: 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a 20 20  ror_pending 0.  
3fe0: 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f  set ::sqlite_io_
3ff0: 65 72 72 6f 72 5f 70 65 72 73 69 73 74 20 30 0a  error_persist 0.
4000: 20 20 75 6e 73 65 74 20 3a 3a 69 6f 65 72 72 6f    unset ::ioerro
4010: 70 74 73 0a 7d 0a 0a 23 20 52 65 74 75 72 6e 20  pts.}..# Return 
4020: 61 20 63 68 65 63 6b 73 75 6d 20 62 61 73 65 64  a checksum based
4030: 20 6f 6e 20 74 68 65 20 63 6f 6e 74 65 6e 74 73   on the contents
4040: 20 6f 66 20 64 61 74 61 62 61 73 65 20 27 64 62   of database 'db
4050: 27 2e 0a 23 0a 70 72 6f 63 20 63 6b 73 75 6d 20  '..#.proc cksum 
4060: 7b 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 73 65  {{db db}} {.  se
4070: 74 20 74 78 74 20 5b 24 64 62 20 65 76 61 6c 20  t txt [$db eval 
4080: 7b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 6e  {.      SELECT n
4090: 61 6d 65 2c 20 74 79 70 65 2c 20 73 71 6c 20 46  ame, type, sql F
40a0: 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65  ROM sqlite_maste
40b0: 72 20 6f 72 64 65 72 20 62 79 20 6e 61 6d 65 0a  r order by name.
40c0: 20 20 7d 5d 5c 6e 0a 20 20 66 6f 72 65 61 63 68    }]\n.  foreach
40d0: 20 74 62 6c 20 5b 24 64 62 20 65 76 61 6c 20 7b   tbl [$db eval {
40e0: 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 6e 61  .      SELECT na
40f0: 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d  me FROM sqlite_m
4100: 61 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65  aster WHERE type
4110: 3d 27 74 61 62 6c 65 27 20 6f 72 64 65 72 20 62  ='table' order b
4120: 79 20 6e 61 6d 65 0a 20 20 7d 5d 20 7b 0a 20 20  y name.  }] {.  
4130: 20 20 61 70 70 65 6e 64 20 74 78 74 20 5b 24 64    append txt [$d
4140: 62 20 65 76 61 6c 20 22 53 45 4c 45 43 54 20 2a  b eval "SELECT *
4150: 20 46 52 4f 4d 20 24 74 62 6c 22 5d 5c 6e 0a 20   FROM $tbl"]\n. 
4160: 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 70 72 61   }.  foreach pra
4170: 67 20 7b 64 65 66 61 75 6c 74 5f 73 79 6e 63 68  g {default_synch
4180: 72 6f 6e 6f 75 73 20 64 65 66 61 75 6c 74 5f 63  ronous default_c
4190: 61 63 68 65 5f 73 69 7a 65 7d 20 7b 0a 20 20 20  ache_size} {.   
41a0: 20 61 70 70 65 6e 64 20 74 78 74 20 24 70 72 61   append txt $pra
41b0: 67 2d 5b 24 64 62 20 65 76 61 6c 20 22 50 52 41  g-[$db eval "PRA
41c0: 47 4d 41 20 24 70 72 61 67 22 5d 5c 6e 0a 20 20  GMA $prag"]\n.  
41d0: 7d 0a 20 20 73 65 74 20 63 6b 73 75 6d 20 5b 73  }.  set cksum [s
41e0: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 74 78  tring length $tx
41f0: 74 5d 2d 5b 6d 64 35 20 24 74 78 74 5d 0a 20 20  t]-[md5 $txt].  
4200: 23 20 70 75 74 73 20 24 63 6b 73 75 6d 2d 5b 66  # puts $cksum-[f
4210: 69 6c 65 20 73 69 7a 65 20 74 65 73 74 2e 64 62  ile size test.db
4220: 5d 0a 20 20 72 65 74 75 72 6e 20 24 63 6b 73 75  ].  return $cksu
4230: 6d 0a 7d 0a 0a 23 20 43 6f 70 79 20 66 69 6c 65  m.}..# Copy file
4240: 20 24 66 72 6f 6d 20 69 6e 74 6f 20 24 74 6f 2e   $from into $to.
4250: 20 54 68 69 73 20 69 73 20 75 73 65 64 20 62 65   This is used be
4260: 63 61 75 73 65 20 73 6f 6d 65 20 76 65 72 73 69  cause some versi
4270: 6f 6e 73 20 6f 66 0a 23 20 54 43 4c 20 66 6f 72  ons of.# TCL for
4280: 20 77 69 6e 64 6f 77 73 20 28 6e 6f 74 61 62 6c   windows (notabl
4290: 79 20 74 68 65 20 38 2e 34 2e 31 20 62 69 6e 61  y the 8.4.1 bina
42a0: 72 79 20 70 61 63 6b 61 67 65 20 73 68 69 70 70  ry package shipp
42b0: 65 64 20 77 69 74 68 20 74 68 65 0a 23 20 63 75  ed with the.# cu
42c0: 72 72 65 6e 74 20 6d 69 6e 67 77 20 72 65 6c 65  rrent mingw rele
42d0: 61 73 65 29 20 68 61 76 65 20 61 20 62 72 6f 6b  ase) have a brok
42e0: 65 6e 20 22 66 69 6c 65 20 63 6f 70 79 22 20 63  en "file copy" c
42f0: 6f 6d 6d 61 6e 64 2e 0a 23 0a 70 72 6f 63 20 63  ommand..#.proc c
4300: 6f 70 79 5f 66 69 6c 65 20 7b 66 72 6f 6d 20 74  opy_file {from t
4310: 6f 7d 20 7b 0a 20 20 69 66 20 7b 24 3a 3a 74 63  o} {.  if {$::tc
4320: 6c 5f 70 6c 61 74 66 6f 72 6d 28 70 6c 61 74 66  l_platform(platf
4330: 6f 72 6d 29 3d 3d 22 75 6e 69 78 22 7d 20 7b 0a  orm)=="unix"} {.
4340: 20 20 20 20 66 69 6c 65 20 63 6f 70 79 20 2d 66      file copy -f
4350: 6f 72 63 65 20 24 66 72 6f 6d 20 24 74 6f 0a 20  orce $from $to. 
4360: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65   } else {.    se
4370: 74 20 66 20 5b 6f 70 65 6e 20 24 66 72 6f 6d 5d  t f [open $from]
4380: 0a 20 20 20 20 66 63 6f 6e 66 69 67 75 72 65 20  .    fconfigure 
4390: 24 66 20 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 20  $f -translation 
43a0: 62 69 6e 61 72 79 0a 20 20 20 20 73 65 74 20 74  binary.    set t
43b0: 20 5b 6f 70 65 6e 20 24 74 6f 20 77 5d 0a 20 20   [open $to w].  
43c0: 20 20 66 63 6f 6e 66 69 67 75 72 65 20 24 74 20    fconfigure $t 
43d0: 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e  -translation bin
43e0: 61 72 79 0a 20 20 20 20 70 75 74 73 20 2d 6e 6f  ary.    puts -no
43f0: 6e 65 77 6c 69 6e 65 20 24 74 20 5b 72 65 61 64  newline $t [read
4400: 20 24 66 20 5b 66 69 6c 65 20 73 69 7a 65 20 24   $f [file size $
4410: 66 72 6f 6d 5d 5d 0a 20 20 20 20 63 6c 6f 73 65  from]].    close
4420: 20 24 74 0a 20 20 20 20 63 6c 6f 73 65 20 24 66   $t.    close $f
4430: 0a 20 20 7d 0a 7d 0a 0a 23 20 49 66 20 74 68 65  .  }.}..# If the
4440: 20 6c 69 62 72 61 72 79 20 69 73 20 63 6f 6d 70   library is comp
4450: 69 6c 65 64 20 77 69 74 68 20 74 68 65 20 53 51  iled with the SQ
4460: 4c 49 54 45 5f 44 45 46 41 55 4c 54 5f 41 55 54  LITE_DEFAULT_AUT
4470: 4f 56 41 43 55 55 4d 20 6d 61 63 72 6f 20 73 65  OVACUUM macro se
4480: 74 0a 23 20 74 6f 20 6e 6f 6e 2d 7a 65 72 6f 2c  t.# to non-zero,
4490: 20 74 68 65 6e 20 73 65 74 20 74 68 65 20 67 6c   then set the gl
44a0: 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 24 41  obal variable $A
44b0: 55 54 4f 56 41 43 55 55 4d 20 74 6f 20 31 2e 0a  UTOVACUUM to 1..
44c0: 73 65 74 20 41 55 54 4f 56 41 43 55 55 4d 20 24  set AUTOVACUUM $
44d0: 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 28 64  sqlite_options(d
44e0: 65 66 61 75 6c 74 5f 61 75 74 6f 76 61 63 75 75  efault_autovacuu
44f0: 6d 29 0a                                         m).