/ Hex Artifact Content
Login

Artifact 6fa3d2f581b479a3a088b1b5b0d145e548ebe662:


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 33 20 32 30 30 39 2f 30 34 2f 30   1.143 2009/04/0
01f0: 39 20 30 31 3a 32 33 3a 34 39 20 64 72 68 20 45  9 01:23:49 drh E
0200: 78 70 20 24 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d  xp $..#---------
0210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0250: 0a 23 20 54 68 65 20 63 6f 6d 6d 61 6e 64 73 20  .# The commands 
0260: 70 72 6f 76 69 64 65 64 20 62 79 20 74 68 65 20  provided by the 
0270: 63 6f 64 65 20 69 6e 20 74 68 69 73 20 66 69 6c  code in this fil
0280: 65 20 74 6f 20 68 65 6c 70 20 77 69 74 68 20 63  e to help with c
0290: 72 65 61 74 69 6e 67 20 0a 23 20 74 65 73 74 20  reating .# test 
02a0: 63 61 73 65 73 20 61 72 65 20 61 73 20 66 6f 6c  cases are as fol
02b0: 6c 6f 77 73 3a 0a 23 0a 23 20 43 6f 6d 6d 61 6e  lows:.#.# Comman
02c0: 64 73 20 74 6f 20 6d 61 6e 69 70 75 6c 61 74 65  ds to manipulate
02d0: 20 74 68 65 20 64 62 20 61 6e 64 20 74 68 65 20   the db and the 
02e0: 66 69 6c 65 2d 73 79 73 74 65 6d 20 61 74 20 61  file-system at a
02f0: 20 68 69 67 68 20 6c 65 76 65 6c 3a 0a 23 0a 23   high level:.#.#
0300: 20 20 20 20 20 20 63 6f 70 79 5f 66 69 6c 65 20        copy_file 
0310: 20 20 20 20 20 20 20 20 20 20 20 20 20 46 52 4f               FRO
0320: 4d 20 54 4f 0a 23 20 20 20 20 20 20 64 72 6f 70  M TO.#      drop
0330: 5f 61 6c 6c 5f 74 61 62 6c 65 20 20 20 20 20 20  _all_table      
0340: 20 20 20 3f 44 42 3f 0a 23 20 20 20 20 20 20 66     ?DB?.#      f
0350: 6f 72 63 65 64 65 6c 65 74 65 20 20 20 20 20 20  orcedelete      
0360: 20 20 20 20 20 20 46 49 4c 45 4e 41 4d 45 0a 23        FILENAME.#
0370: 0a 23 20 54 65 73 74 20 74 68 65 20 63 61 70 61  .# Test the capa
0380: 62 69 6c 69 74 79 20 6f 66 20 74 68 65 20 53 51  bility of the SQ
0390: 4c 69 74 65 20 76 65 72 73 69 6f 6e 20 62 75 69  Lite version bui
03a0: 6c 74 20 69 6e 74 6f 20 74 68 65 20 69 6e 74 65  lt into the inte
03b0: 72 70 72 65 74 65 72 20 74 6f 0a 23 20 64 65 74  rpreter to.# det
03c0: 65 72 6d 69 6e 65 20 69 66 20 61 20 73 70 65 63  ermine if a spec
03d0: 69 66 69 63 20 74 65 73 74 20 63 61 6e 20 62 65  ific test can be
03e0: 20 72 75 6e 3a 0a 23 0a 23 20 20 20 20 20 20 69   run:.#.#      i
03f0: 66 63 61 70 61 62 6c 65 20 20 20 20 20 20 20 20  fcapable        
0400: 20 20 20 20 20 20 45 58 50 52 0a 23 0a 23 20 43        EXPR.#.# C
0410: 61 6c 75 6c 61 74 65 20 63 68 65 63 6b 73 75 6d  alulate checksum
0420: 73 20 62 61 73 65 64 20 6f 6e 20 64 61 74 61 62  s based on datab
0430: 61 73 65 20 63 6f 6e 74 65 6e 74 73 3a 0a 23 0a  ase contents:.#.
0440: 23 20 20 20 20 20 20 64 62 63 6b 73 75 6d 20 20  #      dbcksum  
0450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 42                DB
0460: 20 44 42 4e 41 4d 45 0a 23 20 20 20 20 20 20 61   DBNAME.#      a
0470: 6c 6c 63 6b 73 75 6d 20 20 20 20 20 20 20 20 20  llcksum         
0480: 20 20 20 20 20 20 3f 44 42 3f 0a 23 20 20 20 20        ?DB?.#    
0490: 20 20 63 6b 73 75 6d 20 20 20 20 20 20 20 20 20    cksum         
04a0: 20 20 20 20 20 20 20 20 20 3f 44 42 3f 0a 23 0a           ?DB?.#.
04b0: 23 20 43 6f 6d 6d 61 6e 64 73 20 74 6f 20 65 78  # Commands to ex
04c0: 65 63 75 74 65 2f 65 78 70 6c 61 69 6e 20 53 51  ecute/explain SQ
04d0: 4c 20 73 74 61 74 65 6d 65 6e 74 73 3a 0a 23 0a  L statements:.#.
04e0: 23 20 20 20 20 20 20 73 74 65 70 73 71 6c 20 20  #      stepsql  
04f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 42                DB
0500: 20 53 51 4c 0a 23 20 20 20 20 20 20 65 78 65 63   SQL.#      exec
0510: 73 71 6c 32 20 20 20 20 20 20 20 20 20 20 20 20  sql2            
0520: 20 20 20 53 51 4c 0a 23 20 20 20 20 20 20 65 78     SQL.#      ex
0530: 70 6c 61 69 6e 5f 6e 6f 5f 74 72 61 63 65 20 20  plain_no_trace  
0540: 20 20 20 20 20 53 51 4c 0a 23 20 20 20 20 20 20       SQL.#      
0550: 65 78 70 6c 61 69 6e 20 20 20 20 20 20 20 20 20  explain         
0560: 20 20 20 20 20 20 20 53 51 4c 20 3f 44 42 3f 0a         SQL ?DB?.
0570: 23 20 20 20 20 20 20 63 61 74 63 68 73 71 6c 20  #      catchsql 
0580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51                SQ
0590: 4c 20 3f 44 42 3f 0a 23 20 20 20 20 20 20 65 78  L ?DB?.#      ex
05a0: 65 63 73 71 6c 20 20 20 20 20 20 20 20 20 20 20  ecsql           
05b0: 20 20 20 20 20 53 51 4c 20 3f 44 42 3f 0a 23 0a       SQL ?DB?.#.
05c0: 23 20 43 6f 6d 6d 61 6e 64 73 20 74 6f 20 72 75  # Commands to ru
05d0: 6e 20 74 65 73 74 20 63 61 73 65 73 3a 0a 23 0a  n test cases:.#.
05e0: 23 20 20 20 20 20 20 64 6f 5f 69 6f 65 72 72 5f  #      do_ioerr_
05f0: 74 65 73 74 20 20 20 20 20 20 20 20 20 20 54 45  test          TE
0600: 53 54 4e 41 4d 45 20 41 52 47 53 2e 2e 2e 0a 23  STNAME ARGS....#
0610: 20 20 20 20 20 20 63 72 61 73 68 73 71 6c 20 20        crashsql  
0620: 20 20 20 20 20 20 20 20 20 20 20 20 20 41 52 47               ARG
0630: 53 2e 2e 2e 0a 23 20 20 20 20 20 20 69 6e 74 65  S....#      inte
0640: 67 72 69 74 79 5f 63 68 65 63 6b 20 20 20 20 20  grity_check     
0650: 20 20 20 54 45 53 54 4e 41 4d 45 20 3f 44 42 3f     TESTNAME ?DB?
0660: 0a 23 20 20 20 20 20 20 64 6f 5f 74 65 73 74 20  .#      do_test 
0670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54                 T
0680: 45 53 54 4e 41 4d 45 20 53 43 52 49 50 54 20 45  ESTNAME SCRIPT E
0690: 58 50 45 43 54 45 44 0a 23 20 20 20 20 20 20 64  XPECTED.#      d
06a0: 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74 20 20  o_execsql_test  
06b0: 20 20 20 20 20 20 54 45 53 54 4e 41 4d 45 20 53        TESTNAME S
06c0: 51 4c 20 45 58 50 45 43 54 45 44 0a 23 20 20 20  QL EXPECTED.#   
06d0: 20 20 20 64 6f 5f 63 61 74 63 68 73 71 6c 5f 74     do_catchsql_t
06e0: 65 73 74 20 20 20 20 20 20 20 54 45 53 54 4e 41  est       TESTNA
06f0: 4d 45 20 53 51 4c 20 45 58 50 45 43 54 45 44 0a  ME SQL EXPECTED.
0700: 23 0a 23 20 43 6f 6d 6d 61 6e 64 73 20 70 72 6f  #.# Commands pro
0710: 76 69 64 69 6e 67 20 61 20 6c 6f 77 65 72 20 6c  viding a lower l
0720: 65 76 65 6c 20 69 6e 74 65 72 66 61 63 65 20 74  evel interface t
0730: 6f 20 74 68 65 20 67 6c 6f 62 61 6c 20 74 65 73  o the global tes
0740: 74 20 63 6f 75 6e 74 65 72 73 3a 0a 23 0a 23 20  t counters:.#.# 
0750: 20 20 20 20 20 73 65 74 5f 74 65 73 74 5f 63 6f       set_test_co
0760: 75 6e 74 65 72 20 20 20 20 20 20 20 43 4f 55 4e  unter       COUN
0770: 54 45 52 20 3f 56 41 4c 55 45 3f 0a 23 20 20 20  TER ?VALUE?.#   
0780: 20 20 20 6f 6d 69 74 5f 74 65 73 74 20 20 20 20     omit_test    
0790: 20 20 20 20 20 20 20 20 20 20 54 45 53 54 4e 41            TESTNA
07a0: 4d 45 20 52 45 41 53 4f 4e 0a 23 20 20 20 20 20  ME REASON.#     
07b0: 20 66 61 69 6c 5f 74 65 73 74 20 20 20 20 20 20   fail_test      
07c0: 20 20 20 20 20 20 20 20 54 45 53 54 4e 41 4d 45          TESTNAME
07d0: 0a 23 20 20 20 20 20 20 69 6e 63 72 5f 6e 74 65  .#      incr_nte
07e0: 73 74 0a 23 0a 23 20 43 6f 6d 6d 61 6e 64 20 72  st.#.# Command r
07f0: 75 6e 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66  un at the end of
0800: 20 65 61 63 68 20 74 65 73 74 20 66 69 6c 65 3a   each test file:
0810: 0a 23 0a 23 20 20 20 20 20 20 66 69 6e 69 73 68  .#.#      finish
0820: 5f 74 65 73 74 0a 23 0a 23 20 43 6f 6d 6d 61 6e  _test.#.# Comman
0830: 64 73 20 74 6f 20 68 65 6c 70 20 63 72 65 61 74  ds to help creat
0840: 65 20 74 65 73 74 20 66 69 6c 65 73 20 74 68 61  e test files tha
0850: 74 20 72 75 6e 20 77 69 74 68 20 74 68 65 20 22  t run with the "
0860: 57 41 4c 22 20 61 6e 64 20 6f 74 68 65 72 0a 23  WAL" and other.#
0870: 20 70 65 72 6d 75 74 61 74 69 6f 6e 73 20 28 73   permutations (s
0880: 65 65 20 66 69 6c 65 20 70 65 72 6d 75 74 61 74  ee file permutat
0890: 69 6f 6e 73 2e 74 65 73 74 29 3a 0a 23 0a 23 20  ions.test):.#.# 
08a0: 20 20 20 20 20 77 61 6c 5f 69 73 5f 77 61 6c 5f       wal_is_wal_
08b0: 6d 6f 64 65 0a 23 20 20 20 20 20 20 77 61 6c 5f  mode.#      wal_
08c0: 73 65 74 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65  set_journal_mode
08d0: 20 20 20 3f 44 42 3f 0a 23 20 20 20 20 20 20 77     ?DB?.#      w
08e0: 61 6c 5f 63 68 65 63 6b 5f 6a 6f 75 72 6e 61 6c  al_check_journal
08f0: 5f 6d 6f 64 65 20 54 45 53 54 4e 41 4d 45 3f 44  _mode TESTNAME?D
0900: 42 3f 0a 23 20 20 20 20 20 20 70 65 72 6d 75 74  B?.#      permut
0910: 61 74 69 6f 6e 0a 23 20 20 20 20 20 20 70 72 65  ation.#      pre
0920: 73 71 6c 0a 23 0a 0a 23 20 53 65 74 20 74 68 65  sql.#..# Set the
0930: 20 70 72 65 63 69 73 69 6f 6e 20 6f 66 20 46 50   precision of FP
0940: 20 61 72 69 74 68 6d 61 74 69 63 20 75 73 65 64   arithmatic used
0950: 20 62 79 20 74 68 65 20 69 6e 74 65 72 70 72 65   by the interpre
0960: 74 65 72 2e 20 41 6e 64 20 0a 23 20 63 6f 6e 66  ter. And .# conf
0970: 69 67 75 72 65 20 53 51 4c 69 74 65 20 74 6f 20  igure SQLite to 
0980: 74 61 6b 65 20 64 61 74 61 62 61 73 65 20 66 69  take database fi
0990: 6c 65 20 6c 6f 63 6b 73 20 6f 6e 20 74 68 65 20  le locks on the 
09a0: 70 61 67 65 20 74 68 61 74 20 62 65 67 69 6e 73  page that begins
09b0: 0a 23 20 36 34 4b 42 20 69 6e 74 6f 20 74 68 65  .# 64KB into the
09c0: 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 69   database file i
09d0: 6e 73 74 65 61 64 20 6f 66 20 74 68 65 20 6f 6e  nstead of the on
09e0: 65 20 31 47 42 20 69 6e 2e 20 54 68 69 73 20 6d  e 1GB in. This m
09f0: 65 61 6e 73 0a 23 20 74 68 65 20 63 6f 64 65 20  eans.# the code 
0a00: 74 68 61 74 20 68 61 6e 64 6c 65 73 20 74 68 61  that handles tha
0a10: 74 20 73 70 65 63 69 61 6c 20 63 61 73 65 20 63  t special case c
0a20: 61 6e 20 62 65 20 74 65 73 74 65 64 20 77 69 74  an be tested wit
0a30: 68 6f 75 74 20 63 72 65 61 74 69 6e 67 0a 23 20  hout creating.# 
0a40: 76 65 72 79 20 6c 61 72 67 65 20 64 61 74 61 62  very large datab
0a50: 61 73 65 20 66 69 6c 65 73 2e 0a 23 0a 73 65 74  ase files..#.set
0a60: 20 74 63 6c 5f 70 72 65 63 69 73 69 6f 6e 20 31   tcl_precision 1
0a70: 35 0a 73 71 6c 69 74 65 33 5f 74 65 73 74 5f 63  5.sqlite3_test_c
0a80: 6f 6e 74 72 6f 6c 5f 70 65 6e 64 69 6e 67 5f 62  ontrol_pending_b
0a90: 79 74 65 20 30 78 30 30 31 30 30 30 30 0a 0a 0a  yte 0x0010000...
0aa0: 23 20 49 66 20 74 68 65 20 70 61 67 65 72 20 63  # If the pager c
0ab0: 6f 64 65 63 20 69 73 20 61 76 61 69 6c 61 62 6c  odec is availabl
0ac0: 65 2c 20 63 72 65 61 74 65 20 61 20 77 72 61 70  e, create a wrap
0ad0: 70 65 72 20 66 6f 72 20 74 68 65 20 5b 73 71 6c  per for the [sql
0ae0: 69 74 65 33 5d 20 0a 23 20 63 6f 6d 6d 61 6e 64  ite3] .# command
0af0: 20 74 68 61 74 20 61 70 70 65 6e 64 73 20 22 2d   that appends "-
0b00: 6b 65 79 20 7b 78 79 7a 7a 79 7d 22 20 74 6f 20  key {xyzzy}" to 
0b10: 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65  the command line
0b20: 2e 20 69 2e 65 2e 20 74 68 69 73 3a 0a 23 0a 23  . i.e. this:.#.#
0b30: 20 20 20 20 20 73 71 6c 69 74 65 33 20 64 62 20       sqlite3 db 
0b40: 74 65 73 74 2e 64 62 0a 23 0a 23 20 62 65 63 6f  test.db.#.# beco
0b50: 6d 65 73 0a 23 0a 23 20 20 20 20 20 73 71 6c 69  mes.#.#     sqli
0b60: 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 20 2d  te3 db test.db -
0b70: 6b 65 79 20 7b 78 79 7a 7a 79 7d 0a 23 0a 69 66  key {xyzzy}.#.if
0b80: 20 7b 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 20   {[info command 
0b90: 73 71 6c 69 74 65 5f 6f 72 69 67 5d 3d 3d 22 22  sqlite_orig]==""
0ba0: 7d 20 7b 0a 20 20 72 65 6e 61 6d 65 20 73 71 6c  } {.  rename sql
0bb0: 69 74 65 33 20 73 71 6c 69 74 65 5f 6f 72 69 67  ite3 sqlite_orig
0bc0: 0a 20 20 70 72 6f 63 20 73 71 6c 69 74 65 33 20  .  proc sqlite3 
0bd0: 7b 61 72 67 73 7d 20 7b 0a 20 20 20 20 69 66 20  {args} {.    if 
0be0: 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 73 5d  {[llength $args]
0bf0: 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e 67 20 69  >=2 && [string i
0c00: 6e 64 65 78 20 5b 6c 69 6e 64 65 78 20 24 61 72  ndex [lindex $ar
0c10: 67 73 20 30 5d 20 30 5d 21 3d 22 2d 22 7d 20 7b  gs 0] 0]!="-"} {
0c20: 0a 20 20 20 20 20 20 23 20 54 68 69 73 20 63 6f  .      # This co
0c30: 6d 6d 61 6e 64 20 69 73 20 6f 70 65 6e 69 6e 67  mmand is opening
0c40: 20 61 20 6e 65 77 20 64 61 74 61 62 61 73 65 20   a new database 
0c50: 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 20 20 20 20  connection..    
0c60: 20 20 23 0a 20 20 20 20 20 20 69 66 20 7b 5b 69    #.      if {[i
0c70: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 47 28 70  nfo exists ::G(p
0c80: 65 72 6d 3a 73 71 6c 69 74 65 33 5f 61 72 67 73  erm:sqlite3_args
0c90: 29 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 73 65  )]} {.        se
0ca0: 74 20 61 72 67 73 20 5b 63 6f 6e 63 61 74 20 24  t args [concat $
0cb0: 61 72 67 73 20 24 3a 3a 47 28 70 65 72 6d 3a 73  args $::G(perm:s
0cc0: 71 6c 69 74 65 33 5f 61 72 67 73 29 5d 0a 20 20  qlite3_args)].  
0cd0: 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66 20 7b      }.      if {
0ce0: 5b 73 71 6c 69 74 65 5f 6f 72 69 67 20 2d 68 61  [sqlite_orig -ha
0cf0: 73 2d 63 6f 64 65 63 5d 20 26 26 20 21 5b 69 6e  s-codec] && ![in
0d00: 66 6f 20 65 78 69 73 74 73 20 3a 3a 64 6f 5f 6e  fo exists ::do_n
0d10: 6f 74 5f 75 73 65 5f 63 6f 64 65 63 5d 7d 20 7b  ot_use_codec]} {
0d20: 0a 20 20 20 20 20 20 20 20 6c 61 70 70 65 6e 64  .        lappend
0d30: 20 61 72 67 73 20 2d 6b 65 79 20 7b 78 79 7a 7a   args -key {xyzz
0d40: 79 7d 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20 20  y}.      }..    
0d50: 20 20 73 65 74 20 72 65 73 20 5b 75 70 6c 65 76    set res [uplev
0d60: 65 6c 20 31 20 73 71 6c 69 74 65 5f 6f 72 69 67  el 1 sqlite_orig
0d70: 20 24 61 72 67 73 5d 0a 20 20 20 20 20 20 69 66   $args].      if
0d80: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
0d90: 3a 47 28 70 65 72 6d 3a 70 72 65 73 71 6c 29 5d  :G(perm:presql)]
0da0: 7d 20 7b 0a 20 20 20 20 20 20 20 20 5b 6c 69 6e  } {.        [lin
0db0: 64 65 78 20 24 61 72 67 73 20 30 5d 20 65 76 61  dex $args 0] eva
0dc0: 6c 20 24 3a 3a 47 28 70 65 72 6d 3a 70 72 65 73  l $::G(perm:pres
0dd0: 71 6c 29 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  ql).      }.    
0de0: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73    if {[info exis
0df0: 74 73 20 3a 3a 47 28 70 65 72 6d 3a 64 62 63 6f  ts ::G(perm:dbco
0e00: 6e 66 69 67 29 5d 7d 20 7b 0a 20 20 20 20 20 20  nfig)]} {.      
0e10: 20 20 73 65 74 20 3a 3a 64 62 68 61 6e 64 6c 65    set ::dbhandle
0e20: 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20 30   [lindex $args 0
0e30: 5d 0a 20 20 20 20 20 20 20 20 75 70 6c 65 76 65  ].        upleve
0e40: 6c 20 23 30 20 24 3a 3a 47 28 70 65 72 6d 3a 64  l #0 $::G(perm:d
0e50: 62 63 6f 6e 66 69 67 29 0a 20 20 20 20 20 20 7d  bconfig).      }
0e60: 0a 20 20 20 20 20 20 73 65 74 20 72 65 73 0a 20  .      set res. 
0e70: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20     } else {.    
0e80: 20 20 23 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64    # This command
0e90: 20 69 73 20 6e 6f 74 20 6f 70 65 6e 69 6e 67 20   is not opening 
0ea0: 61 20 6e 65 77 20 64 61 74 61 62 61 73 65 20 63  a new database c
0eb0: 6f 6e 6e 65 63 74 69 6f 6e 2e 20 50 61 73 73 20  onnection. Pass 
0ec0: 74 68 65 20 0a 20 20 20 20 20 20 23 20 61 72 67  the .      # arg
0ed0: 75 6d 65 6e 74 73 20 74 68 72 6f 75 67 68 20 74  uments through t
0ee0: 6f 20 74 68 65 20 43 20 69 6d 70 6c 65 6d 65 6e  o the C implemen
0ef0: 61 74 69 6f 6e 20 61 73 20 74 68 65 20 61 72 65  ation as the are
0f00: 2e 0a 20 20 20 20 20 20 23 0a 20 20 20 20 20 20  ..      #.      
0f10: 75 70 6c 65 76 65 6c 20 31 20 73 71 6c 69 74 65  uplevel 1 sqlite
0f20: 5f 6f 72 69 67 20 24 61 72 67 73 0a 20 20 20 20  _orig $args.    
0f30: 7d 0a 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20 65 78  }.  }.}..proc ex
0f40: 65 63 70 72 65 73 71 6c 20 7b 68 61 6e 64 6c 65  ecpresql {handle
0f50: 20 61 72 67 73 7d 20 7b 0a 20 20 74 72 61 63 65   args} {.  trace
0f60: 20 72 65 6d 6f 76 65 20 65 78 65 63 75 74 69 6f   remove executio
0f70: 6e 20 24 68 61 6e 64 6c 65 20 65 6e 74 65 72 20  n $handle enter 
0f80: 5b 6c 69 73 74 20 65 78 65 63 70 72 65 73 71 6c  [list execpresql
0f90: 20 24 68 61 6e 64 6c 65 5d 0a 20 20 69 66 20 7b   $handle].  if {
0fa0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 47  [info exists ::G
0fb0: 28 70 65 72 6d 3a 70 72 65 73 71 6c 29 5d 7d 20  (perm:presql)]} 
0fc0: 7b 0a 20 20 20 20 24 68 61 6e 64 6c 65 20 65 76  {.    $handle ev
0fd0: 61 6c 20 24 3a 3a 47 28 70 65 72 6d 3a 70 72 65  al $::G(perm:pre
0fe0: 73 71 6c 29 0a 20 20 7d 0a 7d 0a 0a 23 20 54 68  sql).  }.}..# Th
0ff0: 69 73 20 63 6f 6d 6d 61 6e 64 20 73 68 6f 75 6c  is command shoul
1000: 64 20 62 65 20 63 61 6c 6c 65 64 20 61 66 74 65  d be called afte
1010: 72 20 6c 6f 61 64 69 6e 67 20 74 65 73 74 65 72  r loading tester
1020: 2e 74 63 6c 20 66 72 6f 6d 20 77 69 74 68 69 6e  .tcl from within
1030: 0a 23 20 61 6c 6c 20 74 65 73 74 20 73 63 72 69  .# all test scri
1040: 70 74 73 20 74 68 61 74 20 61 72 65 20 69 6e 63  pts that are inc
1050: 6f 6d 70 61 74 69 62 6c 65 20 77 69 74 68 20 65  ompatible with e
1060: 6e 63 72 79 70 74 69 6f 6e 20 63 6f 64 65 63 73  ncryption codecs
1070: 2e 0a 23 0a 70 72 6f 63 20 64 6f 5f 6e 6f 74 5f  ..#.proc do_not_
1080: 75 73 65 5f 63 6f 64 65 63 20 7b 7d 20 7b 0a 20  use_codec {} {. 
1090: 20 73 65 74 20 3a 3a 64 6f 5f 6e 6f 74 5f 75 73   set ::do_not_us
10a0: 65 5f 63 6f 64 65 63 20 31 0a 20 20 72 65 73 65  e_codec 1.  rese
10b0: 74 5f 64 62 0a 7d 0a 0a 23 20 54 68 65 20 66 6f  t_db.}..# The fo
10c0: 6c 6c 6f 77 69 6e 67 20 62 6c 6f 63 6b 20 6f 6e  llowing block on
10d0: 6c 79 20 72 75 6e 73 20 74 68 65 20 66 69 72 73  ly runs the firs
10e0: 74 20 74 69 6d 65 20 74 68 69 73 20 66 69 6c 65  t time this file
10f0: 20 69 73 20 73 6f 75 72 63 65 64 2e 20 49 74 0a   is sourced. It.
1100: 23 20 64 6f 65 73 20 6e 6f 74 20 72 75 6e 20 69  # does not run i
1110: 6e 20 73 6c 61 76 65 20 69 6e 74 65 72 70 72 65  n slave interpre
1120: 74 65 72 73 20 28 73 69 6e 63 65 20 74 68 65 20  ters (since the 
1130: 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 20 61 72 72  ::cmdlinearg arr
1140: 61 79 20 69 73 0a 23 20 70 6f 70 75 6c 61 74 65  ay is.# populate
1150: 64 20 62 65 66 6f 72 65 20 74 68 65 20 74 65 73  d before the tes
1160: 74 20 73 63 72 69 70 74 20 69 73 20 72 75 6e 20  t script is run 
1170: 69 6e 20 73 6c 61 76 65 20 69 6e 74 65 72 70 72  in slave interpr
1180: 65 74 65 72 73 29 2e 0a 23 0a 69 66 20 7b 5b 69  eters)..#.if {[i
1190: 6e 66 6f 20 65 78 69 73 74 73 20 63 6d 64 6c 69  nfo exists cmdli
11a0: 6e 65 61 72 67 5d 3d 3d 30 7d 20 7b 0a 0a 20 20  nearg]==0} {..  
11b0: 23 20 50 61 72 73 65 20 61 6e 79 20 6f 70 74 69  # Parse any opti
11c0: 6f 6e 73 20 73 70 65 63 69 66 69 65 64 20 69 6e  ons specified in
11d0: 20 74 68 65 20 24 61 72 67 76 20 61 72 72 61 79   the $argv array
11e0: 2e 20 54 68 69 73 20 73 63 72 69 70 74 20 61 63  . This script ac
11f0: 63 65 70 74 73 20 74 68 65 20 0a 20 20 23 20 66  cepts the .  # f
1200: 6f 6c 6c 6f 77 69 6e 67 20 6f 70 74 69 6f 6e 73  ollowing options
1210: 3a 20 0a 20 20 23 0a 20 20 23 20 20 20 2d 2d 70  : .  #.  #   --p
1220: 61 75 73 65 0a 20 20 23 20 20 20 2d 2d 73 6f 66  ause.  #   --sof
1230: 74 2d 68 65 61 70 2d 6c 69 6d 69 74 3d 4e 4e 0a  t-heap-limit=NN.
1240: 20 20 23 20 20 20 2d 2d 6d 61 78 65 72 72 6f 72    #   --maxerror
1250: 3d 4e 4e 0a 20 20 23 20 20 20 2d 2d 6d 61 6c 6c  =NN.  #   --mall
1260: 6f 63 74 72 61 63 65 3d 4e 0a 20 20 23 20 20 20  octrace=N.  #   
1270: 2d 2d 62 61 63 6b 74 72 61 63 65 3d 4e 0a 20 20  --backtrace=N.  
1280: 23 20 20 20 2d 2d 62 69 6e 61 72 79 6c 6f 67 3d  #   --binarylog=
1290: 4e 0a 20 20 23 20 20 20 2d 2d 73 6f 61 6b 3d 4e  N.  #   --soak=N
12a0: 0a 20 20 23 20 20 20 2d 2d 73 74 61 72 74 3d 5b  .  #   --start=[
12b0: 24 70 65 72 6d 75 74 61 74 69 6f 6e 3a 5d 24 74  $permutation:]$t
12c0: 65 73 74 66 69 6c 65 0a 20 20 23 0a 20 20 73 65  estfile.  #.  se
12d0: 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 73 6f 66  t cmdlinearg(sof
12e0: 74 2d 68 65 61 70 2d 6c 69 6d 69 74 29 20 20 20  t-heap-limit)   
12f0: 20 30 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e 65   0.  set cmdline
1300: 61 72 67 28 6d 61 78 65 72 72 6f 72 29 20 20 20  arg(maxerror)   
1310: 20 20 20 20 20 31 30 30 30 0a 20 20 73 65 74 20       1000.  set 
1320: 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 6c 6c 6f  cmdlinearg(mallo
1330: 63 74 72 61 63 65 29 20 20 20 20 20 20 20 20 30  ctrace)        0
1340: 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72  .  set cmdlinear
1350: 67 28 62 61 63 6b 74 72 61 63 65 29 20 20 20 20  g(backtrace)    
1360: 20 20 20 20 20 31 30 0a 20 20 73 65 74 20 63 6d       10.  set cm
1370: 64 6c 69 6e 65 61 72 67 28 62 69 6e 61 72 79 6c  dlinearg(binaryl
1380: 6f 67 29 20 20 20 20 20 20 20 20 20 20 30 0a 20  og)          0. 
1390: 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 28   set cmdlinearg(
13a0: 73 6f 61 6b 29 20 20 20 20 20 20 20 20 20 20 20  soak)           
13b0: 20 20 20 20 30 0a 20 20 73 65 74 20 63 6d 64 6c      0.  set cmdl
13c0: 69 6e 65 61 72 67 28 73 74 61 72 74 29 20 20 20  inearg(start)   
13d0: 20 20 20 20 20 20 20 20 20 20 22 22 20 0a 0a 20            "" .. 
13e0: 20 73 65 74 20 6c 65 66 74 6f 76 65 72 20 5b 6c   set leftover [l
13f0: 69 73 74 5d 0a 20 20 66 6f 72 65 61 63 68 20 61  ist].  foreach a
1400: 20 24 61 72 67 76 20 7b 0a 20 20 20 20 73 77 69   $argv {.    swi
1410: 74 63 68 20 2d 72 65 67 65 78 70 20 2d 2d 20 24  tch -regexp -- $
1420: 61 20 7b 0a 20 20 20 20 20 20 7b 5e 2d 2b 70 61  a {.      {^-+pa
1430: 75 73 65 24 7d 20 7b 0a 20 20 20 20 20 20 20 20  use$} {.        
1440: 23 20 57 61 69 74 20 66 6f 72 20 75 73 65 72 20  # Wait for user 
1450: 69 6e 70 75 74 20 62 65 66 6f 72 65 20 63 6f 6e  input before con
1460: 74 69 6e 75 69 6e 67 2e 20 54 68 69 73 20 69 73  tinuing. This is
1470: 20 74 6f 20 67 69 76 65 20 74 68 65 20 75 73 65   to give the use
1480: 72 20 61 6e 20 0a 20 20 20 20 20 20 20 20 23 20  r an .        # 
1490: 6f 70 70 6f 72 74 75 6e 69 74 79 20 74 6f 20 63  opportunity to c
14a0: 6f 6e 6e 65 63 74 20 70 72 6f 66 69 6c 69 6e 67  onnect profiling
14b0: 20 74 6f 6f 6c 73 20 74 6f 20 74 68 65 20 70 72   tools to the pr
14c0: 6f 63 65 73 73 2e 0a 20 20 20 20 20 20 20 20 70  ocess..        p
14d0: 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 22  uts -nonewline "
14e0: 50 72 65 73 73 20 52 45 54 55 52 4e 20 74 6f 20  Press RETURN to 
14f0: 62 65 67 69 6e 2e 2e 2e 22 0a 20 20 20 20 20 20  begin...".      
1500: 20 20 66 6c 75 73 68 20 73 74 64 6f 75 74 0a 20    flush stdout. 
1510: 20 20 20 20 20 20 20 67 65 74 73 20 73 74 64 69         gets stdi
1520: 6e 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  n.      }.      
1530: 7b 5e 2d 2b 73 6f 66 74 2d 68 65 61 70 2d 6c 69  {^-+soft-heap-li
1540: 6d 69 74 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20  mit=.+$} {.     
1550: 20 20 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d     foreach {dumm
1560: 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 73 6f 66  y cmdlinearg(sof
1570: 74 2d 68 65 61 70 2d 6c 69 6d 69 74 29 7d 20 5b  t-heap-limit)} [
1580: 73 70 6c 69 74 20 24 61 20 3d 5d 20 62 72 65 61  split $a =] brea
1590: 6b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  k.      }.      
15a0: 7b 5e 2d 2b 6d 61 78 65 72 72 6f 72 3d 2e 2b 24  {^-+maxerror=.+$
15b0: 7d 20 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 65  } {.        fore
15c0: 61 63 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69  ach {dummy cmdli
15d0: 6e 65 61 72 67 28 6d 61 78 65 72 72 6f 72 29 7d  nearg(maxerror)}
15e0: 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20 62 72   [split $a =] br
15f0: 65 61 6b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  eak.      }.    
1600: 20 20 7b 5e 2d 2b 6d 61 6c 6c 6f 63 74 72 61 63    {^-+malloctrac
1610: 65 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20  e=.+$} {.       
1620: 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79 20   foreach {dummy 
1630: 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 6c 6c 6f  cmdlinearg(mallo
1640: 63 74 72 61 63 65 29 7d 20 5b 73 70 6c 69 74 20  ctrace)} [split 
1650: 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20  $a =] break.    
1660: 20 20 20 20 69 66 20 7b 24 63 6d 64 6c 69 6e 65      if {$cmdline
1670: 61 72 67 28 6d 61 6c 6c 6f 63 74 72 61 63 65 29  arg(malloctrace)
1680: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 73 71  } {.          sq
1690: 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 6c  lite3_memdebug_l
16a0: 6f 67 20 73 74 61 72 74 0a 20 20 20 20 20 20 20  og start.       
16b0: 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20   }.      }.     
16c0: 20 7b 5e 2d 2b 62 61 63 6b 74 72 61 63 65 3d 2e   {^-+backtrace=.
16d0: 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20 20 66 6f  +$} {.        fo
16e0: 72 65 61 63 68 20 7b 64 75 6d 6d 79 20 63 6d 64  reach {dummy cmd
16f0: 6c 69 6e 65 61 72 67 28 62 61 63 6b 74 72 61 63  linearg(backtrac
1700: 65 29 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d  e)} [split $a =]
1710: 20 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 73   break.        s
1720: 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f  qlite3_memdebug_
1730: 62 61 63 6b 74 72 61 63 65 20 24 76 61 6c 75 65  backtrace $value
1740: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b  .      }.      {
1750: 5e 2d 2b 62 69 6e 61 72 79 6c 6f 67 3d 2e 2b 24  ^-+binarylog=.+$
1760: 7d 20 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 65  } {.        fore
1770: 61 63 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69  ach {dummy cmdli
1780: 6e 65 61 72 67 28 62 69 6e 61 72 79 6c 6f 67 29  nearg(binarylog)
1790: 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20 62  } [split $a =] b
17a0: 72 65 61 6b 0a 20 20 20 20 20 20 7d 0a 20 20 20  reak.      }.   
17b0: 20 20 20 7b 5e 2d 2b 73 6f 61 6b 3d 2e 2b 24 7d     {^-+soak=.+$}
17c0: 20 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61   {.        forea
17d0: 63 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e  ch {dummy cmdlin
17e0: 65 61 72 67 28 73 6f 61 6b 29 7d 20 5b 73 70 6c  earg(soak)} [spl
17f0: 69 74 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20  it $a =] break. 
1800: 20 20 20 20 20 20 20 73 65 74 20 3a 3a 47 28 69         set ::G(i
1810: 73 73 6f 61 6b 29 20 24 63 6d 64 6c 69 6e 65 61  ssoak) $cmdlinea
1820: 72 67 28 73 6f 61 6b 29 0a 20 20 20 20 20 20 7d  rg(soak).      }
1830: 0a 20 20 20 20 20 20 7b 5e 2d 2b 73 74 61 72 74  .      {^-+start
1840: 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20 20  =.+$} {.        
1850: 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79 20 63  foreach {dummy c
1860: 6d 64 6c 69 6e 65 61 72 67 28 73 74 61 72 74 29  mdlinearg(start)
1870: 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20 62  } [split $a =] b
1880: 72 65 61 6b 0a 0a 20 20 20 20 20 20 20 20 73 65  reak..        se
1890: 74 20 3a 3a 47 28 73 74 61 72 74 3a 66 69 6c 65  t ::G(start:file
18a0: 29 20 24 63 6d 64 6c 69 6e 65 61 72 67 28 73 74  ) $cmdlinearg(st
18b0: 61 72 74 29 0a 20 20 20 20 20 20 20 20 69 66 20  art).        if 
18c0: 7b 5b 72 65 67 65 78 70 20 7b 28 2e 2a 29 3a 28  {[regexp {(.*):(
18d0: 2e 2a 29 7d 20 24 63 6d 64 6c 69 6e 65 61 72 67  .*)} $cmdlinearg
18e0: 28 73 74 61 72 74 29 20 2d 3e 20 73 2e 70 65 72  (start) -> s.per
18f0: 6d 20 73 2e 66 69 6c 65 5d 7d 20 7b 0a 20 20 20  m s.file]} {.   
1900: 20 20 20 20 20 20 20 73 65 74 20 3a 3a 47 28 73         set ::G(s
1910: 74 61 72 74 3a 70 65 72 6d 75 74 61 74 69 6f 6e  tart:permutation
1920: 29 20 24 7b 73 2e 70 65 72 6d 7d 0a 20 20 20 20  ) ${s.perm}.    
1930: 20 20 20 20 20 20 73 65 74 20 3a 3a 47 28 73 74        set ::G(st
1940: 61 72 74 3a 66 69 6c 65 29 20 20 20 20 20 20 20  art:file)       
1950: 20 24 7b 73 2e 66 69 6c 65 7d 0a 20 20 20 20 20   ${s.file}.     
1960: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 20     }.        if 
1970: 7b 24 3a 3a 47 28 73 74 61 72 74 3a 66 69 6c 65  {$::G(start:file
1980: 29 20 3d 3d 20 22 22 7d 20 7b 75 6e 73 65 74 20  ) == ""} {unset 
1990: 3a 3a 47 28 73 74 61 72 74 3a 66 69 6c 65 29 7d  ::G(start:file)}
19a0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 64  .      }.      d
19b0: 65 66 61 75 6c 74 20 7b 0a 20 20 20 20 20 20 20  efault {.       
19c0: 20 6c 61 70 70 65 6e 64 20 6c 65 66 74 6f 76 65   lappend leftove
19d0: 72 20 24 61 0a 20 20 20 20 20 20 7d 0a 20 20 20  r $a.      }.   
19e0: 20 7d 0a 20 20 7d 0a 20 20 73 65 74 20 61 72 67   }.  }.  set arg
19f0: 76 20 24 6c 65 66 74 6f 76 65 72 0a 0a 20 20 23  v $leftover..  #
1a00: 20 49 6e 73 74 61 6c 6c 20 74 68 65 20 6d 61 6c   Install the mal
1a10: 6c 6f 63 20 6c 61 79 65 72 20 75 73 65 64 20 74  loc layer used t
1a20: 6f 20 69 6e 6a 65 63 74 20 4f 4f 4d 20 65 72 72  o inject OOM err
1a30: 6f 72 73 2e 20 41 6e 64 20 74 68 65 20 27 61 75  ors. And the 'au
1a40: 74 6f 6d 61 74 69 63 27 0a 20 20 23 20 65 78 74  tomatic'.  # ext
1a50: 65 6e 73 69 6f 6e 73 2e 20 54 68 69 73 20 6f 6e  ensions. This on
1a60: 6c 79 20 6e 65 65 64 73 20 74 6f 20 62 65 20 64  ly needs to be d
1a70: 6f 6e 65 20 6f 6e 63 65 20 66 6f 72 20 74 68 65  one once for the
1a80: 20 70 72 6f 63 65 73 73 2e 0a 20 20 23 0a 20 20   process..  #.  
1a90: 73 71 6c 69 74 65 33 5f 73 68 75 74 64 6f 77 6e  sqlite3_shutdown
1aa0: 20 0a 20 20 69 6e 73 74 61 6c 6c 5f 6d 61 6c 6c   .  install_mall
1ab0: 6f 63 5f 66 61 75 6c 74 73 69 6d 20 31 20 0a 20  oc_faultsim 1 . 
1ac0: 20 73 71 6c 69 74 65 33 5f 69 6e 69 74 69 61 6c   sqlite3_initial
1ad0: 69 7a 65 0a 20 20 61 75 74 6f 69 6e 73 74 61 6c  ize.  autoinstal
1ae0: 6c 5f 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 73  l_test_functions
1af0: 0a 0a 20 20 23 20 49 66 20 74 68 65 20 2d 2d 62  ..  # If the --b
1b00: 69 6e 61 72 79 6c 6f 67 20 6f 70 74 69 6f 6e 20  inarylog option 
1b10: 77 61 73 20 73 70 65 63 69 66 69 65 64 2c 20 63  was specified, c
1b20: 72 65 61 74 65 20 74 68 65 20 6c 6f 67 67 69 6e  reate the loggin
1b30: 67 20 56 46 53 2e 20 54 68 69 73 0a 20 20 23 20  g VFS. This.  # 
1b40: 63 61 6c 6c 20 69 6e 73 74 61 6c 6c 73 20 74 68  call installs th
1b50: 65 20 6e 65 77 20 56 46 53 20 61 73 20 74 68 65  e new VFS as the
1b60: 20 64 65 66 61 75 6c 74 20 66 6f 72 20 61 6c 6c   default for all
1b70: 20 53 51 4c 69 74 65 20 63 6f 6e 6e 65 63 74 69   SQLite connecti
1b80: 6f 6e 73 2e 0a 20 20 23 0a 20 20 69 66 20 7b 24  ons..  #.  if {$
1b90: 63 6d 64 6c 69 6e 65 61 72 67 28 62 69 6e 61 72  cmdlinearg(binar
1ba0: 79 6c 6f 67 29 7d 20 7b 0a 20 20 20 20 76 66 73  ylog)} {.    vfs
1bb0: 6c 6f 67 20 6e 65 77 20 62 69 6e 61 72 79 6c 6f  log new binarylo
1bc0: 67 20 7b 7d 20 76 66 73 6c 6f 67 2e 62 69 6e 0a  g {} vfslog.bin.
1bd0: 20 20 7d 0a 0a 20 20 23 20 53 65 74 20 74 68 65    }..  # Set the
1be0: 20 62 61 63 6b 74 72 61 63 65 20 64 65 70 74 68   backtrace depth
1bf0: 2c 20 69 66 20 6d 61 6c 6c 6f 63 20 74 72 61 63  , if malloc trac
1c00: 69 6e 67 20 69 73 20 65 6e 61 62 6c 65 64 2e 0a  ing is enabled..
1c10: 20 20 23 0a 20 20 69 66 20 7b 24 63 6d 64 6c 69    #.  if {$cmdli
1c20: 6e 65 61 72 67 28 6d 61 6c 6c 6f 63 74 72 61 63  nearg(malloctrac
1c30: 65 29 7d 20 7b 0a 20 20 20 20 73 71 6c 69 74 65  e)} {.    sqlite
1c40: 33 5f 6d 65 6d 64 65 62 75 67 5f 62 61 63 6b 74  3_memdebug_backt
1c50: 72 61 63 65 20 24 63 6d 64 6c 69 6e 65 61 72 67  race $cmdlinearg
1c60: 28 62 61 63 6b 74 72 61 63 65 29 0a 20 20 7d 0a  (backtrace).  }.
1c70: 7d 0a 0a 23 20 55 70 64 61 74 65 20 74 68 65 20  }..# Update the 
1c80: 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74 20  soft-heap-limit 
1c90: 65 61 63 68 20 74 69 6d 65 20 74 68 69 73 20 73  each time this s
1ca0: 63 72 69 70 74 20 69 73 20 72 75 6e 2e 20 49 6e  cript is run. In
1cb0: 20 74 68 61 74 0a 23 20 77 61 79 20 69 66 20 61   that.# way if a
1cc0: 6e 20 69 6e 64 69 76 69 64 75 61 6c 20 74 65 73  n individual tes
1cd0: 74 20 66 69 6c 65 20 63 68 61 6e 67 65 73 20 74  t file changes t
1ce0: 68 65 20 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d  he soft-heap-lim
1cf0: 69 74 2c 20 69 74 0a 23 20 77 69 6c 6c 20 62 65  it, it.# will be
1d00: 20 72 65 73 65 74 20 61 74 20 74 68 65 20 73 74   reset at the st
1d10: 61 72 74 20 6f 66 20 74 68 65 20 6e 65 78 74 20  art of the next 
1d20: 74 65 73 74 20 66 69 6c 65 2e 0a 23 0a 73 71 6c  test file..#.sql
1d30: 69 74 65 33 5f 73 6f 66 74 5f 68 65 61 70 5f 6c  ite3_soft_heap_l
1d40: 69 6d 69 74 20 24 63 6d 64 6c 69 6e 65 61 72 67  imit $cmdlinearg
1d50: 28 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74  (soft-heap-limit
1d60: 29 0a 0a 23 20 43 72 65 61 74 65 20 61 20 74 65  )..# Create a te
1d70: 73 74 20 64 61 74 61 62 61 73 65 0a 23 0a 70 72  st database.#.pr
1d80: 6f 63 20 72 65 73 65 74 5f 64 62 20 7b 7d 20 7b  oc reset_db {} {
1d90: 0a 20 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f  .  catch {db clo
1da0: 73 65 7d 0a 20 20 66 69 6c 65 20 64 65 6c 65 74  se}.  file delet
1db0: 65 20 2d 66 6f 72 63 65 20 74 65 73 74 2e 64 62  e -force test.db
1dc0: 0a 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2d  .  file delete -
1dd0: 66 6f 72 63 65 20 74 65 73 74 2e 64 62 2d 6a 6f  force test.db-jo
1de0: 75 72 6e 61 6c 0a 20 20 66 69 6c 65 20 64 65 6c  urnal.  file del
1df0: 65 74 65 20 2d 66 6f 72 63 65 20 74 65 73 74 2e  ete -force test.
1e00: 64 62 2d 77 61 6c 0a 20 20 73 71 6c 69 74 65 33  db-wal.  sqlite3
1e10: 20 64 62 20 2e 2f 74 65 73 74 2e 64 62 0a 20 20   db ./test.db.  
1e20: 73 65 74 20 3a 3a 44 42 20 5b 73 71 6c 69 74 65  set ::DB [sqlite
1e30: 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69  3_connection_poi
1e40: 6e 74 65 72 20 64 62 5d 0a 20 20 69 66 20 7b 5b  nter db].  if {[
1e50: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 53 45  info exists ::SE
1e60: 54 55 50 5f 53 51 4c 5d 7d 20 7b 0a 20 20 20 20  TUP_SQL]} {.    
1e70: 64 62 20 65 76 61 6c 20 24 3a 3a 53 45 54 55 50  db eval $::SETUP
1e80: 5f 53 51 4c 0a 20 20 7d 0a 7d 0a 72 65 73 65 74  _SQL.  }.}.reset
1e90: 5f 64 62 0a 0a 23 20 41 62 6f 72 74 20 65 61 72  _db..# Abort ear
1ea0: 6c 79 20 69 66 20 74 68 69 73 20 73 63 72 69 70  ly if this scrip
1eb0: 74 20 68 61 73 20 62 65 65 6e 20 72 75 6e 20 62  t has been run b
1ec0: 65 66 6f 72 65 2e 0a 23 0a 69 66 20 7b 5b 69 6e  efore..#.if {[in
1ed0: 66 6f 20 65 78 69 73 74 73 20 54 43 28 63 6f 75  fo exists TC(cou
1ee0: 6e 74 29 5d 7d 20 72 65 74 75 72 6e 0a 0a 23 20  nt)]} return..# 
1ef0: 4d 61 6b 65 20 73 75 72 65 20 6d 65 6d 6f 72 79  Make sure memory
1f00: 20 73 74 61 74 69 73 74 69 63 73 20 61 72 65 20   statistics are 
1f10: 65 6e 61 62 6c 65 64 2e 0a 23 0a 73 71 6c 69 74  enabled..#.sqlit
1f20: 65 33 5f 63 6f 6e 66 69 67 5f 6d 65 6d 73 74 61  e3_config_memsta
1f30: 74 75 73 20 31 0a 0a 23 20 49 6e 69 74 69 61 6c  tus 1..# Initial
1f40: 69 7a 65 20 74 68 65 20 74 65 73 74 20 63 6f 75  ize the test cou
1f50: 6e 74 65 72 73 20 61 6e 64 20 73 65 74 20 75 70  nters and set up
1f60: 20 63 6f 6d 6d 61 6e 64 73 20 74 6f 20 61 63 63   commands to acc
1f70: 65 73 73 20 74 68 65 6d 2e 0a 23 20 4f 72 2c 20  ess them..# Or, 
1f80: 69 66 20 74 68 69 73 20 69 73 20 61 20 73 6c 61  if this is a sla
1f90: 76 65 20 69 6e 74 65 72 70 72 65 74 65 72 2c 20  ve interpreter, 
1fa0: 73 65 74 20 75 70 20 61 6c 69 61 73 65 73 20 74  set up aliases t
1fb0: 6f 20 77 72 69 74 65 20 74 68 65 0a 23 20 63 6f  o write the.# co
1fc0: 75 6e 74 65 72 73 20 69 6e 20 74 68 65 20 70 61  unters in the pa
1fd0: 72 65 6e 74 20 69 6e 74 65 72 70 72 65 74 65 72  rent interpreter
1fe0: 2e 0a 23 0a 69 66 20 7b 30 3d 3d 5b 69 6e 66 6f  ..#.if {0==[info
1ff0: 20 65 78 69 73 74 73 20 3a 3a 53 4c 41 56 45 5d   exists ::SLAVE]
2000: 7d 20 7b 0a 20 20 73 65 74 20 54 43 28 65 72 72  } {.  set TC(err
2010: 6f 72 73 29 20 20 20 20 30 0a 20 20 73 65 74 20  ors)    0.  set 
2020: 54 43 28 63 6f 75 6e 74 29 20 20 20 20 20 30 0a  TC(count)     0.
2030: 20 20 73 65 74 20 54 43 28 66 61 69 6c 5f 6c 69    set TC(fail_li
2040: 73 74 29 20 5b 6c 69 73 74 5d 0a 20 20 73 65 74  st) [list].  set
2050: 20 54 43 28 6f 6d 69 74 5f 6c 69 73 74 29 20 5b   TC(omit_list) [
2060: 6c 69 73 74 5d 0a 0a 20 20 70 72 6f 63 20 73 65  list]..  proc se
2070: 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 7b  t_test_counter {
2080: 63 6f 75 6e 74 65 72 20 61 72 67 73 7d 20 7b 0a  counter args} {.
2090: 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68      if {[llength
20a0: 20 24 61 72 67 73 5d 7d 20 7b 0a 20 20 20 20 20   $args]} {.     
20b0: 20 73 65 74 20 3a 3a 54 43 28 24 63 6f 75 6e 74   set ::TC($count
20c0: 65 72 29 20 5b 6c 69 6e 64 65 78 20 24 61 72 67  er) [lindex $arg
20d0: 73 20 30 5d 0a 20 20 20 20 7d 0a 20 20 20 20 73  s 0].    }.    s
20e0: 65 74 20 3a 3a 54 43 28 24 63 6f 75 6e 74 65 72  et ::TC($counter
20f0: 29 0a 20 20 7d 0a 7d 0a 0a 23 20 52 65 63 6f 72  ).  }.}..# Recor
2100: 64 20 74 68 65 20 66 61 63 74 20 74 68 61 74 20  d the fact that 
2110: 61 20 73 65 71 75 65 6e 63 65 20 6f 66 20 74 65  a sequence of te
2120: 73 74 73 20 77 65 72 65 20 6f 6d 69 74 74 65 64  sts were omitted
2130: 2e 0a 23 0a 70 72 6f 63 20 6f 6d 69 74 5f 74 65  ..#.proc omit_te
2140: 73 74 20 7b 6e 61 6d 65 20 72 65 61 73 6f 6e 7d  st {name reason}
2150: 20 7b 0a 20 20 73 65 74 20 6f 6d 69 74 4c 69 73   {.  set omitLis
2160: 74 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e  t [set_test_coun
2170: 74 65 72 20 6f 6d 69 74 5f 6c 69 73 74 5d 0a 20  ter omit_list]. 
2180: 20 6c 61 70 70 65 6e 64 20 6f 6d 69 74 4c 69 73   lappend omitLis
2190: 74 20 5b 6c 69 73 74 20 24 6e 61 6d 65 20 24 72  t [list $name $r
21a0: 65 61 73 6f 6e 5d 0a 20 20 73 65 74 5f 74 65 73  eason].  set_tes
21b0: 74 5f 63 6f 75 6e 74 65 72 20 6f 6d 69 74 5f 6c  t_counter omit_l
21c0: 69 73 74 20 24 6f 6d 69 74 4c 69 73 74 0a 7d 0a  ist $omitList.}.
21d0: 0a 23 20 52 65 63 6f 72 64 20 74 68 65 20 66 61  .# Record the fa
21e0: 63 74 20 74 68 61 74 20 61 20 74 65 73 74 20 66  ct that a test f
21f0: 61 69 6c 65 64 2e 0a 23 0a 70 72 6f 63 20 66 61  ailed..#.proc fa
2200: 69 6c 5f 74 65 73 74 20 7b 6e 61 6d 65 7d 20 7b  il_test {name} {
2210: 0a 20 20 73 65 74 20 66 20 5b 73 65 74 5f 74 65  .  set f [set_te
2220: 73 74 5f 63 6f 75 6e 74 65 72 20 66 61 69 6c 5f  st_counter fail_
2230: 6c 69 73 74 5d 0a 20 20 6c 61 70 70 65 6e 64 20  list].  lappend 
2240: 66 20 24 6e 61 6d 65 0a 20 20 73 65 74 5f 74 65  f $name.  set_te
2250: 73 74 5f 63 6f 75 6e 74 65 72 20 66 61 69 6c 5f  st_counter fail_
2260: 6c 69 73 74 20 24 66 0a 20 20 73 65 74 5f 74 65  list $f.  set_te
2270: 73 74 5f 63 6f 75 6e 74 65 72 20 65 72 72 6f 72  st_counter error
2280: 73 20 5b 65 78 70 72 20 5b 73 65 74 5f 74 65 73  s [expr [set_tes
2290: 74 5f 63 6f 75 6e 74 65 72 20 65 72 72 6f 72 73  t_counter errors
22a0: 5d 20 2b 20 31 5d 0a 0a 20 20 73 65 74 20 6e 46  ] + 1]..  set nF
22b0: 61 69 6c 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f  ail [set_test_co
22c0: 75 6e 74 65 72 20 65 72 72 6f 72 73 5d 0a 20 20  unter errors].  
22d0: 69 66 20 7b 24 6e 46 61 69 6c 3e 3d 24 3a 3a 63  if {$nFail>=$::c
22e0: 6d 64 6c 69 6e 65 61 72 67 28 6d 61 78 65 72 72  mdlinearg(maxerr
22f0: 6f 72 29 7d 20 7b 0a 20 20 20 20 70 75 74 73 20  or)} {.    puts 
2300: 22 2a 2a 2a 20 47 69 76 69 6e 67 20 75 70 2e 2e  "*** Giving up..
2310: 2e 22 0a 20 20 20 20 66 69 6e 61 6c 69 7a 65 5f  .".    finalize_
2320: 74 65 73 74 69 6e 67 0a 20 20 7d 0a 7d 0a 0a 23  testing.  }.}..#
2330: 20 49 6e 63 72 65 6d 65 6e 74 20 74 68 65 20 6e   Increment the n
2340: 75 6d 62 65 72 20 6f 66 20 74 65 73 74 73 20 72  umber of tests r
2350: 75 6e 0a 23 0a 70 72 6f 63 20 69 6e 63 72 5f 6e  un.#.proc incr_n
2360: 74 65 73 74 20 7b 7d 20 7b 0a 20 20 73 65 74 5f  test {} {.  set_
2370: 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 63 6f 75  test_counter cou
2380: 6e 74 20 5b 65 78 70 72 20 5b 73 65 74 5f 74 65  nt [expr [set_te
2390: 73 74 5f 63 6f 75 6e 74 65 72 20 63 6f 75 6e 74  st_counter count
23a0: 5d 20 2b 20 31 5d 0a 7d 0a 0a 0a 23 20 49 6e 76  ] + 1].}...# Inv
23b0: 6f 6b 65 20 74 68 65 20 64 6f 5f 74 65 73 74 20  oke the do_test 
23c0: 70 72 6f 63 65 64 75 72 65 20 74 6f 20 72 75 6e  procedure to run
23d0: 20 61 20 73 69 6e 67 6c 65 20 74 65 73 74 20 0a   a single test .
23e0: 23 0a 70 72 6f 63 20 64 6f 5f 74 65 73 74 20 7b  #.proc do_test {
23f0: 6e 61 6d 65 20 63 6d 64 20 65 78 70 65 63 74 65  name cmd expecte
2400: 64 7d 20 7b 0a 0a 20 20 67 6c 6f 62 61 6c 20 61  d} {..  global a
2410: 72 67 76 20 63 6d 64 6c 69 6e 65 61 72 67 0a 0a  rgv cmdlinearg..
2420: 20 20 66 69 78 5f 74 65 73 74 6e 61 6d 65 20 6e    fix_testname n
2430: 61 6d 65 0a 0a 20 20 73 71 6c 69 74 65 33 5f 6d  ame..  sqlite3_m
2440: 65 6d 64 65 62 75 67 5f 73 65 74 74 69 74 6c 65  emdebug_settitle
2450: 20 24 6e 61 6d 65 0a 0a 23 20 20 69 66 20 7b 5b   $name..#  if {[
2460: 6c 6c 65 6e 67 74 68 20 24 61 72 67 76 5d 3d 3d  llength $argv]==
2470: 30 7d 20 7b 20 0a 23 20 20 20 20 73 65 74 20 67  0} { .#    set g
2480: 6f 20 31 0a 23 20 20 7d 20 65 6c 73 65 20 7b 0a  o 1.#  } else {.
2490: 23 20 20 20 20 73 65 74 20 67 6f 20 30 0a 23 20  #    set go 0.# 
24a0: 20 20 20 66 6f 72 65 61 63 68 20 70 61 74 74 65     foreach patte
24b0: 72 6e 20 24 61 72 67 76 20 7b 0a 23 20 20 20 20  rn $argv {.#    
24c0: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61    if {[string ma
24d0: 74 63 68 20 24 70 61 74 74 65 72 6e 20 24 6e 61  tch $pattern $na
24e0: 6d 65 5d 7d 20 7b 0a 23 20 20 20 20 20 20 20 20  me]} {.#        
24f0: 73 65 74 20 67 6f 20 31 0a 23 20 20 20 20 20 20  set go 1.#      
2500: 20 20 62 72 65 61 6b 0a 23 20 20 20 20 20 20 7d    break.#      }
2510: 0a 23 20 20 20 20 7d 0a 23 20 20 7d 0a 0a 20 20  .#    }.#  }..  
2520: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
2530: 20 3a 3a 47 28 70 65 72 6d 3a 70 72 65 66 69 78   ::G(perm:prefix
2540: 29 5d 7d 20 7b 0a 20 20 20 20 73 65 74 20 6e 61  )]} {.    set na
2550: 6d 65 20 22 24 3a 3a 47 28 70 65 72 6d 3a 70 72  me "$::G(perm:pr
2560: 65 66 69 78 29 24 6e 61 6d 65 22 0a 20 20 7d 0a  efix)$name".  }.
2570: 0a 20 20 69 6e 63 72 5f 6e 74 65 73 74 0a 20 20  .  incr_ntest.  
2580: 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20  puts -nonewline 
2590: 24 6e 61 6d 65 2e 2e 2e 0a 20 20 66 6c 75 73 68  $name....  flush
25a0: 20 73 74 64 6f 75 74 0a 20 20 69 66 20 7b 5b 63   stdout.  if {[c
25b0: 61 74 63 68 20 7b 75 70 6c 65 76 65 6c 20 23 30  atch {uplevel #0
25c0: 20 22 24 63 6d 64 3b 5c 6e 22 7d 20 72 65 73 75   "$cmd;\n"} resu
25d0: 6c 74 5d 7d 20 7b 0a 20 20 20 20 70 75 74 73 20  lt]} {.    puts 
25e0: 22 5c 6e 45 72 72 6f 72 3a 20 24 72 65 73 75 6c  "\nError: $resul
25f0: 74 22 0a 20 20 20 20 66 61 69 6c 5f 74 65 73 74  t".    fail_test
2600: 20 24 6e 61 6d 65 0a 20 20 7d 20 65 6c 73 65 69   $name.  } elsei
2610: 66 20 7b 5b 73 74 72 69 6e 67 20 63 6f 6d 70 61  f {[string compa
2620: 72 65 20 24 72 65 73 75 6c 74 20 24 65 78 70 65  re $result $expe
2630: 63 74 65 64 5d 7d 20 7b 0a 20 20 20 20 70 75 74  cted]} {.    put
2640: 73 20 22 5c 6e 45 78 70 65 63 74 65 64 3a 20 5c  s "\nExpected: \
2650: 5b 24 65 78 70 65 63 74 65 64 5c 5d 5c 6e 20 20  [$expected\]\n  
2660: 20 20 20 47 6f 74 3a 20 5c 5b 24 72 65 73 75 6c     Got: \[$resul
2670: 74 5c 5d 22 0a 20 20 20 20 66 61 69 6c 5f 74 65  t\]".    fail_te
2680: 73 74 20 24 6e 61 6d 65 0a 20 20 7d 20 65 6c 73  st $name.  } els
2690: 65 20 7b 0a 20 20 20 20 70 75 74 73 20 22 20 4f  e {.    puts " O
26a0: 6b 22 0a 20 20 7d 0a 20 20 66 6c 75 73 68 20 73  k".  }.  flush s
26b0: 74 64 6f 75 74 0a 7d 0a 0a 70 72 6f 63 20 66 69  tdout.}..proc fi
26c0: 78 5f 74 65 73 74 6e 61 6d 65 20 7b 76 61 72 6e  x_testname {varn
26d0: 61 6d 65 7d 20 7b 0a 20 20 75 70 76 61 72 20 24  ame} {.  upvar $
26e0: 76 61 72 6e 61 6d 65 20 74 65 73 74 6e 61 6d 65  varname testname
26f0: 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  .  if {[info exi
2700: 73 74 73 20 3a 3a 74 65 73 74 70 72 65 66 69 78  sts ::testprefix
2710: 5d 20 0a 20 20 20 26 26 20 5b 73 74 72 69 6e 67  ] .   && [string
2720: 20 69 73 20 64 69 67 69 74 20 5b 73 74 72 69 6e   is digit [strin
2730: 67 20 72 61 6e 67 65 20 24 74 65 73 74 6e 61 6d  g range $testnam
2740: 65 20 30 20 30 5d 5d 0a 20 20 7d 20 7b 0a 20 20  e 0 0]].  } {.  
2750: 20 20 73 65 74 20 74 65 73 74 6e 61 6d 65 20 22    set testname "
2760: 24 7b 3a 3a 74 65 73 74 70 72 65 66 69 78 7d 2d  ${::testprefix}-
2770: 24 74 65 73 74 6e 61 6d 65 22 0a 20 20 7d 0a 7d  $testname".  }.}
2780: 0a 20 20 20 20 0a 70 72 6f 63 20 64 6f 5f 65 78  .    .proc do_ex
2790: 65 63 73 71 6c 5f 74 65 73 74 20 7b 74 65 73 74  ecsql_test {test
27a0: 6e 61 6d 65 20 73 71 6c 20 7b 72 65 73 75 6c 74  name sql {result
27b0: 20 7b 7d 7d 7d 20 7b 0a 20 20 66 69 78 5f 74 65   {}}} {.  fix_te
27c0: 73 74 6e 61 6d 65 20 74 65 73 74 6e 61 6d 65 0a  stname testname.
27d0: 20 20 75 70 6c 65 76 65 6c 20 64 6f 5f 74 65 73    uplevel do_tes
27e0: 74 20 24 74 65 73 74 6e 61 6d 65 20 5b 6c 69 73  t $testname [lis
27f0: 74 20 22 65 78 65 63 73 71 6c 20 7b 24 73 71 6c  t "execsql {$sql
2800: 7d 22 5d 20 5b 6c 69 73 74 20 5b 6c 69 73 74 20  }"] [list [list 
2810: 7b 2a 7d 24 72 65 73 75 6c 74 5d 5d 0a 7d 0a 70  {*}$result]].}.p
2820: 72 6f 63 20 64 6f 5f 63 61 74 63 68 73 71 6c 5f  roc do_catchsql_
2830: 74 65 73 74 20 7b 74 65 73 74 6e 61 6d 65 20 73  test {testname s
2840: 71 6c 20 72 65 73 75 6c 74 7d 20 7b 0a 20 20 66  ql result} {.  f
2850: 69 78 5f 74 65 73 74 6e 61 6d 65 20 74 65 73 74  ix_testname test
2860: 6e 61 6d 65 0a 20 20 75 70 6c 65 76 65 6c 20 64  name.  uplevel d
2870: 6f 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65  o_test $testname
2880: 20 5b 6c 69 73 74 20 22 63 61 74 63 68 73 71 6c   [list "catchsql
2890: 20 7b 24 73 71 6c 7d 22 5d 20 5b 6c 69 73 74 20   {$sql}"] [list 
28a0: 24 72 65 73 75 6c 74 5d 0a 7d 0a 70 72 6f 63 20  $result].}.proc 
28b0: 64 6f 5f 65 71 70 5f 74 65 73 74 20 7b 6e 61 6d  do_eqp_test {nam
28c0: 65 20 73 71 6c 20 72 65 73 7d 20 7b 0a 20 20 75  e sql res} {.  u
28d0: 70 6c 65 76 65 6c 20 64 6f 5f 65 78 65 63 73 71  plevel do_execsq
28e0: 6c 5f 74 65 73 74 20 24 6e 61 6d 65 20 5b 6c 69  l_test $name [li
28f0: 73 74 20 22 45 58 50 4c 41 49 4e 20 51 55 45 52  st "EXPLAIN QUER
2900: 59 20 50 4c 41 4e 20 24 73 71 6c 22 5d 20 5b 6c  Y PLAN $sql"] [l
2910: 69 73 74 20 24 72 65 73 5d 0a 7d 0a 0a 23 2d 2d  ist $res].}..#--
2920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2960: 2d 2d 2d 2d 2d 2d 2d 0a 23 20 20 20 55 73 61 67  -------.#   Usag
2970: 65 3a 20 64 6f 5f 73 65 6c 65 63 74 5f 74 65 73  e: do_select_tes
2980: 74 73 20 50 52 45 46 49 58 20 3f 53 57 49 54 43  ts PREFIX ?SWITC
2990: 48 45 53 3f 20 54 45 53 54 4c 49 53 54 0a 23 0a  HES? TESTLIST.#.
29a0: 23 20 57 68 65 72 65 20 73 77 69 74 63 68 65 73  # Where switches
29b0: 20 61 72 65 3a 0a 23 0a 23 20 20 20 2d 65 72 72   are:.#.#   -err
29c0: 6f 72 66 6f 72 6d 61 74 20 46 4d 54 53 54 52 49  orformat FMTSTRI
29d0: 4e 47 0a 23 20 20 20 2d 63 6f 75 6e 74 0a 23 20  NG.#   -count.# 
29e0: 20 20 2d 71 75 65 72 79 20 53 51 4c 0a 23 20 20    -query SQL.#  
29f0: 20 2d 74 63 6c 71 75 65 72 79 20 54 43 4c 0a 23   -tclquery TCL.#
2a00: 20 20 20 2d 72 65 70 61 69 72 20 54 43 4c 0a 23     -repair TCL.#
2a10: 0a 70 72 6f 63 20 64 6f 5f 73 65 6c 65 63 74 5f  .proc do_select_
2a20: 74 65 73 74 73 20 7b 70 72 65 66 69 78 20 61 72  tests {prefix ar
2a30: 67 73 7d 20 7b 0a 0a 20 20 73 65 74 20 74 65 73  gs} {..  set tes
2a40: 74 6c 69 73 74 20 5b 6c 69 6e 64 65 78 20 24 61  tlist [lindex $a
2a50: 72 67 73 20 65 6e 64 5d 0a 20 20 73 65 74 20 73  rgs end].  set s
2a60: 77 69 74 63 68 65 73 20 5b 6c 72 61 6e 67 65 20  witches [lrange 
2a70: 24 61 72 67 73 20 30 20 65 6e 64 2d 31 5d 0a 0a  $args 0 end-1]..
2a80: 20 20 73 65 74 20 65 72 72 66 6d 74 20 22 22 0a    set errfmt "".
2a90: 20 20 73 65 74 20 63 6f 75 6e 74 6f 6e 6c 79 20    set countonly 
2aa0: 30 0a 20 20 73 65 74 20 74 63 6c 71 75 65 72 79  0.  set tclquery
2ab0: 20 22 22 0a 20 20 73 65 74 20 72 65 70 61 69 72   "".  set repair
2ac0: 20 22 22 0a 0a 20 20 66 6f 72 20 7b 73 65 74 20   ""..  for {set 
2ad0: 69 20 30 7d 20 7b 24 69 20 3c 20 5b 6c 6c 65 6e  i 0} {$i < [llen
2ae0: 67 74 68 20 24 73 77 69 74 63 68 65 73 5d 7d 20  gth $switches]} 
2af0: 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20 73  {incr i} {.    s
2b00: 65 74 20 73 20 5b 6c 69 6e 64 65 78 20 24 73 77  et s [lindex $sw
2b10: 69 74 63 68 65 73 20 24 69 5d 0a 20 20 20 20 73  itches $i].    s
2b20: 65 74 20 6e 20 5b 73 74 72 69 6e 67 20 6c 65 6e  et n [string len
2b30: 67 74 68 20 24 73 5d 0a 20 20 20 20 69 66 20 7b  gth $s].    if {
2b40: 24 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e 67  $n>=2 && [string
2b50: 20 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24   equal -length $
2b60: 6e 20 24 73 20 22 2d 71 75 65 72 79 22 5d 7d 20  n $s "-query"]} 
2b70: 7b 0a 20 20 20 20 20 20 73 65 74 20 74 63 6c 71  {.      set tclq
2b80: 75 65 72 79 20 5b 6c 69 73 74 20 65 78 65 63 73  uery [list execs
2b90: 71 6c 20 5b 6c 69 6e 64 65 78 20 24 73 77 69 74  ql [lindex $swit
2ba0: 63 68 65 73 20 5b 69 6e 63 72 20 69 5d 5d 5d 0a  ches [incr i]]].
2bb0: 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 6e      } elseif {$n
2bc0: 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e 67 20 65  >=2 && [string e
2bd0: 71 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24 6e 20  qual -length $n 
2be0: 24 73 20 22 2d 74 63 6c 71 75 65 72 79 22 5d 7d  $s "-tclquery"]}
2bf0: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 74 63 6c   {.      set tcl
2c00: 71 75 65 72 79 20 5b 6c 69 6e 64 65 78 20 24 73  query [lindex $s
2c10: 77 69 74 63 68 65 73 20 5b 69 6e 63 72 20 69 5d  witches [incr i]
2c20: 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b  ].    } elseif {
2c30: 24 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e 67  $n>=2 && [string
2c40: 20 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24   equal -length $
2c50: 6e 20 24 73 20 22 2d 65 72 72 6f 72 66 6f 72 6d  n $s "-errorform
2c60: 61 74 22 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65  at"]} {.      se
2c70: 74 20 65 72 72 66 6d 74 20 5b 6c 69 6e 64 65 78  t errfmt [lindex
2c80: 20 24 73 77 69 74 63 68 65 73 20 5b 69 6e 63 72   $switches [incr
2c90: 20 69 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69   i]].    } elsei
2ca0: 66 20 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74 72  f {$n>=2 && [str
2cb0: 69 6e 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67 74  ing equal -lengt
2cc0: 68 20 24 6e 20 24 73 20 22 2d 72 65 70 61 69 72  h $n $s "-repair
2cd0: 22 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20  "]} {.      set 
2ce0: 72 65 70 61 69 72 20 5b 6c 69 6e 64 65 78 20 24  repair [lindex $
2cf0: 73 77 69 74 63 68 65 73 20 5b 69 6e 63 72 20 69  switches [incr i
2d00: 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66 20  ]].    } elseif 
2d10: 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e  {$n>=2 && [strin
2d20: 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68 20  g equal -length 
2d30: 24 6e 20 24 73 20 22 2d 63 6f 75 6e 74 22 5d 7d  $n $s "-count"]}
2d40: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 63 6f 75   {.      set cou
2d50: 6e 74 6f 6e 6c 79 20 31 0a 20 20 20 20 7d 20 65  ntonly 1.    } e
2d60: 6c 73 65 20 7b 0a 20 20 20 20 20 20 65 72 72 6f  lse {.      erro
2d70: 72 20 22 75 6e 6b 6e 6f 77 6e 20 73 77 69 74 63  r "unknown switc
2d80: 68 3a 20 24 73 22 0a 20 20 20 20 7d 0a 20 20 7d  h: $s".    }.  }
2d90: 0a 0a 20 20 69 66 20 7b 24 63 6f 75 6e 74 6f 6e  ..  if {$counton
2da0: 6c 79 20 26 26 20 24 65 72 72 66 6d 74 21 3d 22  ly && $errfmt!="
2db0: 22 7d 20 7b 0a 20 20 20 20 65 72 72 6f 72 20 22  "} {.    error "
2dc0: 43 61 6e 6e 6f 74 20 75 73 65 20 2d 63 6f 75 6e  Cannot use -coun
2dd0: 74 20 61 6e 64 20 2d 65 72 72 6f 72 66 6f 72 6d  t and -errorform
2de0: 61 74 20 74 6f 67 65 74 68 65 72 22 0a 20 20 7d  at together".  }
2df0: 0a 20 20 73 65 74 20 6e 54 65 73 74 6c 69 73 74  .  set nTestlist
2e00: 20 5b 6c 6c 65 6e 67 74 68 20 24 74 65 73 74 6c   [llength $testl
2e10: 69 73 74 5d 0a 20 20 69 66 20 7b 24 6e 54 65 73  ist].  if {$nTes
2e20: 74 6c 69 73 74 25 33 20 7c 7c 20 24 6e 54 65 73  tlist%3 || $nTes
2e30: 74 6c 69 73 74 3d 3d 30 20 7d 20 7b 0a 20 20 20  tlist==0 } {.   
2e40: 20 65 72 72 6f 72 20 22 53 45 4c 45 43 54 20 74   error "SELECT t
2e50: 65 73 74 20 6c 69 73 74 20 63 6f 6e 74 61 69 6e  est list contain
2e60: 73 20 5b 6c 6c 65 6e 67 74 68 20 24 74 65 73 74  s [llength $test
2e70: 6c 69 73 74 5d 20 65 6c 65 6d 65 6e 74 73 22 0a  list] elements".
2e80: 20 20 7d 0a 0a 20 20 65 76 61 6c 20 24 72 65 70    }..  eval $rep
2e90: 61 69 72 0a 20 20 66 6f 72 65 61 63 68 20 7b 74  air.  foreach {t
2ea0: 6e 20 73 71 6c 20 72 65 73 7d 20 24 74 65 73 74  n sql res} $test
2eb0: 6c 69 73 74 20 7b 0a 20 20 20 20 69 66 20 7b 24  list {.    if {$
2ec0: 74 63 6c 71 75 65 72 79 20 21 3d 20 22 22 7d 20  tclquery != ""} 
2ed0: 7b 0a 20 20 20 20 20 20 65 78 65 63 73 71 6c 20  {.      execsql 
2ee0: 24 73 71 6c 0a 20 20 20 20 20 20 75 70 6c 65 76  $sql.      uplev
2ef0: 65 6c 20 64 6f 5f 74 65 73 74 20 24 7b 70 72 65  el do_test ${pre
2f00: 66 69 78 7d 2e 24 74 6e 20 5b 6c 69 73 74 20 24  fix}.$tn [list $
2f10: 74 63 6c 71 75 65 72 79 5d 20 5b 6c 69 73 74 20  tclquery] [list 
2f20: 5b 6c 69 73 74 20 7b 2a 7d 24 72 65 73 5d 5d 0a  [list {*}$res]].
2f30: 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 63      } elseif {$c
2f40: 6f 75 6e 74 6f 6e 6c 79 7d 20 7b 0a 20 20 20 20  ountonly} {.    
2f50: 20 20 73 65 74 20 6e 52 6f 77 20 30 0a 20 20 20    set nRow 0.   
2f60: 20 20 20 64 62 20 65 76 61 6c 20 24 73 71 6c 20     db eval $sql 
2f70: 7b 69 6e 63 72 20 6e 52 6f 77 7d 0a 20 20 20 20  {incr nRow}.    
2f80: 20 20 75 70 6c 65 76 65 6c 20 64 6f 5f 74 65 73    uplevel do_tes
2f90: 74 20 24 7b 70 72 65 66 69 78 7d 2e 24 74 6e 20  t ${prefix}.$tn 
2fa0: 5b 6c 69 73 74 20 5b 6c 69 73 74 20 73 65 74 20  [list [list set 
2fb0: 7b 7d 20 24 6e 52 6f 77 5d 5d 20 5b 6c 69 73 74  {} $nRow]] [list
2fc0: 20 24 72 65 73 5d 0a 20 20 20 20 7d 20 65 6c 73   $res].    } els
2fd0: 65 69 66 20 7b 24 65 72 72 66 6d 74 3d 3d 22 22  eif {$errfmt==""
2fe0: 7d 20 7b 0a 20 20 20 20 20 20 75 70 6c 65 76 65  } {.      upleve
2ff0: 6c 20 64 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73  l do_execsql_tes
3000: 74 20 24 7b 70 72 65 66 69 78 7d 2e 24 7b 74 6e  t ${prefix}.${tn
3010: 7d 20 5b 6c 69 73 74 20 24 73 71 6c 5d 20 5b 6c  } [list $sql] [l
3020: 69 73 74 20 5b 6c 69 73 74 20 7b 2a 7d 24 72 65  ist [list {*}$re
3030: 73 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b  s]].    } else {
3040: 0a 20 20 20 20 20 20 73 65 74 20 72 65 73 20 5b  .      set res [
3050: 6c 69 73 74 20 31 20 5b 73 74 72 69 6e 67 20 74  list 1 [string t
3060: 72 69 6d 20 5b 66 6f 72 6d 61 74 20 24 65 72 72  rim [format $err
3070: 66 6d 74 20 7b 2a 7d 24 72 65 73 5d 5d 5d 0a 20  fmt {*}$res]]]. 
3080: 20 20 20 20 20 75 70 6c 65 76 65 6c 20 64 6f 5f       uplevel do_
3090: 63 61 74 63 68 73 71 6c 5f 74 65 73 74 20 24 7b  catchsql_test ${
30a0: 70 72 65 66 69 78 7d 2e 24 7b 74 6e 7d 20 5b 6c  prefix}.${tn} [l
30b0: 69 73 74 20 24 73 71 6c 5d 20 5b 6c 69 73 74 20  ist $sql] [list 
30c0: 24 72 65 73 5d 0a 20 20 20 20 7d 0a 20 20 20 20  $res].    }.    
30d0: 65 76 61 6c 20 24 72 65 70 61 69 72 0a 20 20 7d  eval $repair.  }
30e0: 0a 0a 7d 0a 0a 70 72 6f 63 20 64 65 6c 65 74 65  ..}..proc delete
30f0: 5f 61 6c 6c 5f 64 61 74 61 20 7b 7d 20 7b 0a 20  _all_data {} {. 
3100: 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54   db eval {SELECT
3110: 20 74 62 6c 5f 6e 61 6d 65 20 41 53 20 74 20 46   tbl_name AS t F
3120: 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65  ROM sqlite_maste
3130: 72 20 57 48 45 52 45 20 74 79 70 65 20 3d 20 27  r WHERE type = '
3140: 74 61 62 6c 65 27 7d 20 7b 0a 20 20 20 20 64 62  table'} {.    db
3150: 20 65 76 61 6c 20 22 44 45 4c 45 54 45 20 46 52   eval "DELETE FR
3160: 4f 4d 20 27 5b 73 74 72 69 6e 67 20 6d 61 70 20  OM '[string map 
3170: 7b 27 20 27 27 7d 20 24 74 5d 27 22 0a 20 20 7d  {' ''} $t]'".  }
3180: 0a 7d 0a 0a 23 20 52 75 6e 20 61 6e 20 53 51 4c  .}..# Run an SQL
3190: 20 73 63 72 69 70 74 2e 20 20 0a 23 20 52 65 74   script.  .# Ret
31a0: 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f  urn the number o
31b0: 66 20 6d 69 63 72 6f 73 65 63 6f 6e 64 73 20 70  f microseconds p
31c0: 65 72 20 73 74 61 74 65 6d 65 6e 74 2e 0a 23 0a  er statement..#.
31d0: 70 72 6f 63 20 73 70 65 65 64 5f 74 72 69 61 6c  proc speed_trial
31e0: 20 7b 6e 61 6d 65 20 6e 75 6d 73 74 6d 74 20 75   {name numstmt u
31f0: 6e 69 74 73 20 73 71 6c 7d 20 7b 0a 20 20 70 75  nits sql} {.  pu
3200: 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 5b 66  ts -nonewline [f
3210: 6f 72 6d 61 74 20 7b 25 2d 32 31 2e 32 31 73 20  ormat {%-21.21s 
3220: 7d 20 24 6e 61 6d 65 2e 2e 2e 5d 0a 20 20 66 6c  } $name...].  fl
3230: 75 73 68 20 73 74 64 6f 75 74 0a 20 20 73 65 74  ush stdout.  set
3240: 20 73 70 65 65 64 20 5b 74 69 6d 65 20 7b 73 71   speed [time {sq
3250: 6c 69 74 65 33 5f 65 78 65 63 5f 6e 72 20 64 62  lite3_exec_nr db
3260: 20 24 73 71 6c 7d 5d 0a 20 20 73 65 74 20 74 6d   $sql}].  set tm
3270: 20 5b 6c 69 6e 64 65 78 20 24 73 70 65 65 64 20   [lindex $speed 
3280: 30 5d 0a 20 20 69 66 20 7b 24 74 6d 20 3d 3d 20  0].  if {$tm == 
3290: 30 7d 20 7b 0a 20 20 20 20 73 65 74 20 72 61 74  0} {.    set rat
32a0: 65 20 5b 66 6f 72 6d 61 74 20 25 32 30 73 20 22  e [format %20s "
32b0: 6d 61 6e 79 22 5d 0a 20 20 7d 20 65 6c 73 65 20  many"].  } else 
32c0: 7b 0a 20 20 20 20 73 65 74 20 72 61 74 65 20 5b  {.    set rate [
32d0: 66 6f 72 6d 61 74 20 25 32 30 2e 35 66 20 5b 65  format %20.5f [e
32e0: 78 70 72 20 7b 31 30 30 30 30 30 30 2e 30 2a 24  xpr {1000000.0*$
32f0: 6e 75 6d 73 74 6d 74 2f 24 74 6d 7d 5d 5d 0a 20  numstmt/$tm}]]. 
3300: 20 7d 0a 20 20 73 65 74 20 75 32 20 24 75 6e 69   }.  set u2 $uni
3310: 74 73 2f 73 0a 20 20 70 75 74 73 20 5b 66 6f 72  ts/s.  puts [for
3320: 6d 61 74 20 7b 25 31 32 64 20 75 53 20 25 73 20  mat {%12d uS %s 
3330: 25 73 7d 20 24 74 6d 20 24 72 61 74 65 20 24 75  %s} $tm $rate $u
3340: 32 5d 0a 20 20 67 6c 6f 62 61 6c 20 74 6f 74 61  2].  global tota
3350: 6c 5f 74 69 6d 65 0a 20 20 73 65 74 20 74 6f 74  l_time.  set tot
3360: 61 6c 5f 74 69 6d 65 20 5b 65 78 70 72 20 7b 24  al_time [expr {$
3370: 74 6f 74 61 6c 5f 74 69 6d 65 2b 24 74 6d 7d 5d  total_time+$tm}]
3380: 0a 20 20 6c 61 70 70 65 6e 64 20 3a 3a 73 70 65  .  lappend ::spe
3390: 65 64 5f 74 72 69 61 6c 5f 74 69 6d 65 73 20 24  ed_trial_times $
33a0: 6e 61 6d 65 20 24 74 6d 0a 7d 0a 70 72 6f 63 20  name $tm.}.proc 
33b0: 73 70 65 65 64 5f 74 72 69 61 6c 5f 74 63 6c 20  speed_trial_tcl 
33c0: 7b 6e 61 6d 65 20 6e 75 6d 73 74 6d 74 20 75 6e  {name numstmt un
33d0: 69 74 73 20 73 63 72 69 70 74 7d 20 7b 0a 20 20  its script} {.  
33e0: 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20  puts -nonewline 
33f0: 5b 66 6f 72 6d 61 74 20 7b 25 2d 32 31 2e 32 31  [format {%-21.21
3400: 73 20 7d 20 24 6e 61 6d 65 2e 2e 2e 5d 0a 20 20  s } $name...].  
3410: 66 6c 75 73 68 20 73 74 64 6f 75 74 0a 20 20 73  flush stdout.  s
3420: 65 74 20 73 70 65 65 64 20 5b 74 69 6d 65 20 7b  et speed [time {
3430: 65 76 61 6c 20 24 73 63 72 69 70 74 7d 5d 0a 20  eval $script}]. 
3440: 20 73 65 74 20 74 6d 20 5b 6c 69 6e 64 65 78 20   set tm [lindex 
3450: 24 73 70 65 65 64 20 30 5d 0a 20 20 69 66 20 7b  $speed 0].  if {
3460: 24 74 6d 20 3d 3d 20 30 7d 20 7b 0a 20 20 20 20  $tm == 0} {.    
3470: 73 65 74 20 72 61 74 65 20 5b 66 6f 72 6d 61 74  set rate [format
3480: 20 25 32 30 73 20 22 6d 61 6e 79 22 5d 0a 20 20   %20s "many"].  
3490: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65 74  } else {.    set
34a0: 20 72 61 74 65 20 5b 66 6f 72 6d 61 74 20 25 32   rate [format %2
34b0: 30 2e 35 66 20 5b 65 78 70 72 20 7b 31 30 30 30  0.5f [expr {1000
34c0: 30 30 30 2e 30 2a 24 6e 75 6d 73 74 6d 74 2f 24  000.0*$numstmt/$
34d0: 74 6d 7d 5d 5d 0a 20 20 7d 0a 20 20 73 65 74 20  tm}]].  }.  set 
34e0: 75 32 20 24 75 6e 69 74 73 2f 73 0a 20 20 70 75  u2 $units/s.  pu
34f0: 74 73 20 5b 66 6f 72 6d 61 74 20 7b 25 31 32 64  ts [format {%12d
3500: 20 75 53 20 25 73 20 25 73 7d 20 24 74 6d 20 24   uS %s %s} $tm $
3510: 72 61 74 65 20 24 75 32 5d 0a 20 20 67 6c 6f 62  rate $u2].  glob
3520: 61 6c 20 74 6f 74 61 6c 5f 74 69 6d 65 0a 20 20  al total_time.  
3530: 73 65 74 20 74 6f 74 61 6c 5f 74 69 6d 65 20 5b  set total_time [
3540: 65 78 70 72 20 7b 24 74 6f 74 61 6c 5f 74 69 6d  expr {$total_tim
3550: 65 2b 24 74 6d 7d 5d 0a 20 20 6c 61 70 70 65 6e  e+$tm}].  lappen
3560: 64 20 3a 3a 73 70 65 65 64 5f 74 72 69 61 6c 5f  d ::speed_trial_
3570: 74 69 6d 65 73 20 24 6e 61 6d 65 20 24 74 6d 0a  times $name $tm.
3580: 7d 0a 70 72 6f 63 20 73 70 65 65 64 5f 74 72 69  }.proc speed_tri
3590: 61 6c 5f 69 6e 69 74 20 7b 6e 61 6d 65 7d 20 7b  al_init {name} {
35a0: 0a 20 20 67 6c 6f 62 61 6c 20 74 6f 74 61 6c 5f  .  global total_
35b0: 74 69 6d 65 0a 20 20 73 65 74 20 74 6f 74 61 6c  time.  set total
35c0: 5f 74 69 6d 65 20 30 0a 20 20 73 65 74 20 3a 3a  _time 0.  set ::
35d0: 73 70 65 65 64 5f 74 72 69 61 6c 5f 74 69 6d 65  speed_trial_time
35e0: 73 20 5b 6c 69 73 74 5d 0a 20 20 73 71 6c 69 74  s [list].  sqlit
35f0: 65 33 20 76 65 72 73 64 62 20 3a 6d 65 6d 6f 72  e3 versdb :memor
3600: 79 3a 0a 20 20 73 65 74 20 76 65 72 73 20 5b 76  y:.  set vers [v
3610: 65 72 73 64 62 20 6f 6e 65 20 7b 53 45 4c 45 43  ersdb one {SELEC
3620: 54 20 73 71 6c 69 74 65 5f 73 6f 75 72 63 65 5f  T sqlite_source_
3630: 69 64 28 29 7d 5d 0a 20 20 76 65 72 73 64 62 20  id()}].  versdb 
3640: 63 6c 6f 73 65 0a 20 20 70 75 74 73 20 22 53 51  close.  puts "SQ
3650: 4c 69 74 65 20 24 76 65 72 73 22 0a 7d 0a 70 72  Lite $vers".}.pr
3660: 6f 63 20 73 70 65 65 64 5f 74 72 69 61 6c 5f 73  oc speed_trial_s
3670: 75 6d 6d 61 72 79 20 7b 6e 61 6d 65 7d 20 7b 0a  ummary {name} {.
3680: 20 20 67 6c 6f 62 61 6c 20 74 6f 74 61 6c 5f 74    global total_t
3690: 69 6d 65 0a 20 20 70 75 74 73 20 5b 66 6f 72 6d  ime.  puts [form
36a0: 61 74 20 7b 25 2d 32 31 2e 32 31 73 20 25 31 32  at {%-21.21s %12
36b0: 64 20 75 53 20 54 4f 54 41 4c 7d 20 24 6e 61 6d  d uS TOTAL} $nam
36c0: 65 20 24 74 6f 74 61 6c 5f 74 69 6d 65 5d 0a 0a  e $total_time]..
36d0: 20 20 69 66 20 7b 20 30 20 7d 20 7b 0a 20 20 20    if { 0 } {.   
36e0: 20 73 71 6c 69 74 65 33 20 76 65 72 73 64 62 20   sqlite3 versdb 
36f0: 3a 6d 65 6d 6f 72 79 3a 0a 20 20 20 20 73 65 74  :memory:.    set
3700: 20 76 65 72 73 20 5b 6c 69 6e 64 65 78 20 5b 76   vers [lindex [v
3710: 65 72 73 64 62 20 6f 6e 65 20 7b 53 45 4c 45 43  ersdb one {SELEC
3720: 54 20 73 71 6c 69 74 65 5f 73 6f 75 72 63 65 5f  T sqlite_source_
3730: 69 64 28 29 7d 5d 20 30 5d 0a 20 20 20 20 76 65  id()}] 0].    ve
3740: 72 73 64 62 20 63 6c 6f 73 65 0a 20 20 20 20 70  rsdb close.    p
3750: 75 74 73 20 22 43 52 45 41 54 45 20 54 41 42 4c  uts "CREATE TABL
3760: 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20  E IF NOT EXISTS 
3770: 74 69 6d 65 28 76 65 72 73 69 6f 6e 2c 20 73 63  time(version, sc
3780: 72 69 70 74 2c 20 74 65 73 74 2c 20 75 73 29 3b  ript, test, us);
3790: 22 0a 20 20 20 20 66 6f 72 65 61 63 68 20 7b 74  ".    foreach {t
37a0: 65 73 74 20 75 73 7d 20 24 3a 3a 73 70 65 65 64  est us} $::speed
37b0: 5f 74 72 69 61 6c 5f 74 69 6d 65 73 20 7b 0a 20  _trial_times {. 
37c0: 20 20 20 20 20 70 75 74 73 20 22 49 4e 53 45 52       puts "INSER
37d0: 54 20 49 4e 54 4f 20 74 69 6d 65 20 56 41 4c 55  T INTO time VALU
37e0: 45 53 28 27 24 76 65 72 73 27 2c 20 27 24 6e 61  ES('$vers', '$na
37f0: 6d 65 27 2c 20 27 24 74 65 73 74 27 2c 20 24 75  me', '$test', $u
3800: 73 29 3b 22 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d  s);".    }.  }.}
3810: 0a 0a 23 20 52 75 6e 20 74 68 69 73 20 72 6f 75  ..# Run this rou
3820: 74 69 6e 65 20 6c 61 73 74 0a 23 0a 70 72 6f 63  tine last.#.proc
3830: 20 66 69 6e 69 73 68 5f 74 65 73 74 20 7b 7d 20   finish_test {} 
3840: 7b 0a 20 20 63 61 74 63 68 20 7b 64 62 20 63 6c  {.  catch {db cl
3850: 6f 73 65 7d 0a 20 20 63 61 74 63 68 20 7b 64 62  ose}.  catch {db
3860: 32 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68  2 close}.  catch
3870: 20 7b 64 62 33 20 63 6c 6f 73 65 7d 0a 20 20 69   {db3 close}.  i
3880: 66 20 7b 30 3d 3d 5b 69 6e 66 6f 20 65 78 69 73  f {0==[info exis
3890: 74 73 20 3a 3a 53 4c 41 56 45 5d 7d 20 7b 20 66  ts ::SLAVE]} { f
38a0: 69 6e 61 6c 69 7a 65 5f 74 65 73 74 69 6e 67 20  inalize_testing 
38b0: 7d 0a 7d 0a 70 72 6f 63 20 66 69 6e 61 6c 69 7a  }.}.proc finaliz
38c0: 65 5f 74 65 73 74 69 6e 67 20 7b 7d 20 7b 0a 20  e_testing {} {. 
38d0: 20 67 6c 6f 62 61 6c 20 73 71 6c 69 74 65 5f 6f   global sqlite_o
38e0: 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 0a 0a  pen_file_count..
38f0: 20 20 73 65 74 20 6f 6d 69 74 4c 69 73 74 20 5b    set omitList [
3900: 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72  set_test_counter
3910: 20 6f 6d 69 74 5f 6c 69 73 74 5d 0a 0a 20 20 63   omit_list]..  c
3920: 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a  atch {db close}.
3930: 20 20 63 61 74 63 68 20 7b 64 62 32 20 63 6c 6f    catch {db2 clo
3940: 73 65 7d 0a 20 20 63 61 74 63 68 20 7b 64 62 33  se}.  catch {db3
3950: 20 63 6c 6f 73 65 7d 0a 0a 20 20 76 66 73 5f 75   close}..  vfs_u
3960: 6e 6c 69 6e 6b 5f 74 65 73 74 0a 20 20 73 71 6c  nlink_test.  sql
3970: 69 74 65 33 20 64 62 20 7b 7d 0a 20 20 23 20 73  ite3 db {}.  # s
3980: 71 6c 69 74 65 33 5f 63 6c 65 61 72 5f 74 73 64  qlite3_clear_tsd
3990: 5f 6d 65 6d 64 65 62 75 67 0a 20 20 64 62 20 63  _memdebug.  db c
39a0: 6c 6f 73 65 0a 20 20 73 71 6c 69 74 65 33 5f 72  lose.  sqlite3_r
39b0: 65 73 65 74 5f 61 75 74 6f 5f 65 78 74 65 6e 73  eset_auto_extens
39c0: 69 6f 6e 0a 0a 20 20 73 71 6c 69 74 65 33 5f 73  ion..  sqlite3_s
39d0: 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69 74 20 30  oft_heap_limit 0
39e0: 0a 20 20 73 65 74 20 6e 54 65 73 74 20 5b 69 6e  .  set nTest [in
39f0: 63 72 5f 6e 74 65 73 74 5d 0a 20 20 73 65 74 20  cr_ntest].  set 
3a00: 6e 45 72 72 20 5b 73 65 74 5f 74 65 73 74 5f 63  nErr [set_test_c
3a10: 6f 75 6e 74 65 72 20 65 72 72 6f 72 73 5d 0a 0a  ounter errors]..
3a20: 20 20 70 75 74 73 20 22 24 6e 45 72 72 20 65 72    puts "$nErr er
3a30: 72 6f 72 73 20 6f 75 74 20 6f 66 20 24 6e 54 65  rors out of $nTe
3a40: 73 74 20 74 65 73 74 73 22 0a 20 20 69 66 20 7b  st tests".  if {
3a50: 24 6e 45 72 72 3e 30 7d 20 7b 0a 20 20 20 20 70  $nErr>0} {.    p
3a60: 75 74 73 20 22 46 61 69 6c 75 72 65 73 20 6f 6e  uts "Failures on
3a70: 20 74 68 65 73 65 20 74 65 73 74 73 3a 20 5b 73   these tests: [s
3a80: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20  et_test_counter 
3a90: 66 61 69 6c 5f 6c 69 73 74 5d 22 0a 20 20 7d 0a  fail_list]".  }.
3aa0: 20 20 72 75 6e 5f 74 68 72 65 61 64 5f 74 65 73    run_thread_tes
3ab0: 74 73 20 31 0a 20 20 69 66 20 7b 5b 6c 6c 65 6e  ts 1.  if {[llen
3ac0: 67 74 68 20 24 6f 6d 69 74 4c 69 73 74 5d 3e 30  gth $omitList]>0
3ad0: 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22 4f 6d  } {.    puts "Om
3ae0: 69 74 74 65 64 20 74 65 73 74 20 63 61 73 65 73  itted test cases
3af0: 3a 22 0a 20 20 20 20 73 65 74 20 70 72 65 63 20  :".    set prec 
3b00: 7b 7d 0a 20 20 20 20 66 6f 72 65 61 63 68 20 7b  {}.    foreach {
3b10: 72 65 63 7d 20 5b 6c 73 6f 72 74 20 24 6f 6d 69  rec} [lsort $omi
3b20: 74 4c 69 73 74 5d 20 7b 0a 20 20 20 20 20 20 69  tList] {.      i
3b30: 66 20 7b 24 72 65 63 3d 3d 24 70 72 65 63 7d 20  f {$rec==$prec} 
3b40: 63 6f 6e 74 69 6e 75 65 0a 20 20 20 20 20 20 73  continue.      s
3b50: 65 74 20 70 72 65 63 20 24 72 65 63 0a 20 20 20  et prec $rec.   
3b60: 20 20 20 70 75 74 73 20 5b 66 6f 72 6d 61 74 20     puts [format 
3b70: 7b 20 20 25 2d 31 32 73 20 25 73 7d 20 5b 6c 69  {  %-12s %s} [li
3b80: 6e 64 65 78 20 24 72 65 63 20 30 5d 20 5b 6c 69  ndex $rec 0] [li
3b90: 6e 64 65 78 20 24 72 65 63 20 31 5d 5d 0a 20 20  ndex $rec 1]].  
3ba0: 20 20 7d 0a 20 20 7d 0a 20 20 69 66 20 7b 24 6e    }.  }.  if {$n
3bb0: 45 72 72 3e 30 20 26 26 20 21 5b 77 6f 72 6b 69  Err>0 && ![worki
3bc0: 6e 67 5f 36 34 62 69 74 5f 69 6e 74 5d 7d 20 7b  ng_64bit_int]} {
3bd0: 0a 20 20 20 20 70 75 74 73 20 22 2a 2a 2a 2a 2a  .    puts "*****
3be0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3bf0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3c00: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3c10: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 0a 20  *************". 
3c20: 20 20 20 70 75 74 73 20 22 4e 2e 42 2e 3a 20 20     puts "N.B.:  
3c30: 54 68 65 20 76 65 72 73 69 6f 6e 20 6f 66 20 54  The version of T
3c40: 43 4c 20 74 68 61 74 20 79 6f 75 20 75 73 65 64  CL that you used
3c50: 20 74 6f 20 62 75 69 6c 64 20 74 68 69 73 20 74   to build this t
3c60: 65 73 74 20 68 61 72 6e 65 73 73 22 0a 20 20 20  est harness".   
3c70: 20 70 75 74 73 20 22 69 73 20 64 65 66 65 63 74   puts "is defect
3c80: 69 76 65 20 69 6e 20 74 68 61 74 20 69 74 20 64  ive in that it d
3c90: 6f 65 73 20 6e 6f 74 20 73 75 70 70 6f 72 74 20  oes not support 
3ca0: 36 34 2d 62 69 74 20 69 6e 74 65 67 65 72 73 2e  64-bit integers.
3cb0: 20 20 53 6f 6d 65 20 6f 72 22 0a 20 20 20 20 70    Some or".    p
3cc0: 75 74 73 20 22 61 6c 6c 20 6f 66 20 74 68 65 20  uts "all of the 
3cd0: 74 65 73 74 20 66 61 69 6c 75 72 65 73 20 61 62  test failures ab
3ce0: 6f 76 65 20 6d 69 67 68 74 20 62 65 20 61 20 72  ove might be a r
3cf0: 65 73 75 6c 74 20 66 72 6f 6d 20 74 68 69 73 20  esult from this 
3d00: 64 65 66 65 63 74 22 0a 20 20 20 20 70 75 74 73  defect".    puts
3d10: 20 22 69 6e 20 79 6f 75 72 20 54 43 4c 20 62 75   "in your TCL bu
3d20: 69 6c 64 2e 22 0a 20 20 20 20 70 75 74 73 20 22  ild.".    puts "
3d30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3d40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3d50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3d60: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3d70: 2a 2a 22 0a 20 20 7d 0a 20 20 69 66 20 7b 24 3a  **".  }.  if {$:
3d80: 3a 63 6d 64 6c 69 6e 65 61 72 67 28 62 69 6e 61  :cmdlinearg(bina
3d90: 72 79 6c 6f 67 29 7d 20 7b 0a 20 20 20 20 76 66  rylog)} {.    vf
3da0: 73 6c 6f 67 20 66 69 6e 61 6c 69 7a 65 20 62 69  slog finalize bi
3db0: 6e 61 72 79 6c 6f 67 0a 20 20 7d 0a 20 20 69 66  narylog.  }.  if
3dc0: 20 7b 24 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66   {$sqlite_open_f
3dd0: 69 6c 65 5f 63 6f 75 6e 74 7d 20 7b 0a 20 20 20  ile_count} {.   
3de0: 20 70 75 74 73 20 22 24 73 71 6c 69 74 65 5f 6f   puts "$sqlite_o
3df0: 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 20 66  pen_file_count f
3e00: 69 6c 65 73 20 77 65 72 65 20 6c 65 66 74 20 6f  iles were left o
3e10: 70 65 6e 22 0a 20 20 20 20 69 6e 63 72 20 6e 45  pen".    incr nE
3e20: 72 72 0a 20 20 7d 0a 20 20 69 66 20 7b 5b 6c 69  rr.  }.  if {[li
3e30: 6e 64 65 78 20 5b 73 71 6c 69 74 65 33 5f 73 74  ndex [sqlite3_st
3e40: 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54  atus SQLITE_STAT
3e50: 55 53 5f 4d 41 4c 4c 4f 43 5f 43 4f 55 4e 54 20  US_MALLOC_COUNT 
3e60: 30 5d 20 31 5d 3e 30 20 7c 7c 0a 20 20 20 20 20  0] 1]>0 ||.     
3e70: 20 20 20 20 20 20 20 20 20 5b 73 71 6c 69 74 65           [sqlite
3e80: 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 64 5d 3e 30  3_memory_used]>0
3e90: 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22 55 6e  } {.    puts "Un
3ea0: 66 72 65 65 64 20 6d 65 6d 6f 72 79 3a 20 5b 73  freed memory: [s
3eb0: 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73  qlite3_memory_us
3ec0: 65 64 5d 20 62 79 74 65 73 20 69 6e 5c 0a 20 20  ed] bytes in\.  
3ed0: 20 20 20 20 20 20 20 5b 6c 69 6e 64 65 78 20 5b         [lindex [
3ee0: 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53  sqlite3_status S
3ef0: 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 4d 41 4c  QLITE_STATUS_MAL
3f00: 4c 4f 43 5f 43 4f 55 4e 54 20 30 5d 20 31 5d 20  LOC_COUNT 0] 1] 
3f10: 61 6c 6c 6f 63 61 74 69 6f 6e 73 22 0a 20 20 20  allocations".   
3f20: 20 69 6e 63 72 20 6e 45 72 72 0a 20 20 20 20 69   incr nErr.    i
3f30: 66 63 61 70 61 62 6c 65 20 6d 65 6d 64 65 62 75  fcapable memdebu
3f40: 67 7c 7c 6d 65 6d 35 7c 7c 28 6d 65 6d 33 26 26  g||mem5||(mem3&&
3f50: 64 65 62 75 67 29 20 7b 0a 20 20 20 20 20 20 70  debug) {.      p
3f60: 75 74 73 20 22 57 72 69 74 69 6e 67 20 75 6e 66  uts "Writing unf
3f70: 72 65 65 64 20 6d 65 6d 6f 72 79 20 6c 6f 67 20  reed memory log 
3f80: 74 6f 20 5c 22 2e 2f 6d 65 6d 6c 65 61 6b 2e 74  to \"./memleak.t
3f90: 78 74 5c 22 22 0a 20 20 20 20 20 20 73 71 6c 69  xt\"".      sqli
3fa0: 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 64 75 6d  te3_memdebug_dum
3fb0: 70 20 2e 2f 6d 65 6d 6c 65 61 6b 2e 74 78 74 0a  p ./memleak.txt.
3fc0: 20 20 20 20 7d 0a 20 20 7d 20 65 6c 73 65 20 7b      }.  } else {
3fd0: 0a 20 20 20 20 70 75 74 73 20 22 41 6c 6c 20 6d  .    puts "All m
3fe0: 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e  emory allocation
3ff0: 73 20 66 72 65 65 64 20 2d 20 6e 6f 20 6c 65 61  s freed - no lea
4000: 6b 73 22 0a 20 20 20 20 69 66 63 61 70 61 62 6c  ks".    ifcapabl
4010: 65 20 6d 65 6d 64 65 62 75 67 7c 7c 6d 65 6d 35  e memdebug||mem5
4020: 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33   {.      sqlite3
4030: 5f 6d 65 6d 64 65 62 75 67 5f 64 75 6d 70 20 2e  _memdebug_dump .
4040: 2f 6d 65 6d 75 73 61 67 65 2e 74 78 74 0a 20 20  /memusage.txt.  
4050: 20 20 7d 0a 20 20 7d 0a 20 20 73 68 6f 77 5f 6d    }.  }.  show_m
4060: 65 6d 73 74 61 74 73 0a 20 20 70 75 74 73 20 22  emstats.  puts "
4070: 4d 61 78 69 6d 75 6d 20 6d 65 6d 6f 72 79 20 75  Maximum memory u
4080: 73 61 67 65 3a 20 5b 73 71 6c 69 74 65 33 5f 6d  sage: [sqlite3_m
4090: 65 6d 6f 72 79 5f 68 69 67 68 77 61 74 65 72 20  emory_highwater 
40a0: 31 5d 20 62 79 74 65 73 22 0a 20 20 70 75 74 73  1] bytes".  puts
40b0: 20 22 43 75 72 72 65 6e 74 20 6d 65 6d 6f 72 79   "Current memory
40c0: 20 75 73 61 67 65 3a 20 5b 73 71 6c 69 74 65 33   usage: [sqlite3
40d0: 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 61 74 65  _memory_highwate
40e0: 72 5d 20 62 79 74 65 73 22 0a 20 20 69 66 20 7b  r] bytes".  if {
40f0: 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73 20 73  [info commands s
4100: 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f  qlite3_memdebug_
4110: 6d 61 6c 6c 6f 63 5f 63 6f 75 6e 74 5d 20 6e 65  malloc_count] ne
4120: 20 22 22 7d 20 7b 0a 20 20 20 20 70 75 74 73 20   ""} {.    puts 
4130: 22 4e 75 6d 62 65 72 20 6f 66 20 6d 61 6c 6c 6f  "Number of mallo
4140: 63 28 29 20 20 3a 20 5b 73 71 6c 69 74 65 33 5f  c()  : [sqlite3_
4150: 6d 65 6d 64 65 62 75 67 5f 6d 61 6c 6c 6f 63 5f  memdebug_malloc_
4160: 63 6f 75 6e 74 5d 20 63 61 6c 6c 73 22 0a 20 20  count] calls".  
4170: 7d 0a 20 20 69 66 20 7b 24 3a 3a 63 6d 64 6c 69  }.  if {$::cmdli
4180: 6e 65 61 72 67 28 6d 61 6c 6c 6f 63 74 72 61 63  nearg(malloctrac
4190: 65 29 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22  e)} {.    puts "
41a0: 57 72 69 74 69 6e 67 20 6d 61 6c 6c 6f 63 73 2e  Writing mallocs.
41b0: 73 71 6c 2e 2e 2e 22 0a 20 20 20 20 6d 65 6d 64  sql...".    memd
41c0: 65 62 75 67 5f 6c 6f 67 5f 73 71 6c 0a 20 20 20  ebug_log_sql.   
41d0: 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75   sqlite3_memdebu
41e0: 67 5f 6c 6f 67 20 73 74 6f 70 0a 20 20 20 20 73  g_log stop.    s
41f0: 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f  qlite3_memdebug_
4200: 6c 6f 67 20 63 6c 65 61 72 0a 0a 20 20 20 20 69  log clear..    i
4210: 66 20 7b 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 6f  f {[sqlite3_memo
4220: 72 79 5f 75 73 65 64 5d 3e 30 7d 20 7b 0a 20 20  ry_used]>0} {.  
4230: 20 20 20 20 70 75 74 73 20 22 57 72 69 74 69 6e      puts "Writin
4240: 67 20 6c 65 61 6b 73 2e 73 71 6c 2e 2e 2e 22 0a  g leaks.sql...".
4250: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65        sqlite3_me
4260: 6d 64 65 62 75 67 5f 6c 6f 67 20 73 79 6e 63 0a  mdebug_log sync.
4270: 20 20 20 20 20 20 6d 65 6d 64 65 62 75 67 5f 6c        memdebug_l
4280: 6f 67 5f 73 71 6c 20 6c 65 61 6b 73 2e 73 71 6c  og_sql leaks.sql
4290: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 66 6f 72  .    }.  }.  for
42a0: 65 61 63 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f  each f [glob -no
42b0: 63 6f 6d 70 6c 61 69 6e 20 74 65 73 74 2e 64 62  complain test.db
42c0: 2d 2a 2d 6a 6f 75 72 6e 61 6c 5d 20 7b 0a 20 20  -*-journal] {.  
42d0: 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66    file delete -f
42e0: 6f 72 63 65 20 24 66 0a 20 20 7d 0a 20 20 66 6f  orce $f.  }.  fo
42f0: 72 65 61 63 68 20 66 20 5b 67 6c 6f 62 20 2d 6e  reach f [glob -n
4300: 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 73 74 2e 64  ocomplain test.d
4310: 62 2d 6d 6a 2a 5d 20 7b 0a 20 20 20 20 66 69 6c  b-mj*] {.    fil
4320: 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20  e delete -force 
4330: 24 66 0a 20 20 7d 0a 20 20 65 78 69 74 20 5b 65  $f.  }.  exit [e
4340: 78 70 72 20 7b 24 6e 45 72 72 3e 30 7d 5d 0a 7d  xpr {$nErr>0}].}
4350: 0a 0a 23 20 44 69 73 70 6c 61 79 20 6d 65 6d 6f  ..# Display memo
4360: 72 79 20 73 74 61 74 69 73 74 69 63 73 20 66 6f  ry statistics fo
4370: 72 20 61 6e 61 6c 79 73 69 73 20 61 6e 64 20 64  r analysis and d
4380: 65 62 75 67 67 69 6e 67 20 70 75 72 70 6f 73 65  ebugging purpose
4390: 73 2e 0a 23 0a 70 72 6f 63 20 73 68 6f 77 5f 6d  s..#.proc show_m
43a0: 65 6d 73 74 61 74 73 20 7b 7d 20 7b 0a 20 20 73  emstats {} {.  s
43b0: 65 74 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74  et x [sqlite3_st
43c0: 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54  atus SQLITE_STAT
43d0: 55 53 5f 4d 45 4d 4f 52 59 5f 55 53 45 44 20 30  US_MEMORY_USED 0
43e0: 5d 0a 20 20 73 65 74 20 79 20 5b 73 71 6c 69 74  ].  set y [sqlit
43f0: 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45  e3_status SQLITE
4400: 5f 53 54 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f 53  _STATUS_MALLOC_S
4410: 49 5a 45 20 30 5d 0a 20 20 73 65 74 20 76 61 6c  IZE 0].  set val
4420: 20 5b 66 6f 72 6d 61 74 20 7b 6e 6f 77 20 25 31   [format {now %1
4430: 30 64 20 20 6d 61 78 20 25 31 30 64 20 20 6d 61  0d  max %10d  ma
4440: 78 2d 73 69 7a 65 20 25 31 30 64 7d 20 5c 0a 20  x-size %10d} \. 
4450: 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 6c 69               [li
4460: 6e 64 65 78 20 24 78 20 31 5d 20 5b 6c 69 6e 64  ndex $x 1] [lind
4470: 65 78 20 24 78 20 32 5d 20 5b 6c 69 6e 64 65 78  ex $x 2] [lindex
4480: 20 24 79 20 32 5d 5d 0a 20 20 70 75 74 73 20 22   $y 2]].  puts "
4490: 4d 65 6d 6f 72 79 20 75 73 65 64 3a 20 20 20 20  Memory used:    
44a0: 20 20 20 20 20 20 24 76 61 6c 22 0a 20 20 73 65        $val".  se
44b0: 74 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61  t x [sqlite3_sta
44c0: 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55  tus SQLITE_STATU
44d0: 53 5f 4d 41 4c 4c 4f 43 5f 43 4f 55 4e 54 20 30  S_MALLOC_COUNT 0
44e0: 5d 0a 20 20 73 65 74 20 76 61 6c 20 5b 66 6f 72  ].  set val [for
44f0: 6d 61 74 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d  mat {now %10d  m
4500: 61 78 20 25 31 30 64 7d 20 5b 6c 69 6e 64 65 78  ax %10d} [lindex
4510: 20 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24   $x 1] [lindex $
4520: 78 20 32 5d 5d 0a 20 20 70 75 74 73 20 22 41 6c  x 2]].  puts "Al
4530: 6c 6f 63 61 74 69 6f 6e 20 63 6f 75 6e 74 3a 20  location count: 
4540: 20 20 20 20 24 76 61 6c 22 0a 20 20 73 65 74 20      $val".  set 
4550: 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75  x [sqlite3_statu
4560: 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f  s SQLITE_STATUS_
4570: 50 41 47 45 43 41 43 48 45 5f 55 53 45 44 20 30  PAGECACHE_USED 0
4580: 5d 0a 20 20 73 65 74 20 79 20 5b 73 71 6c 69 74  ].  set y [sqlit
4590: 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45  e3_status SQLITE
45a0: 5f 53 54 41 54 55 53 5f 50 41 47 45 43 41 43 48  _STATUS_PAGECACH
45b0: 45 5f 53 49 5a 45 20 30 5d 0a 20 20 73 65 74 20  E_SIZE 0].  set 
45c0: 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b 6e 6f 77  val [format {now
45d0: 20 25 31 30 64 20 20 6d 61 78 20 25 31 30 64 20   %10d  max %10d 
45e0: 20 6d 61 78 2d 73 69 7a 65 20 25 31 30 64 7d 20   max-size %10d} 
45f0: 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  \.              
4600: 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d 20 5b 6c  [lindex $x 1] [l
4610: 69 6e 64 65 78 20 24 78 20 32 5d 20 5b 6c 69 6e  index $x 2] [lin
4620: 64 65 78 20 24 79 20 32 5d 5d 0a 20 20 70 75 74  dex $y 2]].  put
4630: 73 20 22 50 61 67 65 2d 63 61 63 68 65 20 75 73  s "Page-cache us
4640: 65 64 3a 20 20 20 20 20 20 24 76 61 6c 22 0a 20  ed:      $val". 
4650: 20 73 65 74 20 78 20 5b 73 71 6c 69 74 65 33 5f   set x [sqlite3_
4660: 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54  status SQLITE_ST
4670: 41 54 55 53 5f 50 41 47 45 43 41 43 48 45 5f 4f  ATUS_PAGECACHE_O
4680: 56 45 52 46 4c 4f 57 20 30 5d 0a 20 20 73 65 74  VERFLOW 0].  set
4690: 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b 6e 6f   val [format {no
46a0: 77 20 25 31 30 64 20 20 6d 61 78 20 25 31 30 64  w %10d  max %10d
46b0: 7d 20 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d 20  } [lindex $x 1] 
46c0: 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 5d 0a 20  [lindex $x 2]]. 
46d0: 20 70 75 74 73 20 22 50 61 67 65 2d 63 61 63 68   puts "Page-cach
46e0: 65 20 6f 76 65 72 66 6c 6f 77 3a 20 20 24 76 61  e overflow:  $va
46f0: 6c 22 0a 20 20 73 65 74 20 78 20 5b 73 71 6c 69  l".  set x [sqli
4700: 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54  te3_status SQLIT
4710: 45 5f 53 54 41 54 55 53 5f 53 43 52 41 54 43 48  E_STATUS_SCRATCH
4720: 5f 55 53 45 44 20 30 5d 0a 20 20 73 65 74 20 76  _USED 0].  set v
4730: 61 6c 20 5b 66 6f 72 6d 61 74 20 7b 6e 6f 77 20  al [format {now 
4740: 25 31 30 64 20 20 6d 61 78 20 25 31 30 64 7d 20  %10d  max %10d} 
4750: 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d 20 5b 6c  [lindex $x 1] [l
4760: 69 6e 64 65 78 20 24 78 20 32 5d 5d 0a 20 20 70  index $x 2]].  p
4770: 75 74 73 20 22 53 63 72 61 74 63 68 20 6d 65 6d  uts "Scratch mem
4780: 6f 72 79 20 75 73 65 64 3a 20 20 24 76 61 6c 22  ory used:  $val"
4790: 0a 20 20 73 65 74 20 78 20 5b 73 71 6c 69 74 65  .  set x [sqlite
47a0: 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f  3_status SQLITE_
47b0: 53 54 41 54 55 53 5f 53 43 52 41 54 43 48 5f 4f  STATUS_SCRATCH_O
47c0: 56 45 52 46 4c 4f 57 20 30 5d 0a 20 20 73 65 74  VERFLOW 0].  set
47d0: 20 79 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74   y [sqlite3_stat
47e0: 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53  us SQLITE_STATUS
47f0: 5f 53 43 52 41 54 43 48 5f 53 49 5a 45 20 30 5d  _SCRATCH_SIZE 0]
4800: 0a 20 20 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d  .  set val [form
4810: 61 74 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d 61  at {now %10d  ma
4820: 78 20 25 31 30 64 20 20 6d 61 78 2d 73 69 7a 65  x %10d  max-size
4830: 20 25 31 30 64 7d 20 5c 0a 20 20 20 20 20 20 20   %10d} \.       
4840: 20 20 20 20 20 20 20 20 5b 6c 69 6e 64 65 78 20          [lindex 
4850: 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 78  $x 1] [lindex $x
4860: 20 32 5d 20 5b 6c 69 6e 64 65 78 20 24 79 20 32   2] [lindex $y 2
4870: 5d 5d 0a 20 20 70 75 74 73 20 22 53 63 72 61 74  ]].  puts "Scrat
4880: 63 68 20 6f 76 65 72 66 6c 6f 77 3a 20 20 20 20  ch overflow:    
4890: 20 24 76 61 6c 22 0a 20 20 69 66 63 61 70 61 62   $val".  ifcapab
48a0: 6c 65 20 79 79 74 72 61 63 6b 6d 61 78 73 74 61  le yytrackmaxsta
48b0: 63 6b 64 65 70 74 68 20 7b 0a 20 20 20 20 73 65  ckdepth {.    se
48c0: 74 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61  t x [sqlite3_sta
48d0: 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55  tus SQLITE_STATU
48e0: 53 5f 50 41 52 53 45 52 5f 53 54 41 43 4b 20 30  S_PARSER_STACK 0
48f0: 5d 0a 20 20 20 20 73 65 74 20 76 61 6c 20 5b 66  ].    set val [f
4900: 6f 72 6d 61 74 20 7b 20 20 20 20 20 20 20 20 20  ormat {         
4910: 20 20 20 20 20 20 6d 61 78 20 25 31 30 64 7d 20        max %10d} 
4920: 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 5d 0a 20  [lindex $x 2]]. 
4930: 20 20 20 70 75 74 73 20 22 50 61 72 73 65 72 20     puts "Parser 
4940: 73 74 61 63 6b 20 64 65 70 74 68 3a 20 20 20 20  stack depth:    
4950: 24 76 61 6c 22 0a 20 20 7d 0a 7d 0a 0a 23 20 41  $val".  }.}..# A
4960: 20 70 72 6f 63 65 64 75 72 65 20 74 6f 20 65 78   procedure to ex
4970: 65 63 75 74 65 20 53 51 4c 0a 23 0a 70 72 6f 63  ecute SQL.#.proc
4980: 20 65 78 65 63 73 71 6c 20 7b 73 71 6c 20 7b 64   execsql {sql {d
4990: 62 20 64 62 7d 7d 20 7b 0a 20 20 23 20 70 75 74  b db}} {.  # put
49a0: 73 20 22 53 51 4c 20 3d 20 24 73 71 6c 22 0a 20  s "SQL = $sql". 
49b0: 20 75 70 6c 65 76 65 6c 20 5b 6c 69 73 74 20 24   uplevel [list $
49c0: 64 62 20 65 76 61 6c 20 24 73 71 6c 5d 0a 7d 0a  db eval $sql].}.
49d0: 0a 23 20 45 78 65 63 75 74 65 20 53 51 4c 20 61  .# Execute SQL a
49e0: 6e 64 20 63 61 74 63 68 20 65 78 63 65 70 74 69  nd catch excepti
49f0: 6f 6e 73 2e 0a 23 0a 70 72 6f 63 20 63 61 74 63  ons..#.proc catc
4a00: 68 73 71 6c 20 7b 73 71 6c 20 7b 64 62 20 64 62  hsql {sql {db db
4a10: 7d 7d 20 7b 0a 20 20 23 20 70 75 74 73 20 22 53  }} {.  # puts "S
4a20: 51 4c 20 3d 20 24 73 71 6c 22 0a 20 20 73 65 74  QL = $sql".  set
4a30: 20 72 20 5b 63 61 74 63 68 20 5b 6c 69 73 74 20   r [catch [list 
4a40: 75 70 6c 65 76 65 6c 20 5b 6c 69 73 74 20 24 64  uplevel [list $d
4a50: 62 20 65 76 61 6c 20 24 73 71 6c 5d 5d 20 6d 73  b eval $sql]] ms
4a60: 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72 20 24  g].  lappend r $
4a70: 6d 73 67 0a 20 20 72 65 74 75 72 6e 20 24 72 0a  msg.  return $r.
4a80: 7d 0a 0a 23 20 44 6f 20 61 6e 20 56 44 42 45 20  }..# Do an VDBE 
4a90: 63 6f 64 65 20 64 75 6d 70 20 6f 6e 20 74 68 65  code dump on the
4aa0: 20 53 51 4c 20 67 69 76 65 6e 0a 23 0a 70 72 6f   SQL given.#.pro
4ab0: 63 20 65 78 70 6c 61 69 6e 20 7b 73 71 6c 20 7b  c explain {sql {
4ac0: 64 62 20 64 62 7d 7d 20 7b 0a 20 20 70 75 74 73  db db}} {.  puts
4ad0: 20 22 22 0a 20 20 70 75 74 73 20 22 61 64 64 72   "".  puts "addr
4ae0: 20 20 6f 70 63 6f 64 65 20 20 20 20 20 20 20 20    opcode        
4af0: 70 31 20 20 20 20 20 20 70 32 20 20 20 20 20 20  p1      p2      
4b00: 70 33 20 20 20 20 20 20 70 34 20 20 20 20 20 20  p3      p4      
4b10: 20 20 20 20 20 20 20 20 20 70 35 20 20 23 22 0a           p5  #".
4b20: 20 20 70 75 74 73 20 22 2d 2d 2d 2d 20 20 2d 2d    puts "----  --
4b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d  ----------  ----
4b40: 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d  --  ------  ----
4b50: 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  --  ------------
4b60: 2d 2d 2d 20 20 2d 2d 20 20 2d 22 0a 20 20 24 64  ---  --  -".  $d
4b70: 62 20 65 76 61 6c 20 22 65 78 70 6c 61 69 6e 20  b eval "explain 
4b80: 24 73 71 6c 22 20 7b 7d 20 7b 0a 20 20 20 20 70  $sql" {} {.    p
4b90: 75 74 73 20 5b 66 6f 72 6d 61 74 20 7b 25 2d 34  uts [format {%-4
4ba0: 64 20 20 25 2d 31 32 2e 31 32 73 20 20 25 2d 36  d  %-12.12s  %-6
4bb0: 64 20 20 25 2d 36 64 20 20 25 2d 36 64 20 20 25  d  %-6d  %-6d  %
4bc0: 20 2d 31 37 73 20 25 73 20 20 25 73 7d 20 5c 0a   -17s %s  %s} \.
4bd0: 20 20 20 20 20 20 24 61 64 64 72 20 24 6f 70 63        $addr $opc
4be0: 6f 64 65 20 24 70 31 20 24 70 32 20 24 70 33 20  ode $p1 $p2 $p3 
4bf0: 24 70 34 20 24 70 35 20 24 63 6f 6d 6d 65 6e 74  $p4 $p5 $comment
4c00: 0a 20 20 20 20 5d 0a 20 20 7d 0a 7d 0a 0a 23 20  .    ].  }.}..# 
4c10: 53 68 6f 77 20 74 68 65 20 56 44 42 45 20 70 72  Show the VDBE pr
4c20: 6f 67 72 61 6d 20 66 6f 72 20 61 6e 20 53 51 4c  ogram for an SQL
4c30: 20 73 74 61 74 65 6d 65 6e 74 20 62 75 74 20 6f   statement but o
4c40: 6d 69 74 20 74 68 65 20 54 72 61 63 65 0a 23 20  mit the Trace.# 
4c50: 6f 70 63 6f 64 65 20 61 74 20 74 68 65 20 62 65  opcode at the be
4c60: 67 69 6e 6e 69 6e 67 2e 20 20 54 68 69 73 20 70  ginning.  This p
4c70: 72 6f 63 65 64 75 72 65 20 63 61 6e 20 62 65 20  rocedure can be 
4c80: 75 73 65 64 20 74 6f 20 70 72 6f 76 65 0a 23 20  used to prove.# 
4c90: 74 68 61 74 20 64 69 66 66 65 72 65 6e 74 20 53  that different S
4ca0: 51 4c 20 73 74 61 74 65 6d 65 6e 74 73 20 67 65  QL statements ge
4cb0: 6e 65 72 61 74 65 20 65 78 61 63 74 6c 79 20 74  nerate exactly t
4cc0: 68 65 20 73 61 6d 65 20 56 44 42 45 20 63 6f 64  he same VDBE cod
4cd0: 65 2e 0a 23 0a 70 72 6f 63 20 65 78 70 6c 61 69  e..#.proc explai
4ce0: 6e 5f 6e 6f 5f 74 72 61 63 65 20 7b 73 71 6c 7d  n_no_trace {sql}
4cf0: 20 7b 0a 20 20 73 65 74 20 74 72 20 5b 64 62 20   {.  set tr [db 
4d00: 65 76 61 6c 20 22 45 58 50 4c 41 49 4e 20 24 73  eval "EXPLAIN $s
4d10: 71 6c 22 5d 0a 20 20 72 65 74 75 72 6e 20 5b 6c  ql"].  return [l
4d20: 72 61 6e 67 65 20 24 74 72 20 37 20 65 6e 64 5d  range $tr 7 end]
4d30: 0a 7d 0a 0a 23 20 41 6e 6f 74 68 65 72 20 70 72  .}..# Another pr
4d40: 6f 63 65 64 75 72 65 20 74 6f 20 65 78 65 63 75  ocedure to execu
4d50: 74 65 20 53 51 4c 2e 20 20 54 68 69 73 20 6f 6e  te SQL.  This on
4d60: 65 20 69 6e 63 6c 75 64 65 73 20 74 68 65 20 66  e includes the f
4d70: 69 65 6c 64 0a 23 20 6e 61 6d 65 73 20 69 6e 20  ield.# names in 
4d80: 74 68 65 20 72 65 74 75 72 6e 65 64 20 6c 69 73  the returned lis
4d90: 74 2e 0a 23 0a 70 72 6f 63 20 65 78 65 63 73 71  t..#.proc execsq
4da0: 6c 32 20 7b 73 71 6c 7d 20 7b 0a 20 20 73 65 74  l2 {sql} {.  set
4db0: 20 72 65 73 75 6c 74 20 7b 7d 0a 20 20 64 62 20   result {}.  db 
4dc0: 65 76 61 6c 20 24 73 71 6c 20 64 61 74 61 20 7b  eval $sql data {
4dd0: 0a 20 20 20 20 66 6f 72 65 61 63 68 20 66 20 24  .    foreach f $
4de0: 64 61 74 61 28 2a 29 20 7b 0a 20 20 20 20 20 20  data(*) {.      
4df0: 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 24  lappend result $
4e00: 66 20 24 64 61 74 61 28 24 66 29 0a 20 20 20 20  f $data($f).    
4e10: 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 24  }.  }.  return $
4e20: 72 65 73 75 6c 74 0a 7d 0a 0a 23 20 55 73 65 20  result.}..# Use 
4e30: 74 68 65 20 6e 6f 6e 2d 63 61 6c 6c 62 61 63 6b  the non-callback
4e40: 20 41 50 49 20 74 6f 20 65 78 65 63 75 74 65 20   API to execute 
4e50: 6d 75 6c 74 69 70 6c 65 20 53 51 4c 20 73 74 61  multiple SQL sta
4e60: 74 65 6d 65 6e 74 73 0a 23 0a 70 72 6f 63 20 73  tements.#.proc s
4e70: 74 65 70 73 71 6c 20 7b 64 62 70 74 72 20 73 71  tepsql {dbptr sq
4e80: 6c 7d 20 7b 0a 20 20 73 65 74 20 73 71 6c 20 5b  l} {.  set sql [
4e90: 73 74 72 69 6e 67 20 74 72 69 6d 20 24 73 71 6c  string trim $sql
4ea0: 5d 0a 20 20 73 65 74 20 72 20 30 0a 20 20 77 68  ].  set r 0.  wh
4eb0: 69 6c 65 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e  ile {[string len
4ec0: 67 74 68 20 24 73 71 6c 5d 3e 30 7d 20 7b 0a 20  gth $sql]>0} {. 
4ed0: 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 73     if {[catch {s
4ee0: 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 20 24  qlite3_prepare $
4ef0: 64 62 70 74 72 20 24 73 71 6c 20 2d 31 20 73 71  dbptr $sql -1 sq
4f00: 6c 74 61 69 6c 7d 20 76 6d 5d 7d 20 7b 0a 20 20  ltail} vm]} {.  
4f10: 20 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 73 74      return [list
4f20: 20 31 20 24 76 6d 5d 0a 20 20 20 20 7d 0a 20 20   1 $vm].    }.  
4f30: 20 20 73 65 74 20 73 71 6c 20 5b 73 74 72 69 6e    set sql [strin
4f40: 67 20 74 72 69 6d 20 24 73 71 6c 74 61 69 6c 5d  g trim $sqltail]
4f50: 0a 23 20 20 20 20 77 68 69 6c 65 20 7b 5b 73 71  .#    while {[sq
4f60: 6c 69 74 65 5f 73 74 65 70 20 24 76 6d 20 4e 20  lite_step $vm N 
4f70: 56 41 4c 20 43 4f 4c 5d 3d 3d 22 53 51 4c 49 54  VAL COL]=="SQLIT
4f80: 45 5f 52 4f 57 22 7d 20 7b 0a 23 20 20 20 20 20  E_ROW"} {.#     
4f90: 20 66 6f 72 65 61 63 68 20 76 20 24 56 41 4c 20   foreach v $VAL 
4fa0: 7b 6c 61 70 70 65 6e 64 20 72 20 24 76 7d 0a 23  {lappend r $v}.#
4fb0: 20 20 20 20 7d 0a 20 20 20 20 77 68 69 6c 65 20      }.    while 
4fc0: 7b 5b 73 71 6c 69 74 65 33 5f 73 74 65 70 20 24  {[sqlite3_step $
4fd0: 76 6d 5d 3d 3d 22 53 51 4c 49 54 45 5f 52 4f 57  vm]=="SQLITE_ROW
4fe0: 22 7d 20 7b 0a 20 20 20 20 20 20 66 6f 72 20 7b  "} {.      for {
4ff0: 73 65 74 20 69 20 30 7d 20 7b 24 69 3c 5b 73 71  set i 0} {$i<[sq
5000: 6c 69 74 65 33 5f 64 61 74 61 5f 63 6f 75 6e 74  lite3_data_count
5010: 20 24 76 6d 5d 7d 20 7b 69 6e 63 72 20 69 7d 20   $vm]} {incr i} 
5020: 7b 0a 20 20 20 20 20 20 20 20 6c 61 70 70 65 6e  {.        lappen
5030: 64 20 72 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6c  d r [sqlite3_col
5040: 75 6d 6e 5f 74 65 78 74 20 24 76 6d 20 24 69 5d  umn_text $vm $i]
5050: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20  .      }.    }. 
5060: 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 73     if {[catch {s
5070: 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 20  qlite3_finalize 
5080: 24 76 6d 7d 20 65 72 72 6d 73 67 5d 7d 20 7b 0a  $vm} errmsg]} {.
5090: 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c 69        return [li
50a0: 73 74 20 31 20 24 65 72 72 6d 73 67 5d 0a 20 20  st 1 $errmsg].  
50b0: 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e    }.  }.  return
50c0: 20 24 72 0a 7d 0a 0a 23 20 44 65 6c 65 74 65 20   $r.}..# Delete 
50d0: 61 20 66 69 6c 65 20 6f 72 20 64 69 72 65 63 74  a file or direct
50e0: 6f 72 79 0a 23 0a 70 72 6f 63 20 66 6f 72 63 65  ory.#.proc force
50f0: 64 65 6c 65 74 65 20 7b 61 72 67 73 7d 20 7b 0a  delete {args} {.
5100: 20 20 66 6f 72 65 61 63 68 20 66 69 6c 65 6e 61    foreach filena
5110: 6d 65 20 24 61 72 67 73 20 7b 0a 20 20 20 20 23  me $args {.    #
5120: 20 4f 6e 20 77 69 6e 64 6f 77 73 2c 20 73 6f 6d   On windows, som
5130: 65 74 69 6d 65 73 20 65 76 65 6e 20 61 20 5b 66  etimes even a [f
5140: 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63  ile delete -forc
5150: 65 5d 20 63 61 6e 20 66 61 69 6c 20 6a 75 73 74  e] can fail just
5160: 20 61 66 74 65 72 0a 20 20 20 20 23 20 61 20 66   after.    # a f
5170: 69 6c 65 20 69 73 20 63 6c 6f 73 65 64 2e 20 54  ile is closed. T
5180: 68 65 20 63 61 75 73 65 20 69 73 20 75 73 75 61  he cause is usua
5190: 6c 6c 79 20 22 74 61 67 2d 61 6c 6f 6e 67 73 22  lly "tag-alongs"
51a0: 20 2d 20 70 72 6f 67 72 61 6d 73 20 6c 69 6b 65   - programs like
51b0: 0a 20 20 20 20 23 20 61 6e 74 69 2d 76 69 72 75  .    # anti-viru
51c0: 73 20 73 6f 66 74 77 61 72 65 2c 20 61 75 74 6f  s software, auto
51d0: 6d 61 74 69 63 20 62 61 63 6b 75 70 20 74 6f 6f  matic backup too
51e0: 6c 73 20 61 6e 64 20 76 61 72 69 6f 75 73 20 65  ls and various e
51f0: 78 70 6c 6f 72 65 72 0a 20 20 20 20 23 20 65 78  xplorer.    # ex
5200: 74 65 6e 73 69 6f 6e 73 20 74 68 61 74 20 6b 65  tensions that ke
5210: 65 70 20 61 20 66 69 6c 65 20 6f 70 65 6e 20 61  ep a file open a
5220: 20 6c 69 74 74 6c 65 20 6c 6f 6e 67 65 72 20 74   little longer t
5230: 68 61 6e 20 77 65 20 65 78 70 65 63 74 2c 20 63  han we expect, c
5240: 61 75 73 69 6e 67 0a 20 20 20 20 23 20 74 68 65  ausing.    # the
5250: 20 64 65 6c 65 74 65 20 74 6f 20 66 61 69 6c 2e   delete to fail.
5260: 0a 20 20 20 20 23 0a 20 20 20 20 23 20 54 68 65  .    #.    # The
5270: 20 73 6f 6c 75 74 69 6f 6e 20 69 73 20 74 6f 20   solution is to 
5280: 77 61 69 74 20 61 20 73 68 6f 72 74 20 61 6d 6f  wait a short amo
5290: 75 6e 74 20 6f 66 20 74 69 6d 65 20 62 65 66 6f  unt of time befo
52a0: 72 65 20 72 65 74 72 79 69 6e 67 20 74 68 65 20  re retrying the 
52b0: 0a 20 20 20 20 23 20 64 65 6c 65 74 65 2e 0a 20  .    # delete.. 
52c0: 20 20 20 23 0a 20 20 20 20 73 65 74 20 6e 52 65     #.    set nRe
52d0: 74 72 79 20 20 35 30 20 20 20 20 20 20 20 20 20  try  50         
52e0: 20 20 20 20 20 20 20 20 20 3b 23 20 4d 61 78 69           ;# Maxi
52f0: 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 72 65  mum number of re
5300: 74 72 69 65 73 2e 0a 20 20 20 20 73 65 74 20 6e  tries..    set n
5310: 44 65 6c 61 79 20 31 30 30 20 20 20 20 20 20 20  Delay 100       
5320: 20 20 20 20 20 20 20 20 20 20 20 3b 23 20 44 65             ;# De
5330: 6c 61 79 20 69 6e 20 6d 73 20 62 65 66 6f 72 65  lay in ms before
5340: 20 72 65 74 72 79 69 6e 67 2e 0a 20 20 20 20 66   retrying..    f
5350: 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69  or {set i 0} {$i
5360: 3c 24 6e 52 65 74 72 79 7d 20 7b 69 6e 63 72 20  <$nRetry} {incr 
5370: 69 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 72  i} {.      set r
5380: 63 20 5b 63 61 74 63 68 20 7b 66 69 6c 65 20 64  c [catch {file d
5390: 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 24 66 69  elete -force $fi
53a0: 6c 65 6e 61 6d 65 7d 20 6d 73 67 5d 0a 20 20 20  lename} msg].   
53b0: 20 20 20 69 66 20 7b 24 72 63 3d 3d 30 7d 20 62     if {$rc==0} b
53c0: 72 65 61 6b 0a 20 20 20 20 20 20 61 66 74 65 72  reak.      after
53d0: 20 24 6e 44 65 6c 61 79 0a 20 20 20 20 7d 0a 20   $nDelay.    }. 
53e0: 20 20 20 69 66 20 7b 24 72 63 7d 20 7b 20 65 72     if {$rc} { er
53f0: 72 6f 72 20 24 6d 73 67 20 7d 0a 20 20 7d 0a 7d  ror $msg }.  }.}
5400: 0a 0a 23 20 44 6f 20 61 6e 20 69 6e 74 65 67 72  ..# Do an integr
5410: 69 74 79 20 63 68 65 63 6b 20 6f 66 20 74 68 65  ity check of the
5420: 20 65 6e 74 69 72 65 20 64 61 74 61 62 61 73 65   entire database
5430: 0a 23 0a 70 72 6f 63 20 69 6e 74 65 67 72 69 74  .#.proc integrit
5440: 79 5f 63 68 65 63 6b 20 7b 6e 61 6d 65 20 7b 64  y_check {name {d
5450: 62 20 64 62 7d 7d 20 7b 0a 20 20 69 66 63 61 70  b db}} {.  ifcap
5460: 61 62 6c 65 20 69 6e 74 65 67 72 69 74 79 63 6b  able integrityck
5470: 20 7b 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 24   {.    do_test $
5480: 6e 61 6d 65 20 5b 6c 69 73 74 20 65 78 65 63 73  name [list execs
5490: 71 6c 20 7b 50 52 41 47 4d 41 20 69 6e 74 65 67  ql {PRAGMA integ
54a0: 72 69 74 79 5f 63 68 65 63 6b 7d 20 24 64 62 5d  rity_check} $db]
54b0: 20 7b 6f 6b 7d 0a 20 20 7d 0a 7d 0a 0a 70 72 6f   {ok}.  }.}..pro
54c0: 63 20 66 69 78 5f 69 66 63 61 70 61 62 6c 65 5f  c fix_ifcapable_
54d0: 65 78 70 72 20 7b 65 78 70 72 7d 20 7b 0a 20 20  expr {expr} {.  
54e0: 73 65 74 20 72 65 74 20 22 22 0a 20 20 73 65 74  set ret "".  set
54f0: 20 73 74 61 74 65 20 30 0a 20 20 66 6f 72 20 7b   state 0.  for {
5500: 73 65 74 20 69 20 30 7d 20 7b 24 69 20 3c 20 5b  set i 0} {$i < [
5510: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 65  string length $e
5520: 78 70 72 5d 7d 20 7b 69 6e 63 72 20 69 7d 20 7b  xpr]} {incr i} {
5530: 0a 20 20 20 20 73 65 74 20 63 68 61 72 20 5b 73  .    set char [s
5540: 74 72 69 6e 67 20 72 61 6e 67 65 20 24 65 78 70  tring range $exp
5550: 72 20 24 69 20 24 69 5d 0a 20 20 20 20 73 65 74  r $i $i].    set
5560: 20 6e 65 77 73 74 61 74 65 20 5b 65 78 70 72 20   newstate [expr 
5570: 7b 5b 73 74 72 69 6e 67 20 69 73 20 61 6c 6e 75  {[string is alnu
5580: 6d 20 24 63 68 61 72 5d 20 7c 7c 20 24 63 68 61  m $char] || $cha
5590: 72 20 65 71 20 22 5f 22 7d 5d 0a 20 20 20 20 69  r eq "_"}].    i
55a0: 66 20 7b 24 6e 65 77 73 74 61 74 65 20 26 26 20  f {$newstate && 
55b0: 21 24 73 74 61 74 65 7d 20 7b 0a 20 20 20 20 20  !$state} {.     
55c0: 20 61 70 70 65 6e 64 20 72 65 74 20 7b 24 3a 3a   append ret {$::
55d0: 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 28 7d  sqlite_options(}
55e0: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 21  .    }.    if {!
55f0: 24 6e 65 77 73 74 61 74 65 20 26 26 20 24 73 74  $newstate && $st
5600: 61 74 65 7d 20 7b 0a 20 20 20 20 20 20 61 70 70  ate} {.      app
5610: 65 6e 64 20 72 65 74 20 29 0a 20 20 20 20 7d 0a  end ret ).    }.
5620: 20 20 20 20 61 70 70 65 6e 64 20 72 65 74 20 24      append ret $
5630: 63 68 61 72 0a 20 20 20 20 73 65 74 20 73 74 61  char.    set sta
5640: 74 65 20 24 6e 65 77 73 74 61 74 65 0a 20 20 7d  te $newstate.  }
5650: 0a 20 20 69 66 20 7b 24 73 74 61 74 65 7d 20 7b  .  if {$state} {
5660: 61 70 70 65 6e 64 20 72 65 74 20 29 7d 0a 20 20  append ret )}.  
5670: 72 65 74 75 72 6e 20 24 72 65 74 0a 7d 0a 0a 23  return $ret.}..#
5680: 20 45 76 61 6c 75 61 74 65 20 61 20 62 6f 6f 6c   Evaluate a bool
5690: 65 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 6f  ean expression o
56a0: 66 20 63 61 70 61 62 69 6c 69 74 69 65 73 2e 20  f capabilities. 
56b0: 20 49 66 20 74 72 75 65 2c 20 65 78 65 63 75 74   If true, execut
56c0: 65 20 74 68 65 0a 23 20 63 6f 64 65 2e 20 20 4f  e the.# code.  O
56d0: 6d 69 74 20 74 68 65 20 63 6f 64 65 20 69 66 20  mit the code if 
56e0: 66 61 6c 73 65 2e 0a 23 0a 70 72 6f 63 20 69 66  false..#.proc if
56f0: 63 61 70 61 62 6c 65 20 7b 65 78 70 72 20 63 6f  capable {expr co
5700: 64 65 20 7b 65 6c 73 65 20 22 22 7d 20 7b 65 6c  de {else ""} {el
5710: 73 65 63 6f 64 65 20 22 22 7d 7d 20 7b 0a 20 20  secode ""}} {.  
5720: 23 72 65 67 73 75 62 20 2d 61 6c 6c 20 7b 5b 61  #regsub -all {[a
5730: 2d 7a 5f 30 2d 39 5d 2b 7d 20 24 65 78 70 72 20  -z_0-9]+} $expr 
5740: 7b 24 3a 3a 73 71 6c 69 74 65 5f 6f 70 74 69 6f  {$::sqlite_optio
5750: 6e 73 28 26 29 7d 20 65 32 0a 20 20 73 65 74 20  ns(&)} e2.  set 
5760: 65 32 20 5b 66 69 78 5f 69 66 63 61 70 61 62 6c  e2 [fix_ifcapabl
5770: 65 5f 65 78 70 72 20 24 65 78 70 72 5d 0a 20 20  e_expr $expr].  
5780: 69 66 20 28 24 65 32 29 20 7b 0a 20 20 20 20 73  if ($e2) {.    s
5790: 65 74 20 63 20 5b 63 61 74 63 68 20 7b 75 70 6c  et c [catch {upl
57a0: 65 76 65 6c 20 31 20 24 63 6f 64 65 7d 20 72 5d  evel 1 $code} r]
57b0: 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20  .  } else {.    
57c0: 73 65 74 20 63 20 5b 63 61 74 63 68 20 7b 75 70  set c [catch {up
57d0: 6c 65 76 65 6c 20 31 20 24 65 6c 73 65 63 6f 64  level 1 $elsecod
57e0: 65 7d 20 72 5d 0a 20 20 7d 0a 20 20 72 65 74 75  e} r].  }.  retu
57f0: 72 6e 20 2d 63 6f 64 65 20 24 63 20 24 72 0a 7d  rn -code $c $r.}
5800: 0a 0a 23 20 54 68 69 73 20 70 72 6f 63 20 65 78  ..# This proc ex
5810: 65 63 73 20 61 20 73 65 70 65 72 61 74 65 20 70  ecs a seperate p
5820: 72 6f 63 65 73 73 20 74 68 61 74 20 63 72 61 73  rocess that cras
5830: 68 65 73 20 6d 69 64 77 61 79 20 74 68 72 6f 75  hes midway throu
5840: 67 68 20 65 78 65 63 75 74 69 6e 67 0a 23 20 74  gh executing.# t
5850: 68 65 20 53 51 4c 20 73 63 72 69 70 74 20 24 73  he SQL script $s
5860: 71 6c 20 6f 6e 20 64 61 74 61 62 61 73 65 20 74  ql on database t
5870: 65 73 74 2e 64 62 2e 0a 23 0a 23 20 54 68 65 20  est.db..#.# The 
5880: 63 72 61 73 68 20 6f 63 63 75 72 73 20 64 75 72  crash occurs dur
5890: 69 6e 67 20 61 20 73 79 6e 63 28 29 20 6f 66 20  ing a sync() of 
58a0: 66 69 6c 65 20 24 63 72 61 73 68 66 69 6c 65 2e  file $crashfile.
58b0: 20 57 68 65 6e 20 74 68 65 20 63 72 61 73 68 0a   When the crash.
58c0: 23 20 6f 63 63 75 72 73 20 61 20 72 61 6e 64 6f  # occurs a rando
58d0: 6d 20 73 75 62 73 65 74 20 6f 66 20 61 6c 6c 20  m subset of all 
58e0: 75 6e 73 79 6e 63 65 64 20 77 72 69 74 65 73 20  unsynced writes 
58f0: 6d 61 64 65 20 62 79 20 74 68 65 20 70 72 6f 63  made by the proc
5900: 65 73 73 20 61 72 65 0a 23 20 77 72 69 74 74 65  ess are.# writte
5910: 6e 20 69 6e 74 6f 20 74 68 65 20 66 69 6c 65 73  n into the files
5920: 20 6f 6e 20 64 69 73 6b 2e 20 41 72 67 75 6d 65   on disk. Argume
5930: 6e 74 20 24 63 72 61 73 68 64 65 6c 61 79 20 69  nt $crashdelay i
5940: 6e 64 69 63 61 74 65 73 20 74 68 65 0a 23 20 6e  ndicates the.# n
5950: 75 6d 62 65 72 20 6f 66 20 66 69 6c 65 20 73 79  umber of file sy
5960: 6e 63 73 20 74 6f 20 77 61 69 74 20 62 65 66 6f  ncs to wait befo
5970: 72 65 20 63 72 61 73 68 69 6e 67 2e 0a 23 0a 23  re crashing..#.#
5980: 20 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75   The return valu
5990: 65 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 74  e is a list of t
59a0: 77 6f 20 65 6c 65 6d 65 6e 74 73 2e 20 54 68 65  wo elements. The
59b0: 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 69   first element i
59c0: 73 20 61 0a 23 20 62 6f 6f 6c 65 61 6e 2c 20 69  s a.# boolean, i
59d0: 6e 64 69 63 61 74 69 6e 67 20 77 68 65 74 68 65  ndicating whethe
59e0: 72 20 6f 72 20 6e 6f 74 20 74 68 65 20 70 72 6f  r or not the pro
59f0: 63 65 73 73 20 61 63 74 75 61 6c 6c 79 20 63 72  cess actually cr
5a00: 61 73 68 65 64 20 6f 72 0a 23 20 72 65 70 6f 72  ashed or.# repor
5a10: 74 65 64 20 73 6f 6d 65 20 6f 74 68 65 72 20 65  ted some other e
5a20: 72 72 6f 72 2e 20 54 68 65 20 73 65 63 6f 6e 64  rror. The second
5a30: 20 65 6c 65 6d 65 6e 74 20 69 6e 20 74 68 65 20   element in the 
5a40: 72 65 74 75 72 6e 65 64 20 6c 69 73 74 20 69 73  returned list is
5a50: 20 74 68 65 0a 23 20 65 72 72 6f 72 20 6d 65 73   the.# error mes
5a60: 73 61 67 65 2e 20 54 68 69 73 20 69 73 20 22 63  sage. This is "c
5a70: 68 69 6c 64 20 70 72 6f 63 65 73 73 20 65 78 69  hild process exi
5a80: 74 65 64 20 61 62 6e 6f 72 6d 61 6c 6c 79 22 20  ted abnormally" 
5a90: 69 66 20 74 68 65 20 63 72 61 73 68 0a 23 20 6f  if the crash.# o
5aa0: 63 63 75 72 65 64 2e 0a 23 0a 23 20 20 20 63 72  ccured..#.#   cr
5ab0: 61 73 68 73 71 6c 20 2d 64 65 6c 61 79 20 43 52  ashsql -delay CR
5ac0: 41 53 48 44 45 4c 41 59 20 2d 66 69 6c 65 20 43  ASHDELAY -file C
5ad0: 52 41 53 48 46 49 4c 45 20 3f 2d 62 6c 6f 63 6b  RASHFILE ?-block
5ae0: 73 69 7a 65 20 42 4c 4f 43 4b 53 49 5a 45 3f 20  size BLOCKSIZE? 
5af0: 24 73 71 6c 0a 23 0a 70 72 6f 63 20 63 72 61 73  $sql.#.proc cras
5b00: 68 73 71 6c 20 7b 61 72 67 73 7d 20 7b 0a 0a 20  hsql {args} {.. 
5b10: 20 73 65 74 20 62 6c 6f 63 6b 73 69 7a 65 20 22   set blocksize "
5b20: 22 0a 20 20 73 65 74 20 63 72 61 73 68 64 65 6c  ".  set crashdel
5b30: 61 79 20 31 0a 20 20 73 65 74 20 70 72 6e 67 73  ay 1.  set prngs
5b40: 65 65 64 20 30 0a 20 20 73 65 74 20 74 63 6c 62  eed 0.  set tclb
5b50: 6f 64 79 20 7b 7d 0a 20 20 73 65 74 20 63 72 61  ody {}.  set cra
5b60: 73 68 66 69 6c 65 20 22 22 0a 20 20 73 65 74 20  shfile "".  set 
5b70: 64 63 20 22 22 0a 20 20 73 65 74 20 73 71 6c 20  dc "".  set sql 
5b80: 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20 65 6e  [lindex $args en
5b90: 64 5d 0a 20 20 0a 20 20 66 6f 72 20 7b 73 65 74  d].  .  for {set
5ba0: 20 69 69 20 30 7d 20 7b 24 69 69 20 3c 20 5b 6c   ii 0} {$ii < [l
5bb0: 6c 65 6e 67 74 68 20 24 61 72 67 73 5d 2d 31 7d  length $args]-1}
5bc0: 20 7b 69 6e 63 72 20 69 69 20 32 7d 20 7b 0a 20   {incr ii 2} {. 
5bd0: 20 20 20 73 65 74 20 7a 20 5b 6c 69 6e 64 65 78     set z [lindex
5be0: 20 24 61 72 67 73 20 24 69 69 5d 0a 20 20 20 20   $args $ii].    
5bf0: 73 65 74 20 6e 20 5b 73 74 72 69 6e 67 20 6c 65  set n [string le
5c00: 6e 67 74 68 20 24 7a 5d 0a 20 20 20 20 73 65 74  ngth $z].    set
5c10: 20 7a 32 20 5b 6c 69 6e 64 65 78 20 24 61 72 67   z2 [lindex $arg
5c20: 73 20 5b 65 78 70 72 20 24 69 69 2b 31 5d 5d 0a  s [expr $ii+1]].
5c30: 0a 20 20 20 20 69 66 20 20 20 20 20 7b 24 6e 3e  .    if     {$n>
5c40: 31 20 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72  1 && [string fir
5c50: 73 74 20 24 7a 20 2d 64 65 6c 61 79 5d 3d 3d 30  st $z -delay]==0
5c60: 7d 20 20 20 20 20 7b 73 65 74 20 63 72 61 73 68  }     {set crash
5c70: 64 65 6c 61 79 20 24 7a 32 7d 20 5c 0a 20 20 20  delay $z2} \.   
5c80: 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 20 26 26   elseif {$n>1 &&
5c90: 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20 24   [string first $
5ca0: 7a 20 2d 73 65 65 64 5d 3d 3d 30 7d 20 20 20 20  z -seed]==0}    
5cb0: 20 20 7b 73 65 74 20 70 72 6e 67 73 65 65 64 20    {set prngseed 
5cc0: 24 7a 32 7d 20 5c 0a 20 20 20 20 65 6c 73 65 69  $z2} \.    elsei
5cd0: 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72 69  f {$n>1 && [stri
5ce0: 6e 67 20 66 69 72 73 74 20 24 7a 20 2d 66 69 6c  ng first $z -fil
5cf0: 65 5d 3d 3d 30 7d 20 20 20 20 20 20 7b 73 65 74  e]==0}      {set
5d00: 20 63 72 61 73 68 66 69 6c 65 20 24 7a 32 7d 20   crashfile $z2} 
5d10: 20 5c 0a 20 20 20 20 65 6c 73 65 69 66 20 7b 24   \.    elseif {$
5d20: 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e 67 20 66  n>1 && [string f
5d30: 69 72 73 74 20 24 7a 20 2d 74 63 6c 62 6f 64 79  irst $z -tclbody
5d40: 5d 3d 3d 30 7d 20 20 20 7b 73 65 74 20 74 63 6c  ]==0}   {set tcl
5d50: 62 6f 64 79 20 24 7a 32 7d 20 20 5c 0a 20 20 20  body $z2}  \.   
5d60: 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 20 26 26   elseif {$n>1 &&
5d70: 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20 24   [string first $
5d80: 7a 20 2d 62 6c 6f 63 6b 73 69 7a 65 5d 3d 3d 30  z -blocksize]==0
5d90: 7d 20 7b 73 65 74 20 62 6c 6f 63 6b 73 69 7a 65  } {set blocksize
5da0: 20 22 2d 73 20 24 7a 32 22 20 7d 20 5c 0a 20 20   "-s $z2" } \.  
5db0: 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 20 26    elseif {$n>1 &
5dc0: 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20  & [string first 
5dd0: 24 7a 20 2d 63 68 61 72 61 63 74 65 72 69 73 74  $z -characterist
5de0: 69 63 73 5d 3d 3d 30 7d 20 7b 73 65 74 20 64 63  ics]==0} {set dc
5df0: 20 22 2d 63 20 7b 24 7a 32 7d 22 20 7d 20 5c 0a   "-c {$z2}" } \.
5e00: 20 20 20 20 65 6c 73 65 20 20 20 7b 20 65 72 72      else   { err
5e10: 6f 72 20 22 55 6e 72 65 63 6f 67 6e 69 7a 65 64  or "Unrecognized
5e20: 20 6f 70 74 69 6f 6e 3a 20 24 7a 22 20 7d 0a 20   option: $z" }. 
5e30: 20 7d 0a 0a 20 20 69 66 20 7b 24 63 72 61 73 68   }..  if {$crash
5e40: 66 69 6c 65 20 65 71 20 22 22 7d 20 7b 0a 20 20  file eq ""} {.  
5e50: 20 20 65 72 72 6f 72 20 22 43 6f 6d 70 75 6c 73    error "Compuls
5e60: 6f 72 79 20 6f 70 74 69 6f 6e 20 2d 66 69 6c 65  ory option -file
5e70: 20 6d 69 73 73 69 6e 67 22 0a 20 20 7d 0a 0a 20   missing".  }.. 
5e80: 20 23 20 24 63 72 61 73 68 66 69 6c 65 20 67 65   # $crashfile ge
5e90: 74 73 20 63 6f 6d 70 61 72 65 64 20 74 6f 20 74  ts compared to t
5ea0: 68 65 20 6e 61 74 69 76 65 20 66 69 6c 65 6e 61  he native filena
5eb0: 6d 65 20 69 6e 20 0a 20 20 23 20 63 66 53 79 6e  me in .  # cfSyn
5ec0: 63 28 29 2c 20 77 68 69 63 68 20 63 61 6e 20 62  c(), which can b
5ed0: 65 20 64 69 66 66 65 72 65 6e 74 20 74 68 65 6e  e different then
5ee0: 20 77 68 61 74 20 54 43 4c 20 75 73 65 73 20 62   what TCL uses b
5ef0: 79 0a 20 20 23 20 64 65 66 61 75 6c 74 2c 20 73  y.  # default, s
5f00: 6f 20 68 65 72 65 20 77 65 20 66 6f 72 63 65 20  o here we force 
5f10: 69 74 20 74 6f 20 74 68 65 20 22 6e 61 74 69 76  it to the "nativ
5f20: 65 6e 61 6d 65 22 20 66 6f 72 6d 61 74 2e 0a 20  ename" format.. 
5f30: 20 73 65 74 20 63 66 69 6c 65 20 5b 73 74 72 69   set cfile [stri
5f40: 6e 67 20 6d 61 70 20 7b 5c 5c 20 5c 5c 5c 5c 7d  ng map {\\ \\\\}
5f50: 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 6e 61 6d   [file nativenam
5f60: 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 70 77  e [file join [pw
5f70: 64 5d 20 24 63 72 61 73 68 66 69 6c 65 5d 5d 5d  d] $crashfile]]]
5f80: 0a 0a 20 20 73 65 74 20 66 20 5b 6f 70 65 6e 20  ..  set f [open 
5f90: 63 72 61 73 68 2e 74 63 6c 20 77 5d 0a 20 20 70  crash.tcl w].  p
5fa0: 75 74 73 20 24 66 20 22 73 71 6c 69 74 65 33 5f  uts $f "sqlite3_
5fb0: 63 72 61 73 68 5f 65 6e 61 62 6c 65 20 31 22 0a  crash_enable 1".
5fc0: 20 20 70 75 74 73 20 24 66 20 22 73 71 6c 69 74    puts $f "sqlit
5fd0: 65 33 5f 63 72 61 73 68 70 61 72 61 6d 73 20 24  e3_crashparams $
5fe0: 62 6c 6f 63 6b 73 69 7a 65 20 24 64 63 20 24 63  blocksize $dc $c
5ff0: 72 61 73 68 64 65 6c 61 79 20 24 63 66 69 6c 65  rashdelay $cfile
6000: 22 0a 20 20 70 75 74 73 20 24 66 20 22 73 71 6c  ".  puts $f "sql
6010: 69 74 65 33 5f 74 65 73 74 5f 63 6f 6e 74 72 6f  ite3_test_contro
6020: 6c 5f 70 65 6e 64 69 6e 67 5f 62 79 74 65 20 24  l_pending_byte $
6030: 3a 3a 73 71 6c 69 74 65 5f 70 65 6e 64 69 6e 67  ::sqlite_pending
6040: 5f 62 79 74 65 22 0a 20 20 70 75 74 73 20 24 66  _byte".  puts $f
6050: 20 22 73 71 6c 69 74 65 33 20 64 62 20 74 65 73   "sqlite3 db tes
6060: 74 2e 64 62 20 2d 76 66 73 20 63 72 61 73 68 22  t.db -vfs crash"
6070: 0a 0a 20 20 23 20 54 68 69 73 20 62 6c 6f 63 6b  ..  # This block
6080: 20 73 65 74 73 20 74 68 65 20 63 61 63 68 65 20   sets the cache 
6090: 73 69 7a 65 20 6f 66 20 74 68 65 20 6d 61 69 6e  size of the main
60a0: 20 64 61 74 61 62 61 73 65 20 74 6f 20 31 30 0a   database to 10.
60b0: 20 20 23 20 70 61 67 65 73 2e 20 54 68 69 73 20    # pages. This 
60c0: 69 73 20 64 6f 6e 65 20 69 6e 20 63 61 73 65 20  is done in case 
60d0: 74 68 65 20 62 75 69 6c 64 20 69 73 20 63 6f 6e  the build is con
60e0: 66 69 67 75 72 65 64 20 74 6f 20 6f 6d 69 74 0a  figured to omit.
60f0: 20 20 23 20 22 50 52 41 47 4d 41 20 63 61 63 68    # "PRAGMA cach
6100: 65 5f 73 69 7a 65 22 2e 0a 20 20 70 75 74 73 20  e_size"..  puts 
6110: 24 66 20 7b 64 62 20 65 76 61 6c 20 7b 53 45 4c  $f {db eval {SEL
6120: 45 43 54 20 2a 20 46 52 4f 4d 20 73 71 6c 69 74  ECT * FROM sqlit
6130: 65 5f 6d 61 73 74 65 72 3b 7d 7d 0a 20 20 70 75  e_master;}}.  pu
6140: 74 73 20 24 66 20 7b 73 65 74 20 62 74 20 5b 62  ts $f {set bt [b
6150: 74 72 65 65 5f 66 72 6f 6d 5f 64 62 20 64 62 5d  tree_from_db db]
6160: 7d 0a 20 20 70 75 74 73 20 24 66 20 7b 62 74 72  }.  puts $f {btr
6170: 65 65 5f 73 65 74 5f 63 61 63 68 65 5f 73 69 7a  ee_set_cache_siz
6180: 65 20 24 62 74 20 31 30 7d 0a 20 20 69 66 20 7b  e $bt 10}.  if {
6190: 24 70 72 6e 67 73 65 65 64 7d 20 7b 0a 20 20 20  $prngseed} {.   
61a0: 20 73 65 74 20 73 65 65 64 20 5b 65 78 70 72 20   set seed [expr 
61b0: 7b 24 70 72 6e 67 73 65 65 64 25 31 30 30 30 37  {$prngseed%10007
61c0: 2b 31 7d 5d 0a 20 20 20 20 23 20 70 75 74 73 20  +1}].    # puts 
61d0: 73 65 65 64 3d 24 73 65 65 64 0a 20 20 20 20 70  seed=$seed.    p
61e0: 75 74 73 20 24 66 20 22 64 62 20 65 76 61 6c 20  uts $f "db eval 
61f0: 7b 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c  {SELECT randombl
6200: 6f 62 28 24 73 65 65 64 29 7d 22 0a 20 20 7d 0a  ob($seed)}".  }.
6210: 0a 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c  .  if {[string l
6220: 65 6e 67 74 68 20 24 74 63 6c 62 6f 64 79 5d 3e  ength $tclbody]>
6230: 30 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 24 66  0} {.    puts $f
6240: 20 24 74 63 6c 62 6f 64 79 0a 20 20 7d 0a 20 20   $tclbody.  }.  
6250: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67  if {[string leng
6260: 74 68 20 24 73 71 6c 5d 3e 30 7d 20 7b 0a 20 20  th $sql]>0} {.  
6270: 20 20 70 75 74 73 20 24 66 20 22 64 62 20 65 76    puts $f "db ev
6280: 61 6c 20 7b 22 0a 20 20 20 20 70 75 74 73 20 24  al {".    puts $
6290: 66 20 20 20 22 24 73 71 6c 22 0a 20 20 20 20 70  f   "$sql".    p
62a0: 75 74 73 20 24 66 20 22 7d 22 0a 20 20 7d 0a 20  uts $f "}".  }. 
62b0: 20 63 6c 6f 73 65 20 24 66 0a 20 20 73 65 74 20   close $f.  set 
62c0: 72 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 65  r [catch {.    e
62d0: 78 65 63 20 5b 69 6e 66 6f 20 6e 61 6d 65 6f 66  xec [info nameof
62e0: 65 78 65 63 5d 20 63 72 61 73 68 2e 74 63 6c 20  exec] crash.tcl 
62f0: 3e 40 73 74 64 6f 75 74 0a 20 20 7d 20 6d 73 67  >@stdout.  } msg
6300: 5d 0a 20 20 0a 20 20 23 20 57 69 6e 64 6f 77 73  ].  .  # Windows
6310: 2f 41 63 74 69 76 65 53 74 61 74 65 20 54 43 4c  /ActiveState TCL
6320: 20 72 65 74 75 72 6e 73 20 61 20 73 6c 69 67 68   returns a sligh
6330: 74 6c 79 20 64 69 66 66 65 72 65 6e 74 0a 20 20  tly different.  
6340: 23 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2e  # error message.
6350: 20 20 57 65 20 6d 61 70 20 74 68 61 74 20 74 6f    We map that to
6360: 20 74 68 65 20 65 78 70 65 63 74 65 64 20 6d 65   the expected me
6370: 73 73 61 67 65 0a 20 20 23 20 73 6f 20 74 68 61  ssage.  # so tha
6380: 74 20 77 65 20 64 6f 6e 27 74 20 68 61 76 65 20  t we don't have 
6390: 74 6f 20 63 68 61 6e 67 65 20 61 6c 6c 20 6f 66  to change all of
63a0: 20 74 68 65 20 74 65 73 74 0a 20 20 23 20 63 61   the test.  # ca
63b0: 73 65 73 2e 0a 20 20 69 66 20 7b 24 3a 3a 74 63  ses..  if {$::tc
63c0: 6c 5f 70 6c 61 74 66 6f 72 6d 28 70 6c 61 74 66  l_platform(platf
63d0: 6f 72 6d 29 3d 3d 22 77 69 6e 64 6f 77 73 22 7d  orm)=="windows"}
63e0: 20 7b 0a 20 20 20 20 69 66 20 7b 24 6d 73 67 3d   {.    if {$msg=
63f0: 3d 22 63 68 69 6c 64 20 6b 69 6c 6c 65 64 3a 20  ="child killed: 
6400: 75 6e 6b 6e 6f 77 6e 20 73 69 67 6e 61 6c 22 7d  unknown signal"}
6410: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 6d 73 67   {.      set msg
6420: 20 22 63 68 69 6c 64 20 70 72 6f 63 65 73 73 20   "child process 
6430: 65 78 69 74 65 64 20 61 62 6e 6f 72 6d 61 6c 6c  exited abnormall
6440: 79 22 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 0a  y".    }.  }.  .
6450: 20 20 6c 61 70 70 65 6e 64 20 72 20 24 6d 73 67    lappend r $msg
6460: 0a 7d 0a 0a 23 20 55 73 61 67 65 3a 20 64 6f 5f  .}..# Usage: do_
6470: 69 6f 65 72 72 5f 74 65 73 74 20 3c 74 65 73 74  ioerr_test <test
6480: 20 6e 75 6d 62 65 72 3e 20 3c 6f 70 74 69 6f 6e   number> <option
6490: 73 2e 2e 2e 3e 0a 23 0a 23 20 54 68 69 73 20 70  s...>.#.# This p
64a0: 72 6f 63 20 69 73 20 75 73 65 64 20 74 6f 20 69  roc is used to i
64b0: 6d 70 6c 65 6d 65 6e 74 20 74 65 73 74 20 63 61  mplement test ca
64c0: 73 65 73 20 74 68 61 74 20 63 68 65 63 6b 20 74  ses that check t
64d0: 68 61 74 20 49 4f 20 65 72 72 6f 72 73 0a 23 20  hat IO errors.# 
64e0: 61 72 65 20 63 6f 72 72 65 63 74 6c 79 20 68 61  are correctly ha
64f0: 6e 64 6c 65 64 2e 20 54 68 65 20 66 69 72 73 74  ndled. The first
6500: 20 61 72 67 75 6d 65 6e 74 2c 20 3c 74 65 73 74   argument, <test
6510: 20 6e 75 6d 62 65 72 3e 2c 20 69 73 20 61 6e 20   number>, is an 
6520: 69 6e 74 65 67 65 72 20 0a 23 20 75 73 65 64 20  integer .# used 
6530: 74 6f 20 6e 61 6d 65 20 74 68 65 20 74 65 73 74  to name the test
6540: 73 20 65 78 65 63 75 74 65 64 20 62 79 20 74 68  s executed by th
6550: 69 73 20 70 72 6f 63 2e 20 4f 70 74 69 6f 6e 73  is proc. Options
6560: 20 61 72 65 20 61 73 20 66 6f 6c 6c 6f 77 73 3a   are as follows:
6570: 0a 23 0a 23 20 20 20 20 20 2d 74 63 6c 70 72 65  .#.#     -tclpre
6580: 70 20 20 20 20 20 20 20 20 20 20 54 43 4c 20 73  p          TCL s
6590: 63 72 69 70 74 20 74 6f 20 72 75 6e 20 74 6f 20  cript to run to 
65a0: 70 72 65 70 61 72 65 20 74 65 73 74 2e 0a 23 20  prepare test..# 
65b0: 20 20 20 20 2d 73 71 6c 70 72 65 70 20 20 20 20      -sqlprep    
65c0: 20 20 20 20 20 20 53 51 4c 20 73 63 72 69 70 74        SQL script
65d0: 20 74 6f 20 72 75 6e 20 74 6f 20 70 72 65 70 61   to run to prepa
65e0: 72 65 20 74 65 73 74 2e 0a 23 20 20 20 20 20 2d  re test..#     -
65f0: 74 63 6c 62 6f 64 79 20 20 20 20 20 20 20 20 20  tclbody         
6600: 20 54 43 4c 20 73 63 72 69 70 74 20 74 6f 20 72   TCL script to r
6610: 75 6e 20 77 69 74 68 20 49 4f 20 65 72 72 6f 72  un with IO error
6620: 20 73 69 6d 75 6c 61 74 69 6f 6e 2e 0a 23 20 20   simulation..#  
6630: 20 20 20 2d 73 71 6c 62 6f 64 79 20 20 20 20 20     -sqlbody     
6640: 20 20 20 20 20 54 43 4c 20 73 63 72 69 70 74 20       TCL script 
6650: 74 6f 20 72 75 6e 20 77 69 74 68 20 49 4f 20 65  to run with IO e
6660: 72 72 6f 72 20 73 69 6d 75 6c 61 74 69 6f 6e 2e  rror simulation.
6670: 0a 23 20 20 20 20 20 2d 65 78 63 6c 75 64 65 20  .#     -exclude 
6680: 20 20 20 20 20 20 20 20 20 4c 69 73 74 20 6f 66           List of
6690: 20 27 4e 27 20 76 61 6c 75 65 73 20 6e 6f 74 20   'N' values not 
66a0: 74 6f 20 74 65 73 74 2e 0a 23 20 20 20 20 20 2d  to test..#     -
66b0: 65 72 63 20 20 20 20 20 20 20 20 20 20 20 20 20  erc             
66c0: 20 55 73 65 20 65 78 74 65 6e 64 65 64 20 72 65   Use extended re
66d0: 73 75 6c 74 20 63 6f 64 65 73 0a 23 20 20 20 20  sult codes.#    
66e0: 20 2d 70 65 72 73 69 73 74 20 20 20 20 20 20 20   -persist       
66f0: 20 20 20 4d 61 6b 65 20 73 69 6d 75 6c 61 74 65     Make simulate
6700: 64 20 49 2f 4f 20 65 72 72 6f 72 73 20 70 65 72  d I/O errors per
6710: 73 69 73 74 65 6e 74 0a 23 20 20 20 20 20 2d 73  sistent.#     -s
6720: 74 61 72 74 20 20 20 20 20 20 20 20 20 20 20 20  tart            
6730: 56 61 6c 75 65 20 6f 66 20 27 4e 27 20 74 6f 20  Value of 'N' to 
6740: 62 65 67 69 6e 20 77 69 74 68 20 28 64 65 66 61  begin with (defa
6750: 75 6c 74 20 31 29 0a 23 0a 23 20 20 20 20 20 2d  ult 1).#.#     -
6760: 63 6b 73 75 6d 20 20 20 20 20 20 20 20 20 20 20  cksum           
6770: 20 42 6f 6f 6c 65 61 6e 2e 20 49 66 20 74 72 75   Boolean. If tru
6780: 65 2c 20 74 65 73 74 20 74 68 61 74 20 74 68 65  e, test that the
6790: 20 64 61 74 61 62 61 73 65 20 64 6f 65 73 0a 23   database does.#
67a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
67b0: 20 20 20 20 20 20 20 6e 6f 74 20 63 68 61 6e 67         not chang
67c0: 65 20 64 75 72 69 6e 67 20 74 68 65 20 65 78 65  e during the exe
67d0: 63 75 74 69 6f 6e 20 6f 66 20 74 68 65 20 74 65  cution of the te
67e0: 73 74 20 63 61 73 65 2e 0a 23 0a 70 72 6f 63 20  st case..#.proc 
67f0: 64 6f 5f 69 6f 65 72 72 5f 74 65 73 74 20 7b 74  do_ioerr_test {t
6800: 65 73 74 6e 61 6d 65 20 61 72 67 73 7d 20 7b 0a  estname args} {.
6810: 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70  .  set ::ioerrop
6820: 74 73 28 2d 73 74 61 72 74 29 20 31 0a 20 20 73  ts(-start) 1.  s
6830: 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d  et ::ioerropts(-
6840: 63 6b 73 75 6d 29 20 30 0a 20 20 73 65 74 20 3a  cksum) 0.  set :
6850: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 65 72 63 29  :ioerropts(-erc)
6860: 20 30 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 72   0.  set ::ioerr
6870: 6f 70 74 73 28 2d 63 6f 75 6e 74 29 20 31 30 30  opts(-count) 100
6880: 30 30 30 30 30 30 0a 20 20 73 65 74 20 3a 3a 69  000000.  set ::i
6890: 6f 65 72 72 6f 70 74 73 28 2d 70 65 72 73 69 73  oerropts(-persis
68a0: 74 29 20 31 0a 20 20 73 65 74 20 3a 3a 69 6f 65  t) 1.  set ::ioe
68b0: 72 72 6f 70 74 73 28 2d 63 6b 72 65 66 63 6f 75  rropts(-ckrefcou
68c0: 6e 74 29 20 30 0a 20 20 73 65 74 20 3a 3a 69 6f  nt) 0.  set ::io
68d0: 65 72 72 6f 70 74 73 28 2d 72 65 73 74 6f 72 65  erropts(-restore
68e0: 70 72 6e 67 29 20 31 0a 20 20 61 72 72 61 79 20  prng) 1.  array 
68f0: 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 20  set ::ioerropts 
6900: 24 61 72 67 73 0a 0a 20 20 23 20 54 45 4d 50 4f  $args..  # TEMPO
6910: 52 41 52 59 3a 20 46 6f 72 20 33 2e 35 2e 39 2c  RARY: For 3.5.9,
6920: 20 64 69 73 61 62 6c 65 20 74 65 73 74 69 6e 67   disable testing
6930: 20 6f 66 20 65 78 74 65 6e 64 65 64 20 72 65 73   of extended res
6940: 75 6c 74 20 63 6f 64 65 73 2e 20 54 68 65 72 65  ult codes. There
6950: 20 61 72 65 0a 20 20 23 20 61 20 63 6f 75 70 6c   are.  # a coupl
6960: 65 20 6f 66 20 6f 62 73 63 75 72 65 20 49 4f 20  e of obscure IO 
6970: 65 72 72 6f 72 73 20 74 68 61 74 20 64 6f 20 6e  errors that do n
6980: 6f 74 20 72 65 74 75 72 6e 20 74 68 65 6d 2e 0a  ot return them..
6990: 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74    set ::ioerropt
69a0: 73 28 2d 65 72 63 29 20 30 0a 0a 20 20 73 65 74  s(-erc) 0..  set
69b0: 20 3a 3a 67 6f 20 31 0a 20 20 23 72 65 73 65 74   ::go 1.  #reset
69c0: 5f 70 72 6e 67 5f 73 74 61 74 65 0a 20 20 73 61  _prng_state.  sa
69d0: 76 65 5f 70 72 6e 67 5f 73 74 61 74 65 0a 20 20  ve_prng_state.  
69e0: 66 6f 72 20 7b 73 65 74 20 6e 20 24 3a 3a 69 6f  for {set n $::io
69f0: 65 72 72 6f 70 74 73 28 2d 73 74 61 72 74 29 7d  erropts(-start)}
6a00: 20 7b 24 3a 3a 67 6f 7d 20 7b 69 6e 63 72 20 6e   {$::go} {incr n
6a10: 7d 20 7b 0a 20 20 20 20 73 65 74 20 3a 3a 54 4e  } {.    set ::TN
6a20: 20 24 6e 0a 20 20 20 20 69 6e 63 72 20 3a 3a 69   $n.    incr ::i
6a30: 6f 65 72 72 6f 70 74 73 28 2d 63 6f 75 6e 74 29  oerropts(-count)
6a40: 20 2d 31 0a 20 20 20 20 69 66 20 7b 24 3a 3a 69   -1.    if {$::i
6a50: 6f 65 72 72 6f 70 74 73 28 2d 63 6f 75 6e 74 29  oerropts(-count)
6a60: 3c 30 7d 20 62 72 65 61 6b 0a 20 0a 20 20 20 20  <0} break. .    
6a70: 23 20 53 6b 69 70 20 74 68 69 73 20 49 4f 20 65  # Skip this IO e
6a80: 72 72 6f 72 20 69 66 20 69 74 20 77 61 73 20 73  rror if it was s
6a90: 70 65 63 69 66 69 65 64 20 77 69 74 68 20 74 68  pecified with th
6aa0: 65 20 22 2d 65 78 63 6c 75 64 65 22 20 6f 70 74  e "-exclude" opt
6ab0: 69 6f 6e 2e 0a 20 20 20 20 69 66 20 7b 5b 69 6e  ion..    if {[in
6ac0: 66 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72  fo exists ::ioer
6ad0: 72 6f 70 74 73 28 2d 65 78 63 6c 75 64 65 29 5d  ropts(-exclude)]
6ae0: 7d 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 5b 6c  } {.      if {[l
6af0: 73 65 61 72 63 68 20 24 3a 3a 69 6f 65 72 72 6f  search $::ioerro
6b00: 70 74 73 28 2d 65 78 63 6c 75 64 65 29 20 24 6e  pts(-exclude) $n
6b10: 5d 21 3d 2d 31 7d 20 63 6f 6e 74 69 6e 75 65 0a  ]!=-1} continue.
6b20: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 24 3a      }.    if {$:
6b30: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 72 65 73 74  :ioerropts(-rest
6b40: 6f 72 65 70 72 6e 67 29 7d 20 7b 0a 20 20 20 20  oreprng)} {.    
6b50: 20 20 72 65 73 74 6f 72 65 5f 70 72 6e 67 5f 73    restore_prng_s
6b60: 74 61 74 65 0a 20 20 20 20 7d 0a 0a 20 20 20 20  tate.    }..    
6b70: 23 20 44 65 6c 65 74 65 20 74 68 65 20 66 69 6c  # Delete the fil
6b80: 65 73 20 74 65 73 74 2e 64 62 20 61 6e 64 20 74  es test.db and t
6b90: 65 73 74 32 2e 64 62 2c 20 74 68 65 6e 20 65 78  est2.db, then ex
6ba0: 65 63 75 74 65 20 74 68 65 20 54 43 4c 20 61 6e  ecute the TCL an
6bb0: 64 20 0a 20 20 20 20 23 20 53 51 4c 20 28 69 6e  d .    # SQL (in
6bc0: 20 74 68 61 74 20 6f 72 64 65 72 29 20 74 6f 20   that order) to 
6bd0: 70 72 65 70 61 72 65 20 66 6f 72 20 74 68 65 20  prepare for the 
6be0: 74 65 73 74 20 63 61 73 65 2e 0a 20 20 20 20 64  test case..    d
6bf0: 6f 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65  o_test $testname
6c00: 2e 24 6e 2e 31 20 7b 0a 20 20 20 20 20 20 73 65  .$n.1 {.      se
6c10: 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72  t ::sqlite_io_er
6c20: 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a 20 20  ror_pending 0.  
6c30: 20 20 20 20 63 61 74 63 68 20 7b 64 62 20 63 6c      catch {db cl
6c40: 6f 73 65 7d 0a 20 20 20 20 20 20 63 61 74 63 68  ose}.      catch
6c50: 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 20 20 20   {db2 close}.   
6c60: 20 20 20 63 61 74 63 68 20 7b 66 69 6c 65 20 64     catch {file d
6c70: 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 74 65 73  elete -force tes
6c80: 74 2e 64 62 7d 0a 20 20 20 20 20 20 63 61 74 63  t.db}.      catc
6c90: 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 20 2d  h {file delete -
6ca0: 66 6f 72 63 65 20 74 65 73 74 2e 64 62 2d 6a 6f  force test.db-jo
6cb0: 75 72 6e 61 6c 7d 0a 20 20 20 20 20 20 63 61 74  urnal}.      cat
6cc0: 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 20  ch {file delete 
6cd0: 2d 66 6f 72 63 65 20 74 65 73 74 32 2e 64 62 7d  -force test2.db}
6ce0: 0a 20 20 20 20 20 20 63 61 74 63 68 20 7b 66 69  .      catch {fi
6cf0: 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65  le delete -force
6d00: 20 74 65 73 74 32 2e 64 62 2d 6a 6f 75 72 6e 61   test2.db-journa
6d10: 6c 7d 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 44  l}.      set ::D
6d20: 42 20 5b 73 71 6c 69 74 65 33 20 64 62 20 74 65  B [sqlite3 db te
6d30: 73 74 2e 64 62 3b 20 73 71 6c 69 74 65 33 5f 63  st.db; sqlite3_c
6d40: 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65  onnection_pointe
6d50: 72 20 64 62 5d 0a 20 20 20 20 20 20 73 71 6c 69  r db].      sqli
6d60: 74 65 33 5f 65 78 74 65 6e 64 65 64 5f 72 65 73  te3_extended_res
6d70: 75 6c 74 5f 63 6f 64 65 73 20 24 3a 3a 44 42 20  ult_codes $::DB 
6d80: 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 65 72  $::ioerropts(-er
6d90: 63 29 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e  c).      if {[in
6da0: 66 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72  fo exists ::ioer
6db0: 72 6f 70 74 73 28 2d 74 63 6c 70 72 65 70 29 5d  ropts(-tclprep)]
6dc0: 7d 20 7b 0a 20 20 20 20 20 20 20 20 65 76 61 6c  } {.        eval
6dd0: 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 74   $::ioerropts(-t
6de0: 63 6c 70 72 65 70 29 0a 20 20 20 20 20 20 7d 0a  clprep).      }.
6df0: 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20        if {[info 
6e00: 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70  exists ::ioerrop
6e10: 74 73 28 2d 73 71 6c 70 72 65 70 29 5d 7d 20 7b  ts(-sqlprep)]} {
6e20: 0a 20 20 20 20 20 20 20 20 65 78 65 63 73 71 6c  .        execsql
6e30: 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73   $::ioerropts(-s
6e40: 71 6c 70 72 65 70 29 0a 20 20 20 20 20 20 7d 0a  qlprep).      }.
6e50: 20 20 20 20 20 20 65 78 70 72 20 30 0a 20 20 20        expr 0.   
6e60: 20 7d 20 7b 30 7d 0a 0a 20 20 20 20 23 20 52 65   } {0}..    # Re
6e70: 61 64 20 74 68 65 20 27 63 68 65 63 6b 73 75 6d  ad the 'checksum
6e80: 27 20 6f 66 20 74 68 65 20 64 61 74 61 62 61 73  ' of the databas
6e90: 65 2e 0a 20 20 20 20 69 66 20 7b 24 3a 3a 69 6f  e..    if {$::io
6ea0: 65 72 72 6f 70 74 73 28 2d 63 6b 73 75 6d 29 7d  erropts(-cksum)}
6eb0: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 63 68 65   {.      set che
6ec0: 63 6b 73 75 6d 20 5b 63 6b 73 75 6d 5d 0a 20 20  cksum [cksum].  
6ed0: 20 20 7d 0a 0a 20 20 20 20 23 20 53 65 74 20 74    }..    # Set t
6ee0: 68 65 20 4e 74 68 20 49 4f 20 65 72 72 6f 72 20  he Nth IO error 
6ef0: 74 6f 20 66 61 69 6c 2e 0a 20 20 20 20 64 6f 5f  to fail..    do_
6f00: 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24  test $testname.$
6f10: 6e 2e 32 20 5b 73 75 62 73 74 20 7b 0a 20 20 20  n.2 [subst {.   
6f20: 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f     set ::sqlite_
6f30: 69 6f 5f 65 72 72 6f 72 5f 70 65 72 73 69 73 74  io_error_persist
6f40: 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 70   $::ioerropts(-p
6f50: 65 72 73 69 73 74 29 0a 20 20 20 20 20 20 73 65  ersist).      se
6f60: 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72  t ::sqlite_io_er
6f70: 72 6f 72 5f 70 65 6e 64 69 6e 67 20 24 6e 0a 20  ror_pending $n. 
6f80: 20 20 20 7d 5d 20 24 6e 0a 20 20 0a 20 20 20 20     }] $n.  .    
6f90: 23 20 43 72 65 61 74 65 20 61 20 73 69 6e 67 6c  # Create a singl
6fa0: 65 20 54 43 4c 20 73 63 72 69 70 74 20 66 72 6f  e TCL script fro
6fb0: 6d 20 74 68 65 20 54 43 4c 20 61 6e 64 20 53 51  m the TCL and SQ
6fc0: 4c 20 73 70 65 63 69 66 69 65 64 0a 20 20 20 20  L specified.    
6fd0: 23 20 61 73 20 74 68 65 20 62 6f 64 79 20 6f 66  # as the body of
6fe0: 20 74 68 65 20 74 65 73 74 2e 0a 20 20 20 20 73   the test..    s
6ff0: 65 74 20 3a 3a 69 6f 65 72 72 6f 72 62 6f 64 79  et ::ioerrorbody
7000: 20 7b 7d 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66   {}.    if {[inf
7010: 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72  o exists ::ioerr
7020: 6f 70 74 73 28 2d 74 63 6c 62 6f 64 79 29 5d 7d  opts(-tclbody)]}
7030: 20 7b 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20   {.      append 
7040: 3a 3a 69 6f 65 72 72 6f 72 62 6f 64 79 20 22 24  ::ioerrorbody "$
7050: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 74 63 6c  ::ioerropts(-tcl
7060: 62 6f 64 79 29 5c 6e 22 0a 20 20 20 20 7d 0a 20  body)\n".    }. 
7070: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69     if {[info exi
7080: 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28  sts ::ioerropts(
7090: 2d 73 71 6c 62 6f 64 79 29 5d 7d 20 7b 0a 20 20  -sqlbody)]} {.  
70a0: 20 20 20 20 61 70 70 65 6e 64 20 3a 3a 69 6f 65      append ::ioe
70b0: 72 72 6f 72 62 6f 64 79 20 22 64 62 20 65 76 61  rrorbody "db eva
70c0: 6c 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28  l {$::ioerropts(
70d0: 2d 73 71 6c 62 6f 64 79 29 7d 22 0a 20 20 20 20  -sqlbody)}".    
70e0: 7d 0a 0a 20 20 20 20 23 20 45 78 65 63 75 74 65  }..    # Execute
70f0: 20 74 68 65 20 54 43 4c 20 53 63 72 69 70 74 20   the TCL Script 
7100: 63 72 65 61 74 65 64 20 69 6e 20 74 68 65 20 61  created in the a
7110: 62 6f 76 65 20 62 6c 6f 63 6b 2e 20 49 66 0a 20  bove block. If. 
7120: 20 20 20 23 20 74 68 65 72 65 20 61 72 65 20 61     # there are a
7130: 74 20 6c 65 61 73 74 20 4e 20 49 4f 20 6f 70 65  t least N IO ope
7140: 72 61 74 69 6f 6e 73 20 70 65 72 66 6f 72 6d 65  rations performe
7150: 64 20 62 79 20 53 51 4c 69 74 65 20 61 73 0a 20  d by SQLite as. 
7160: 20 20 20 23 20 61 20 72 65 73 75 6c 74 20 6f 66     # a result of
7170: 20 74 68 65 20 73 63 72 69 70 74 2c 20 74 68 65   the script, the
7180: 20 4e 74 68 20 77 69 6c 6c 20 66 61 69 6c 2e 0a   Nth will fail..
7190: 20 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73      do_test $tes
71a0: 74 6e 61 6d 65 2e 24 6e 2e 33 20 7b 0a 20 20 20  tname.$n.3 {.   
71b0: 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f     set ::sqlite_
71c0: 69 6f 5f 65 72 72 6f 72 5f 68 69 74 20 30 0a 20  io_error_hit 0. 
71d0: 20 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74       set ::sqlit
71e0: 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72 64 68  e_io_error_hardh
71f0: 69 74 20 30 0a 20 20 20 20 20 20 73 65 74 20 72  it 0.      set r
7200: 20 5b 63 61 74 63 68 20 24 3a 3a 69 6f 65 72 72   [catch $::ioerr
7210: 6f 72 62 6f 64 79 20 6d 73 67 5d 0a 20 20 20 20  orbody msg].    
7220: 20 20 73 65 74 20 3a 3a 65 72 72 73 65 65 6e 20    set ::errseen 
7230: 24 72 0a 20 20 20 20 20 20 73 65 74 20 72 63 20  $r.      set rc 
7240: 5b 73 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 65  [sqlite3_errcode
7250: 20 24 3a 3a 44 42 5d 0a 20 20 20 20 20 20 69 66   $::DB].      if
7260: 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d   {$::ioerropts(-
7270: 65 72 63 29 7d 20 7b 0a 20 20 20 20 20 20 20 20  erc)} {.        
7280: 23 20 49 66 20 77 65 20 61 72 65 20 69 6e 20 65  # If we are in e
7290: 78 74 65 6e 64 65 64 20 72 65 73 75 6c 74 20 63  xtended result c
72a0: 6f 64 65 20 6d 6f 64 65 2c 20 6d 61 6b 65 20 73  ode mode, make s
72b0: 75 72 65 20 61 6c 6c 20 6f 66 20 74 68 65 0a 20  ure all of the. 
72c0: 20 20 20 20 20 20 20 23 20 49 4f 45 52 52 73 20         # IOERRs 
72d0: 77 65 20 67 65 74 20 62 61 63 6b 20 72 65 61 6c  we get back real
72e0: 6c 79 20 64 6f 20 68 61 76 65 20 74 68 65 69 72  ly do have their
72f0: 20 65 78 74 65 6e 64 65 64 20 63 6f 64 65 20 76   extended code v
7300: 61 6c 75 65 73 2e 0a 20 20 20 20 20 20 20 20 23  alues..        #
7310: 20 49 66 20 61 6e 20 65 78 74 65 6e 64 65 64 20   If an extended 
7320: 72 65 73 75 6c 74 20 63 6f 64 65 20 69 73 20 72  result code is r
7330: 65 74 75 72 6e 65 64 2c 20 74 68 65 20 73 71 6c  eturned, the sql
7340: 69 74 65 33 5f 65 72 72 63 6f 64 65 0a 20 20 20  ite3_errcode.   
7350: 20 20 20 20 20 23 20 54 43 4c 63 6f 6d 6d 61 6e       # TCLcomman
7360: 64 20 77 69 6c 6c 20 72 65 74 75 72 6e 20 61 20  d will return a 
7370: 73 74 72 69 6e 67 20 6f 66 20 74 68 65 20 66 6f  string of the fo
7380: 72 6d 3a 20 20 53 51 4c 49 54 45 5f 49 4f 45 52  rm:  SQLITE_IOER
7390: 52 2b 6e 6e 6e 6e 0a 20 20 20 20 20 20 20 20 23  R+nnnn.        #
73a0: 20 77 68 65 72 65 20 6e 6e 6e 6e 20 69 73 20 61   where nnnn is a
73b0: 20 6e 75 6d 62 65 72 0a 20 20 20 20 20 20 20 20   number.        
73c0: 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 5e 53 51  if {[regexp {^SQ
73d0: 4c 49 54 45 5f 49 4f 45 52 52 7d 20 24 72 63 5d  LITE_IOERR} $rc]
73e0: 20 26 26 20 21 5b 72 65 67 65 78 70 20 7b 49 4f   && ![regexp {IO
73f0: 45 52 52 5c 2b 5c 64 7d 20 24 72 63 5d 7d 20 7b  ERR\+\d} $rc]} {
7400: 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72  .          retur
7410: 6e 20 24 72 63 0a 20 20 20 20 20 20 20 20 7d 0a  n $rc.        }.
7420: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20        } else {. 
7430: 20 20 20 20 20 20 20 23 20 49 66 20 77 65 20 61         # If we a
7440: 72 65 20 6e 6f 74 20 69 6e 20 65 78 74 65 6e 64  re not in extend
7450: 65 64 20 72 65 73 75 6c 74 20 63 6f 64 65 20 6d  ed result code m
7460: 6f 64 65 2c 20 6d 61 6b 65 20 73 75 72 65 20 6e  ode, make sure n
7470: 6f 0a 20 20 20 20 20 20 20 20 23 20 65 78 74 65  o.        # exte
7480: 6e 64 65 64 20 65 72 72 6f 72 20 63 6f 64 65 73  nded error codes
7490: 20 61 72 65 20 72 65 74 75 72 6e 65 64 2e 0a 20   are returned.. 
74a0: 20 20 20 20 20 20 20 69 66 20 7b 5b 72 65 67 65         if {[rege
74b0: 78 70 20 7b 5c 2b 5c 64 7d 20 24 72 63 5d 7d 20  xp {\+\d} $rc]} 
74c0: 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75  {.          retu
74d0: 72 6e 20 24 72 63 0a 20 20 20 20 20 20 20 20 7d  rn $rc.        }
74e0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 23  .      }.      #
74f0: 20 54 68 65 20 74 65 73 74 20 72 65 70 65 61 74   The test repeat
7500: 73 20 61 73 20 6c 6f 6e 67 20 61 73 20 24 3a 3a  s as long as $::
7510: 67 6f 20 69 73 20 6e 6f 6e 2d 7a 65 72 6f 2e 20  go is non-zero. 
7520: 20 24 3a 3a 67 6f 20 73 74 61 72 74 73 20 6f 75   $::go starts ou
7530: 74 0a 20 20 20 20 20 20 23 20 61 73 20 31 2e 20  t.      # as 1. 
7540: 20 57 68 65 6e 20 61 20 74 65 73 74 20 72 75 6e   When a test run
7550: 73 20 74 6f 20 63 6f 6d 70 6c 65 74 69 6f 6e 20  s to completion 
7560: 77 69 74 68 6f 75 74 20 68 69 74 74 69 6e 67 20  without hitting 
7570: 61 6e 20 49 2f 4f 0a 20 20 20 20 20 20 23 20 65  an I/O.      # e
7580: 72 72 6f 72 2c 20 74 68 61 74 20 6d 65 61 6e 73  rror, that means
7590: 20 74 68 65 72 65 20 69 73 20 6e 6f 20 70 6f 69   there is no poi
75a0: 6e 74 20 69 6e 20 63 6f 6e 74 69 6e 75 69 6e 67  nt in continuing
75b0: 20 77 69 74 68 20 74 68 69 73 20 74 65 73 74 0a   with this test.
75c0: 20 20 20 20 20 20 23 20 63 61 73 65 20 73 6f 20        # case so 
75d0: 73 65 74 20 24 3a 3a 67 6f 20 74 6f 20 7a 65 72  set $::go to zer
75e0: 6f 2e 0a 20 20 20 20 20 20 23 0a 20 20 20 20 20  o..      #.     
75f0: 20 69 66 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 69   if {$::sqlite_i
7600: 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 3e  o_error_pending>
7610: 30 7d 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74  0} {.        set
7620: 20 3a 3a 67 6f 20 30 0a 20 20 20 20 20 20 20 20   ::go 0.        
7630: 73 65 74 20 71 20 30 0a 20 20 20 20 20 20 20 20  set q 0.        
7640: 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f  set ::sqlite_io_
7650: 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a  error_pending 0.
7660: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20        } else {. 
7670: 20 20 20 20 20 20 20 73 65 74 20 71 20 31 0a 20         set q 1. 
7680: 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 73 65       }..      se
7690: 74 20 73 20 5b 65 78 70 72 20 24 3a 3a 73 71 6c  t s [expr $::sql
76a0: 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 69 74  ite_io_error_hit
76b0: 3d 3d 30 5d 0a 20 20 20 20 20 20 69 66 20 7b 24  ==0].      if {$
76c0: 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f  ::sqlite_io_erro
76d0: 72 5f 68 69 74 3e 24 3a 3a 73 71 6c 69 74 65 5f  r_hit>$::sqlite_
76e0: 69 6f 5f 65 72 72 6f 72 5f 68 61 72 64 68 69 74  io_error_hardhit
76f0: 20 26 26 20 24 72 3d 3d 30 7d 20 7b 0a 20 20 20   && $r==0} {.   
7700: 20 20 20 20 20 73 65 74 20 72 20 31 0a 20 20 20       set r 1.   
7710: 20 20 20 7d 0a 20 20 20 20 20 20 73 65 74 20 3a     }.      set :
7720: 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72  :sqlite_io_error
7730: 5f 68 69 74 20 30 0a 0a 20 20 20 20 20 20 23 20  _hit 0..      # 
7740: 4f 6e 65 20 6f 66 20 74 77 6f 20 74 68 69 6e 67  One of two thing
7750: 73 20 6d 75 73 74 20 68 61 76 65 20 68 61 70 70  s must have happ
7760: 65 6e 65 64 2e 20 65 69 74 68 65 72 0a 20 20 20  ened. either.   
7770: 20 20 20 23 20 20 20 31 2e 20 20 57 65 20 6e 65     #   1.  We ne
7780: 76 65 72 20 68 69 74 20 74 68 65 20 49 4f 20 65  ver hit the IO e
7790: 72 72 6f 72 20 61 6e 64 20 74 68 65 20 53 51 4c  rror and the SQL
77a0: 20 72 65 74 75 72 6e 65 64 20 4f 4b 0a 20 20 20   returned OK.   
77b0: 20 20 20 23 20 20 20 32 2e 20 20 41 6e 20 49 4f     #   2.  An IO
77c0: 20 65 72 72 6f 72 20 77 61 73 20 68 69 74 20 61   error was hit a
77d0: 6e 64 20 74 68 65 20 53 51 4c 20 66 61 69 6c 65  nd the SQL faile
77e0: 64 0a 20 20 20 20 20 20 23 0a 20 20 20 20 20 20  d.      #.      
77f0: 23 70 75 74 73 20 22 73 3d 24 73 20 72 3d 24 72  #puts "s=$s r=$r
7800: 20 71 3d 24 71 22 0a 20 20 20 20 20 20 65 78 70   q=$q".      exp
7810: 72 20 7b 20 28 24 73 20 26 26 20 21 24 72 20 26  r { ($s && !$r &
7820: 26 20 21 24 71 29 20 7c 7c 20 28 21 24 73 20 26  & !$q) || (!$s &
7830: 26 20 24 72 20 26 26 20 24 71 29 20 7d 0a 20 20  & $r && $q) }.  
7840: 20 20 7d 20 7b 31 7d 0a 0a 20 20 20 20 73 65 74    } {1}..    set
7850: 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72   ::sqlite_io_err
7860: 6f 72 5f 68 69 74 20 30 0a 20 20 20 20 73 65 74  or_hit 0.    set
7870: 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72   ::sqlite_io_err
7880: 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a 0a 20 20  or_pending 0..  
7890: 20 20 23 20 43 68 65 63 6b 20 74 68 61 74 20 6e    # Check that n
78a0: 6f 20 70 61 67 65 20 72 65 66 65 72 65 6e 63 65  o page reference
78b0: 73 20 77 65 72 65 20 6c 65 61 6b 65 64 2e 20 54  s were leaked. T
78c0: 68 65 72 65 20 73 68 6f 75 6c 64 20 62 65 20 0a  here should be .
78d0: 20 20 20 20 23 20 61 20 73 69 6e 67 6c 65 20 72      # a single r
78e0: 65 66 65 72 65 6e 63 65 20 69 66 20 74 68 65 72  eference if ther
78f0: 65 20 69 73 20 73 74 69 6c 6c 20 61 6e 20 61 63  e is still an ac
7900: 74 69 76 65 20 74 72 61 6e 73 61 63 74 69 6f 6e  tive transaction
7910: 2c 20 0a 20 20 20 20 23 20 6f 72 20 7a 65 72 6f  , .    # or zero
7920: 20 6f 74 68 65 72 77 69 73 65 2e 0a 20 20 20 20   otherwise..    
7930: 23 0a 20 20 20 20 23 20 55 50 44 41 54 45 3a 20  #.    # UPDATE: 
7940: 49 66 20 74 68 65 20 49 4f 20 65 72 72 6f 72 20  If the IO error 
7950: 6f 63 63 75 72 73 20 61 66 74 65 72 20 61 20 27  occurs after a '
7960: 42 45 47 49 4e 27 20 62 75 74 20 62 65 66 6f 72  BEGIN' but befor
7970: 65 20 61 6e 79 0a 20 20 20 20 23 20 6c 6f 63 6b  e any.    # lock
7980: 73 20 61 72 65 20 65 73 74 61 62 6c 69 73 68 65  s are establishe
7990: 64 20 6f 6e 20 64 61 74 61 62 61 73 65 20 66 69  d on database fi
79a0: 6c 65 73 20 28 69 2e 65 2e 20 69 66 20 74 68 65  les (i.e. if the
79b0: 20 65 72 72 6f 72 20 0a 20 20 20 20 23 20 6f 63   error .    # oc
79c0: 63 75 72 73 20 77 68 69 6c 65 20 61 74 74 65 6d  curs while attem
79d0: 70 74 69 6e 67 20 74 6f 20 64 65 74 65 63 74 20  pting to detect 
79e0: 61 20 68 6f 74 2d 6a 6f 75 72 6e 61 6c 20 66 69  a hot-journal fi
79f0: 6c 65 29 2c 20 74 68 65 6e 0a 20 20 20 20 23 20  le), then.    # 
7a00: 74 68 65 72 65 20 6d 61 79 20 30 20 70 61 67 65  there may 0 page
7a10: 20 72 65 66 65 72 65 6e 63 65 73 20 61 6e 64 20   references and 
7a20: 61 6e 20 61 63 74 69 76 65 20 74 72 61 6e 73 61  an active transa
7a30: 63 74 69 6f 6e 20 61 63 63 6f 72 64 69 6e 67 0a  ction according.
7a40: 20 20 20 20 23 20 74 6f 20 5b 73 71 6c 69 74 65      # to [sqlite
7a50: 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74  3_get_autocommit
7a60: 5d 2e 0a 20 20 20 20 23 0a 20 20 20 20 69 66 20  ]..    #.    if 
7a70: 7b 24 3a 3a 67 6f 20 26 26 20 24 3a 3a 73 71 6c  {$::go && $::sql
7a80: 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72  ite_io_error_har
7a90: 64 68 69 74 20 26 26 20 24 3a 3a 69 6f 65 72 72  dhit && $::ioerr
7aa0: 6f 70 74 73 28 2d 63 6b 72 65 66 63 6f 75 6e 74  opts(-ckrefcount
7ab0: 29 7d 20 7b 0a 20 20 20 20 20 20 64 6f 5f 74 65  )} {.      do_te
7ac0: 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e 2e  st $testname.$n.
7ad0: 34 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20  4 {.        set 
7ae0: 62 74 20 5b 62 74 72 65 65 5f 66 72 6f 6d 5f 64  bt [btree_from_d
7af0: 62 20 64 62 5d 0a 20 20 20 20 20 20 20 20 64 62  b db].        db
7b00: 5f 65 6e 74 65 72 20 64 62 0a 20 20 20 20 20 20  _enter db.      
7b10: 20 20 61 72 72 61 79 20 73 65 74 20 73 74 61 74    array set stat
7b20: 73 20 5b 62 74 72 65 65 5f 70 61 67 65 72 5f 73  s [btree_pager_s
7b30: 74 61 74 73 20 24 62 74 5d 0a 20 20 20 20 20 20  tats $bt].      
7b40: 20 20 64 62 5f 6c 65 61 76 65 20 64 62 0a 20 20    db_leave db.  
7b50: 20 20 20 20 20 20 73 65 74 20 6e 52 65 66 20 24        set nRef $
7b60: 73 74 61 74 73 28 72 65 66 29 0a 20 20 20 20 20  stats(ref).     
7b70: 20 20 20 65 78 70 72 20 7b 24 6e 52 65 66 20 3d     expr {$nRef =
7b80: 3d 20 30 20 7c 7c 20 28 5b 73 71 6c 69 74 65 33  = 0 || ([sqlite3
7b90: 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 20  _get_autocommit 
7ba0: 64 62 5d 3d 3d 30 20 26 26 20 24 6e 52 65 66 20  db]==0 && $nRef 
7bb0: 3d 3d 20 31 29 7d 0a 20 20 20 20 20 20 7d 20 7b  == 1)}.      } {
7bc0: 31 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20  1}.    }..    # 
7bd0: 49 66 20 74 68 65 72 65 20 69 73 20 61 6e 20 6f  If there is an o
7be0: 70 65 6e 20 64 61 74 61 62 61 73 65 20 68 61 6e  pen database han
7bf0: 64 6c 65 20 61 6e 64 20 6e 6f 20 6f 70 65 6e 20  dle and no open 
7c00: 74 72 61 6e 73 61 63 74 69 6f 6e 2c 20 0a 20 20  transaction, .  
7c10: 20 20 23 20 61 6e 64 20 74 68 65 20 70 61 67 65    # and the page
7c20: 72 20 69 73 20 6e 6f 74 20 72 75 6e 6e 69 6e 67  r is not running
7c30: 20 69 6e 20 65 78 63 6c 75 73 69 76 65 2d 6c 6f   in exclusive-lo
7c40: 63 6b 69 6e 67 20 6d 6f 64 65 2c 0a 20 20 20 20  cking mode,.    
7c50: 23 20 63 68 65 63 6b 20 74 68 61 74 20 74 68 65  # check that the
7c60: 20 70 61 67 65 72 20 69 73 20 69 6e 20 22 75 6e   pager is in "un
7c70: 6c 6f 63 6b 65 64 22 20 73 74 61 74 65 2e 20 54  locked" state. T
7c80: 68 65 6f 72 65 74 69 63 61 6c 6c 79 2c 0a 20 20  heoretically,.  
7c90: 20 20 23 20 69 66 20 61 20 63 61 6c 6c 20 74 6f    # if a call to
7ca0: 20 78 55 6e 6c 6f 63 6b 28 29 20 66 61 69 6c 65   xUnlock() faile
7cb0: 64 20 64 75 65 20 74 6f 20 61 6e 20 49 4f 20 65  d due to an IO e
7cc0: 72 72 6f 72 20 74 68 65 20 75 6e 64 65 72 6c 79  rror the underly
7cd0: 69 6e 67 0a 20 20 20 20 23 20 66 69 6c 65 20 6d  ing.    # file m
7ce0: 61 79 20 73 74 69 6c 6c 20 62 65 20 6c 6f 63 6b  ay still be lock
7cf0: 65 64 2e 0a 20 20 20 20 23 0a 20 20 20 20 69 66  ed..    #.    if
7d00: 63 61 70 61 62 6c 65 20 70 72 61 67 6d 61 20 7b  capable pragma {
7d10: 0a 20 20 20 20 20 20 69 66 20 7b 20 5b 69 6e 66  .      if { [inf
7d20: 6f 20 63 6f 6d 6d 61 6e 64 73 20 64 62 5d 20 6e  o commands db] n
7d30: 65 20 22 22 0a 20 20 20 20 20 20 20 20 26 26 20  e "".        && 
7d40: 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b  $::ioerropts(-ck
7d50: 72 65 66 63 6f 75 6e 74 29 0a 20 20 20 20 20 20  refcount).      
7d60: 20 20 26 26 20 5b 64 62 20 6f 6e 65 20 7b 70 72    && [db one {pr
7d70: 61 67 6d 61 20 6c 6f 63 6b 69 6e 67 5f 6d 6f 64  agma locking_mod
7d80: 65 7d 5d 20 65 71 20 22 6e 6f 72 6d 61 6c 22 0a  e}] eq "normal".
7d90: 20 20 20 20 20 20 20 20 26 26 20 5b 73 71 6c 69          && [sqli
7da0: 74 65 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d  te3_get_autocomm
7db0: 69 74 20 64 62 5d 0a 20 20 20 20 20 20 7d 20 7b  it db].      } {
7dc0: 0a 20 20 20 20 20 20 20 20 64 6f 5f 74 65 73 74  .        do_test
7dd0: 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e 2e 35 20   $testname.$n.5 
7de0: 7b 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20  {.          set 
7df0: 62 74 20 5b 62 74 72 65 65 5f 66 72 6f 6d 5f 64  bt [btree_from_d
7e00: 62 20 64 62 5d 0a 20 20 20 20 20 20 20 20 20 20  b db].          
7e10: 64 62 5f 65 6e 74 65 72 20 64 62 0a 20 20 20 20  db_enter db.    
7e20: 20 20 20 20 20 20 61 72 72 61 79 20 73 65 74 20        array set 
7e30: 73 74 61 74 73 20 5b 62 74 72 65 65 5f 70 61 67  stats [btree_pag
7e40: 65 72 5f 73 74 61 74 73 20 24 62 74 5d 0a 20 20  er_stats $bt].  
7e50: 20 20 20 20 20 20 20 20 64 62 5f 6c 65 61 76 65          db_leave
7e60: 20 64 62 0a 20 20 20 20 20 20 20 20 20 20 73 65   db.          se
7e70: 74 20 73 74 61 74 73 28 73 74 61 74 65 29 0a 20  t stats(state). 
7e80: 20 20 20 20 20 20 20 7d 20 30 0a 20 20 20 20 20         } 0.     
7e90: 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20   }.    }..    # 
7ea0: 49 66 20 61 6e 20 49 4f 20 65 72 72 6f 72 20 6f  If an IO error o
7eb0: 63 63 75 72 65 64 2c 20 74 68 65 6e 20 74 68 65  ccured, then the
7ec0: 20 63 68 65 63 6b 73 75 6d 20 6f 66 20 74 68 65   checksum of the
7ed0: 20 64 61 74 61 62 61 73 65 20 73 68 6f 75 6c 64   database should
7ee0: 0a 20 20 20 20 23 20 62 65 20 74 68 65 20 73 61  .    # be the sa
7ef0: 6d 65 20 61 73 20 62 65 66 6f 72 65 20 74 68 65  me as before the
7f00: 20 73 63 72 69 70 74 20 74 68 61 74 20 63 61 75   script that cau
7f10: 73 65 64 20 74 68 65 20 49 4f 20 65 72 72 6f 72  sed the IO error
7f20: 20 77 61 73 20 72 75 6e 2e 0a 20 20 20 20 23 0a   was run..    #.
7f30: 20 20 20 20 69 66 20 7b 24 3a 3a 67 6f 20 26 26      if {$::go &&
7f40: 20 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72   $::sqlite_io_er
7f50: 72 6f 72 5f 68 61 72 64 68 69 74 20 26 26 20 24  ror_hardhit && $
7f60: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 73  ::ioerropts(-cks
7f70: 75 6d 29 7d 20 7b 0a 20 20 20 20 20 20 64 6f 5f  um)} {.      do_
7f80: 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24  test $testname.$
7f90: 6e 2e 36 20 7b 0a 20 20 20 20 20 20 20 20 63 61  n.6 {.        ca
7fa0: 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 20  tch {db close}. 
7fb0: 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 64 62         catch {db
7fc0: 32 20 63 6c 6f 73 65 7d 0a 20 20 20 20 20 20 20  2 close}.       
7fd0: 20 73 65 74 20 3a 3a 44 42 20 5b 73 71 6c 69 74   set ::DB [sqlit
7fe0: 65 33 20 64 62 20 74 65 73 74 2e 64 62 3b 20 73  e3 db test.db; s
7ff0: 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f  qlite3_connectio
8000: 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 20 20  n_pointer db].  
8010: 20 20 20 20 20 20 63 6b 73 75 6d 0a 20 20 20 20        cksum.    
8020: 20 20 7d 20 24 63 68 65 63 6b 73 75 6d 0a 20 20    } $checksum.  
8030: 20 20 7d 0a 0a 20 20 20 20 73 65 74 20 3a 3a 73    }..    set ::s
8040: 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68  qlite_io_error_h
8050: 61 72 64 68 69 74 20 30 0a 20 20 20 20 73 65 74  ardhit 0.    set
8060: 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72   ::sqlite_io_err
8070: 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a 20 20 20  or_pending 0.   
8080: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74   if {[info exist
8090: 73 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63  s ::ioerropts(-c
80a0: 6c 65 61 6e 75 70 29 5d 7d 20 7b 0a 20 20 20 20  leanup)]} {.    
80b0: 20 20 63 61 74 63 68 20 24 3a 3a 69 6f 65 72 72    catch $::ioerr
80c0: 6f 70 74 73 28 2d 63 6c 65 61 6e 75 70 29 0a 20  opts(-cleanup). 
80d0: 20 20 20 7d 0a 20 20 7d 0a 20 20 73 65 74 20 3a     }.  }.  set :
80e0: 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72  :sqlite_io_error
80f0: 5f 70 65 6e 64 69 6e 67 20 30 0a 20 20 73 65 74  _pending 0.  set
8100: 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72   ::sqlite_io_err
8110: 6f 72 5f 70 65 72 73 69 73 74 20 30 0a 20 20 75  or_persist 0.  u
8120: 6e 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73  nset ::ioerropts
8130: 0a 7d 0a 0a 23 20 52 65 74 75 72 6e 20 61 20 63  .}..# Return a c
8140: 68 65 63 6b 73 75 6d 20 62 61 73 65 64 20 6f 6e  hecksum based on
8150: 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66   the contents of
8160: 20 74 68 65 20 6d 61 69 6e 20 64 61 74 61 62 61   the main databa
8170: 73 65 20 61 73 73 6f 63 69 61 74 65 64 0a 23 20  se associated.# 
8180: 77 69 74 68 20 63 6f 6e 6e 65 63 74 69 6f 6e 20  with connection 
8190: 24 64 62 0a 23 0a 70 72 6f 63 20 63 6b 73 75 6d  $db.#.proc cksum
81a0: 20 7b 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 73   {{db db}} {.  s
81b0: 65 74 20 74 78 74 20 5b 24 64 62 20 65 76 61 6c  et txt [$db eval
81c0: 20 7b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20   {.      SELECT 
81d0: 6e 61 6d 65 2c 20 74 79 70 65 2c 20 73 71 6c 20  name, type, sql 
81e0: 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74  FROM sqlite_mast
81f0: 65 72 20 6f 72 64 65 72 20 62 79 20 6e 61 6d 65  er order by name
8200: 0a 20 20 7d 5d 5c 6e 0a 20 20 66 6f 72 65 61 63  .  }]\n.  foreac
8210: 68 20 74 62 6c 20 5b 24 64 62 20 65 76 61 6c 20  h tbl [$db eval 
8220: 7b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 6e  {.      SELECT n
8230: 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f  ame FROM sqlite_
8240: 6d 61 73 74 65 72 20 57 48 45 52 45 20 74 79 70  master WHERE typ
8250: 65 3d 27 74 61 62 6c 65 27 20 6f 72 64 65 72 20  e='table' order 
8260: 62 79 20 6e 61 6d 65 0a 20 20 7d 5d 20 7b 0a 20  by name.  }] {. 
8270: 20 20 20 61 70 70 65 6e 64 20 74 78 74 20 5b 24     append txt [$
8280: 64 62 20 65 76 61 6c 20 22 53 45 4c 45 43 54 20  db eval "SELECT 
8290: 2a 20 46 52 4f 4d 20 24 74 62 6c 22 5d 5c 6e 0a  * FROM $tbl"]\n.
82a0: 20 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 70 72    }.  foreach pr
82b0: 61 67 20 7b 64 65 66 61 75 6c 74 5f 73 79 6e 63  ag {default_sync
82c0: 68 72 6f 6e 6f 75 73 20 64 65 66 61 75 6c 74 5f  hronous default_
82d0: 63 61 63 68 65 5f 73 69 7a 65 7d 20 7b 0a 20 20  cache_size} {.  
82e0: 20 20 61 70 70 65 6e 64 20 74 78 74 20 24 70 72    append txt $pr
82f0: 61 67 2d 5b 24 64 62 20 65 76 61 6c 20 22 50 52  ag-[$db eval "PR
8300: 41 47 4d 41 20 24 70 72 61 67 22 5d 5c 6e 0a 20  AGMA $prag"]\n. 
8310: 20 7d 0a 20 20 73 65 74 20 63 6b 73 75 6d 20 5b   }.  set cksum [
8320: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 74  string length $t
8330: 78 74 5d 2d 5b 6d 64 35 20 24 74 78 74 5d 0a 20  xt]-[md5 $txt]. 
8340: 20 23 20 70 75 74 73 20 24 63 6b 73 75 6d 2d 5b   # puts $cksum-[
8350: 66 69 6c 65 20 73 69 7a 65 20 74 65 73 74 2e 64  file size test.d
8360: 62 5d 0a 20 20 72 65 74 75 72 6e 20 24 63 6b 73  b].  return $cks
8370: 75 6d 0a 7d 0a 0a 23 20 47 65 6e 65 72 61 74 65  um.}..# Generate
8380: 20 61 20 63 68 65 63 6b 73 75 6d 20 62 61 73 65   a checksum base
8390: 64 20 6f 6e 20 74 68 65 20 63 6f 6e 74 65 6e 74  d on the content
83a0: 73 20 6f 66 20 74 68 65 20 6d 61 69 6e 20 61 6e  s of the main an
83b0: 64 20 74 65 6d 70 20 74 61 62 6c 65 73 0a 23 20  d temp tables.# 
83c0: 64 61 74 61 62 61 73 65 20 24 64 62 2e 20 49 66  database $db. If
83d0: 20 74 68 65 20 63 68 65 63 6b 73 75 6d 20 6f 66   the checksum of
83e0: 20 74 77 6f 20 64 61 74 61 62 61 73 65 73 20 69   two databases i
83f0: 73 20 74 68 65 20 73 61 6d 65 2c 20 61 6e 64 20  s the same, and 
8400: 74 68 65 0a 23 20 69 6e 74 65 67 72 69 74 79 2d  the.# integrity-
8410: 63 68 65 63 6b 20 70 61 73 73 65 73 20 66 6f 72  check passes for
8420: 20 62 6f 74 68 2c 20 74 68 65 20 74 77 6f 20 64   both, the two d
8430: 61 74 61 62 61 73 65 73 20 61 72 65 20 69 64 65  atabases are ide
8440: 6e 74 69 63 61 6c 2e 0a 23 0a 70 72 6f 63 20 61  ntical..#.proc a
8450: 6c 6c 63 6b 73 75 6d 20 7b 7b 64 62 20 64 62 7d  llcksum {{db db}
8460: 7d 20 7b 0a 20 20 73 65 74 20 72 65 74 20 5b 6c  } {.  set ret [l
8470: 69 73 74 5d 0a 20 20 69 66 63 61 70 61 62 6c 65  ist].  ifcapable
8480: 20 74 65 6d 70 64 62 20 7b 0a 20 20 20 20 73 65   tempdb {.    se
8490: 74 20 73 71 6c 20 7b 0a 20 20 20 20 20 20 53 45  t sql {.      SE
84a0: 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73  LECT name FROM s
84b0: 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 57 48 45  qlite_master WHE
84c0: 52 45 20 74 79 70 65 20 3d 20 27 74 61 62 6c 65  RE type = 'table
84d0: 27 20 55 4e 49 4f 4e 0a 20 20 20 20 20 20 53 45  ' UNION.      SE
84e0: 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73  LECT name FROM s
84f0: 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65  qlite_temp_maste
8500: 72 20 57 48 45 52 45 20 74 79 70 65 20 3d 20 27  r WHERE type = '
8510: 74 61 62 6c 65 27 20 55 4e 49 4f 4e 0a 20 20 20  table' UNION.   
8520: 20 20 20 53 45 4c 45 43 54 20 27 73 71 6c 69 74     SELECT 'sqlit
8530: 65 5f 6d 61 73 74 65 72 27 20 55 4e 49 4f 4e 0a  e_master' UNION.
8540: 20 20 20 20 20 20 53 45 4c 45 43 54 20 27 73 71        SELECT 'sq
8550: 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72  lite_temp_master
8560: 27 20 4f 52 44 45 52 20 42 59 20 31 0a 20 20 20  ' ORDER BY 1.   
8570: 20 7d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20   }.  } else {.  
8580: 20 20 73 65 74 20 73 71 6c 20 7b 0a 20 20 20 20    set sql {.    
8590: 20 20 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52    SELECT name FR
85a0: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
85b0: 20 57 48 45 52 45 20 74 79 70 65 20 3d 20 27 74   WHERE type = 't
85c0: 61 62 6c 65 27 20 55 4e 49 4f 4e 0a 20 20 20 20  able' UNION.    
85d0: 20 20 53 45 4c 45 43 54 20 27 73 71 6c 69 74 65    SELECT 'sqlite
85e0: 5f 6d 61 73 74 65 72 27 20 4f 52 44 45 52 20 42  _master' ORDER B
85f0: 59 20 31 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20  Y 1.    }.  }.  
8600: 73 65 74 20 74 62 6c 6c 69 73 74 20 5b 24 64 62  set tbllist [$db
8610: 20 65 76 61 6c 20 24 73 71 6c 5d 0a 20 20 73 65   eval $sql].  se
8620: 74 20 74 78 74 20 7b 7d 0a 20 20 66 6f 72 65 61  t txt {}.  forea
8630: 63 68 20 74 62 6c 20 24 74 62 6c 6c 69 73 74 20  ch tbl $tbllist 
8640: 7b 0a 20 20 20 20 61 70 70 65 6e 64 20 74 78 74  {.    append txt
8650: 20 5b 24 64 62 20 65 76 61 6c 20 22 53 45 4c 45   [$db eval "SELE
8660: 43 54 20 2a 20 46 52 4f 4d 20 24 74 62 6c 22 5d  CT * FROM $tbl"]
8670: 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 70  .  }.  foreach p
8680: 72 61 67 20 7b 64 65 66 61 75 6c 74 5f 63 61 63  rag {default_cac
8690: 68 65 5f 73 69 7a 65 7d 20 7b 0a 20 20 20 20 61  he_size} {.    a
86a0: 70 70 65 6e 64 20 74 78 74 20 24 70 72 61 67 2d  ppend txt $prag-
86b0: 5b 24 64 62 20 65 76 61 6c 20 22 50 52 41 47 4d  [$db eval "PRAGM
86c0: 41 20 24 70 72 61 67 22 5d 5c 6e 0a 20 20 7d 0a  A $prag"]\n.  }.
86d0: 20 20 23 20 70 75 74 73 20 74 78 74 3d 24 74 78    # puts txt=$tx
86e0: 74 0a 20 20 72 65 74 75 72 6e 20 5b 6d 64 35 20  t.  return [md5 
86f0: 24 74 78 74 5d 0a 7d 0a 0a 23 20 47 65 6e 65 72  $txt].}..# Gener
8700: 61 74 65 20 61 20 63 68 65 63 6b 73 75 6d 20 62  ate a checksum b
8710: 61 73 65 64 20 6f 6e 20 74 68 65 20 63 6f 6e 74  ased on the cont
8720: 65 6e 74 73 20 6f 66 20 61 20 73 69 6e 67 6c 65  ents of a single
8730: 20 64 61 74 61 62 61 73 65 20 77 69 74 68 0a 23   database with.#
8740: 20 61 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e   a database conn
8750: 65 63 74 69 6f 6e 2e 20 20 54 68 65 20 6e 61 6d  ection.  The nam
8760: 65 20 6f 66 20 74 68 65 20 64 61 74 61 62 61 73  e of the databas
8770: 65 20 69 73 20 24 64 62 6e 61 6d 65 2e 20 20 0a  e is $dbname.  .
8780: 23 20 45 78 61 6d 70 6c 65 73 20 6f 66 20 24 64  # Examples of $d
8790: 62 6e 61 6d 65 20 61 72 65 20 22 74 65 6d 70 22  bname are "temp"
87a0: 20 6f 72 20 22 6d 61 69 6e 22 2e 0a 23 0a 70 72   or "main"..#.pr
87b0: 6f 63 20 64 62 63 6b 73 75 6d 20 7b 64 62 20 64  oc dbcksum {db d
87c0: 62 6e 61 6d 65 7d 20 7b 0a 20 20 69 66 20 7b 24  bname} {.  if {$
87d0: 64 62 6e 61 6d 65 3d 3d 22 74 65 6d 70 22 7d 20  dbname=="temp"} 
87e0: 7b 0a 20 20 20 20 73 65 74 20 6d 61 73 74 65 72  {.    set master
87f0: 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73   sqlite_temp_mas
8800: 74 65 72 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20  ter.  } else {. 
8810: 20 20 20 73 65 74 20 6d 61 73 74 65 72 20 24 64     set master $d
8820: 62 6e 61 6d 65 2e 73 71 6c 69 74 65 5f 6d 61 73  bname.sqlite_mas
8830: 74 65 72 0a 20 20 7d 0a 20 20 73 65 74 20 61 6c  ter.  }.  set al
8840: 6c 74 61 62 20 5b 24 64 62 20 65 76 61 6c 20 22  ltab [$db eval "
8850: 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d  SELECT name FROM
8860: 20 24 6d 61 73 74 65 72 20 57 48 45 52 45 20 74   $master WHERE t
8870: 79 70 65 3d 27 74 61 62 6c 65 27 22 5d 0a 20 20  ype='table'"].  
8880: 73 65 74 20 74 78 74 20 5b 24 64 62 20 65 76 61  set txt [$db eva
8890: 6c 20 22 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  l "SELECT * FROM
88a0: 20 24 6d 61 73 74 65 72 22 5d 5c 6e 0a 20 20 66   $master"]\n.  f
88b0: 6f 72 65 61 63 68 20 74 61 62 20 24 61 6c 6c 74  oreach tab $allt
88c0: 61 62 20 7b 0a 20 20 20 20 61 70 70 65 6e 64 20  ab {.    append 
88d0: 74 78 74 20 5b 24 64 62 20 65 76 61 6c 20 22 53  txt [$db eval "S
88e0: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 24 64 62  ELECT * FROM $db
88f0: 6e 61 6d 65 2e 24 74 61 62 22 5d 5c 6e 0a 20 20  name.$tab"]\n.  
8900: 7d 0a 20 20 72 65 74 75 72 6e 20 5b 6d 64 35 20  }.  return [md5 
8910: 24 74 78 74 5d 0a 7d 0a 0a 70 72 6f 63 20 6d 65  $txt].}..proc me
8920: 6d 64 65 62 75 67 5f 6c 6f 67 5f 73 71 6c 20 7b  mdebug_log_sql {
8930: 7b 66 69 6c 65 6e 61 6d 65 20 6d 61 6c 6c 6f 63  {filename malloc
8940: 73 2e 73 71 6c 7d 7d 20 7b 0a 0a 20 20 73 65 74  s.sql}} {..  set
8950: 20 64 61 74 61 20 5b 73 71 6c 69 74 65 33 5f 6d   data [sqlite3_m
8960: 65 6d 64 65 62 75 67 5f 6c 6f 67 20 64 75 6d 70  emdebug_log dump
8970: 5d 0a 20 20 73 65 74 20 6e 46 72 61 6d 65 20 5b  ].  set nFrame [
8980: 65 78 70 72 20 5b 6c 6c 65 6e 67 74 68 20 5b 6c  expr [llength [l
8990: 69 6e 64 65 78 20 24 64 61 74 61 20 30 5d 5d 2d  index $data 0]]-
89a0: 32 5d 0a 20 20 69 66 20 7b 24 6e 46 72 61 6d 65  2].  if {$nFrame
89b0: 20 3c 20 30 7d 20 7b 20 72 65 74 75 72 6e 20 22   < 0} { return "
89c0: 22 20 7d 0a 0a 20 20 73 65 74 20 64 61 74 61 62  " }..  set datab
89d0: 61 73 65 20 74 65 6d 70 0a 0a 20 20 73 65 74 20  ase temp..  set 
89e0: 74 62 6c 20 22 43 52 45 41 54 45 20 54 41 42 4c  tbl "CREATE TABL
89f0: 45 20 24 7b 64 61 74 61 62 61 73 65 7d 2e 6d 61  E ${database}.ma
8a00: 6c 6c 6f 63 28 7a 54 65 73 74 2c 20 6e 43 61 6c  lloc(zTest, nCal
8a10: 6c 2c 20 6e 42 79 74 65 2c 20 6c 53 74 61 63 6b  l, nByte, lStack
8a20: 29 3b 22 0a 0a 20 20 73 65 74 20 73 71 6c 20 22  );"..  set sql "
8a30: 22 0a 20 20 66 6f 72 65 61 63 68 20 65 20 24 64  ".  foreach e $d
8a40: 61 74 61 20 7b 0a 20 20 20 20 73 65 74 20 6e 43  ata {.    set nC
8a50: 61 6c 6c 20 5b 6c 69 6e 64 65 78 20 24 65 20 30  all [lindex $e 0
8a60: 5d 0a 20 20 20 20 73 65 74 20 6e 42 79 74 65 20  ].    set nByte 
8a70: 5b 6c 69 6e 64 65 78 20 24 65 20 31 5d 0a 20 20  [lindex $e 1].  
8a80: 20 20 73 65 74 20 6c 53 74 61 63 6b 20 5b 6c 72    set lStack [lr
8a90: 61 6e 67 65 20 24 65 20 32 20 65 6e 64 5d 0a 20  ange $e 2 end]. 
8aa0: 20 20 20 61 70 70 65 6e 64 20 73 71 6c 20 22 49     append sql "I
8ab0: 4e 53 45 52 54 20 49 4e 54 4f 20 24 7b 64 61 74  NSERT INTO ${dat
8ac0: 61 62 61 73 65 7d 2e 6d 61 6c 6c 6f 63 20 56 41  abase}.malloc VA
8ad0: 4c 55 45 53 22 0a 20 20 20 20 61 70 70 65 6e 64  LUES".    append
8ae0: 20 73 71 6c 20 22 28 27 74 65 73 74 27 2c 20 24   sql "('test', $
8af0: 6e 43 61 6c 6c 2c 20 24 6e 42 79 74 65 2c 20 27  nCall, $nByte, '
8b00: 24 6c 53 74 61 63 6b 27 29 3b 5c 6e 22 0a 20 20  $lStack');\n".  
8b10: 20 20 66 6f 72 65 61 63 68 20 66 20 24 6c 53 74    foreach f $lSt
8b20: 61 63 6b 20 7b 0a 20 20 20 20 20 20 73 65 74 20  ack {.      set 
8b30: 66 72 61 6d 65 73 28 24 66 29 20 31 0a 20 20 20  frames($f) 1.   
8b40: 20 7d 0a 20 20 7d 0a 0a 20 20 73 65 74 20 74 62   }.  }..  set tb
8b50: 6c 32 20 22 43 52 45 41 54 45 20 54 41 42 4c 45  l2 "CREATE TABLE
8b60: 20 24 7b 64 61 74 61 62 61 73 65 7d 2e 66 72 61   ${database}.fra
8b70: 6d 65 28 66 72 61 6d 65 20 49 4e 54 45 47 45 52  me(frame INTEGER
8b80: 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 6c 69   PRIMARY KEY, li
8b90: 6e 65 29 3b 5c 6e 22 0a 20 20 73 65 74 20 74 62  ne);\n".  set tb
8ba0: 6c 33 20 22 43 52 45 41 54 45 20 54 41 42 4c 45  l3 "CREATE TABLE
8bb0: 20 24 7b 64 61 74 61 62 61 73 65 7d 2e 66 69 6c   ${database}.fil
8bc0: 65 28 6e 61 6d 65 20 50 52 49 4d 41 52 59 20 4b  e(name PRIMARY K
8bd0: 45 59 2c 20 63 6f 6e 74 65 6e 74 29 3b 5c 6e 22  EY, content);\n"
8be0: 0a 0a 20 20 66 6f 72 65 61 63 68 20 66 20 5b 61  ..  foreach f [a
8bf0: 72 72 61 79 20 6e 61 6d 65 73 20 66 72 61 6d 65  rray names frame
8c00: 73 5d 20 7b 0a 20 20 20 20 73 65 74 20 61 64 64  s] {.    set add
8c10: 72 20 5b 66 6f 72 6d 61 74 20 25 78 20 24 66 5d  r [format %x $f]
8c20: 0a 20 20 20 20 73 65 74 20 63 6d 64 20 22 61 64  .    set cmd "ad
8c30: 64 72 32 6c 69 6e 65 20 2d 65 20 5b 69 6e 66 6f  dr2line -e [info
8c40: 20 6e 61 6d 65 6f 66 65 78 65 63 5d 20 24 61 64   nameofexec] $ad
8c50: 64 72 22 0a 20 20 20 20 73 65 74 20 6c 69 6e 65  dr".    set line
8c60: 20 5b 65 76 61 6c 20 65 78 65 63 20 24 63 6d 64   [eval exec $cmd
8c70: 5d 0a 20 20 20 20 61 70 70 65 6e 64 20 73 71 6c  ].    append sql
8c80: 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 24 7b   "INSERT INTO ${
8c90: 64 61 74 61 62 61 73 65 7d 2e 66 72 61 6d 65 20  database}.frame 
8ca0: 56 41 4c 55 45 53 28 24 66 2c 20 27 24 6c 69 6e  VALUES($f, '$lin
8cb0: 65 27 29 3b 5c 6e 22 0a 0a 20 20 20 20 73 65 74  e');\n"..    set
8cc0: 20 66 69 6c 65 20 5b 6c 69 6e 64 65 78 20 5b 73   file [lindex [s
8cd0: 70 6c 69 74 20 24 6c 69 6e 65 20 3a 5d 20 30 5d  plit $line :] 0]
8ce0: 0a 20 20 20 20 73 65 74 20 66 69 6c 65 73 28 24  .    set files($
8cf0: 66 69 6c 65 29 20 31 0a 20 20 7d 0a 0a 20 20 66  file) 1.  }..  f
8d00: 6f 72 65 61 63 68 20 66 20 5b 61 72 72 61 79 20  oreach f [array 
8d10: 6e 61 6d 65 73 20 66 69 6c 65 73 5d 20 7b 0a 20  names files] {. 
8d20: 20 20 20 73 65 74 20 63 6f 6e 74 65 6e 74 73 20     set contents 
8d30: 22 22 0a 20 20 20 20 63 61 74 63 68 20 7b 0a 20  "".    catch {. 
8d40: 20 20 20 20 20 73 65 74 20 66 64 20 5b 6f 70 65       set fd [ope
8d50: 6e 20 24 66 5d 0a 20 20 20 20 20 20 73 65 74 20  n $f].      set 
8d60: 63 6f 6e 74 65 6e 74 73 20 5b 72 65 61 64 20 24  contents [read $
8d70: 66 64 5d 0a 20 20 20 20 20 20 63 6c 6f 73 65 20  fd].      close 
8d80: 24 66 64 0a 20 20 20 20 7d 0a 20 20 20 20 73 65  $fd.    }.    se
8d90: 74 20 63 6f 6e 74 65 6e 74 73 20 5b 73 74 72 69  t contents [stri
8da0: 6e 67 20 6d 61 70 20 7b 27 20 27 27 7d 20 24 63  ng map {' ''} $c
8db0: 6f 6e 74 65 6e 74 73 5d 0a 20 20 20 20 61 70 70  ontents].    app
8dc0: 65 6e 64 20 73 71 6c 20 22 49 4e 53 45 52 54 20  end sql "INSERT 
8dd0: 49 4e 54 4f 20 24 7b 64 61 74 61 62 61 73 65 7d  INTO ${database}
8de0: 2e 66 69 6c 65 20 56 41 4c 55 45 53 28 27 24 66  .file VALUES('$f
8df0: 27 2c 20 27 24 63 6f 6e 74 65 6e 74 73 27 29 3b  ', '$contents');
8e00: 5c 6e 22 0a 20 20 7d 0a 0a 20 20 73 65 74 20 66  \n".  }..  set f
8e10: 64 20 5b 6f 70 65 6e 20 24 66 69 6c 65 6e 61 6d  d [open $filenam
8e20: 65 20 77 5d 0a 20 20 70 75 74 73 20 24 66 64 20  e w].  puts $fd 
8e30: 22 42 45 47 49 4e 3b 20 24 7b 74 62 6c 7d 24 7b  "BEGIN; ${tbl}${
8e40: 74 62 6c 32 7d 24 7b 74 62 6c 33 7d 24 7b 73 71  tbl2}${tbl3}${sq
8e50: 6c 7d 20 3b 20 43 4f 4d 4d 49 54 3b 22 0a 20 20  l} ; COMMIT;".  
8e60: 63 6c 6f 73 65 20 24 66 64 0a 7d 0a 0a 23 20 43  close $fd.}..# C
8e70: 6f 70 79 20 66 69 6c 65 20 24 66 72 6f 6d 20 69  opy file $from i
8e80: 6e 74 6f 20 24 74 6f 2e 20 54 68 69 73 20 69 73  nto $to. This is
8e90: 20 75 73 65 64 20 62 65 63 61 75 73 65 20 73 6f   used because so
8ea0: 6d 65 20 76 65 72 73 69 6f 6e 73 20 6f 66 0a 23  me versions of.#
8eb0: 20 54 43 4c 20 66 6f 72 20 77 69 6e 64 6f 77 73   TCL for windows
8ec0: 20 28 6e 6f 74 61 62 6c 79 20 74 68 65 20 38 2e   (notably the 8.
8ed0: 34 2e 31 20 62 69 6e 61 72 79 20 70 61 63 6b 61  4.1 binary packa
8ee0: 67 65 20 73 68 69 70 70 65 64 20 77 69 74 68 20  ge shipped with 
8ef0: 74 68 65 0a 23 20 63 75 72 72 65 6e 74 20 6d 69  the.# current mi
8f00: 6e 67 77 20 72 65 6c 65 61 73 65 29 20 68 61 76  ngw release) hav
8f10: 65 20 61 20 62 72 6f 6b 65 6e 20 22 66 69 6c 65  e a broken "file
8f20: 20 63 6f 70 79 22 20 63 6f 6d 6d 61 6e 64 2e 0a   copy" command..
8f30: 23 0a 70 72 6f 63 20 63 6f 70 79 5f 66 69 6c 65  #.proc copy_file
8f40: 20 7b 66 72 6f 6d 20 74 6f 7d 20 7b 0a 20 20 69   {from to} {.  i
8f50: 66 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f  f {$::tcl_platfo
8f60: 72 6d 28 70 6c 61 74 66 6f 72 6d 29 3d 3d 22 75  rm(platform)=="u
8f70: 6e 69 78 22 7d 20 7b 0a 20 20 20 20 66 69 6c 65  nix"} {.    file
8f80: 20 63 6f 70 79 20 2d 66 6f 72 63 65 20 24 66 72   copy -force $fr
8f90: 6f 6d 20 24 74 6f 0a 20 20 7d 20 65 6c 73 65 20  om $to.  } else 
8fa0: 7b 0a 20 20 20 20 73 65 74 20 66 20 5b 6f 70 65  {.    set f [ope
8fb0: 6e 20 24 66 72 6f 6d 5d 0a 20 20 20 20 66 63 6f  n $from].    fco
8fc0: 6e 66 69 67 75 72 65 20 24 66 20 2d 74 72 61 6e  nfigure $f -tran
8fd0: 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72 79 0a 20  slation binary. 
8fe0: 20 20 20 73 65 74 20 74 20 5b 6f 70 65 6e 20 24     set t [open $
8ff0: 74 6f 20 77 5d 0a 20 20 20 20 66 63 6f 6e 66 69  to w].    fconfi
9000: 67 75 72 65 20 24 74 20 2d 74 72 61 6e 73 6c 61  gure $t -transla
9010: 74 69 6f 6e 20 62 69 6e 61 72 79 0a 20 20 20 20  tion binary.    
9020: 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20  puts -nonewline 
9030: 24 74 20 5b 72 65 61 64 20 24 66 20 5b 66 69 6c  $t [read $f [fil
9040: 65 20 73 69 7a 65 20 24 66 72 6f 6d 5d 5d 0a 20  e size $from]]. 
9050: 20 20 20 63 6c 6f 73 65 20 24 74 0a 20 20 20 20     close $t.    
9060: 63 6c 6f 73 65 20 24 66 0a 20 20 7d 0a 7d 0a 0a  close $f.  }.}..
9070: 23 20 44 72 6f 70 20 61 6c 6c 20 74 61 62 6c 65  # Drop all table
9080: 73 20 69 6e 20 64 61 74 61 62 61 73 65 20 5b 64  s in database [d
9090: 62 5d 0a 70 72 6f 63 20 64 72 6f 70 5f 61 6c 6c  b].proc drop_all
90a0: 5f 74 61 62 6c 65 73 20 7b 7b 64 62 20 64 62 7d  _tables {{db db}
90b0: 7d 20 7b 0a 20 20 69 66 63 61 70 61 62 6c 65 20  } {.  ifcapable 
90c0: 74 72 69 67 67 65 72 26 26 66 6f 72 65 69 67 6e  trigger&&foreign
90d0: 6b 65 79 20 7b 0a 20 20 20 20 73 65 74 20 70 6b  key {.    set pk
90e0: 20 5b 24 64 62 20 6f 6e 65 20 22 50 52 41 47 4d   [$db one "PRAGM
90f0: 41 20 66 6f 72 65 69 67 6e 5f 6b 65 79 73 22 5d  A foreign_keys"]
9100: 0a 20 20 20 20 24 64 62 20 65 76 61 6c 20 22 50  .    $db eval "P
9110: 52 41 47 4d 41 20 66 6f 72 65 69 67 6e 5f 6b 65  RAGMA foreign_ke
9120: 79 73 20 3d 20 4f 46 46 22 0a 20 20 7d 0a 20 20  ys = OFF".  }.  
9130: 66 6f 72 65 61 63 68 20 7b 69 64 78 20 6e 61 6d  foreach {idx nam
9140: 65 20 66 69 6c 65 7d 20 5b 64 62 20 65 76 61 6c  e file} [db eval
9150: 20 7b 50 52 41 47 4d 41 20 64 61 74 61 62 61 73   {PRAGMA databas
9160: 65 5f 6c 69 73 74 7d 5d 20 7b 0a 20 20 20 20 69  e_list}] {.    i
9170: 66 20 7b 24 69 64 78 3d 3d 31 7d 20 7b 0a 20 20  f {$idx==1} {.  
9180: 20 20 20 20 73 65 74 20 6d 61 73 74 65 72 20 73      set master s
9190: 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65  qlite_temp_maste
91a0: 72 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20  r.    } else {. 
91b0: 20 20 20 20 20 73 65 74 20 6d 61 73 74 65 72 20       set master 
91c0: 24 6e 61 6d 65 2e 73 71 6c 69 74 65 5f 6d 61 73  $name.sqlite_mas
91d0: 74 65 72 0a 20 20 20 20 7d 0a 20 20 20 20 66 6f  ter.    }.    fo
91e0: 72 65 61 63 68 20 7b 74 20 74 79 70 65 7d 20 5b  reach {t type} [
91f0: 24 64 62 20 65 76 61 6c 20 22 0a 20 20 20 20 20  $db eval ".     
9200: 20 53 45 4c 45 43 54 20 6e 61 6d 65 2c 20 74 79   SELECT name, ty
9210: 70 65 20 46 52 4f 4d 20 24 6d 61 73 74 65 72 0a  pe FROM $master.
9220: 20 20 20 20 20 20 57 48 45 52 45 20 74 79 70 65        WHERE type
9230: 20 49 4e 28 27 74 61 62 6c 65 27 2c 20 27 76 69   IN('table', 'vi
9240: 65 77 27 29 20 41 4e 44 20 6e 61 6d 65 20 4e 4f  ew') AND name NO
9250: 54 20 4c 49 4b 45 20 27 73 71 6c 69 74 65 58 5f  T LIKE 'sqliteX_
9260: 25 27 20 45 53 43 41 50 45 20 27 58 27 0a 20 20  %' ESCAPE 'X'.  
9270: 20 20 22 5d 20 7b 0a 20 20 20 20 20 20 24 64 62    "] {.      $db
9280: 20 65 76 61 6c 20 22 44 52 4f 50 20 24 74 79 70   eval "DROP $typ
9290: 65 20 5c 22 24 74 5c 22 22 0a 20 20 20 20 7d 0a  e \"$t\"".    }.
92a0: 20 20 7d 0a 20 20 69 66 63 61 70 61 62 6c 65 20    }.  ifcapable 
92b0: 74 72 69 67 67 65 72 26 26 66 6f 72 65 69 67 6e  trigger&&foreign
92c0: 6b 65 79 20 7b 0a 20 20 20 20 24 64 62 20 65 76  key {.    $db ev
92d0: 61 6c 20 22 50 52 41 47 4d 41 20 66 6f 72 65 69  al "PRAGMA forei
92e0: 67 6e 5f 6b 65 79 73 20 3d 20 24 70 6b 22 0a 20  gn_keys = $pk". 
92f0: 20 7d 0a 7d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d   }.}..#---------
9300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9340: 0a 23 20 49 66 20 61 20 74 65 73 74 20 73 63 72  .# If a test scr
9350: 69 70 74 20 69 73 20 65 78 65 63 75 74 65 64 20  ipt is executed 
9360: 77 69 74 68 20 67 6c 6f 62 61 6c 20 76 61 72 69  with global vari
9370: 61 62 6c 65 20 24 3a 3a 47 28 70 65 72 6d 3a 6e  able $::G(perm:n
9380: 61 6d 65 29 20 73 65 74 20 74 6f 0a 23 20 22 77  ame) set to.# "w
9390: 61 6c 22 2c 20 74 68 65 6e 20 74 68 65 20 74 65  al", then the te
93a0: 73 74 73 20 61 72 65 20 72 75 6e 20 69 6e 20 57  sts are run in W
93b0: 41 4c 20 6d 6f 64 65 2e 20 4f 74 68 65 72 77 69  AL mode. Otherwi
93c0: 73 65 2c 20 74 68 65 79 20 73 68 6f 75 6c 64 20  se, they should 
93d0: 62 65 20 72 75 6e 20 0a 23 20 69 6e 20 72 6f 6c  be run .# in rol
93e0: 6c 62 61 63 6b 20 6d 6f 64 65 2e 20 54 68 65 20  lback mode. The 
93f0: 66 6f 6c 6c 6f 77 69 6e 67 20 54 63 6c 20 70 72  following Tcl pr
9400: 6f 63 73 20 61 72 65 20 75 73 65 64 20 74 6f 20  ocs are used to 
9410: 6d 61 6b 65 20 74 68 69 73 20 6c 65 73 73 20 0a  make this less .
9420: 23 20 69 6e 74 72 75 73 69 76 65 3a 0a 23 0a 23  # intrusive:.#.#
9430: 20 20 20 77 61 6c 5f 73 65 74 5f 6a 6f 75 72 6e     wal_set_journ
9440: 61 6c 5f 6d 6f 64 65 20 3f 44 42 3f 0a 23 0a 23  al_mode ?DB?.#.#
9450: 20 20 20 20 20 49 66 20 72 75 6e 6e 69 6e 67 20       If running 
9460: 61 20 57 41 4c 20 74 65 73 74 2c 20 65 78 65 63  a WAL test, exec
9470: 75 74 65 20 22 50 52 41 47 4d 41 20 6a 6f 75 72  ute "PRAGMA jour
9480: 6e 61 6c 5f 6d 6f 64 65 20 3d 20 77 61 6c 22 20  nal_mode = wal" 
9490: 75 73 69 6e 67 0a 23 20 20 20 20 20 63 6f 6e 6e  using.#     conn
94a0: 65 63 74 69 6f 6e 20 68 61 6e 64 6c 65 20 44 42  ection handle DB
94b0: 2e 20 4f 74 68 65 72 77 69 73 65 2c 20 74 68 69  . Otherwise, thi
94c0: 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 61 20 6e  s command is a n
94d0: 6f 2d 6f 70 2e 0a 23 0a 23 20 20 20 77 61 6c 5f  o-op..#.#   wal_
94e0: 63 68 65 63 6b 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f  check_journal_mo
94f0: 64 65 20 54 45 53 54 4e 41 4d 45 20 3f 44 42 3f  de TESTNAME ?DB?
9500: 0a 23 0a 23 20 20 20 20 20 49 66 20 72 75 6e 6e  .#.#     If runn
9510: 69 6e 67 20 61 20 57 41 4c 20 74 65 73 74 2c 20  ing a WAL test, 
9520: 65 78 65 63 75 74 65 20 61 20 74 65 73 74 73 20  execute a tests 
9530: 63 61 73 65 20 74 68 61 74 20 66 61 69 6c 73 20  case that fails 
9540: 69 66 20 74 68 65 20 6d 61 69 6e 0a 23 20 20 20  if the main.#   
9550: 20 20 64 61 74 61 62 61 73 65 20 66 6f 72 20 63    database for c
9560: 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 6e 64 6c 65  onnection handle
9570: 20 44 42 20 69 73 20 6e 6f 74 20 63 75 72 72 65   DB is not curre
9580: 6e 74 6c 79 20 61 20 57 41 4c 20 64 61 74 61 62  ntly a WAL datab
9590: 61 73 65 2e 0a 23 20 20 20 20 20 4f 74 68 65 72  ase..#     Other
95a0: 77 69 73 65 20 28 69 66 20 6e 6f 74 20 72 75 6e  wise (if not run
95b0: 6e 69 6e 67 20 61 20 57 41 4c 20 70 65 72 6d 75  ning a WAL permu
95c0: 74 61 74 69 6f 6e 29 20 74 68 69 73 20 69 73 20  tation) this is 
95d0: 61 20 6e 6f 2d 6f 70 2e 0a 23 0a 23 20 20 20 77  a no-op..#.#   w
95e0: 61 6c 5f 69 73 5f 77 61 6c 5f 6d 6f 64 65 0a 23  al_is_wal_mode.#
95f0: 20 20 20 0a 23 20 20 20 20 20 52 65 74 75 72 6e     .#     Return
9600: 73 20 74 72 75 65 20 69 66 20 74 68 69 73 20 74  s true if this t
9610: 65 73 74 20 73 68 6f 75 6c 64 20 62 65 20 72 75  est should be ru
9620: 6e 20 69 6e 20 57 41 4c 20 6d 6f 64 65 2e 20 46  n in WAL mode. F
9630: 61 6c 73 65 20 6f 74 68 65 72 77 69 73 65 2e 0a  alse otherwise..
9640: 23 20 0a 70 72 6f 63 20 77 61 6c 5f 69 73 5f 77  # .proc wal_is_w
9650: 61 6c 5f 6d 6f 64 65 20 7b 7d 20 7b 0a 20 20 65  al_mode {} {.  e
9660: 78 70 72 20 7b 5b 70 65 72 6d 75 74 61 74 69 6f  xpr {[permutatio
9670: 6e 5d 20 65 71 20 22 77 61 6c 22 7d 0a 7d 0a 70  n] eq "wal"}.}.p
9680: 72 6f 63 20 77 61 6c 5f 73 65 74 5f 6a 6f 75 72  roc wal_set_jour
9690: 6e 61 6c 5f 6d 6f 64 65 20 7b 7b 64 62 20 64 62  nal_mode {{db db
96a0: 7d 7d 20 7b 0a 20 20 69 66 20 7b 20 5b 77 61 6c  }} {.  if { [wal
96b0: 5f 69 73 5f 77 61 6c 5f 6d 6f 64 65 5d 20 7d 20  _is_wal_mode] } 
96c0: 7b 0a 20 20 20 20 24 64 62 20 65 76 61 6c 20 22  {.    $db eval "
96d0: 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d  PRAGMA journal_m
96e0: 6f 64 65 20 3d 20 57 41 4c 22 0a 20 20 7d 0a 7d  ode = WAL".  }.}
96f0: 0a 70 72 6f 63 20 77 61 6c 5f 63 68 65 63 6b 5f  .proc wal_check_
9700: 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 7b 74 65  journal_mode {te
9710: 73 74 6e 61 6d 65 20 7b 64 62 20 64 62 7d 7d 20  stname {db db}} 
9720: 7b 0a 20 20 69 66 20 7b 20 5b 77 61 6c 5f 69 73  {.  if { [wal_is
9730: 5f 77 61 6c 5f 6d 6f 64 65 5d 20 7d 20 7b 0a 20  _wal_mode] } {. 
9740: 20 20 20 24 64 62 20 65 76 61 6c 20 7b 20 53 45     $db eval { SE
9750: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73 71 6c 69  LECT * FROM sqli
9760: 74 65 5f 6d 61 73 74 65 72 20 7d 0a 20 20 20 20  te_master }.    
9770: 64 6f 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d  do_test $testnam
9780: 65 20 5b 6c 69 73 74 20 24 64 62 20 65 76 61 6c  e [list $db eval
9790: 20 22 50 52 41 47 4d 41 20 6d 61 69 6e 2e 6a 6f   "PRAGMA main.jo
97a0: 75 72 6e 61 6c 5f 6d 6f 64 65 22 5d 20 7b 77 61  urnal_mode"] {wa
97b0: 6c 7d 0a 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20 70  l}.  }.}..proc p
97c0: 65 72 6d 75 74 61 74 69 6f 6e 20 7b 7d 20 7b 0a  ermutation {} {.
97d0: 20 20 73 65 74 20 70 65 72 6d 20 22 22 0a 20 20    set perm "".  
97e0: 63 61 74 63 68 20 7b 73 65 74 20 70 65 72 6d 20  catch {set perm 
97f0: 24 3a 3a 47 28 70 65 72 6d 3a 6e 61 6d 65 29 7d  $::G(perm:name)}
9800: 0a 20 20 73 65 74 20 70 65 72 6d 0a 7d 0a 70 72  .  set perm.}.pr
9810: 6f 63 20 70 72 65 73 71 6c 20 7b 7d 20 7b 0a 20  oc presql {} {. 
9820: 20 73 65 74 20 70 72 65 73 71 6c 20 22 22 0a 20   set presql "". 
9830: 20 63 61 74 63 68 20 7b 73 65 74 20 70 72 65 73   catch {set pres
9840: 71 6c 20 24 3a 3a 47 28 70 65 72 6d 3a 70 72 65  ql $::G(perm:pre
9850: 73 71 6c 29 7d 0a 20 20 73 65 74 20 70 72 65 73  sql)}.  set pres
9860: 71 6c 0a 7d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d  ql.}..#---------
9870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
98a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
98b0: 0a 23 0a 70 72 6f 63 20 73 6c 61 76 65 5f 74 65  .#.proc slave_te
98c0: 73 74 5f 73 63 72 69 70 74 20 7b 73 63 72 69 70  st_script {scrip
98d0: 74 7d 20 7b 0a 0a 20 20 23 20 43 72 65 61 74 65  t} {..  # Create
98e0: 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72   the interpreter
98f0: 20 75 73 65 64 20 74 6f 20 72 75 6e 20 74 68 65   used to run the
9900: 20 74 65 73 74 20 73 63 72 69 70 74 2e 0a 20 20   test script..  
9910: 69 6e 74 65 72 70 20 63 72 65 61 74 65 20 74 69  interp create ti
9920: 6e 74 65 72 70 0a 0a 20 20 23 20 50 6f 70 75 6c  nterp..  # Popul
9930: 61 74 65 20 73 6f 6d 65 20 67 6c 6f 62 61 6c 20  ate some global 
9940: 76 61 72 69 61 62 6c 65 73 20 74 68 61 74 20 74  variables that t
9950: 65 73 74 65 72 2e 74 63 6c 20 65 78 70 65 63 74  ester.tcl expect
9960: 73 20 74 6f 20 73 65 65 2e 0a 20 20 66 6f 72 65  s to see..  fore
9970: 61 63 68 20 7b 76 61 72 20 76 61 6c 75 65 7d 20  ach {var value} 
9980: 5b 6c 69 73 74 20 20 20 20 20 20 20 20 20 20 20  [list           
9990: 20 20 20 5c 0a 20 20 20 20 3a 3a 61 72 67 76 30     \.    ::argv0
99a0: 20 24 3a 3a 61 72 67 76 30 20 20 20 20 20 20 20   $::argv0       
99b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a                \.
99c0: 20 20 20 20 3a 3a 61 72 67 76 20 20 7b 7d 20 20      ::argv  {}  
99d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
99e0: 20 20 20 20 20 20 20 20 20 5c 0a 20 20 20 20 3a           \.    :
99f0: 3a 53 4c 41 56 45 20 31 20 20 20 20 20 20 20 20  :SLAVE 1        
9a00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9a10: 20 20 20 20 5c 0a 20 20 5d 20 7b 0a 20 20 20 20      \.  ] {.    
9a20: 69 6e 74 65 72 70 20 65 76 61 6c 20 74 69 6e 74  interp eval tint
9a30: 65 72 70 20 5b 6c 69 73 74 20 73 65 74 20 24 76  erp [list set $v
9a40: 61 72 20 24 76 61 6c 75 65 5d 0a 20 20 7d 0a 0a  ar $value].  }..
9a50: 20 20 23 20 54 68 65 20 61 6c 69 61 73 20 75 73    # The alias us
9a60: 65 64 20 74 6f 20 61 63 63 65 73 73 20 74 68 65  ed to access the
9a70: 20 67 6c 6f 62 61 6c 20 74 65 73 74 20 63 6f 75   global test cou
9a80: 6e 74 65 72 73 2e 0a 20 20 74 69 6e 74 65 72 70  nters..  tinterp
9a90: 20 61 6c 69 61 73 20 73 65 74 5f 74 65 73 74 5f   alias set_test_
9aa0: 63 6f 75 6e 74 65 72 20 73 65 74 5f 74 65 73 74  counter set_test
9ab0: 5f 63 6f 75 6e 74 65 72 0a 0a 20 20 23 20 53 65  _counter..  # Se
9ac0: 74 20 75 70 20 74 68 65 20 3a 3a 63 6d 64 6c 69  t up the ::cmdli
9ad0: 6e 65 61 72 67 20 61 72 72 61 79 20 69 6e 20 74  nearg array in t
9ae0: 68 65 20 73 6c 61 76 65 2e 0a 20 20 69 6e 74 65  he slave..  inte
9af0: 72 70 20 65 76 61 6c 20 74 69 6e 74 65 72 70 20  rp eval tinterp 
9b00: 5b 6c 69 73 74 20 61 72 72 61 79 20 73 65 74 20  [list array set 
9b10: 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 20 5b 61 72  ::cmdlinearg [ar
9b20: 72 61 79 20 67 65 74 20 3a 3a 63 6d 64 6c 69 6e  ray get ::cmdlin
9b30: 65 61 72 67 5d 5d 0a 0a 20 20 23 20 53 65 74 20  earg]]..  # Set 
9b40: 75 70 20 74 68 65 20 3a 3a 47 20 61 72 72 61 79  up the ::G array
9b50: 20 69 6e 20 74 68 65 20 73 6c 61 76 65 2e 0a 20   in the slave.. 
9b60: 20 69 6e 74 65 72 70 20 65 76 61 6c 20 74 69 6e   interp eval tin
9b70: 74 65 72 70 20 5b 6c 69 73 74 20 61 72 72 61 79  terp [list array
9b80: 20 73 65 74 20 3a 3a 47 20 5b 61 72 72 61 79 20   set ::G [array 
9b90: 67 65 74 20 3a 3a 47 5d 5d 0a 0a 20 20 23 20 4c  get ::G]]..  # L
9ba0: 6f 61 64 20 74 68 65 20 76 61 72 69 6f 75 73 20  oad the various 
9bb0: 74 65 73 74 20 69 6e 74 65 72 66 61 63 65 73 20  test interfaces 
9bc0: 69 6d 70 6c 65 6d 65 6e 74 65 64 20 69 6e 20 43  implemented in C
9bd0: 2e 0a 20 20 6c 6f 61 64 5f 74 65 73 74 66 69 78  ..  load_testfix
9be0: 74 75 72 65 5f 65 78 74 65 6e 73 69 6f 6e 73 20  ture_extensions 
9bf0: 74 69 6e 74 65 72 70 0a 0a 20 20 23 20 52 75 6e  tinterp..  # Run
9c00: 20 74 68 65 20 74 65 73 74 20 73 63 72 69 70 74   the test script
9c10: 2e 0a 20 20 69 6e 74 65 72 70 20 65 76 61 6c 20  ..  interp eval 
9c20: 74 69 6e 74 65 72 70 20 24 73 63 72 69 70 74 0a  tinterp $script.
9c30: 0a 20 20 23 20 43 68 65 63 6b 20 69 66 20 74 68  .  # Check if th
9c40: 65 20 69 6e 74 65 72 70 72 65 74 65 72 20 63 61  e interpreter ca
9c50: 6c 6c 20 5b 72 75 6e 5f 74 68 72 65 61 64 5f 74  ll [run_thread_t
9c60: 65 73 74 73 5d 0a 20 20 69 66 20 7b 20 5b 69 6e  ests].  if { [in
9c70: 74 65 72 70 20 65 76 61 6c 20 74 69 6e 74 65 72  terp eval tinter
9c80: 70 20 7b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a  p {info exists :
9c90: 3a 72 75 6e 5f 74 68 72 65 61 64 5f 74 65 73 74  :run_thread_test
9ca0: 73 5f 63 61 6c 6c 65 64 7d 5d 20 7d 20 7b 0a 20  s_called}] } {. 
9cb0: 20 20 20 73 65 74 20 3a 3a 72 75 6e 5f 74 68 72     set ::run_thr
9cc0: 65 61 64 5f 74 65 73 74 73 5f 63 61 6c 6c 65 64  ead_tests_called
9cd0: 20 31 0a 20 20 7d 0a 0a 20 20 23 20 44 65 6c 65   1.  }..  # Dele
9ce0: 74 65 20 74 68 65 20 69 6e 74 65 72 70 72 65 74  te the interpret
9cf0: 65 72 20 75 73 65 64 20 74 6f 20 72 75 6e 20 74  er used to run t
9d00: 68 65 20 74 65 73 74 20 73 63 72 69 70 74 2e 0a  he test script..
9d10: 20 20 69 6e 74 65 72 70 20 64 65 6c 65 74 65 20    interp delete 
9d20: 74 69 6e 74 65 72 70 0a 7d 0a 0a 70 72 6f 63 20  tinterp.}..proc 
9d30: 73 6c 61 76 65 5f 74 65 73 74 5f 66 69 6c 65 20  slave_test_file 
9d40: 7b 7a 46 69 6c 65 7d 20 7b 0a 20 20 73 65 74 20  {zFile} {.  set 
9d50: 74 61 69 6c 20 5b 66 69 6c 65 20 74 61 69 6c 20  tail [file tail 
9d60: 24 7a 46 69 6c 65 5d 0a 0a 20 20 69 66 20 7b 5b  $zFile]..  if {[
9d70: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 47 28  info exists ::G(
9d80: 73 74 61 72 74 3a 70 65 72 6d 75 74 61 74 69 6f  start:permutatio
9d90: 6e 29 5d 7d 20 7b 0a 20 20 20 20 69 66 20 7b 5b  n)]} {.    if {[
9da0: 70 65 72 6d 75 74 61 74 69 6f 6e 5d 20 21 3d 20  permutation] != 
9db0: 24 3a 3a 47 28 73 74 61 72 74 3a 70 65 72 6d 75  $::G(start:permu
9dc0: 74 61 74 69 6f 6e 29 7d 20 72 65 74 75 72 6e 0a  tation)} return.
9dd0: 20 20 20 20 75 6e 73 65 74 20 3a 3a 47 28 73 74      unset ::G(st
9de0: 61 72 74 3a 70 65 72 6d 75 74 61 74 69 6f 6e 29  art:permutation)
9df0: 0a 20 20 7d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f  .  }.  if {[info
9e00: 20 65 78 69 73 74 73 20 3a 3a 47 28 73 74 61 72   exists ::G(star
9e10: 74 3a 66 69 6c 65 29 5d 7d 20 7b 0a 20 20 20 20  t:file)]} {.    
9e20: 69 66 20 7b 24 74 61 69 6c 20 21 3d 20 24 3a 3a  if {$tail != $::
9e30: 47 28 73 74 61 72 74 3a 66 69 6c 65 29 20 26 26  G(start:file) &&
9e40: 20 24 74 61 69 6c 21 3d 22 24 3a 3a 47 28 73 74   $tail!="$::G(st
9e50: 61 72 74 3a 66 69 6c 65 29 2e 74 65 73 74 22 7d  art:file).test"}
9e60: 20 72 65 74 75 72 6e 0a 20 20 20 20 75 6e 73 65   return.    unse
9e70: 74 20 3a 3a 47 28 73 74 61 72 74 3a 66 69 6c 65  t ::G(start:file
9e80: 29 0a 20 20 7d 0a 0a 20 20 23 20 52 65 6d 65 6d  ).  }..  # Remem
9e90: 62 65 72 20 74 68 65 20 76 61 6c 75 65 20 6f 66  ber the value of
9ea0: 20 74 68 65 20 73 68 61 72 65 64 2d 63 61 63 68   the shared-cach
9eb0: 65 20 73 65 74 74 69 6e 67 2e 20 53 6f 20 74 68  e setting. So th
9ec0: 61 74 20 69 74 20 69 73 20 70 6f 73 73 69 62 6c  at it is possibl
9ed0: 65 0a 20 20 23 20 74 6f 20 63 68 65 63 6b 20 61  e.  # to check a
9ee0: 66 74 65 72 77 61 72 64 73 20 74 68 61 74 20 69  fterwards that i
9ef0: 74 20 77 61 73 20 6e 6f 74 20 6d 6f 64 69 66 69  t was not modifi
9f00: 65 64 20 62 79 20 74 68 65 20 74 65 73 74 20 73  ed by the test s
9f10: 63 72 69 70 74 2e 0a 20 20 23 0a 20 20 69 66 63  cript..  #.  ifc
9f20: 61 70 61 62 6c 65 20 73 68 61 72 65 64 5f 63 61  apable shared_ca
9f30: 63 68 65 20 7b 20 73 65 74 20 73 63 73 20 5b 73  che { set scs [s
9f40: 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 73 68  qlite3_enable_sh
9f50: 61 72 65 64 5f 63 61 63 68 65 5d 20 7d 0a 0a 20  ared_cache] }.. 
9f60: 20 23 20 52 75 6e 20 74 68 65 20 74 65 73 74 20   # Run the test 
9f70: 73 63 72 69 70 74 20 69 6e 20 61 20 73 6c 61 76  script in a slav
9f80: 65 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 20  e interpreter.. 
9f90: 20 23 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f   #.  unset -noco
9fa0: 6d 70 6c 61 69 6e 20 3a 3a 72 75 6e 5f 74 68 72  mplain ::run_thr
9fb0: 65 61 64 5f 74 65 73 74 73 5f 63 61 6c 6c 65 64  ead_tests_called
9fc0: 0a 20 20 72 65 73 65 74 5f 70 72 6e 67 5f 73 74  .  reset_prng_st
9fd0: 61 74 65 0a 20 20 73 65 74 20 3a 3a 73 71 6c 69  ate.  set ::sqli
9fe0: 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75  te_open_file_cou
9ff0: 6e 74 20 30 0a 20 20 73 65 74 20 74 69 6d 65 20  nt 0.  set time 
a000: 5b 74 69 6d 65 20 7b 20 73 6c 61 76 65 5f 74 65  [time { slave_te
a010: 73 74 5f 73 63 72 69 70 74 20 5b 6c 69 73 74 20  st_script [list 
a020: 73 6f 75 72 63 65 20 24 7a 46 69 6c 65 5d 20 7d  source $zFile] }
a030: 5d 0a 20 20 73 65 74 20 6d 73 20 5b 65 78 70 72  ].  set ms [expr
a040: 20 5b 6c 69 6e 64 65 78 20 24 74 69 6d 65 20 30   [lindex $time 0
a050: 5d 20 2f 20 31 30 30 30 5d 0a 0a 20 20 23 20 54  ] / 1000]..  # T
a060: 65 73 74 20 74 68 61 74 20 61 6c 6c 20 66 69 6c  est that all fil
a070: 65 73 20 6f 70 65 6e 65 64 20 62 79 20 74 68 65  es opened by the
a080: 20 74 65 73 74 20 73 63 72 69 70 74 20 77 65 72   test script wer
a090: 65 20 63 6c 6f 73 65 64 2e 20 4f 6d 69 74 20 74  e closed. Omit t
a0a0: 68 69 73 0a 20 20 23 20 69 66 20 74 68 65 20 74  his.  # if the t
a0b0: 65 73 74 20 73 63 72 69 70 74 20 68 61 73 20 22  est script has "
a0c0: 74 68 72 65 61 64 22 20 69 6e 20 69 74 73 20 6e  thread" in its n
a0d0: 61 6d 65 2e 20 54 68 65 20 6f 70 65 6e 20 66 69  ame. The open fi
a0e0: 6c 65 20 63 6f 75 6e 74 65 72 0a 20 20 23 20 69  le counter.  # i
a0f0: 73 20 6e 6f 74 20 74 68 72 65 61 64 2d 73 61 66  s not thread-saf
a100: 65 2e 0a 20 20 23 0a 20 20 69 66 20 7b 5b 69 6e  e..  #.  if {[in
a110: 66 6f 20 65 78 69 73 74 73 20 3a 3a 72 75 6e 5f  fo exists ::run_
a120: 74 68 72 65 61 64 5f 74 65 73 74 73 5f 63 61 6c  thread_tests_cal
a130: 6c 65 64 5d 3d 3d 30 7d 20 7b 0a 20 20 20 20 64  led]==0} {.    d
a140: 6f 5f 74 65 73 74 20 24 7b 74 61 69 6c 7d 2d 63  o_test ${tail}-c
a150: 6c 6f 73 65 61 6c 6c 66 69 6c 65 73 20 7b 20 65  loseallfiles { e
a160: 78 70 72 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 6f  xpr {$::sqlite_o
a170: 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 3e 30  pen_file_count>0
a180: 7d 20 7d 20 7b 30 7d 0a 20 20 7d 0a 20 20 73 65  } } {0}.  }.  se
a190: 74 20 3a 3a 73 71 6c 69 74 65 5f 6f 70 65 6e 5f  t ::sqlite_open_
a1a0: 66 69 6c 65 5f 63 6f 75 6e 74 20 30 0a 0a 20 20  file_count 0..  
a1b0: 23 20 54 65 73 74 20 74 68 61 74 20 74 68 65 20  # Test that the 
a1c0: 67 6c 6f 62 61 6c 20 22 73 68 61 72 65 64 2d 63  global "shared-c
a1d0: 61 63 68 65 22 20 73 65 74 74 69 6e 67 20 77 61  ache" setting wa
a1e0: 73 20 6e 6f 74 20 61 6c 74 65 72 65 64 20 62 79  s not altered by
a1f0: 20 0a 20 20 23 20 74 68 65 20 74 65 73 74 20 73   .  # the test s
a200: 63 72 69 70 74 2e 0a 20 20 23 0a 20 20 69 66 63  cript..  #.  ifc
a210: 61 70 61 62 6c 65 20 73 68 61 72 65 64 5f 63 61  apable shared_ca
a220: 63 68 65 20 7b 20 0a 20 20 20 20 73 65 74 20 72  che { .    set r
a230: 65 73 20 5b 65 78 70 72 20 7b 5b 73 71 6c 69 74  es [expr {[sqlit
a240: 65 33 5f 65 6e 61 62 6c 65 5f 73 68 61 72 65 64  e3_enable_shared
a250: 5f 63 61 63 68 65 5d 20 3d 3d 20 24 73 63 73 7d  _cache] == $scs}
a260: 5d 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 24 7b  ].    do_test ${
a270: 74 61 69 6c 7d 2d 73 68 61 72 65 64 63 61 63 68  tail}-sharedcach
a280: 65 73 65 74 74 69 6e 67 20 5b 6c 69 73 74 20 73  esetting [list s
a290: 65 74 20 7b 7d 20 24 72 65 73 5d 20 31 0a 20 20  et {} $res] 1.  
a2a0: 7d 0a 0a 20 20 23 20 41 64 64 20 73 6f 6d 65 20  }..  # Add some 
a2b0: 69 6e 66 6f 20 74 6f 20 74 68 65 20 6f 75 74 70  info to the outp
a2c0: 75 74 2e 0a 20 20 23 0a 20 20 70 75 74 73 20 22  ut..  #.  puts "
a2d0: 54 69 6d 65 3a 20 24 74 61 69 6c 20 24 6d 73 20  Time: $tail $ms 
a2e0: 6d 73 22 0a 20 20 73 68 6f 77 5f 6d 65 6d 73 74  ms".  show_memst
a2f0: 61 74 73 0a 7d 0a 0a 23 20 4f 70 65 6e 20 61 20  ats.}..# Open a 
a300: 6e 65 77 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6f  new connection o
a310: 6e 20 64 61 74 61 62 61 73 65 20 74 65 73 74 2e  n database test.
a320: 64 62 20 61 6e 64 20 65 78 65 63 75 74 65 20 74  db and execute t
a330: 68 65 20 53 51 4c 20 73 63 72 69 70 74 0a 23 20  he SQL script.# 
a340: 73 75 70 70 6c 69 65 64 20 61 73 20 61 6e 20 61  supplied as an a
a350: 72 67 75 6d 65 6e 74 2e 20 42 65 66 6f 72 65 20  rgument. Before 
a360: 72 65 74 75 72 6e 69 6e 67 2c 20 63 6c 6f 73 65  returning, close
a370: 20 74 68 65 20 6e 65 77 20 63 6f 6e 65 63 74 69   the new conecti
a380: 6f 6e 20 61 6e 64 0a 23 20 72 65 73 74 6f 72 65  on and.# restore
a390: 20 74 68 65 20 34 20 62 79 74 65 20 66 69 65 6c   the 4 byte fiel
a3a0: 64 73 20 73 74 61 72 74 69 6e 67 20 61 74 20 68  ds starting at h
a3b0: 65 61 64 65 72 20 6f 66 66 73 65 74 73 20 32 38  eader offsets 28
a3c0: 2c 20 39 32 20 61 6e 64 20 39 36 0a 23 20 74 6f  , 92 and 96.# to
a3d0: 20 74 68 65 20 76 61 6c 75 65 73 20 74 68 65 79   the values they
a3e0: 20 68 65 6c 64 20 62 65 66 6f 72 65 20 74 68 65   held before the
a3f0: 20 53 51 4c 20 77 61 73 20 65 78 65 63 75 74 65   SQL was execute
a400: 64 2e 20 54 68 69 73 20 73 69 6d 75 6c 61 74 65  d. This simulate
a410: 73 0a 23 20 61 20 77 72 69 74 65 20 62 79 20 61  s.# a write by a
a420: 20 70 72 65 2d 33 2e 37 2e 30 20 63 6c 69 65 6e   pre-3.7.0 clien
a430: 74 2e 0a 23 0a 70 72 6f 63 20 73 71 6c 33 36 32  t..#.proc sql362
a440: 33 31 20 7b 73 71 6c 7d 20 7b 0a 20 20 73 65 74  31 {sql} {.  set
a450: 20 42 20 5b 68 65 78 69 6f 5f 72 65 61 64 20 74   B [hexio_read t
a460: 65 73 74 2e 64 62 20 39 32 20 38 5d 0a 20 20 73  est.db 92 8].  s
a470: 65 74 20 41 20 5b 68 65 78 69 6f 5f 72 65 61 64  et A [hexio_read
a480: 20 74 65 73 74 2e 64 62 20 32 38 20 34 5d 0a 20   test.db 28 4]. 
a490: 20 73 71 6c 69 74 65 33 20 64 62 33 36 32 33 31   sqlite3 db36231
a4a0: 20 74 65 73 74 2e 64 62 0a 20 20 63 61 74 63 68   test.db.  catch
a4b0: 20 7b 20 64 62 33 36 32 33 31 20 66 75 6e 63 20   { db36231 func 
a4c0: 61 5f 73 74 72 69 6e 67 20 61 5f 73 74 72 69 6e  a_string a_strin
a4d0: 67 20 7d 0a 20 20 65 78 65 63 73 71 6c 20 24 73  g }.  execsql $s
a4e0: 71 6c 20 64 62 33 36 32 33 31 0a 20 20 64 62 33  ql db36231.  db3
a4f0: 36 32 33 31 20 63 6c 6f 73 65 0a 20 20 68 65 78  6231 close.  hex
a500: 69 6f 5f 77 72 69 74 65 20 74 65 73 74 2e 64 62  io_write test.db
a510: 20 32 38 20 24 41 0a 20 20 68 65 78 69 6f 5f 77   28 $A.  hexio_w
a520: 72 69 74 65 20 74 65 73 74 2e 64 62 20 39 32 20  rite test.db 92 
a530: 24 42 0a 20 20 72 65 74 75 72 6e 20 22 22 0a 7d  $B.  return "".}
a540: 0a 0a 70 72 6f 63 20 64 62 5f 73 61 76 65 20 7b  ..proc db_save {
a550: 7d 20 7b 0a 20 20 66 6f 72 65 61 63 68 20 66 20  } {.  foreach f 
a560: 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69  [glob -nocomplai
a570: 6e 20 73 76 5f 74 65 73 74 2e 64 62 2a 5d 20 7b  n sv_test.db*] {
a580: 20 66 6f 72 63 65 64 65 6c 65 74 65 20 24 66 20   forcedelete $f 
a590: 7d 0a 20 20 66 6f 72 65 61 63 68 20 66 20 5b 67  }.  foreach f [g
a5a0: 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  lob -nocomplain 
a5b0: 74 65 73 74 2e 64 62 2a 5d 20 7b 0a 20 20 20 20  test.db*] {.    
a5c0: 73 65 74 20 66 32 20 22 73 76 5f 24 66 22 0a 20  set f2 "sv_$f". 
a5d0: 20 20 20 66 69 6c 65 20 63 6f 70 79 20 2d 66 6f     file copy -fo
a5e0: 72 63 65 20 24 66 20 24 66 32 0a 20 20 7d 0a 7d  rce $f $f2.  }.}
a5f0: 0a 70 72 6f 63 20 64 62 5f 73 61 76 65 5f 61 6e  .proc db_save_an
a600: 64 5f 63 6c 6f 73 65 20 7b 7d 20 7b 0a 20 20 64  d_close {} {.  d
a610: 62 5f 73 61 76 65 0a 20 20 63 61 74 63 68 20 7b  b_save.  catch {
a620: 20 64 62 20 63 6c 6f 73 65 20 7d 0a 20 20 72 65   db close }.  re
a630: 74 75 72 6e 20 22 22 0a 7d 0a 70 72 6f 63 20 64  turn "".}.proc d
a640: 62 5f 72 65 73 74 6f 72 65 20 7b 7d 20 7b 0a 20  b_restore {} {. 
a650: 20 66 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f 62   foreach f [glob
a660: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 73   -nocomplain tes
a670: 74 2e 64 62 2a 5d 20 7b 20 66 6f 72 63 65 64 65  t.db*] { forcede
a680: 6c 65 74 65 20 24 66 20 7d 0a 20 20 66 6f 72 65  lete $f }.  fore
a690: 61 63 68 20 66 32 20 5b 67 6c 6f 62 20 2d 6e 6f  ach f2 [glob -no
a6a0: 63 6f 6d 70 6c 61 69 6e 20 73 76 5f 74 65 73 74  complain sv_test
a6b0: 2e 64 62 2a 5d 20 7b 0a 20 20 20 20 73 65 74 20  .db*] {.    set 
a6c0: 66 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20  f [string range 
a6d0: 24 66 32 20 33 20 65 6e 64 5d 0a 20 20 20 20 66  $f2 3 end].    f
a6e0: 69 6c 65 20 63 6f 70 79 20 2d 66 6f 72 63 65 20  ile copy -force 
a6f0: 24 66 32 20 24 66 0a 20 20 7d 0a 7d 0a 70 72 6f  $f2 $f.  }.}.pro
a700: 63 20 64 62 5f 72 65 73 74 6f 72 65 5f 61 6e 64  c db_restore_and
a710: 5f 72 65 6f 70 65 6e 20 7b 7b 64 62 66 69 6c 65  _reopen {{dbfile
a720: 20 74 65 73 74 2e 64 62 7d 7d 20 7b 0a 20 20 63   test.db}} {.  c
a730: 61 74 63 68 20 7b 20 64 62 20 63 6c 6f 73 65 20  atch { db close 
a740: 7d 0a 20 20 64 62 5f 72 65 73 74 6f 72 65 0a 20  }.  db_restore. 
a750: 20 73 71 6c 69 74 65 33 20 64 62 20 24 64 62 66   sqlite3 db $dbf
a760: 69 6c 65 0a 7d 0a 70 72 6f 63 20 64 62 5f 64 65  ile.}.proc db_de
a770: 6c 65 74 65 5f 61 6e 64 5f 72 65 6f 70 65 6e 20  lete_and_reopen 
a780: 7b 7b 66 69 6c 65 20 74 65 73 74 2e 64 62 7d 7d  {{file test.db}}
a790: 20 7b 0a 20 20 63 61 74 63 68 20 7b 20 64 62 20   {.  catch { db 
a7a0: 63 6c 6f 73 65 20 7d 0a 20 20 66 6f 72 65 61 63  close }.  foreac
a7b0: 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d  h f [glob -nocom
a7c0: 70 6c 61 69 6e 20 74 65 73 74 2e 64 62 2a 5d 20  plain test.db*] 
a7d0: 7b 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66  { file delete -f
a7e0: 6f 72 63 65 20 24 66 20 7d 0a 20 20 73 71 6c 69  orce $f }.  sqli
a7f0: 74 65 33 20 64 62 20 24 66 69 6c 65 0a 7d 0a 0a  te3 db $file.}..
a800: 23 20 49 66 20 74 68 65 20 6c 69 62 72 61 72 79  # If the library
a810: 20 69 73 20 63 6f 6d 70 69 6c 65 64 20 77 69 74   is compiled wit
a820: 68 20 74 68 65 20 53 51 4c 49 54 45 5f 44 45 46  h the SQLITE_DEF
a830: 41 55 4c 54 5f 41 55 54 4f 56 41 43 55 55 4d 20  AULT_AUTOVACUUM 
a840: 6d 61 63 72 6f 20 73 65 74 0a 23 20 74 6f 20 6e  macro set.# to n
a850: 6f 6e 2d 7a 65 72 6f 2c 20 74 68 65 6e 20 73 65  on-zero, then se
a860: 74 20 74 68 65 20 67 6c 6f 62 61 6c 20 76 61 72  t the global var
a870: 69 61 62 6c 65 20 24 41 55 54 4f 56 41 43 55 55  iable $AUTOVACUU
a880: 4d 20 74 6f 20 31 2e 0a 73 65 74 20 41 55 54 4f  M to 1..set AUTO
a890: 56 41 43 55 55 4d 20 24 73 71 6c 69 74 65 5f 6f  VACUUM $sqlite_o
a8a0: 70 74 69 6f 6e 73 28 64 65 66 61 75 6c 74 5f 61  ptions(default_a
a8b0: 75 74 6f 76 61 63 75 75 6d 29 0a 0a 73 6f 75 72  utovacuum)..sour
a8c0: 63 65 20 24 74 65 73 74 64 69 72 2f 74 68 72 65  ce $testdir/thre
a8d0: 61 64 5f 63 6f 6d 6d 6f 6e 2e 74 63 6c 0a 73 6f  ad_common.tcl.so
a8e0: 75 72 63 65 20 24 74 65 73 74 64 69 72 2f 6d 61  urce $testdir/ma
a8f0: 6c 6c 6f 63 5f 63 6f 6d 6d 6f 6e 2e 74 63 6c 0a  lloc_common.tcl.