/ Hex Artifact Content
Login

Artifact ebaa00336761e1b97f56a8376178289097db43ab:


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 31 34 31 20 32 30 30 39 2f 30 33 2f 32   1.141 2009/03/2
01f0: 36 20 31 37 3a 31 33 3a 30 36 20 64 61 6e 69 65  6 17:13:06 danie
0200: 6c 6b 31 39 37 37 20 45 78 70 20 24 0a 0a 23 0a  lk1977 Exp $..#.
0210: 23 20 57 68 61 74 20 66 6f 72 20 75 73 65 72 20  # What for user 
0220: 69 6e 70 75 74 20 62 65 66 6f 72 65 20 63 6f 6e  input before con
0230: 74 69 6e 75 69 6e 67 2e 20 20 54 68 69 73 20 67  tinuing.  This g
0240: 69 76 65 73 20 61 6e 20 6f 70 70 6f 72 74 75 6e  ives an opportun
0250: 69 74 79 0a 23 20 74 6f 20 63 6f 6e 6e 65 63 74  ity.# to connect
0260: 20 70 72 6f 66 69 6c 69 6e 67 20 74 6f 6f 6c 73   profiling tools
0270: 20 74 6f 20 74 68 65 20 70 72 6f 63 65 73 73 2e   to the process.
0280: 0a 23 0a 66 6f 72 20 7b 73 65 74 20 69 20 30 7d  .#.for {set i 0}
0290: 20 7b 24 69 3c 5b 6c 6c 65 6e 67 74 68 20 24 61   {$i<[llength $a
02a0: 72 67 76 5d 7d 20 7b 69 6e 63 72 20 69 7d 20 7b  rgv]} {incr i} {
02b0: 0a 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20 7b  .  if {[regexp {
02c0: 5e 2d 2b 70 61 75 73 65 24 7d 20 5b 6c 69 6e 64  ^-+pause$} [lind
02d0: 65 78 20 24 61 72 67 76 20 24 69 5d 20 61 6c 6c  ex $argv $i] all
02e0: 20 76 61 6c 75 65 5d 7d 20 7b 0a 20 20 20 20 70   value]} {.    p
02f0: 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 22  uts -nonewline "
0300: 50 72 65 73 73 20 52 45 54 55 52 4e 20 74 6f 20  Press RETURN to 
0310: 62 65 67 69 6e 2e 2e 2e 22 0a 20 20 20 20 66 6c  begin...".    fl
0320: 75 73 68 20 73 74 64 6f 75 74 0a 20 20 20 20 67  ush stdout.    g
0330: 65 74 73 20 73 74 64 69 6e 0a 20 20 20 20 73 65  ets stdin.    se
0340: 74 20 61 72 67 76 20 5b 6c 72 65 70 6c 61 63 65  t argv [lreplace
0350: 20 24 61 72 67 76 20 24 69 20 24 69 5d 0a 20 20   $argv $i $i].  
0360: 7d 0a 7d 0a 0a 73 65 74 20 74 63 6c 5f 70 72 65  }.}..set tcl_pre
0370: 63 69 73 69 6f 6e 20 31 35 0a 73 71 6c 69 74 65  cision 15.sqlite
0380: 33 5f 74 65 73 74 5f 63 6f 6e 74 72 6f 6c 5f 70  3_test_control_p
0390: 65 6e 64 69 6e 67 5f 62 79 74 65 20 30 78 30 30  ending_byte 0x00
03a0: 31 30 30 30 30 0a 0a 23 20 0a 23 20 43 68 65 63  10000..# .# Chec
03b0: 6b 20 74 68 65 20 63 6f 6d 6d 61 6e 64 2d 6c 69  k the command-li
03c0: 6e 65 20 61 72 67 75 6d 65 6e 74 73 20 66 6f 72  ne arguments for
03d0: 20 61 20 64 65 66 61 75 6c 74 20 73 6f 66 74 2d   a default soft-
03e0: 68 65 61 70 2d 6c 69 6d 69 74 2e 0a 23 20 53 74  heap-limit..# St
03f0: 6f 72 65 20 74 68 69 73 20 64 65 66 61 75 6c 74  ore this default
0400: 20 76 61 6c 75 65 20 69 6e 20 74 68 65 20 67 6c   value in the gl
0410: 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 3a 3a  obal variable ::
0420: 73 6f 66 74 5f 6c 69 6d 69 74 20 61 6e 64 0a 23  soft_limit and.#
0430: 20 75 70 64 61 74 65 20 74 68 65 20 73 6f 66 74   update the soft
0440: 2d 68 65 61 70 2d 6c 69 6d 69 74 20 65 61 63 68  -heap-limit each
0450: 20 74 69 6d 65 20 74 68 69 73 20 73 63 72 69 70   time this scrip
0460: 74 20 69 73 20 72 75 6e 2e 20 20 49 6e 20 74 68  t is run.  In th
0470: 61 74 0a 23 20 77 61 79 20 69 66 20 61 6e 20 69  at.# way if an i
0480: 6e 64 69 76 69 64 75 61 6c 20 74 65 73 74 20 66  ndividual test f
0490: 69 6c 65 20 63 68 61 6e 67 65 73 20 74 68 65 20  ile changes the 
04a0: 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74 2c  soft-heap-limit,
04b0: 20 69 74 0a 23 20 77 69 6c 6c 20 62 65 20 72 65   it.# will be re
04c0: 73 65 74 20 61 74 20 74 68 65 20 73 74 61 72 74  set at the start
04d0: 20 6f 66 20 74 68 65 20 6e 65 78 74 20 74 65 73   of the next tes
04e0: 74 20 66 69 6c 65 2e 0a 23 0a 69 66 20 7b 21 5b  t file..#.if {![
04f0: 69 6e 66 6f 20 65 78 69 73 74 73 20 73 6f 66 74  info exists soft
0500: 5f 6c 69 6d 69 74 5d 7d 20 7b 0a 20 20 73 65 74  _limit]} {.  set
0510: 20 73 6f 66 74 5f 6c 69 6d 69 74 20 30 0a 20 20   soft_limit 0.  
0520: 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24  for {set i 0} {$
0530: 69 3c 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 76  i<[llength $argv
0540: 5d 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20  ]} {incr i} {.  
0550: 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 5e    if {[regexp {^
0560: 2d 2d 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69  --soft-heap-limi
0570: 74 3d 28 2e 2b 29 24 7d 20 5b 6c 69 6e 64 65 78  t=(.+)$} [lindex
0580: 20 24 61 72 67 76 20 24 69 5d 20 61 6c 6c 20 76   $argv $i] all v
0590: 61 6c 75 65 5d 7d 20 7b 0a 20 20 20 20 20 20 69  alue]} {.      i
05a0: 66 20 7b 24 76 61 6c 75 65 21 3d 22 6f 66 66 22  f {$value!="off"
05b0: 7d 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20  } {.        set 
05c0: 73 6f 66 74 5f 6c 69 6d 69 74 20 24 76 61 6c 75  soft_limit $valu
05d0: 65 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  e.      }.      
05e0: 73 65 74 20 61 72 67 76 20 5b 6c 72 65 70 6c 61  set argv [lrepla
05f0: 63 65 20 24 61 72 67 76 20 24 69 20 24 69 5d 0a  ce $argv $i $i].
0600: 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 73 71 6c 69      }.  }.}.sqli
0610: 74 65 33 5f 73 6f 66 74 5f 68 65 61 70 5f 6c 69  te3_soft_heap_li
0620: 6d 69 74 20 24 73 6f 66 74 5f 6c 69 6d 69 74 0a  mit $soft_limit.
0630: 0a 23 20 0a 23 20 43 68 65 63 6b 20 74 68 65 20  .# .# Check the 
0640: 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 20 61 72 67  command-line arg
0650: 75 6d 65 6e 74 73 20 74 6f 20 73 65 74 20 74 68  uments to set th
0660: 65 20 6d 65 6d 6f 72 79 20 64 65 62 75 67 67 65  e memory debugge
0670: 72 0a 23 20 62 61 63 6b 74 72 61 63 65 20 64 65  r.# backtrace de
0680: 70 74 68 2e 0a 23 0a 23 20 53 65 65 20 74 68 65  pth..#.# See the
0690: 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75   sqlite3_memdebu
06a0: 67 5f 62 61 63 6b 74 72 61 63 65 28 29 20 66 75  g_backtrace() fu
06b0: 6e 63 74 69 6f 6e 20 69 6e 20 6d 65 6d 32 2e 63  nction in mem2.c
06c0: 20 6f 72 0a 23 20 74 65 73 74 5f 6d 61 6c 6c 6f   or.# test_mallo
06d0: 63 2e 63 20 66 6f 72 20 61 64 64 69 74 69 6f 6e  c.c for addition
06e0: 61 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0a  al information..
06f0: 23 0a 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20  #.for {set i 0} 
0700: 7b 24 69 3c 5b 6c 6c 65 6e 67 74 68 20 24 61 72  {$i<[llength $ar
0710: 67 76 5d 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a  gv]} {incr i} {.
0720: 20 20 69 66 20 7b 5b 6c 69 6e 64 65 78 20 24 61    if {[lindex $a
0730: 72 67 76 20 24 69 5d 20 65 71 20 22 2d 2d 6d 61  rgv $i] eq "--ma
0740: 6c 6c 6f 63 74 72 61 63 65 22 7d 20 7b 0a 20 20  lloctrace"} {.  
0750: 20 20 73 65 74 20 61 72 67 76 20 5b 6c 72 65 70    set argv [lrep
0760: 6c 61 63 65 20 24 61 72 67 76 20 24 69 20 24 69  lace $argv $i $i
0770: 5d 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65  ].    sqlite3_me
0780: 6d 64 65 62 75 67 5f 62 61 63 6b 74 72 61 63 65  mdebug_backtrace
0790: 20 31 30 0a 20 20 20 20 73 71 6c 69 74 65 33 5f   10.    sqlite3_
07a0: 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 20 73 74 61  memdebug_log sta
07b0: 72 74 0a 20 20 20 20 73 65 74 20 74 65 73 74 65  rt.    set teste
07c0: 72 5f 64 6f 5f 6d 61 6c 6c 6f 63 74 72 61 63 65  r_do_malloctrace
07d0: 20 31 0a 20 20 7d 0a 7d 0a 66 6f 72 20 7b 73 65   1.  }.}.for {se
07e0: 74 20 69 20 30 7d 20 7b 24 69 3c 5b 6c 6c 65 6e  t i 0} {$i<[llen
07f0: 67 74 68 20 24 61 72 67 76 5d 7d 20 7b 69 6e 63  gth $argv]} {inc
0800: 72 20 69 7d 20 7b 0a 20 20 69 66 20 7b 5b 72 65  r i} {.  if {[re
0810: 67 65 78 70 20 7b 5e 2d 2d 62 61 63 6b 74 72 61  gexp {^--backtra
0820: 63 65 3d 28 5c 64 2b 29 24 7d 20 5b 6c 69 6e 64  ce=(\d+)$} [lind
0830: 65 78 20 24 61 72 67 76 20 24 69 5d 20 61 6c 6c  ex $argv $i] all
0840: 20 76 61 6c 75 65 5d 7d 20 7b 0a 20 20 20 20 73   value]} {.    s
0850: 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f  qlite3_memdebug_
0860: 62 61 63 6b 74 72 61 63 65 20 24 76 61 6c 75 65  backtrace $value
0870: 0a 20 20 20 20 73 65 74 20 61 72 67 76 20 5b 6c  .    set argv [l
0880: 72 65 70 6c 61 63 65 20 24 61 72 67 76 20 24 69  replace $argv $i
0890: 20 24 69 5d 0a 20 20 7d 0a 7d 0a 0a 0a 70 72 6f   $i].  }.}...pro
08a0: 63 20 6f 73 74 72 61 63 65 5f 63 61 6c 6c 20 7b  c ostrace_call {
08b0: 7a 43 61 6c 6c 20 6e 43 6c 69 63 6b 20 7a 46 69  zCall nClick zFi
08c0: 6c 65 20 69 33 32 20 69 36 34 7d 20 7b 0a 20 20  le i32 i64} {.  
08d0: 73 65 74 20 73 20 22 49 4e 53 45 52 54 20 49 4e  set s "INSERT IN
08e0: 54 4f 20 6f 73 74 72 61 63 65 20 56 41 4c 55 45  TO ostrace VALUE
08f0: 53 28 27 24 7a 43 61 6c 6c 27 2c 20 24 6e 43 6c  S('$zCall', $nCl
0900: 69 63 6b 2c 20 27 24 7a 46 69 6c 65 27 2c 20 24  ick, '$zFile', $
0910: 69 33 32 2c 20 24 69 36 34 29 3b 22 0a 20 20 70  i32, $i64);".  p
0920: 75 74 73 20 24 3a 3a 6f 73 74 72 61 63 65 5f 66  uts $::ostrace_f
0930: 64 20 24 73 0a 7d 0a 0a 66 6f 72 20 7b 73 65 74  d $s.}..for {set
0940: 20 69 20 30 7d 20 7b 24 69 3c 5b 6c 6c 65 6e 67   i 0} {$i<[lleng
0950: 74 68 20 24 61 72 67 76 5d 7d 20 7b 69 6e 63 72  th $argv]} {incr
0960: 20 69 7d 20 7b 0a 20 20 69 66 20 7b 5b 6c 69 6e   i} {.  if {[lin
0970: 64 65 78 20 24 61 72 67 76 20 24 69 5d 20 65 71  dex $argv $i] eq
0980: 20 22 2d 2d 6f 73 73 75 6d 6d 61 72 79 22 20 7c   "--ossummary" |
0990: 7c 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 76 20  | [lindex $argv 
09a0: 24 69 5d 20 65 71 20 22 2d 2d 6f 73 74 72 61 63  $i] eq "--ostrac
09b0: 65 22 7d 20 7b 0a 20 20 20 20 73 71 6c 69 74 65  e"} {.    sqlite
09c0: 33 5f 69 6e 73 74 76 66 73 20 63 72 65 61 74 65  3_instvfs create
09d0: 20 2d 64 65 66 61 75 6c 74 20 6f 73 74 72 61 63   -default ostrac
09e0: 65 0a 20 20 20 20 73 65 74 20 74 65 73 74 65 72  e.    set tester
09f0: 5f 64 6f 5f 6f 73 74 72 61 63 65 20 31 0a 20 20  _do_ostrace 1.  
0a00: 20 20 73 65 74 20 6f 73 74 72 61 63 65 5f 66 64    set ostrace_fd
0a10: 20 5b 6f 70 65 6e 20 6f 73 74 72 61 63 65 2e 73   [open ostrace.s
0a20: 71 6c 20 77 5d 0a 20 20 20 20 70 75 74 73 20 24  ql w].    puts $
0a30: 6f 73 74 72 61 63 65 5f 66 64 20 22 42 45 47 49  ostrace_fd "BEGI
0a40: 4e 3b 22 0a 20 20 20 20 69 66 20 7b 5b 6c 69 6e  N;".    if {[lin
0a50: 64 65 78 20 24 61 72 67 76 20 24 69 5d 20 65 71  dex $argv $i] eq
0a60: 20 22 2d 2d 6f 73 74 72 61 63 65 22 7d 20 7b 0a   "--ostrace"} {.
0a70: 20 20 20 20 20 20 73 65 74 20 20 20 20 73 20 22        set    s "
0a80: 43 52 45 41 54 45 20 54 41 42 4c 45 20 6f 73 74  CREATE TABLE ost
0a90: 72 61 63 65 22 0a 20 20 20 20 20 20 61 70 70 65  race".      appe
0aa0: 6e 64 20 73 20 22 28 6d 65 74 68 6f 64 20 54 45  nd s "(method TE
0ab0: 58 54 2c 20 63 6c 69 63 6b 73 20 49 4e 54 2c 20  XT, clicks INT, 
0ac0: 66 69 6c 65 20 54 45 58 54 2c 20 69 33 32 20 49  file TEXT, i32 I
0ad0: 4e 54 2c 20 69 36 34 20 49 4e 54 29 3b 22 0a 20  NT, i64 INT);". 
0ae0: 20 20 20 20 20 70 75 74 73 20 24 6f 73 74 72 61       puts $ostra
0af0: 63 65 5f 66 64 20 24 73 0a 20 20 20 20 20 20 73  ce_fd $s.      s
0b00: 71 6c 69 74 65 33 5f 69 6e 73 74 76 66 73 20 63  qlite3_instvfs c
0b10: 6f 6e 66 69 67 75 72 65 20 6f 73 74 72 61 63 65  onfigure ostrace
0b20: 20 6f 73 74 72 61 63 65 5f 63 61 6c 6c 0a 20 20   ostrace_call.  
0b30: 20 20 20 20 73 71 6c 69 74 65 33 5f 69 6e 73 74      sqlite3_inst
0b40: 76 66 73 20 63 6f 6e 66 69 67 75 72 65 20 6f 73  vfs configure os
0b50: 74 72 61 63 65 20 6f 73 74 72 61 63 65 5f 63 61  trace ostrace_ca
0b60: 6c 6c 0a 20 20 20 20 7d 0a 20 20 20 20 73 65 74  ll.    }.    set
0b70: 20 61 72 67 76 20 5b 6c 72 65 70 6c 61 63 65 20   argv [lreplace 
0b80: 24 61 72 67 76 20 24 69 20 24 69 5d 0a 20 20 7d  $argv $i $i].  }
0b90: 0a 20 20 69 66 20 7b 5b 6c 69 6e 64 65 78 20 24  .  if {[lindex $
0ba0: 61 72 67 76 20 24 69 5d 20 65 71 20 22 2d 2d 62  argv $i] eq "--b
0bb0: 69 6e 61 72 79 6c 6f 67 22 7d 20 7b 0a 20 20 20  inarylog"} {.   
0bc0: 20 73 65 74 20 74 65 73 74 65 72 5f 64 6f 5f 62   set tester_do_b
0bd0: 69 6e 61 72 79 6c 6f 67 20 31 0a 20 20 20 20 73  inarylog 1.    s
0be0: 65 74 20 61 72 67 76 20 5b 6c 72 65 70 6c 61 63  et argv [lreplac
0bf0: 65 20 24 61 72 67 76 20 24 69 20 24 69 5d 0a 20  e $argv $i $i]. 
0c00: 20 7d 0a 7d 0a 0a 23 20 0a 23 20 43 68 65 63 6b   }.}..# .# Check
0c10: 20 74 68 65 20 63 6f 6d 6d 61 6e 64 2d 6c 69 6e   the command-lin
0c20: 65 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 73  e arguments to s
0c30: 65 74 20 74 68 65 20 6d 61 78 69 6d 75 6d 20 6e  et the maximum n
0c40: 75 6d 62 65 72 20 6f 66 0a 23 20 65 72 72 6f 72  umber of.# error
0c50: 73 20 74 6f 6c 65 72 61 74 65 64 20 62 65 66 6f  s tolerated befo
0c60: 72 65 20 68 61 6c 74 69 6e 67 2e 0a 23 0a 69 66  re halting..#.if
0c70: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20   {![info exists 
0c80: 6d 61 78 45 72 72 5d 7d 20 7b 0a 20 20 73 65 74  maxErr]} {.  set
0c90: 20 6d 61 78 45 72 72 20 31 30 30 30 0a 7d 0a 66   maxErr 1000.}.f
0ca0: 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69  or {set i 0} {$i
0cb0: 3c 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 76 5d  <[llength $argv]
0cc0: 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 69  } {incr i} {.  i
0cd0: 66 20 7b 5b 72 65 67 65 78 70 20 7b 5e 2d 2d 6d  f {[regexp {^--m
0ce0: 61 78 65 72 72 6f 72 3d 28 5c 64 2b 29 24 7d 20  axerror=(\d+)$} 
0cf0: 5b 6c 69 6e 64 65 78 20 24 61 72 67 76 20 24 69  [lindex $argv $i
0d00: 5d 20 61 6c 6c 20 6d 61 78 45 72 72 5d 7d 20 7b  ] all maxErr]} {
0d10: 0a 20 20 20 20 73 65 74 20 61 72 67 76 20 5b 6c  .    set argv [l
0d20: 72 65 70 6c 61 63 65 20 24 61 72 67 76 20 24 69  replace $argv $i
0d30: 20 24 69 5d 0a 20 20 7d 0a 7d 0a 23 70 75 74 73   $i].  }.}.#puts
0d40: 20 22 4d 61 78 20 65 72 72 6f 72 20 3d 20 24 6d   "Max error = $m
0d50: 61 78 45 72 72 22 0a 0a 0a 23 20 55 73 65 20 74  axErr"...# Use t
0d60: 68 65 20 70 61 67 65 72 20 63 6f 64 65 63 20 69  he pager codec i
0d70: 66 20 69 74 20 69 73 20 61 76 61 69 6c 61 62 6c  f it is availabl
0d80: 65 0a 23 0a 69 66 20 7b 5b 73 71 6c 69 74 65 33  e.#.if {[sqlite3
0d90: 20 2d 68 61 73 2d 63 6f 64 65 63 5d 20 26 26 20   -has-codec] && 
0da0: 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 20 73 71  [info command sq
0db0: 6c 69 74 65 5f 6f 72 69 67 5d 3d 3d 22 22 7d 20  lite_orig]==""} 
0dc0: 7b 0a 20 20 72 65 6e 61 6d 65 20 73 71 6c 69 74  {.  rename sqlit
0dd0: 65 33 20 73 71 6c 69 74 65 5f 6f 72 69 67 0a 20  e3 sqlite_orig. 
0de0: 20 70 72 6f 63 20 73 71 6c 69 74 65 33 20 7b 61   proc sqlite3 {a
0df0: 72 67 73 7d 20 7b 0a 20 20 20 20 69 66 20 7b 5b  rgs} {.    if {[
0e00: 6c 6c 65 6e 67 74 68 20 24 61 72 67 73 5d 3d 3d  llength $args]==
0e10: 32 20 26 26 20 5b 73 74 72 69 6e 67 20 69 6e 64  2 && [string ind
0e20: 65 78 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73  ex [lindex $args
0e30: 20 30 5d 20 30 5d 21 3d 22 2d 22 7d 20 7b 0a 20   0] 0]!="-"} {. 
0e40: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 61 72 67       lappend arg
0e50: 73 20 2d 6b 65 79 20 7b 78 79 7a 7a 79 7d 0a 20  s -key {xyzzy}. 
0e60: 20 20 20 7d 0a 20 20 20 20 75 70 6c 65 76 65 6c     }.    uplevel
0e70: 20 31 20 73 71 6c 69 74 65 5f 6f 72 69 67 20 24   1 sqlite_orig $
0e80: 61 72 67 73 0a 20 20 7d 0a 7d 0a 0a 0a 23 20 43  args.  }.}...# C
0e90: 72 65 61 74 65 20 61 20 74 65 73 74 20 64 61 74  reate a test dat
0ea0: 61 62 61 73 65 0a 23 0a 69 66 20 7b 21 5b 69 6e  abase.#.if {![in
0eb0: 66 6f 20 65 78 69 73 74 73 20 6e 54 65 73 74 5d  fo exists nTest]
0ec0: 7d 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 68  } {.  sqlite3_sh
0ed0: 75 74 64 6f 77 6e 20 0a 20 20 69 6e 73 74 61 6c  utdown .  instal
0ee0: 6c 5f 6d 61 6c 6c 6f 63 5f 66 61 75 6c 74 73 69  l_malloc_faultsi
0ef0: 6d 20 31 20 0a 20 20 73 71 6c 69 74 65 33 5f 69  m 1 .  sqlite3_i
0f00: 6e 69 74 69 61 6c 69 7a 65 0a 20 20 69 66 20 7b  nitialize.  if {
0f10: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 74 65 73  [info exists tes
0f20: 74 65 72 5f 64 6f 5f 62 69 6e 61 72 79 6c 6f 67  ter_do_binarylog
0f30: 5d 7d 20 7b 0a 20 20 20 20 73 71 6c 69 74 65 33  ]} {.    sqlite3
0f40: 5f 69 6e 73 74 76 66 73 20 62 69 6e 61 72 79 6c  _instvfs binaryl
0f50: 6f 67 20 2d 64 65 66 61 75 6c 74 20 62 69 6e 61  og -default bina
0f60: 72 79 6c 6f 67 20 6f 73 74 72 61 63 65 2e 62 69  rylog ostrace.bi
0f70: 6e 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 69 6e  n.    sqlite3_in
0f80: 73 74 76 66 73 20 6d 61 72 6b 65 72 20 62 69 6e  stvfs marker bin
0f90: 61 72 79 6c 6f 67 20 22 24 61 72 67 76 30 20 24  arylog "$argv0 $
0fa0: 61 72 67 76 22 0a 20 20 7d 0a 7d 0a 0a 70 72 6f  argv".  }.}..pro
0fb0: 63 20 72 65 73 65 74 5f 64 62 20 7b 7d 20 7b 0a  c reset_db {} {.
0fc0: 20 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73    catch {db clos
0fd0: 65 7d 0a 20 20 66 69 6c 65 20 64 65 6c 65 74 65  e}.  file delete
0fe0: 20 2d 66 6f 72 63 65 20 74 65 73 74 2e 64 62 0a   -force test.db.
0ff0: 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66    file delete -f
1000: 6f 72 63 65 20 74 65 73 74 2e 64 62 2d 6a 6f 75  orce test.db-jou
1010: 72 6e 61 6c 0a 20 20 73 71 6c 69 74 65 33 20 64  rnal.  sqlite3 d
1020: 62 20 2e 2f 74 65 73 74 2e 64 62 0a 20 20 73 65  b ./test.db.  se
1030: 74 20 3a 3a 44 42 20 5b 73 71 6c 69 74 65 33 5f  t ::DB [sqlite3_
1040: 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74  connection_point
1050: 65 72 20 64 62 5d 0a 20 20 69 66 20 7b 5b 69 6e  er db].  if {[in
1060: 66 6f 20 65 78 69 73 74 73 20 3a 3a 53 45 54 55  fo exists ::SETU
1070: 50 5f 53 51 4c 5d 7d 20 7b 0a 20 20 20 20 64 62  P_SQL]} {.    db
1080: 20 65 76 61 6c 20 24 3a 3a 53 45 54 55 50 5f 53   eval $::SETUP_S
1090: 51 4c 0a 20 20 7d 0a 7d 0a 72 65 73 65 74 5f 64  QL.  }.}.reset_d
10a0: 62 0a 0a 23 20 41 62 6f 72 74 20 65 61 72 6c 79  b..# Abort early
10b0: 20 69 66 20 74 68 69 73 20 73 63 72 69 70 74 20   if this script 
10c0: 68 61 73 20 62 65 65 6e 20 72 75 6e 20 62 65 66  has been run bef
10d0: 6f 72 65 2e 0a 23 0a 69 66 20 7b 5b 69 6e 66 6f  ore..#.if {[info
10e0: 20 65 78 69 73 74 73 20 6e 54 65 73 74 5d 7d 20   exists nTest]} 
10f0: 72 65 74 75 72 6e 0a 0a 23 20 53 65 74 20 74 68  return..# Set th
1100: 65 20 74 65 73 74 20 63 6f 75 6e 74 65 72 73 20  e test counters 
1110: 74 6f 20 7a 65 72 6f 0a 23 0a 73 65 74 20 6e 45  to zero.#.set nE
1120: 72 72 20 30 0a 73 65 74 20 6e 54 65 73 74 20 30  rr 0.set nTest 0
1130: 0a 73 65 74 20 73 6b 69 70 5f 74 65 73 74 20 30  .set skip_test 0
1140: 0a 73 65 74 20 66 61 69 6c 4c 69 73 74 20 7b 7d  .set failList {}
1150: 0a 73 65 74 20 6f 6d 69 74 4c 69 73 74 20 7b 7d  .set omitList {}
1160: 0a 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73  .if {![info exis
1170: 74 73 20 73 70 65 65 64 54 65 73 74 5d 7d 20 7b  ts speedTest]} {
1180: 0a 20 20 73 65 74 20 73 70 65 65 64 54 65 73 74  .  set speedTest
1190: 20 30 0a 7d 0a 0a 23 20 52 65 63 6f 72 64 20 74   0.}..# Record t
11a0: 68 65 20 66 61 63 74 20 74 68 61 74 20 61 20 73  he fact that a s
11b0: 65 71 75 65 6e 63 65 20 6f 66 20 74 65 73 74 73  equence of tests
11c0: 20 77 65 72 65 20 6f 6d 69 74 74 65 64 2e 0a 23   were omitted..#
11d0: 0a 70 72 6f 63 20 6f 6d 69 74 5f 74 65 73 74 20  .proc omit_test 
11e0: 7b 6e 61 6d 65 20 72 65 61 73 6f 6e 7d 20 7b 0a  {name reason} {.
11f0: 20 20 67 6c 6f 62 61 6c 20 6f 6d 69 74 4c 69 73    global omitLis
1200: 74 0a 20 20 6c 61 70 70 65 6e 64 20 6f 6d 69 74  t.  lappend omit
1210: 4c 69 73 74 20 5b 6c 69 73 74 20 24 6e 61 6d 65  List [list $name
1220: 20 24 72 65 61 73 6f 6e 5d 0a 7d 0a 0a 23 20 49   $reason].}..# I
1230: 6e 76 6f 6b 65 20 74 68 65 20 64 6f 5f 74 65 73  nvoke the do_tes
1240: 74 20 70 72 6f 63 65 64 75 72 65 20 74 6f 20 72  t procedure to r
1250: 75 6e 20 61 20 73 69 6e 67 6c 65 20 74 65 73 74  un a single test
1260: 20 0a 23 0a 70 72 6f 63 20 64 6f 5f 74 65 73 74   .#.proc do_test
1270: 20 7b 6e 61 6d 65 20 63 6d 64 20 65 78 70 65 63   {name cmd expec
1280: 74 65 64 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20  ted} {.  global 
1290: 61 72 67 76 20 6e 45 72 72 20 6e 54 65 73 74 20  argv nErr nTest 
12a0: 73 6b 69 70 5f 74 65 73 74 20 6d 61 78 45 72 72  skip_test maxErr
12b0: 0a 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65  .  sqlite3_memde
12c0: 62 75 67 5f 73 65 74 74 69 74 6c 65 20 24 6e 61  bug_settitle $na
12d0: 6d 65 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65  me.  if {[info e
12e0: 78 69 73 74 73 20 3a 3a 74 65 73 74 65 72 5f 64  xists ::tester_d
12f0: 6f 5f 62 69 6e 61 72 79 6c 6f 67 5d 7d 20 7b 0a  o_binarylog]} {.
1300: 20 20 20 20 73 71 6c 69 74 65 33 5f 69 6e 73 74      sqlite3_inst
1310: 76 66 73 20 6d 61 72 6b 65 72 20 62 69 6e 61 72  vfs marker binar
1320: 79 6c 6f 67 20 22 53 74 61 72 74 20 6f 66 20 24  ylog "Start of $
1330: 6e 61 6d 65 22 0a 20 20 7d 0a 20 20 69 66 20 7b  name".  }.  if {
1340: 24 73 6b 69 70 5f 74 65 73 74 7d 20 7b 0a 20 20  $skip_test} {.  
1350: 20 20 73 65 74 20 73 6b 69 70 5f 74 65 73 74 20    set skip_test 
1360: 30 0a 20 20 20 20 72 65 74 75 72 6e 0a 20 20 7d  0.    return.  }
1370: 0a 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20  .  if {[llength 
1380: 24 61 72 67 76 5d 3d 3d 30 7d 20 7b 20 0a 20 20  $argv]==0} { .  
1390: 20 20 73 65 74 20 67 6f 20 31 0a 20 20 7d 20 65    set go 1.  } e
13a0: 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20 67 6f  lse {.    set go
13b0: 20 30 0a 20 20 20 20 66 6f 72 65 61 63 68 20 70   0.    foreach p
13c0: 61 74 74 65 72 6e 20 24 61 72 67 76 20 7b 0a 20  attern $argv {. 
13d0: 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67       if {[string
13e0: 20 6d 61 74 63 68 20 24 70 61 74 74 65 72 6e 20   match $pattern 
13f0: 24 6e 61 6d 65 5d 7d 20 7b 0a 20 20 20 20 20 20  $name]} {.      
1400: 20 20 73 65 74 20 67 6f 20 31 0a 20 20 20 20 20    set go 1.     
1410: 20 20 20 62 72 65 61 6b 0a 20 20 20 20 20 20 7d     break.      }
1420: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 20  .    }.  }.  if 
1430: 7b 21 24 67 6f 7d 20 72 65 74 75 72 6e 0a 20 20  {!$go} return.  
1440: 69 6e 63 72 20 6e 54 65 73 74 0a 20 20 70 75 74  incr nTest.  put
1450: 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 24 6e 61  s -nonewline $na
1460: 6d 65 2e 2e 2e 0a 20 20 66 6c 75 73 68 20 73 74  me....  flush st
1470: 64 6f 75 74 0a 20 20 69 66 20 7b 5b 63 61 74 63  dout.  if {[catc
1480: 68 20 7b 75 70 6c 65 76 65 6c 20 23 30 20 22 24  h {uplevel #0 "$
1490: 63 6d 64 3b 5c 6e 22 7d 20 72 65 73 75 6c 74 5d  cmd;\n"} result]
14a0: 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22 5c 6e  } {.    puts "\n
14b0: 45 72 72 6f 72 3a 20 24 72 65 73 75 6c 74 22 0a  Error: $result".
14c0: 20 20 20 20 69 6e 63 72 20 6e 45 72 72 0a 20 20      incr nErr.  
14d0: 20 20 6c 61 70 70 65 6e 64 20 3a 3a 66 61 69 6c    lappend ::fail
14e0: 4c 69 73 74 20 24 6e 61 6d 65 0a 20 20 20 20 69  List $name.    i
14f0: 66 20 7b 24 6e 45 72 72 3e 24 6d 61 78 45 72 72  f {$nErr>$maxErr
1500: 7d 20 7b 70 75 74 73 20 22 2a 2a 2a 20 47 69 76  } {puts "*** Giv
1510: 69 6e 67 20 75 70 2e 2e 2e 22 3b 20 66 69 6e 61  ing up..."; fina
1520: 6c 69 7a 65 5f 74 65 73 74 69 6e 67 7d 0a 20 20  lize_testing}.  
1530: 7d 20 65 6c 73 65 69 66 20 7b 5b 73 74 72 69 6e  } elseif {[strin
1540: 67 20 63 6f 6d 70 61 72 65 20 24 72 65 73 75 6c  g compare $resul
1550: 74 20 24 65 78 70 65 63 74 65 64 5d 7d 20 7b 0a  t $expected]} {.
1560: 20 20 20 20 70 75 74 73 20 22 5c 6e 45 78 70 65      puts "\nExpe
1570: 63 74 65 64 3a 20 5c 5b 24 65 78 70 65 63 74 65  cted: \[$expecte
1580: 64 5c 5d 5c 6e 20 20 20 20 20 47 6f 74 3a 20 5c  d\]\n     Got: \
1590: 5b 24 72 65 73 75 6c 74 5c 5d 22 0a 20 20 20 20  [$result\]".    
15a0: 69 6e 63 72 20 6e 45 72 72 0a 20 20 20 20 6c 61  incr nErr.    la
15b0: 70 70 65 6e 64 20 3a 3a 66 61 69 6c 4c 69 73 74  ppend ::failList
15c0: 20 24 6e 61 6d 65 0a 20 20 20 20 69 66 20 7b 24   $name.    if {$
15d0: 6e 45 72 72 3e 3d 24 6d 61 78 45 72 72 7d 20 7b  nErr>=$maxErr} {
15e0: 70 75 74 73 20 22 2a 2a 2a 20 47 69 76 69 6e 67  puts "*** Giving
15f0: 20 75 70 2e 2e 2e 22 3b 20 66 69 6e 61 6c 69 7a   up..."; finaliz
1600: 65 5f 74 65 73 74 69 6e 67 7d 0a 20 20 7d 20 65  e_testing}.  } e
1610: 6c 73 65 20 7b 0a 20 20 20 20 70 75 74 73 20 22  lse {.    puts "
1620: 20 4f 6b 22 0a 20 20 7d 0a 20 20 66 6c 75 73 68   Ok".  }.  flush
1630: 20 73 74 64 6f 75 74 0a 20 20 69 66 20 7b 5b 69   stdout.  if {[i
1640: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 65 73  nfo exists ::tes
1650: 74 65 72 5f 64 6f 5f 62 69 6e 61 72 79 6c 6f 67  ter_do_binarylog
1660: 5d 7d 20 7b 0a 20 20 20 20 73 71 6c 69 74 65 33  ]} {.    sqlite3
1670: 5f 69 6e 73 74 76 66 73 20 6d 61 72 6b 65 72 20  _instvfs marker 
1680: 62 69 6e 61 72 79 6c 6f 67 20 22 45 6e 64 20 6f  binarylog "End o
1690: 66 20 24 6e 61 6d 65 22 0a 20 20 7d 0a 7d 0a 0a  f $name".  }.}..
16a0: 23 20 52 75 6e 20 61 6e 20 53 51 4c 20 73 63 72  # Run an SQL scr
16b0: 69 70 74 2e 20 20 0a 23 20 52 65 74 75 72 6e 20  ipt.  .# Return 
16c0: 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 6d 69  the number of mi
16d0: 63 72 6f 73 65 63 6f 6e 64 73 20 70 65 72 20 73  croseconds per s
16e0: 74 61 74 65 6d 65 6e 74 2e 0a 23 0a 70 72 6f 63  tatement..#.proc
16f0: 20 73 70 65 65 64 5f 74 72 69 61 6c 20 7b 6e 61   speed_trial {na
1700: 6d 65 20 6e 75 6d 73 74 6d 74 20 75 6e 69 74 73  me numstmt units
1710: 20 73 71 6c 7d 20 7b 0a 20 20 70 75 74 73 20 2d   sql} {.  puts -
1720: 6e 6f 6e 65 77 6c 69 6e 65 20 5b 66 6f 72 6d 61  nonewline [forma
1730: 74 20 7b 25 2d 32 31 2e 32 31 73 20 7d 20 24 6e  t {%-21.21s } $n
1740: 61 6d 65 2e 2e 2e 5d 0a 20 20 66 6c 75 73 68 20  ame...].  flush 
1750: 73 74 64 6f 75 74 0a 20 20 73 65 74 20 73 70 65  stdout.  set spe
1760: 65 64 20 5b 74 69 6d 65 20 7b 73 71 6c 69 74 65  ed [time {sqlite
1770: 33 5f 65 78 65 63 5f 6e 72 20 64 62 20 24 73 71  3_exec_nr db $sq
1780: 6c 7d 5d 0a 20 20 73 65 74 20 74 6d 20 5b 6c 69  l}].  set tm [li
1790: 6e 64 65 78 20 24 73 70 65 65 64 20 30 5d 0a 20  ndex $speed 0]. 
17a0: 20 69 66 20 7b 24 74 6d 20 3d 3d 20 30 7d 20 7b   if {$tm == 0} {
17b0: 0a 20 20 20 20 73 65 74 20 72 61 74 65 20 5b 66  .    set rate [f
17c0: 6f 72 6d 61 74 20 25 32 30 73 20 22 6d 61 6e 79  ormat %20s "many
17d0: 22 5d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20  "].  } else {.  
17e0: 20 20 73 65 74 20 72 61 74 65 20 5b 66 6f 72 6d    set rate [form
17f0: 61 74 20 25 32 30 2e 35 66 20 5b 65 78 70 72 20  at %20.5f [expr 
1800: 7b 31 30 30 30 30 30 30 2e 30 2a 24 6e 75 6d 73  {1000000.0*$nums
1810: 74 6d 74 2f 24 74 6d 7d 5d 5d 0a 20 20 7d 0a 20  tmt/$tm}]].  }. 
1820: 20 73 65 74 20 75 32 20 24 75 6e 69 74 73 2f 73   set u2 $units/s
1830: 0a 20 20 70 75 74 73 20 5b 66 6f 72 6d 61 74 20  .  puts [format 
1840: 7b 25 31 32 64 20 75 53 20 25 73 20 25 73 7d 20  {%12d uS %s %s} 
1850: 24 74 6d 20 24 72 61 74 65 20 24 75 32 5d 0a 20  $tm $rate $u2]. 
1860: 20 67 6c 6f 62 61 6c 20 74 6f 74 61 6c 5f 74 69   global total_ti
1870: 6d 65 0a 20 20 73 65 74 20 74 6f 74 61 6c 5f 74  me.  set total_t
1880: 69 6d 65 20 5b 65 78 70 72 20 7b 24 74 6f 74 61  ime [expr {$tota
1890: 6c 5f 74 69 6d 65 2b 24 74 6d 7d 5d 0a 7d 0a 70  l_time+$tm}].}.p
18a0: 72 6f 63 20 73 70 65 65 64 5f 74 72 69 61 6c 5f  roc speed_trial_
18b0: 74 63 6c 20 7b 6e 61 6d 65 20 6e 75 6d 73 74 6d  tcl {name numstm
18c0: 74 20 75 6e 69 74 73 20 73 63 72 69 70 74 7d 20  t units script} 
18d0: 7b 0a 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c  {.  puts -nonewl
18e0: 69 6e 65 20 5b 66 6f 72 6d 61 74 20 7b 25 2d 32  ine [format {%-2
18f0: 31 2e 32 31 73 20 7d 20 24 6e 61 6d 65 2e 2e 2e  1.21s } $name...
1900: 5d 0a 20 20 66 6c 75 73 68 20 73 74 64 6f 75 74  ].  flush stdout
1910: 0a 20 20 73 65 74 20 73 70 65 65 64 20 5b 74 69  .  set speed [ti
1920: 6d 65 20 7b 65 76 61 6c 20 24 73 63 72 69 70 74  me {eval $script
1930: 7d 5d 0a 20 20 73 65 74 20 74 6d 20 5b 6c 69 6e  }].  set tm [lin
1940: 64 65 78 20 24 73 70 65 65 64 20 30 5d 0a 20 20  dex $speed 0].  
1950: 69 66 20 7b 24 74 6d 20 3d 3d 20 30 7d 20 7b 0a  if {$tm == 0} {.
1960: 20 20 20 20 73 65 74 20 72 61 74 65 20 5b 66 6f      set rate [fo
1970: 72 6d 61 74 20 25 32 30 73 20 22 6d 61 6e 79 22  rmat %20s "many"
1980: 5d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20  ].  } else {.   
1990: 20 73 65 74 20 72 61 74 65 20 5b 66 6f 72 6d 61   set rate [forma
19a0: 74 20 25 32 30 2e 35 66 20 5b 65 78 70 72 20 7b  t %20.5f [expr {
19b0: 31 30 30 30 30 30 30 2e 30 2a 24 6e 75 6d 73 74  1000000.0*$numst
19c0: 6d 74 2f 24 74 6d 7d 5d 5d 0a 20 20 7d 0a 20 20  mt/$tm}]].  }.  
19d0: 73 65 74 20 75 32 20 24 75 6e 69 74 73 2f 73 0a  set u2 $units/s.
19e0: 20 20 70 75 74 73 20 5b 66 6f 72 6d 61 74 20 7b    puts [format {
19f0: 25 31 32 64 20 75 53 20 25 73 20 25 73 7d 20 24  %12d uS %s %s} $
1a00: 74 6d 20 24 72 61 74 65 20 24 75 32 5d 0a 20 20  tm $rate $u2].  
1a10: 67 6c 6f 62 61 6c 20 74 6f 74 61 6c 5f 74 69 6d  global total_tim
1a20: 65 0a 20 20 73 65 74 20 74 6f 74 61 6c 5f 74 69  e.  set total_ti
1a30: 6d 65 20 5b 65 78 70 72 20 7b 24 74 6f 74 61 6c  me [expr {$total
1a40: 5f 74 69 6d 65 2b 24 74 6d 7d 5d 0a 7d 0a 70 72  _time+$tm}].}.pr
1a50: 6f 63 20 73 70 65 65 64 5f 74 72 69 61 6c 5f 69  oc speed_trial_i
1a60: 6e 69 74 20 7b 6e 61 6d 65 7d 20 7b 0a 20 20 67  nit {name} {.  g
1a70: 6c 6f 62 61 6c 20 74 6f 74 61 6c 5f 74 69 6d 65  lobal total_time
1a80: 0a 20 20 73 65 74 20 74 6f 74 61 6c 5f 74 69 6d  .  set total_tim
1a90: 65 20 30 0a 7d 0a 70 72 6f 63 20 73 70 65 65 64  e 0.}.proc speed
1aa0: 5f 74 72 69 61 6c 5f 73 75 6d 6d 61 72 79 20 7b  _trial_summary {
1ab0: 6e 61 6d 65 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c  name} {.  global
1ac0: 20 74 6f 74 61 6c 5f 74 69 6d 65 0a 20 20 70 75   total_time.  pu
1ad0: 74 73 20 5b 66 6f 72 6d 61 74 20 7b 25 2d 32 31  ts [format {%-21
1ae0: 2e 32 31 73 20 25 31 32 64 20 75 53 20 54 4f 54  .21s %12d uS TOT
1af0: 41 4c 7d 20 24 6e 61 6d 65 20 24 74 6f 74 61 6c  AL} $name $total
1b00: 5f 74 69 6d 65 5d 0a 7d 0a 0a 23 20 52 75 6e 20  _time].}..# Run 
1b10: 74 68 69 73 20 72 6f 75 74 69 6e 65 20 6c 61 73  this routine las
1b20: 74 0a 23 0a 70 72 6f 63 20 66 69 6e 69 73 68 5f  t.#.proc finish_
1b30: 74 65 73 74 20 7b 7d 20 7b 0a 20 20 66 69 6e 61  test {} {.  fina
1b40: 6c 69 7a 65 5f 74 65 73 74 69 6e 67 0a 7d 0a 70  lize_testing.}.p
1b50: 72 6f 63 20 66 69 6e 61 6c 69 7a 65 5f 74 65 73  roc finalize_tes
1b60: 74 69 6e 67 20 7b 7d 20 7b 0a 20 20 67 6c 6f 62  ting {} {.  glob
1b70: 61 6c 20 6e 54 65 73 74 20 6e 45 72 72 20 73 71  al nTest nErr sq
1b80: 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63  lite_open_file_c
1b90: 6f 75 6e 74 20 6f 6d 69 74 4c 69 73 74 0a 0a 20  ount omitList.. 
1ba0: 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65   catch {db close
1bb0: 7d 0a 20 20 63 61 74 63 68 20 7b 64 62 32 20 63  }.  catch {db2 c
1bc0: 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68 20 7b 64  lose}.  catch {d
1bd0: 62 33 20 63 6c 6f 73 65 7d 0a 0a 20 20 76 66 73  b3 close}..  vfs
1be0: 5f 75 6e 6c 69 6e 6b 5f 74 65 73 74 0a 20 20 73  _unlink_test.  s
1bf0: 71 6c 69 74 65 33 20 64 62 20 7b 7d 0a 20 20 23  qlite3 db {}.  #
1c00: 20 73 71 6c 69 74 65 33 5f 63 6c 65 61 72 5f 74   sqlite3_clear_t
1c10: 73 64 5f 6d 65 6d 64 65 62 75 67 0a 20 20 64 62  sd_memdebug.  db
1c20: 20 63 6c 6f 73 65 0a 20 20 73 71 6c 69 74 65 33   close.  sqlite3
1c30: 5f 72 65 73 65 74 5f 61 75 74 6f 5f 65 78 74 65  _reset_auto_exte
1c40: 6e 73 69 6f 6e 0a 20 20 73 65 74 20 68 65 61 70  nsion.  set heap
1c50: 6c 69 6d 69 74 20 5b 73 71 6c 69 74 65 33 5f 73  limit [sqlite3_s
1c60: 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69 74 5d 0a  oft_heap_limit].
1c70: 20 20 69 66 20 7b 24 68 65 61 70 6c 69 6d 69 74    if {$heaplimit
1c80: 21 3d 24 3a 3a 73 6f 66 74 5f 6c 69 6d 69 74 7d  !=$::soft_limit}
1c90: 20 7b 0a 20 20 20 20 70 75 74 73 20 22 73 6f 66   {.    puts "sof
1ca0: 74 2d 68 65 61 70 2d 6c 69 6d 69 74 20 63 68 61  t-heap-limit cha
1cb0: 6e 67 65 64 20 62 79 20 74 68 69 73 20 73 63 72  nged by this scr
1cc0: 69 70 74 5c 0a 20 20 20 20 20 20 20 20 20 20 66  ipt\.          f
1cd0: 72 6f 6d 20 24 3a 3a 73 6f 66 74 5f 6c 69 6d 69  rom $::soft_limi
1ce0: 74 20 74 6f 20 24 68 65 61 70 6c 69 6d 69 74 22  t to $heaplimit"
1cf0: 0a 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 68 65  .  } elseif {$he
1d00: 61 70 6c 69 6d 69 74 21 3d 22 22 20 26 26 20 24  aplimit!="" && $
1d10: 68 65 61 70 6c 69 6d 69 74 3e 30 7d 20 7b 0a 20  heaplimit>0} {. 
1d20: 20 20 20 70 75 74 73 20 22 73 6f 66 74 2d 68 65     puts "soft-he
1d30: 61 70 2d 6c 69 6d 69 74 20 73 65 74 20 74 6f 20  ap-limit set to 
1d40: 24 68 65 61 70 6c 69 6d 69 74 22 0a 20 20 7d 0a  $heaplimit".  }.
1d50: 20 20 73 71 6c 69 74 65 33 5f 73 6f 66 74 5f 68    sqlite3_soft_h
1d60: 65 61 70 5f 6c 69 6d 69 74 20 30 0a 20 20 69 6e  eap_limit 0.  in
1d70: 63 72 20 6e 54 65 73 74 0a 20 20 70 75 74 73 20  cr nTest.  puts 
1d80: 22 24 6e 45 72 72 20 65 72 72 6f 72 73 20 6f 75  "$nErr errors ou
1d90: 74 20 6f 66 20 24 6e 54 65 73 74 20 74 65 73 74  t of $nTest test
1da0: 73 22 0a 20 20 69 66 20 7b 24 6e 45 72 72 3e 30  s".  if {$nErr>0
1db0: 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22 46 61  } {.    puts "Fa
1dc0: 69 6c 75 72 65 73 20 6f 6e 20 74 68 65 73 65 20  ilures on these 
1dd0: 74 65 73 74 73 3a 20 24 3a 3a 66 61 69 6c 4c 69  tests: $::failLi
1de0: 73 74 22 0a 20 20 7d 0a 20 20 72 75 6e 5f 74 68  st".  }.  run_th
1df0: 72 65 61 64 5f 74 65 73 74 73 20 31 0a 20 20 69  read_tests 1.  i
1e00: 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 6f 6d 69  f {[llength $omi
1e10: 74 4c 69 73 74 5d 3e 30 7d 20 7b 0a 20 20 20 20  tList]>0} {.    
1e20: 70 75 74 73 20 22 4f 6d 69 74 74 65 64 20 74 65  puts "Omitted te
1e30: 73 74 20 63 61 73 65 73 3a 22 0a 20 20 20 20 73  st cases:".    s
1e40: 65 74 20 70 72 65 63 20 7b 7d 0a 20 20 20 20 66  et prec {}.    f
1e50: 6f 72 65 61 63 68 20 7b 72 65 63 7d 20 5b 6c 73  oreach {rec} [ls
1e60: 6f 72 74 20 24 6f 6d 69 74 4c 69 73 74 5d 20 7b  ort $omitList] {
1e70: 0a 20 20 20 20 20 20 69 66 20 7b 24 72 65 63 3d  .      if {$rec=
1e80: 3d 24 70 72 65 63 7d 20 63 6f 6e 74 69 6e 75 65  =$prec} continue
1e90: 0a 20 20 20 20 20 20 73 65 74 20 70 72 65 63 20  .      set prec 
1ea0: 24 72 65 63 0a 20 20 20 20 20 20 70 75 74 73 20  $rec.      puts 
1eb0: 5b 66 6f 72 6d 61 74 20 7b 20 20 25 2d 31 32 73  [format {  %-12s
1ec0: 20 25 73 7d 20 5b 6c 69 6e 64 65 78 20 24 72 65   %s} [lindex $re
1ed0: 63 20 30 5d 20 5b 6c 69 6e 64 65 78 20 24 72 65  c 0] [lindex $re
1ee0: 63 20 31 5d 5d 0a 20 20 20 20 7d 0a 20 20 7d 0a  c 1]].    }.  }.
1ef0: 20 20 69 66 20 7b 24 6e 45 72 72 3e 30 20 26 26    if {$nErr>0 &&
1f00: 20 21 5b 77 6f 72 6b 69 6e 67 5f 36 34 62 69 74   ![working_64bit
1f10: 5f 69 6e 74 5d 7d 20 7b 0a 20 20 20 20 70 75 74  _int]} {.    put
1f20: 73 20 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  s "*************
1f30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
1f40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
1f50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
1f60: 2a 2a 2a 2a 2a 22 0a 20 20 20 20 70 75 74 73 20  *****".    puts 
1f70: 22 4e 2e 42 2e 3a 20 20 54 68 65 20 76 65 72 73  "N.B.:  The vers
1f80: 69 6f 6e 20 6f 66 20 54 43 4c 20 74 68 61 74 20  ion of TCL that 
1f90: 79 6f 75 20 75 73 65 64 20 74 6f 20 62 75 69 6c  you used to buil
1fa0: 64 20 74 68 69 73 20 74 65 73 74 20 68 61 72 6e  d this test harn
1fb0: 65 73 73 22 0a 20 20 20 20 70 75 74 73 20 22 69  ess".    puts "i
1fc0: 73 20 64 65 66 65 63 74 69 76 65 20 69 6e 20 74  s defective in t
1fd0: 68 61 74 20 69 74 20 64 6f 65 73 20 6e 6f 74 20  hat it does not 
1fe0: 73 75 70 70 6f 72 74 20 36 34 2d 62 69 74 20 69  support 64-bit i
1ff0: 6e 74 65 67 65 72 73 2e 20 20 53 6f 6d 65 20 6f  ntegers.  Some o
2000: 72 22 0a 20 20 20 20 70 75 74 73 20 22 61 6c 6c  r".    puts "all
2010: 20 6f 66 20 74 68 65 20 74 65 73 74 20 66 61 69   of the test fai
2020: 6c 75 72 65 73 20 61 62 6f 76 65 20 6d 69 67 68  lures above migh
2030: 74 20 62 65 20 61 20 72 65 73 75 6c 74 20 66 72  t be a result fr
2040: 6f 6d 20 74 68 69 73 20 64 65 66 65 63 74 22 0a  om this defect".
2050: 20 20 20 20 70 75 74 73 20 22 69 6e 20 79 6f 75      puts "in you
2060: 72 20 54 43 4c 20 62 75 69 6c 64 2e 22 0a 20 20  r TCL build.".  
2070: 20 20 70 75 74 73 20 22 2a 2a 2a 2a 2a 2a 2a 2a    puts "********
2080: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
2090: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
20a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
20b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 0a 20 20 7d 0a  **********".  }.
20c0: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73    if {[info exis
20d0: 74 73 20 3a 3a 74 65 73 74 65 72 5f 64 6f 5f 62  ts ::tester_do_b
20e0: 69 6e 61 72 79 6c 6f 67 5d 7d 20 7b 0a 20 20 20  inarylog]} {.   
20f0: 20 73 71 6c 69 74 65 33 5f 69 6e 73 74 76 66 73   sqlite3_instvfs
2100: 20 64 65 73 74 72 6f 79 20 62 69 6e 61 72 79 6c   destroy binaryl
2110: 6f 67 0a 20 20 7d 0a 20 20 69 66 20 7b 24 73 71  og.  }.  if {$sq
2120: 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63  lite_open_file_c
2130: 6f 75 6e 74 7d 20 7b 0a 20 20 20 20 70 75 74 73  ount} {.    puts
2140: 20 22 24 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66   "$sqlite_open_f
2150: 69 6c 65 5f 63 6f 75 6e 74 20 66 69 6c 65 73 20  ile_count files 
2160: 77 65 72 65 20 6c 65 66 74 20 6f 70 65 6e 22 0a  were left open".
2170: 20 20 20 20 69 6e 63 72 20 6e 45 72 72 0a 20 20      incr nErr.  
2180: 7d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78  }.  if {[info ex
2190: 69 73 74 73 20 3a 3a 74 65 73 74 65 72 5f 64 6f  ists ::tester_do
21a0: 5f 6f 73 74 72 61 63 65 5d 7d 20 7b 0a 20 20 20  _ostrace]} {.   
21b0: 20 70 75 74 73 20 22 57 72 69 74 69 6e 67 20 6f   puts "Writing o
21c0: 73 74 72 61 63 65 2e 73 71 6c 2e 2e 2e 22 0a 20  strace.sql...". 
21d0: 20 20 20 73 65 74 20 66 64 20 24 3a 3a 6f 73 74     set fd $::ost
21e0: 72 61 63 65 5f 66 64 0a 0a 20 20 20 20 70 75 74  race_fd..    put
21f0: 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 24 66 64  s -nonewline $fd
2200: 20 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 6f   "CREATE TABLE o
2210: 73 73 75 6d 6d 61 72 79 22 0a 20 20 20 20 70 75  ssummary".    pu
2220: 74 73 20 24 66 64 20 22 28 6d 65 74 68 6f 64 20  ts $fd "(method 
2230: 54 45 58 54 2c 20 63 6c 69 63 6b 73 20 49 4e 54  TEXT, clicks INT
2240: 45 47 45 52 2c 20 63 6f 75 6e 74 20 49 4e 54 45  EGER, count INTE
2250: 47 45 52 29 3b 22 0a 20 20 20 20 66 6f 72 65 61  GER);".    forea
2260: 63 68 20 72 6f 77 20 5b 73 71 6c 69 74 65 33 5f  ch row [sqlite3_
2270: 69 6e 73 74 76 66 73 20 72 65 70 6f 72 74 20 6f  instvfs report o
2280: 73 74 72 61 63 65 5d 20 7b 0a 20 20 20 20 20 20  strace] {.      
2290: 66 6f 72 65 61 63 68 20 7b 6d 65 74 68 6f 64 20  foreach {method 
22a0: 63 6f 75 6e 74 20 63 6c 69 63 6b 73 7d 20 24 72  count clicks} $r
22b0: 6f 77 20 62 72 65 61 6b 0a 20 20 20 20 20 20 70  ow break.      p
22c0: 75 74 73 20 24 66 64 20 22 49 4e 53 45 52 54 20  uts $fd "INSERT 
22d0: 49 4e 54 4f 20 6f 73 73 75 6d 6d 61 72 79 20 56  INTO ossummary V
22e0: 41 4c 55 45 53 28 27 24 6d 65 74 68 6f 64 27 2c  ALUES('$method',
22f0: 20 24 63 6c 69 63 6b 73 2c 20 24 63 6f 75 6e 74   $clicks, $count
2300: 29 3b 22 0a 20 20 20 20 7d 0a 20 20 20 20 70 75  );".    }.    pu
2310: 74 73 20 24 66 64 20 22 43 4f 4d 4d 49 54 3b 22  ts $fd "COMMIT;"
2320: 0a 20 20 20 20 63 6c 6f 73 65 20 24 66 64 0a 20  .    close $fd. 
2330: 20 20 20 73 71 6c 69 74 65 33 5f 69 6e 73 74 76     sqlite3_instv
2340: 66 73 20 64 65 73 74 72 6f 79 20 6f 73 74 72 61  fs destroy ostra
2350: 63 65 0a 20 20 7d 0a 20 20 69 66 20 7b 5b 73 71  ce.  }.  if {[sq
2360: 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73 65  lite3_memory_use
2370: 64 5d 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73  d]>0} {.    puts
2380: 20 22 55 6e 66 72 65 65 64 20 6d 65 6d 6f 72 79   "Unfreed memory
2390: 3a 20 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72  : [sqlite3_memor
23a0: 79 5f 75 73 65 64 5d 20 62 79 74 65 73 22 0a 20  y_used] bytes". 
23b0: 20 20 20 69 6e 63 72 20 6e 45 72 72 0a 20 20 20     incr nErr.   
23c0: 20 69 66 63 61 70 61 62 6c 65 20 6d 65 6d 64 65   ifcapable memde
23d0: 62 75 67 7c 7c 6d 65 6d 35 7c 7c 28 6d 65 6d 33  bug||mem5||(mem3
23e0: 26 26 64 65 62 75 67 29 20 7b 0a 20 20 20 20 20  &&debug) {.     
23f0: 20 70 75 74 73 20 22 57 72 69 74 69 6e 67 20 75   puts "Writing u
2400: 6e 66 72 65 65 64 20 6d 65 6d 6f 72 79 20 6c 6f  nfreed memory lo
2410: 67 20 74 6f 20 5c 22 2e 2f 6d 65 6d 6c 65 61 6b  g to \"./memleak
2420: 2e 74 78 74 5c 22 22 0a 20 20 20 20 20 20 73 71  .txt\"".      sq
2430: 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 64  lite3_memdebug_d
2440: 75 6d 70 20 2e 2f 6d 65 6d 6c 65 61 6b 2e 74 78  ump ./memleak.tx
2450: 74 0a 20 20 20 20 7d 0a 20 20 7d 20 65 6c 73 65  t.    }.  } else
2460: 20 7b 0a 20 20 20 20 70 75 74 73 20 22 41 6c 6c   {.    puts "All
2470: 20 6d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69   memory allocati
2480: 6f 6e 73 20 66 72 65 65 64 20 2d 20 6e 6f 20 6c  ons freed - no l
2490: 65 61 6b 73 22 0a 20 20 20 20 69 66 63 61 70 61  eaks".    ifcapa
24a0: 62 6c 65 20 6d 65 6d 64 65 62 75 67 7c 7c 6d 65  ble memdebug||me
24b0: 6d 35 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 74  m5 {.      sqlit
24c0: 65 33 5f 6d 65 6d 64 65 62 75 67 5f 64 75 6d 70  e3_memdebug_dump
24d0: 20 2e 2f 6d 65 6d 75 73 61 67 65 2e 74 78 74 0a   ./memusage.txt.
24e0: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 68 6f 77      }.  }.  show
24f0: 5f 6d 65 6d 73 74 61 74 73 0a 20 20 70 75 74 73  _memstats.  puts
2500: 20 22 4d 61 78 69 6d 75 6d 20 6d 65 6d 6f 72 79   "Maximum memory
2510: 20 75 73 61 67 65 3a 20 5b 73 71 6c 69 74 65 33   usage: [sqlite3
2520: 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 61 74 65  _memory_highwate
2530: 72 20 31 5d 20 62 79 74 65 73 22 0a 20 20 70 75  r 1] bytes".  pu
2540: 74 73 20 22 43 75 72 72 65 6e 74 20 6d 65 6d 6f  ts "Current memo
2550: 72 79 20 75 73 61 67 65 3a 20 5b 73 71 6c 69 74  ry usage: [sqlit
2560: 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 61  e3_memory_highwa
2570: 74 65 72 5d 20 62 79 74 65 73 22 0a 20 20 69 66  ter] bytes".  if
2580: 20 7b 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73   {[info commands
2590: 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75   sqlite3_memdebu
25a0: 67 5f 6d 61 6c 6c 6f 63 5f 63 6f 75 6e 74 5d 20  g_malloc_count] 
25b0: 6e 65 20 22 22 7d 20 7b 0a 20 20 20 20 70 75 74  ne ""} {.    put
25c0: 73 20 22 4e 75 6d 62 65 72 20 6f 66 20 6d 61 6c  s "Number of mal
25d0: 6c 6f 63 28 29 20 20 3a 20 5b 73 71 6c 69 74 65  loc()  : [sqlite
25e0: 33 5f 6d 65 6d 64 65 62 75 67 5f 6d 61 6c 6c 6f  3_memdebug_mallo
25f0: 63 5f 63 6f 75 6e 74 5d 20 63 61 6c 6c 73 22 0a  c_count] calls".
2600: 20 20 7d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20    }.  if {[info 
2610: 65 78 69 73 74 73 20 3a 3a 74 65 73 74 65 72 5f  exists ::tester_
2620: 64 6f 5f 6d 61 6c 6c 6f 63 74 72 61 63 65 5d 7d  do_malloctrace]}
2630: 20 7b 0a 20 20 20 20 70 75 74 73 20 22 57 72 69   {.    puts "Wri
2640: 74 69 6e 67 20 6d 61 6c 6c 6f 63 73 2e 73 71 6c  ting mallocs.sql
2650: 2e 2e 2e 22 0a 20 20 20 20 6d 65 6d 64 65 62 75  ...".    memdebu
2660: 67 5f 6c 6f 67 5f 73 71 6c 0a 20 20 20 20 73 71  g_log_sql.    sq
2670: 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 6c  lite3_memdebug_l
2680: 6f 67 20 73 74 6f 70 0a 20 20 20 20 73 71 6c 69  og stop.    sqli
2690: 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f 67  te3_memdebug_log
26a0: 20 63 6c 65 61 72 0a 0a 20 20 20 20 69 66 20 7b   clear..    if {
26b0: 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f  [sqlite3_memory_
26c0: 75 73 65 64 5d 3e 30 7d 20 7b 0a 20 20 20 20 20  used]>0} {.     
26d0: 20 70 75 74 73 20 22 57 72 69 74 69 6e 67 20 6c   puts "Writing l
26e0: 65 61 6b 73 2e 73 71 6c 2e 2e 2e 22 0a 20 20 20  eaks.sql...".   
26f0: 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65     sqlite3_memde
2700: 62 75 67 5f 6c 6f 67 20 73 79 6e 63 0a 20 20 20  bug_log sync.   
2710: 20 20 20 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 5f     memdebug_log_
2720: 73 71 6c 20 6c 65 61 6b 73 2e 73 71 6c 0a 20 20  sql leaks.sql.  
2730: 20 20 7d 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63    }.  }.  foreac
2740: 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d  h f [glob -nocom
2750: 70 6c 61 69 6e 20 74 65 73 74 2e 64 62 2d 2a 2d  plain test.db-*-
2760: 6a 6f 75 72 6e 61 6c 5d 20 7b 0a 20 20 20 20 66  journal] {.    f
2770: 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63  ile delete -forc
2780: 65 20 24 66 0a 20 20 7d 0a 20 20 66 6f 72 65 61  e $f.  }.  forea
2790: 63 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f  ch f [glob -noco
27a0: 6d 70 6c 61 69 6e 20 74 65 73 74 2e 64 62 2d 6d  mplain test.db-m
27b0: 6a 2a 5d 20 7b 0a 20 20 20 20 66 69 6c 65 20 64  j*] {.    file d
27c0: 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 24 66 0a  elete -force $f.
27d0: 20 20 7d 0a 20 20 65 78 69 74 20 5b 65 78 70 72    }.  exit [expr
27e0: 20 7b 24 6e 45 72 72 3e 30 7d 5d 0a 7d 0a 0a 23   {$nErr>0}].}..#
27f0: 20 44 69 73 70 6c 61 79 20 6d 65 6d 6f 72 79 20   Display memory 
2800: 73 74 61 74 69 73 74 69 63 73 20 66 6f 72 20 61  statistics for a
2810: 6e 61 6c 79 73 69 73 20 61 6e 64 20 64 65 62 75  nalysis and debu
2820: 67 67 69 6e 67 20 70 75 72 70 6f 73 65 73 2e 0a  gging purposes..
2830: 23 0a 70 72 6f 63 20 73 68 6f 77 5f 6d 65 6d 73  #.proc show_mems
2840: 74 61 74 73 20 7b 7d 20 7b 0a 20 20 73 65 74 20  tats {} {.  set 
2850: 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75  x [sqlite3_statu
2860: 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f  s SQLITE_STATUS_
2870: 4d 45 4d 4f 52 59 5f 55 53 45 44 20 30 5d 0a 20  MEMORY_USED 0]. 
2880: 20 73 65 74 20 79 20 5b 73 71 6c 69 74 65 33 5f   set y [sqlite3_
2890: 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54  status SQLITE_ST
28a0: 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f 53 49 5a 45  ATUS_MALLOC_SIZE
28b0: 20 30 5d 0a 20 20 73 65 74 20 76 61 6c 20 5b 66   0].  set val [f
28c0: 6f 72 6d 61 74 20 7b 6e 6f 77 20 25 31 30 64 20  ormat {now %10d 
28d0: 20 6d 61 78 20 25 31 30 64 20 20 6d 61 78 2d 73   max %10d  max-s
28e0: 69 7a 65 20 25 31 30 64 7d 20 5c 0a 20 20 20 20  ize %10d} \.    
28f0: 20 20 20 20 20 20 20 20 20 20 5b 6c 69 6e 64 65            [linde
2900: 78 20 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20  x $x 1] [lindex 
2910: 24 78 20 32 5d 20 5b 6c 69 6e 64 65 78 20 24 79  $x 2] [lindex $y
2920: 20 32 5d 5d 0a 20 20 70 75 74 73 20 22 4d 65 6d   2]].  puts "Mem
2930: 6f 72 79 20 75 73 65 64 3a 20 20 20 20 20 20 20  ory used:       
2940: 20 20 20 24 76 61 6c 22 0a 20 20 73 65 74 20 78     $val".  set x
2950: 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73   [sqlite3_status
2960: 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 50   SQLITE_STATUS_P
2970: 41 47 45 43 41 43 48 45 5f 55 53 45 44 20 30 5d  AGECACHE_USED 0]
2980: 0a 20 20 73 65 74 20 79 20 5b 73 71 6c 69 74 65  .  set y [sqlite
2990: 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f  3_status SQLITE_
29a0: 53 54 41 54 55 53 5f 50 41 47 45 43 41 43 48 45  STATUS_PAGECACHE
29b0: 5f 53 49 5a 45 20 30 5d 0a 20 20 73 65 74 20 76  _SIZE 0].  set v
29c0: 61 6c 20 5b 66 6f 72 6d 61 74 20 7b 6e 6f 77 20  al [format {now 
29d0: 25 31 30 64 20 20 6d 61 78 20 25 31 30 64 20 20  %10d  max %10d  
29e0: 6d 61 78 2d 73 69 7a 65 20 25 31 30 64 7d 20 5c  max-size %10d} \
29f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b  .              [
2a00: 6c 69 6e 64 65 78 20 24 78 20 31 5d 20 5b 6c 69  lindex $x 1] [li
2a10: 6e 64 65 78 20 24 78 20 32 5d 20 5b 6c 69 6e 64  ndex $x 2] [lind
2a20: 65 78 20 24 79 20 32 5d 5d 0a 20 20 70 75 74 73  ex $y 2]].  puts
2a30: 20 22 50 61 67 65 2d 63 61 63 68 65 20 75 73 65   "Page-cache use
2a40: 64 3a 20 20 20 20 20 20 24 76 61 6c 22 0a 20 20  d:      $val".  
2a50: 73 65 74 20 78 20 5b 73 71 6c 69 74 65 33 5f 73  set x [sqlite3_s
2a60: 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41  tatus SQLITE_STA
2a70: 54 55 53 5f 50 41 47 45 43 41 43 48 45 5f 4f 56  TUS_PAGECACHE_OV
2a80: 45 52 46 4c 4f 57 20 30 5d 0a 20 20 73 65 74 20  ERFLOW 0].  set 
2a90: 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b 6e 6f 77  val [format {now
2aa0: 20 25 31 30 64 20 20 6d 61 78 20 25 31 30 64 7d   %10d  max %10d}
2ab0: 20 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d 20 5b   [lindex $x 1] [
2ac0: 6c 69 6e 64 65 78 20 24 78 20 32 5d 5d 0a 20 20  lindex $x 2]].  
2ad0: 70 75 74 73 20 22 50 61 67 65 2d 63 61 63 68 65  puts "Page-cache
2ae0: 20 6f 76 65 72 66 6c 6f 77 3a 20 20 24 76 61 6c   overflow:  $val
2af0: 22 0a 20 20 73 65 74 20 78 20 5b 73 71 6c 69 74  ".  set x [sqlit
2b00: 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45  e3_status SQLITE
2b10: 5f 53 54 41 54 55 53 5f 53 43 52 41 54 43 48 5f  _STATUS_SCRATCH_
2b20: 55 53 45 44 20 30 5d 0a 20 20 73 65 74 20 76 61  USED 0].  set va
2b30: 6c 20 5b 66 6f 72 6d 61 74 20 7b 6e 6f 77 20 25  l [format {now %
2b40: 31 30 64 20 20 6d 61 78 20 25 31 30 64 7d 20 5b  10d  max %10d} [
2b50: 6c 69 6e 64 65 78 20 24 78 20 31 5d 20 5b 6c 69  lindex $x 1] [li
2b60: 6e 64 65 78 20 24 78 20 32 5d 5d 0a 20 20 70 75  ndex $x 2]].  pu
2b70: 74 73 20 22 53 63 72 61 74 63 68 20 6d 65 6d 6f  ts "Scratch memo
2b80: 72 79 20 75 73 65 64 3a 20 20 24 76 61 6c 22 0a  ry used:  $val".
2b90: 20 20 73 65 74 20 78 20 5b 73 71 6c 69 74 65 33    set x [sqlite3
2ba0: 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53  _status SQLITE_S
2bb0: 54 41 54 55 53 5f 53 43 52 41 54 43 48 5f 4f 56  TATUS_SCRATCH_OV
2bc0: 45 52 46 4c 4f 57 20 30 5d 0a 20 20 73 65 74 20  ERFLOW 0].  set 
2bd0: 79 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75  y [sqlite3_statu
2be0: 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f  s SQLITE_STATUS_
2bf0: 53 43 52 41 54 43 48 5f 53 49 5a 45 20 30 5d 0a  SCRATCH_SIZE 0].
2c00: 20 20 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61    set val [forma
2c10: 74 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d 61 78  t {now %10d  max
2c20: 20 25 31 30 64 20 20 6d 61 78 2d 73 69 7a 65 20   %10d  max-size 
2c30: 25 31 30 64 7d 20 5c 0a 20 20 20 20 20 20 20 20  %10d} \.        
2c40: 20 20 20 20 20 20 20 5b 6c 69 6e 64 65 78 20 24         [lindex $
2c50: 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 78 20  x 1] [lindex $x 
2c60: 32 5d 20 5b 6c 69 6e 64 65 78 20 24 79 20 32 5d  2] [lindex $y 2]
2c70: 5d 0a 20 20 70 75 74 73 20 22 53 63 72 61 74 63  ].  puts "Scratc
2c80: 68 20 6f 76 65 72 66 6c 6f 77 3a 20 20 20 20 20  h overflow:     
2c90: 24 76 61 6c 22 0a 20 20 69 66 63 61 70 61 62 6c  $val".  ifcapabl
2ca0: 65 20 79 79 74 72 61 63 6b 6d 61 78 73 74 61 63  e yytrackmaxstac
2cb0: 6b 64 65 70 74 68 20 7b 0a 20 20 20 20 73 65 74  kdepth {.    set
2cc0: 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74   x [sqlite3_stat
2cd0: 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53  us SQLITE_STATUS
2ce0: 5f 50 41 52 53 45 52 5f 53 54 41 43 4b 20 30 5d  _PARSER_STACK 0]
2cf0: 0a 20 20 20 20 73 65 74 20 76 61 6c 20 5b 66 6f  .    set val [fo
2d00: 72 6d 61 74 20 7b 20 20 20 20 20 20 20 20 20 20  rmat {          
2d10: 20 20 20 20 20 6d 61 78 20 25 31 30 64 7d 20 5b       max %10d} [
2d20: 6c 69 6e 64 65 78 20 24 78 20 32 5d 5d 0a 20 20  lindex $x 2]].  
2d30: 20 20 70 75 74 73 20 22 50 61 72 73 65 72 20 73    puts "Parser s
2d40: 74 61 63 6b 20 64 65 70 74 68 3a 20 20 20 20 24  tack depth:    $
2d50: 76 61 6c 22 0a 20 20 7d 0a 7d 0a 0a 23 20 41 20  val".  }.}..# A 
2d60: 70 72 6f 63 65 64 75 72 65 20 74 6f 20 65 78 65  procedure to exe
2d70: 63 75 74 65 20 53 51 4c 0a 23 0a 70 72 6f 63 20  cute SQL.#.proc 
2d80: 65 78 65 63 73 71 6c 20 7b 73 71 6c 20 7b 64 62  execsql {sql {db
2d90: 20 64 62 7d 7d 20 7b 0a 20 20 23 20 70 75 74 73   db}} {.  # puts
2da0: 20 22 53 51 4c 20 3d 20 24 73 71 6c 22 0a 20 20   "SQL = $sql".  
2db0: 75 70 6c 65 76 65 6c 20 5b 6c 69 73 74 20 24 64  uplevel [list $d
2dc0: 62 20 65 76 61 6c 20 24 73 71 6c 5d 0a 7d 0a 0a  b eval $sql].}..
2dd0: 23 20 45 78 65 63 75 74 65 20 53 51 4c 20 61 6e  # Execute SQL an
2de0: 64 20 63 61 74 63 68 20 65 78 63 65 70 74 69 6f  d catch exceptio
2df0: 6e 73 2e 0a 23 0a 70 72 6f 63 20 63 61 74 63 68  ns..#.proc catch
2e00: 73 71 6c 20 7b 73 71 6c 20 7b 64 62 20 64 62 7d  sql {sql {db db}
2e10: 7d 20 7b 0a 20 20 23 20 70 75 74 73 20 22 53 51  } {.  # puts "SQ
2e20: 4c 20 3d 20 24 73 71 6c 22 0a 20 20 73 65 74 20  L = $sql".  set 
2e30: 72 20 5b 63 61 74 63 68 20 7b 24 64 62 20 65 76  r [catch {$db ev
2e40: 61 6c 20 24 73 71 6c 7d 20 6d 73 67 5d 0a 20 20  al $sql} msg].  
2e50: 6c 61 70 70 65 6e 64 20 72 20 24 6d 73 67 0a 20  lappend r $msg. 
2e60: 20 72 65 74 75 72 6e 20 24 72 0a 7d 0a 0a 23 20   return $r.}..# 
2e70: 44 6f 20 61 6e 20 56 44 42 45 20 63 6f 64 65 20  Do an VDBE code 
2e80: 64 75 6d 70 20 6f 6e 20 74 68 65 20 53 51 4c 20  dump on the SQL 
2e90: 67 69 76 65 6e 0a 23 0a 70 72 6f 63 20 65 78 70  given.#.proc exp
2ea0: 6c 61 69 6e 20 7b 73 71 6c 20 7b 64 62 20 64 62  lain {sql {db db
2eb0: 7d 7d 20 7b 0a 20 20 70 75 74 73 20 22 22 0a 20  }} {.  puts "". 
2ec0: 20 70 75 74 73 20 22 61 64 64 72 20 20 6f 70 63   puts "addr  opc
2ed0: 6f 64 65 20 20 20 20 20 20 20 20 70 31 20 20 20  ode        p1   
2ee0: 20 20 20 70 32 20 20 20 20 20 20 70 33 20 20 20     p2      p3   
2ef0: 20 20 20 70 34 20 20 20 20 20 20 20 20 20 20 20     p4           
2f00: 20 20 20 20 70 35 20 20 23 22 0a 20 20 70 75 74      p5  #".  put
2f10: 73 20 22 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d  s "----  -------
2f20: 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d  -----  ------  -
2f30: 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d  -----  ------  -
2f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20  --------------  
2f50: 2d 2d 20 20 2d 22 0a 20 20 24 64 62 20 65 76 61  --  -".  $db eva
2f60: 6c 20 22 65 78 70 6c 61 69 6e 20 24 73 71 6c 22  l "explain $sql"
2f70: 20 7b 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 5b   {} {.    puts [
2f80: 66 6f 72 6d 61 74 20 7b 25 2d 34 64 20 20 25 2d  format {%-4d  %-
2f90: 31 32 2e 31 32 73 20 20 25 2d 36 64 20 20 25 2d  12.12s  %-6d  %-
2fa0: 36 64 20 20 25 2d 36 64 20 20 25 20 2d 31 37 73  6d  %-6d  % -17s
2fb0: 20 25 73 20 20 25 73 7d 20 5c 0a 20 20 20 20 20   %s  %s} \.     
2fc0: 20 24 61 64 64 72 20 24 6f 70 63 6f 64 65 20 24   $addr $opcode $
2fd0: 70 31 20 24 70 32 20 24 70 33 20 24 70 34 20 24  p1 $p2 $p3 $p4 $
2fe0: 70 35 20 24 63 6f 6d 6d 65 6e 74 0a 20 20 20 20  p5 $comment.    
2ff0: 5d 0a 20 20 7d 0a 7d 0a 0a 23 20 53 68 6f 77 20  ].  }.}..# Show 
3000: 74 68 65 20 56 44 42 45 20 70 72 6f 67 72 61 6d  the VDBE program
3010: 20 66 6f 72 20 61 6e 20 53 51 4c 20 73 74 61 74   for an SQL stat
3020: 65 6d 65 6e 74 20 62 75 74 20 6f 6d 69 74 20 74  ement but omit t
3030: 68 65 20 54 72 61 63 65 0a 23 20 6f 70 63 6f 64  he Trace.# opcod
3040: 65 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69  e at the beginni
3050: 6e 67 2e 20 20 54 68 69 73 20 70 72 6f 63 65 64  ng.  This proced
3060: 75 72 65 20 63 61 6e 20 62 65 20 75 73 65 64 20  ure can be used 
3070: 74 6f 20 70 72 6f 76 65 0a 23 20 74 68 61 74 20  to prove.# that 
3080: 64 69 66 66 65 72 65 6e 74 20 53 51 4c 20 73 74  different SQL st
3090: 61 74 65 6d 65 6e 74 73 20 67 65 6e 65 72 61 74  atements generat
30a0: 65 20 65 78 61 63 74 6c 79 20 74 68 65 20 73 61  e exactly the sa
30b0: 6d 65 20 56 44 42 45 20 63 6f 64 65 2e 0a 23 0a  me VDBE code..#.
30c0: 70 72 6f 63 20 65 78 70 6c 61 69 6e 5f 6e 6f 5f  proc explain_no_
30d0: 74 72 61 63 65 20 7b 73 71 6c 7d 20 7b 0a 20 20  trace {sql} {.  
30e0: 73 65 74 20 74 72 20 5b 64 62 20 65 76 61 6c 20  set tr [db eval 
30f0: 22 45 58 50 4c 41 49 4e 20 24 73 71 6c 22 5d 0a  "EXPLAIN $sql"].
3100: 20 20 72 65 74 75 72 6e 20 5b 6c 72 61 6e 67 65    return [lrange
3110: 20 24 74 72 20 37 20 65 6e 64 5d 0a 7d 0a 0a 23   $tr 7 end].}..#
3120: 20 41 6e 6f 74 68 65 72 20 70 72 6f 63 65 64 75   Another procedu
3130: 72 65 20 74 6f 20 65 78 65 63 75 74 65 20 53 51  re to execute SQ
3140: 4c 2e 20 20 54 68 69 73 20 6f 6e 65 20 69 6e 63  L.  This one inc
3150: 6c 75 64 65 73 20 74 68 65 20 66 69 65 6c 64 0a  ludes the field.
3160: 23 20 6e 61 6d 65 73 20 69 6e 20 74 68 65 20 72  # names in the r
3170: 65 74 75 72 6e 65 64 20 6c 69 73 74 2e 0a 23 0a  eturned list..#.
3180: 70 72 6f 63 20 65 78 65 63 73 71 6c 32 20 7b 73  proc execsql2 {s
3190: 71 6c 7d 20 7b 0a 20 20 73 65 74 20 72 65 73 75  ql} {.  set resu
31a0: 6c 74 20 7b 7d 0a 20 20 64 62 20 65 76 61 6c 20  lt {}.  db eval 
31b0: 24 73 71 6c 20 64 61 74 61 20 7b 0a 20 20 20 20  $sql data {.    
31c0: 66 6f 72 65 61 63 68 20 66 20 24 64 61 74 61 28  foreach f $data(
31d0: 2a 29 20 7b 0a 20 20 20 20 20 20 6c 61 70 70 65  *) {.      lappe
31e0: 6e 64 20 72 65 73 75 6c 74 20 24 66 20 24 64 61  nd result $f $da
31f0: 74 61 28 24 66 29 0a 20 20 20 20 7d 0a 20 20 7d  ta($f).    }.  }
3200: 0a 20 20 72 65 74 75 72 6e 20 24 72 65 73 75 6c  .  return $resul
3210: 74 0a 7d 0a 0a 23 20 55 73 65 20 74 68 65 20 6e  t.}..# Use the n
3220: 6f 6e 2d 63 61 6c 6c 62 61 63 6b 20 41 50 49 20  on-callback API 
3230: 74 6f 20 65 78 65 63 75 74 65 20 6d 75 6c 74 69  to execute multi
3240: 70 6c 65 20 53 51 4c 20 73 74 61 74 65 6d 65 6e  ple SQL statemen
3250: 74 73 0a 23 0a 70 72 6f 63 20 73 74 65 70 73 71  ts.#.proc stepsq
3260: 6c 20 7b 64 62 70 74 72 20 73 71 6c 7d 20 7b 0a  l {dbptr sql} {.
3270: 20 20 73 65 74 20 73 71 6c 20 5b 73 74 72 69 6e    set sql [strin
3280: 67 20 74 72 69 6d 20 24 73 71 6c 5d 0a 20 20 73  g trim $sql].  s
3290: 65 74 20 72 20 30 0a 20 20 77 68 69 6c 65 20 7b  et r 0.  while {
32a0: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $
32b0: 73 71 6c 5d 3e 30 7d 20 7b 0a 20 20 20 20 69 66  sql]>0} {.    if
32c0: 20 7b 5b 63 61 74 63 68 20 7b 73 71 6c 69 74 65   {[catch {sqlite
32d0: 33 5f 70 72 65 70 61 72 65 20 24 64 62 70 74 72  3_prepare $dbptr
32e0: 20 24 73 71 6c 20 2d 31 20 73 71 6c 74 61 69 6c   $sql -1 sqltail
32f0: 7d 20 76 6d 5d 7d 20 7b 0a 20 20 20 20 20 20 72  } vm]} {.      r
3300: 65 74 75 72 6e 20 5b 6c 69 73 74 20 31 20 24 76  eturn [list 1 $v
3310: 6d 5d 0a 20 20 20 20 7d 0a 20 20 20 20 73 65 74  m].    }.    set
3320: 20 73 71 6c 20 5b 73 74 72 69 6e 67 20 74 72 69   sql [string tri
3330: 6d 20 24 73 71 6c 74 61 69 6c 5d 0a 23 20 20 20  m $sqltail].#   
3340: 20 77 68 69 6c 65 20 7b 5b 73 71 6c 69 74 65 5f   while {[sqlite_
3350: 73 74 65 70 20 24 76 6d 20 4e 20 56 41 4c 20 43  step $vm N VAL C
3360: 4f 4c 5d 3d 3d 22 53 51 4c 49 54 45 5f 52 4f 57  OL]=="SQLITE_ROW
3370: 22 7d 20 7b 0a 23 20 20 20 20 20 20 66 6f 72 65  "} {.#      fore
3380: 61 63 68 20 76 20 24 56 41 4c 20 7b 6c 61 70 70  ach v $VAL {lapp
3390: 65 6e 64 20 72 20 24 76 7d 0a 23 20 20 20 20 7d  end r $v}.#    }
33a0: 0a 20 20 20 20 77 68 69 6c 65 20 7b 5b 73 71 6c  .    while {[sql
33b0: 69 74 65 33 5f 73 74 65 70 20 24 76 6d 5d 3d 3d  ite3_step $vm]==
33c0: 22 53 51 4c 49 54 45 5f 52 4f 57 22 7d 20 7b 0a  "SQLITE_ROW"} {.
33d0: 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69        for {set i
33e0: 20 30 7d 20 7b 24 69 3c 5b 73 71 6c 69 74 65 33   0} {$i<[sqlite3
33f0: 5f 64 61 74 61 5f 63 6f 75 6e 74 20 24 76 6d 5d  _data_count $vm]
3400: 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20  } {incr i} {.   
3410: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 72 20 5b       lappend r [
3420: 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74  sqlite3_column_t
3430: 65 78 74 20 24 76 6d 20 24 69 5d 0a 20 20 20 20  ext $vm $i].    
3440: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66    }.    }.    if
3450: 20 7b 5b 63 61 74 63 68 20 7b 73 71 6c 69 74 65   {[catch {sqlite
3460: 33 5f 66 69 6e 61 6c 69 7a 65 20 24 76 6d 7d 20  3_finalize $vm} 
3470: 65 72 72 6d 73 67 5d 7d 20 7b 0a 20 20 20 20 20  errmsg]} {.     
3480: 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 20 31 20   return [list 1 
3490: 24 65 72 72 6d 73 67 5d 0a 20 20 20 20 7d 0a 20  $errmsg].    }. 
34a0: 20 7d 0a 20 20 72 65 74 75 72 6e 20 24 72 0a 7d   }.  return $r.}
34b0: 0a 0a 23 20 44 65 6c 65 74 65 20 61 20 66 69 6c  ..# Delete a fil
34c0: 65 20 6f 72 20 64 69 72 65 63 74 6f 72 79 0a 23  e or directory.#
34d0: 0a 70 72 6f 63 20 66 6f 72 63 65 64 65 6c 65 74  .proc forcedelet
34e0: 65 20 7b 66 69 6c 65 6e 61 6d 65 7d 20 7b 0a 20  e {filename} {. 
34f0: 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 66 69 6c   if {[catch {fil
3500: 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20  e delete -force 
3510: 24 66 69 6c 65 6e 61 6d 65 7d 5d 7d 20 7b 0a 20  $filename}]} {. 
3520: 20 20 20 65 78 65 63 20 72 6d 20 2d 72 66 20 24     exec rm -rf $
3530: 66 69 6c 65 6e 61 6d 65 0a 20 20 7d 0a 7d 0a 0a  filename.  }.}..
3540: 23 20 44 6f 20 61 6e 20 69 6e 74 65 67 72 69 74  # Do an integrit
3550: 79 20 63 68 65 63 6b 20 6f 66 20 74 68 65 20 65  y check of the e
3560: 6e 74 69 72 65 20 64 61 74 61 62 61 73 65 0a 23  ntire database.#
3570: 0a 70 72 6f 63 20 69 6e 74 65 67 72 69 74 79 5f  .proc integrity_
3580: 63 68 65 63 6b 20 7b 6e 61 6d 65 20 7b 64 62 20  check {name {db 
3590: 64 62 7d 7d 20 7b 0a 20 20 69 66 63 61 70 61 62  db}} {.  ifcapab
35a0: 6c 65 20 69 6e 74 65 67 72 69 74 79 63 6b 20 7b  le integrityck {
35b0: 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 24 6e 61  .    do_test $na
35c0: 6d 65 20 5b 6c 69 73 74 20 65 78 65 63 73 71 6c  me [list execsql
35d0: 20 7b 50 52 41 47 4d 41 20 69 6e 74 65 67 72 69   {PRAGMA integri
35e0: 74 79 5f 63 68 65 63 6b 7d 20 24 64 62 5d 20 7b  ty_check} $db] {
35f0: 6f 6b 7d 0a 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20  ok}.  }.}..proc 
3600: 66 69 78 5f 69 66 63 61 70 61 62 6c 65 5f 65 78  fix_ifcapable_ex
3610: 70 72 20 7b 65 78 70 72 7d 20 7b 0a 20 20 73 65  pr {expr} {.  se
3620: 74 20 72 65 74 20 22 22 0a 20 20 73 65 74 20 73  t ret "".  set s
3630: 74 61 74 65 20 30 0a 20 20 66 6f 72 20 7b 73 65  tate 0.  for {se
3640: 74 20 69 20 30 7d 20 7b 24 69 20 3c 20 5b 73 74  t i 0} {$i < [st
3650: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 65 78 70  ring length $exp
3660: 72 5d 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20  r]} {incr i} {. 
3670: 20 20 20 73 65 74 20 63 68 61 72 20 5b 73 74 72     set char [str
3680: 69 6e 67 20 72 61 6e 67 65 20 24 65 78 70 72 20  ing range $expr 
3690: 24 69 20 24 69 5d 0a 20 20 20 20 73 65 74 20 6e  $i $i].    set n
36a0: 65 77 73 74 61 74 65 20 5b 65 78 70 72 20 7b 5b  ewstate [expr {[
36b0: 73 74 72 69 6e 67 20 69 73 20 61 6c 6e 75 6d 20  string is alnum 
36c0: 24 63 68 61 72 5d 20 7c 7c 20 24 63 68 61 72 20  $char] || $char 
36d0: 65 71 20 22 5f 22 7d 5d 0a 20 20 20 20 69 66 20  eq "_"}].    if 
36e0: 7b 24 6e 65 77 73 74 61 74 65 20 26 26 20 21 24  {$newstate && !$
36f0: 73 74 61 74 65 7d 20 7b 0a 20 20 20 20 20 20 61  state} {.      a
3700: 70 70 65 6e 64 20 72 65 74 20 7b 24 3a 3a 73 71  ppend ret {$::sq
3710: 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 28 7d 0a 20  lite_options(}. 
3720: 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 21 24 6e     }.    if {!$n
3730: 65 77 73 74 61 74 65 20 26 26 20 24 73 74 61 74  ewstate && $stat
3740: 65 7d 20 7b 0a 20 20 20 20 20 20 61 70 70 65 6e  e} {.      appen
3750: 64 20 72 65 74 20 29 0a 20 20 20 20 7d 0a 20 20  d ret ).    }.  
3760: 20 20 61 70 70 65 6e 64 20 72 65 74 20 24 63 68    append ret $ch
3770: 61 72 0a 20 20 20 20 73 65 74 20 73 74 61 74 65  ar.    set state
3780: 20 24 6e 65 77 73 74 61 74 65 0a 20 20 7d 0a 20   $newstate.  }. 
3790: 20 69 66 20 7b 24 73 74 61 74 65 7d 20 7b 61 70   if {$state} {ap
37a0: 70 65 6e 64 20 72 65 74 20 29 7d 0a 20 20 72 65  pend ret )}.  re
37b0: 74 75 72 6e 20 24 72 65 74 0a 7d 0a 0a 23 20 45  turn $ret.}..# E
37c0: 76 61 6c 75 61 74 65 20 61 20 62 6f 6f 6c 65 61  valuate a boolea
37d0: 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 6f 66 20  n expression of 
37e0: 63 61 70 61 62 69 6c 69 74 69 65 73 2e 20 20 49  capabilities.  I
37f0: 66 20 74 72 75 65 2c 20 65 78 65 63 75 74 65 20  f true, execute 
3800: 74 68 65 0a 23 20 63 6f 64 65 2e 20 20 4f 6d 69  the.# code.  Omi
3810: 74 20 74 68 65 20 63 6f 64 65 20 69 66 20 66 61  t the code if fa
3820: 6c 73 65 2e 0a 23 0a 70 72 6f 63 20 69 66 63 61  lse..#.proc ifca
3830: 70 61 62 6c 65 20 7b 65 78 70 72 20 63 6f 64 65  pable {expr code
3840: 20 7b 65 6c 73 65 20 22 22 7d 20 7b 65 6c 73 65   {else ""} {else
3850: 63 6f 64 65 20 22 22 7d 7d 20 7b 0a 20 20 23 72  code ""}} {.  #r
3860: 65 67 73 75 62 20 2d 61 6c 6c 20 7b 5b 61 2d 7a  egsub -all {[a-z
3870: 5f 30 2d 39 5d 2b 7d 20 24 65 78 70 72 20 7b 24  _0-9]+} $expr {$
3880: 3a 3a 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73  ::sqlite_options
3890: 28 26 29 7d 20 65 32 0a 20 20 73 65 74 20 65 32  (&)} e2.  set e2
38a0: 20 5b 66 69 78 5f 69 66 63 61 70 61 62 6c 65 5f   [fix_ifcapable_
38b0: 65 78 70 72 20 24 65 78 70 72 5d 0a 20 20 69 66  expr $expr].  if
38c0: 20 28 24 65 32 29 20 7b 0a 20 20 20 20 73 65 74   ($e2) {.    set
38d0: 20 63 20 5b 63 61 74 63 68 20 7b 75 70 6c 65 76   c [catch {uplev
38e0: 65 6c 20 31 20 24 63 6f 64 65 7d 20 72 5d 0a 20  el 1 $code} r]. 
38f0: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65   } else {.    se
3900: 74 20 63 20 5b 63 61 74 63 68 20 7b 75 70 6c 65  t c [catch {uple
3910: 76 65 6c 20 31 20 24 65 6c 73 65 63 6f 64 65 7d  vel 1 $elsecode}
3920: 20 72 5d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e   r].  }.  return
3930: 20 2d 63 6f 64 65 20 24 63 20 24 72 0a 7d 0a 0a   -code $c $r.}..
3940: 23 20 54 68 69 73 20 70 72 6f 63 20 65 78 65 63  # This proc exec
3950: 73 20 61 20 73 65 70 65 72 61 74 65 20 70 72 6f  s a seperate pro
3960: 63 65 73 73 20 74 68 61 74 20 63 72 61 73 68 65  cess that crashe
3970: 73 20 6d 69 64 77 61 79 20 74 68 72 6f 75 67 68  s midway through
3980: 20 65 78 65 63 75 74 69 6e 67 0a 23 20 74 68 65   executing.# the
3990: 20 53 51 4c 20 73 63 72 69 70 74 20 24 73 71 6c   SQL script $sql
39a0: 20 6f 6e 20 64 61 74 61 62 61 73 65 20 74 65 73   on database tes
39b0: 74 2e 64 62 2e 0a 23 0a 23 20 54 68 65 20 63 72  t.db..#.# The cr
39c0: 61 73 68 20 6f 63 63 75 72 73 20 64 75 72 69 6e  ash occurs durin
39d0: 67 20 61 20 73 79 6e 63 28 29 20 6f 66 20 66 69  g a sync() of fi
39e0: 6c 65 20 24 63 72 61 73 68 66 69 6c 65 2e 20 57  le $crashfile. W
39f0: 68 65 6e 20 74 68 65 20 63 72 61 73 68 0a 23 20  hen the crash.# 
3a00: 6f 63 63 75 72 73 20 61 20 72 61 6e 64 6f 6d 20  occurs a random 
3a10: 73 75 62 73 65 74 20 6f 66 20 61 6c 6c 20 75 6e  subset of all un
3a20: 73 79 6e 63 65 64 20 77 72 69 74 65 73 20 6d 61  synced writes ma
3a30: 64 65 20 62 79 20 74 68 65 20 70 72 6f 63 65 73  de by the proces
3a40: 73 20 61 72 65 0a 23 20 77 72 69 74 74 65 6e 20  s are.# written 
3a50: 69 6e 74 6f 20 74 68 65 20 66 69 6c 65 73 20 6f  into the files o
3a60: 6e 20 64 69 73 6b 2e 20 41 72 67 75 6d 65 6e 74  n disk. Argument
3a70: 20 24 63 72 61 73 68 64 65 6c 61 79 20 69 6e 64   $crashdelay ind
3a80: 69 63 61 74 65 73 20 74 68 65 0a 23 20 6e 75 6d  icates the.# num
3a90: 62 65 72 20 6f 66 20 66 69 6c 65 20 73 79 6e 63  ber of file sync
3aa0: 73 20 74 6f 20 77 61 69 74 20 62 65 66 6f 72 65  s to wait before
3ab0: 20 63 72 61 73 68 69 6e 67 2e 0a 23 0a 23 20 54   crashing..#.# T
3ac0: 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20  he return value 
3ad0: 69 73 20 61 20 6c 69 73 74 20 6f 66 20 74 77 6f  is a list of two
3ae0: 20 65 6c 65 6d 65 6e 74 73 2e 20 54 68 65 20 66   elements. The f
3af0: 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 69 73 20  irst element is 
3b00: 61 0a 23 20 62 6f 6f 6c 65 61 6e 2c 20 69 6e 64  a.# boolean, ind
3b10: 69 63 61 74 69 6e 67 20 77 68 65 74 68 65 72 20  icating whether 
3b20: 6f 72 20 6e 6f 74 20 74 68 65 20 70 72 6f 63 65  or not the proce
3b30: 73 73 20 61 63 74 75 61 6c 6c 79 20 63 72 61 73  ss actually cras
3b40: 68 65 64 20 6f 72 0a 23 20 72 65 70 6f 72 74 65  hed or.# reporte
3b50: 64 20 73 6f 6d 65 20 6f 74 68 65 72 20 65 72 72  d some other err
3b60: 6f 72 2e 20 54 68 65 20 73 65 63 6f 6e 64 20 65  or. The second e
3b70: 6c 65 6d 65 6e 74 20 69 6e 20 74 68 65 20 72 65  lement in the re
3b80: 74 75 72 6e 65 64 20 6c 69 73 74 20 69 73 20 74  turned list is t
3b90: 68 65 0a 23 20 65 72 72 6f 72 20 6d 65 73 73 61  he.# error messa
3ba0: 67 65 2e 20 54 68 69 73 20 69 73 20 22 63 68 69  ge. This is "chi
3bb0: 6c 64 20 70 72 6f 63 65 73 73 20 65 78 69 74 65  ld process exite
3bc0: 64 20 61 62 6e 6f 72 6d 61 6c 6c 79 22 20 69 66  d abnormally" if
3bd0: 20 74 68 65 20 63 72 61 73 68 0a 23 20 6f 63 63   the crash.# occ
3be0: 75 72 65 64 2e 0a 23 0a 23 20 20 20 63 72 61 73  ured..#.#   cras
3bf0: 68 73 71 6c 20 2d 64 65 6c 61 79 20 43 52 41 53  hsql -delay CRAS
3c00: 48 44 45 4c 41 59 20 2d 66 69 6c 65 20 43 52 41  HDELAY -file CRA
3c10: 53 48 46 49 4c 45 20 3f 2d 62 6c 6f 63 6b 73 69  SHFILE ?-blocksi
3c20: 7a 65 20 42 4c 4f 43 4b 53 49 5a 45 3f 20 24 73  ze BLOCKSIZE? $s
3c30: 71 6c 0a 23 0a 70 72 6f 63 20 63 72 61 73 68 73  ql.#.proc crashs
3c40: 71 6c 20 7b 61 72 67 73 7d 20 7b 0a 20 20 69 66  ql {args} {.  if
3c50: 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72   {$::tcl_platfor
3c60: 6d 28 70 6c 61 74 66 6f 72 6d 29 21 3d 22 75 6e  m(platform)!="un
3c70: 69 78 22 7d 20 7b 0a 20 20 20 20 65 72 72 6f 72  ix"} {.    error
3c80: 20 22 63 72 61 73 68 73 71 6c 20 73 68 6f 75 6c   "crashsql shoul
3c90: 64 20 6f 6e 6c 79 20 62 65 20 75 73 65 64 20 6f  d only be used o
3ca0: 6e 20 75 6e 69 78 22 0a 20 20 7d 0a 0a 20 20 73  n unix".  }..  s
3cb0: 65 74 20 62 6c 6f 63 6b 73 69 7a 65 20 22 22 0a  et blocksize "".
3cc0: 20 20 73 65 74 20 63 72 61 73 68 64 65 6c 61 79    set crashdelay
3cd0: 20 31 0a 20 20 73 65 74 20 70 72 6e 67 73 65 65   1.  set prngsee
3ce0: 64 20 30 0a 20 20 73 65 74 20 74 63 6c 62 6f 64  d 0.  set tclbod
3cf0: 79 20 7b 7d 0a 20 20 73 65 74 20 63 72 61 73 68  y {}.  set crash
3d00: 66 69 6c 65 20 22 22 0a 20 20 73 65 74 20 64 63  file "".  set dc
3d10: 20 22 22 0a 20 20 73 65 74 20 73 71 6c 20 5b 6c   "".  set sql [l
3d20: 69 6e 64 65 78 20 24 61 72 67 73 20 65 6e 64 5d  index $args end]
3d30: 0a 20 20 0a 20 20 66 6f 72 20 7b 73 65 74 20 69  .  .  for {set i
3d40: 69 20 30 7d 20 7b 24 69 69 20 3c 20 5b 6c 6c 65  i 0} {$ii < [lle
3d50: 6e 67 74 68 20 24 61 72 67 73 5d 2d 31 7d 20 7b  ngth $args]-1} {
3d60: 69 6e 63 72 20 69 69 20 32 7d 20 7b 0a 20 20 20  incr ii 2} {.   
3d70: 20 73 65 74 20 7a 20 5b 6c 69 6e 64 65 78 20 24   set z [lindex $
3d80: 61 72 67 73 20 24 69 69 5d 0a 20 20 20 20 73 65  args $ii].    se
3d90: 74 20 6e 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67  t n [string leng
3da0: 74 68 20 24 7a 5d 0a 20 20 20 20 73 65 74 20 7a  th $z].    set z
3db0: 32 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20  2 [lindex $args 
3dc0: 5b 65 78 70 72 20 24 69 69 2b 31 5d 5d 0a 0a 20  [expr $ii+1]].. 
3dd0: 20 20 20 69 66 20 20 20 20 20 7b 24 6e 3e 31 20     if     {$n>1 
3de0: 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74  && [string first
3df0: 20 24 7a 20 2d 64 65 6c 61 79 5d 3d 3d 30 7d 20   $z -delay]==0} 
3e00: 20 20 20 20 7b 73 65 74 20 63 72 61 73 68 64 65      {set crashde
3e10: 6c 61 79 20 24 7a 32 7d 20 5c 0a 20 20 20 20 65  lay $z2} \.    e
3e20: 6c 73 65 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b  lseif {$n>1 && [
3e30: 73 74 72 69 6e 67 20 66 69 72 73 74 20 24 7a 20  string first $z 
3e40: 2d 73 65 65 64 5d 3d 3d 30 7d 20 20 20 20 20 20  -seed]==0}      
3e50: 7b 73 65 74 20 70 72 6e 67 73 65 65 64 20 24 7a  {set prngseed $z
3e60: 32 7d 20 5c 0a 20 20 20 20 65 6c 73 65 69 66 20  2} \.    elseif 
3e70: 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e 67  {$n>1 && [string
3e80: 20 66 69 72 73 74 20 24 7a 20 2d 66 69 6c 65 5d   first $z -file]
3e90: 3d 3d 30 7d 20 20 20 20 20 20 7b 73 65 74 20 63  ==0}      {set c
3ea0: 72 61 73 68 66 69 6c 65 20 24 7a 32 7d 20 20 5c  rashfile $z2}  \
3eb0: 0a 20 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e  .    elseif {$n>
3ec0: 31 20 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72  1 && [string fir
3ed0: 73 74 20 24 7a 20 2d 74 63 6c 62 6f 64 79 5d 3d  st $z -tclbody]=
3ee0: 3d 30 7d 20 20 20 7b 73 65 74 20 74 63 6c 62 6f  =0}   {set tclbo
3ef0: 64 79 20 24 7a 32 7d 20 20 5c 0a 20 20 20 20 65  dy $z2}  \.    e
3f00: 6c 73 65 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b  lseif {$n>1 && [
3f10: 73 74 72 69 6e 67 20 66 69 72 73 74 20 24 7a 20  string first $z 
3f20: 2d 62 6c 6f 63 6b 73 69 7a 65 5d 3d 3d 30 7d 20  -blocksize]==0} 
3f30: 7b 73 65 74 20 62 6c 6f 63 6b 73 69 7a 65 20 22  {set blocksize "
3f40: 2d 73 20 24 7a 32 22 20 7d 20 5c 0a 20 20 20 20  -s $z2" } \.    
3f50: 65 6c 73 65 69 66 20 7b 24 6e 3e 31 20 26 26 20  elseif {$n>1 && 
3f60: 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20 24 7a  [string first $z
3f70: 20 2d 63 68 61 72 61 63 74 65 72 69 73 74 69 63   -characteristic
3f80: 73 5d 3d 3d 30 7d 20 7b 73 65 74 20 64 63 20 22  s]==0} {set dc "
3f90: 2d 63 20 7b 24 7a 32 7d 22 20 7d 20 5c 0a 20 20  -c {$z2}" } \.  
3fa0: 20 20 65 6c 73 65 20 20 20 7b 20 65 72 72 6f 72    else   { error
3fb0: 20 22 55 6e 72 65 63 6f 67 6e 69 7a 65 64 20 6f   "Unrecognized o
3fc0: 70 74 69 6f 6e 3a 20 24 7a 22 20 7d 0a 20 20 7d  ption: $z" }.  }
3fd0: 0a 0a 20 20 69 66 20 7b 24 63 72 61 73 68 66 69  ..  if {$crashfi
3fe0: 6c 65 20 65 71 20 22 22 7d 20 7b 0a 20 20 20 20  le eq ""} {.    
3ff0: 65 72 72 6f 72 20 22 43 6f 6d 70 75 6c 73 6f 72  error "Compulsor
4000: 79 20 6f 70 74 69 6f 6e 20 2d 66 69 6c 65 20 6d  y option -file m
4010: 69 73 73 69 6e 67 22 0a 20 20 7d 0a 0a 20 20 73  issing".  }..  s
4020: 65 74 20 63 66 69 6c 65 20 5b 66 69 6c 65 20 6a  et cfile [file j
4030: 6f 69 6e 20 5b 70 77 64 5d 20 24 63 72 61 73 68  oin [pwd] $crash
4040: 66 69 6c 65 5d 0a 0a 20 20 73 65 74 20 66 20 5b  file]..  set f [
4050: 6f 70 65 6e 20 63 72 61 73 68 2e 74 63 6c 20 77  open crash.tcl w
4060: 5d 0a 20 20 70 75 74 73 20 24 66 20 22 73 71 6c  ].  puts $f "sql
4070: 69 74 65 33 5f 63 72 61 73 68 5f 65 6e 61 62 6c  ite3_crash_enabl
4080: 65 20 31 22 0a 20 20 70 75 74 73 20 24 66 20 22  e 1".  puts $f "
4090: 73 71 6c 69 74 65 33 5f 63 72 61 73 68 70 61 72  sqlite3_crashpar
40a0: 61 6d 73 20 24 62 6c 6f 63 6b 73 69 7a 65 20 24  ams $blocksize $
40b0: 64 63 20 24 63 72 61 73 68 64 65 6c 61 79 20 24  dc $crashdelay $
40c0: 63 66 69 6c 65 22 0a 20 20 70 75 74 73 20 24 66  cfile".  puts $f
40d0: 20 22 73 71 6c 69 74 65 33 5f 74 65 73 74 5f 63   "sqlite3_test_c
40e0: 6f 6e 74 72 6f 6c 5f 70 65 6e 64 69 6e 67 5f 62  ontrol_pending_b
40f0: 79 74 65 20 24 3a 3a 73 71 6c 69 74 65 5f 70 65  yte $::sqlite_pe
4100: 6e 64 69 6e 67 5f 62 79 74 65 22 0a 20 20 70 75  nding_byte".  pu
4110: 74 73 20 24 66 20 22 73 71 6c 69 74 65 33 20 64  ts $f "sqlite3 d
4120: 62 20 74 65 73 74 2e 64 62 20 2d 76 66 73 20 63  b test.db -vfs c
4130: 72 61 73 68 22 0a 0a 20 20 23 20 54 68 69 73 20  rash"..  # This 
4140: 62 6c 6f 63 6b 20 73 65 74 73 20 74 68 65 20 63  block sets the c
4150: 61 63 68 65 20 73 69 7a 65 20 6f 66 20 74 68 65  ache size of the
4160: 20 6d 61 69 6e 20 64 61 74 61 62 61 73 65 20 74   main database t
4170: 6f 20 31 30 0a 20 20 23 20 70 61 67 65 73 2e 20  o 10.  # pages. 
4180: 54 68 69 73 20 69 73 20 64 6f 6e 65 20 69 6e 20  This is done in 
4190: 63 61 73 65 20 74 68 65 20 62 75 69 6c 64 20 69  case the build i
41a0: 73 20 63 6f 6e 66 69 67 75 72 65 64 20 74 6f 20  s configured to 
41b0: 6f 6d 69 74 0a 20 20 23 20 22 50 52 41 47 4d 41  omit.  # "PRAGMA
41c0: 20 63 61 63 68 65 5f 73 69 7a 65 22 2e 0a 20 20   cache_size"..  
41d0: 70 75 74 73 20 24 66 20 7b 64 62 20 65 76 61 6c  puts $f {db eval
41e0: 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20   {SELECT * FROM 
41f0: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 3b 7d 7d  sqlite_master;}}
4200: 0a 20 20 70 75 74 73 20 24 66 20 7b 73 65 74 20  .  puts $f {set 
4210: 62 74 20 5b 62 74 72 65 65 5f 66 72 6f 6d 5f 64  bt [btree_from_d
4220: 62 20 64 62 5d 7d 0a 20 20 70 75 74 73 20 24 66  b db]}.  puts $f
4230: 20 7b 62 74 72 65 65 5f 73 65 74 5f 63 61 63 68   {btree_set_cach
4240: 65 5f 73 69 7a 65 20 24 62 74 20 31 30 7d 0a 20  e_size $bt 10}. 
4250: 20 69 66 20 7b 24 70 72 6e 67 73 65 65 64 7d 20   if {$prngseed} 
4260: 7b 0a 20 20 20 20 73 65 74 20 73 65 65 64 20 5b  {.    set seed [
4270: 65 78 70 72 20 7b 24 70 72 6e 67 73 65 65 64 25  expr {$prngseed%
4280: 31 30 30 30 37 2b 31 7d 5d 0a 20 20 20 20 23 20  10007+1}].    # 
4290: 70 75 74 73 20 73 65 65 64 3d 24 73 65 65 64 0a  puts seed=$seed.
42a0: 20 20 20 20 70 75 74 73 20 24 66 20 22 64 62 20      puts $f "db 
42b0: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 72 61 6e  eval {SELECT ran
42c0: 64 6f 6d 62 6c 6f 62 28 24 73 65 65 64 29 7d 22  domblob($seed)}"
42d0: 0a 20 20 7d 0a 0a 20 20 69 66 20 7b 5b 73 74 72  .  }..  if {[str
42e0: 69 6e 67 20 6c 65 6e 67 74 68 20 24 74 63 6c 62  ing length $tclb
42f0: 6f 64 79 5d 3e 30 7d 20 7b 0a 20 20 20 20 70 75  ody]>0} {.    pu
4300: 74 73 20 24 66 20 24 74 63 6c 62 6f 64 79 0a 20  ts $f $tclbody. 
4310: 20 7d 0a 20 20 69 66 20 7b 5b 73 74 72 69 6e 67   }.  if {[string
4320: 20 6c 65 6e 67 74 68 20 24 73 71 6c 5d 3e 30 7d   length $sql]>0}
4330: 20 7b 0a 20 20 20 20 70 75 74 73 20 24 66 20 22   {.    puts $f "
4340: 64 62 20 65 76 61 6c 20 7b 22 0a 20 20 20 20 70  db eval {".    p
4350: 75 74 73 20 24 66 20 20 20 22 24 73 71 6c 22 0a  uts $f   "$sql".
4360: 20 20 20 20 70 75 74 73 20 24 66 20 22 7d 22 0a      puts $f "}".
4370: 20 20 7d 0a 20 20 63 6c 6f 73 65 20 24 66 0a 0a    }.  close $f..
4380: 20 20 73 65 74 20 72 20 5b 63 61 74 63 68 20 7b    set r [catch {
4390: 0a 20 20 20 20 65 78 65 63 20 5b 69 6e 66 6f 20  .    exec [info 
43a0: 6e 61 6d 65 6f 66 65 78 65 63 5d 20 63 72 61 73  nameofexec] cras
43b0: 68 2e 74 63 6c 20 3e 40 73 74 64 6f 75 74 0a 20  h.tcl >@stdout. 
43c0: 20 7d 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e   } msg].  lappen
43d0: 64 20 72 20 24 6d 73 67 0a 7d 0a 0a 23 20 55 73  d r $msg.}..# Us
43e0: 61 67 65 3a 20 64 6f 5f 69 6f 65 72 72 5f 74 65  age: do_ioerr_te
43f0: 73 74 20 3c 74 65 73 74 20 6e 75 6d 62 65 72 3e  st <test number>
4400: 20 3c 6f 70 74 69 6f 6e 73 2e 2e 2e 3e 0a 23 0a   <options...>.#.
4410: 23 20 54 68 69 73 20 70 72 6f 63 20 69 73 20 75  # This proc is u
4420: 73 65 64 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74  sed to implement
4430: 20 74 65 73 74 20 63 61 73 65 73 20 74 68 61 74   test cases that
4440: 20 63 68 65 63 6b 20 74 68 61 74 20 49 4f 20 65   check that IO e
4450: 72 72 6f 72 73 0a 23 20 61 72 65 20 63 6f 72 72  rrors.# are corr
4460: 65 63 74 6c 79 20 68 61 6e 64 6c 65 64 2e 20 54  ectly handled. T
4470: 68 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e  he first argumen
4480: 74 2c 20 3c 74 65 73 74 20 6e 75 6d 62 65 72 3e  t, <test number>
4490: 2c 20 69 73 20 61 6e 20 69 6e 74 65 67 65 72 20  , is an integer 
44a0: 0a 23 20 75 73 65 64 20 74 6f 20 6e 61 6d 65 20  .# used to name 
44b0: 74 68 65 20 74 65 73 74 73 20 65 78 65 63 75 74  the tests execut
44c0: 65 64 20 62 79 20 74 68 69 73 20 70 72 6f 63 2e  ed by this proc.
44d0: 20 4f 70 74 69 6f 6e 73 20 61 72 65 20 61 73 20   Options are as 
44e0: 66 6f 6c 6c 6f 77 73 3a 0a 23 0a 23 20 20 20 20  follows:.#.#    
44f0: 20 2d 74 63 6c 70 72 65 70 20 20 20 20 20 20 20   -tclprep       
4500: 20 20 20 54 43 4c 20 73 63 72 69 70 74 20 74 6f     TCL script to
4510: 20 72 75 6e 20 74 6f 20 70 72 65 70 61 72 65 20   run to prepare 
4520: 74 65 73 74 2e 0a 23 20 20 20 20 20 2d 73 71 6c  test..#     -sql
4530: 70 72 65 70 20 20 20 20 20 20 20 20 20 20 53 51  prep          SQ
4540: 4c 20 73 63 72 69 70 74 20 74 6f 20 72 75 6e 20  L script to run 
4550: 74 6f 20 70 72 65 70 61 72 65 20 74 65 73 74 2e  to prepare test.
4560: 0a 23 20 20 20 20 20 2d 74 63 6c 62 6f 64 79 20  .#     -tclbody 
4570: 20 20 20 20 20 20 20 20 20 54 43 4c 20 73 63 72           TCL scr
4580: 69 70 74 20 74 6f 20 72 75 6e 20 77 69 74 68 20  ipt to run with 
4590: 49 4f 20 65 72 72 6f 72 20 73 69 6d 75 6c 61 74  IO error simulat
45a0: 69 6f 6e 2e 0a 23 20 20 20 20 20 2d 73 71 6c 62  ion..#     -sqlb
45b0: 6f 64 79 20 20 20 20 20 20 20 20 20 20 54 43 4c  ody          TCL
45c0: 20 73 63 72 69 70 74 20 74 6f 20 72 75 6e 20 77   script to run w
45d0: 69 74 68 20 49 4f 20 65 72 72 6f 72 20 73 69 6d  ith IO error sim
45e0: 75 6c 61 74 69 6f 6e 2e 0a 23 20 20 20 20 20 2d  ulation..#     -
45f0: 65 78 63 6c 75 64 65 20 20 20 20 20 20 20 20 20  exclude         
4600: 20 4c 69 73 74 20 6f 66 20 27 4e 27 20 76 61 6c   List of 'N' val
4610: 75 65 73 20 6e 6f 74 20 74 6f 20 74 65 73 74 2e  ues not to test.
4620: 0a 23 20 20 20 20 20 2d 65 72 63 20 20 20 20 20  .#     -erc     
4630: 20 20 20 20 20 20 20 20 20 55 73 65 20 65 78 74           Use ext
4640: 65 6e 64 65 64 20 72 65 73 75 6c 74 20 63 6f 64  ended result cod
4650: 65 73 0a 23 20 20 20 20 20 2d 70 65 72 73 69 73  es.#     -persis
4660: 74 20 20 20 20 20 20 20 20 20 20 4d 61 6b 65 20  t          Make 
4670: 73 69 6d 75 6c 61 74 65 64 20 49 2f 4f 20 65 72  simulated I/O er
4680: 72 6f 72 73 20 70 65 72 73 69 73 74 65 6e 74 0a  rors persistent.
4690: 23 20 20 20 20 20 2d 73 74 61 72 74 20 20 20 20  #     -start    
46a0: 20 20 20 20 20 20 20 20 56 61 6c 75 65 20 6f 66          Value of
46b0: 20 27 4e 27 20 74 6f 20 62 65 67 69 6e 20 77 69   'N' to begin wi
46c0: 74 68 20 28 64 65 66 61 75 6c 74 20 31 29 0a 23  th (default 1).#
46d0: 0a 23 20 20 20 20 20 2d 63 6b 73 75 6d 20 20 20  .#     -cksum   
46e0: 20 20 20 20 20 20 20 20 20 42 6f 6f 6c 65 61 6e           Boolean
46f0: 2e 20 49 66 20 74 72 75 65 2c 20 74 65 73 74 20  . If true, test 
4700: 74 68 61 74 20 74 68 65 20 64 61 74 61 62 61 73  that the databas
4710: 65 20 64 6f 65 73 0a 23 20 20 20 20 20 20 20 20  e does.#        
4720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e                 n
4730: 6f 74 20 63 68 61 6e 67 65 20 64 75 72 69 6e 67  ot change during
4740: 20 74 68 65 20 65 78 65 63 75 74 69 6f 6e 20 6f   the execution o
4750: 66 20 74 68 65 20 74 65 73 74 20 63 61 73 65 2e  f the test case.
4760: 0a 23 0a 70 72 6f 63 20 64 6f 5f 69 6f 65 72 72  .#.proc do_ioerr
4770: 5f 74 65 73 74 20 7b 74 65 73 74 6e 61 6d 65 20  _test {testname 
4780: 61 72 67 73 7d 20 7b 0a 0a 20 20 73 65 74 20 3a  args} {..  set :
4790: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73 74 61 72  :ioerropts(-star
47a0: 74 29 20 31 0a 20 20 73 65 74 20 3a 3a 69 6f 65  t) 1.  set ::ioe
47b0: 72 72 6f 70 74 73 28 2d 63 6b 73 75 6d 29 20 30  rropts(-cksum) 0
47c0: 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70  .  set ::ioerrop
47d0: 74 73 28 2d 65 72 63 29 20 30 0a 20 20 73 65 74  ts(-erc) 0.  set
47e0: 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6f   ::ioerropts(-co
47f0: 75 6e 74 29 20 31 30 30 30 30 30 30 30 30 0a 20  unt) 100000000. 
4800: 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73   set ::ioerropts
4810: 28 2d 70 65 72 73 69 73 74 29 20 31 0a 20 20 73  (-persist) 1.  s
4820: 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d  et ::ioerropts(-
4830: 63 6b 72 65 66 63 6f 75 6e 74 29 20 30 0a 20 20  ckrefcount) 0.  
4840: 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28  set ::ioerropts(
4850: 2d 72 65 73 74 6f 72 65 70 72 6e 67 29 20 31 0a  -restoreprng) 1.
4860: 20 20 61 72 72 61 79 20 73 65 74 20 3a 3a 69 6f    array set ::io
4870: 65 72 72 6f 70 74 73 20 24 61 72 67 73 0a 0a 20  erropts $args.. 
4880: 20 23 20 54 45 4d 50 4f 52 41 52 59 3a 20 46 6f   # TEMPORARY: Fo
4890: 72 20 33 2e 35 2e 39 2c 20 64 69 73 61 62 6c 65  r 3.5.9, disable
48a0: 20 74 65 73 74 69 6e 67 20 6f 66 20 65 78 74 65   testing of exte
48b0: 6e 64 65 64 20 72 65 73 75 6c 74 20 63 6f 64 65  nded result code
48c0: 73 2e 20 54 68 65 72 65 20 61 72 65 0a 20 20 23  s. There are.  #
48d0: 20 61 20 63 6f 75 70 6c 65 20 6f 66 20 6f 62 73   a couple of obs
48e0: 63 75 72 65 20 49 4f 20 65 72 72 6f 72 73 20 74  cure IO errors t
48f0: 68 61 74 20 64 6f 20 6e 6f 74 20 72 65 74 75 72  hat do not retur
4900: 6e 20 74 68 65 6d 2e 0a 20 20 73 65 74 20 3a 3a  n them..  set ::
4910: 69 6f 65 72 72 6f 70 74 73 28 2d 65 72 63 29 20  ioerropts(-erc) 
4920: 30 0a 0a 20 20 73 65 74 20 3a 3a 67 6f 20 31 0a  0..  set ::go 1.
4930: 20 20 23 72 65 73 65 74 5f 70 72 6e 67 5f 73 74    #reset_prng_st
4940: 61 74 65 0a 20 20 73 61 76 65 5f 70 72 6e 67 5f  ate.  save_prng_
4950: 73 74 61 74 65 0a 20 20 66 6f 72 20 7b 73 65 74  state.  for {set
4960: 20 6e 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28   n $::ioerropts(
4970: 2d 73 74 61 72 74 29 7d 20 7b 24 3a 3a 67 6f 20  -start)} {$::go 
4980: 26 26 20 24 6e 3c 32 30 30 7d 20 7b 69 6e 63 72  && $n<200} {incr
4990: 20 6e 7d 20 7b 0a 20 20 20 20 73 65 74 20 3a 3a   n} {.    set ::
49a0: 54 4e 20 24 6e 0a 20 20 20 20 69 6e 63 72 20 3a  TN $n.    incr :
49b0: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6f 75 6e  :ioerropts(-coun
49c0: 74 29 20 2d 31 0a 20 20 20 20 69 66 20 7b 24 3a  t) -1.    if {$:
49d0: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6f 75 6e  :ioerropts(-coun
49e0: 74 29 3c 30 7d 20 62 72 65 61 6b 0a 20 0a 20 20  t)<0} break. .  
49f0: 20 20 23 20 53 6b 69 70 20 74 68 69 73 20 49 4f    # Skip this IO
4a00: 20 65 72 72 6f 72 20 69 66 20 69 74 20 77 61 73   error if it was
4a10: 20 73 70 65 63 69 66 69 65 64 20 77 69 74 68 20   specified with 
4a20: 74 68 65 20 22 2d 65 78 63 6c 75 64 65 22 20 6f  the "-exclude" o
4a30: 70 74 69 6f 6e 2e 0a 20 20 20 20 69 66 20 7b 5b  ption..    if {[
4a40: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f  info exists ::io
4a50: 65 72 72 6f 70 74 73 28 2d 65 78 63 6c 75 64 65  erropts(-exclude
4a60: 29 5d 7d 20 7b 0a 20 20 20 20 20 20 69 66 20 7b  )]} {.      if {
4a70: 5b 6c 73 65 61 72 63 68 20 24 3a 3a 69 6f 65 72  [lsearch $::ioer
4a80: 72 6f 70 74 73 28 2d 65 78 63 6c 75 64 65 29 20  ropts(-exclude) 
4a90: 24 6e 5d 21 3d 2d 31 7d 20 63 6f 6e 74 69 6e 75  $n]!=-1} continu
4aa0: 65 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 7b  e.    }.    if {
4ab0: 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 72 65  $::ioerropts(-re
4ac0: 73 74 6f 72 65 70 72 6e 67 29 7d 20 7b 0a 20 20  storeprng)} {.  
4ad0: 20 20 20 20 72 65 73 74 6f 72 65 5f 70 72 6e 67      restore_prng
4ae0: 5f 73 74 61 74 65 0a 20 20 20 20 7d 0a 0a 20 20  _state.    }..  
4af0: 20 20 23 20 44 65 6c 65 74 65 20 74 68 65 20 66    # Delete the f
4b00: 69 6c 65 73 20 74 65 73 74 2e 64 62 20 61 6e 64  iles test.db and
4b10: 20 74 65 73 74 32 2e 64 62 2c 20 74 68 65 6e 20   test2.db, then 
4b20: 65 78 65 63 75 74 65 20 74 68 65 20 54 43 4c 20  execute the TCL 
4b30: 61 6e 64 20 0a 20 20 20 20 23 20 53 51 4c 20 28  and .    # SQL (
4b40: 69 6e 20 74 68 61 74 20 6f 72 64 65 72 29 20 74  in that order) t
4b50: 6f 20 70 72 65 70 61 72 65 20 66 6f 72 20 74 68  o prepare for th
4b60: 65 20 74 65 73 74 20 63 61 73 65 2e 0a 20 20 20  e test case..   
4b70: 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74 6e 61   do_test $testna
4b80: 6d 65 2e 24 6e 2e 31 20 7b 0a 20 20 20 20 20 20  me.$n.1 {.      
4b90: 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f  set ::sqlite_io_
4ba0: 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a  error_pending 0.
4bb0: 20 20 20 20 20 20 63 61 74 63 68 20 7b 64 62 20        catch {db 
4bc0: 63 6c 6f 73 65 7d 0a 20 20 20 20 20 20 63 61 74  close}.      cat
4bd0: 63 68 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 20  ch {db2 close}. 
4be0: 20 20 20 20 20 63 61 74 63 68 20 7b 66 69 6c 65       catch {file
4bf0: 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 74   delete -force t
4c00: 65 73 74 2e 64 62 7d 0a 20 20 20 20 20 20 63 61  est.db}.      ca
4c10: 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65  tch {file delete
4c20: 20 2d 66 6f 72 63 65 20 74 65 73 74 2e 64 62 2d   -force test.db-
4c30: 6a 6f 75 72 6e 61 6c 7d 0a 20 20 20 20 20 20 63  journal}.      c
4c40: 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74  atch {file delet
4c50: 65 20 2d 66 6f 72 63 65 20 74 65 73 74 32 2e 64  e -force test2.d
4c60: 62 7d 0a 20 20 20 20 20 20 63 61 74 63 68 20 7b  b}.      catch {
4c70: 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72  file delete -for
4c80: 63 65 20 74 65 73 74 32 2e 64 62 2d 6a 6f 75 72  ce test2.db-jour
4c90: 6e 61 6c 7d 0a 20 20 20 20 20 20 73 65 74 20 3a  nal}.      set :
4ca0: 3a 44 42 20 5b 73 71 6c 69 74 65 33 20 64 62 20  :DB [sqlite3 db 
4cb0: 74 65 73 74 2e 64 62 3b 20 73 71 6c 69 74 65 33  test.db; sqlite3
4cc0: 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e  _connection_poin
4cd0: 74 65 72 20 64 62 5d 0a 20 20 20 20 20 20 73 71  ter db].      sq
4ce0: 6c 69 74 65 33 5f 65 78 74 65 6e 64 65 64 5f 72  lite3_extended_r
4cf0: 65 73 75 6c 74 5f 63 6f 64 65 73 20 24 3a 3a 44  esult_codes $::D
4d00: 42 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d  B $::ioerropts(-
4d10: 65 72 63 29 0a 20 20 20 20 20 20 69 66 20 7b 5b  erc).      if {[
4d20: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f  info exists ::io
4d30: 65 72 72 6f 70 74 73 28 2d 74 63 6c 70 72 65 70  erropts(-tclprep
4d40: 29 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 65 76  )]} {.        ev
4d50: 61 6c 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28  al $::ioerropts(
4d60: 2d 74 63 6c 70 72 65 70 29 0a 20 20 20 20 20 20  -tclprep).      
4d70: 7d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66  }.      if {[inf
4d80: 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72  o exists ::ioerr
4d90: 6f 70 74 73 28 2d 73 71 6c 70 72 65 70 29 5d 7d  opts(-sqlprep)]}
4da0: 20 7b 0a 20 20 20 20 20 20 20 20 65 78 65 63 73   {.        execs
4db0: 71 6c 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28  ql $::ioerropts(
4dc0: 2d 73 71 6c 70 72 65 70 29 0a 20 20 20 20 20 20  -sqlprep).      
4dd0: 7d 0a 20 20 20 20 20 20 65 78 70 72 20 30 0a 20  }.      expr 0. 
4de0: 20 20 20 7d 20 7b 30 7d 0a 0a 20 20 20 20 23 20     } {0}..    # 
4df0: 52 65 61 64 20 74 68 65 20 27 63 68 65 63 6b 73  Read the 'checks
4e00: 75 6d 27 20 6f 66 20 74 68 65 20 64 61 74 61 62  um' of the datab
4e10: 61 73 65 2e 0a 20 20 20 20 69 66 20 7b 24 3a 3a  ase..    if {$::
4e20: 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 73 75 6d  ioerropts(-cksum
4e30: 29 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 63  )} {.      set c
4e40: 68 65 63 6b 73 75 6d 20 5b 63 6b 73 75 6d 5d 0a  hecksum [cksum].
4e50: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 53 65 74      }..    # Set
4e60: 20 74 68 65 20 4e 74 68 20 49 4f 20 65 72 72 6f   the Nth IO erro
4e70: 72 20 74 6f 20 66 61 69 6c 2e 0a 20 20 20 20 64  r to fail..    d
4e80: 6f 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65  o_test $testname
4e90: 2e 24 6e 2e 32 20 5b 73 75 62 73 74 20 7b 0a 20  .$n.2 [subst {. 
4ea0: 20 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74       set ::sqlit
4eb0: 65 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 72 73 69  e_io_error_persi
4ec0: 73 74 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28  st $::ioerropts(
4ed0: 2d 70 65 72 73 69 73 74 29 0a 20 20 20 20 20 20  -persist).      
4ee0: 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f  set ::sqlite_io_
4ef0: 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 24 6e  error_pending $n
4f00: 0a 20 20 20 20 7d 5d 20 24 6e 0a 20 20 0a 20 20  .    }] $n.  .  
4f10: 20 20 23 20 43 72 65 61 74 65 20 61 20 73 69 6e    # Create a sin
4f20: 67 6c 65 20 54 43 4c 20 73 63 72 69 70 74 20 66  gle TCL script f
4f30: 72 6f 6d 20 74 68 65 20 54 43 4c 20 61 6e 64 20  rom the TCL and 
4f40: 53 51 4c 20 73 70 65 63 69 66 69 65 64 0a 20 20  SQL specified.  
4f50: 20 20 23 20 61 73 20 74 68 65 20 62 6f 64 79 20    # as the body 
4f60: 6f 66 20 74 68 65 20 74 65 73 74 2e 0a 20 20 20  of the test..   
4f70: 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 72 62 6f   set ::ioerrorbo
4f80: 64 79 20 7b 7d 0a 20 20 20 20 69 66 20 7b 5b 69  dy {}.    if {[i
4f90: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f 65  nfo exists ::ioe
4fa0: 72 72 6f 70 74 73 28 2d 74 63 6c 62 6f 64 79 29  rropts(-tclbody)
4fb0: 5d 7d 20 7b 0a 20 20 20 20 20 20 61 70 70 65 6e  ]} {.      appen
4fc0: 64 20 3a 3a 69 6f 65 72 72 6f 72 62 6f 64 79 20  d ::ioerrorbody 
4fd0: 22 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 74  "$::ioerropts(-t
4fe0: 63 6c 62 6f 64 79 29 5c 6e 22 0a 20 20 20 20 7d  clbody)\n".    }
4ff0: 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65  .    if {[info e
5000: 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74  xists ::ioerropt
5010: 73 28 2d 73 71 6c 62 6f 64 79 29 5d 7d 20 7b 0a  s(-sqlbody)]} {.
5020: 20 20 20 20 20 20 61 70 70 65 6e 64 20 3a 3a 69        append ::i
5030: 6f 65 72 72 6f 72 62 6f 64 79 20 22 64 62 20 65  oerrorbody "db e
5040: 76 61 6c 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74  val {$::ioerropt
5050: 73 28 2d 73 71 6c 62 6f 64 79 29 7d 22 0a 20 20  s(-sqlbody)}".  
5060: 20 20 7d 0a 0a 20 20 20 20 23 20 45 78 65 63 75    }..    # Execu
5070: 74 65 20 74 68 65 20 54 43 4c 20 53 63 72 69 70  te the TCL Scrip
5080: 74 20 63 72 65 61 74 65 64 20 69 6e 20 74 68 65  t created in the
5090: 20 61 62 6f 76 65 20 62 6c 6f 63 6b 2e 20 49 66   above block. If
50a0: 0a 20 20 20 20 23 20 74 68 65 72 65 20 61 72 65  .    # there are
50b0: 20 61 74 20 6c 65 61 73 74 20 4e 20 49 4f 20 6f   at least N IO o
50c0: 70 65 72 61 74 69 6f 6e 73 20 70 65 72 66 6f 72  perations perfor
50d0: 6d 65 64 20 62 79 20 53 51 4c 69 74 65 20 61 73  med by SQLite as
50e0: 0a 20 20 20 20 23 20 61 20 72 65 73 75 6c 74 20  .    # a result 
50f0: 6f 66 20 74 68 65 20 73 63 72 69 70 74 2c 20 74  of the script, t
5100: 68 65 20 4e 74 68 20 77 69 6c 6c 20 66 61 69 6c  he Nth will fail
5110: 2e 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 24 74  ..    do_test $t
5120: 65 73 74 6e 61 6d 65 2e 24 6e 2e 33 20 7b 0a 20  estname.$n.3 {. 
5130: 20 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74       set ::sqlit
5140: 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 69 74 20 30  e_io_error_hit 0
5150: 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 73 71 6c  .      set ::sql
5160: 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72  ite_io_error_har
5170: 64 68 69 74 20 30 0a 20 20 20 20 20 20 73 65 74  dhit 0.      set
5180: 20 72 20 5b 63 61 74 63 68 20 24 3a 3a 69 6f 65   r [catch $::ioe
5190: 72 72 6f 72 62 6f 64 79 20 6d 73 67 5d 0a 20 20  rrorbody msg].  
51a0: 20 20 20 20 73 65 74 20 3a 3a 65 72 72 73 65 65      set ::errsee
51b0: 6e 20 24 72 0a 20 20 20 20 20 20 73 65 74 20 72  n $r.      set r
51c0: 63 20 5b 73 71 6c 69 74 65 33 5f 65 72 72 63 6f  c [sqlite3_errco
51d0: 64 65 20 24 3a 3a 44 42 5d 0a 20 20 20 20 20 20  de $::DB].      
51e0: 69 66 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73  if {$::ioerropts
51f0: 28 2d 65 72 63 29 7d 20 7b 0a 20 20 20 20 20 20  (-erc)} {.      
5200: 20 20 23 20 49 66 20 77 65 20 61 72 65 20 69 6e    # If we are in
5210: 20 65 78 74 65 6e 64 65 64 20 72 65 73 75 6c 74   extended result
5220: 20 63 6f 64 65 20 6d 6f 64 65 2c 20 6d 61 6b 65   code mode, make
5230: 20 73 75 72 65 20 61 6c 6c 20 6f 66 20 74 68 65   sure all of the
5240: 0a 20 20 20 20 20 20 20 20 23 20 49 4f 45 52 52  .        # IOERR
5250: 73 20 77 65 20 67 65 74 20 62 61 63 6b 20 72 65  s we get back re
5260: 61 6c 6c 79 20 64 6f 20 68 61 76 65 20 74 68 65  ally do have the
5270: 69 72 20 65 78 74 65 6e 64 65 64 20 63 6f 64 65  ir extended code
5280: 20 76 61 6c 75 65 73 2e 0a 20 20 20 20 20 20 20   values..       
5290: 20 23 20 49 66 20 61 6e 20 65 78 74 65 6e 64 65   # If an extende
52a0: 64 20 72 65 73 75 6c 74 20 63 6f 64 65 20 69 73  d result code is
52b0: 20 72 65 74 75 72 6e 65 64 2c 20 74 68 65 20 73   returned, the s
52c0: 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 65 0a 20  qlite3_errcode. 
52d0: 20 20 20 20 20 20 20 23 20 54 43 4c 63 6f 6d 6d         # TCLcomm
52e0: 61 6e 64 20 77 69 6c 6c 20 72 65 74 75 72 6e 20  and will return 
52f0: 61 20 73 74 72 69 6e 67 20 6f 66 20 74 68 65 20  a string of the 
5300: 66 6f 72 6d 3a 20 20 53 51 4c 49 54 45 5f 49 4f  form:  SQLITE_IO
5310: 45 52 52 2b 6e 6e 6e 6e 0a 20 20 20 20 20 20 20  ERR+nnnn.       
5320: 20 23 20 77 68 65 72 65 20 6e 6e 6e 6e 20 69 73   # where nnnn is
5330: 20 61 20 6e 75 6d 62 65 72 0a 20 20 20 20 20 20   a number.      
5340: 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 5e    if {[regexp {^
5350: 53 51 4c 49 54 45 5f 49 4f 45 52 52 7d 20 24 72  SQLITE_IOERR} $r
5360: 63 5d 20 26 26 20 21 5b 72 65 67 65 78 70 20 7b  c] && ![regexp {
5370: 49 4f 45 52 52 5c 2b 5c 64 7d 20 24 72 63 5d 7d  IOERR\+\d} $rc]}
5380: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74   {.          ret
5390: 75 72 6e 20 24 72 63 0a 20 20 20 20 20 20 20 20  urn $rc.        
53a0: 7d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b  }.      } else {
53b0: 0a 20 20 20 20 20 20 20 20 23 20 49 66 20 77 65  .        # If we
53c0: 20 61 72 65 20 6e 6f 74 20 69 6e 20 65 78 74 65   are not in exte
53d0: 6e 64 65 64 20 72 65 73 75 6c 74 20 63 6f 64 65  nded result code
53e0: 20 6d 6f 64 65 2c 20 6d 61 6b 65 20 73 75 72 65   mode, make sure
53f0: 20 6e 6f 0a 20 20 20 20 20 20 20 20 23 20 65 78   no.        # ex
5400: 74 65 6e 64 65 64 20 65 72 72 6f 72 20 63 6f 64  tended error cod
5410: 65 73 20 61 72 65 20 72 65 74 75 72 6e 65 64 2e  es are returned.
5420: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 72 65  .        if {[re
5430: 67 65 78 70 20 7b 5c 2b 5c 64 7d 20 24 72 63 5d  gexp {\+\d} $rc]
5440: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65  } {.          re
5450: 74 75 72 6e 20 24 72 63 0a 20 20 20 20 20 20 20  turn $rc.       
5460: 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20   }.      }.     
5470: 20 23 20 54 68 65 20 74 65 73 74 20 72 65 70 65   # The test repe
5480: 61 74 73 20 61 73 20 6c 6f 6e 67 20 61 73 20 24  ats as long as $
5490: 3a 3a 67 6f 20 69 73 20 6e 6f 6e 2d 7a 65 72 6f  ::go is non-zero
54a0: 2e 20 20 24 3a 3a 67 6f 20 73 74 61 72 74 73 20  .  $::go starts 
54b0: 6f 75 74 0a 20 20 20 20 20 20 23 20 61 73 20 31  out.      # as 1
54c0: 2e 20 20 57 68 65 6e 20 61 20 74 65 73 74 20 72  .  When a test r
54d0: 75 6e 73 20 74 6f 20 63 6f 6d 70 6c 65 74 69 6f  uns to completio
54e0: 6e 20 77 69 74 68 6f 75 74 20 68 69 74 74 69 6e  n without hittin
54f0: 67 20 61 6e 20 49 2f 4f 0a 20 20 20 20 20 20 23  g an I/O.      #
5500: 20 65 72 72 6f 72 2c 20 74 68 61 74 20 6d 65 61   error, that mea
5510: 6e 73 20 74 68 65 72 65 20 69 73 20 6e 6f 20 70  ns there is no p
5520: 6f 69 6e 74 20 69 6e 20 63 6f 6e 74 69 6e 75 69  oint in continui
5530: 6e 67 20 77 69 74 68 20 74 68 69 73 20 74 65 73  ng with this tes
5540: 74 0a 20 20 20 20 20 20 23 20 63 61 73 65 20 73  t.      # case s
5550: 6f 20 73 65 74 20 24 3a 3a 67 6f 20 74 6f 20 7a  o set $::go to z
5560: 65 72 6f 2e 0a 20 20 20 20 20 20 23 0a 20 20 20  ero..      #.   
5570: 20 20 20 69 66 20 7b 24 3a 3a 73 71 6c 69 74 65     if {$::sqlite
5580: 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e  _io_error_pendin
5590: 67 3e 30 7d 20 7b 0a 20 20 20 20 20 20 20 20 73  g>0} {.        s
55a0: 65 74 20 3a 3a 67 6f 20 30 0a 20 20 20 20 20 20  et ::go 0.      
55b0: 20 20 73 65 74 20 71 20 30 0a 20 20 20 20 20 20    set q 0.      
55c0: 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69    set ::sqlite_i
55d0: 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20  o_error_pending 
55e0: 30 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b  0.      } else {
55f0: 0a 20 20 20 20 20 20 20 20 73 65 74 20 71 20 31  .        set q 1
5600: 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20  .      }..      
5610: 73 65 74 20 73 20 5b 65 78 70 72 20 24 3a 3a 73  set s [expr $::s
5620: 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68  qlite_io_error_h
5630: 69 74 3d 3d 30 5d 0a 20 20 20 20 20 20 69 66 20  it==0].      if 
5640: 7b 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72  {$::sqlite_io_er
5650: 72 6f 72 5f 68 69 74 3e 24 3a 3a 73 71 6c 69 74  ror_hit>$::sqlit
5660: 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72 64 68  e_io_error_hardh
5670: 69 74 20 26 26 20 24 72 3d 3d 30 7d 20 7b 0a 20  it && $r==0} {. 
5680: 20 20 20 20 20 20 20 73 65 74 20 72 20 31 0a 20         set r 1. 
5690: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 73 65 74       }.      set
56a0: 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72   ::sqlite_io_err
56b0: 6f 72 5f 68 69 74 20 30 0a 0a 20 20 20 20 20 20  or_hit 0..      
56c0: 23 20 4f 6e 65 20 6f 66 20 74 77 6f 20 74 68 69  # One of two thi
56d0: 6e 67 73 20 6d 75 73 74 20 68 61 76 65 20 68 61  ngs must have ha
56e0: 70 70 65 6e 65 64 2e 20 65 69 74 68 65 72 0a 20  ppened. either. 
56f0: 20 20 20 20 20 23 20 20 20 31 2e 20 20 57 65 20       #   1.  We 
5700: 6e 65 76 65 72 20 68 69 74 20 74 68 65 20 49 4f  never hit the IO
5710: 20 65 72 72 6f 72 20 61 6e 64 20 74 68 65 20 53   error and the S
5720: 51 4c 20 72 65 74 75 72 6e 65 64 20 4f 4b 0a 20  QL returned OK. 
5730: 20 20 20 20 20 23 20 20 20 32 2e 20 20 41 6e 20       #   2.  An 
5740: 49 4f 20 65 72 72 6f 72 20 77 61 73 20 68 69 74  IO error was hit
5750: 20 61 6e 64 20 74 68 65 20 53 51 4c 20 66 61 69   and the SQL fai
5760: 6c 65 64 0a 20 20 20 20 20 20 23 0a 20 20 20 20  led.      #.    
5770: 20 20 65 78 70 72 20 7b 20 28 24 73 20 26 26 20    expr { ($s && 
5780: 21 24 72 20 26 26 20 21 24 71 29 20 7c 7c 20 28  !$r && !$q) || (
5790: 21 24 73 20 26 26 20 24 72 20 26 26 20 24 71 29  !$s && $r && $q)
57a0: 20 7d 0a 20 20 20 20 7d 20 7b 31 7d 0a 0a 20 20   }.    } {1}..  
57b0: 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69    set ::sqlite_i
57c0: 6f 5f 65 72 72 6f 72 5f 68 69 74 20 30 0a 20 20  o_error_hit 0.  
57d0: 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69    set ::sqlite_i
57e0: 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20  o_error_pending 
57f0: 30 0a 0a 20 20 20 20 23 20 43 68 65 63 6b 20 74  0..    # Check t
5800: 68 61 74 20 6e 6f 20 70 61 67 65 20 72 65 66 65  hat no page refe
5810: 72 65 6e 63 65 73 20 77 65 72 65 20 6c 65 61 6b  rences were leak
5820: 65 64 2e 20 54 68 65 72 65 20 73 68 6f 75 6c 64  ed. There should
5830: 20 62 65 20 0a 20 20 20 20 23 20 61 20 73 69 6e   be .    # a sin
5840: 67 6c 65 20 72 65 66 65 72 65 6e 63 65 20 69 66  gle reference if
5850: 20 74 68 65 72 65 20 69 73 20 73 74 69 6c 6c 20   there is still 
5860: 61 6e 20 61 63 74 69 76 65 20 74 72 61 6e 73 61  an active transa
5870: 63 74 69 6f 6e 2c 20 0a 20 20 20 20 23 20 6f 72  ction, .    # or
5880: 20 7a 65 72 6f 20 6f 74 68 65 72 77 69 73 65 2e   zero otherwise.
5890: 0a 20 20 20 20 23 0a 20 20 20 20 23 20 55 50 44  .    #.    # UPD
58a0: 41 54 45 3a 20 49 66 20 74 68 65 20 49 4f 20 65  ATE: If the IO e
58b0: 72 72 6f 72 20 6f 63 63 75 72 73 20 61 66 74 65  rror occurs afte
58c0: 72 20 61 20 27 42 45 47 49 4e 27 20 62 75 74 20  r a 'BEGIN' but 
58d0: 62 65 66 6f 72 65 20 61 6e 79 0a 20 20 20 20 23  before any.    #
58e0: 20 6c 6f 63 6b 73 20 61 72 65 20 65 73 74 61 62   locks are estab
58f0: 6c 69 73 68 65 64 20 6f 6e 20 64 61 74 61 62 61  lished on databa
5900: 73 65 20 66 69 6c 65 73 20 28 69 2e 65 2e 20 69  se files (i.e. i
5910: 66 20 74 68 65 20 65 72 72 6f 72 20 0a 20 20 20  f the error .   
5920: 20 23 20 6f 63 63 75 72 73 20 77 68 69 6c 65 20   # occurs while 
5930: 61 74 74 65 6d 70 74 69 6e 67 20 74 6f 20 64 65  attempting to de
5940: 74 65 63 74 20 61 20 68 6f 74 2d 6a 6f 75 72 6e  tect a hot-journ
5950: 61 6c 20 66 69 6c 65 29 2c 20 74 68 65 6e 0a 20  al file), then. 
5960: 20 20 20 23 20 74 68 65 72 65 20 6d 61 79 20 30     # there may 0
5970: 20 70 61 67 65 20 72 65 66 65 72 65 6e 63 65 73   page references
5980: 20 61 6e 64 20 61 6e 20 61 63 74 69 76 65 20 74   and an active t
5990: 72 61 6e 73 61 63 74 69 6f 6e 20 61 63 63 6f 72  ransaction accor
59a0: 64 69 6e 67 0a 20 20 20 20 23 20 74 6f 20 5b 73  ding.    # to [s
59b0: 71 6c 69 74 65 33 5f 67 65 74 5f 61 75 74 6f 63  qlite3_get_autoc
59c0: 6f 6d 6d 69 74 5d 2e 0a 20 20 20 20 23 0a 20 20  ommit]..    #.  
59d0: 20 20 69 66 20 7b 24 3a 3a 67 6f 20 26 26 20 24    if {$::go && $
59e0: 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f  ::sqlite_io_erro
59f0: 72 5f 68 61 72 64 68 69 74 20 26 26 20 24 3a 3a  r_hardhit && $::
5a00: 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 72 65 66  ioerropts(-ckref
5a10: 63 6f 75 6e 74 29 7d 20 7b 0a 20 20 20 20 20 20  count)} {.      
5a20: 64 6f 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d  do_test $testnam
5a30: 65 2e 24 6e 2e 34 20 7b 0a 20 20 20 20 20 20 20  e.$n.4 {.       
5a40: 20 73 65 74 20 62 74 20 5b 62 74 72 65 65 5f 66   set bt [btree_f
5a50: 72 6f 6d 5f 64 62 20 64 62 5d 0a 20 20 20 20 20  rom_db db].     
5a60: 20 20 20 64 62 5f 65 6e 74 65 72 20 64 62 0a 20     db_enter db. 
5a70: 20 20 20 20 20 20 20 61 72 72 61 79 20 73 65 74         array set
5a80: 20 73 74 61 74 73 20 5b 62 74 72 65 65 5f 70 61   stats [btree_pa
5a90: 67 65 72 5f 73 74 61 74 73 20 24 62 74 5d 0a 20  ger_stats $bt]. 
5aa0: 20 20 20 20 20 20 20 64 62 5f 6c 65 61 76 65 20         db_leave 
5ab0: 64 62 0a 20 20 20 20 20 20 20 20 73 65 74 20 6e  db.        set n
5ac0: 52 65 66 20 24 73 74 61 74 73 28 72 65 66 29 0a  Ref $stats(ref).
5ad0: 20 20 20 20 20 20 20 20 65 78 70 72 20 7b 24 6e          expr {$n
5ae0: 52 65 66 20 3d 3d 20 30 20 7c 7c 20 28 5b 73 71  Ref == 0 || ([sq
5af0: 6c 69 74 65 33 5f 67 65 74 5f 61 75 74 6f 63 6f  lite3_get_autoco
5b00: 6d 6d 69 74 20 64 62 5d 3d 3d 30 20 26 26 20 24  mmit db]==0 && $
5b10: 6e 52 65 66 20 3d 3d 20 31 29 7d 0a 20 20 20 20  nRef == 1)}.    
5b20: 20 20 7d 20 7b 31 7d 0a 20 20 20 20 7d 0a 0a 20    } {1}.    }.. 
5b30: 20 20 20 23 20 49 66 20 74 68 65 72 65 20 69 73     # If there is
5b40: 20 61 6e 20 6f 70 65 6e 20 64 61 74 61 62 61 73   an open databas
5b50: 65 20 68 61 6e 64 6c 65 20 61 6e 64 20 6e 6f 20  e handle and no 
5b60: 6f 70 65 6e 20 74 72 61 6e 73 61 63 74 69 6f 6e  open transaction
5b70: 2c 20 0a 20 20 20 20 23 20 61 6e 64 20 74 68 65  , .    # and the
5b80: 20 70 61 67 65 72 20 69 73 20 6e 6f 74 20 72 75   pager is not ru
5b90: 6e 6e 69 6e 67 20 69 6e 20 65 78 63 6c 75 73 69  nning in exclusi
5ba0: 76 65 2d 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2c  ve-locking mode,
5bb0: 0a 20 20 20 20 23 20 63 68 65 63 6b 20 74 68 61  .    # check tha
5bc0: 74 20 74 68 65 20 70 61 67 65 72 20 69 73 20 69  t the pager is i
5bd0: 6e 20 22 75 6e 6c 6f 63 6b 65 64 22 20 73 74 61  n "unlocked" sta
5be0: 74 65 2e 20 54 68 65 6f 72 65 74 69 63 61 6c 6c  te. Theoreticall
5bf0: 79 2c 0a 20 20 20 20 23 20 69 66 20 61 20 63 61  y,.    # if a ca
5c00: 6c 6c 20 74 6f 20 78 55 6e 6c 6f 63 6b 28 29 20  ll to xUnlock() 
5c10: 66 61 69 6c 65 64 20 64 75 65 20 74 6f 20 61 6e  failed due to an
5c20: 20 49 4f 20 65 72 72 6f 72 20 74 68 65 20 75 6e   IO error the un
5c30: 64 65 72 6c 79 69 6e 67 0a 20 20 20 20 23 20 66  derlying.    # f
5c40: 69 6c 65 20 6d 61 79 20 73 74 69 6c 6c 20 62 65  ile may still be
5c50: 20 6c 6f 63 6b 65 64 2e 0a 20 20 20 20 23 0a 20   locked..    #. 
5c60: 20 20 20 69 66 63 61 70 61 62 6c 65 20 70 72 61     ifcapable pra
5c70: 67 6d 61 20 7b 0a 20 20 20 20 20 20 69 66 20 7b  gma {.      if {
5c80: 20 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73 20   [info commands 
5c90: 64 62 5d 20 6e 65 20 22 22 0a 20 20 20 20 20 20  db] ne "".      
5ca0: 20 20 26 26 20 24 3a 3a 69 6f 65 72 72 6f 70 74    && $::ioerropt
5cb0: 73 28 2d 63 6b 72 65 66 63 6f 75 6e 74 29 0a 20  s(-ckrefcount). 
5cc0: 20 20 20 20 20 20 20 26 26 20 5b 64 62 20 6f 6e         && [db on
5cd0: 65 20 7b 70 72 61 67 6d 61 20 6c 6f 63 6b 69 6e  e {pragma lockin
5ce0: 67 5f 6d 6f 64 65 7d 5d 20 65 71 20 22 6e 6f 72  g_mode}] eq "nor
5cf0: 6d 61 6c 22 0a 20 20 20 20 20 20 20 20 26 26 20  mal".        && 
5d00: 5b 73 71 6c 69 74 65 33 5f 67 65 74 5f 61 75 74  [sqlite3_get_aut
5d10: 6f 63 6f 6d 6d 69 74 20 64 62 5d 0a 20 20 20 20  ocommit db].    
5d20: 20 20 7d 20 7b 0a 20 20 20 20 20 20 20 20 64 6f    } {.        do
5d30: 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e  _test $testname.
5d40: 24 6e 2e 35 20 7b 0a 20 20 20 20 20 20 20 20 20  $n.5 {.         
5d50: 20 73 65 74 20 62 74 20 5b 62 74 72 65 65 5f 66   set bt [btree_f
5d60: 72 6f 6d 5f 64 62 20 64 62 5d 0a 20 20 20 20 20  rom_db db].     
5d70: 20 20 20 20 20 64 62 5f 65 6e 74 65 72 20 64 62       db_enter db
5d80: 0a 20 20 20 20 20 20 20 20 20 20 61 72 72 61 79  .          array
5d90: 20 73 65 74 20 73 74 61 74 73 20 5b 62 74 72 65   set stats [btre
5da0: 65 5f 70 61 67 65 72 5f 73 74 61 74 73 20 24 62  e_pager_stats $b
5db0: 74 5d 0a 20 20 20 20 20 20 20 20 20 20 64 62 5f  t].          db_
5dc0: 6c 65 61 76 65 20 64 62 0a 20 20 20 20 20 20 20  leave db.       
5dd0: 20 20 20 73 65 74 20 73 74 61 74 73 28 73 74 61     set stats(sta
5de0: 74 65 29 0a 20 20 20 20 20 20 20 20 7d 20 30 0a  te).        } 0.
5df0: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 0a 20        }.    }.. 
5e00: 20 20 20 23 20 49 66 20 61 6e 20 49 4f 20 65 72     # If an IO er
5e10: 72 6f 72 20 6f 63 63 75 72 65 64 2c 20 74 68 65  ror occured, the
5e20: 6e 20 74 68 65 20 63 68 65 63 6b 73 75 6d 20 6f  n the checksum o
5e30: 66 20 74 68 65 20 64 61 74 61 62 61 73 65 20 73  f the database s
5e40: 68 6f 75 6c 64 0a 20 20 20 20 23 20 62 65 20 74  hould.    # be t
5e50: 68 65 20 73 61 6d 65 20 61 73 20 62 65 66 6f 72  he same as befor
5e60: 65 20 74 68 65 20 73 63 72 69 70 74 20 74 68 61  e the script tha
5e70: 74 20 63 61 75 73 65 64 20 74 68 65 20 49 4f 20  t caused the IO 
5e80: 65 72 72 6f 72 20 77 61 73 20 72 75 6e 2e 0a 20  error was run.. 
5e90: 20 20 20 23 0a 20 20 20 20 69 66 20 7b 24 3a 3a     #.    if {$::
5ea0: 67 6f 20 26 26 20 24 3a 3a 73 71 6c 69 74 65 5f  go && $::sqlite_
5eb0: 69 6f 5f 65 72 72 6f 72 5f 68 61 72 64 68 69 74  io_error_hardhit
5ec0: 20 26 26 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73   && $::ioerropts
5ed0: 28 2d 63 6b 73 75 6d 29 7d 20 7b 0a 20 20 20 20  (-cksum)} {.    
5ee0: 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74 6e    do_test $testn
5ef0: 61 6d 65 2e 24 6e 2e 36 20 7b 0a 20 20 20 20 20  ame.$n.6 {.     
5f00: 20 20 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f     catch {db clo
5f10: 73 65 7d 0a 20 20 20 20 20 20 20 20 63 61 74 63  se}.        catc
5f20: 68 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 20 20  h {db2 close}.  
5f30: 20 20 20 20 20 20 73 65 74 20 3a 3a 44 42 20 5b        set ::DB [
5f40: 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e  sqlite3 db test.
5f50: 64 62 3b 20 73 71 6c 69 74 65 33 5f 63 6f 6e 6e  db; sqlite3_conn
5f60: 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64  ection_pointer d
5f70: 62 5d 0a 20 20 20 20 20 20 20 20 63 6b 73 75 6d  b].        cksum
5f80: 0a 20 20 20 20 20 20 7d 20 24 63 68 65 63 6b 73  .      } $checks
5f90: 75 6d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 65  um.    }..    se
5fa0: 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72  t ::sqlite_io_er
5fb0: 72 6f 72 5f 68 61 72 64 68 69 74 20 30 0a 20 20  ror_hardhit 0.  
5fc0: 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69    set ::sqlite_i
5fd0: 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20  o_error_pending 
5fe0: 30 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20  0.    if {[info 
5ff0: 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70  exists ::ioerrop
6000: 74 73 28 2d 63 6c 65 61 6e 75 70 29 5d 7d 20 7b  ts(-cleanup)]} {
6010: 0a 20 20 20 20 20 20 63 61 74 63 68 20 24 3a 3a  .      catch $::
6020: 69 6f 65 72 72 6f 70 74 73 28 2d 63 6c 65 61 6e  ioerropts(-clean
6030: 75 70 29 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20  up).    }.  }.  
6040: 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f  set ::sqlite_io_
6050: 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a  error_pending 0.
6060: 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69    set ::sqlite_i
6070: 6f 5f 65 72 72 6f 72 5f 70 65 72 73 69 73 74 20  o_error_persist 
6080: 30 0a 20 20 75 6e 73 65 74 20 3a 3a 69 6f 65 72  0.  unset ::ioer
6090: 72 6f 70 74 73 0a 7d 0a 0a 23 20 52 65 74 75 72  ropts.}..# Retur
60a0: 6e 20 61 20 63 68 65 63 6b 73 75 6d 20 62 61 73  n a checksum bas
60b0: 65 64 20 6f 6e 20 74 68 65 20 63 6f 6e 74 65 6e  ed on the conten
60c0: 74 73 20 6f 66 20 74 68 65 20 6d 61 69 6e 20 64  ts of the main d
60d0: 61 74 61 62 61 73 65 20 61 73 73 6f 63 69 61 74  atabase associat
60e0: 65 64 0a 23 20 77 69 74 68 20 63 6f 6e 6e 65 63  ed.# with connec
60f0: 74 69 6f 6e 20 24 64 62 0a 23 0a 70 72 6f 63 20  tion $db.#.proc 
6100: 63 6b 73 75 6d 20 7b 7b 64 62 20 64 62 7d 7d 20  cksum {{db db}} 
6110: 7b 0a 20 20 73 65 74 20 74 78 74 20 5b 24 64 62  {.  set txt [$db
6120: 20 65 76 61 6c 20 7b 0a 20 20 20 20 20 20 53 45   eval {.      SE
6130: 4c 45 43 54 20 6e 61 6d 65 2c 20 74 79 70 65 2c  LECT name, type,
6140: 20 73 71 6c 20 46 52 4f 4d 20 73 71 6c 69 74 65   sql FROM sqlite
6150: 5f 6d 61 73 74 65 72 20 6f 72 64 65 72 20 62 79  _master order by
6160: 20 6e 61 6d 65 0a 20 20 7d 5d 5c 6e 0a 20 20 66   name.  }]\n.  f
6170: 6f 72 65 61 63 68 20 74 62 6c 20 5b 24 64 62 20  oreach tbl [$db 
6180: 65 76 61 6c 20 7b 0a 20 20 20 20 20 20 53 45 4c  eval {.      SEL
6190: 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71  ECT name FROM sq
61a0: 6c 69 74 65 5f 6d 61 73 74 65 72 20 57 48 45 52  lite_master WHER
61b0: 45 20 74 79 70 65 3d 27 74 61 62 6c 65 27 20 6f  E type='table' o
61c0: 72 64 65 72 20 62 79 20 6e 61 6d 65 0a 20 20 7d  rder by name.  }
61d0: 5d 20 7b 0a 20 20 20 20 61 70 70 65 6e 64 20 74  ] {.    append t
61e0: 78 74 20 5b 24 64 62 20 65 76 61 6c 20 22 53 45  xt [$db eval "SE
61f0: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 24 74 62 6c  LECT * FROM $tbl
6200: 22 5d 5c 6e 0a 20 20 7d 0a 20 20 66 6f 72 65 61  "]\n.  }.  forea
6210: 63 68 20 70 72 61 67 20 7b 64 65 66 61 75 6c 74  ch prag {default
6220: 5f 73 79 6e 63 68 72 6f 6e 6f 75 73 20 64 65 66  _synchronous def
6230: 61 75 6c 74 5f 63 61 63 68 65 5f 73 69 7a 65 7d  ault_cache_size}
6240: 20 7b 0a 20 20 20 20 61 70 70 65 6e 64 20 74 78   {.    append tx
6250: 74 20 24 70 72 61 67 2d 5b 24 64 62 20 65 76 61  t $prag-[$db eva
6260: 6c 20 22 50 52 41 47 4d 41 20 24 70 72 61 67 22  l "PRAGMA $prag"
6270: 5d 5c 6e 0a 20 20 7d 0a 20 20 73 65 74 20 63 6b  ]\n.  }.  set ck
6280: 73 75 6d 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67  sum [string leng
6290: 74 68 20 24 74 78 74 5d 2d 5b 6d 64 35 20 24 74  th $txt]-[md5 $t
62a0: 78 74 5d 0a 20 20 23 20 70 75 74 73 20 24 63 6b  xt].  # puts $ck
62b0: 73 75 6d 2d 5b 66 69 6c 65 20 73 69 7a 65 20 74  sum-[file size t
62c0: 65 73 74 2e 64 62 5d 0a 20 20 72 65 74 75 72 6e  est.db].  return
62d0: 20 24 63 6b 73 75 6d 0a 7d 0a 0a 23 20 47 65 6e   $cksum.}..# Gen
62e0: 65 72 61 74 65 20 61 20 63 68 65 63 6b 73 75 6d  erate a checksum
62f0: 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 63 6f   based on the co
6300: 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 20 6d 61  ntents of the ma
6310: 69 6e 20 61 6e 64 20 74 65 6d 70 20 74 61 62 6c  in and temp tabl
6320: 65 73 0a 23 20 64 61 74 61 62 61 73 65 20 24 64  es.# database $d
6330: 62 2e 20 49 66 20 74 68 65 20 63 68 65 63 6b 73  b. If the checks
6340: 75 6d 20 6f 66 20 74 77 6f 20 64 61 74 61 62 61  um of two databa
6350: 73 65 73 20 69 73 20 74 68 65 20 73 61 6d 65 2c  ses is the same,
6360: 20 61 6e 64 20 74 68 65 0a 23 20 69 6e 74 65 67   and the.# integ
6370: 72 69 74 79 2d 63 68 65 63 6b 20 70 61 73 73 65  rity-check passe
6380: 73 20 66 6f 72 20 62 6f 74 68 2c 20 74 68 65 20  s for both, the 
6390: 74 77 6f 20 64 61 74 61 62 61 73 65 73 20 61 72  two databases ar
63a0: 65 20 69 64 65 6e 74 69 63 61 6c 2e 0a 23 0a 70  e identical..#.p
63b0: 72 6f 63 20 61 6c 6c 63 6b 73 75 6d 20 7b 7b 64  roc allcksum {{d
63c0: 62 20 64 62 7d 7d 20 7b 0a 20 20 73 65 74 20 72  b db}} {.  set r
63d0: 65 74 20 5b 6c 69 73 74 5d 0a 20 20 69 66 63 61  et [list].  ifca
63e0: 70 61 62 6c 65 20 74 65 6d 70 64 62 20 7b 0a 20  pable tempdb {. 
63f0: 20 20 20 73 65 74 20 73 71 6c 20 7b 0a 20 20 20     set sql {.   
6400: 20 20 20 53 45 4c 45 43 54 20 6e 61 6d 65 20 46     SELECT name F
6410: 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65  ROM sqlite_maste
6420: 72 20 57 48 45 52 45 20 74 79 70 65 20 3d 20 27  r WHERE type = '
6430: 74 61 62 6c 65 27 20 55 4e 49 4f 4e 0a 20 20 20  table' UNION.   
6440: 20 20 20 53 45 4c 45 43 54 20 6e 61 6d 65 20 46     SELECT name F
6450: 52 4f 4d 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f  ROM sqlite_temp_
6460: 6d 61 73 74 65 72 20 57 48 45 52 45 20 74 79 70  master WHERE typ
6470: 65 20 3d 20 27 74 61 62 6c 65 27 20 55 4e 49 4f  e = 'table' UNIO
6480: 4e 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 27  N.      SELECT '
6490: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 27 20 55  sqlite_master' U
64a0: 4e 49 4f 4e 0a 20 20 20 20 20 20 53 45 4c 45 43  NION.      SELEC
64b0: 54 20 27 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d  T 'sqlite_temp_m
64c0: 61 73 74 65 72 27 20 4f 52 44 45 52 20 42 59 20  aster' ORDER BY 
64d0: 31 0a 20 20 20 20 7d 0a 20 20 7d 20 65 6c 73 65  1.    }.  } else
64e0: 20 7b 0a 20 20 20 20 73 65 74 20 73 71 6c 20 7b   {.    set sql {
64f0: 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 6e 61  .      SELECT na
6500: 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d  me FROM sqlite_m
6510: 61 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65  aster WHERE type
6520: 20 3d 20 27 74 61 62 6c 65 27 20 55 4e 49 4f 4e   = 'table' UNION
6530: 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 27 73  .      SELECT 's
6540: 71 6c 69 74 65 5f 6d 61 73 74 65 72 27 20 4f 52  qlite_master' OR
6550: 44 45 52 20 42 59 20 31 0a 20 20 20 20 7d 0a 20  DER BY 1.    }. 
6560: 20 7d 0a 20 20 73 65 74 20 74 62 6c 6c 69 73 74   }.  set tbllist
6570: 20 5b 24 64 62 20 65 76 61 6c 20 24 73 71 6c 5d   [$db eval $sql]
6580: 0a 20 20 73 65 74 20 74 78 74 20 7b 7d 0a 20 20  .  set txt {}.  
6590: 66 6f 72 65 61 63 68 20 74 62 6c 20 24 74 62 6c  foreach tbl $tbl
65a0: 6c 69 73 74 20 7b 0a 20 20 20 20 61 70 70 65 6e  list {.    appen
65b0: 64 20 74 78 74 20 5b 24 64 62 20 65 76 61 6c 20  d txt [$db eval 
65c0: 22 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 24  "SELECT * FROM $
65d0: 74 62 6c 22 5d 0a 20 20 7d 0a 20 20 66 6f 72 65  tbl"].  }.  fore
65e0: 61 63 68 20 70 72 61 67 20 7b 64 65 66 61 75 6c  ach prag {defaul
65f0: 74 5f 63 61 63 68 65 5f 73 69 7a 65 7d 20 7b 0a  t_cache_size} {.
6600: 20 20 20 20 61 70 70 65 6e 64 20 74 78 74 20 24      append txt $
6610: 70 72 61 67 2d 5b 24 64 62 20 65 76 61 6c 20 22  prag-[$db eval "
6620: 50 52 41 47 4d 41 20 24 70 72 61 67 22 5d 5c 6e  PRAGMA $prag"]\n
6630: 0a 20 20 7d 0a 20 20 23 20 70 75 74 73 20 74 78  .  }.  # puts tx
6640: 74 3d 24 74 78 74 0a 20 20 72 65 74 75 72 6e 20  t=$txt.  return 
6650: 5b 6d 64 35 20 24 74 78 74 5d 0a 7d 0a 0a 23 20  [md5 $txt].}..# 
6660: 47 65 6e 65 72 61 74 65 20 61 20 63 68 65 63 6b  Generate a check
6670: 73 75 6d 20 62 61 73 65 64 20 6f 6e 20 74 68 65  sum based on the
6680: 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 61 20 73   contents of a s
6690: 69 6e 67 6c 65 20 64 61 74 61 62 61 73 65 20 77  ingle database w
66a0: 69 74 68 0a 23 20 61 20 64 61 74 61 62 61 73 65  ith.# a database
66b0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20 20 54 68   connection.  Th
66c0: 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 64 61  e name of the da
66d0: 74 61 62 61 73 65 20 69 73 20 24 64 62 6e 61 6d  tabase is $dbnam
66e0: 65 2e 20 20 0a 23 20 45 78 61 6d 70 6c 65 73 20  e.  .# Examples 
66f0: 6f 66 20 24 64 62 6e 61 6d 65 20 61 72 65 20 22  of $dbname are "
6700: 74 65 6d 70 22 20 6f 72 20 22 6d 61 69 6e 22 2e  temp" or "main".
6710: 0a 23 0a 70 72 6f 63 20 64 62 63 6b 73 75 6d 20  .#.proc dbcksum 
6720: 7b 64 62 20 64 62 6e 61 6d 65 7d 20 7b 0a 20 20  {db dbname} {.  
6730: 69 66 20 7b 24 64 62 6e 61 6d 65 3d 3d 22 74 65  if {$dbname=="te
6740: 6d 70 22 7d 20 7b 0a 20 20 20 20 73 65 74 20 6d  mp"} {.    set m
6750: 61 73 74 65 72 20 73 71 6c 69 74 65 5f 74 65 6d  aster sqlite_tem
6760: 70 5f 6d 61 73 74 65 72 0a 20 20 7d 20 65 6c 73  p_master.  } els
6770: 65 20 7b 0a 20 20 20 20 73 65 74 20 6d 61 73 74  e {.    set mast
6780: 65 72 20 24 64 62 6e 61 6d 65 2e 73 71 6c 69 74  er $dbname.sqlit
6790: 65 5f 6d 61 73 74 65 72 0a 20 20 7d 0a 20 20 73  e_master.  }.  s
67a0: 65 74 20 61 6c 6c 74 61 62 20 5b 24 64 62 20 65  et alltab [$db e
67b0: 76 61 6c 20 22 53 45 4c 45 43 54 20 6e 61 6d 65  val "SELECT name
67c0: 20 46 52 4f 4d 20 24 6d 61 73 74 65 72 20 57 48   FROM $master WH
67d0: 45 52 45 20 74 79 70 65 3d 27 74 61 62 6c 65 27  ERE type='table'
67e0: 22 5d 0a 20 20 73 65 74 20 74 78 74 20 5b 24 64  "].  set txt [$d
67f0: 62 20 65 76 61 6c 20 22 53 45 4c 45 43 54 20 2a  b eval "SELECT *
6800: 20 46 52 4f 4d 20 24 6d 61 73 74 65 72 22 5d 5c   FROM $master"]\
6810: 6e 0a 20 20 66 6f 72 65 61 63 68 20 74 61 62 20  n.  foreach tab 
6820: 24 61 6c 6c 74 61 62 20 7b 0a 20 20 20 20 61 70  $alltab {.    ap
6830: 70 65 6e 64 20 74 78 74 20 5b 24 64 62 20 65 76  pend txt [$db ev
6840: 61 6c 20 22 53 45 4c 45 43 54 20 2a 20 46 52 4f  al "SELECT * FRO
6850: 4d 20 24 64 62 6e 61 6d 65 2e 24 74 61 62 22 5d  M $dbname.$tab"]
6860: 5c 6e 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  \n.  }.  return 
6870: 5b 6d 64 35 20 24 74 78 74 5d 0a 7d 0a 0a 70 72  [md5 $txt].}..pr
6880: 6f 63 20 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 5f  oc memdebug_log_
6890: 73 71 6c 20 7b 7b 66 69 6c 65 6e 61 6d 65 20 6d  sql {{filename m
68a0: 61 6c 6c 6f 63 73 2e 73 71 6c 7d 7d 20 7b 0a 0a  allocs.sql}} {..
68b0: 20 20 73 65 74 20 64 61 74 61 20 5b 73 71 6c 69    set data [sqli
68c0: 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f 67  te3_memdebug_log
68d0: 20 64 75 6d 70 5d 0a 20 20 73 65 74 20 6e 46 72   dump].  set nFr
68e0: 61 6d 65 20 5b 65 78 70 72 20 5b 6c 6c 65 6e 67  ame [expr [lleng
68f0: 74 68 20 5b 6c 69 6e 64 65 78 20 24 64 61 74 61  th [lindex $data
6900: 20 30 5d 5d 2d 32 5d 0a 20 20 69 66 20 7b 24 6e   0]]-2].  if {$n
6910: 46 72 61 6d 65 20 3c 20 30 7d 20 7b 20 72 65 74  Frame < 0} { ret
6920: 75 72 6e 20 22 22 20 7d 0a 0a 20 20 73 65 74 20  urn "" }..  set 
6930: 64 61 74 61 62 61 73 65 20 74 65 6d 70 0a 0a 20  database temp.. 
6940: 20 73 65 74 20 74 62 6c 20 22 43 52 45 41 54 45   set tbl "CREATE
6950: 20 54 41 42 4c 45 20 24 7b 64 61 74 61 62 61 73   TABLE ${databas
6960: 65 7d 2e 6d 61 6c 6c 6f 63 28 7a 54 65 73 74 2c  e}.malloc(zTest,
6970: 20 6e 43 61 6c 6c 2c 20 6e 42 79 74 65 2c 20 6c   nCall, nByte, l
6980: 53 74 61 63 6b 29 3b 22 0a 0a 20 20 73 65 74 20  Stack);"..  set 
6990: 73 71 6c 20 22 22 0a 20 20 66 6f 72 65 61 63 68  sql "".  foreach
69a0: 20 65 20 24 64 61 74 61 20 7b 0a 20 20 20 20 73   e $data {.    s
69b0: 65 74 20 6e 43 61 6c 6c 20 5b 6c 69 6e 64 65 78  et nCall [lindex
69c0: 20 24 65 20 30 5d 0a 20 20 20 20 73 65 74 20 6e   $e 0].    set n
69d0: 42 79 74 65 20 5b 6c 69 6e 64 65 78 20 24 65 20  Byte [lindex $e 
69e0: 31 5d 0a 20 20 20 20 73 65 74 20 6c 53 74 61 63  1].    set lStac
69f0: 6b 20 5b 6c 72 61 6e 67 65 20 24 65 20 32 20 65  k [lrange $e 2 e
6a00: 6e 64 5d 0a 20 20 20 20 61 70 70 65 6e 64 20 73  nd].    append s
6a10: 71 6c 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20  ql "INSERT INTO 
6a20: 24 7b 64 61 74 61 62 61 73 65 7d 2e 6d 61 6c 6c  ${database}.mall
6a30: 6f 63 20 56 41 4c 55 45 53 22 0a 20 20 20 20 61  oc VALUES".    a
6a40: 70 70 65 6e 64 20 73 71 6c 20 22 28 27 74 65 73  ppend sql "('tes
6a50: 74 27 2c 20 24 6e 43 61 6c 6c 2c 20 24 6e 42 79  t', $nCall, $nBy
6a60: 74 65 2c 20 27 24 6c 53 74 61 63 6b 27 29 3b 5c  te, '$lStack');\
6a70: 6e 22 0a 20 20 20 20 66 6f 72 65 61 63 68 20 66  n".    foreach f
6a80: 20 24 6c 53 74 61 63 6b 20 7b 0a 20 20 20 20 20   $lStack {.     
6a90: 20 73 65 74 20 66 72 61 6d 65 73 28 24 66 29 20   set frames($f) 
6aa0: 31 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 73  1.    }.  }..  s
6ab0: 65 74 20 74 62 6c 32 20 22 43 52 45 41 54 45 20  et tbl2 "CREATE 
6ac0: 54 41 42 4c 45 20 24 7b 64 61 74 61 62 61 73 65  TABLE ${database
6ad0: 7d 2e 66 72 61 6d 65 28 66 72 61 6d 65 20 49 4e  }.frame(frame IN
6ae0: 54 45 47 45 52 20 50 52 49 4d 41 52 59 20 4b 45  TEGER PRIMARY KE
6af0: 59 2c 20 6c 69 6e 65 29 3b 5c 6e 22 0a 20 20 73  Y, line);\n".  s
6b00: 65 74 20 74 62 6c 33 20 22 43 52 45 41 54 45 20  et tbl3 "CREATE 
6b10: 54 41 42 4c 45 20 24 7b 64 61 74 61 62 61 73 65  TABLE ${database
6b20: 7d 2e 66 69 6c 65 28 6e 61 6d 65 20 50 52 49 4d  }.file(name PRIM
6b30: 41 52 59 20 4b 45 59 2c 20 63 6f 6e 74 65 6e 74  ARY KEY, content
6b40: 29 3b 5c 6e 22 0a 0a 20 20 66 6f 72 65 61 63 68  );\n"..  foreach
6b50: 20 66 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20   f [array names 
6b60: 66 72 61 6d 65 73 5d 20 7b 0a 20 20 20 20 73 65  frames] {.    se
6b70: 74 20 61 64 64 72 20 5b 66 6f 72 6d 61 74 20 25  t addr [format %
6b80: 78 20 24 66 5d 0a 20 20 20 20 73 65 74 20 63 6d  x $f].    set cm
6b90: 64 20 22 61 64 64 72 32 6c 69 6e 65 20 2d 65 20  d "addr2line -e 
6ba0: 5b 69 6e 66 6f 20 6e 61 6d 65 6f 66 65 78 65 63  [info nameofexec
6bb0: 5d 20 24 61 64 64 72 22 0a 20 20 20 20 73 65 74  ] $addr".    set
6bc0: 20 6c 69 6e 65 20 5b 65 76 61 6c 20 65 78 65 63   line [eval exec
6bd0: 20 24 63 6d 64 5d 0a 20 20 20 20 61 70 70 65 6e   $cmd].    appen
6be0: 64 20 73 71 6c 20 22 49 4e 53 45 52 54 20 49 4e  d sql "INSERT IN
6bf0: 54 4f 20 24 7b 64 61 74 61 62 61 73 65 7d 2e 66  TO ${database}.f
6c00: 72 61 6d 65 20 56 41 4c 55 45 53 28 24 66 2c 20  rame VALUES($f, 
6c10: 27 24 6c 69 6e 65 27 29 3b 5c 6e 22 0a 0a 20 20  '$line');\n"..  
6c20: 20 20 73 65 74 20 66 69 6c 65 20 5b 6c 69 6e 64    set file [lind
6c30: 65 78 20 5b 73 70 6c 69 74 20 24 6c 69 6e 65 20  ex [split $line 
6c40: 3a 5d 20 30 5d 0a 20 20 20 20 73 65 74 20 66 69  :] 0].    set fi
6c50: 6c 65 73 28 24 66 69 6c 65 29 20 31 0a 20 20 7d  les($file) 1.  }
6c60: 0a 0a 20 20 66 6f 72 65 61 63 68 20 66 20 5b 61  ..  foreach f [a
6c70: 72 72 61 79 20 6e 61 6d 65 73 20 66 69 6c 65 73  rray names files
6c80: 5d 20 7b 0a 20 20 20 20 73 65 74 20 63 6f 6e 74  ] {.    set cont
6c90: 65 6e 74 73 20 22 22 0a 20 20 20 20 63 61 74 63  ents "".    catc
6ca0: 68 20 7b 0a 20 20 20 20 20 20 73 65 74 20 66 64  h {.      set fd
6cb0: 20 5b 6f 70 65 6e 20 24 66 5d 0a 20 20 20 20 20   [open $f].     
6cc0: 20 73 65 74 20 63 6f 6e 74 65 6e 74 73 20 5b 72   set contents [r
6cd0: 65 61 64 20 24 66 64 5d 0a 20 20 20 20 20 20 63  ead $fd].      c
6ce0: 6c 6f 73 65 20 24 66 64 0a 20 20 20 20 7d 0a 20  lose $fd.    }. 
6cf0: 20 20 20 73 65 74 20 63 6f 6e 74 65 6e 74 73 20     set contents 
6d00: 5b 73 74 72 69 6e 67 20 6d 61 70 20 7b 27 20 27  [string map {' '
6d10: 27 7d 20 24 63 6f 6e 74 65 6e 74 73 5d 0a 20 20  '} $contents].  
6d20: 20 20 61 70 70 65 6e 64 20 73 71 6c 20 22 49 4e    append sql "IN
6d30: 53 45 52 54 20 49 4e 54 4f 20 24 7b 64 61 74 61  SERT INTO ${data
6d40: 62 61 73 65 7d 2e 66 69 6c 65 20 56 41 4c 55 45  base}.file VALUE
6d50: 53 28 27 24 66 27 2c 20 27 24 63 6f 6e 74 65 6e  S('$f', '$conten
6d60: 74 73 27 29 3b 5c 6e 22 0a 20 20 7d 0a 0a 20 20  ts');\n".  }..  
6d70: 73 65 74 20 66 64 20 5b 6f 70 65 6e 20 24 66 69  set fd [open $fi
6d80: 6c 65 6e 61 6d 65 20 77 5d 0a 20 20 70 75 74 73  lename w].  puts
6d90: 20 24 66 64 20 22 42 45 47 49 4e 3b 20 24 7b 74   $fd "BEGIN; ${t
6da0: 62 6c 7d 24 7b 74 62 6c 32 7d 24 7b 74 62 6c 33  bl}${tbl2}${tbl3
6db0: 7d 24 7b 73 71 6c 7d 20 3b 20 43 4f 4d 4d 49 54  }${sql} ; COMMIT
6dc0: 3b 22 0a 20 20 63 6c 6f 73 65 20 24 66 64 0a 7d  ;".  close $fd.}
6dd0: 0a 0a 23 20 43 6f 70 79 20 66 69 6c 65 20 24 66  ..# Copy file $f
6de0: 72 6f 6d 20 69 6e 74 6f 20 24 74 6f 2e 20 54 68  rom into $to. Th
6df0: 69 73 20 69 73 20 75 73 65 64 20 62 65 63 61 75  is is used becau
6e00: 73 65 20 73 6f 6d 65 20 76 65 72 73 69 6f 6e 73  se some versions
6e10: 20 6f 66 0a 23 20 54 43 4c 20 66 6f 72 20 77 69   of.# TCL for wi
6e20: 6e 64 6f 77 73 20 28 6e 6f 74 61 62 6c 79 20 74  ndows (notably t
6e30: 68 65 20 38 2e 34 2e 31 20 62 69 6e 61 72 79 20  he 8.4.1 binary 
6e40: 70 61 63 6b 61 67 65 20 73 68 69 70 70 65 64 20  package shipped 
6e50: 77 69 74 68 20 74 68 65 0a 23 20 63 75 72 72 65  with the.# curre
6e60: 6e 74 20 6d 69 6e 67 77 20 72 65 6c 65 61 73 65  nt mingw release
6e70: 29 20 68 61 76 65 20 61 20 62 72 6f 6b 65 6e 20  ) have a broken 
6e80: 22 66 69 6c 65 20 63 6f 70 79 22 20 63 6f 6d 6d  "file copy" comm
6e90: 61 6e 64 2e 0a 23 0a 70 72 6f 63 20 63 6f 70 79  and..#.proc copy
6ea0: 5f 66 69 6c 65 20 7b 66 72 6f 6d 20 74 6f 7d 20  _file {from to} 
6eb0: 7b 0a 20 20 69 66 20 7b 24 3a 3a 74 63 6c 5f 70  {.  if {$::tcl_p
6ec0: 6c 61 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d  latform(platform
6ed0: 29 3d 3d 22 75 6e 69 78 22 7d 20 7b 0a 20 20 20  )=="unix"} {.   
6ee0: 20 66 69 6c 65 20 63 6f 70 79 20 2d 66 6f 72 63   file copy -forc
6ef0: 65 20 24 66 72 6f 6d 20 24 74 6f 0a 20 20 7d 20  e $from $to.  } 
6f00: 65 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20 66  else {.    set f
6f10: 20 5b 6f 70 65 6e 20 24 66 72 6f 6d 5d 0a 20 20   [open $from].  
6f20: 20 20 66 63 6f 6e 66 69 67 75 72 65 20 24 66 20    fconfigure $f 
6f30: 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e  -translation bin
6f40: 61 72 79 0a 20 20 20 20 73 65 74 20 74 20 5b 6f  ary.    set t [o
6f50: 70 65 6e 20 24 74 6f 20 77 5d 0a 20 20 20 20 66  pen $to w].    f
6f60: 63 6f 6e 66 69 67 75 72 65 20 24 74 20 2d 74 72  configure $t -tr
6f70: 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72 79  anslation binary
6f80: 0a 20 20 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77  .    puts -nonew
6f90: 6c 69 6e 65 20 24 74 20 5b 72 65 61 64 20 24 66  line $t [read $f
6fa0: 20 5b 66 69 6c 65 20 73 69 7a 65 20 24 66 72 6f   [file size $fro
6fb0: 6d 5d 5d 0a 20 20 20 20 63 6c 6f 73 65 20 24 74  m]].    close $t
6fc0: 0a 20 20 20 20 63 6c 6f 73 65 20 24 66 0a 20 20  .    close $f.  
6fd0: 7d 0a 7d 0a 0a 23 20 49 66 20 74 68 65 20 6c 69  }.}..# If the li
6fe0: 62 72 61 72 79 20 69 73 20 63 6f 6d 70 69 6c 65  brary is compile
6ff0: 64 20 77 69 74 68 20 74 68 65 20 53 51 4c 49 54  d with the SQLIT
7000: 45 5f 44 45 46 41 55 4c 54 5f 41 55 54 4f 56 41  E_DEFAULT_AUTOVA
7010: 43 55 55 4d 20 6d 61 63 72 6f 20 73 65 74 0a 23  CUUM macro set.#
7020: 20 74 6f 20 6e 6f 6e 2d 7a 65 72 6f 2c 20 74 68   to non-zero, th
7030: 65 6e 20 73 65 74 20 74 68 65 20 67 6c 6f 62 61  en set the globa
7040: 6c 20 76 61 72 69 61 62 6c 65 20 24 41 55 54 4f  l variable $AUTO
7050: 56 41 43 55 55 4d 20 74 6f 20 31 2e 0a 73 65 74  VACUUM to 1..set
7060: 20 41 55 54 4f 56 41 43 55 55 4d 20 24 73 71 6c   AUTOVACUUM $sql
7070: 69 74 65 5f 6f 70 74 69 6f 6e 73 28 64 65 66 61  ite_options(defa
7080: 75 6c 74 5f 61 75 74 6f 76 61 63 75 75 6d 29 0a  ult_autovacuum).
7090: 0a 73 6f 75 72 63 65 20 24 74 65 73 74 64 69 72  .source $testdir
70a0: 2f 74 68 72 65 61 64 5f 63 6f 6d 6d 6f 6e 2e 74  /thread_common.t
70b0: 63 6c 0a                                         cl.