/ Hex Artifact Content
Login

Artifact 6d862da591d5d5e4b2e22bb1e8a7c4ed95580b45:


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 73 65 74 20 72 65 73 0a 20 20 20 20 7d 20    set res.    } 
0df0: 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 23 20 54  else {.      # T
0e00: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 6e  his command is n
0e10: 6f 74 20 6f 70 65 6e 69 6e 67 20 61 20 6e 65 77  ot opening a new
0e20: 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 63   database connec
0e30: 74 69 6f 6e 2e 20 50 61 73 73 20 74 68 65 20 0a  tion. Pass the .
0e40: 20 20 20 20 20 20 23 20 61 72 67 75 6d 65 6e 74        # argument
0e50: 73 20 74 68 72 6f 75 67 68 20 74 6f 20 74 68 65  s through to the
0e60: 20 43 20 69 6d 70 6c 65 6d 65 6e 61 74 69 6f 6e   C implemenation
0e70: 20 61 73 20 74 68 65 20 61 72 65 2e 0a 20 20 20   as the are..   
0e80: 20 20 20 23 0a 20 20 20 20 20 20 75 70 6c 65 76     #.      uplev
0e90: 65 6c 20 31 20 73 71 6c 69 74 65 5f 6f 72 69 67  el 1 sqlite_orig
0ea0: 20 24 61 72 67 73 0a 20 20 20 20 7d 0a 20 20 7d   $args.    }.  }
0eb0: 0a 7d 0a 0a 70 72 6f 63 20 65 78 65 63 70 72 65  .}..proc execpre
0ec0: 73 71 6c 20 7b 68 61 6e 64 6c 65 20 61 72 67 73  sql {handle args
0ed0: 7d 20 7b 0a 20 20 74 72 61 63 65 20 72 65 6d 6f  } {.  trace remo
0ee0: 76 65 20 65 78 65 63 75 74 69 6f 6e 20 24 68 61  ve execution $ha
0ef0: 6e 64 6c 65 20 65 6e 74 65 72 20 5b 6c 69 73 74  ndle enter [list
0f00: 20 65 78 65 63 70 72 65 73 71 6c 20 24 68 61 6e   execpresql $han
0f10: 64 6c 65 5d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f  dle].  if {[info
0f20: 20 65 78 69 73 74 73 20 3a 3a 47 28 70 65 72 6d   exists ::G(perm
0f30: 3a 70 72 65 73 71 6c 29 5d 7d 20 7b 0a 20 20 20  :presql)]} {.   
0f40: 20 24 68 61 6e 64 6c 65 20 65 76 61 6c 20 24 3a   $handle eval $:
0f50: 3a 47 28 70 65 72 6d 3a 70 72 65 73 71 6c 29 0a  :G(perm:presql).
0f60: 20 20 7d 0a 7d 0a 0a 23 20 54 68 69 73 20 63 6f    }.}..# This co
0f70: 6d 6d 61 6e 64 20 73 68 6f 75 6c 64 20 62 65 20  mmand should be 
0f80: 63 61 6c 6c 65 64 20 61 66 74 65 72 20 6c 6f 61  called after loa
0f90: 64 69 6e 67 20 74 65 73 74 65 72 2e 74 63 6c 20  ding tester.tcl 
0fa0: 66 72 6f 6d 20 77 69 74 68 69 6e 0a 23 20 61 6c  from within.# al
0fb0: 6c 20 74 65 73 74 20 73 63 72 69 70 74 73 20 74  l test scripts t
0fc0: 68 61 74 20 61 72 65 20 69 6e 63 6f 6d 70 61 74  hat are incompat
0fd0: 69 62 6c 65 20 77 69 74 68 20 65 6e 63 72 79 70  ible with encryp
0fe0: 74 69 6f 6e 20 63 6f 64 65 63 73 2e 0a 23 0a 70  tion codecs..#.p
0ff0: 72 6f 63 20 64 6f 5f 6e 6f 74 5f 75 73 65 5f 63  roc do_not_use_c
1000: 6f 64 65 63 20 7b 7d 20 7b 0a 20 20 73 65 74 20  odec {} {.  set 
1010: 3a 3a 64 6f 5f 6e 6f 74 5f 75 73 65 5f 63 6f 64  ::do_not_use_cod
1020: 65 63 20 31 0a 20 20 72 65 73 65 74 5f 64 62 0a  ec 1.  reset_db.
1030: 7d 0a 0a 23 20 54 68 65 20 66 6f 6c 6c 6f 77 69  }..# The followi
1040: 6e 67 20 62 6c 6f 63 6b 20 6f 6e 6c 79 20 72 75  ng block only ru
1050: 6e 73 20 74 68 65 20 66 69 72 73 74 20 74 69 6d  ns the first tim
1060: 65 20 74 68 69 73 20 66 69 6c 65 20 69 73 20 73  e this file is s
1070: 6f 75 72 63 65 64 2e 20 49 74 0a 23 20 64 6f 65  ourced. It.# doe
1080: 73 20 6e 6f 74 20 72 75 6e 20 69 6e 20 73 6c 61  s not run in sla
1090: 76 65 20 69 6e 74 65 72 70 72 65 74 65 72 73 20  ve interpreters 
10a0: 28 73 69 6e 63 65 20 74 68 65 20 3a 3a 63 6d 64  (since the ::cmd
10b0: 6c 69 6e 65 61 72 67 20 61 72 72 61 79 20 69 73  linearg array is
10c0: 0a 23 20 70 6f 70 75 6c 61 74 65 64 20 62 65 66  .# populated bef
10d0: 6f 72 65 20 74 68 65 20 74 65 73 74 20 73 63 72  ore the test scr
10e0: 69 70 74 20 69 73 20 72 75 6e 20 69 6e 20 73 6c  ipt is run in sl
10f0: 61 76 65 20 69 6e 74 65 72 70 72 65 74 65 72 73  ave interpreters
1100: 29 2e 0a 23 0a 69 66 20 7b 5b 69 6e 66 6f 20 65  )..#.if {[info e
1110: 78 69 73 74 73 20 63 6d 64 6c 69 6e 65 61 72 67  xists cmdlinearg
1120: 5d 3d 3d 30 7d 20 7b 0a 0a 20 20 23 20 50 61 72  ]==0} {..  # Par
1130: 73 65 20 61 6e 79 20 6f 70 74 69 6f 6e 73 20 73  se any options s
1140: 70 65 63 69 66 69 65 64 20 69 6e 20 74 68 65 20  pecified in the 
1150: 24 61 72 67 76 20 61 72 72 61 79 2e 20 54 68 69  $argv array. Thi
1160: 73 20 73 63 72 69 70 74 20 61 63 63 65 70 74 73  s script accepts
1170: 20 74 68 65 20 0a 20 20 23 20 66 6f 6c 6c 6f 77   the .  # follow
1180: 69 6e 67 20 6f 70 74 69 6f 6e 73 3a 20 0a 20 20  ing options: .  
1190: 23 0a 20 20 23 20 20 20 2d 2d 70 61 75 73 65 0a  #.  #   --pause.
11a0: 20 20 23 20 20 20 2d 2d 73 6f 66 74 2d 68 65 61    #   --soft-hea
11b0: 70 2d 6c 69 6d 69 74 3d 4e 4e 0a 20 20 23 20 20  p-limit=NN.  #  
11c0: 20 2d 2d 6d 61 78 65 72 72 6f 72 3d 4e 4e 0a 20   --maxerror=NN. 
11d0: 20 23 20 20 20 2d 2d 6d 61 6c 6c 6f 63 74 72 61   #   --malloctra
11e0: 63 65 3d 4e 0a 20 20 23 20 20 20 2d 2d 62 61 63  ce=N.  #   --bac
11f0: 6b 74 72 61 63 65 3d 4e 0a 20 20 23 20 20 20 2d  ktrace=N.  #   -
1200: 2d 62 69 6e 61 72 79 6c 6f 67 3d 4e 0a 20 20 23  -binarylog=N.  #
1210: 20 20 20 2d 2d 73 6f 61 6b 3d 4e 0a 20 20 23 0a     --soak=N.  #.
1220: 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67    set cmdlinearg
1230: 28 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74  (soft-heap-limit
1240: 29 20 20 20 20 30 0a 20 20 73 65 74 20 63 6d 64  )    0.  set cmd
1250: 6c 69 6e 65 61 72 67 28 6d 61 78 65 72 72 6f 72  linearg(maxerror
1260: 29 20 20 20 20 20 20 20 20 31 30 30 30 0a 20 20  )        1000.  
1270: 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 6d  set cmdlinearg(m
1280: 61 6c 6c 6f 63 74 72 61 63 65 29 20 20 20 20 20  alloctrace)     
1290: 20 20 20 30 0a 20 20 73 65 74 20 63 6d 64 6c 69     0.  set cmdli
12a0: 6e 65 61 72 67 28 62 61 63 6b 74 72 61 63 65 29  nearg(backtrace)
12b0: 20 20 20 20 20 20 20 20 20 31 30 0a 20 20 73 65           10.  se
12c0: 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 62 69 6e  t cmdlinearg(bin
12d0: 61 72 79 6c 6f 67 29 20 20 20 20 20 20 20 20 20  arylog)         
12e0: 20 30 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e 65   0.  set cmdline
12f0: 61 72 67 28 73 6f 61 6b 29 20 20 20 20 20 20 20  arg(soak)       
1300: 20 20 20 20 20 20 20 20 30 0a 0a 20 20 73 65 74          0..  set
1310: 20 6c 65 66 74 6f 76 65 72 20 5b 6c 69 73 74 5d   leftover [list]
1320: 0a 20 20 66 6f 72 65 61 63 68 20 61 20 24 61 72  .  foreach a $ar
1330: 67 76 20 7b 0a 20 20 20 20 73 77 69 74 63 68 20  gv {.    switch 
1340: 2d 72 65 67 65 78 70 20 2d 2d 20 24 61 20 7b 0a  -regexp -- $a {.
1350: 20 20 20 20 20 20 7b 5e 2d 2b 70 61 75 73 65 24        {^-+pause$
1360: 7d 20 7b 0a 20 20 20 20 20 20 20 20 23 20 57 61  } {.        # Wa
1370: 69 74 20 66 6f 72 20 75 73 65 72 20 69 6e 70 75  it for user inpu
1380: 74 20 62 65 66 6f 72 65 20 63 6f 6e 74 69 6e 75  t before continu
1390: 69 6e 67 2e 20 54 68 69 73 20 69 73 20 74 6f 20  ing. This is to 
13a0: 67 69 76 65 20 74 68 65 20 75 73 65 72 20 61 6e  give the user an
13b0: 20 0a 20 20 20 20 20 20 20 20 23 20 6f 70 70 6f   .        # oppo
13c0: 72 74 75 6e 69 74 79 20 74 6f 20 63 6f 6e 6e 65  rtunity to conne
13d0: 63 74 20 70 72 6f 66 69 6c 69 6e 67 20 74 6f 6f  ct profiling too
13e0: 6c 73 20 74 6f 20 74 68 65 20 70 72 6f 63 65 73  ls to the proces
13f0: 73 2e 0a 20 20 20 20 20 20 20 20 70 75 74 73 20  s..        puts 
1400: 2d 6e 6f 6e 65 77 6c 69 6e 65 20 22 50 72 65 73  -nonewline "Pres
1410: 73 20 52 45 54 55 52 4e 20 74 6f 20 62 65 67 69  s RETURN to begi
1420: 6e 2e 2e 2e 22 0a 20 20 20 20 20 20 20 20 66 6c  n...".        fl
1430: 75 73 68 20 73 74 64 6f 75 74 0a 20 20 20 20 20  ush stdout.     
1440: 20 20 20 67 65 74 73 20 73 74 64 69 6e 0a 20 20     gets stdin.  
1450: 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b      }.      {^-+
1460: 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74 3d  soft-heap-limit=
1470: 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20 20 66  .+$} {.        f
1480: 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79 20 63 6d  oreach {dummy cm
1490: 64 6c 69 6e 65 61 72 67 28 73 6f 66 74 2d 68 65  dlinearg(soft-he
14a0: 61 70 2d 6c 69 6d 69 74 29 7d 20 5b 73 70 6c 69  ap-limit)} [spli
14b0: 74 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20  t $a =] break.  
14c0: 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b      }.      {^-+
14d0: 6d 61 78 65 72 72 6f 72 3d 2e 2b 24 7d 20 7b 0a  maxerror=.+$} {.
14e0: 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20          foreach 
14f0: 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72  {dummy cmdlinear
1500: 67 28 6d 61 78 65 72 72 6f 72 29 7d 20 5b 73 70  g(maxerror)} [sp
1510: 6c 69 74 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a  lit $a =] break.
1520: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e        }.      {^
1530: 2d 2b 6d 61 6c 6c 6f 63 74 72 61 63 65 3d 2e 2b  -+malloctrace=.+
1540: 24 7d 20 7b 0a 20 20 20 20 20 20 20 20 66 6f 72  $} {.        for
1550: 65 61 63 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c  each {dummy cmdl
1560: 69 6e 65 61 72 67 28 6d 61 6c 6c 6f 63 74 72 61  inearg(malloctra
1570: 63 65 29 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d  ce)} [split $a =
1580: 5d 20 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20  ] break.        
1590: 69 66 20 7b 24 63 6d 64 6c 69 6e 65 61 72 67 28  if {$cmdlinearg(
15a0: 6d 61 6c 6c 6f 63 74 72 61 63 65 29 7d 20 7b 0a  malloctrace)} {.
15b0: 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65            sqlite
15c0: 33 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 20 73  3_memdebug_log s
15d0: 74 61 72 74 0a 20 20 20 20 20 20 20 20 7d 0a 20  tart.        }. 
15e0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d       }.      {^-
15f0: 2b 62 61 63 6b 74 72 61 63 65 3d 2e 2b 24 7d 20  +backtrace=.+$} 
1600: 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61 63  {.        foreac
1610: 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65  h {dummy cmdline
1620: 61 72 67 28 62 61 63 6b 74 72 61 63 65 29 7d 20  arg(backtrace)} 
1630: 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20 62 72 65  [split $a =] bre
1640: 61 6b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74  ak.        sqlit
1650: 65 33 5f 6d 65 6d 64 65 62 75 67 5f 62 61 63 6b  e3_memdebug_back
1660: 74 72 61 63 65 20 24 76 61 6c 75 65 0a 20 20 20  trace $value.   
1670: 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 62     }.      {^-+b
1680: 69 6e 61 72 79 6c 6f 67 3d 2e 2b 24 7d 20 7b 0a  inarylog=.+$} {.
1690: 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20          foreach 
16a0: 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72  {dummy cmdlinear
16b0: 67 28 62 69 6e 61 72 79 6c 6f 67 29 7d 20 5b 73  g(binarylog)} [s
16c0: 70 6c 69 74 20 24 61 20 3d 5d 20 62 72 65 61 6b  plit $a =] break
16d0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b  .      }.      {
16e0: 5e 2d 2b 73 6f 61 6b 3d 2e 2b 24 7d 20 7b 0a 20  ^-+soak=.+$} {. 
16f0: 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b         foreach {
1700: 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67  dummy cmdlinearg
1710: 28 73 6f 61 6b 29 7d 20 5b 73 70 6c 69 74 20 24  (soak)} [split $
1720: 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20 20  a =] break.     
1730: 20 20 20 73 65 74 20 3a 3a 47 28 69 73 73 6f 61     set ::G(issoa
1740: 6b 29 20 24 63 6d 64 6c 69 6e 65 61 72 67 28 73  k) $cmdlinearg(s
1750: 6f 61 6b 29 0a 20 20 20 20 20 20 7d 0a 20 20 20  oak).      }.   
1760: 20 20 20 64 65 66 61 75 6c 74 20 7b 0a 20 20 20     default {.   
1770: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 6c 65 66       lappend lef
1780: 74 6f 76 65 72 20 24 61 0a 20 20 20 20 20 20 7d  tover $a.      }
1790: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 65 74  .    }.  }.  set
17a0: 20 61 72 67 76 20 24 6c 65 66 74 6f 76 65 72 0a   argv $leftover.
17b0: 0a 20 20 23 20 49 6e 73 74 61 6c 6c 20 74 68 65  .  # Install the
17c0: 20 6d 61 6c 6c 6f 63 20 6c 61 79 65 72 20 75 73   malloc layer us
17d0: 65 64 20 74 6f 20 69 6e 6a 65 63 74 20 4f 4f 4d  ed to inject OOM
17e0: 20 65 72 72 6f 72 73 2e 20 41 6e 64 20 74 68 65   errors. And the
17f0: 20 27 61 75 74 6f 6d 61 74 69 63 27 0a 20 20 23   'automatic'.  #
1800: 20 65 78 74 65 6e 73 69 6f 6e 73 2e 20 54 68 69   extensions. Thi
1810: 73 20 6f 6e 6c 79 20 6e 65 65 64 73 20 74 6f 20  s only needs to 
1820: 62 65 20 64 6f 6e 65 20 6f 6e 63 65 20 66 6f 72  be done once for
1830: 20 74 68 65 20 70 72 6f 63 65 73 73 2e 0a 20 20   the process..  
1840: 23 0a 20 20 73 71 6c 69 74 65 33 5f 73 68 75 74  #.  sqlite3_shut
1850: 64 6f 77 6e 20 0a 20 20 69 6e 73 74 61 6c 6c 5f  down .  install_
1860: 6d 61 6c 6c 6f 63 5f 66 61 75 6c 74 73 69 6d 20  malloc_faultsim 
1870: 31 20 0a 20 20 73 71 6c 69 74 65 33 5f 69 6e 69  1 .  sqlite3_ini
1880: 74 69 61 6c 69 7a 65 0a 20 20 61 75 74 6f 69 6e  tialize.  autoin
1890: 73 74 61 6c 6c 5f 74 65 73 74 5f 66 75 6e 63 74  stall_test_funct
18a0: 69 6f 6e 73 0a 0a 20 20 23 20 49 66 20 74 68 65  ions..  # If the
18b0: 20 2d 2d 62 69 6e 61 72 79 6c 6f 67 20 6f 70 74   --binarylog opt
18c0: 69 6f 6e 20 77 61 73 20 73 70 65 63 69 66 69 65  ion was specifie
18d0: 64 2c 20 63 72 65 61 74 65 20 74 68 65 20 6c 6f  d, create the lo
18e0: 67 67 69 6e 67 20 56 46 53 2e 20 54 68 69 73 0a  gging VFS. This.
18f0: 20 20 23 20 63 61 6c 6c 20 69 6e 73 74 61 6c 6c    # call install
1900: 73 20 74 68 65 20 6e 65 77 20 56 46 53 20 61 73  s the new VFS as
1910: 20 74 68 65 20 64 65 66 61 75 6c 74 20 66 6f 72   the default for
1920: 20 61 6c 6c 20 53 51 4c 69 74 65 20 63 6f 6e 6e   all SQLite conn
1930: 65 63 74 69 6f 6e 73 2e 0a 20 20 23 0a 20 20 69  ections..  #.  i
1940: 66 20 7b 24 63 6d 64 6c 69 6e 65 61 72 67 28 62  f {$cmdlinearg(b
1950: 69 6e 61 72 79 6c 6f 67 29 7d 20 7b 0a 20 20 20  inarylog)} {.   
1960: 20 76 66 73 6c 6f 67 20 6e 65 77 20 62 69 6e 61   vfslog new bina
1970: 72 79 6c 6f 67 20 7b 7d 20 76 66 73 6c 6f 67 2e  rylog {} vfslog.
1980: 62 69 6e 0a 20 20 7d 0a 0a 20 20 23 20 53 65 74  bin.  }..  # Set
1990: 20 74 68 65 20 62 61 63 6b 74 72 61 63 65 20 64   the backtrace d
19a0: 65 70 74 68 2c 20 69 66 20 6d 61 6c 6c 6f 63 20  epth, if malloc 
19b0: 74 72 61 63 69 6e 67 20 69 73 20 65 6e 61 62 6c  tracing is enabl
19c0: 65 64 2e 0a 20 20 23 0a 20 20 69 66 20 7b 24 63  ed..  #.  if {$c
19d0: 6d 64 6c 69 6e 65 61 72 67 28 6d 61 6c 6c 6f 63  mdlinearg(malloc
19e0: 74 72 61 63 65 29 7d 20 7b 0a 20 20 20 20 73 71  trace)} {.    sq
19f0: 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 62  lite3_memdebug_b
1a00: 61 63 6b 74 72 61 63 65 20 24 63 6d 64 6c 69 6e  acktrace $cmdlin
1a10: 65 61 72 67 28 62 61 63 6b 74 72 61 63 65 29 0a  earg(backtrace).
1a20: 20 20 7d 0a 7d 0a 0a 23 20 55 70 64 61 74 65 20    }.}..# Update 
1a30: 74 68 65 20 73 6f 66 74 2d 68 65 61 70 2d 6c 69  the soft-heap-li
1a40: 6d 69 74 20 65 61 63 68 20 74 69 6d 65 20 74 68  mit each time th
1a50: 69 73 20 73 63 72 69 70 74 20 69 73 20 72 75 6e  is script is run
1a60: 2e 20 49 6e 20 74 68 61 74 0a 23 20 77 61 79 20  . In that.# way 
1a70: 69 66 20 61 6e 20 69 6e 64 69 76 69 64 75 61 6c  if an individual
1a80: 20 74 65 73 74 20 66 69 6c 65 20 63 68 61 6e 67   test file chang
1a90: 65 73 20 74 68 65 20 73 6f 66 74 2d 68 65 61 70  es the soft-heap
1aa0: 2d 6c 69 6d 69 74 2c 20 69 74 0a 23 20 77 69 6c  -limit, it.# wil
1ab0: 6c 20 62 65 20 72 65 73 65 74 20 61 74 20 74 68  l be reset at th
1ac0: 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 6e  e start of the n
1ad0: 65 78 74 20 74 65 73 74 20 66 69 6c 65 2e 0a 23  ext test file..#
1ae0: 0a 73 71 6c 69 74 65 33 5f 73 6f 66 74 5f 68 65  .sqlite3_soft_he
1af0: 61 70 5f 6c 69 6d 69 74 20 24 63 6d 64 6c 69 6e  ap_limit $cmdlin
1b00: 65 61 72 67 28 73 6f 66 74 2d 68 65 61 70 2d 6c  earg(soft-heap-l
1b10: 69 6d 69 74 29 0a 0a 23 20 43 72 65 61 74 65 20  imit)..# Create 
1b20: 61 20 74 65 73 74 20 64 61 74 61 62 61 73 65 0a  a test database.
1b30: 23 0a 70 72 6f 63 20 72 65 73 65 74 5f 64 62 20  #.proc reset_db 
1b40: 7b 7d 20 7b 0a 20 20 63 61 74 63 68 20 7b 64 62  {} {.  catch {db
1b50: 20 63 6c 6f 73 65 7d 0a 20 20 66 69 6c 65 20 64   close}.  file d
1b60: 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 74 65 73  elete -force tes
1b70: 74 2e 64 62 0a 20 20 66 69 6c 65 20 64 65 6c 65  t.db.  file dele
1b80: 74 65 20 2d 66 6f 72 63 65 20 74 65 73 74 2e 64  te -force test.d
1b90: 62 2d 6a 6f 75 72 6e 61 6c 0a 20 20 66 69 6c 65  b-journal.  file
1ba0: 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 74   delete -force t
1bb0: 65 73 74 2e 64 62 2d 77 61 6c 0a 20 20 73 71 6c  est.db-wal.  sql
1bc0: 69 74 65 33 20 64 62 20 2e 2f 74 65 73 74 2e 64  ite3 db ./test.d
1bd0: 62 0a 20 20 73 65 74 20 3a 3a 44 42 20 5b 73 71  b.  set ::DB [sq
1be0: 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e  lite3_connection
1bf0: 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 20 20 69  _pointer db].  i
1c00: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
1c10: 3a 3a 53 45 54 55 50 5f 53 51 4c 5d 7d 20 7b 0a  ::SETUP_SQL]} {.
1c20: 20 20 20 20 64 62 20 65 76 61 6c 20 24 3a 3a 53      db eval $::S
1c30: 45 54 55 50 5f 53 51 4c 0a 20 20 7d 0a 7d 0a 72  ETUP_SQL.  }.}.r
1c40: 65 73 65 74 5f 64 62 0a 0a 23 20 41 62 6f 72 74  eset_db..# Abort
1c50: 20 65 61 72 6c 79 20 69 66 20 74 68 69 73 20 73   early if this s
1c60: 63 72 69 70 74 20 68 61 73 20 62 65 65 6e 20 72  cript has been r
1c70: 75 6e 20 62 65 66 6f 72 65 2e 0a 23 0a 69 66 20  un before..#.if 
1c80: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 54 43  {[info exists TC
1c90: 28 63 6f 75 6e 74 29 5d 7d 20 72 65 74 75 72 6e  (count)]} return
1ca0: 0a 0a 23 20 4d 61 6b 65 20 73 75 72 65 20 6d 65  ..# Make sure me
1cb0: 6d 6f 72 79 20 73 74 61 74 69 73 74 69 63 73 20  mory statistics 
1cc0: 61 72 65 20 65 6e 61 62 6c 65 64 2e 0a 23 0a 73  are enabled..#.s
1cd0: 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 5f 6d 65  qlite3_config_me
1ce0: 6d 73 74 61 74 75 73 20 31 0a 0a 23 20 49 6e 69  mstatus 1..# Ini
1cf0: 74 69 61 6c 69 7a 65 20 74 68 65 20 74 65 73 74  tialize the test
1d00: 20 63 6f 75 6e 74 65 72 73 20 61 6e 64 20 73 65   counters and se
1d10: 74 20 75 70 20 63 6f 6d 6d 61 6e 64 73 20 74 6f  t up commands to
1d20: 20 61 63 63 65 73 73 20 74 68 65 6d 2e 0a 23 20   access them..# 
1d30: 4f 72 2c 20 69 66 20 74 68 69 73 20 69 73 20 61  Or, if this is a
1d40: 20 73 6c 61 76 65 20 69 6e 74 65 72 70 72 65 74   slave interpret
1d50: 65 72 2c 20 73 65 74 20 75 70 20 61 6c 69 61 73  er, set up alias
1d60: 65 73 20 74 6f 20 77 72 69 74 65 20 74 68 65 0a  es to write the.
1d70: 23 20 63 6f 75 6e 74 65 72 73 20 69 6e 20 74 68  # counters in th
1d80: 65 20 70 61 72 65 6e 74 20 69 6e 74 65 72 70 72  e parent interpr
1d90: 65 74 65 72 2e 0a 23 0a 69 66 20 7b 30 3d 3d 5b  eter..#.if {0==[
1da0: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 53 4c  info exists ::SL
1db0: 41 56 45 5d 7d 20 7b 0a 20 20 73 65 74 20 54 43  AVE]} {.  set TC
1dc0: 28 65 72 72 6f 72 73 29 20 20 20 20 30 0a 20 20  (errors)    0.  
1dd0: 73 65 74 20 54 43 28 63 6f 75 6e 74 29 20 20 20  set TC(count)   
1de0: 20 20 30 0a 20 20 73 65 74 20 54 43 28 66 61 69    0.  set TC(fai
1df0: 6c 5f 6c 69 73 74 29 20 5b 6c 69 73 74 5d 0a 20  l_list) [list]. 
1e00: 20 73 65 74 20 54 43 28 6f 6d 69 74 5f 6c 69 73   set TC(omit_lis
1e10: 74 29 20 5b 6c 69 73 74 5d 0a 0a 20 20 70 72 6f  t) [list]..  pro
1e20: 63 20 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74  c set_test_count
1e30: 65 72 20 7b 63 6f 75 6e 74 65 72 20 61 72 67 73  er {counter args
1e40: 7d 20 7b 0a 20 20 20 20 69 66 20 7b 5b 6c 6c 65  } {.    if {[lle
1e50: 6e 67 74 68 20 24 61 72 67 73 5d 7d 20 7b 0a 20  ngth $args]} {. 
1e60: 20 20 20 20 20 73 65 74 20 3a 3a 54 43 28 24 63       set ::TC($c
1e70: 6f 75 6e 74 65 72 29 20 5b 6c 69 6e 64 65 78 20  ounter) [lindex 
1e80: 24 61 72 67 73 20 30 5d 0a 20 20 20 20 7d 0a 20  $args 0].    }. 
1e90: 20 20 20 73 65 74 20 3a 3a 54 43 28 24 63 6f 75     set ::TC($cou
1ea0: 6e 74 65 72 29 0a 20 20 7d 0a 7d 0a 0a 23 20 52  nter).  }.}..# R
1eb0: 65 63 6f 72 64 20 74 68 65 20 66 61 63 74 20 74  ecord the fact t
1ec0: 68 61 74 20 61 20 73 65 71 75 65 6e 63 65 20 6f  hat a sequence o
1ed0: 66 20 74 65 73 74 73 20 77 65 72 65 20 6f 6d 69  f tests were omi
1ee0: 74 74 65 64 2e 0a 23 0a 70 72 6f 63 20 6f 6d 69  tted..#.proc omi
1ef0: 74 5f 74 65 73 74 20 7b 6e 61 6d 65 20 72 65 61  t_test {name rea
1f00: 73 6f 6e 7d 20 7b 0a 20 20 73 65 74 20 6f 6d 69  son} {.  set omi
1f10: 74 4c 69 73 74 20 5b 73 65 74 5f 74 65 73 74 5f  tList [set_test_
1f20: 63 6f 75 6e 74 65 72 20 6f 6d 69 74 5f 6c 69 73  counter omit_lis
1f30: 74 5d 0a 20 20 6c 61 70 70 65 6e 64 20 6f 6d 69  t].  lappend omi
1f40: 74 4c 69 73 74 20 5b 6c 69 73 74 20 24 6e 61 6d  tList [list $nam
1f50: 65 20 24 72 65 61 73 6f 6e 5d 0a 20 20 73 65 74  e $reason].  set
1f60: 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 6f 6d  _test_counter om
1f70: 69 74 5f 6c 69 73 74 20 24 6f 6d 69 74 4c 69 73  it_list $omitLis
1f80: 74 0a 7d 0a 0a 23 20 52 65 63 6f 72 64 20 74 68  t.}..# Record th
1f90: 65 20 66 61 63 74 20 74 68 61 74 20 61 20 74 65  e fact that a te
1fa0: 73 74 20 66 61 69 6c 65 64 2e 0a 23 0a 70 72 6f  st failed..#.pro
1fb0: 63 20 66 61 69 6c 5f 74 65 73 74 20 7b 6e 61 6d  c fail_test {nam
1fc0: 65 7d 20 7b 0a 20 20 73 65 74 20 66 20 5b 73 65  e} {.  set f [se
1fd0: 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 66  t_test_counter f
1fe0: 61 69 6c 5f 6c 69 73 74 5d 0a 20 20 6c 61 70 70  ail_list].  lapp
1ff0: 65 6e 64 20 66 20 24 6e 61 6d 65 0a 20 20 73 65  end f $name.  se
2000: 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 66  t_test_counter f
2010: 61 69 6c 5f 6c 69 73 74 20 24 66 0a 20 20 73 65  ail_list $f.  se
2020: 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 65  t_test_counter e
2030: 72 72 6f 72 73 20 5b 65 78 70 72 20 5b 73 65 74  rrors [expr [set
2040: 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 65 72  _test_counter er
2050: 72 6f 72 73 5d 20 2b 20 31 5d 0a 0a 20 20 73 65  rors] + 1]..  se
2060: 74 20 6e 46 61 69 6c 20 5b 73 65 74 5f 74 65 73  t nFail [set_tes
2070: 74 5f 63 6f 75 6e 74 65 72 20 65 72 72 6f 72 73  t_counter errors
2080: 5d 0a 20 20 69 66 20 7b 24 6e 46 61 69 6c 3e 3d  ].  if {$nFail>=
2090: 24 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61  $::cmdlinearg(ma
20a0: 78 65 72 72 6f 72 29 7d 20 7b 0a 20 20 20 20 70  xerror)} {.    p
20b0: 75 74 73 20 22 2a 2a 2a 20 47 69 76 69 6e 67 20  uts "*** Giving 
20c0: 75 70 2e 2e 2e 22 0a 20 20 20 20 66 69 6e 61 6c  up...".    final
20d0: 69 7a 65 5f 74 65 73 74 69 6e 67 0a 20 20 7d 0a  ize_testing.  }.
20e0: 7d 0a 0a 23 20 49 6e 63 72 65 6d 65 6e 74 20 74  }..# Increment t
20f0: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 74 65 73  he number of tes
2100: 74 73 20 72 75 6e 0a 23 0a 70 72 6f 63 20 69 6e  ts run.#.proc in
2110: 63 72 5f 6e 74 65 73 74 20 7b 7d 20 7b 0a 20 20  cr_ntest {} {.  
2120: 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72  set_test_counter
2130: 20 63 6f 75 6e 74 20 5b 65 78 70 72 20 5b 73 65   count [expr [se
2140: 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 63  t_test_counter c
2150: 6f 75 6e 74 5d 20 2b 20 31 5d 0a 7d 0a 0a 0a 23  ount] + 1].}...#
2160: 20 49 6e 76 6f 6b 65 20 74 68 65 20 64 6f 5f 74   Invoke the do_t
2170: 65 73 74 20 70 72 6f 63 65 64 75 72 65 20 74 6f  est procedure to
2180: 20 72 75 6e 20 61 20 73 69 6e 67 6c 65 20 74 65   run a single te
2190: 73 74 20 0a 23 0a 70 72 6f 63 20 64 6f 5f 74 65  st .#.proc do_te
21a0: 73 74 20 7b 6e 61 6d 65 20 63 6d 64 20 65 78 70  st {name cmd exp
21b0: 65 63 74 65 64 7d 20 7b 0a 0a 20 20 67 6c 6f 62  ected} {..  glob
21c0: 61 6c 20 61 72 67 76 20 63 6d 64 6c 69 6e 65 61  al argv cmdlinea
21d0: 72 67 0a 0a 20 20 73 71 6c 69 74 65 33 5f 6d 65  rg..  sqlite3_me
21e0: 6d 64 65 62 75 67 5f 73 65 74 74 69 74 6c 65 20  mdebug_settitle 
21f0: 24 6e 61 6d 65 0a 0a 23 20 20 69 66 20 7b 5b 6c  $name..#  if {[l
2200: 6c 65 6e 67 74 68 20 24 61 72 67 76 5d 3d 3d 30  length $argv]==0
2210: 7d 20 7b 20 0a 23 20 20 20 20 73 65 74 20 67 6f  } { .#    set go
2220: 20 31 0a 23 20 20 7d 20 65 6c 73 65 20 7b 0a 23   1.#  } else {.#
2230: 20 20 20 20 73 65 74 20 67 6f 20 30 0a 23 20 20      set go 0.#  
2240: 20 20 66 6f 72 65 61 63 68 20 70 61 74 74 65 72    foreach patter
2250: 6e 20 24 61 72 67 76 20 7b 0a 23 20 20 20 20 20  n $argv {.#     
2260: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74   if {[string mat
2270: 63 68 20 24 70 61 74 74 65 72 6e 20 24 6e 61 6d  ch $pattern $nam
2280: 65 5d 7d 20 7b 0a 23 20 20 20 20 20 20 20 20 73  e]} {.#        s
2290: 65 74 20 67 6f 20 31 0a 23 20 20 20 20 20 20 20  et go 1.#       
22a0: 20 62 72 65 61 6b 0a 23 20 20 20 20 20 20 7d 0a   break.#      }.
22b0: 23 20 20 20 20 7d 0a 23 20 20 7d 0a 0a 20 20 69  #    }.#  }..  i
22c0: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
22d0: 3a 3a 47 28 70 65 72 6d 3a 70 72 65 66 69 78 29  ::G(perm:prefix)
22e0: 5d 7d 20 7b 0a 20 20 20 20 73 65 74 20 6e 61 6d  ]} {.    set nam
22f0: 65 20 22 24 3a 3a 47 28 70 65 72 6d 3a 70 72 65  e "$::G(perm:pre
2300: 66 69 78 29 24 6e 61 6d 65 22 0a 20 20 7d 0a 0a  fix)$name".  }..
2310: 20 20 69 6e 63 72 5f 6e 74 65 73 74 0a 20 20 70    incr_ntest.  p
2320: 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 24  uts -nonewline $
2330: 6e 61 6d 65 2e 2e 2e 0a 20 20 66 6c 75 73 68 20  name....  flush 
2340: 73 74 64 6f 75 74 0a 20 20 69 66 20 7b 5b 63 61  stdout.  if {[ca
2350: 74 63 68 20 7b 75 70 6c 65 76 65 6c 20 23 30 20  tch {uplevel #0 
2360: 22 24 63 6d 64 3b 5c 6e 22 7d 20 72 65 73 75 6c  "$cmd;\n"} resul
2370: 74 5d 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22  t]} {.    puts "
2380: 5c 6e 45 72 72 6f 72 3a 20 24 72 65 73 75 6c 74  \nError: $result
2390: 22 0a 20 20 20 20 66 61 69 6c 5f 74 65 73 74 20  ".    fail_test 
23a0: 24 6e 61 6d 65 0a 20 20 7d 20 65 6c 73 65 69 66  $name.  } elseif
23b0: 20 7b 5b 73 74 72 69 6e 67 20 63 6f 6d 70 61 72   {[string compar
23c0: 65 20 24 72 65 73 75 6c 74 20 24 65 78 70 65 63  e $result $expec
23d0: 74 65 64 5d 7d 20 7b 0a 20 20 20 20 70 75 74 73  ted]} {.    puts
23e0: 20 22 5c 6e 45 78 70 65 63 74 65 64 3a 20 5c 5b   "\nExpected: \[
23f0: 24 65 78 70 65 63 74 65 64 5c 5d 5c 6e 20 20 20  $expected\]\n   
2400: 20 20 47 6f 74 3a 20 5c 5b 24 72 65 73 75 6c 74    Got: \[$result
2410: 5c 5d 22 0a 20 20 20 20 66 61 69 6c 5f 74 65 73  \]".    fail_tes
2420: 74 20 24 6e 61 6d 65 0a 20 20 7d 20 65 6c 73 65  t $name.  } else
2430: 20 7b 0a 20 20 20 20 70 75 74 73 20 22 20 4f 6b   {.    puts " Ok
2440: 22 0a 20 20 7d 0a 20 20 66 6c 75 73 68 20 73 74  ".  }.  flush st
2450: 64 6f 75 74 0a 7d 0a 0a 70 72 6f 63 20 66 69 78  dout.}..proc fix
2460: 5f 74 65 73 74 6e 61 6d 65 20 7b 76 61 72 6e 61  _testname {varna
2470: 6d 65 7d 20 7b 0a 20 20 75 70 76 61 72 20 24 76  me} {.  upvar $v
2480: 61 72 6e 61 6d 65 20 74 65 73 74 6e 61 6d 65 0a  arname testname.
2490: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73    if {[info exis
24a0: 74 73 20 3a 3a 74 65 73 74 70 72 65 66 69 78 5d  ts ::testprefix]
24b0: 20 0a 20 20 20 26 26 20 5b 73 74 72 69 6e 67 20   .   && [string 
24c0: 69 73 20 64 69 67 69 74 20 5b 73 74 72 69 6e 67  is digit [string
24d0: 20 72 61 6e 67 65 20 24 74 65 73 74 6e 61 6d 65   range $testname
24e0: 20 30 20 30 5d 5d 0a 20 20 7d 20 7b 0a 20 20 20   0 0]].  } {.   
24f0: 20 73 65 74 20 74 65 73 74 6e 61 6d 65 20 22 24   set testname "$
2500: 7b 3a 3a 74 65 73 74 70 72 65 66 69 78 7d 2d 24  {::testprefix}-$
2510: 74 65 73 74 6e 61 6d 65 22 0a 20 20 7d 0a 7d 0a  testname".  }.}.
2520: 20 20 20 20 0a 70 72 6f 63 20 64 6f 5f 65 78 65      .proc do_exe
2530: 63 73 71 6c 5f 74 65 73 74 20 7b 74 65 73 74 6e  csql_test {testn
2540: 61 6d 65 20 73 71 6c 20 7b 72 65 73 75 6c 74 20  ame sql {result 
2550: 7b 7d 7d 7d 20 7b 0a 20 20 66 69 78 5f 74 65 73  {}}} {.  fix_tes
2560: 74 6e 61 6d 65 20 74 65 73 74 6e 61 6d 65 0a 20  tname testname. 
2570: 20 75 70 6c 65 76 65 6c 20 64 6f 5f 74 65 73 74   uplevel do_test
2580: 20 24 74 65 73 74 6e 61 6d 65 20 5b 6c 69 73 74   $testname [list
2590: 20 22 65 78 65 63 73 71 6c 20 7b 24 73 71 6c 7d   "execsql {$sql}
25a0: 22 5d 20 5b 6c 69 73 74 20 24 72 65 73 75 6c 74  "] [list $result
25b0: 5d 0a 7d 0a 70 72 6f 63 20 64 6f 5f 63 61 74 63  ].}.proc do_catc
25c0: 68 73 71 6c 5f 74 65 73 74 20 7b 74 65 73 74 6e  hsql_test {testn
25d0: 61 6d 65 20 73 71 6c 20 72 65 73 75 6c 74 7d 20  ame sql result} 
25e0: 7b 0a 20 20 66 69 78 5f 74 65 73 74 6e 61 6d 65  {.  fix_testname
25f0: 20 74 65 73 74 6e 61 6d 65 0a 20 20 75 70 6c 65   testname.  uple
2600: 76 65 6c 20 64 6f 5f 74 65 73 74 20 24 74 65 73  vel do_test $tes
2610: 74 6e 61 6d 65 20 5b 6c 69 73 74 20 22 63 61 74  tname [list "cat
2620: 63 68 73 71 6c 20 7b 24 73 71 6c 7d 22 5d 20 5b  chsql {$sql}"] [
2630: 6c 69 73 74 20 24 72 65 73 75 6c 74 5d 0a 7d 0a  list $result].}.
2640: 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  .#--------------
2650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 20 20  -----------.#   
2690: 55 73 61 67 65 3a 20 64 6f 5f 73 65 6c 65 63 74  Usage: do_select
26a0: 5f 74 65 73 74 73 20 50 52 45 46 49 58 20 3f 53  _tests PREFIX ?S
26b0: 57 49 54 43 48 45 53 3f 20 54 45 53 54 4c 49 53  WITCHES? TESTLIS
26c0: 54 0a 23 0a 23 20 57 68 65 72 65 20 73 77 69 74  T.#.# Where swit
26d0: 63 68 65 73 20 61 72 65 3a 0a 23 0a 23 20 20 20  ches are:.#.#   
26e0: 2d 65 72 72 6f 72 66 6f 72 6d 61 74 20 46 4d 54  -errorformat FMT
26f0: 53 54 52 49 4e 47 0a 23 20 20 20 2d 63 6f 75 6e  STRING.#   -coun
2700: 74 0a 23 20 20 20 2d 71 75 65 72 79 20 53 51 4c  t.#   -query SQL
2710: 0a 23 20 20 20 2d 74 63 6c 71 75 65 72 79 20 54  .#   -tclquery T
2720: 43 4c 0a 23 20 20 20 2d 72 65 70 61 69 72 20 54  CL.#   -repair T
2730: 43 4c 0a 23 0a 70 72 6f 63 20 64 6f 5f 73 65 6c  CL.#.proc do_sel
2740: 65 63 74 5f 74 65 73 74 73 20 7b 70 72 65 66 69  ect_tests {prefi
2750: 78 20 61 72 67 73 7d 20 7b 0a 0a 20 20 73 65 74  x args} {..  set
2760: 20 74 65 73 74 6c 69 73 74 20 5b 6c 69 6e 64 65   testlist [linde
2770: 78 20 24 61 72 67 73 20 65 6e 64 5d 0a 20 20 73  x $args end].  s
2780: 65 74 20 73 77 69 74 63 68 65 73 20 5b 6c 72 61  et switches [lra
2790: 6e 67 65 20 24 61 72 67 73 20 30 20 65 6e 64 2d  nge $args 0 end-
27a0: 31 5d 0a 0a 20 20 73 65 74 20 65 72 72 66 6d 74  1]..  set errfmt
27b0: 20 22 22 0a 20 20 73 65 74 20 63 6f 75 6e 74 6f   "".  set counto
27c0: 6e 6c 79 20 30 0a 20 20 73 65 74 20 74 63 6c 71  nly 0.  set tclq
27d0: 75 65 72 79 20 22 22 0a 20 20 73 65 74 20 72 65  uery "".  set re
27e0: 70 61 69 72 20 22 22 0a 0a 20 20 66 6f 72 20 7b  pair ""..  for {
27f0: 73 65 74 20 69 20 30 7d 20 7b 24 69 20 3c 20 5b  set i 0} {$i < [
2800: 6c 6c 65 6e 67 74 68 20 24 73 77 69 74 63 68 65  llength $switche
2810: 73 5d 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20  s]} {incr i} {. 
2820: 20 20 20 73 65 74 20 73 20 5b 6c 69 6e 64 65 78     set s [lindex
2830: 20 24 73 77 69 74 63 68 65 73 20 24 69 5d 0a 20   $switches $i]. 
2840: 20 20 20 73 65 74 20 6e 20 5b 73 74 72 69 6e 67     set n [string
2850: 20 6c 65 6e 67 74 68 20 24 73 5d 0a 20 20 20 20   length $s].    
2860: 69 66 20 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74  if {$n>=2 && [st
2870: 72 69 6e 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67  ring equal -leng
2880: 74 68 20 24 6e 20 24 73 20 22 2d 71 75 65 72 79  th $n $s "-query
2890: 22 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20  "]} {.      set 
28a0: 74 63 6c 71 75 65 72 79 20 5b 6c 69 73 74 20 65  tclquery [list e
28b0: 78 65 63 73 71 6c 20 5b 6c 69 6e 64 65 78 20 24  xecsql [lindex $
28c0: 73 77 69 74 63 68 65 73 20 5b 69 6e 63 72 20 69  switches [incr i
28d0: 5d 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66  ]]].    } elseif
28e0: 20 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69   {$n>=2 && [stri
28f0: 6e 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68  ng equal -length
2900: 20 24 6e 20 24 73 20 22 2d 74 63 6c 71 75 65 72   $n $s "-tclquer
2910: 79 22 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74  y"]} {.      set
2920: 20 74 63 6c 71 75 65 72 79 20 5b 6c 69 6e 64 65   tclquery [linde
2930: 78 20 24 73 77 69 74 63 68 65 73 20 5b 69 6e 63  x $switches [inc
2940: 72 20 69 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65  r i]].    } else
2950: 69 66 20 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74  if {$n>=2 && [st
2960: 72 69 6e 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67  ring equal -leng
2970: 74 68 20 24 6e 20 24 73 20 22 2d 65 72 72 6f 72  th $n $s "-error
2980: 66 6f 72 6d 61 74 22 5d 7d 20 7b 0a 20 20 20 20  format"]} {.    
2990: 20 20 73 65 74 20 65 72 72 66 6d 74 20 5b 6c 69    set errfmt [li
29a0: 6e 64 65 78 20 24 73 77 69 74 63 68 65 73 20 5b  ndex $switches [
29b0: 69 6e 63 72 20 69 5d 5d 0a 20 20 20 20 7d 20 65  incr i]].    } e
29c0: 6c 73 65 69 66 20 7b 24 6e 3e 3d 32 20 26 26 20  lseif {$n>=2 && 
29d0: 5b 73 74 72 69 6e 67 20 65 71 75 61 6c 20 2d 6c  [string equal -l
29e0: 65 6e 67 74 68 20 24 6e 20 24 73 20 22 2d 72 65  ength $n $s "-re
29f0: 70 61 69 72 22 5d 7d 20 7b 0a 20 20 20 20 20 20  pair"]} {.      
2a00: 73 65 74 20 72 65 70 61 69 72 20 5b 6c 69 6e 64  set repair [lind
2a10: 65 78 20 24 73 77 69 74 63 68 65 73 20 5b 69 6e  ex $switches [in
2a20: 63 72 20 69 5d 5d 0a 20 20 20 20 7d 20 65 6c 73  cr i]].    } els
2a30: 65 69 66 20 7b 24 6e 3e 3d 32 20 26 26 20 5b 73  eif {$n>=2 && [s
2a40: 74 72 69 6e 67 20 65 71 75 61 6c 20 2d 6c 65 6e  tring equal -len
2a50: 67 74 68 20 24 6e 20 24 73 20 22 2d 63 6f 75 6e  gth $n $s "-coun
2a60: 74 22 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74  t"]} {.      set
2a70: 20 63 6f 75 6e 74 6f 6e 6c 79 20 31 0a 20 20 20   countonly 1.   
2a80: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20   } else {.      
2a90: 65 72 72 6f 72 20 22 75 6e 6b 6e 6f 77 6e 20 73  error "unknown s
2aa0: 77 69 74 63 68 3a 20 24 73 22 0a 20 20 20 20 7d  witch: $s".    }
2ab0: 0a 20 20 7d 0a 0a 20 20 69 66 20 7b 24 63 6f 75  .  }..  if {$cou
2ac0: 6e 74 6f 6e 6c 79 20 26 26 20 24 65 72 72 66 6d  ntonly && $errfm
2ad0: 74 21 3d 22 22 7d 20 7b 0a 20 20 20 20 65 72 72  t!=""} {.    err
2ae0: 6f 72 20 22 43 61 6e 6e 6f 74 20 75 73 65 20 2d  or "Cannot use -
2af0: 63 6f 75 6e 74 20 61 6e 64 20 2d 65 72 72 6f 72  count and -error
2b00: 66 6f 72 6d 61 74 20 74 6f 67 65 74 68 65 72 22  format together"
2b10: 0a 20 20 7d 0a 20 20 73 65 74 20 6e 54 65 73 74  .  }.  set nTest
2b20: 6c 69 73 74 20 5b 6c 6c 65 6e 67 74 68 20 24 74  list [llength $t
2b30: 65 73 74 6c 69 73 74 5d 0a 20 20 69 66 20 7b 24  estlist].  if {$
2b40: 6e 54 65 73 74 6c 69 73 74 25 33 20 7c 7c 20 24  nTestlist%3 || $
2b50: 6e 54 65 73 74 6c 69 73 74 3d 3d 30 20 7d 20 7b  nTestlist==0 } {
2b60: 0a 20 20 20 20 65 72 72 6f 72 20 22 53 45 4c 45  .    error "SELE
2b70: 43 54 20 74 65 73 74 20 6c 69 73 74 20 63 6f 6e  CT test list con
2b80: 74 61 69 6e 73 20 5b 6c 6c 65 6e 67 74 68 20 24  tains [llength $
2b90: 74 65 73 74 6c 69 73 74 5d 20 65 6c 65 6d 65 6e  testlist] elemen
2ba0: 74 73 22 0a 20 20 7d 0a 0a 20 20 65 76 61 6c 20  ts".  }..  eval 
2bb0: 24 72 65 70 61 69 72 0a 20 20 66 6f 72 65 61 63  $repair.  foreac
2bc0: 68 20 7b 74 6e 20 73 71 6c 20 72 65 73 7d 20 24  h {tn sql res} $
2bd0: 74 65 73 74 6c 69 73 74 20 7b 0a 20 20 20 20 69  testlist {.    i
2be0: 66 20 7b 24 74 63 6c 71 75 65 72 79 20 21 3d 20  f {$tclquery != 
2bf0: 22 22 7d 20 7b 0a 20 20 20 20 20 20 65 78 65 63  ""} {.      exec
2c00: 73 71 6c 20 24 73 71 6c 0a 20 20 20 20 20 20 75  sql $sql.      u
2c10: 70 6c 65 76 65 6c 20 64 6f 5f 74 65 73 74 20 24  plevel do_test $
2c20: 7b 70 72 65 66 69 78 7d 2e 24 74 6e 20 5b 6c 69  {prefix}.$tn [li
2c30: 73 74 20 24 74 63 6c 71 75 65 72 79 5d 20 5b 6c  st $tclquery] [l
2c40: 69 73 74 20 5b 6c 69 73 74 20 7b 2a 7d 24 72 65  ist [list {*}$re
2c50: 73 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66  s]].    } elseif
2c60: 20 7b 24 63 6f 75 6e 74 6f 6e 6c 79 7d 20 7b 0a   {$countonly} {.
2c70: 20 20 20 20 20 20 73 65 74 20 6e 52 6f 77 20 30        set nRow 0
2c80: 0a 20 20 20 20 20 20 64 62 20 65 76 61 6c 20 24  .      db eval $
2c90: 73 71 6c 20 7b 69 6e 63 72 20 6e 52 6f 77 7d 0a  sql {incr nRow}.
2ca0: 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20 64 6f        uplevel do
2cb0: 5f 74 65 73 74 20 24 7b 70 72 65 66 69 78 7d 2e  _test ${prefix}.
2cc0: 24 74 6e 20 5b 6c 69 73 74 20 5b 6c 69 73 74 20  $tn [list [list 
2cd0: 73 65 74 20 7b 7d 20 24 6e 52 6f 77 5d 5d 20 5b  set {} $nRow]] [
2ce0: 6c 69 73 74 20 24 72 65 73 5d 0a 20 20 20 20 7d  list $res].    }
2cf0: 20 65 6c 73 65 69 66 20 7b 24 65 72 72 66 6d 74   elseif {$errfmt
2d00: 3d 3d 22 22 7d 20 7b 0a 20 20 20 20 20 20 75 70  ==""} {.      up
2d10: 6c 65 76 65 6c 20 64 6f 5f 65 78 65 63 73 71 6c  level do_execsql
2d20: 5f 74 65 73 74 20 24 7b 70 72 65 66 69 78 7d 2e  _test ${prefix}.
2d30: 24 7b 74 6e 7d 20 5b 6c 69 73 74 20 24 73 71 6c  ${tn} [list $sql
2d40: 5d 20 5b 6c 69 73 74 20 5b 6c 69 73 74 20 7b 2a  ] [list [list {*
2d50: 7d 24 72 65 73 5d 5d 0a 20 20 20 20 7d 20 65 6c  }$res]].    } el
2d60: 73 65 20 7b 0a 20 20 20 20 20 20 73 65 74 20 72  se {.      set r
2d70: 65 73 20 5b 6c 69 73 74 20 31 20 5b 73 74 72 69  es [list 1 [stri
2d80: 6e 67 20 74 72 69 6d 20 5b 66 6f 72 6d 61 74 20  ng trim [format 
2d90: 24 65 72 72 66 6d 74 20 7b 2a 7d 24 72 65 73 5d  $errfmt {*}$res]
2da0: 5d 5d 0a 20 20 20 20 20 20 75 70 6c 65 76 65 6c  ]].      uplevel
2db0: 20 64 6f 5f 63 61 74 63 68 73 71 6c 5f 74 65 73   do_catchsql_tes
2dc0: 74 20 24 7b 70 72 65 66 69 78 7d 2e 24 7b 74 6e  t ${prefix}.${tn
2dd0: 7d 20 5b 6c 69 73 74 20 24 73 71 6c 5d 20 5b 6c  } [list $sql] [l
2de0: 69 73 74 20 24 72 65 73 5d 0a 20 20 20 20 7d 0a  ist $res].    }.
2df0: 20 20 20 20 65 76 61 6c 20 24 72 65 70 61 69 72      eval $repair
2e00: 0a 20 20 7d 0a 0a 7d 0a 0a 70 72 6f 63 20 64 65  .  }..}..proc de
2e10: 6c 65 74 65 5f 61 6c 6c 5f 64 61 74 61 20 7b 7d  lete_all_data {}
2e20: 20 7b 0a 20 20 64 62 20 65 76 61 6c 20 7b 53 45   {.  db eval {SE
2e30: 4c 45 43 54 20 74 62 6c 5f 6e 61 6d 65 20 41 53  LECT tbl_name AS
2e40: 20 74 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d   t FROM sqlite_m
2e50: 61 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65  aster WHERE type
2e60: 20 3d 20 27 74 61 62 6c 65 27 7d 20 7b 0a 20 20   = 'table'} {.  
2e70: 20 20 64 62 20 65 76 61 6c 20 22 44 45 4c 45 54    db eval "DELET
2e80: 45 20 46 52 4f 4d 20 27 5b 73 74 72 69 6e 67 20  E FROM '[string 
2e90: 6d 61 70 20 7b 27 20 27 27 7d 20 24 74 5d 27 22  map {' ''} $t]'"
2ea0: 0a 20 20 7d 0a 7d 0a 0a 23 20 52 75 6e 20 61 6e  .  }.}..# Run an
2eb0: 20 53 51 4c 20 73 63 72 69 70 74 2e 20 20 0a 23   SQL script.  .#
2ec0: 20 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62   Return the numb
2ed0: 65 72 20 6f 66 20 6d 69 63 72 6f 73 65 63 6f 6e  er of microsecon
2ee0: 64 73 20 70 65 72 20 73 74 61 74 65 6d 65 6e 74  ds per statement
2ef0: 2e 0a 23 0a 70 72 6f 63 20 73 70 65 65 64 5f 74  ..#.proc speed_t
2f00: 72 69 61 6c 20 7b 6e 61 6d 65 20 6e 75 6d 73 74  rial {name numst
2f10: 6d 74 20 75 6e 69 74 73 20 73 71 6c 7d 20 7b 0a  mt units sql} {.
2f20: 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e    puts -nonewlin
2f30: 65 20 5b 66 6f 72 6d 61 74 20 7b 25 2d 32 31 2e  e [format {%-21.
2f40: 32 31 73 20 7d 20 24 6e 61 6d 65 2e 2e 2e 5d 0a  21s } $name...].
2f50: 20 20 66 6c 75 73 68 20 73 74 64 6f 75 74 0a 20    flush stdout. 
2f60: 20 73 65 74 20 73 70 65 65 64 20 5b 74 69 6d 65   set speed [time
2f70: 20 7b 73 71 6c 69 74 65 33 5f 65 78 65 63 5f 6e   {sqlite3_exec_n
2f80: 72 20 64 62 20 24 73 71 6c 7d 5d 0a 20 20 73 65  r db $sql}].  se
2f90: 74 20 74 6d 20 5b 6c 69 6e 64 65 78 20 24 73 70  t tm [lindex $sp
2fa0: 65 65 64 20 30 5d 0a 20 20 69 66 20 7b 24 74 6d  eed 0].  if {$tm
2fb0: 20 3d 3d 20 30 7d 20 7b 0a 20 20 20 20 73 65 74   == 0} {.    set
2fc0: 20 72 61 74 65 20 5b 66 6f 72 6d 61 74 20 25 32   rate [format %2
2fd0: 30 73 20 22 6d 61 6e 79 22 5d 0a 20 20 7d 20 65  0s "many"].  } e
2fe0: 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20 72 61  lse {.    set ra
2ff0: 74 65 20 5b 66 6f 72 6d 61 74 20 25 32 30 2e 35  te [format %20.5
3000: 66 20 5b 65 78 70 72 20 7b 31 30 30 30 30 30 30  f [expr {1000000
3010: 2e 30 2a 24 6e 75 6d 73 74 6d 74 2f 24 74 6d 7d  .0*$numstmt/$tm}
3020: 5d 5d 0a 20 20 7d 0a 20 20 73 65 74 20 75 32 20  ]].  }.  set u2 
3030: 24 75 6e 69 74 73 2f 73 0a 20 20 70 75 74 73 20  $units/s.  puts 
3040: 5b 66 6f 72 6d 61 74 20 7b 25 31 32 64 20 75 53  [format {%12d uS
3050: 20 25 73 20 25 73 7d 20 24 74 6d 20 24 72 61 74   %s %s} $tm $rat
3060: 65 20 24 75 32 5d 0a 20 20 67 6c 6f 62 61 6c 20  e $u2].  global 
3070: 74 6f 74 61 6c 5f 74 69 6d 65 0a 20 20 73 65 74  total_time.  set
3080: 20 74 6f 74 61 6c 5f 74 69 6d 65 20 5b 65 78 70   total_time [exp
3090: 72 20 7b 24 74 6f 74 61 6c 5f 74 69 6d 65 2b 24  r {$total_time+$
30a0: 74 6d 7d 5d 0a 7d 0a 70 72 6f 63 20 73 70 65 65  tm}].}.proc spee
30b0: 64 5f 74 72 69 61 6c 5f 74 63 6c 20 7b 6e 61 6d  d_trial_tcl {nam
30c0: 65 20 6e 75 6d 73 74 6d 74 20 75 6e 69 74 73 20  e numstmt units 
30d0: 73 63 72 69 70 74 7d 20 7b 0a 20 20 70 75 74 73  script} {.  puts
30e0: 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 5b 66 6f 72   -nonewline [for
30f0: 6d 61 74 20 7b 25 2d 32 31 2e 32 31 73 20 7d 20  mat {%-21.21s } 
3100: 24 6e 61 6d 65 2e 2e 2e 5d 0a 20 20 66 6c 75 73  $name...].  flus
3110: 68 20 73 74 64 6f 75 74 0a 20 20 73 65 74 20 73  h stdout.  set s
3120: 70 65 65 64 20 5b 74 69 6d 65 20 7b 65 76 61 6c  peed [time {eval
3130: 20 24 73 63 72 69 70 74 7d 5d 0a 20 20 73 65 74   $script}].  set
3140: 20 74 6d 20 5b 6c 69 6e 64 65 78 20 24 73 70 65   tm [lindex $spe
3150: 65 64 20 30 5d 0a 20 20 69 66 20 7b 24 74 6d 20  ed 0].  if {$tm 
3160: 3d 3d 20 30 7d 20 7b 0a 20 20 20 20 73 65 74 20  == 0} {.    set 
3170: 72 61 74 65 20 5b 66 6f 72 6d 61 74 20 25 32 30  rate [format %20
3180: 73 20 22 6d 61 6e 79 22 5d 0a 20 20 7d 20 65 6c  s "many"].  } el
3190: 73 65 20 7b 0a 20 20 20 20 73 65 74 20 72 61 74  se {.    set rat
31a0: 65 20 5b 66 6f 72 6d 61 74 20 25 32 30 2e 35 66  e [format %20.5f
31b0: 20 5b 65 78 70 72 20 7b 31 30 30 30 30 30 30 2e   [expr {1000000.
31c0: 30 2a 24 6e 75 6d 73 74 6d 74 2f 24 74 6d 7d 5d  0*$numstmt/$tm}]
31d0: 5d 0a 20 20 7d 0a 20 20 73 65 74 20 75 32 20 24  ].  }.  set u2 $
31e0: 75 6e 69 74 73 2f 73 0a 20 20 70 75 74 73 20 5b  units/s.  puts [
31f0: 66 6f 72 6d 61 74 20 7b 25 31 32 64 20 75 53 20  format {%12d uS 
3200: 25 73 20 25 73 7d 20 24 74 6d 20 24 72 61 74 65  %s %s} $tm $rate
3210: 20 24 75 32 5d 0a 20 20 67 6c 6f 62 61 6c 20 74   $u2].  global t
3220: 6f 74 61 6c 5f 74 69 6d 65 0a 20 20 73 65 74 20  otal_time.  set 
3230: 74 6f 74 61 6c 5f 74 69 6d 65 20 5b 65 78 70 72  total_time [expr
3240: 20 7b 24 74 6f 74 61 6c 5f 74 69 6d 65 2b 24 74   {$total_time+$t
3250: 6d 7d 5d 0a 7d 0a 70 72 6f 63 20 73 70 65 65 64  m}].}.proc speed
3260: 5f 74 72 69 61 6c 5f 69 6e 69 74 20 7b 6e 61 6d  _trial_init {nam
3270: 65 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 74 6f  e} {.  global to
3280: 74 61 6c 5f 74 69 6d 65 0a 20 20 73 65 74 20 74  tal_time.  set t
3290: 6f 74 61 6c 5f 74 69 6d 65 20 30 0a 20 20 73 71  otal_time 0.  sq
32a0: 6c 69 74 65 33 20 76 65 72 73 64 62 20 3a 6d 65  lite3 versdb :me
32b0: 6d 6f 72 79 3a 0a 20 20 73 65 74 20 76 65 72 73  mory:.  set vers
32c0: 20 5b 76 65 72 73 64 62 20 6f 6e 65 20 7b 53 45   [versdb one {SE
32d0: 4c 45 43 54 20 73 71 6c 69 74 65 5f 73 6f 75 72  LECT sqlite_sour
32e0: 63 65 5f 69 64 28 29 7d 5d 0a 20 20 76 65 72 73  ce_id()}].  vers
32f0: 64 62 20 63 6c 6f 73 65 0a 20 20 70 75 74 73 20  db close.  puts 
3300: 22 53 51 4c 69 74 65 20 24 76 65 72 73 22 0a 7d  "SQLite $vers".}
3310: 0a 70 72 6f 63 20 73 70 65 65 64 5f 74 72 69 61  .proc speed_tria
3320: 6c 5f 73 75 6d 6d 61 72 79 20 7b 6e 61 6d 65 7d  l_summary {name}
3330: 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 74 6f 74 61   {.  global tota
3340: 6c 5f 74 69 6d 65 0a 20 20 70 75 74 73 20 5b 66  l_time.  puts [f
3350: 6f 72 6d 61 74 20 7b 25 2d 32 31 2e 32 31 73 20  ormat {%-21.21s 
3360: 25 31 32 64 20 75 53 20 54 4f 54 41 4c 7d 20 24  %12d uS TOTAL} $
3370: 6e 61 6d 65 20 24 74 6f 74 61 6c 5f 74 69 6d 65  name $total_time
3380: 5d 0a 7d 0a 0a 23 20 52 75 6e 20 74 68 69 73 20  ].}..# Run this 
3390: 72 6f 75 74 69 6e 65 20 6c 61 73 74 0a 23 0a 70  routine last.#.p
33a0: 72 6f 63 20 66 69 6e 69 73 68 5f 74 65 73 74 20  roc finish_test 
33b0: 7b 7d 20 7b 0a 20 20 63 61 74 63 68 20 7b 64 62  {} {.  catch {db
33c0: 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68 20   close}.  catch 
33d0: 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 20 20 63 61  {db2 close}.  ca
33e0: 74 63 68 20 7b 64 62 33 20 63 6c 6f 73 65 7d 0a  tch {db3 close}.
33f0: 20 20 69 66 20 7b 30 3d 3d 5b 69 6e 66 6f 20 65    if {0==[info e
3400: 78 69 73 74 73 20 3a 3a 53 4c 41 56 45 5d 7d 20  xists ::SLAVE]} 
3410: 7b 20 66 69 6e 61 6c 69 7a 65 5f 74 65 73 74 69  { finalize_testi
3420: 6e 67 20 7d 0a 7d 0a 70 72 6f 63 20 66 69 6e 61  ng }.}.proc fina
3430: 6c 69 7a 65 5f 74 65 73 74 69 6e 67 20 7b 7d 20  lize_testing {} 
3440: 7b 0a 20 20 67 6c 6f 62 61 6c 20 73 71 6c 69 74  {.  global sqlit
3450: 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e  e_open_file_coun
3460: 74 0a 0a 20 20 73 65 74 20 6f 6d 69 74 4c 69 73  t..  set omitLis
3470: 74 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e  t [set_test_coun
3480: 74 65 72 20 6f 6d 69 74 5f 6c 69 73 74 5d 0a 0a  ter omit_list]..
3490: 20 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73    catch {db clos
34a0: 65 7d 0a 20 20 63 61 74 63 68 20 7b 64 62 32 20  e}.  catch {db2 
34b0: 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68 20 7b  close}.  catch {
34c0: 64 62 33 20 63 6c 6f 73 65 7d 0a 0a 20 20 76 66  db3 close}..  vf
34d0: 73 5f 75 6e 6c 69 6e 6b 5f 74 65 73 74 0a 20 20  s_unlink_test.  
34e0: 73 71 6c 69 74 65 33 20 64 62 20 7b 7d 0a 20 20  sqlite3 db {}.  
34f0: 23 20 73 71 6c 69 74 65 33 5f 63 6c 65 61 72 5f  # sqlite3_clear_
3500: 74 73 64 5f 6d 65 6d 64 65 62 75 67 0a 20 20 64  tsd_memdebug.  d
3510: 62 20 63 6c 6f 73 65 0a 20 20 73 71 6c 69 74 65  b close.  sqlite
3520: 33 5f 72 65 73 65 74 5f 61 75 74 6f 5f 65 78 74  3_reset_auto_ext
3530: 65 6e 73 69 6f 6e 0a 0a 20 20 73 71 6c 69 74 65  ension..  sqlite
3540: 33 5f 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69  3_soft_heap_limi
3550: 74 20 30 0a 20 20 73 65 74 20 6e 54 65 73 74 20  t 0.  set nTest 
3560: 5b 69 6e 63 72 5f 6e 74 65 73 74 5d 0a 20 20 73  [incr_ntest].  s
3570: 65 74 20 6e 45 72 72 20 5b 73 65 74 5f 74 65 73  et nErr [set_tes
3580: 74 5f 63 6f 75 6e 74 65 72 20 65 72 72 6f 72 73  t_counter errors
3590: 5d 0a 0a 20 20 70 75 74 73 20 22 24 6e 45 72 72  ]..  puts "$nErr
35a0: 20 65 72 72 6f 72 73 20 6f 75 74 20 6f 66 20 24   errors out of $
35b0: 6e 54 65 73 74 20 74 65 73 74 73 22 0a 20 20 69  nTest tests".  i
35c0: 66 20 7b 24 6e 45 72 72 3e 30 7d 20 7b 0a 20 20  f {$nErr>0} {.  
35d0: 20 20 70 75 74 73 20 22 46 61 69 6c 75 72 65 73    puts "Failures
35e0: 20 6f 6e 20 74 68 65 73 65 20 74 65 73 74 73 3a   on these tests:
35f0: 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74   [set_test_count
3600: 65 72 20 66 61 69 6c 5f 6c 69 73 74 5d 22 0a 20  er fail_list]". 
3610: 20 7d 0a 20 20 72 75 6e 5f 74 68 72 65 61 64 5f   }.  run_thread_
3620: 74 65 73 74 73 20 31 0a 20 20 69 66 20 7b 5b 6c  tests 1.  if {[l
3630: 6c 65 6e 67 74 68 20 24 6f 6d 69 74 4c 69 73 74  length $omitList
3640: 5d 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73 20  ]>0} {.    puts 
3650: 22 4f 6d 69 74 74 65 64 20 74 65 73 74 20 63 61  "Omitted test ca
3660: 73 65 73 3a 22 0a 20 20 20 20 73 65 74 20 70 72  ses:".    set pr
3670: 65 63 20 7b 7d 0a 20 20 20 20 66 6f 72 65 61 63  ec {}.    foreac
3680: 68 20 7b 72 65 63 7d 20 5b 6c 73 6f 72 74 20 24  h {rec} [lsort $
3690: 6f 6d 69 74 4c 69 73 74 5d 20 7b 0a 20 20 20 20  omitList] {.    
36a0: 20 20 69 66 20 7b 24 72 65 63 3d 3d 24 70 72 65    if {$rec==$pre
36b0: 63 7d 20 63 6f 6e 74 69 6e 75 65 0a 20 20 20 20  c} continue.    
36c0: 20 20 73 65 74 20 70 72 65 63 20 24 72 65 63 0a    set prec $rec.
36d0: 20 20 20 20 20 20 70 75 74 73 20 5b 66 6f 72 6d        puts [form
36e0: 61 74 20 7b 20 20 25 2d 31 32 73 20 25 73 7d 20  at {  %-12s %s} 
36f0: 5b 6c 69 6e 64 65 78 20 24 72 65 63 20 30 5d 20  [lindex $rec 0] 
3700: 5b 6c 69 6e 64 65 78 20 24 72 65 63 20 31 5d 5d  [lindex $rec 1]]
3710: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 20  .    }.  }.  if 
3720: 7b 24 6e 45 72 72 3e 30 20 26 26 20 21 5b 77 6f  {$nErr>0 && ![wo
3730: 72 6b 69 6e 67 5f 36 34 62 69 74 5f 69 6e 74 5d  rking_64bit_int]
3740: 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22 2a 2a  } {.    puts "**
3750: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3760: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3770: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3780: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3790: 22 0a 20 20 20 20 70 75 74 73 20 22 4e 2e 42 2e  ".    puts "N.B.
37a0: 3a 20 20 54 68 65 20 76 65 72 73 69 6f 6e 20 6f  :  The version o
37b0: 66 20 54 43 4c 20 74 68 61 74 20 79 6f 75 20 75  f TCL that you u
37c0: 73 65 64 20 74 6f 20 62 75 69 6c 64 20 74 68 69  sed to build thi
37d0: 73 20 74 65 73 74 20 68 61 72 6e 65 73 73 22 0a  s test harness".
37e0: 20 20 20 20 70 75 74 73 20 22 69 73 20 64 65 66      puts "is def
37f0: 65 63 74 69 76 65 20 69 6e 20 74 68 61 74 20 69  ective in that i
3800: 74 20 64 6f 65 73 20 6e 6f 74 20 73 75 70 70 6f  t does not suppo
3810: 72 74 20 36 34 2d 62 69 74 20 69 6e 74 65 67 65  rt 64-bit intege
3820: 72 73 2e 20 20 53 6f 6d 65 20 6f 72 22 0a 20 20  rs.  Some or".  
3830: 20 20 70 75 74 73 20 22 61 6c 6c 20 6f 66 20 74    puts "all of t
3840: 68 65 20 74 65 73 74 20 66 61 69 6c 75 72 65 73  he test failures
3850: 20 61 62 6f 76 65 20 6d 69 67 68 74 20 62 65 20   above might be 
3860: 61 20 72 65 73 75 6c 74 20 66 72 6f 6d 20 74 68  a result from th
3870: 69 73 20 64 65 66 65 63 74 22 0a 20 20 20 20 70  is defect".    p
3880: 75 74 73 20 22 69 6e 20 79 6f 75 72 20 54 43 4c  uts "in your TCL
3890: 20 62 75 69 6c 64 2e 22 0a 20 20 20 20 70 75 74   build.".    put
38a0: 73 20 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  s "*************
38b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
38c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
38d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
38e0: 2a 2a 2a 2a 2a 22 0a 20 20 7d 0a 20 20 69 66 20  *****".  }.  if 
38f0: 7b 24 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 28 62  {$::cmdlinearg(b
3900: 69 6e 61 72 79 6c 6f 67 29 7d 20 7b 0a 20 20 20  inarylog)} {.   
3910: 20 76 66 73 6c 6f 67 20 66 69 6e 61 6c 69 7a 65   vfslog finalize
3920: 20 62 69 6e 61 72 79 6c 6f 67 0a 20 20 7d 0a 20   binarylog.  }. 
3930: 20 69 66 20 7b 24 73 71 6c 69 74 65 5f 6f 70 65   if {$sqlite_ope
3940: 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 7d 20 7b 0a  n_file_count} {.
3950: 20 20 20 20 70 75 74 73 20 22 24 73 71 6c 69 74      puts "$sqlit
3960: 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e  e_open_file_coun
3970: 74 20 66 69 6c 65 73 20 77 65 72 65 20 6c 65 66  t files were lef
3980: 74 20 6f 70 65 6e 22 0a 20 20 20 20 69 6e 63 72  t open".    incr
3990: 20 6e 45 72 72 0a 20 20 7d 0a 20 20 69 66 20 7b   nErr.  }.  if {
39a0: 5b 6c 69 6e 64 65 78 20 5b 73 71 6c 69 74 65 33  [lindex [sqlite3
39b0: 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53  _status SQLITE_S
39c0: 54 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f 43 4f 55  TATUS_MALLOC_COU
39d0: 4e 54 20 30 5d 20 31 5d 3e 30 20 7c 7c 0a 20 20  NT 0] 1]>0 ||.  
39e0: 20 20 20 20 20 20 20 20 20 20 20 20 5b 73 71 6c              [sql
39f0: 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 64  ite3_memory_used
3a00: 5d 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73 20  ]>0} {.    puts 
3a10: 22 55 6e 66 72 65 65 64 20 6d 65 6d 6f 72 79 3a  "Unfreed memory:
3a20: 20 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79   [sqlite3_memory
3a30: 5f 75 73 65 64 5d 20 62 79 74 65 73 20 69 6e 5c  _used] bytes in\
3a40: 0a 20 20 20 20 20 20 20 20 20 5b 6c 69 6e 64 65  .         [linde
3a50: 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75  x [sqlite3_statu
3a60: 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f  s SQLITE_STATUS_
3a70: 4d 41 4c 4c 4f 43 5f 43 4f 55 4e 54 20 30 5d 20  MALLOC_COUNT 0] 
3a80: 31 5d 20 61 6c 6c 6f 63 61 74 69 6f 6e 73 22 0a  1] allocations".
3a90: 20 20 20 20 69 6e 63 72 20 6e 45 72 72 0a 20 20      incr nErr.  
3aa0: 20 20 69 66 63 61 70 61 62 6c 65 20 6d 65 6d 64    ifcapable memd
3ab0: 65 62 75 67 7c 7c 6d 65 6d 35 7c 7c 28 6d 65 6d  ebug||mem5||(mem
3ac0: 33 26 26 64 65 62 75 67 29 20 7b 0a 20 20 20 20  3&&debug) {.    
3ad0: 20 20 70 75 74 73 20 22 57 72 69 74 69 6e 67 20    puts "Writing 
3ae0: 75 6e 66 72 65 65 64 20 6d 65 6d 6f 72 79 20 6c  unfreed memory l
3af0: 6f 67 20 74 6f 20 5c 22 2e 2f 6d 65 6d 6c 65 61  og to \"./memlea
3b00: 6b 2e 74 78 74 5c 22 22 0a 20 20 20 20 20 20 73  k.txt\"".      s
3b10: 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f  qlite3_memdebug_
3b20: 64 75 6d 70 20 2e 2f 6d 65 6d 6c 65 61 6b 2e 74  dump ./memleak.t
3b30: 78 74 0a 20 20 20 20 7d 0a 20 20 7d 20 65 6c 73  xt.    }.  } els
3b40: 65 20 7b 0a 20 20 20 20 70 75 74 73 20 22 41 6c  e {.    puts "Al
3b50: 6c 20 6d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74  l memory allocat
3b60: 69 6f 6e 73 20 66 72 65 65 64 20 2d 20 6e 6f 20  ions freed - no 
3b70: 6c 65 61 6b 73 22 0a 20 20 20 20 69 66 63 61 70  leaks".    ifcap
3b80: 61 62 6c 65 20 6d 65 6d 64 65 62 75 67 7c 7c 6d  able memdebug||m
3b90: 65 6d 35 20 7b 0a 20 20 20 20 20 20 73 71 6c 69  em5 {.      sqli
3ba0: 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 64 75 6d  te3_memdebug_dum
3bb0: 70 20 2e 2f 6d 65 6d 75 73 61 67 65 2e 74 78 74  p ./memusage.txt
3bc0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 68 6f  .    }.  }.  sho
3bd0: 77 5f 6d 65 6d 73 74 61 74 73 0a 20 20 70 75 74  w_memstats.  put
3be0: 73 20 22 4d 61 78 69 6d 75 6d 20 6d 65 6d 6f 72  s "Maximum memor
3bf0: 79 20 75 73 61 67 65 3a 20 5b 73 71 6c 69 74 65  y usage: [sqlite
3c00: 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 61 74  3_memory_highwat
3c10: 65 72 20 31 5d 20 62 79 74 65 73 22 0a 20 20 70  er 1] bytes".  p
3c20: 75 74 73 20 22 43 75 72 72 65 6e 74 20 6d 65 6d  uts "Current mem
3c30: 6f 72 79 20 75 73 61 67 65 3a 20 5b 73 71 6c 69  ory usage: [sqli
3c40: 74 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77  te3_memory_highw
3c50: 61 74 65 72 5d 20 62 79 74 65 73 22 0a 20 20 69  ater] bytes".  i
3c60: 66 20 7b 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64  f {[info command
3c70: 73 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62  s sqlite3_memdeb
3c80: 75 67 5f 6d 61 6c 6c 6f 63 5f 63 6f 75 6e 74 5d  ug_malloc_count]
3c90: 20 6e 65 20 22 22 7d 20 7b 0a 20 20 20 20 70 75   ne ""} {.    pu
3ca0: 74 73 20 22 4e 75 6d 62 65 72 20 6f 66 20 6d 61  ts "Number of ma
3cb0: 6c 6c 6f 63 28 29 20 20 3a 20 5b 73 71 6c 69 74  lloc()  : [sqlit
3cc0: 65 33 5f 6d 65 6d 64 65 62 75 67 5f 6d 61 6c 6c  e3_memdebug_mall
3cd0: 6f 63 5f 63 6f 75 6e 74 5d 20 63 61 6c 6c 73 22  oc_count] calls"
3ce0: 0a 20 20 7d 0a 20 20 69 66 20 7b 24 3a 3a 63 6d  .  }.  if {$::cm
3cf0: 64 6c 69 6e 65 61 72 67 28 6d 61 6c 6c 6f 63 74  dlinearg(malloct
3d00: 72 61 63 65 29 7d 20 7b 0a 20 20 20 20 70 75 74  race)} {.    put
3d10: 73 20 22 57 72 69 74 69 6e 67 20 6d 61 6c 6c 6f  s "Writing mallo
3d20: 63 73 2e 73 71 6c 2e 2e 2e 22 0a 20 20 20 20 6d  cs.sql...".    m
3d30: 65 6d 64 65 62 75 67 5f 6c 6f 67 5f 73 71 6c 0a  emdebug_log_sql.
3d40: 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64      sqlite3_memd
3d50: 65 62 75 67 5f 6c 6f 67 20 73 74 6f 70 0a 20 20  ebug_log stop.  
3d60: 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62    sqlite3_memdeb
3d70: 75 67 5f 6c 6f 67 20 63 6c 65 61 72 0a 0a 20 20  ug_log clear..  
3d80: 20 20 69 66 20 7b 5b 73 71 6c 69 74 65 33 5f 6d    if {[sqlite3_m
3d90: 65 6d 6f 72 79 5f 75 73 65 64 5d 3e 30 7d 20 7b  emory_used]>0} {
3da0: 0a 20 20 20 20 20 20 70 75 74 73 20 22 57 72 69  .      puts "Wri
3db0: 74 69 6e 67 20 6c 65 61 6b 73 2e 73 71 6c 2e 2e  ting leaks.sql..
3dc0: 2e 22 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33  .".      sqlite3
3dd0: 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 20 73 79  _memdebug_log sy
3de0: 6e 63 0a 20 20 20 20 20 20 6d 65 6d 64 65 62 75  nc.      memdebu
3df0: 67 5f 6c 6f 67 5f 73 71 6c 20 6c 65 61 6b 73 2e  g_log_sql leaks.
3e00: 73 71 6c 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20  sql.    }.  }.  
3e10: 66 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f 62 20  foreach f [glob 
3e20: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 73 74  -nocomplain test
3e30: 2e 64 62 2d 2a 2d 6a 6f 75 72 6e 61 6c 5d 20 7b  .db-*-journal] {
3e40: 0a 20 20 20 20 66 69 6c 65 20 64 65 6c 65 74 65  .    file delete
3e50: 20 2d 66 6f 72 63 65 20 24 66 0a 20 20 7d 0a 20   -force $f.  }. 
3e60: 20 66 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f 62   foreach f [glob
3e70: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 73   -nocomplain tes
3e80: 74 2e 64 62 2d 6d 6a 2a 5d 20 7b 0a 20 20 20 20  t.db-mj*] {.    
3e90: 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72  file delete -for
3ea0: 63 65 20 24 66 0a 20 20 7d 0a 20 20 65 78 69 74  ce $f.  }.  exit
3eb0: 20 5b 65 78 70 72 20 7b 24 6e 45 72 72 3e 30 7d   [expr {$nErr>0}
3ec0: 5d 0a 7d 0a 0a 23 20 44 69 73 70 6c 61 79 20 6d  ].}..# Display m
3ed0: 65 6d 6f 72 79 20 73 74 61 74 69 73 74 69 63 73  emory statistics
3ee0: 20 66 6f 72 20 61 6e 61 6c 79 73 69 73 20 61 6e   for analysis an
3ef0: 64 20 64 65 62 75 67 67 69 6e 67 20 70 75 72 70  d debugging purp
3f00: 6f 73 65 73 2e 0a 23 0a 70 72 6f 63 20 73 68 6f  oses..#.proc sho
3f10: 77 5f 6d 65 6d 73 74 61 74 73 20 7b 7d 20 7b 0a  w_memstats {} {.
3f20: 20 20 73 65 74 20 78 20 5b 73 71 6c 69 74 65 33    set x [sqlite3
3f30: 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53  _status SQLITE_S
3f40: 54 41 54 55 53 5f 4d 45 4d 4f 52 59 5f 55 53 45  TATUS_MEMORY_USE
3f50: 44 20 30 5d 0a 20 20 73 65 74 20 79 20 5b 73 71  D 0].  set y [sq
3f60: 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c  lite3_status SQL
3f70: 49 54 45 5f 53 54 41 54 55 53 5f 4d 41 4c 4c 4f  ITE_STATUS_MALLO
3f80: 43 5f 53 49 5a 45 20 30 5d 0a 20 20 73 65 74 20  C_SIZE 0].  set 
3f90: 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b 6e 6f 77  val [format {now
3fa0: 20 25 31 30 64 20 20 6d 61 78 20 25 31 30 64 20   %10d  max %10d 
3fb0: 20 6d 61 78 2d 73 69 7a 65 20 25 31 30 64 7d 20   max-size %10d} 
3fc0: 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  \.              
3fd0: 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d 20 5b 6c  [lindex $x 1] [l
3fe0: 69 6e 64 65 78 20 24 78 20 32 5d 20 5b 6c 69 6e  index $x 2] [lin
3ff0: 64 65 78 20 24 79 20 32 5d 5d 0a 20 20 70 75 74  dex $y 2]].  put
4000: 73 20 22 4d 65 6d 6f 72 79 20 75 73 65 64 3a 20  s "Memory used: 
4010: 20 20 20 20 20 20 20 20 20 24 76 61 6c 22 0a 20           $val". 
4020: 20 73 65 74 20 78 20 5b 73 71 6c 69 74 65 33 5f   set x [sqlite3_
4030: 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54  status SQLITE_ST
4040: 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f 43 4f 55 4e  ATUS_MALLOC_COUN
4050: 54 20 30 5d 0a 20 20 73 65 74 20 76 61 6c 20 5b  T 0].  set val [
4060: 66 6f 72 6d 61 74 20 7b 6e 6f 77 20 25 31 30 64  format {now %10d
4070: 20 20 6d 61 78 20 25 31 30 64 7d 20 5b 6c 69 6e    max %10d} [lin
4080: 64 65 78 20 24 78 20 31 5d 20 5b 6c 69 6e 64 65  dex $x 1] [linde
4090: 78 20 24 78 20 32 5d 5d 0a 20 20 70 75 74 73 20  x $x 2]].  puts 
40a0: 22 41 6c 6c 6f 63 61 74 69 6f 6e 20 63 6f 75 6e  "Allocation coun
40b0: 74 3a 20 20 20 20 20 24 76 61 6c 22 0a 20 20 73  t:     $val".  s
40c0: 65 74 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74  et x [sqlite3_st
40d0: 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54  atus SQLITE_STAT
40e0: 55 53 5f 50 41 47 45 43 41 43 48 45 5f 55 53 45  US_PAGECACHE_USE
40f0: 44 20 30 5d 0a 20 20 73 65 74 20 79 20 5b 73 71  D 0].  set y [sq
4100: 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c  lite3_status SQL
4110: 49 54 45 5f 53 54 41 54 55 53 5f 50 41 47 45 43  ITE_STATUS_PAGEC
4120: 41 43 48 45 5f 53 49 5a 45 20 30 5d 0a 20 20 73  ACHE_SIZE 0].  s
4130: 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b  et val [format {
4140: 6e 6f 77 20 25 31 30 64 20 20 6d 61 78 20 25 31  now %10d  max %1
4150: 30 64 20 20 6d 61 78 2d 73 69 7a 65 20 25 31 30  0d  max-size %10
4160: 64 7d 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20  d} \.           
4170: 20 20 20 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d     [lindex $x 1]
4180: 20 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 20 5b   [lindex $x 2] [
4190: 6c 69 6e 64 65 78 20 24 79 20 32 5d 5d 0a 20 20  lindex $y 2]].  
41a0: 70 75 74 73 20 22 50 61 67 65 2d 63 61 63 68 65  puts "Page-cache
41b0: 20 75 73 65 64 3a 20 20 20 20 20 20 24 76 61 6c   used:      $val
41c0: 22 0a 20 20 73 65 74 20 78 20 5b 73 71 6c 69 74  ".  set x [sqlit
41d0: 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45  e3_status SQLITE
41e0: 5f 53 54 41 54 55 53 5f 50 41 47 45 43 41 43 48  _STATUS_PAGECACH
41f0: 45 5f 4f 56 45 52 46 4c 4f 57 20 30 5d 0a 20 20  E_OVERFLOW 0].  
4200: 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20  set val [format 
4210: 7b 6e 6f 77 20 25 31 30 64 20 20 6d 61 78 20 25  {now %10d  max %
4220: 31 30 64 7d 20 5b 6c 69 6e 64 65 78 20 24 78 20  10d} [lindex $x 
4230: 31 5d 20 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d  1] [lindex $x 2]
4240: 5d 0a 20 20 70 75 74 73 20 22 50 61 67 65 2d 63  ].  puts "Page-c
4250: 61 63 68 65 20 6f 76 65 72 66 6c 6f 77 3a 20 20  ache overflow:  
4260: 24 76 61 6c 22 0a 20 20 73 65 74 20 78 20 5b 73  $val".  set x [s
4270: 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 51  qlite3_status SQ
4280: 4c 49 54 45 5f 53 54 41 54 55 53 5f 53 43 52 41  LITE_STATUS_SCRA
4290: 54 43 48 5f 55 53 45 44 20 30 5d 0a 20 20 73 65  TCH_USED 0].  se
42a0: 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b 6e  t val [format {n
42b0: 6f 77 20 25 31 30 64 20 20 6d 61 78 20 25 31 30  ow %10d  max %10
42c0: 64 7d 20 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d  d} [lindex $x 1]
42d0: 20 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 5d 0a   [lindex $x 2]].
42e0: 20 20 70 75 74 73 20 22 53 63 72 61 74 63 68 20    puts "Scratch 
42f0: 6d 65 6d 6f 72 79 20 75 73 65 64 3a 20 20 24 76  memory used:  $v
4300: 61 6c 22 0a 20 20 73 65 74 20 78 20 5b 73 71 6c  al".  set x [sql
4310: 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49  ite3_status SQLI
4320: 54 45 5f 53 54 41 54 55 53 5f 53 43 52 41 54 43  TE_STATUS_SCRATC
4330: 48 5f 4f 56 45 52 46 4c 4f 57 20 30 5d 0a 20 20  H_OVERFLOW 0].  
4340: 73 65 74 20 79 20 5b 73 71 6c 69 74 65 33 5f 73  set y [sqlite3_s
4350: 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41  tatus SQLITE_STA
4360: 54 55 53 5f 53 43 52 41 54 43 48 5f 53 49 5a 45  TUS_SCRATCH_SIZE
4370: 20 30 5d 0a 20 20 73 65 74 20 76 61 6c 20 5b 66   0].  set val [f
4380: 6f 72 6d 61 74 20 7b 6e 6f 77 20 25 31 30 64 20  ormat {now %10d 
4390: 20 6d 61 78 20 25 31 30 64 20 20 6d 61 78 2d 73   max %10d  max-s
43a0: 69 7a 65 20 25 31 30 64 7d 20 5c 0a 20 20 20 20  ize %10d} \.    
43b0: 20 20 20 20 20 20 20 20 20 20 20 5b 6c 69 6e 64             [lind
43c0: 65 78 20 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78  ex $x 1] [lindex
43d0: 20 24 78 20 32 5d 20 5b 6c 69 6e 64 65 78 20 24   $x 2] [lindex $
43e0: 79 20 32 5d 5d 0a 20 20 70 75 74 73 20 22 53 63  y 2]].  puts "Sc
43f0: 72 61 74 63 68 20 6f 76 65 72 66 6c 6f 77 3a 20  ratch overflow: 
4400: 20 20 20 20 24 76 61 6c 22 0a 20 20 69 66 63 61      $val".  ifca
4410: 70 61 62 6c 65 20 79 79 74 72 61 63 6b 6d 61 78  pable yytrackmax
4420: 73 74 61 63 6b 64 65 70 74 68 20 7b 0a 20 20 20  stackdepth {.   
4430: 20 73 65 74 20 78 20 5b 73 71 6c 69 74 65 33 5f   set x [sqlite3_
4440: 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54  status SQLITE_ST
4450: 41 54 55 53 5f 50 41 52 53 45 52 5f 53 54 41 43  ATUS_PARSER_STAC
4460: 4b 20 30 5d 0a 20 20 20 20 73 65 74 20 76 61 6c  K 0].    set val
4470: 20 5b 66 6f 72 6d 61 74 20 7b 20 20 20 20 20 20   [format {      
4480: 20 20 20 20 20 20 20 20 20 6d 61 78 20 25 31 30           max %10
4490: 64 7d 20 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d  d} [lindex $x 2]
44a0: 5d 0a 20 20 20 20 70 75 74 73 20 22 50 61 72 73  ].    puts "Pars
44b0: 65 72 20 73 74 61 63 6b 20 64 65 70 74 68 3a 20  er stack depth: 
44c0: 20 20 20 24 76 61 6c 22 0a 20 20 7d 0a 7d 0a 0a     $val".  }.}..
44d0: 23 20 41 20 70 72 6f 63 65 64 75 72 65 20 74 6f  # A procedure to
44e0: 20 65 78 65 63 75 74 65 20 53 51 4c 0a 23 0a 70   execute SQL.#.p
44f0: 72 6f 63 20 65 78 65 63 73 71 6c 20 7b 73 71 6c  roc execsql {sql
4500: 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 23 20   {db db}} {.  # 
4510: 70 75 74 73 20 22 53 51 4c 20 3d 20 24 73 71 6c  puts "SQL = $sql
4520: 22 0a 20 20 75 70 6c 65 76 65 6c 20 5b 6c 69 73  ".  uplevel [lis
4530: 74 20 24 64 62 20 65 76 61 6c 20 24 73 71 6c 5d  t $db eval $sql]
4540: 0a 7d 0a 0a 23 20 45 78 65 63 75 74 65 20 53 51  .}..# Execute SQ
4550: 4c 20 61 6e 64 20 63 61 74 63 68 20 65 78 63 65  L and catch exce
4560: 70 74 69 6f 6e 73 2e 0a 23 0a 70 72 6f 63 20 63  ptions..#.proc c
4570: 61 74 63 68 73 71 6c 20 7b 73 71 6c 20 7b 64 62  atchsql {sql {db
4580: 20 64 62 7d 7d 20 7b 0a 20 20 23 20 70 75 74 73   db}} {.  # puts
4590: 20 22 53 51 4c 20 3d 20 24 73 71 6c 22 0a 20 20   "SQL = $sql".  
45a0: 73 65 74 20 72 20 5b 63 61 74 63 68 20 5b 6c 69  set r [catch [li
45b0: 73 74 20 75 70 6c 65 76 65 6c 20 5b 6c 69 73 74  st uplevel [list
45c0: 20 24 64 62 20 65 76 61 6c 20 24 73 71 6c 5d 5d   $db eval $sql]]
45d0: 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20   msg].  lappend 
45e0: 72 20 24 6d 73 67 0a 20 20 72 65 74 75 72 6e 20  r $msg.  return 
45f0: 24 72 0a 7d 0a 0a 23 20 44 6f 20 61 6e 20 56 44  $r.}..# Do an VD
4600: 42 45 20 63 6f 64 65 20 64 75 6d 70 20 6f 6e 20  BE code dump on 
4610: 74 68 65 20 53 51 4c 20 67 69 76 65 6e 0a 23 0a  the SQL given.#.
4620: 70 72 6f 63 20 65 78 70 6c 61 69 6e 20 7b 73 71  proc explain {sq
4630: 6c 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 70  l {db db}} {.  p
4640: 75 74 73 20 22 22 0a 20 20 70 75 74 73 20 22 61  uts "".  puts "a
4650: 64 64 72 20 20 6f 70 63 6f 64 65 20 20 20 20 20  ddr  opcode     
4660: 20 20 20 70 31 20 20 20 20 20 20 70 32 20 20 20     p1      p2   
4670: 20 20 20 70 33 20 20 20 20 20 20 70 34 20 20 20     p3      p4   
4680: 20 20 20 20 20 20 20 20 20 20 20 20 70 35 20 20              p5  
4690: 23 22 0a 20 20 70 75 74 73 20 22 2d 2d 2d 2d 20  #".  puts "---- 
46a0: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d   ------------  -
46b0: 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d  -----  ------  -
46c0: 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d  -----  ---------
46d0: 2d 2d 2d 2d 2d 2d 20 20 2d 2d 20 20 2d 22 0a 20  ------  --  -". 
46e0: 20 24 64 62 20 65 76 61 6c 20 22 65 78 70 6c 61   $db eval "expla
46f0: 69 6e 20 24 73 71 6c 22 20 7b 7d 20 7b 0a 20 20  in $sql" {} {.  
4700: 20 20 70 75 74 73 20 5b 66 6f 72 6d 61 74 20 7b    puts [format {
4710: 25 2d 34 64 20 20 25 2d 31 32 2e 31 32 73 20 20  %-4d  %-12.12s  
4720: 25 2d 36 64 20 20 25 2d 36 64 20 20 25 2d 36 64  %-6d  %-6d  %-6d
4730: 20 20 25 20 2d 31 37 73 20 25 73 20 20 25 73 7d    % -17s %s  %s}
4740: 20 5c 0a 20 20 20 20 20 20 24 61 64 64 72 20 24   \.      $addr $
4750: 6f 70 63 6f 64 65 20 24 70 31 20 24 70 32 20 24  opcode $p1 $p2 $
4760: 70 33 20 24 70 34 20 24 70 35 20 24 63 6f 6d 6d  p3 $p4 $p5 $comm
4770: 65 6e 74 0a 20 20 20 20 5d 0a 20 20 7d 0a 7d 0a  ent.    ].  }.}.
4780: 0a 23 20 53 68 6f 77 20 74 68 65 20 56 44 42 45  .# Show the VDBE
4790: 20 70 72 6f 67 72 61 6d 20 66 6f 72 20 61 6e 20   program for an 
47a0: 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 20 62 75  SQL statement bu
47b0: 74 20 6f 6d 69 74 20 74 68 65 20 54 72 61 63 65  t omit the Trace
47c0: 0a 23 20 6f 70 63 6f 64 65 20 61 74 20 74 68 65  .# opcode at the
47d0: 20 62 65 67 69 6e 6e 69 6e 67 2e 20 20 54 68 69   beginning.  Thi
47e0: 73 20 70 72 6f 63 65 64 75 72 65 20 63 61 6e 20  s procedure can 
47f0: 62 65 20 75 73 65 64 20 74 6f 20 70 72 6f 76 65  be used to prove
4800: 0a 23 20 74 68 61 74 20 64 69 66 66 65 72 65 6e  .# that differen
4810: 74 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 73  t SQL statements
4820: 20 67 65 6e 65 72 61 74 65 20 65 78 61 63 74 6c   generate exactl
4830: 79 20 74 68 65 20 73 61 6d 65 20 56 44 42 45 20  y the same VDBE 
4840: 63 6f 64 65 2e 0a 23 0a 70 72 6f 63 20 65 78 70  code..#.proc exp
4850: 6c 61 69 6e 5f 6e 6f 5f 74 72 61 63 65 20 7b 73  lain_no_trace {s
4860: 71 6c 7d 20 7b 0a 20 20 73 65 74 20 74 72 20 5b  ql} {.  set tr [
4870: 64 62 20 65 76 61 6c 20 22 45 58 50 4c 41 49 4e  db eval "EXPLAIN
4880: 20 24 73 71 6c 22 5d 0a 20 20 72 65 74 75 72 6e   $sql"].  return
4890: 20 5b 6c 72 61 6e 67 65 20 24 74 72 20 37 20 65   [lrange $tr 7 e
48a0: 6e 64 5d 0a 7d 0a 0a 23 20 41 6e 6f 74 68 65 72  nd].}..# Another
48b0: 20 70 72 6f 63 65 64 75 72 65 20 74 6f 20 65 78   procedure to ex
48c0: 65 63 75 74 65 20 53 51 4c 2e 20 20 54 68 69 73  ecute SQL.  This
48d0: 20 6f 6e 65 20 69 6e 63 6c 75 64 65 73 20 74 68   one includes th
48e0: 65 20 66 69 65 6c 64 0a 23 20 6e 61 6d 65 73 20  e field.# names 
48f0: 69 6e 20 74 68 65 20 72 65 74 75 72 6e 65 64 20  in the returned 
4900: 6c 69 73 74 2e 0a 23 0a 70 72 6f 63 20 65 78 65  list..#.proc exe
4910: 63 73 71 6c 32 20 7b 73 71 6c 7d 20 7b 0a 20 20  csql2 {sql} {.  
4920: 73 65 74 20 72 65 73 75 6c 74 20 7b 7d 0a 20 20  set result {}.  
4930: 64 62 20 65 76 61 6c 20 24 73 71 6c 20 64 61 74  db eval $sql dat
4940: 61 20 7b 0a 20 20 20 20 66 6f 72 65 61 63 68 20  a {.    foreach 
4950: 66 20 24 64 61 74 61 28 2a 29 20 7b 0a 20 20 20  f $data(*) {.   
4960: 20 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c     lappend resul
4970: 74 20 24 66 20 24 64 61 74 61 28 24 66 29 0a 20  t $f $data($f). 
4980: 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72     }.  }.  retur
4990: 6e 20 24 72 65 73 75 6c 74 0a 7d 0a 0a 23 20 55  n $result.}..# U
49a0: 73 65 20 74 68 65 20 6e 6f 6e 2d 63 61 6c 6c 62  se the non-callb
49b0: 61 63 6b 20 41 50 49 20 74 6f 20 65 78 65 63 75  ack API to execu
49c0: 74 65 20 6d 75 6c 74 69 70 6c 65 20 53 51 4c 20  te multiple SQL 
49d0: 73 74 61 74 65 6d 65 6e 74 73 0a 23 0a 70 72 6f  statements.#.pro
49e0: 63 20 73 74 65 70 73 71 6c 20 7b 64 62 70 74 72  c stepsql {dbptr
49f0: 20 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20 73 71   sql} {.  set sq
4a00: 6c 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24  l [string trim $
4a10: 73 71 6c 5d 0a 20 20 73 65 74 20 72 20 30 0a 20  sql].  set r 0. 
4a20: 20 77 68 69 6c 65 20 7b 5b 73 74 72 69 6e 67 20   while {[string 
4a30: 6c 65 6e 67 74 68 20 24 73 71 6c 5d 3e 30 7d 20  length $sql]>0} 
4a40: 7b 0a 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68  {.    if {[catch
4a50: 20 7b 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72   {sqlite3_prepar
4a60: 65 20 24 64 62 70 74 72 20 24 73 71 6c 20 2d 31  e $dbptr $sql -1
4a70: 20 73 71 6c 74 61 69 6c 7d 20 76 6d 5d 7d 20 7b   sqltail} vm]} {
4a80: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c  .      return [l
4a90: 69 73 74 20 31 20 24 76 6d 5d 0a 20 20 20 20 7d  ist 1 $vm].    }
4aa0: 0a 20 20 20 20 73 65 74 20 73 71 6c 20 5b 73 74  .    set sql [st
4ab0: 72 69 6e 67 20 74 72 69 6d 20 24 73 71 6c 74 61  ring trim $sqlta
4ac0: 69 6c 5d 0a 23 20 20 20 20 77 68 69 6c 65 20 7b  il].#    while {
4ad0: 5b 73 71 6c 69 74 65 5f 73 74 65 70 20 24 76 6d  [sqlite_step $vm
4ae0: 20 4e 20 56 41 4c 20 43 4f 4c 5d 3d 3d 22 53 51   N VAL COL]=="SQ
4af0: 4c 49 54 45 5f 52 4f 57 22 7d 20 7b 0a 23 20 20  LITE_ROW"} {.#  
4b00: 20 20 20 20 66 6f 72 65 61 63 68 20 76 20 24 56      foreach v $V
4b10: 41 4c 20 7b 6c 61 70 70 65 6e 64 20 72 20 24 76  AL {lappend r $v
4b20: 7d 0a 23 20 20 20 20 7d 0a 20 20 20 20 77 68 69  }.#    }.    whi
4b30: 6c 65 20 7b 5b 73 71 6c 69 74 65 33 5f 73 74 65  le {[sqlite3_ste
4b40: 70 20 24 76 6d 5d 3d 3d 22 53 51 4c 49 54 45 5f  p $vm]=="SQLITE_
4b50: 52 4f 57 22 7d 20 7b 0a 20 20 20 20 20 20 66 6f  ROW"} {.      fo
4b60: 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 3c  r {set i 0} {$i<
4b70: 5b 73 71 6c 69 74 65 33 5f 64 61 74 61 5f 63 6f  [sqlite3_data_co
4b80: 75 6e 74 20 24 76 6d 5d 7d 20 7b 69 6e 63 72 20  unt $vm]} {incr 
4b90: 69 7d 20 7b 0a 20 20 20 20 20 20 20 20 6c 61 70  i} {.        lap
4ba0: 70 65 6e 64 20 72 20 5b 73 71 6c 69 74 65 33 5f  pend r [sqlite3_
4bb0: 63 6f 6c 75 6d 6e 5f 74 65 78 74 20 24 76 6d 20  column_text $vm 
4bc0: 24 69 5d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  $i].      }.    
4bd0: 7d 0a 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68  }.    if {[catch
4be0: 20 7b 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69   {sqlite3_finali
4bf0: 7a 65 20 24 76 6d 7d 20 65 72 72 6d 73 67 5d 7d  ze $vm} errmsg]}
4c00: 20 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20   {.      return 
4c10: 5b 6c 69 73 74 20 31 20 24 65 72 72 6d 73 67 5d  [list 1 $errmsg]
4c20: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74  .    }.  }.  ret
4c30: 75 72 6e 20 24 72 0a 7d 0a 0a 23 20 44 65 6c 65  urn $r.}..# Dele
4c40: 74 65 20 61 20 66 69 6c 65 20 6f 72 20 64 69 72  te a file or dir
4c50: 65 63 74 6f 72 79 0a 23 0a 70 72 6f 63 20 66 6f  ectory.#.proc fo
4c60: 72 63 65 64 65 6c 65 74 65 20 7b 61 72 67 73 7d  rcedelete {args}
4c70: 20 7b 0a 20 20 66 6f 72 65 61 63 68 20 66 69 6c   {.  foreach fil
4c80: 65 6e 61 6d 65 20 24 61 72 67 73 20 7b 0a 20 20  ename $args {.  
4c90: 20 20 23 20 4f 6e 20 77 69 6e 64 6f 77 73 2c 20    # On windows, 
4ca0: 73 6f 6d 65 74 69 6d 65 73 20 65 76 65 6e 20 61  sometimes even a
4cb0: 20 5b 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66   [file delete -f
4cc0: 6f 72 63 65 5d 20 63 61 6e 20 66 61 69 6c 20 6a  orce] can fail j
4cd0: 75 73 74 20 61 66 74 65 72 0a 20 20 20 20 23 20  ust after.    # 
4ce0: 61 20 66 69 6c 65 20 69 73 20 63 6c 6f 73 65 64  a file is closed
4cf0: 2e 20 54 68 65 20 63 61 75 73 65 20 69 73 20 75  . The cause is u
4d00: 73 75 61 6c 6c 79 20 22 74 61 67 2d 61 6c 6f 6e  sually "tag-alon
4d10: 67 73 22 20 2d 20 70 72 6f 67 72 61 6d 73 20 6c  gs" - programs l
4d20: 69 6b 65 0a 20 20 20 20 23 20 61 6e 74 69 2d 76  ike.    # anti-v
4d30: 69 72 75 73 20 73 6f 66 74 77 61 72 65 2c 20 61  irus software, a
4d40: 75 74 6f 6d 61 74 69 63 20 62 61 63 6b 75 70 20  utomatic backup 
4d50: 74 6f 6f 6c 73 20 61 6e 64 20 76 61 72 69 6f 75  tools and variou
4d60: 73 20 65 78 70 6c 6f 72 65 72 0a 20 20 20 20 23  s explorer.    #
4d70: 20 65 78 74 65 6e 73 69 6f 6e 73 20 74 68 61 74   extensions that
4d80: 20 6b 65 65 70 20 61 20 66 69 6c 65 20 6f 70 65   keep a file ope
4d90: 6e 20 61 20 6c 69 74 74 6c 65 20 6c 6f 6e 67 65  n a little longe
4da0: 72 20 74 68 61 6e 20 77 65 20 65 78 70 65 63 74  r than we expect
4db0: 2c 20 63 61 75 73 69 6e 67 0a 20 20 20 20 23 20  , causing.    # 
4dc0: 74 68 65 20 64 65 6c 65 74 65 20 74 6f 20 66 61  the delete to fa
4dd0: 69 6c 2e 0a 20 20 20 20 23 0a 20 20 20 20 23 20  il..    #.    # 
4de0: 54 68 65 20 73 6f 6c 75 74 69 6f 6e 20 69 73 20  The solution is 
4df0: 74 6f 20 77 61 69 74 20 61 20 73 68 6f 72 74 20  to wait a short 
4e00: 61 6d 6f 75 6e 74 20 6f 66 20 74 69 6d 65 20 62  amount of time b
4e10: 65 66 6f 72 65 20 72 65 74 72 79 69 6e 67 20 74  efore retrying t
4e20: 68 65 20 0a 20 20 20 20 23 20 64 65 6c 65 74 65  he .    # delete
4e30: 2e 0a 20 20 20 20 23 0a 20 20 20 20 73 65 74 20  ..    #.    set 
4e40: 6e 52 65 74 72 79 20 20 35 30 20 20 20 20 20 20  nRetry  50      
4e50: 20 20 20 20 20 20 20 20 20 20 20 20 3b 23 20 4d              ;# M
4e60: 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66  aximum number of
4e70: 20 72 65 74 72 69 65 73 2e 0a 20 20 20 20 73 65   retries..    se
4e80: 74 20 6e 44 65 6c 61 79 20 31 30 30 20 20 20 20  t nDelay 100    
4e90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 23                ;#
4ea0: 20 44 65 6c 61 79 20 69 6e 20 6d 73 20 62 65 66   Delay in ms bef
4eb0: 6f 72 65 20 72 65 74 72 79 69 6e 67 2e 0a 20 20  ore retrying..  
4ec0: 20 20 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20    for {set i 0} 
4ed0: 7b 24 69 3c 24 6e 52 65 74 72 79 7d 20 7b 69 6e  {$i<$nRetry} {in
4ee0: 63 72 20 69 7d 20 7b 0a 20 20 20 20 20 20 73 65  cr i} {.      se
4ef0: 74 20 72 63 20 5b 63 61 74 63 68 20 7b 66 69 6c  t rc [catch {fil
4f00: 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20  e delete -force 
4f10: 24 66 69 6c 65 6e 61 6d 65 7d 20 6d 73 67 5d 0a  $filename} msg].
4f20: 20 20 20 20 20 20 69 66 20 7b 24 72 63 3d 3d 30        if {$rc==0
4f30: 7d 20 62 72 65 61 6b 0a 20 20 20 20 20 20 61 66  } break.      af
4f40: 74 65 72 20 24 6e 44 65 6c 61 79 0a 20 20 20 20  ter $nDelay.    
4f50: 7d 0a 20 20 20 20 69 66 20 7b 24 72 63 7d 20 7b  }.    if {$rc} {
4f60: 20 65 72 72 6f 72 20 24 6d 73 67 20 7d 0a 20 20   error $msg }.  
4f70: 7d 0a 7d 0a 0a 23 20 44 6f 20 61 6e 20 69 6e 74  }.}..# Do an int
4f80: 65 67 72 69 74 79 20 63 68 65 63 6b 20 6f 66 20  egrity check of 
4f90: 74 68 65 20 65 6e 74 69 72 65 20 64 61 74 61 62  the entire datab
4fa0: 61 73 65 0a 23 0a 70 72 6f 63 20 69 6e 74 65 67  ase.#.proc integ
4fb0: 72 69 74 79 5f 63 68 65 63 6b 20 7b 6e 61 6d 65  rity_check {name
4fc0: 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 69 66   {db db}} {.  if
4fd0: 63 61 70 61 62 6c 65 20 69 6e 74 65 67 72 69 74  capable integrit
4fe0: 79 63 6b 20 7b 0a 20 20 20 20 64 6f 5f 74 65 73  yck {.    do_tes
4ff0: 74 20 24 6e 61 6d 65 20 5b 6c 69 73 74 20 65 78  t $name [list ex
5000: 65 63 73 71 6c 20 7b 50 52 41 47 4d 41 20 69 6e  ecsql {PRAGMA in
5010: 74 65 67 72 69 74 79 5f 63 68 65 63 6b 7d 20 24  tegrity_check} $
5020: 64 62 5d 20 7b 6f 6b 7d 0a 20 20 7d 0a 7d 0a 0a  db] {ok}.  }.}..
5030: 70 72 6f 63 20 66 69 78 5f 69 66 63 61 70 61 62  proc fix_ifcapab
5040: 6c 65 5f 65 78 70 72 20 7b 65 78 70 72 7d 20 7b  le_expr {expr} {
5050: 0a 20 20 73 65 74 20 72 65 74 20 22 22 0a 20 20  .  set ret "".  
5060: 73 65 74 20 73 74 61 74 65 20 30 0a 20 20 66 6f  set state 0.  fo
5070: 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 20  r {set i 0} {$i 
5080: 3c 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68  < [string length
5090: 20 24 65 78 70 72 5d 7d 20 7b 69 6e 63 72 20 69   $expr]} {incr i
50a0: 7d 20 7b 0a 20 20 20 20 73 65 74 20 63 68 61 72  } {.    set char
50b0: 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24   [string range $
50c0: 65 78 70 72 20 24 69 20 24 69 5d 0a 20 20 20 20  expr $i $i].    
50d0: 73 65 74 20 6e 65 77 73 74 61 74 65 20 5b 65 78  set newstate [ex
50e0: 70 72 20 7b 5b 73 74 72 69 6e 67 20 69 73 20 61  pr {[string is a
50f0: 6c 6e 75 6d 20 24 63 68 61 72 5d 20 7c 7c 20 24  lnum $char] || $
5100: 63 68 61 72 20 65 71 20 22 5f 22 7d 5d 0a 20 20  char eq "_"}].  
5110: 20 20 69 66 20 7b 24 6e 65 77 73 74 61 74 65 20    if {$newstate 
5120: 26 26 20 21 24 73 74 61 74 65 7d 20 7b 0a 20 20  && !$state} {.  
5130: 20 20 20 20 61 70 70 65 6e 64 20 72 65 74 20 7b      append ret {
5140: 24 3a 3a 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e  $::sqlite_option
5150: 73 28 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66  s(}.    }.    if
5160: 20 7b 21 24 6e 65 77 73 74 61 74 65 20 26 26 20   {!$newstate && 
5170: 24 73 74 61 74 65 7d 20 7b 0a 20 20 20 20 20 20  $state} {.      
5180: 61 70 70 65 6e 64 20 72 65 74 20 29 0a 20 20 20  append ret ).   
5190: 20 7d 0a 20 20 20 20 61 70 70 65 6e 64 20 72 65   }.    append re
51a0: 74 20 24 63 68 61 72 0a 20 20 20 20 73 65 74 20  t $char.    set 
51b0: 73 74 61 74 65 20 24 6e 65 77 73 74 61 74 65 0a  state $newstate.
51c0: 20 20 7d 0a 20 20 69 66 20 7b 24 73 74 61 74 65    }.  if {$state
51d0: 7d 20 7b 61 70 70 65 6e 64 20 72 65 74 20 29 7d  } {append ret )}
51e0: 0a 20 20 72 65 74 75 72 6e 20 24 72 65 74 0a 7d  .  return $ret.}
51f0: 0a 0a 23 20 45 76 61 6c 75 61 74 65 20 61 20 62  ..# Evaluate a b
5200: 6f 6f 6c 65 61 6e 20 65 78 70 72 65 73 73 69 6f  oolean expressio
5210: 6e 20 6f 66 20 63 61 70 61 62 69 6c 69 74 69 65  n of capabilitie
5220: 73 2e 20 20 49 66 20 74 72 75 65 2c 20 65 78 65  s.  If true, exe
5230: 63 75 74 65 20 74 68 65 0a 23 20 63 6f 64 65 2e  cute the.# code.
5240: 20 20 4f 6d 69 74 20 74 68 65 20 63 6f 64 65 20    Omit the code 
5250: 69 66 20 66 61 6c 73 65 2e 0a 23 0a 70 72 6f 63  if false..#.proc
5260: 20 69 66 63 61 70 61 62 6c 65 20 7b 65 78 70 72   ifcapable {expr
5270: 20 63 6f 64 65 20 7b 65 6c 73 65 20 22 22 7d 20   code {else ""} 
5280: 7b 65 6c 73 65 63 6f 64 65 20 22 22 7d 7d 20 7b  {elsecode ""}} {
5290: 0a 20 20 23 72 65 67 73 75 62 20 2d 61 6c 6c 20  .  #regsub -all 
52a0: 7b 5b 61 2d 7a 5f 30 2d 39 5d 2b 7d 20 24 65 78  {[a-z_0-9]+} $ex
52b0: 70 72 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 6f 70  pr {$::sqlite_op
52c0: 74 69 6f 6e 73 28 26 29 7d 20 65 32 0a 20 20 73  tions(&)} e2.  s
52d0: 65 74 20 65 32 20 5b 66 69 78 5f 69 66 63 61 70  et e2 [fix_ifcap
52e0: 61 62 6c 65 5f 65 78 70 72 20 24 65 78 70 72 5d  able_expr $expr]
52f0: 0a 20 20 69 66 20 28 24 65 32 29 20 7b 0a 20 20  .  if ($e2) {.  
5300: 20 20 73 65 74 20 63 20 5b 63 61 74 63 68 20 7b    set c [catch {
5310: 75 70 6c 65 76 65 6c 20 31 20 24 63 6f 64 65 7d  uplevel 1 $code}
5320: 20 72 5d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20   r].  } else {. 
5330: 20 20 20 73 65 74 20 63 20 5b 63 61 74 63 68 20     set c [catch 
5340: 7b 75 70 6c 65 76 65 6c 20 31 20 24 65 6c 73 65  {uplevel 1 $else
5350: 63 6f 64 65 7d 20 72 5d 0a 20 20 7d 0a 20 20 72  code} r].  }.  r
5360: 65 74 75 72 6e 20 2d 63 6f 64 65 20 24 63 20 24  eturn -code $c $
5370: 72 0a 7d 0a 0a 23 20 54 68 69 73 20 70 72 6f 63  r.}..# This proc
5380: 20 65 78 65 63 73 20 61 20 73 65 70 65 72 61 74   execs a seperat
5390: 65 20 70 72 6f 63 65 73 73 20 74 68 61 74 20 63  e process that c
53a0: 72 61 73 68 65 73 20 6d 69 64 77 61 79 20 74 68  rashes midway th
53b0: 72 6f 75 67 68 20 65 78 65 63 75 74 69 6e 67 0a  rough executing.
53c0: 23 20 74 68 65 20 53 51 4c 20 73 63 72 69 70 74  # the SQL script
53d0: 20 24 73 71 6c 20 6f 6e 20 64 61 74 61 62 61 73   $sql on databas
53e0: 65 20 74 65 73 74 2e 64 62 2e 0a 23 0a 23 20 54  e test.db..#.# T
53f0: 68 65 20 63 72 61 73 68 20 6f 63 63 75 72 73 20  he crash occurs 
5400: 64 75 72 69 6e 67 20 61 20 73 79 6e 63 28 29 20  during a sync() 
5410: 6f 66 20 66 69 6c 65 20 24 63 72 61 73 68 66 69  of file $crashfi
5420: 6c 65 2e 20 57 68 65 6e 20 74 68 65 20 63 72 61  le. When the cra
5430: 73 68 0a 23 20 6f 63 63 75 72 73 20 61 20 72 61  sh.# occurs a ra
5440: 6e 64 6f 6d 20 73 75 62 73 65 74 20 6f 66 20 61  ndom subset of a
5450: 6c 6c 20 75 6e 73 79 6e 63 65 64 20 77 72 69 74  ll unsynced writ
5460: 65 73 20 6d 61 64 65 20 62 79 20 74 68 65 20 70  es made by the p
5470: 72 6f 63 65 73 73 20 61 72 65 0a 23 20 77 72 69  rocess are.# wri
5480: 74 74 65 6e 20 69 6e 74 6f 20 74 68 65 20 66 69  tten into the fi
5490: 6c 65 73 20 6f 6e 20 64 69 73 6b 2e 20 41 72 67  les on disk. Arg
54a0: 75 6d 65 6e 74 20 24 63 72 61 73 68 64 65 6c 61  ument $crashdela
54b0: 79 20 69 6e 64 69 63 61 74 65 73 20 74 68 65 0a  y indicates the.
54c0: 23 20 6e 75 6d 62 65 72 20 6f 66 20 66 69 6c 65  # number of file
54d0: 20 73 79 6e 63 73 20 74 6f 20 77 61 69 74 20 62   syncs to wait b
54e0: 65 66 6f 72 65 20 63 72 61 73 68 69 6e 67 2e 0a  efore crashing..
54f0: 23 0a 23 20 54 68 65 20 72 65 74 75 72 6e 20 76  #.# The return v
5500: 61 6c 75 65 20 69 73 20 61 20 6c 69 73 74 20 6f  alue is a list o
5510: 66 20 74 77 6f 20 65 6c 65 6d 65 6e 74 73 2e 20  f two elements. 
5520: 54 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e  The first elemen
5530: 74 20 69 73 20 61 0a 23 20 62 6f 6f 6c 65 61 6e  t is a.# boolean
5540: 2c 20 69 6e 64 69 63 61 74 69 6e 67 20 77 68 65  , indicating whe
5550: 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 68 65 20  ther or not the 
5560: 70 72 6f 63 65 73 73 20 61 63 74 75 61 6c 6c 79  process actually
5570: 20 63 72 61 73 68 65 64 20 6f 72 0a 23 20 72 65   crashed or.# re
5580: 70 6f 72 74 65 64 20 73 6f 6d 65 20 6f 74 68 65  ported some othe
5590: 72 20 65 72 72 6f 72 2e 20 54 68 65 20 73 65 63  r error. The sec
55a0: 6f 6e 64 20 65 6c 65 6d 65 6e 74 20 69 6e 20 74  ond element in t
55b0: 68 65 20 72 65 74 75 72 6e 65 64 20 6c 69 73 74  he returned list
55c0: 20 69 73 20 74 68 65 0a 23 20 65 72 72 6f 72 20   is the.# error 
55d0: 6d 65 73 73 61 67 65 2e 20 54 68 69 73 20 69 73  message. This is
55e0: 20 22 63 68 69 6c 64 20 70 72 6f 63 65 73 73 20   "child process 
55f0: 65 78 69 74 65 64 20 61 62 6e 6f 72 6d 61 6c 6c  exited abnormall
5600: 79 22 20 69 66 20 74 68 65 20 63 72 61 73 68 0a  y" if the crash.
5610: 23 20 6f 63 63 75 72 65 64 2e 0a 23 0a 23 20 20  # occured..#.#  
5620: 20 63 72 61 73 68 73 71 6c 20 2d 64 65 6c 61 79   crashsql -delay
5630: 20 43 52 41 53 48 44 45 4c 41 59 20 2d 66 69 6c   CRASHDELAY -fil
5640: 65 20 43 52 41 53 48 46 49 4c 45 20 3f 2d 62 6c  e CRASHFILE ?-bl
5650: 6f 63 6b 73 69 7a 65 20 42 4c 4f 43 4b 53 49 5a  ocksize BLOCKSIZ
5660: 45 3f 20 24 73 71 6c 0a 23 0a 70 72 6f 63 20 63  E? $sql.#.proc c
5670: 72 61 73 68 73 71 6c 20 7b 61 72 67 73 7d 20 7b  rashsql {args} {
5680: 0a 0a 20 20 73 65 74 20 62 6c 6f 63 6b 73 69 7a  ..  set blocksiz
5690: 65 20 22 22 0a 20 20 73 65 74 20 63 72 61 73 68  e "".  set crash
56a0: 64 65 6c 61 79 20 31 0a 20 20 73 65 74 20 70 72  delay 1.  set pr
56b0: 6e 67 73 65 65 64 20 30 0a 20 20 73 65 74 20 74  ngseed 0.  set t
56c0: 63 6c 62 6f 64 79 20 7b 7d 0a 20 20 73 65 74 20  clbody {}.  set 
56d0: 63 72 61 73 68 66 69 6c 65 20 22 22 0a 20 20 73  crashfile "".  s
56e0: 65 74 20 64 63 20 22 22 0a 20 20 73 65 74 20 73  et dc "".  set s
56f0: 71 6c 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73  ql [lindex $args
5700: 20 65 6e 64 5d 0a 20 20 0a 20 20 66 6f 72 20 7b   end].  .  for {
5710: 73 65 74 20 69 69 20 30 7d 20 7b 24 69 69 20 3c  set ii 0} {$ii <
5720: 20 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 73 5d   [llength $args]
5730: 2d 31 7d 20 7b 69 6e 63 72 20 69 69 20 32 7d 20  -1} {incr ii 2} 
5740: 7b 0a 20 20 20 20 73 65 74 20 7a 20 5b 6c 69 6e  {.    set z [lin
5750: 64 65 78 20 24 61 72 67 73 20 24 69 69 5d 0a 20  dex $args $ii]. 
5760: 20 20 20 73 65 74 20 6e 20 5b 73 74 72 69 6e 67     set n [string
5770: 20 6c 65 6e 67 74 68 20 24 7a 5d 0a 20 20 20 20   length $z].    
5780: 73 65 74 20 7a 32 20 5b 6c 69 6e 64 65 78 20 24  set z2 [lindex $
5790: 61 72 67 73 20 5b 65 78 70 72 20 24 69 69 2b 31  args [expr $ii+1
57a0: 5d 5d 0a 0a 20 20 20 20 69 66 20 20 20 20 20 7b  ]]..    if     {
57b0: 24 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e 67 20  $n>1 && [string 
57c0: 66 69 72 73 74 20 24 7a 20 2d 64 65 6c 61 79 5d  first $z -delay]
57d0: 3d 3d 30 7d 20 20 20 20 20 7b 73 65 74 20 63 72  ==0}     {set cr
57e0: 61 73 68 64 65 6c 61 79 20 24 7a 32 7d 20 5c 0a  ashdelay $z2} \.
57f0: 20 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31      elseif {$n>1
5800: 20 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73   && [string firs
5810: 74 20 24 7a 20 2d 73 65 65 64 5d 3d 3d 30 7d 20  t $z -seed]==0} 
5820: 20 20 20 20 20 7b 73 65 74 20 70 72 6e 67 73 65       {set prngse
5830: 65 64 20 24 7a 32 7d 20 5c 0a 20 20 20 20 65 6c  ed $z2} \.    el
5840: 73 65 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73  seif {$n>1 && [s
5850: 74 72 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d  tring first $z -
5860: 66 69 6c 65 5d 3d 3d 30 7d 20 20 20 20 20 20 7b  file]==0}      {
5870: 73 65 74 20 63 72 61 73 68 66 69 6c 65 20 24 7a  set crashfile $z
5880: 32 7d 20 20 5c 0a 20 20 20 20 65 6c 73 65 69 66  2}  \.    elseif
5890: 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e   {$n>1 && [strin
58a0: 67 20 66 69 72 73 74 20 24 7a 20 2d 74 63 6c 62  g first $z -tclb
58b0: 6f 64 79 5d 3d 3d 30 7d 20 20 20 7b 73 65 74 20  ody]==0}   {set 
58c0: 74 63 6c 62 6f 64 79 20 24 7a 32 7d 20 20 5c 0a  tclbody $z2}  \.
58d0: 20 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31      elseif {$n>1
58e0: 20 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73   && [string firs
58f0: 74 20 24 7a 20 2d 62 6c 6f 63 6b 73 69 7a 65 5d  t $z -blocksize]
5900: 3d 3d 30 7d 20 7b 73 65 74 20 62 6c 6f 63 6b 73  ==0} {set blocks
5910: 69 7a 65 20 22 2d 73 20 24 7a 32 22 20 7d 20 5c  ize "-s $z2" } \
5920: 0a 20 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e  .    elseif {$n>
5930: 31 20 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72  1 && [string fir
5940: 73 74 20 24 7a 20 2d 63 68 61 72 61 63 74 65 72  st $z -character
5950: 69 73 74 69 63 73 5d 3d 3d 30 7d 20 7b 73 65 74  istics]==0} {set
5960: 20 64 63 20 22 2d 63 20 7b 24 7a 32 7d 22 20 7d   dc "-c {$z2}" }
5970: 20 5c 0a 20 20 20 20 65 6c 73 65 20 20 20 7b 20   \.    else   { 
5980: 65 72 72 6f 72 20 22 55 6e 72 65 63 6f 67 6e 69  error "Unrecogni
5990: 7a 65 64 20 6f 70 74 69 6f 6e 3a 20 24 7a 22 20  zed option: $z" 
59a0: 7d 0a 20 20 7d 0a 0a 20 20 69 66 20 7b 24 63 72  }.  }..  if {$cr
59b0: 61 73 68 66 69 6c 65 20 65 71 20 22 22 7d 20 7b  ashfile eq ""} {
59c0: 0a 20 20 20 20 65 72 72 6f 72 20 22 43 6f 6d 70  .    error "Comp
59d0: 75 6c 73 6f 72 79 20 6f 70 74 69 6f 6e 20 2d 66  ulsory option -f
59e0: 69 6c 65 20 6d 69 73 73 69 6e 67 22 0a 20 20 7d  ile missing".  }
59f0: 0a 0a 20 20 23 20 24 63 72 61 73 68 66 69 6c 65  ..  # $crashfile
5a00: 20 67 65 74 73 20 63 6f 6d 70 61 72 65 64 20 74   gets compared t
5a10: 6f 20 74 68 65 20 6e 61 74 69 76 65 20 66 69 6c  o the native fil
5a20: 65 6e 61 6d 65 20 69 6e 20 0a 20 20 23 20 63 66  ename in .  # cf
5a30: 53 79 6e 63 28 29 2c 20 77 68 69 63 68 20 63 61  Sync(), which ca
5a40: 6e 20 62 65 20 64 69 66 66 65 72 65 6e 74 20 74  n be different t
5a50: 68 65 6e 20 77 68 61 74 20 54 43 4c 20 75 73 65  hen what TCL use
5a60: 73 20 62 79 0a 20 20 23 20 64 65 66 61 75 6c 74  s by.  # default
5a70: 2c 20 73 6f 20 68 65 72 65 20 77 65 20 66 6f 72  , so here we for
5a80: 63 65 20 69 74 20 74 6f 20 74 68 65 20 22 6e 61  ce it to the "na
5a90: 74 69 76 65 6e 61 6d 65 22 20 66 6f 72 6d 61 74  tivename" format
5aa0: 2e 0a 20 20 73 65 74 20 63 66 69 6c 65 20 5b 73  ..  set cfile [s
5ab0: 74 72 69 6e 67 20 6d 61 70 20 7b 5c 5c 20 5c 5c  tring map {\\ \\
5ac0: 5c 5c 7d 20 5b 66 69 6c 65 20 6e 61 74 69 76 65  \\} [file native
5ad0: 6e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  name [file join 
5ae0: 5b 70 77 64 5d 20 24 63 72 61 73 68 66 69 6c 65  [pwd] $crashfile
5af0: 5d 5d 5d 0a 0a 20 20 73 65 74 20 66 20 5b 6f 70  ]]]..  set f [op
5b00: 65 6e 20 63 72 61 73 68 2e 74 63 6c 20 77 5d 0a  en crash.tcl w].
5b10: 20 20 70 75 74 73 20 24 66 20 22 73 71 6c 69 74    puts $f "sqlit
5b20: 65 33 5f 63 72 61 73 68 5f 65 6e 61 62 6c 65 20  e3_crash_enable 
5b30: 31 22 0a 20 20 70 75 74 73 20 24 66 20 22 73 71  1".  puts $f "sq
5b40: 6c 69 74 65 33 5f 63 72 61 73 68 70 61 72 61 6d  lite3_crashparam
5b50: 73 20 24 62 6c 6f 63 6b 73 69 7a 65 20 24 64 63  s $blocksize $dc
5b60: 20 24 63 72 61 73 68 64 65 6c 61 79 20 24 63 66   $crashdelay $cf
5b70: 69 6c 65 22 0a 20 20 70 75 74 73 20 24 66 20 22  ile".  puts $f "
5b80: 73 71 6c 69 74 65 33 5f 74 65 73 74 5f 63 6f 6e  sqlite3_test_con
5b90: 74 72 6f 6c 5f 70 65 6e 64 69 6e 67 5f 62 79 74  trol_pending_byt
5ba0: 65 20 24 3a 3a 73 71 6c 69 74 65 5f 70 65 6e 64  e $::sqlite_pend
5bb0: 69 6e 67 5f 62 79 74 65 22 0a 20 20 70 75 74 73  ing_byte".  puts
5bc0: 20 24 66 20 22 73 71 6c 69 74 65 33 20 64 62 20   $f "sqlite3 db 
5bd0: 74 65 73 74 2e 64 62 20 2d 76 66 73 20 63 72 61  test.db -vfs cra
5be0: 73 68 22 0a 0a 20 20 23 20 54 68 69 73 20 62 6c  sh"..  # This bl
5bf0: 6f 63 6b 20 73 65 74 73 20 74 68 65 20 63 61 63  ock sets the cac
5c00: 68 65 20 73 69 7a 65 20 6f 66 20 74 68 65 20 6d  he size of the m
5c10: 61 69 6e 20 64 61 74 61 62 61 73 65 20 74 6f 20  ain database to 
5c20: 31 30 0a 20 20 23 20 70 61 67 65 73 2e 20 54 68  10.  # pages. Th
5c30: 69 73 20 69 73 20 64 6f 6e 65 20 69 6e 20 63 61  is is done in ca
5c40: 73 65 20 74 68 65 20 62 75 69 6c 64 20 69 73 20  se the build is 
5c50: 63 6f 6e 66 69 67 75 72 65 64 20 74 6f 20 6f 6d  configured to om
5c60: 69 74 0a 20 20 23 20 22 50 52 41 47 4d 41 20 63  it.  # "PRAGMA c
5c70: 61 63 68 65 5f 73 69 7a 65 22 2e 0a 20 20 70 75  ache_size"..  pu
5c80: 74 73 20 24 66 20 7b 64 62 20 65 76 61 6c 20 7b  ts $f {db eval {
5c90: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73 71  SELECT * FROM sq
5ca0: 6c 69 74 65 5f 6d 61 73 74 65 72 3b 7d 7d 0a 20  lite_master;}}. 
5cb0: 20 70 75 74 73 20 24 66 20 7b 73 65 74 20 62 74   puts $f {set bt
5cc0: 20 5b 62 74 72 65 65 5f 66 72 6f 6d 5f 64 62 20   [btree_from_db 
5cd0: 64 62 5d 7d 0a 20 20 70 75 74 73 20 24 66 20 7b  db]}.  puts $f {
5ce0: 62 74 72 65 65 5f 73 65 74 5f 63 61 63 68 65 5f  btree_set_cache_
5cf0: 73 69 7a 65 20 24 62 74 20 31 30 7d 0a 20 20 69  size $bt 10}.  i
5d00: 66 20 7b 24 70 72 6e 67 73 65 65 64 7d 20 7b 0a  f {$prngseed} {.
5d10: 20 20 20 20 73 65 74 20 73 65 65 64 20 5b 65 78      set seed [ex
5d20: 70 72 20 7b 24 70 72 6e 67 73 65 65 64 25 31 30  pr {$prngseed%10
5d30: 30 30 37 2b 31 7d 5d 0a 20 20 20 20 23 20 70 75  007+1}].    # pu
5d40: 74 73 20 73 65 65 64 3d 24 73 65 65 64 0a 20 20  ts seed=$seed.  
5d50: 20 20 70 75 74 73 20 24 66 20 22 64 62 20 65 76    puts $f "db ev
5d60: 61 6c 20 7b 53 45 4c 45 43 54 20 72 61 6e 64 6f  al {SELECT rando
5d70: 6d 62 6c 6f 62 28 24 73 65 65 64 29 7d 22 0a 20  mblob($seed)}". 
5d80: 20 7d 0a 0a 20 20 69 66 20 7b 5b 73 74 72 69 6e   }..  if {[strin
5d90: 67 20 6c 65 6e 67 74 68 20 24 74 63 6c 62 6f 64  g length $tclbod
5da0: 79 5d 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73  y]>0} {.    puts
5db0: 20 24 66 20 24 74 63 6c 62 6f 64 79 0a 20 20 7d   $f $tclbody.  }
5dc0: 0a 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c  .  if {[string l
5dd0: 65 6e 67 74 68 20 24 73 71 6c 5d 3e 30 7d 20 7b  ength $sql]>0} {
5de0: 0a 20 20 20 20 70 75 74 73 20 24 66 20 22 64 62  .    puts $f "db
5df0: 20 65 76 61 6c 20 7b 22 0a 20 20 20 20 70 75 74   eval {".    put
5e00: 73 20 24 66 20 20 20 22 24 73 71 6c 22 0a 20 20  s $f   "$sql".  
5e10: 20 20 70 75 74 73 20 24 66 20 22 7d 22 0a 20 20    puts $f "}".  
5e20: 7d 0a 20 20 63 6c 6f 73 65 20 24 66 0a 20 20 73  }.  close $f.  s
5e30: 65 74 20 72 20 5b 63 61 74 63 68 20 7b 0a 20 20  et r [catch {.  
5e40: 20 20 65 78 65 63 20 5b 69 6e 66 6f 20 6e 61 6d    exec [info nam
5e50: 65 6f 66 65 78 65 63 5d 20 63 72 61 73 68 2e 74  eofexec] crash.t
5e60: 63 6c 20 3e 40 73 74 64 6f 75 74 0a 20 20 7d 20  cl >@stdout.  } 
5e70: 6d 73 67 5d 0a 20 20 0a 20 20 23 20 57 69 6e 64  msg].  .  # Wind
5e80: 6f 77 73 2f 41 63 74 69 76 65 53 74 61 74 65 20  ows/ActiveState 
5e90: 54 43 4c 20 72 65 74 75 72 6e 73 20 61 20 73 6c  TCL returns a sl
5ea0: 69 67 68 74 6c 79 20 64 69 66 66 65 72 65 6e 74  ightly different
5eb0: 0a 20 20 23 20 65 72 72 6f 72 20 6d 65 73 73 61  .  # error messa
5ec0: 67 65 2e 20 20 57 65 20 6d 61 70 20 74 68 61 74  ge.  We map that
5ed0: 20 74 6f 20 74 68 65 20 65 78 70 65 63 74 65 64   to the expected
5ee0: 20 6d 65 73 73 61 67 65 0a 20 20 23 20 73 6f 20   message.  # so 
5ef0: 74 68 61 74 20 77 65 20 64 6f 6e 27 74 20 68 61  that we don't ha
5f00: 76 65 20 74 6f 20 63 68 61 6e 67 65 20 61 6c 6c  ve to change all
5f10: 20 6f 66 20 74 68 65 20 74 65 73 74 0a 20 20 23   of the test.  #
5f20: 20 63 61 73 65 73 2e 0a 20 20 69 66 20 7b 24 3a   cases..  if {$:
5f30: 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 70 6c  :tcl_platform(pl
5f40: 61 74 66 6f 72 6d 29 3d 3d 22 77 69 6e 64 6f 77  atform)=="window
5f50: 73 22 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 6d  s"} {.    if {$m
5f60: 73 67 3d 3d 22 63 68 69 6c 64 20 6b 69 6c 6c 65  sg=="child kille
5f70: 64 3a 20 75 6e 6b 6e 6f 77 6e 20 73 69 67 6e 61  d: unknown signa
5f80: 6c 22 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20  l"} {.      set 
5f90: 6d 73 67 20 22 63 68 69 6c 64 20 70 72 6f 63 65  msg "child proce
5fa0: 73 73 20 65 78 69 74 65 64 20 61 62 6e 6f 72 6d  ss exited abnorm
5fb0: 61 6c 6c 79 22 0a 20 20 20 20 7d 0a 20 20 7d 0a  ally".    }.  }.
5fc0: 20 20 0a 20 20 6c 61 70 70 65 6e 64 20 72 20 24    .  lappend r $
5fd0: 6d 73 67 0a 7d 0a 0a 23 20 55 73 61 67 65 3a 20  msg.}..# Usage: 
5fe0: 64 6f 5f 69 6f 65 72 72 5f 74 65 73 74 20 3c 74  do_ioerr_test <t
5ff0: 65 73 74 20 6e 75 6d 62 65 72 3e 20 3c 6f 70 74  est number> <opt
6000: 69 6f 6e 73 2e 2e 2e 3e 0a 23 0a 23 20 54 68 69  ions...>.#.# Thi
6010: 73 20 70 72 6f 63 20 69 73 20 75 73 65 64 20 74  s proc is used t
6020: 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 74 65 73 74  o implement test
6030: 20 63 61 73 65 73 20 74 68 61 74 20 63 68 65 63   cases that chec
6040: 6b 20 74 68 61 74 20 49 4f 20 65 72 72 6f 72 73  k that IO errors
6050: 0a 23 20 61 72 65 20 63 6f 72 72 65 63 74 6c 79  .# are correctly
6060: 20 68 61 6e 64 6c 65 64 2e 20 54 68 65 20 66 69   handled. The fi
6070: 72 73 74 20 61 72 67 75 6d 65 6e 74 2c 20 3c 74  rst argument, <t
6080: 65 73 74 20 6e 75 6d 62 65 72 3e 2c 20 69 73 20  est number>, is 
6090: 61 6e 20 69 6e 74 65 67 65 72 20 0a 23 20 75 73  an integer .# us
60a0: 65 64 20 74 6f 20 6e 61 6d 65 20 74 68 65 20 74  ed to name the t
60b0: 65 73 74 73 20 65 78 65 63 75 74 65 64 20 62 79  ests executed by
60c0: 20 74 68 69 73 20 70 72 6f 63 2e 20 4f 70 74 69   this proc. Opti
60d0: 6f 6e 73 20 61 72 65 20 61 73 20 66 6f 6c 6c 6f  ons are as follo
60e0: 77 73 3a 0a 23 0a 23 20 20 20 20 20 2d 74 63 6c  ws:.#.#     -tcl
60f0: 70 72 65 70 20 20 20 20 20 20 20 20 20 20 54 43  prep          TC
6100: 4c 20 73 63 72 69 70 74 20 74 6f 20 72 75 6e 20  L script to run 
6110: 74 6f 20 70 72 65 70 61 72 65 20 74 65 73 74 2e  to prepare test.
6120: 0a 23 20 20 20 20 20 2d 73 71 6c 70 72 65 70 20  .#     -sqlprep 
6130: 20 20 20 20 20 20 20 20 20 53 51 4c 20 73 63 72           SQL scr
6140: 69 70 74 20 74 6f 20 72 75 6e 20 74 6f 20 70 72  ipt to run to pr
6150: 65 70 61 72 65 20 74 65 73 74 2e 0a 23 20 20 20  epare test..#   
6160: 20 20 2d 74 63 6c 62 6f 64 79 20 20 20 20 20 20    -tclbody      
6170: 20 20 20 20 54 43 4c 20 73 63 72 69 70 74 20 74      TCL script t
6180: 6f 20 72 75 6e 20 77 69 74 68 20 49 4f 20 65 72  o run with IO er
6190: 72 6f 72 20 73 69 6d 75 6c 61 74 69 6f 6e 2e 0a  ror simulation..
61a0: 23 20 20 20 20 20 2d 73 71 6c 62 6f 64 79 20 20  #     -sqlbody  
61b0: 20 20 20 20 20 20 20 20 54 43 4c 20 73 63 72 69          TCL scri
61c0: 70 74 20 74 6f 20 72 75 6e 20 77 69 74 68 20 49  pt to run with I
61d0: 4f 20 65 72 72 6f 72 20 73 69 6d 75 6c 61 74 69  O error simulati
61e0: 6f 6e 2e 0a 23 20 20 20 20 20 2d 65 78 63 6c 75  on..#     -exclu
61f0: 64 65 20 20 20 20 20 20 20 20 20 20 4c 69 73 74  de          List
6200: 20 6f 66 20 27 4e 27 20 76 61 6c 75 65 73 20 6e   of 'N' values n
6210: 6f 74 20 74 6f 20 74 65 73 74 2e 0a 23 20 20 20  ot to test..#   
6220: 20 20 2d 65 72 63 20 20 20 20 20 20 20 20 20 20    -erc          
6230: 20 20 20 20 55 73 65 20 65 78 74 65 6e 64 65 64      Use extended
6240: 20 72 65 73 75 6c 74 20 63 6f 64 65 73 0a 23 20   result codes.# 
6250: 20 20 20 20 2d 70 65 72 73 69 73 74 20 20 20 20      -persist    
6260: 20 20 20 20 20 20 4d 61 6b 65 20 73 69 6d 75 6c        Make simul
6270: 61 74 65 64 20 49 2f 4f 20 65 72 72 6f 72 73 20  ated I/O errors 
6280: 70 65 72 73 69 73 74 65 6e 74 0a 23 20 20 20 20  persistent.#    
6290: 20 2d 73 74 61 72 74 20 20 20 20 20 20 20 20 20   -start         
62a0: 20 20 20 56 61 6c 75 65 20 6f 66 20 27 4e 27 20     Value of 'N' 
62b0: 74 6f 20 62 65 67 69 6e 20 77 69 74 68 20 28 64  to begin with (d
62c0: 65 66 61 75 6c 74 20 31 29 0a 23 0a 23 20 20 20  efault 1).#.#   
62d0: 20 20 2d 63 6b 73 75 6d 20 20 20 20 20 20 20 20    -cksum        
62e0: 20 20 20 20 42 6f 6f 6c 65 61 6e 2e 20 49 66 20      Boolean. If 
62f0: 74 72 75 65 2c 20 74 65 73 74 20 74 68 61 74 20  true, test that 
6300: 74 68 65 20 64 61 74 61 62 61 73 65 20 64 6f 65  the database doe
6310: 73 0a 23 20 20 20 20 20 20 20 20 20 20 20 20 20  s.#             
6320: 20 20 20 20 20 20 20 20 20 20 6e 6f 74 20 63 68            not ch
6330: 61 6e 67 65 20 64 75 72 69 6e 67 20 74 68 65 20  ange during the 
6340: 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 74 68 65  execution of the
6350: 20 74 65 73 74 20 63 61 73 65 2e 0a 23 0a 70 72   test case..#.pr
6360: 6f 63 20 64 6f 5f 69 6f 65 72 72 5f 74 65 73 74  oc do_ioerr_test
6370: 20 7b 74 65 73 74 6e 61 6d 65 20 61 72 67 73 7d   {testname args}
6380: 20 7b 0a 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72   {..  set ::ioer
6390: 72 6f 70 74 73 28 2d 73 74 61 72 74 29 20 31 0a  ropts(-start) 1.
63a0: 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74    set ::ioerropt
63b0: 73 28 2d 63 6b 73 75 6d 29 20 30 0a 20 20 73 65  s(-cksum) 0.  se
63c0: 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 65  t ::ioerropts(-e
63d0: 72 63 29 20 30 0a 20 20 73 65 74 20 3a 3a 69 6f  rc) 0.  set ::io
63e0: 65 72 72 6f 70 74 73 28 2d 63 6f 75 6e 74 29 20  erropts(-count) 
63f0: 31 30 30 30 30 30 30 30 30 0a 20 20 73 65 74 20  100000000.  set 
6400: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 70 65 72  ::ioerropts(-per
6410: 73 69 73 74 29 20 31 0a 20 20 73 65 74 20 3a 3a  sist) 1.  set ::
6420: 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 72 65 66  ioerropts(-ckref
6430: 63 6f 75 6e 74 29 20 30 0a 20 20 73 65 74 20 3a  count) 0.  set :
6440: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 72 65 73 74  :ioerropts(-rest
6450: 6f 72 65 70 72 6e 67 29 20 31 0a 20 20 61 72 72  oreprng) 1.  arr
6460: 61 79 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70  ay set ::ioerrop
6470: 74 73 20 24 61 72 67 73 0a 0a 20 20 23 20 54 45  ts $args..  # TE
6480: 4d 50 4f 52 41 52 59 3a 20 46 6f 72 20 33 2e 35  MPORARY: For 3.5
6490: 2e 39 2c 20 64 69 73 61 62 6c 65 20 74 65 73 74  .9, disable test
64a0: 69 6e 67 20 6f 66 20 65 78 74 65 6e 64 65 64 20  ing of extended 
64b0: 72 65 73 75 6c 74 20 63 6f 64 65 73 2e 20 54 68  result codes. Th
64c0: 65 72 65 20 61 72 65 0a 20 20 23 20 61 20 63 6f  ere are.  # a co
64d0: 75 70 6c 65 20 6f 66 20 6f 62 73 63 75 72 65 20  uple of obscure 
64e0: 49 4f 20 65 72 72 6f 72 73 20 74 68 61 74 20 64  IO errors that d
64f0: 6f 20 6e 6f 74 20 72 65 74 75 72 6e 20 74 68 65  o not return the
6500: 6d 2e 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 72  m..  set ::ioerr
6510: 6f 70 74 73 28 2d 65 72 63 29 20 30 0a 0a 20 20  opts(-erc) 0..  
6520: 73 65 74 20 3a 3a 67 6f 20 31 0a 20 20 23 72 65  set ::go 1.  #re
6530: 73 65 74 5f 70 72 6e 67 5f 73 74 61 74 65 0a 20  set_prng_state. 
6540: 20 73 61 76 65 5f 70 72 6e 67 5f 73 74 61 74 65   save_prng_state
6550: 0a 20 20 66 6f 72 20 7b 73 65 74 20 6e 20 24 3a  .  for {set n $:
6560: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73 74 61 72  :ioerropts(-star
6570: 74 29 7d 20 7b 24 3a 3a 67 6f 7d 20 7b 69 6e 63  t)} {$::go} {inc
6580: 72 20 6e 7d 20 7b 0a 20 20 20 20 73 65 74 20 3a  r n} {.    set :
6590: 3a 54 4e 20 24 6e 0a 20 20 20 20 69 6e 63 72 20  :TN $n.    incr 
65a0: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6f 75  ::ioerropts(-cou
65b0: 6e 74 29 20 2d 31 0a 20 20 20 20 69 66 20 7b 24  nt) -1.    if {$
65c0: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6f 75  ::ioerropts(-cou
65d0: 6e 74 29 3c 30 7d 20 62 72 65 61 6b 0a 20 0a 20  nt)<0} break. . 
65e0: 20 20 20 23 20 53 6b 69 70 20 74 68 69 73 20 49     # Skip this I
65f0: 4f 20 65 72 72 6f 72 20 69 66 20 69 74 20 77 61  O error if it wa
6600: 73 20 73 70 65 63 69 66 69 65 64 20 77 69 74 68  s specified with
6610: 20 74 68 65 20 22 2d 65 78 63 6c 75 64 65 22 20   the "-exclude" 
6620: 6f 70 74 69 6f 6e 2e 0a 20 20 20 20 69 66 20 7b  option..    if {
6630: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 69  [info exists ::i
6640: 6f 65 72 72 6f 70 74 73 28 2d 65 78 63 6c 75 64  oerropts(-exclud
6650: 65 29 5d 7d 20 7b 0a 20 20 20 20 20 20 69 66 20  e)]} {.      if 
6660: 7b 5b 6c 73 65 61 72 63 68 20 24 3a 3a 69 6f 65  {[lsearch $::ioe
6670: 72 72 6f 70 74 73 28 2d 65 78 63 6c 75 64 65 29  rropts(-exclude)
6680: 20 24 6e 5d 21 3d 2d 31 7d 20 63 6f 6e 74 69 6e   $n]!=-1} contin
6690: 75 65 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20  ue.    }.    if 
66a0: 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 72  {$::ioerropts(-r
66b0: 65 73 74 6f 72 65 70 72 6e 67 29 7d 20 7b 0a 20  estoreprng)} {. 
66c0: 20 20 20 20 20 72 65 73 74 6f 72 65 5f 70 72 6e       restore_prn
66d0: 67 5f 73 74 61 74 65 0a 20 20 20 20 7d 0a 0a 20  g_state.    }.. 
66e0: 20 20 20 23 20 44 65 6c 65 74 65 20 74 68 65 20     # Delete the 
66f0: 66 69 6c 65 73 20 74 65 73 74 2e 64 62 20 61 6e  files test.db an
6700: 64 20 74 65 73 74 32 2e 64 62 2c 20 74 68 65 6e  d test2.db, then
6710: 20 65 78 65 63 75 74 65 20 74 68 65 20 54 43 4c   execute the TCL
6720: 20 61 6e 64 20 0a 20 20 20 20 23 20 53 51 4c 20   and .    # SQL 
6730: 28 69 6e 20 74 68 61 74 20 6f 72 64 65 72 29 20  (in that order) 
6740: 74 6f 20 70 72 65 70 61 72 65 20 66 6f 72 20 74  to prepare for t
6750: 68 65 20 74 65 73 74 20 63 61 73 65 2e 0a 20 20  he test case..  
6760: 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74 6e    do_test $testn
6770: 61 6d 65 2e 24 6e 2e 31 20 7b 0a 20 20 20 20 20  ame.$n.1 {.     
6780: 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f   set ::sqlite_io
6790: 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30  _error_pending 0
67a0: 0a 20 20 20 20 20 20 63 61 74 63 68 20 7b 64 62  .      catch {db
67b0: 20 63 6c 6f 73 65 7d 0a 20 20 20 20 20 20 63 61   close}.      ca
67c0: 74 63 68 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a  tch {db2 close}.
67d0: 20 20 20 20 20 20 63 61 74 63 68 20 7b 66 69 6c        catch {fil
67e0: 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20  e delete -force 
67f0: 74 65 73 74 2e 64 62 7d 0a 20 20 20 20 20 20 63  test.db}.      c
6800: 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74  atch {file delet
6810: 65 20 2d 66 6f 72 63 65 20 74 65 73 74 2e 64 62  e -force test.db
6820: 2d 6a 6f 75 72 6e 61 6c 7d 0a 20 20 20 20 20 20  -journal}.      
6830: 63 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65  catch {file dele
6840: 74 65 20 2d 66 6f 72 63 65 20 74 65 73 74 32 2e  te -force test2.
6850: 64 62 7d 0a 20 20 20 20 20 20 63 61 74 63 68 20  db}.      catch 
6860: 7b 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f  {file delete -fo
6870: 72 63 65 20 74 65 73 74 32 2e 64 62 2d 6a 6f 75  rce test2.db-jou
6880: 72 6e 61 6c 7d 0a 20 20 20 20 20 20 73 65 74 20  rnal}.      set 
6890: 3a 3a 44 42 20 5b 73 71 6c 69 74 65 33 20 64 62  ::DB [sqlite3 db
68a0: 20 74 65 73 74 2e 64 62 3b 20 73 71 6c 69 74 65   test.db; sqlite
68b0: 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69  3_connection_poi
68c0: 6e 74 65 72 20 64 62 5d 0a 20 20 20 20 20 20 73  nter db].      s
68d0: 71 6c 69 74 65 33 5f 65 78 74 65 6e 64 65 64 5f  qlite3_extended_
68e0: 72 65 73 75 6c 74 5f 63 6f 64 65 73 20 24 3a 3a  result_codes $::
68f0: 44 42 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28  DB $::ioerropts(
6900: 2d 65 72 63 29 0a 20 20 20 20 20 20 69 66 20 7b  -erc).      if {
6910: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 69  [info exists ::i
6920: 6f 65 72 72 6f 70 74 73 28 2d 74 63 6c 70 72 65  oerropts(-tclpre
6930: 70 29 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 65  p)]} {.        e
6940: 76 61 6c 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73  val $::ioerropts
6950: 28 2d 74 63 6c 70 72 65 70 29 0a 20 20 20 20 20  (-tclprep).     
6960: 20 7d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e   }.      if {[in
6970: 66 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72  fo exists ::ioer
6980: 72 6f 70 74 73 28 2d 73 71 6c 70 72 65 70 29 5d  ropts(-sqlprep)]
6990: 7d 20 7b 0a 20 20 20 20 20 20 20 20 65 78 65 63  } {.        exec
69a0: 73 71 6c 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73  sql $::ioerropts
69b0: 28 2d 73 71 6c 70 72 65 70 29 0a 20 20 20 20 20  (-sqlprep).     
69c0: 20 7d 0a 20 20 20 20 20 20 65 78 70 72 20 30 0a   }.      expr 0.
69d0: 20 20 20 20 7d 20 7b 30 7d 0a 0a 20 20 20 20 23      } {0}..    #
69e0: 20 52 65 61 64 20 74 68 65 20 27 63 68 65 63 6b   Read the 'check
69f0: 73 75 6d 27 20 6f 66 20 74 68 65 20 64 61 74 61  sum' of the data
6a00: 62 61 73 65 2e 0a 20 20 20 20 69 66 20 7b 24 3a  base..    if {$:
6a10: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 73 75  :ioerropts(-cksu
6a20: 6d 29 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20  m)} {.      set 
6a30: 63 68 65 63 6b 73 75 6d 20 5b 63 6b 73 75 6d 5d  checksum [cksum]
6a40: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 53 65  .    }..    # Se
6a50: 74 20 74 68 65 20 4e 74 68 20 49 4f 20 65 72 72  t the Nth IO err
6a60: 6f 72 20 74 6f 20 66 61 69 6c 2e 0a 20 20 20 20  or to fail..    
6a70: 64 6f 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d  do_test $testnam
6a80: 65 2e 24 6e 2e 32 20 5b 73 75 62 73 74 20 7b 0a  e.$n.2 [subst {.
6a90: 20 20 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69        set ::sqli
6aa0: 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 72 73  te_io_error_pers
6ab0: 69 73 74 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73  ist $::ioerropts
6ac0: 28 2d 70 65 72 73 69 73 74 29 0a 20 20 20 20 20  (-persist).     
6ad0: 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f   set ::sqlite_io
6ae0: 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 24  _error_pending $
6af0: 6e 0a 20 20 20 20 7d 5d 20 24 6e 0a 20 20 0a 20  n.    }] $n.  . 
6b00: 20 20 20 23 20 43 72 65 61 74 65 20 61 20 73 69     # Create a si
6b10: 6e 67 6c 65 20 54 43 4c 20 73 63 72 69 70 74 20  ngle TCL script 
6b20: 66 72 6f 6d 20 74 68 65 20 54 43 4c 20 61 6e 64  from the TCL and
6b30: 20 53 51 4c 20 73 70 65 63 69 66 69 65 64 0a 20   SQL specified. 
6b40: 20 20 20 23 20 61 73 20 74 68 65 20 62 6f 64 79     # as the body
6b50: 20 6f 66 20 74 68 65 20 74 65 73 74 2e 0a 20 20   of the test..  
6b60: 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 72 62    set ::ioerrorb
6b70: 6f 64 79 20 7b 7d 0a 20 20 20 20 69 66 20 7b 5b  ody {}.    if {[
6b80: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f  info exists ::io
6b90: 65 72 72 6f 70 74 73 28 2d 74 63 6c 62 6f 64 79  erropts(-tclbody
6ba0: 29 5d 7d 20 7b 0a 20 20 20 20 20 20 61 70 70 65  )]} {.      appe
6bb0: 6e 64 20 3a 3a 69 6f 65 72 72 6f 72 62 6f 64 79  nd ::ioerrorbody
6bc0: 20 22 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d   "$::ioerropts(-
6bd0: 74 63 6c 62 6f 64 79 29 5c 6e 22 0a 20 20 20 20  tclbody)\n".    
6be0: 7d 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20  }.    if {[info 
6bf0: 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70  exists ::ioerrop
6c00: 74 73 28 2d 73 71 6c 62 6f 64 79 29 5d 7d 20 7b  ts(-sqlbody)]} {
6c10: 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20 3a 3a  .      append ::
6c20: 69 6f 65 72 72 6f 72 62 6f 64 79 20 22 64 62 20  ioerrorbody "db 
6c30: 65 76 61 6c 20 7b 24 3a 3a 69 6f 65 72 72 6f 70  eval {$::ioerrop
6c40: 74 73 28 2d 73 71 6c 62 6f 64 79 29 7d 22 0a 20  ts(-sqlbody)}". 
6c50: 20 20 20 7d 0a 0a 20 20 20 20 23 20 45 78 65 63     }..    # Exec
6c60: 75 74 65 20 74 68 65 20 54 43 4c 20 53 63 72 69  ute the TCL Scri
6c70: 70 74 20 63 72 65 61 74 65 64 20 69 6e 20 74 68  pt created in th
6c80: 65 20 61 62 6f 76 65 20 62 6c 6f 63 6b 2e 20 49  e above block. I
6c90: 66 0a 20 20 20 20 23 20 74 68 65 72 65 20 61 72  f.    # there ar
6ca0: 65 20 61 74 20 6c 65 61 73 74 20 4e 20 49 4f 20  e at least N IO 
6cb0: 6f 70 65 72 61 74 69 6f 6e 73 20 70 65 72 66 6f  operations perfo
6cc0: 72 6d 65 64 20 62 79 20 53 51 4c 69 74 65 20 61  rmed by SQLite a
6cd0: 73 0a 20 20 20 20 23 20 61 20 72 65 73 75 6c 74  s.    # a result
6ce0: 20 6f 66 20 74 68 65 20 73 63 72 69 70 74 2c 20   of the script, 
6cf0: 74 68 65 20 4e 74 68 20 77 69 6c 6c 20 66 61 69  the Nth will fai
6d00: 6c 2e 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 24  l..    do_test $
6d10: 74 65 73 74 6e 61 6d 65 2e 24 6e 2e 33 20 7b 0a  testname.$n.3 {.
6d20: 20 20 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69        set ::sqli
6d30: 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 69 74 20  te_io_error_hit 
6d40: 30 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 73 71  0.      set ::sq
6d50: 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61  lite_io_error_ha
6d60: 72 64 68 69 74 20 30 0a 20 20 20 20 20 20 73 65  rdhit 0.      se
6d70: 74 20 72 20 5b 63 61 74 63 68 20 24 3a 3a 69 6f  t r [catch $::io
6d80: 65 72 72 6f 72 62 6f 64 79 20 6d 73 67 5d 0a 20  errorbody msg]. 
6d90: 20 20 20 20 20 73 65 74 20 3a 3a 65 72 72 73 65       set ::errse
6da0: 65 6e 20 24 72 0a 20 20 20 20 20 20 73 65 74 20  en $r.      set 
6db0: 72 63 20 5b 73 71 6c 69 74 65 33 5f 65 72 72 63  rc [sqlite3_errc
6dc0: 6f 64 65 20 24 3a 3a 44 42 5d 0a 20 20 20 20 20  ode $::DB].     
6dd0: 20 69 66 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74   if {$::ioerropt
6de0: 73 28 2d 65 72 63 29 7d 20 7b 0a 20 20 20 20 20  s(-erc)} {.     
6df0: 20 20 20 23 20 49 66 20 77 65 20 61 72 65 20 69     # If we are i
6e00: 6e 20 65 78 74 65 6e 64 65 64 20 72 65 73 75 6c  n extended resul
6e10: 74 20 63 6f 64 65 20 6d 6f 64 65 2c 20 6d 61 6b  t code mode, mak
6e20: 65 20 73 75 72 65 20 61 6c 6c 20 6f 66 20 74 68  e sure all of th
6e30: 65 0a 20 20 20 20 20 20 20 20 23 20 49 4f 45 52  e.        # IOER
6e40: 52 73 20 77 65 20 67 65 74 20 62 61 63 6b 20 72  Rs we get back r
6e50: 65 61 6c 6c 79 20 64 6f 20 68 61 76 65 20 74 68  eally do have th
6e60: 65 69 72 20 65 78 74 65 6e 64 65 64 20 63 6f 64  eir extended cod
6e70: 65 20 76 61 6c 75 65 73 2e 0a 20 20 20 20 20 20  e values..      
6e80: 20 20 23 20 49 66 20 61 6e 20 65 78 74 65 6e 64    # If an extend
6e90: 65 64 20 72 65 73 75 6c 74 20 63 6f 64 65 20 69  ed result code i
6ea0: 73 20 72 65 74 75 72 6e 65 64 2c 20 74 68 65 20  s returned, the 
6eb0: 73 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 65 0a  sqlite3_errcode.
6ec0: 20 20 20 20 20 20 20 20 23 20 54 43 4c 63 6f 6d          # TCLcom
6ed0: 6d 61 6e 64 20 77 69 6c 6c 20 72 65 74 75 72 6e  mand will return
6ee0: 20 61 20 73 74 72 69 6e 67 20 6f 66 20 74 68 65   a string of the
6ef0: 20 66 6f 72 6d 3a 20 20 53 51 4c 49 54 45 5f 49   form:  SQLITE_I
6f00: 4f 45 52 52 2b 6e 6e 6e 6e 0a 20 20 20 20 20 20  OERR+nnnn.      
6f10: 20 20 23 20 77 68 65 72 65 20 6e 6e 6e 6e 20 69    # where nnnn i
6f20: 73 20 61 20 6e 75 6d 62 65 72 0a 20 20 20 20 20  s a number.     
6f30: 20 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20 7b     if {[regexp {
6f40: 5e 53 51 4c 49 54 45 5f 49 4f 45 52 52 7d 20 24  ^SQLITE_IOERR} $
6f50: 72 63 5d 20 26 26 20 21 5b 72 65 67 65 78 70 20  rc] && ![regexp 
6f60: 7b 49 4f 45 52 52 5c 2b 5c 64 7d 20 24 72 63 5d  {IOERR\+\d} $rc]
6f70: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65  } {.          re
6f80: 74 75 72 6e 20 24 72 63 0a 20 20 20 20 20 20 20  turn $rc.       
6f90: 20 7d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20   }.      } else 
6fa0: 7b 0a 20 20 20 20 20 20 20 20 23 20 49 66 20 77  {.        # If w
6fb0: 65 20 61 72 65 20 6e 6f 74 20 69 6e 20 65 78 74  e are not in ext
6fc0: 65 6e 64 65 64 20 72 65 73 75 6c 74 20 63 6f 64  ended result cod
6fd0: 65 20 6d 6f 64 65 2c 20 6d 61 6b 65 20 73 75 72  e mode, make sur
6fe0: 65 20 6e 6f 0a 20 20 20 20 20 20 20 20 23 20 65  e no.        # e
6ff0: 78 74 65 6e 64 65 64 20 65 72 72 6f 72 20 63 6f  xtended error co
7000: 64 65 73 20 61 72 65 20 72 65 74 75 72 6e 65 64  des are returned
7010: 2e 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 72  ..        if {[r
7020: 65 67 65 78 70 20 7b 5c 2b 5c 64 7d 20 24 72 63  egexp {\+\d} $rc
7030: 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 72  ]} {.          r
7040: 65 74 75 72 6e 20 24 72 63 0a 20 20 20 20 20 20  eturn $rc.      
7050: 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20    }.      }.    
7060: 20 20 23 20 54 68 65 20 74 65 73 74 20 72 65 70    # The test rep
7070: 65 61 74 73 20 61 73 20 6c 6f 6e 67 20 61 73 20  eats as long as 
7080: 24 3a 3a 67 6f 20 69 73 20 6e 6f 6e 2d 7a 65 72  $::go is non-zer
7090: 6f 2e 20 20 24 3a 3a 67 6f 20 73 74 61 72 74 73  o.  $::go starts
70a0: 20 6f 75 74 0a 20 20 20 20 20 20 23 20 61 73 20   out.      # as 
70b0: 31 2e 20 20 57 68 65 6e 20 61 20 74 65 73 74 20  1.  When a test 
70c0: 72 75 6e 73 20 74 6f 20 63 6f 6d 70 6c 65 74 69  runs to completi
70d0: 6f 6e 20 77 69 74 68 6f 75 74 20 68 69 74 74 69  on without hitti
70e0: 6e 67 20 61 6e 20 49 2f 4f 0a 20 20 20 20 20 20  ng an I/O.      
70f0: 23 20 65 72 72 6f 72 2c 20 74 68 61 74 20 6d 65  # error, that me
7100: 61 6e 73 20 74 68 65 72 65 20 69 73 20 6e 6f 20  ans there is no 
7110: 70 6f 69 6e 74 20 69 6e 20 63 6f 6e 74 69 6e 75  point in continu
7120: 69 6e 67 20 77 69 74 68 20 74 68 69 73 20 74 65  ing with this te
7130: 73 74 0a 20 20 20 20 20 20 23 20 63 61 73 65 20  st.      # case 
7140: 73 6f 20 73 65 74 20 24 3a 3a 67 6f 20 74 6f 20  so set $::go to 
7150: 7a 65 72 6f 2e 0a 20 20 20 20 20 20 23 0a 20 20  zero..      #.  
7160: 20 20 20 20 69 66 20 7b 24 3a 3a 73 71 6c 69 74      if {$::sqlit
7170: 65 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69  e_io_error_pendi
7180: 6e 67 3e 30 7d 20 7b 0a 20 20 20 20 20 20 20 20  ng>0} {.        
7190: 73 65 74 20 3a 3a 67 6f 20 30 0a 20 20 20 20 20  set ::go 0.     
71a0: 20 20 20 73 65 74 20 71 20 30 0a 20 20 20 20 20     set q 0.     
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 70 65 6e 64 69 6e 67  io_error_pending
71d0: 20 30 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20   0.      } else 
71e0: 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 71 20  {.        set q 
71f0: 31 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20  1.      }..     
7200: 20 73 65 74 20 73 20 5b 65 78 70 72 20 24 3a 3a   set s [expr $::
7210: 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f  sqlite_io_error_
7220: 68 69 74 3d 3d 30 5d 0a 20 20 20 20 20 20 69 66  hit==0].      if
7230: 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65   {$::sqlite_io_e
7240: 72 72 6f 72 5f 68 69 74 3e 24 3a 3a 73 71 6c 69  rror_hit>$::sqli
7250: 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72 64  te_io_error_hard
7260: 68 69 74 20 26 26 20 24 72 3d 3d 30 7d 20 7b 0a  hit && $r==0} {.
7270: 20 20 20 20 20 20 20 20 73 65 74 20 72 20 31 0a          set r 1.
7280: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 73 65        }.      se
7290: 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72  t ::sqlite_io_er
72a0: 72 6f 72 5f 68 69 74 20 30 0a 0a 20 20 20 20 20  ror_hit 0..     
72b0: 20 23 20 4f 6e 65 20 6f 66 20 74 77 6f 20 74 68   # One of two th
72c0: 69 6e 67 73 20 6d 75 73 74 20 68 61 76 65 20 68  ings must have h
72d0: 61 70 70 65 6e 65 64 2e 20 65 69 74 68 65 72 0a  appened. either.
72e0: 20 20 20 20 20 20 23 20 20 20 31 2e 20 20 57 65        #   1.  We
72f0: 20 6e 65 76 65 72 20 68 69 74 20 74 68 65 20 49   never hit the I
7300: 4f 20 65 72 72 6f 72 20 61 6e 64 20 74 68 65 20  O error and the 
7310: 53 51 4c 20 72 65 74 75 72 6e 65 64 20 4f 4b 0a  SQL returned OK.
7320: 20 20 20 20 20 20 23 20 20 20 32 2e 20 20 41 6e        #   2.  An
7330: 20 49 4f 20 65 72 72 6f 72 20 77 61 73 20 68 69   IO error was hi
7340: 74 20 61 6e 64 20 74 68 65 20 53 51 4c 20 66 61  t and the SQL fa
7350: 69 6c 65 64 0a 20 20 20 20 20 20 23 0a 20 20 20  iled.      #.   
7360: 20 20 20 23 70 75 74 73 20 22 73 3d 24 73 20 72     #puts "s=$s r
7370: 3d 24 72 20 71 3d 24 71 22 0a 20 20 20 20 20 20  =$r q=$q".      
7380: 65 78 70 72 20 7b 20 28 24 73 20 26 26 20 21 24  expr { ($s && !$
7390: 72 20 26 26 20 21 24 71 29 20 7c 7c 20 28 21 24  r && !$q) || (!$
73a0: 73 20 26 26 20 24 72 20 26 26 20 24 71 29 20 7d  s && $r && $q) }
73b0: 0a 20 20 20 20 7d 20 7b 31 7d 0a 0a 20 20 20 20  .    } {1}..    
73c0: 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f  set ::sqlite_io_
73d0: 65 72 72 6f 72 5f 68 69 74 20 30 0a 20 20 20 20  error_hit 0.    
73e0: 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f  set ::sqlite_io_
73f0: 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a  error_pending 0.
7400: 0a 20 20 20 20 23 20 43 68 65 63 6b 20 74 68 61  .    # Check tha
7410: 74 20 6e 6f 20 70 61 67 65 20 72 65 66 65 72 65  t no page refere
7420: 6e 63 65 73 20 77 65 72 65 20 6c 65 61 6b 65 64  nces were leaked
7430: 2e 20 54 68 65 72 65 20 73 68 6f 75 6c 64 20 62  . There should b
7440: 65 20 0a 20 20 20 20 23 20 61 20 73 69 6e 67 6c  e .    # a singl
7450: 65 20 72 65 66 65 72 65 6e 63 65 20 69 66 20 74  e reference if t
7460: 68 65 72 65 20 69 73 20 73 74 69 6c 6c 20 61 6e  here is still an
7470: 20 61 63 74 69 76 65 20 74 72 61 6e 73 61 63 74   active transact
7480: 69 6f 6e 2c 20 0a 20 20 20 20 23 20 6f 72 20 7a  ion, .    # or z
7490: 65 72 6f 20 6f 74 68 65 72 77 69 73 65 2e 0a 20  ero otherwise.. 
74a0: 20 20 20 23 0a 20 20 20 20 23 20 55 50 44 41 54     #.    # UPDAT
74b0: 45 3a 20 49 66 20 74 68 65 20 49 4f 20 65 72 72  E: If the IO err
74c0: 6f 72 20 6f 63 63 75 72 73 20 61 66 74 65 72 20  or occurs after 
74d0: 61 20 27 42 45 47 49 4e 27 20 62 75 74 20 62 65  a 'BEGIN' but be
74e0: 66 6f 72 65 20 61 6e 79 0a 20 20 20 20 23 20 6c  fore any.    # l
74f0: 6f 63 6b 73 20 61 72 65 20 65 73 74 61 62 6c 69  ocks are establi
7500: 73 68 65 64 20 6f 6e 20 64 61 74 61 62 61 73 65  shed on database
7510: 20 66 69 6c 65 73 20 28 69 2e 65 2e 20 69 66 20   files (i.e. if 
7520: 74 68 65 20 65 72 72 6f 72 20 0a 20 20 20 20 23  the error .    #
7530: 20 6f 63 63 75 72 73 20 77 68 69 6c 65 20 61 74   occurs while at
7540: 74 65 6d 70 74 69 6e 67 20 74 6f 20 64 65 74 65  tempting to dete
7550: 63 74 20 61 20 68 6f 74 2d 6a 6f 75 72 6e 61 6c  ct a hot-journal
7560: 20 66 69 6c 65 29 2c 20 74 68 65 6e 0a 20 20 20   file), then.   
7570: 20 23 20 74 68 65 72 65 20 6d 61 79 20 30 20 70   # there may 0 p
7580: 61 67 65 20 72 65 66 65 72 65 6e 63 65 73 20 61  age references a
7590: 6e 64 20 61 6e 20 61 63 74 69 76 65 20 74 72 61  nd an active tra
75a0: 6e 73 61 63 74 69 6f 6e 20 61 63 63 6f 72 64 69  nsaction accordi
75b0: 6e 67 0a 20 20 20 20 23 20 74 6f 20 5b 73 71 6c  ng.    # to [sql
75c0: 69 74 65 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d  ite3_get_autocom
75d0: 6d 69 74 5d 2e 0a 20 20 20 20 23 0a 20 20 20 20  mit]..    #.    
75e0: 69 66 20 7b 24 3a 3a 67 6f 20 26 26 20 24 3a 3a  if {$::go && $::
75f0: 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f  sqlite_io_error_
7600: 68 61 72 64 68 69 74 20 26 26 20 24 3a 3a 69 6f  hardhit && $::io
7610: 65 72 72 6f 70 74 73 28 2d 63 6b 72 65 66 63 6f  erropts(-ckrefco
7620: 75 6e 74 29 7d 20 7b 0a 20 20 20 20 20 20 64 6f  unt)} {.      do
7630: 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e  _test $testname.
7640: 24 6e 2e 34 20 7b 0a 20 20 20 20 20 20 20 20 73  $n.4 {.        s
7650: 65 74 20 62 74 20 5b 62 74 72 65 65 5f 66 72 6f  et bt [btree_fro
7660: 6d 5f 64 62 20 64 62 5d 0a 20 20 20 20 20 20 20  m_db db].       
7670: 20 64 62 5f 65 6e 74 65 72 20 64 62 0a 20 20 20   db_enter db.   
7680: 20 20 20 20 20 61 72 72 61 79 20 73 65 74 20 73       array set s
7690: 74 61 74 73 20 5b 62 74 72 65 65 5f 70 61 67 65  tats [btree_page
76a0: 72 5f 73 74 61 74 73 20 24 62 74 5d 0a 20 20 20  r_stats $bt].   
76b0: 20 20 20 20 20 64 62 5f 6c 65 61 76 65 20 64 62       db_leave db
76c0: 0a 20 20 20 20 20 20 20 20 73 65 74 20 6e 52 65  .        set nRe
76d0: 66 20 24 73 74 61 74 73 28 72 65 66 29 0a 20 20  f $stats(ref).  
76e0: 20 20 20 20 20 20 65 78 70 72 20 7b 24 6e 52 65        expr {$nRe
76f0: 66 20 3d 3d 20 30 20 7c 7c 20 28 5b 73 71 6c 69  f == 0 || ([sqli
7700: 74 65 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d  te3_get_autocomm
7710: 69 74 20 64 62 5d 3d 3d 30 20 26 26 20 24 6e 52  it db]==0 && $nR
7720: 65 66 20 3d 3d 20 31 29 7d 0a 20 20 20 20 20 20  ef == 1)}.      
7730: 7d 20 7b 31 7d 0a 20 20 20 20 7d 0a 0a 20 20 20  } {1}.    }..   
7740: 20 23 20 49 66 20 74 68 65 72 65 20 69 73 20 61   # If there is a
7750: 6e 20 6f 70 65 6e 20 64 61 74 61 62 61 73 65 20  n open database 
7760: 68 61 6e 64 6c 65 20 61 6e 64 20 6e 6f 20 6f 70  handle and no op
7770: 65 6e 20 74 72 61 6e 73 61 63 74 69 6f 6e 2c 20  en transaction, 
7780: 0a 20 20 20 20 23 20 61 6e 64 20 74 68 65 20 70  .    # and the p
7790: 61 67 65 72 20 69 73 20 6e 6f 74 20 72 75 6e 6e  ager is not runn
77a0: 69 6e 67 20 69 6e 20 65 78 63 6c 75 73 69 76 65  ing in exclusive
77b0: 2d 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2c 0a 20  -locking mode,. 
77c0: 20 20 20 23 20 63 68 65 63 6b 20 74 68 61 74 20     # check that 
77d0: 74 68 65 20 70 61 67 65 72 20 69 73 20 69 6e 20  the pager is in 
77e0: 22 75 6e 6c 6f 63 6b 65 64 22 20 73 74 61 74 65  "unlocked" state
77f0: 2e 20 54 68 65 6f 72 65 74 69 63 61 6c 6c 79 2c  . Theoretically,
7800: 0a 20 20 20 20 23 20 69 66 20 61 20 63 61 6c 6c  .    # if a call
7810: 20 74 6f 20 78 55 6e 6c 6f 63 6b 28 29 20 66 61   to xUnlock() fa
7820: 69 6c 65 64 20 64 75 65 20 74 6f 20 61 6e 20 49  iled due to an I
7830: 4f 20 65 72 72 6f 72 20 74 68 65 20 75 6e 64 65  O error the unde
7840: 72 6c 79 69 6e 67 0a 20 20 20 20 23 20 66 69 6c  rlying.    # fil
7850: 65 20 6d 61 79 20 73 74 69 6c 6c 20 62 65 20 6c  e may still be l
7860: 6f 63 6b 65 64 2e 0a 20 20 20 20 23 0a 20 20 20  ocked..    #.   
7870: 20 69 66 63 61 70 61 62 6c 65 20 70 72 61 67 6d   ifcapable pragm
7880: 61 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 20 5b  a {.      if { [
7890: 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73 20 64 62  info commands db
78a0: 5d 20 6e 65 20 22 22 0a 20 20 20 20 20 20 20 20  ] ne "".        
78b0: 26 26 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28  && $::ioerropts(
78c0: 2d 63 6b 72 65 66 63 6f 75 6e 74 29 0a 20 20 20  -ckrefcount).   
78d0: 20 20 20 20 20 26 26 20 5b 64 62 20 6f 6e 65 20       && [db one 
78e0: 7b 70 72 61 67 6d 61 20 6c 6f 63 6b 69 6e 67 5f  {pragma locking_
78f0: 6d 6f 64 65 7d 5d 20 65 71 20 22 6e 6f 72 6d 61  mode}] eq "norma
7900: 6c 22 0a 20 20 20 20 20 20 20 20 26 26 20 5b 73  l".        && [s
7910: 71 6c 69 74 65 33 5f 67 65 74 5f 61 75 74 6f 63  qlite3_get_autoc
7920: 6f 6d 6d 69 74 20 64 62 5d 0a 20 20 20 20 20 20  ommit db].      
7930: 7d 20 7b 0a 20 20 20 20 20 20 20 20 64 6f 5f 74  } {.        do_t
7940: 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e  est $testname.$n
7950: 2e 35 20 7b 0a 20 20 20 20 20 20 20 20 20 20 73  .5 {.          s
7960: 65 74 20 62 74 20 5b 62 74 72 65 65 5f 66 72 6f  et bt [btree_fro
7970: 6d 5f 64 62 20 64 62 5d 0a 20 20 20 20 20 20 20  m_db db].       
7980: 20 20 20 64 62 5f 65 6e 74 65 72 20 64 62 0a 20     db_enter db. 
7990: 20 20 20 20 20 20 20 20 20 61 72 72 61 79 20 73           array s
79a0: 65 74 20 73 74 61 74 73 20 5b 62 74 72 65 65 5f  et stats [btree_
79b0: 70 61 67 65 72 5f 73 74 61 74 73 20 24 62 74 5d  pager_stats $bt]
79c0: 0a 20 20 20 20 20 20 20 20 20 20 64 62 5f 6c 65  .          db_le
79d0: 61 76 65 20 64 62 0a 20 20 20 20 20 20 20 20 20  ave db.         
79e0: 20 73 65 74 20 73 74 61 74 73 28 73 74 61 74 65   set stats(state
79f0: 29 0a 20 20 20 20 20 20 20 20 7d 20 30 0a 20 20  ).        } 0.  
7a00: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 20      }.    }..   
7a10: 20 23 20 49 66 20 61 6e 20 49 4f 20 65 72 72 6f   # If an IO erro
7a20: 72 20 6f 63 63 75 72 65 64 2c 20 74 68 65 6e 20  r occured, then 
7a30: 74 68 65 20 63 68 65 63 6b 73 75 6d 20 6f 66 20  the checksum of 
7a40: 74 68 65 20 64 61 74 61 62 61 73 65 20 73 68 6f  the database sho
7a50: 75 6c 64 0a 20 20 20 20 23 20 62 65 20 74 68 65  uld.    # be the
7a60: 20 73 61 6d 65 20 61 73 20 62 65 66 6f 72 65 20   same as before 
7a70: 74 68 65 20 73 63 72 69 70 74 20 74 68 61 74 20  the script that 
7a80: 63 61 75 73 65 64 20 74 68 65 20 49 4f 20 65 72  caused the IO er
7a90: 72 6f 72 20 77 61 73 20 72 75 6e 2e 0a 20 20 20  ror was run..   
7aa0: 20 23 0a 20 20 20 20 69 66 20 7b 24 3a 3a 67 6f   #.    if {$::go
7ab0: 20 26 26 20 24 3a 3a 73 71 6c 69 74 65 5f 69 6f   && $::sqlite_io
7ac0: 5f 65 72 72 6f 72 5f 68 61 72 64 68 69 74 20 26  _error_hardhit &
7ad0: 26 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d  & $::ioerropts(-
7ae0: 63 6b 73 75 6d 29 7d 20 7b 0a 20 20 20 20 20 20  cksum)} {.      
7af0: 64 6f 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d  do_test $testnam
7b00: 65 2e 24 6e 2e 36 20 7b 0a 20 20 20 20 20 20 20  e.$n.6 {.       
7b10: 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65   catch {db close
7b20: 7d 0a 20 20 20 20 20 20 20 20 63 61 74 63 68 20  }.        catch 
7b30: 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 20 20 20 20  {db2 close}.    
7b40: 20 20 20 20 73 65 74 20 3a 3a 44 42 20 5b 73 71      set ::DB [sq
7b50: 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62  lite3 db test.db
7b60: 3b 20 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63  ; sqlite3_connec
7b70: 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d  tion_pointer db]
7b80: 0a 20 20 20 20 20 20 20 20 63 6b 73 75 6d 0a 20  .        cksum. 
7b90: 20 20 20 20 20 7d 20 24 63 68 65 63 6b 73 75 6d       } $checksum
7ba0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 65 74 20  .    }..    set 
7bb0: 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f  ::sqlite_io_erro
7bc0: 72 5f 68 61 72 64 68 69 74 20 30 0a 20 20 20 20  r_hardhit 0.    
7bd0: 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f  set ::sqlite_io_
7be0: 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a  error_pending 0.
7bf0: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78      if {[info ex
7c00: 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74 73  ists ::ioerropts
7c10: 28 2d 63 6c 65 61 6e 75 70 29 5d 7d 20 7b 0a 20  (-cleanup)]} {. 
7c20: 20 20 20 20 20 63 61 74 63 68 20 24 3a 3a 69 6f       catch $::io
7c30: 65 72 72 6f 70 74 73 28 2d 63 6c 65 61 6e 75 70  erropts(-cleanup
7c40: 29 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 65  ).    }.  }.  se
7c50: 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72  t ::sqlite_io_er
7c60: 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a 20 20  ror_pending 0.  
7c70: 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f  set ::sqlite_io_
7c80: 65 72 72 6f 72 5f 70 65 72 73 69 73 74 20 30 0a  error_persist 0.
7c90: 20 20 75 6e 73 65 74 20 3a 3a 69 6f 65 72 72 6f    unset ::ioerro
7ca0: 70 74 73 0a 7d 0a 0a 23 20 52 65 74 75 72 6e 20  pts.}..# Return 
7cb0: 61 20 63 68 65 63 6b 73 75 6d 20 62 61 73 65 64  a checksum based
7cc0: 20 6f 6e 20 74 68 65 20 63 6f 6e 74 65 6e 74 73   on the contents
7cd0: 20 6f 66 20 74 68 65 20 6d 61 69 6e 20 64 61 74   of the main dat
7ce0: 61 62 61 73 65 20 61 73 73 6f 63 69 61 74 65 64  abase associated
7cf0: 0a 23 20 77 69 74 68 20 63 6f 6e 6e 65 63 74 69  .# with connecti
7d00: 6f 6e 20 24 64 62 0a 23 0a 70 72 6f 63 20 63 6b  on $db.#.proc ck
7d10: 73 75 6d 20 7b 7b 64 62 20 64 62 7d 7d 20 7b 0a  sum {{db db}} {.
7d20: 20 20 73 65 74 20 74 78 74 20 5b 24 64 62 20 65    set txt [$db e
7d30: 76 61 6c 20 7b 0a 20 20 20 20 20 20 53 45 4c 45  val {.      SELE
7d40: 43 54 20 6e 61 6d 65 2c 20 74 79 70 65 2c 20 73  CT name, type, s
7d50: 71 6c 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d  ql FROM sqlite_m
7d60: 61 73 74 65 72 20 6f 72 64 65 72 20 62 79 20 6e  aster order by n
7d70: 61 6d 65 0a 20 20 7d 5d 5c 6e 0a 20 20 66 6f 72  ame.  }]\n.  for
7d80: 65 61 63 68 20 74 62 6c 20 5b 24 64 62 20 65 76  each tbl [$db ev
7d90: 61 6c 20 7b 0a 20 20 20 20 20 20 53 45 4c 45 43  al {.      SELEC
7da0: 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69  T name FROM sqli
7db0: 74 65 5f 6d 61 73 74 65 72 20 57 48 45 52 45 20  te_master WHERE 
7dc0: 74 79 70 65 3d 27 74 61 62 6c 65 27 20 6f 72 64  type='table' ord
7dd0: 65 72 20 62 79 20 6e 61 6d 65 0a 20 20 7d 5d 20  er by name.  }] 
7de0: 7b 0a 20 20 20 20 61 70 70 65 6e 64 20 74 78 74  {.    append txt
7df0: 20 5b 24 64 62 20 65 76 61 6c 20 22 53 45 4c 45   [$db eval "SELE
7e00: 43 54 20 2a 20 46 52 4f 4d 20 24 74 62 6c 22 5d  CT * FROM $tbl"]
7e10: 5c 6e 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63 68  \n.  }.  foreach
7e20: 20 70 72 61 67 20 7b 64 65 66 61 75 6c 74 5f 73   prag {default_s
7e30: 79 6e 63 68 72 6f 6e 6f 75 73 20 64 65 66 61 75  ynchronous defau
7e40: 6c 74 5f 63 61 63 68 65 5f 73 69 7a 65 7d 20 7b  lt_cache_size} {
7e50: 0a 20 20 20 20 61 70 70 65 6e 64 20 74 78 74 20  .    append txt 
7e60: 24 70 72 61 67 2d 5b 24 64 62 20 65 76 61 6c 20  $prag-[$db eval 
7e70: 22 50 52 41 47 4d 41 20 24 70 72 61 67 22 5d 5c  "PRAGMA $prag"]\
7e80: 6e 0a 20 20 7d 0a 20 20 73 65 74 20 63 6b 73 75  n.  }.  set cksu
7e90: 6d 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68  m [string length
7ea0: 20 24 74 78 74 5d 2d 5b 6d 64 35 20 24 74 78 74   $txt]-[md5 $txt
7eb0: 5d 0a 20 20 23 20 70 75 74 73 20 24 63 6b 73 75  ].  # puts $cksu
7ec0: 6d 2d 5b 66 69 6c 65 20 73 69 7a 65 20 74 65 73  m-[file size tes
7ed0: 74 2e 64 62 5d 0a 20 20 72 65 74 75 72 6e 20 24  t.db].  return $
7ee0: 63 6b 73 75 6d 0a 7d 0a 0a 23 20 47 65 6e 65 72  cksum.}..# Gener
7ef0: 61 74 65 20 61 20 63 68 65 63 6b 73 75 6d 20 62  ate a checksum b
7f00: 61 73 65 64 20 6f 6e 20 74 68 65 20 63 6f 6e 74  ased on the cont
7f10: 65 6e 74 73 20 6f 66 20 74 68 65 20 6d 61 69 6e  ents of the main
7f20: 20 61 6e 64 20 74 65 6d 70 20 74 61 62 6c 65 73   and temp tables
7f30: 0a 23 20 64 61 74 61 62 61 73 65 20 24 64 62 2e  .# database $db.
7f40: 20 49 66 20 74 68 65 20 63 68 65 63 6b 73 75 6d   If the checksum
7f50: 20 6f 66 20 74 77 6f 20 64 61 74 61 62 61 73 65   of two database
7f60: 73 20 69 73 20 74 68 65 20 73 61 6d 65 2c 20 61  s is the same, a
7f70: 6e 64 20 74 68 65 0a 23 20 69 6e 74 65 67 72 69  nd the.# integri
7f80: 74 79 2d 63 68 65 63 6b 20 70 61 73 73 65 73 20  ty-check passes 
7f90: 66 6f 72 20 62 6f 74 68 2c 20 74 68 65 20 74 77  for both, the tw
7fa0: 6f 20 64 61 74 61 62 61 73 65 73 20 61 72 65 20  o databases are 
7fb0: 69 64 65 6e 74 69 63 61 6c 2e 0a 23 0a 70 72 6f  identical..#.pro
7fc0: 63 20 61 6c 6c 63 6b 73 75 6d 20 7b 7b 64 62 20  c allcksum {{db 
7fd0: 64 62 7d 7d 20 7b 0a 20 20 73 65 74 20 72 65 74  db}} {.  set ret
7fe0: 20 5b 6c 69 73 74 5d 0a 20 20 69 66 63 61 70 61   [list].  ifcapa
7ff0: 62 6c 65 20 74 65 6d 70 64 62 20 7b 0a 20 20 20  ble tempdb {.   
8000: 20 73 65 74 20 73 71 6c 20 7b 0a 20 20 20 20 20   set sql {.     
8010: 20 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f   SELECT name FRO
8020: 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20  M sqlite_master 
8030: 57 48 45 52 45 20 74 79 70 65 20 3d 20 27 74 61  WHERE type = 'ta
8040: 62 6c 65 27 20 55 4e 49 4f 4e 0a 20 20 20 20 20  ble' UNION.     
8050: 20 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f   SELECT name FRO
8060: 4d 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61  M sqlite_temp_ma
8070: 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65 20  ster WHERE type 
8080: 3d 20 27 74 61 62 6c 65 27 20 55 4e 49 4f 4e 0a  = 'table' UNION.
8090: 20 20 20 20 20 20 53 45 4c 45 43 54 20 27 73 71        SELECT 'sq
80a0: 6c 69 74 65 5f 6d 61 73 74 65 72 27 20 55 4e 49  lite_master' UNI
80b0: 4f 4e 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20  ON.      SELECT 
80c0: 27 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73  'sqlite_temp_mas
80d0: 74 65 72 27 20 4f 52 44 45 52 20 42 59 20 31 0a  ter' ORDER BY 1.
80e0: 20 20 20 20 7d 0a 20 20 7d 20 65 6c 73 65 20 7b      }.  } else {
80f0: 0a 20 20 20 20 73 65 74 20 73 71 6c 20 7b 0a 20  .    set sql {. 
8100: 20 20 20 20 20 53 45 4c 45 43 54 20 6e 61 6d 65       SELECT name
8110: 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73   FROM sqlite_mas
8120: 74 65 72 20 57 48 45 52 45 20 74 79 70 65 20 3d  ter WHERE type =
8130: 20 27 74 61 62 6c 65 27 20 55 4e 49 4f 4e 0a 20   'table' UNION. 
8140: 20 20 20 20 20 53 45 4c 45 43 54 20 27 73 71 6c       SELECT 'sql
8150: 69 74 65 5f 6d 61 73 74 65 72 27 20 4f 52 44 45  ite_master' ORDE
8160: 52 20 42 59 20 31 0a 20 20 20 20 7d 0a 20 20 7d  R BY 1.    }.  }
8170: 0a 20 20 73 65 74 20 74 62 6c 6c 69 73 74 20 5b  .  set tbllist [
8180: 24 64 62 20 65 76 61 6c 20 24 73 71 6c 5d 0a 20  $db eval $sql]. 
8190: 20 73 65 74 20 74 78 74 20 7b 7d 0a 20 20 66 6f   set txt {}.  fo
81a0: 72 65 61 63 68 20 74 62 6c 20 24 74 62 6c 6c 69  reach tbl $tblli
81b0: 73 74 20 7b 0a 20 20 20 20 61 70 70 65 6e 64 20  st {.    append 
81c0: 74 78 74 20 5b 24 64 62 20 65 76 61 6c 20 22 53  txt [$db eval "S
81d0: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 24 74 62  ELECT * FROM $tb
81e0: 6c 22 5d 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63  l"].  }.  foreac
81f0: 68 20 70 72 61 67 20 7b 64 65 66 61 75 6c 74 5f  h prag {default_
8200: 63 61 63 68 65 5f 73 69 7a 65 7d 20 7b 0a 20 20  cache_size} {.  
8210: 20 20 61 70 70 65 6e 64 20 74 78 74 20 24 70 72    append txt $pr
8220: 61 67 2d 5b 24 64 62 20 65 76 61 6c 20 22 50 52  ag-[$db eval "PR
8230: 41 47 4d 41 20 24 70 72 61 67 22 5d 5c 6e 0a 20  AGMA $prag"]\n. 
8240: 20 7d 0a 20 20 23 20 70 75 74 73 20 74 78 74 3d   }.  # puts txt=
8250: 24 74 78 74 0a 20 20 72 65 74 75 72 6e 20 5b 6d  $txt.  return [m
8260: 64 35 20 24 74 78 74 5d 0a 7d 0a 0a 23 20 47 65  d5 $txt].}..# Ge
8270: 6e 65 72 61 74 65 20 61 20 63 68 65 63 6b 73 75  nerate a checksu
8280: 6d 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 63  m based on the c
8290: 6f 6e 74 65 6e 74 73 20 6f 66 20 61 20 73 69 6e  ontents of a sin
82a0: 67 6c 65 20 64 61 74 61 62 61 73 65 20 77 69 74  gle database wit
82b0: 68 0a 23 20 61 20 64 61 74 61 62 61 73 65 20 63  h.# a database c
82c0: 6f 6e 6e 65 63 74 69 6f 6e 2e 20 20 54 68 65 20  onnection.  The 
82d0: 6e 61 6d 65 20 6f 66 20 74 68 65 20 64 61 74 61  name of the data
82e0: 62 61 73 65 20 69 73 20 24 64 62 6e 61 6d 65 2e  base is $dbname.
82f0: 20 20 0a 23 20 45 78 61 6d 70 6c 65 73 20 6f 66    .# Examples of
8300: 20 24 64 62 6e 61 6d 65 20 61 72 65 20 22 74 65   $dbname are "te
8310: 6d 70 22 20 6f 72 20 22 6d 61 69 6e 22 2e 0a 23  mp" or "main"..#
8320: 0a 70 72 6f 63 20 64 62 63 6b 73 75 6d 20 7b 64  .proc dbcksum {d
8330: 62 20 64 62 6e 61 6d 65 7d 20 7b 0a 20 20 69 66  b dbname} {.  if
8340: 20 7b 24 64 62 6e 61 6d 65 3d 3d 22 74 65 6d 70   {$dbname=="temp
8350: 22 7d 20 7b 0a 20 20 20 20 73 65 74 20 6d 61 73  "} {.    set mas
8360: 74 65 72 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f  ter sqlite_temp_
8370: 6d 61 73 74 65 72 0a 20 20 7d 20 65 6c 73 65 20  master.  } else 
8380: 7b 0a 20 20 20 20 73 65 74 20 6d 61 73 74 65 72  {.    set master
8390: 20 24 64 62 6e 61 6d 65 2e 73 71 6c 69 74 65 5f   $dbname.sqlite_
83a0: 6d 61 73 74 65 72 0a 20 20 7d 0a 20 20 73 65 74  master.  }.  set
83b0: 20 61 6c 6c 74 61 62 20 5b 24 64 62 20 65 76 61   alltab [$db eva
83c0: 6c 20 22 53 45 4c 45 43 54 20 6e 61 6d 65 20 46  l "SELECT name F
83d0: 52 4f 4d 20 24 6d 61 73 74 65 72 20 57 48 45 52  ROM $master WHER
83e0: 45 20 74 79 70 65 3d 27 74 61 62 6c 65 27 22 5d  E type='table'"]
83f0: 0a 20 20 73 65 74 20 74 78 74 20 5b 24 64 62 20  .  set txt [$db 
8400: 65 76 61 6c 20 22 53 45 4c 45 43 54 20 2a 20 46  eval "SELECT * F
8410: 52 4f 4d 20 24 6d 61 73 74 65 72 22 5d 5c 6e 0a  ROM $master"]\n.
8420: 20 20 66 6f 72 65 61 63 68 20 74 61 62 20 24 61    foreach tab $a
8430: 6c 6c 74 61 62 20 7b 0a 20 20 20 20 61 70 70 65  lltab {.    appe
8440: 6e 64 20 74 78 74 20 5b 24 64 62 20 65 76 61 6c  nd txt [$db eval
8450: 20 22 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20   "SELECT * FROM 
8460: 24 64 62 6e 61 6d 65 2e 24 74 61 62 22 5d 5c 6e  $dbname.$tab"]\n
8470: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 5b 6d  .  }.  return [m
8480: 64 35 20 24 74 78 74 5d 0a 7d 0a 0a 70 72 6f 63  d5 $txt].}..proc
8490: 20 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 5f 73 71   memdebug_log_sq
84a0: 6c 20 7b 7b 66 69 6c 65 6e 61 6d 65 20 6d 61 6c  l {{filename mal
84b0: 6c 6f 63 73 2e 73 71 6c 7d 7d 20 7b 0a 0a 20 20  locs.sql}} {..  
84c0: 73 65 74 20 64 61 74 61 20 5b 73 71 6c 69 74 65  set data [sqlite
84d0: 33 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 20 64  3_memdebug_log d
84e0: 75 6d 70 5d 0a 20 20 73 65 74 20 6e 46 72 61 6d  ump].  set nFram
84f0: 65 20 5b 65 78 70 72 20 5b 6c 6c 65 6e 67 74 68  e [expr [llength
8500: 20 5b 6c 69 6e 64 65 78 20 24 64 61 74 61 20 30   [lindex $data 0
8510: 5d 5d 2d 32 5d 0a 20 20 69 66 20 7b 24 6e 46 72  ]]-2].  if {$nFr
8520: 61 6d 65 20 3c 20 30 7d 20 7b 20 72 65 74 75 72  ame < 0} { retur
8530: 6e 20 22 22 20 7d 0a 0a 20 20 73 65 74 20 64 61  n "" }..  set da
8540: 74 61 62 61 73 65 20 74 65 6d 70 0a 0a 20 20 73  tabase temp..  s
8550: 65 74 20 74 62 6c 20 22 43 52 45 41 54 45 20 54  et tbl "CREATE T
8560: 41 42 4c 45 20 24 7b 64 61 74 61 62 61 73 65 7d  ABLE ${database}
8570: 2e 6d 61 6c 6c 6f 63 28 7a 54 65 73 74 2c 20 6e  .malloc(zTest, n
8580: 43 61 6c 6c 2c 20 6e 42 79 74 65 2c 20 6c 53 74  Call, nByte, lSt
8590: 61 63 6b 29 3b 22 0a 0a 20 20 73 65 74 20 73 71  ack);"..  set sq
85a0: 6c 20 22 22 0a 20 20 66 6f 72 65 61 63 68 20 65  l "".  foreach e
85b0: 20 24 64 61 74 61 20 7b 0a 20 20 20 20 73 65 74   $data {.    set
85c0: 20 6e 43 61 6c 6c 20 5b 6c 69 6e 64 65 78 20 24   nCall [lindex $
85d0: 65 20 30 5d 0a 20 20 20 20 73 65 74 20 6e 42 79  e 0].    set nBy
85e0: 74 65 20 5b 6c 69 6e 64 65 78 20 24 65 20 31 5d  te [lindex $e 1]
85f0: 0a 20 20 20 20 73 65 74 20 6c 53 74 61 63 6b 20  .    set lStack 
8600: 5b 6c 72 61 6e 67 65 20 24 65 20 32 20 65 6e 64  [lrange $e 2 end
8610: 5d 0a 20 20 20 20 61 70 70 65 6e 64 20 73 71 6c  ].    append sql
8620: 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 24 7b   "INSERT INTO ${
8630: 64 61 74 61 62 61 73 65 7d 2e 6d 61 6c 6c 6f 63  database}.malloc
8640: 20 56 41 4c 55 45 53 22 0a 20 20 20 20 61 70 70   VALUES".    app
8650: 65 6e 64 20 73 71 6c 20 22 28 27 74 65 73 74 27  end sql "('test'
8660: 2c 20 24 6e 43 61 6c 6c 2c 20 24 6e 42 79 74 65  , $nCall, $nByte
8670: 2c 20 27 24 6c 53 74 61 63 6b 27 29 3b 5c 6e 22  , '$lStack');\n"
8680: 0a 20 20 20 20 66 6f 72 65 61 63 68 20 66 20 24  .    foreach f $
8690: 6c 53 74 61 63 6b 20 7b 0a 20 20 20 20 20 20 73  lStack {.      s
86a0: 65 74 20 66 72 61 6d 65 73 28 24 66 29 20 31 0a  et frames($f) 1.
86b0: 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 73 65 74      }.  }..  set
86c0: 20 74 62 6c 32 20 22 43 52 45 41 54 45 20 54 41   tbl2 "CREATE TA
86d0: 42 4c 45 20 24 7b 64 61 74 61 62 61 73 65 7d 2e  BLE ${database}.
86e0: 66 72 61 6d 65 28 66 72 61 6d 65 20 49 4e 54 45  frame(frame INTE
86f0: 47 45 52 20 50 52 49 4d 41 52 59 20 4b 45 59 2c  GER PRIMARY KEY,
8700: 20 6c 69 6e 65 29 3b 5c 6e 22 0a 20 20 73 65 74   line);\n".  set
8710: 20 74 62 6c 33 20 22 43 52 45 41 54 45 20 54 41   tbl3 "CREATE TA
8720: 42 4c 45 20 24 7b 64 61 74 61 62 61 73 65 7d 2e  BLE ${database}.
8730: 66 69 6c 65 28 6e 61 6d 65 20 50 52 49 4d 41 52  file(name PRIMAR
8740: 59 20 4b 45 59 2c 20 63 6f 6e 74 65 6e 74 29 3b  Y KEY, content);
8750: 5c 6e 22 0a 0a 20 20 66 6f 72 65 61 63 68 20 66  \n"..  foreach f
8760: 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 66 72   [array names fr
8770: 61 6d 65 73 5d 20 7b 0a 20 20 20 20 73 65 74 20  ames] {.    set 
8780: 61 64 64 72 20 5b 66 6f 72 6d 61 74 20 25 78 20  addr [format %x 
8790: 24 66 5d 0a 20 20 20 20 73 65 74 20 63 6d 64 20  $f].    set cmd 
87a0: 22 61 64 64 72 32 6c 69 6e 65 20 2d 65 20 5b 69  "addr2line -e [i
87b0: 6e 66 6f 20 6e 61 6d 65 6f 66 65 78 65 63 5d 20  nfo nameofexec] 
87c0: 24 61 64 64 72 22 0a 20 20 20 20 73 65 74 20 6c  $addr".    set l
87d0: 69 6e 65 20 5b 65 76 61 6c 20 65 78 65 63 20 24  ine [eval exec $
87e0: 63 6d 64 5d 0a 20 20 20 20 61 70 70 65 6e 64 20  cmd].    append 
87f0: 73 71 6c 20 22 49 4e 53 45 52 54 20 49 4e 54 4f  sql "INSERT INTO
8800: 20 24 7b 64 61 74 61 62 61 73 65 7d 2e 66 72 61   ${database}.fra
8810: 6d 65 20 56 41 4c 55 45 53 28 24 66 2c 20 27 24  me VALUES($f, '$
8820: 6c 69 6e 65 27 29 3b 5c 6e 22 0a 0a 20 20 20 20  line');\n"..    
8830: 73 65 74 20 66 69 6c 65 20 5b 6c 69 6e 64 65 78  set file [lindex
8840: 20 5b 73 70 6c 69 74 20 24 6c 69 6e 65 20 3a 5d   [split $line :]
8850: 20 30 5d 0a 20 20 20 20 73 65 74 20 66 69 6c 65   0].    set file
8860: 73 28 24 66 69 6c 65 29 20 31 0a 20 20 7d 0a 0a  s($file) 1.  }..
8870: 20 20 66 6f 72 65 61 63 68 20 66 20 5b 61 72 72    foreach f [arr
8880: 61 79 20 6e 61 6d 65 73 20 66 69 6c 65 73 5d 20  ay names files] 
8890: 7b 0a 20 20 20 20 73 65 74 20 63 6f 6e 74 65 6e  {.    set conten
88a0: 74 73 20 22 22 0a 20 20 20 20 63 61 74 63 68 20  ts "".    catch 
88b0: 7b 0a 20 20 20 20 20 20 73 65 74 20 66 64 20 5b  {.      set fd [
88c0: 6f 70 65 6e 20 24 66 5d 0a 20 20 20 20 20 20 73  open $f].      s
88d0: 65 74 20 63 6f 6e 74 65 6e 74 73 20 5b 72 65 61  et contents [rea
88e0: 64 20 24 66 64 5d 0a 20 20 20 20 20 20 63 6c 6f  d $fd].      clo
88f0: 73 65 20 24 66 64 0a 20 20 20 20 7d 0a 20 20 20  se $fd.    }.   
8900: 20 73 65 74 20 63 6f 6e 74 65 6e 74 73 20 5b 73   set contents [s
8910: 74 72 69 6e 67 20 6d 61 70 20 7b 27 20 27 27 7d  tring map {' ''}
8920: 20 24 63 6f 6e 74 65 6e 74 73 5d 0a 20 20 20 20   $contents].    
8930: 61 70 70 65 6e 64 20 73 71 6c 20 22 49 4e 53 45  append sql "INSE
8940: 52 54 20 49 4e 54 4f 20 24 7b 64 61 74 61 62 61  RT INTO ${databa
8950: 73 65 7d 2e 66 69 6c 65 20 56 41 4c 55 45 53 28  se}.file VALUES(
8960: 27 24 66 27 2c 20 27 24 63 6f 6e 74 65 6e 74 73  '$f', '$contents
8970: 27 29 3b 5c 6e 22 0a 20 20 7d 0a 0a 20 20 73 65  ');\n".  }..  se
8980: 74 20 66 64 20 5b 6f 70 65 6e 20 24 66 69 6c 65  t fd [open $file
8990: 6e 61 6d 65 20 77 5d 0a 20 20 70 75 74 73 20 24  name w].  puts $
89a0: 66 64 20 22 42 45 47 49 4e 3b 20 24 7b 74 62 6c  fd "BEGIN; ${tbl
89b0: 7d 24 7b 74 62 6c 32 7d 24 7b 74 62 6c 33 7d 24  }${tbl2}${tbl3}$
89c0: 7b 73 71 6c 7d 20 3b 20 43 4f 4d 4d 49 54 3b 22  {sql} ; COMMIT;"
89d0: 0a 20 20 63 6c 6f 73 65 20 24 66 64 0a 7d 0a 0a  .  close $fd.}..
89e0: 23 20 43 6f 70 79 20 66 69 6c 65 20 24 66 72 6f  # Copy file $fro
89f0: 6d 20 69 6e 74 6f 20 24 74 6f 2e 20 54 68 69 73  m into $to. This
8a00: 20 69 73 20 75 73 65 64 20 62 65 63 61 75 73 65   is used because
8a10: 20 73 6f 6d 65 20 76 65 72 73 69 6f 6e 73 20 6f   some versions o
8a20: 66 0a 23 20 54 43 4c 20 66 6f 72 20 77 69 6e 64  f.# TCL for wind
8a30: 6f 77 73 20 28 6e 6f 74 61 62 6c 79 20 74 68 65  ows (notably the
8a40: 20 38 2e 34 2e 31 20 62 69 6e 61 72 79 20 70 61   8.4.1 binary pa
8a50: 63 6b 61 67 65 20 73 68 69 70 70 65 64 20 77 69  ckage shipped wi
8a60: 74 68 20 74 68 65 0a 23 20 63 75 72 72 65 6e 74  th the.# current
8a70: 20 6d 69 6e 67 77 20 72 65 6c 65 61 73 65 29 20   mingw release) 
8a80: 68 61 76 65 20 61 20 62 72 6f 6b 65 6e 20 22 66  have a broken "f
8a90: 69 6c 65 20 63 6f 70 79 22 20 63 6f 6d 6d 61 6e  ile copy" comman
8aa0: 64 2e 0a 23 0a 70 72 6f 63 20 63 6f 70 79 5f 66  d..#.proc copy_f
8ab0: 69 6c 65 20 7b 66 72 6f 6d 20 74 6f 7d 20 7b 0a  ile {from to} {.
8ac0: 20 20 69 66 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61    if {$::tcl_pla
8ad0: 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 3d  tform(platform)=
8ae0: 3d 22 75 6e 69 78 22 7d 20 7b 0a 20 20 20 20 66  ="unix"} {.    f
8af0: 69 6c 65 20 63 6f 70 79 20 2d 66 6f 72 63 65 20  ile copy -force 
8b00: 24 66 72 6f 6d 20 24 74 6f 0a 20 20 7d 20 65 6c  $from $to.  } el
8b10: 73 65 20 7b 0a 20 20 20 20 73 65 74 20 66 20 5b  se {.    set f [
8b20: 6f 70 65 6e 20 24 66 72 6f 6d 5d 0a 20 20 20 20  open $from].    
8b30: 66 63 6f 6e 66 69 67 75 72 65 20 24 66 20 2d 74  fconfigure $f -t
8b40: 72 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72  ranslation binar
8b50: 79 0a 20 20 20 20 73 65 74 20 74 20 5b 6f 70 65  y.    set t [ope
8b60: 6e 20 24 74 6f 20 77 5d 0a 20 20 20 20 66 63 6f  n $to w].    fco
8b70: 6e 66 69 67 75 72 65 20 24 74 20 2d 74 72 61 6e  nfigure $t -tran
8b80: 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72 79 0a 20  slation binary. 
8b90: 20 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69     puts -nonewli
8ba0: 6e 65 20 24 74 20 5b 72 65 61 64 20 24 66 20 5b  ne $t [read $f [
8bb0: 66 69 6c 65 20 73 69 7a 65 20 24 66 72 6f 6d 5d  file size $from]
8bc0: 5d 0a 20 20 20 20 63 6c 6f 73 65 20 24 74 0a 20  ].    close $t. 
8bd0: 20 20 20 63 6c 6f 73 65 20 24 66 0a 20 20 7d 0a     close $f.  }.
8be0: 7d 0a 0a 23 20 44 72 6f 70 20 61 6c 6c 20 74 61  }..# Drop all ta
8bf0: 62 6c 65 73 20 69 6e 20 64 61 74 61 62 61 73 65  bles in database
8c00: 20 5b 64 62 5d 0a 70 72 6f 63 20 64 72 6f 70 5f   [db].proc drop_
8c10: 61 6c 6c 5f 74 61 62 6c 65 73 20 7b 7b 64 62 20  all_tables {{db 
8c20: 64 62 7d 7d 20 7b 0a 20 20 69 66 63 61 70 61 62  db}} {.  ifcapab
8c30: 6c 65 20 74 72 69 67 67 65 72 26 26 66 6f 72 65  le trigger&&fore
8c40: 69 67 6e 6b 65 79 20 7b 0a 20 20 20 20 73 65 74  ignkey {.    set
8c50: 20 70 6b 20 5b 24 64 62 20 6f 6e 65 20 22 50 52   pk [$db one "PR
8c60: 41 47 4d 41 20 66 6f 72 65 69 67 6e 5f 6b 65 79  AGMA foreign_key
8c70: 73 22 5d 0a 20 20 20 20 24 64 62 20 65 76 61 6c  s"].    $db eval
8c80: 20 22 50 52 41 47 4d 41 20 66 6f 72 65 69 67 6e   "PRAGMA foreign
8c90: 5f 6b 65 79 73 20 3d 20 4f 46 46 22 0a 20 20 7d  _keys = OFF".  }
8ca0: 0a 20 20 66 6f 72 65 61 63 68 20 7b 69 64 78 20  .  foreach {idx 
8cb0: 6e 61 6d 65 20 66 69 6c 65 7d 20 5b 64 62 20 65  name file} [db e
8cc0: 76 61 6c 20 7b 50 52 41 47 4d 41 20 64 61 74 61  val {PRAGMA data
8cd0: 62 61 73 65 5f 6c 69 73 74 7d 5d 20 7b 0a 20 20  base_list}] {.  
8ce0: 20 20 69 66 20 7b 24 69 64 78 3d 3d 31 7d 20 7b    if {$idx==1} {
8cf0: 0a 20 20 20 20 20 20 73 65 74 20 6d 61 73 74 65  .      set maste
8d00: 72 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61  r sqlite_temp_ma
8d10: 73 74 65 72 0a 20 20 20 20 7d 20 65 6c 73 65 20  ster.    } else 
8d20: 7b 0a 20 20 20 20 20 20 73 65 74 20 6d 61 73 74  {.      set mast
8d30: 65 72 20 24 6e 61 6d 65 2e 73 71 6c 69 74 65 5f  er $name.sqlite_
8d40: 6d 61 73 74 65 72 0a 20 20 20 20 7d 0a 20 20 20  master.    }.   
8d50: 20 66 6f 72 65 61 63 68 20 7b 74 20 74 79 70 65   foreach {t type
8d60: 7d 20 5b 24 64 62 20 65 76 61 6c 20 22 0a 20 20  } [$db eval ".  
8d70: 20 20 20 20 53 45 4c 45 43 54 20 6e 61 6d 65 2c      SELECT name,
8d80: 20 74 79 70 65 20 46 52 4f 4d 20 24 6d 61 73 74   type FROM $mast
8d90: 65 72 0a 20 20 20 20 20 20 57 48 45 52 45 20 74  er.      WHERE t
8da0: 79 70 65 20 49 4e 28 27 74 61 62 6c 65 27 2c 20  ype IN('table', 
8db0: 27 76 69 65 77 27 29 20 41 4e 44 20 6e 61 6d 65  'view') AND name
8dc0: 20 4e 4f 54 20 4c 49 4b 45 20 27 73 71 6c 69 74   NOT LIKE 'sqlit
8dd0: 65 58 5f 25 27 20 45 53 43 41 50 45 20 27 58 27  eX_%' ESCAPE 'X'
8de0: 0a 20 20 20 20 22 5d 20 7b 0a 20 20 20 20 20 20  .    "] {.      
8df0: 24 64 62 20 65 76 61 6c 20 22 44 52 4f 50 20 24  $db eval "DROP $
8e00: 74 79 70 65 20 5c 22 24 74 5c 22 22 0a 20 20 20  type \"$t\"".   
8e10: 20 7d 0a 20 20 7d 0a 20 20 69 66 63 61 70 61 62   }.  }.  ifcapab
8e20: 6c 65 20 74 72 69 67 67 65 72 26 26 66 6f 72 65  le trigger&&fore
8e30: 69 67 6e 6b 65 79 20 7b 0a 20 20 20 20 24 64 62  ignkey {.    $db
8e40: 20 65 76 61 6c 20 22 50 52 41 47 4d 41 20 66 6f   eval "PRAGMA fo
8e50: 72 65 69 67 6e 5f 6b 65 79 73 20 3d 20 24 70 6b  reign_keys = $pk
8e60: 22 0a 20 20 7d 0a 7d 0a 0a 23 2d 2d 2d 2d 2d 2d  ".  }.}..#------
8e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8eb0: 2d 2d 2d 0a 23 20 49 66 20 61 20 74 65 73 74 20  ---.# If a test 
8ec0: 73 63 72 69 70 74 20 69 73 20 65 78 65 63 75 74  script is execut
8ed0: 65 64 20 77 69 74 68 20 67 6c 6f 62 61 6c 20 76  ed with global v
8ee0: 61 72 69 61 62 6c 65 20 24 3a 3a 47 28 70 65 72  ariable $::G(per
8ef0: 6d 3a 6e 61 6d 65 29 20 73 65 74 20 74 6f 0a 23  m:name) set to.#
8f00: 20 22 77 61 6c 22 2c 20 74 68 65 6e 20 74 68 65   "wal", then the
8f10: 20 74 65 73 74 73 20 61 72 65 20 72 75 6e 20 69   tests are run i
8f20: 6e 20 57 41 4c 20 6d 6f 64 65 2e 20 4f 74 68 65  n WAL mode. Othe
8f30: 72 77 69 73 65 2c 20 74 68 65 79 20 73 68 6f 75  rwise, they shou
8f40: 6c 64 20 62 65 20 72 75 6e 20 0a 23 20 69 6e 20  ld be run .# in 
8f50: 72 6f 6c 6c 62 61 63 6b 20 6d 6f 64 65 2e 20 54  rollback mode. T
8f60: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 54 63 6c  he following Tcl
8f70: 20 70 72 6f 63 73 20 61 72 65 20 75 73 65 64 20   procs are used 
8f80: 74 6f 20 6d 61 6b 65 20 74 68 69 73 20 6c 65 73  to make this les
8f90: 73 20 0a 23 20 69 6e 74 72 75 73 69 76 65 3a 0a  s .# intrusive:.
8fa0: 23 0a 23 20 20 20 77 61 6c 5f 73 65 74 5f 6a 6f  #.#   wal_set_jo
8fb0: 75 72 6e 61 6c 5f 6d 6f 64 65 20 3f 44 42 3f 0a  urnal_mode ?DB?.
8fc0: 23 0a 23 20 20 20 20 20 49 66 20 72 75 6e 6e 69  #.#     If runni
8fd0: 6e 67 20 61 20 57 41 4c 20 74 65 73 74 2c 20 65  ng a WAL test, e
8fe0: 78 65 63 75 74 65 20 22 50 52 41 47 4d 41 20 6a  xecute "PRAGMA j
8ff0: 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20 77 61  ournal_mode = wa
9000: 6c 22 20 75 73 69 6e 67 0a 23 20 20 20 20 20 63  l" using.#     c
9010: 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 6e 64 6c 65  onnection handle
9020: 20 44 42 2e 20 4f 74 68 65 72 77 69 73 65 2c 20   DB. Otherwise, 
9030: 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20  this command is 
9040: 61 20 6e 6f 2d 6f 70 2e 0a 23 0a 23 20 20 20 77  a no-op..#.#   w
9050: 61 6c 5f 63 68 65 63 6b 5f 6a 6f 75 72 6e 61 6c  al_check_journal
9060: 5f 6d 6f 64 65 20 54 45 53 54 4e 41 4d 45 20 3f  _mode TESTNAME ?
9070: 44 42 3f 0a 23 0a 23 20 20 20 20 20 49 66 20 72  DB?.#.#     If r
9080: 75 6e 6e 69 6e 67 20 61 20 57 41 4c 20 74 65 73  unning a WAL tes
9090: 74 2c 20 65 78 65 63 75 74 65 20 61 20 74 65 73  t, execute a tes
90a0: 74 73 20 63 61 73 65 20 74 68 61 74 20 66 61 69  ts case that fai
90b0: 6c 73 20 69 66 20 74 68 65 20 6d 61 69 6e 0a 23  ls if the main.#
90c0: 20 20 20 20 20 64 61 74 61 62 61 73 65 20 66 6f       database fo
90d0: 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 6e  r connection han
90e0: 64 6c 65 20 44 42 20 69 73 20 6e 6f 74 20 63 75  dle DB is not cu
90f0: 72 72 65 6e 74 6c 79 20 61 20 57 41 4c 20 64 61  rrently a WAL da
9100: 74 61 62 61 73 65 2e 0a 23 20 20 20 20 20 4f 74  tabase..#     Ot
9110: 68 65 72 77 69 73 65 20 28 69 66 20 6e 6f 74 20  herwise (if not 
9120: 72 75 6e 6e 69 6e 67 20 61 20 57 41 4c 20 70 65  running a WAL pe
9130: 72 6d 75 74 61 74 69 6f 6e 29 20 74 68 69 73 20  rmutation) this 
9140: 69 73 20 61 20 6e 6f 2d 6f 70 2e 0a 23 0a 23 20  is a no-op..#.# 
9150: 20 20 77 61 6c 5f 69 73 5f 77 61 6c 5f 6d 6f 64    wal_is_wal_mod
9160: 65 0a 23 20 20 20 0a 23 20 20 20 20 20 52 65 74  e.#   .#     Ret
9170: 75 72 6e 73 20 74 72 75 65 20 69 66 20 74 68 69  urns true if thi
9180: 73 20 74 65 73 74 20 73 68 6f 75 6c 64 20 62 65  s test should be
9190: 20 72 75 6e 20 69 6e 20 57 41 4c 20 6d 6f 64 65   run in WAL mode
91a0: 2e 20 46 61 6c 73 65 20 6f 74 68 65 72 77 69 73  . False otherwis
91b0: 65 2e 0a 23 20 0a 70 72 6f 63 20 77 61 6c 5f 69  e..# .proc wal_i
91c0: 73 5f 77 61 6c 5f 6d 6f 64 65 20 7b 7d 20 7b 0a  s_wal_mode {} {.
91d0: 20 20 65 78 70 72 20 7b 5b 70 65 72 6d 75 74 61    expr {[permuta
91e0: 74 69 6f 6e 5d 20 65 71 20 22 77 61 6c 22 7d 0a  tion] eq "wal"}.
91f0: 7d 0a 70 72 6f 63 20 77 61 6c 5f 73 65 74 5f 6a  }.proc wal_set_j
9200: 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 7b 7b 64 62  ournal_mode {{db
9210: 20 64 62 7d 7d 20 7b 0a 20 20 69 66 20 7b 20 5b   db}} {.  if { [
9220: 77 61 6c 5f 69 73 5f 77 61 6c 5f 6d 6f 64 65 5d  wal_is_wal_mode]
9230: 20 7d 20 7b 0a 20 20 20 20 24 64 62 20 65 76 61   } {.    $db eva
9240: 6c 20 22 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61  l "PRAGMA journa
9250: 6c 5f 6d 6f 64 65 20 3d 20 57 41 4c 22 0a 20 20  l_mode = WAL".  
9260: 7d 0a 7d 0a 70 72 6f 63 20 77 61 6c 5f 63 68 65  }.}.proc wal_che
9270: 63 6b 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20  ck_journal_mode 
9280: 7b 74 65 73 74 6e 61 6d 65 20 7b 64 62 20 64 62  {testname {db db
9290: 7d 7d 20 7b 0a 20 20 69 66 20 7b 20 5b 77 61 6c  }} {.  if { [wal
92a0: 5f 69 73 5f 77 61 6c 5f 6d 6f 64 65 5d 20 7d 20  _is_wal_mode] } 
92b0: 7b 0a 20 20 20 20 24 64 62 20 65 76 61 6c 20 7b  {.    $db eval {
92c0: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73   SELECT * FROM s
92d0: 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 7d 0a 20  qlite_master }. 
92e0: 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74     do_test $test
92f0: 6e 61 6d 65 20 5b 6c 69 73 74 20 24 64 62 20 65  name [list $db e
9300: 76 61 6c 20 22 50 52 41 47 4d 41 20 6d 61 69 6e  val "PRAGMA main
9310: 2e 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 22 5d 20  .journal_mode"] 
9320: 7b 77 61 6c 7d 0a 20 20 7d 0a 7d 0a 0a 70 72 6f  {wal}.  }.}..pro
9330: 63 20 70 65 72 6d 75 74 61 74 69 6f 6e 20 7b 7d  c permutation {}
9340: 20 7b 0a 20 20 73 65 74 20 70 65 72 6d 20 22 22   {.  set perm ""
9350: 0a 20 20 63 61 74 63 68 20 7b 73 65 74 20 70 65  .  catch {set pe
9360: 72 6d 20 24 3a 3a 47 28 70 65 72 6d 3a 6e 61 6d  rm $::G(perm:nam
9370: 65 29 7d 0a 20 20 73 65 74 20 70 65 72 6d 0a 7d  e)}.  set perm.}
9380: 0a 70 72 6f 63 20 70 72 65 73 71 6c 20 7b 7d 20  .proc presql {} 
9390: 7b 0a 20 20 73 65 74 20 70 72 65 73 71 6c 20 22  {.  set presql "
93a0: 22 0a 20 20 63 61 74 63 68 20 7b 73 65 74 20 70  ".  catch {set p
93b0: 72 65 73 71 6c 20 24 3a 3a 47 28 70 65 72 6d 3a  resql $::G(perm:
93c0: 70 72 65 73 71 6c 29 7d 0a 20 20 73 65 74 20 70  presql)}.  set p
93d0: 72 65 73 71 6c 0a 7d 0a 0a 23 2d 2d 2d 2d 2d 2d  resql.}..#------
93e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
93f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9420: 2d 2d 2d 0a 23 0a 70 72 6f 63 20 73 6c 61 76 65  ---.#.proc slave
9430: 5f 74 65 73 74 5f 73 63 72 69 70 74 20 7b 73 63  _test_script {sc
9440: 72 69 70 74 7d 20 7b 0a 0a 20 20 23 20 43 72 65  ript} {..  # Cre
9450: 61 74 65 20 74 68 65 20 69 6e 74 65 72 70 72 65  ate the interpre
9460: 74 65 72 20 75 73 65 64 20 74 6f 20 72 75 6e 20  ter used to run 
9470: 74 68 65 20 74 65 73 74 20 73 63 72 69 70 74 2e  the test script.
9480: 0a 20 20 69 6e 74 65 72 70 20 63 72 65 61 74 65  .  interp create
9490: 20 74 69 6e 74 65 72 70 0a 0a 20 20 23 20 50 6f   tinterp..  # Po
94a0: 70 75 6c 61 74 65 20 73 6f 6d 65 20 67 6c 6f 62  pulate some glob
94b0: 61 6c 20 76 61 72 69 61 62 6c 65 73 20 74 68 61  al variables tha
94c0: 74 20 74 65 73 74 65 72 2e 74 63 6c 20 65 78 70  t tester.tcl exp
94d0: 65 63 74 73 20 74 6f 20 73 65 65 2e 0a 20 20 66  ects to see..  f
94e0: 6f 72 65 61 63 68 20 7b 76 61 72 20 76 61 6c 75  oreach {var valu
94f0: 65 7d 20 5b 6c 69 73 74 20 20 20 20 20 20 20 20  e} [list        
9500: 20 20 20 20 20 20 5c 0a 20 20 20 20 3a 3a 61 72        \.    ::ar
9510: 67 76 30 20 24 3a 3a 61 72 67 76 30 20 20 20 20  gv0 $::argv0    
9520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9530: 20 5c 0a 20 20 20 20 3a 3a 61 72 67 76 20 20 7b   \.    ::argv  {
9540: 7d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  }               
9550: 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a 20 20              \.  
9560: 20 20 3a 3a 53 4c 41 56 45 20 31 20 20 20 20 20    ::SLAVE 1     
9570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9580: 20 20 20 20 20 20 20 5c 0a 20 20 5d 20 7b 0a 20         \.  ] {. 
9590: 20 20 20 69 6e 74 65 72 70 20 65 76 61 6c 20 74     interp eval t
95a0: 69 6e 74 65 72 70 20 5b 6c 69 73 74 20 73 65 74  interp [list set
95b0: 20 24 76 61 72 20 24 76 61 6c 75 65 5d 0a 20 20   $var $value].  
95c0: 7d 0a 0a 20 20 23 20 54 68 65 20 61 6c 69 61 73  }..  # The alias
95d0: 20 75 73 65 64 20 74 6f 20 61 63 63 65 73 73 20   used to access 
95e0: 74 68 65 20 67 6c 6f 62 61 6c 20 74 65 73 74 20  the global test 
95f0: 63 6f 75 6e 74 65 72 73 2e 0a 20 20 74 69 6e 74  counters..  tint
9600: 65 72 70 20 61 6c 69 61 73 20 73 65 74 5f 74 65  erp alias set_te
9610: 73 74 5f 63 6f 75 6e 74 65 72 20 73 65 74 5f 74  st_counter set_t
9620: 65 73 74 5f 63 6f 75 6e 74 65 72 0a 0a 20 20 23  est_counter..  #
9630: 20 53 65 74 20 75 70 20 74 68 65 20 3a 3a 63 6d   Set up the ::cm
9640: 64 6c 69 6e 65 61 72 67 20 61 72 72 61 79 20 69  dlinearg array i
9650: 6e 20 74 68 65 20 73 6c 61 76 65 2e 0a 20 20 69  n the slave..  i
9660: 6e 74 65 72 70 20 65 76 61 6c 20 74 69 6e 74 65  nterp eval tinte
9670: 72 70 20 5b 6c 69 73 74 20 61 72 72 61 79 20 73  rp [list array s
9680: 65 74 20 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 20  et ::cmdlinearg 
9690: 5b 61 72 72 61 79 20 67 65 74 20 3a 3a 63 6d 64  [array get ::cmd
96a0: 6c 69 6e 65 61 72 67 5d 5d 0a 0a 20 20 23 20 53  linearg]]..  # S
96b0: 65 74 20 75 70 20 74 68 65 20 3a 3a 47 20 61 72  et up the ::G ar
96c0: 72 61 79 20 69 6e 20 74 68 65 20 73 6c 61 76 65  ray in the slave
96d0: 2e 0a 20 20 69 6e 74 65 72 70 20 65 76 61 6c 20  ..  interp eval 
96e0: 74 69 6e 74 65 72 70 20 5b 6c 69 73 74 20 61 72  tinterp [list ar
96f0: 72 61 79 20 73 65 74 20 3a 3a 47 20 5b 61 72 72  ray set ::G [arr
9700: 61 79 20 67 65 74 20 3a 3a 47 5d 5d 0a 0a 20 20  ay get ::G]]..  
9710: 23 20 4c 6f 61 64 20 74 68 65 20 76 61 72 69 6f  # Load the vario
9720: 75 73 20 74 65 73 74 20 69 6e 74 65 72 66 61 63  us test interfac
9730: 65 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 69  es implemented i
9740: 6e 20 43 2e 0a 20 20 6c 6f 61 64 5f 74 65 73 74  n C..  load_test
9750: 66 69 78 74 75 72 65 5f 65 78 74 65 6e 73 69 6f  fixture_extensio
9760: 6e 73 20 74 69 6e 74 65 72 70 0a 0a 20 20 23 20  ns tinterp..  # 
9770: 52 75 6e 20 74 68 65 20 74 65 73 74 20 73 63 72  Run the test scr
9780: 69 70 74 2e 0a 20 20 69 6e 74 65 72 70 20 65 76  ipt..  interp ev
9790: 61 6c 20 74 69 6e 74 65 72 70 20 24 73 63 72 69  al tinterp $scri
97a0: 70 74 0a 0a 20 20 23 20 43 68 65 63 6b 20 69 66  pt..  # Check if
97b0: 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72   the interpreter
97c0: 20 63 61 6c 6c 20 5b 72 75 6e 5f 74 68 72 65 61   call [run_threa
97d0: 64 5f 74 65 73 74 73 5d 0a 20 20 69 66 20 7b 20  d_tests].  if { 
97e0: 5b 69 6e 74 65 72 70 20 65 76 61 6c 20 74 69 6e  [interp eval tin
97f0: 74 65 72 70 20 7b 69 6e 66 6f 20 65 78 69 73 74  terp {info exist
9800: 73 20 3a 3a 72 75 6e 5f 74 68 72 65 61 64 5f 74  s ::run_thread_t
9810: 65 73 74 73 5f 63 61 6c 6c 65 64 7d 5d 20 7d 20  ests_called}] } 
9820: 7b 0a 20 20 20 20 73 65 74 20 3a 3a 72 75 6e 5f  {.    set ::run_
9830: 74 68 72 65 61 64 5f 74 65 73 74 73 5f 63 61 6c  thread_tests_cal
9840: 6c 65 64 20 31 0a 20 20 7d 0a 0a 20 20 23 20 44  led 1.  }..  # D
9850: 65 6c 65 74 65 20 74 68 65 20 69 6e 74 65 72 70  elete the interp
9860: 72 65 74 65 72 20 75 73 65 64 20 74 6f 20 72 75  reter used to ru
9870: 6e 20 74 68 65 20 74 65 73 74 20 73 63 72 69 70  n the test scrip
9880: 74 2e 0a 20 20 69 6e 74 65 72 70 20 64 65 6c 65  t..  interp dele
9890: 74 65 20 74 69 6e 74 65 72 70 0a 7d 0a 0a 70 72  te tinterp.}..pr
98a0: 6f 63 20 73 6c 61 76 65 5f 74 65 73 74 5f 66 69  oc slave_test_fi
98b0: 6c 65 20 7b 7a 46 69 6c 65 7d 20 7b 0a 20 20 73  le {zFile} {.  s
98c0: 65 74 20 74 61 69 6c 20 5b 66 69 6c 65 20 74 61  et tail [file ta
98d0: 69 6c 20 24 7a 46 69 6c 65 5d 0a 0a 20 20 23 20  il $zFile]..  # 
98e0: 52 65 6d 65 6d 62 65 72 20 74 68 65 20 76 61 6c  Remember the val
98f0: 75 65 20 6f 66 20 74 68 65 20 73 68 61 72 65 64  ue of the shared
9900: 2d 63 61 63 68 65 20 73 65 74 74 69 6e 67 2e 20  -cache setting. 
9910: 53 6f 20 74 68 61 74 20 69 74 20 69 73 20 70 6f  So that it is po
9920: 73 73 69 62 6c 65 0a 20 20 23 20 74 6f 20 63 68  ssible.  # to ch
9930: 65 63 6b 20 61 66 74 65 72 77 61 72 64 73 20 74  eck afterwards t
9940: 68 61 74 20 69 74 20 77 61 73 20 6e 6f 74 20 6d  hat it was not m
9950: 6f 64 69 66 69 65 64 20 62 79 20 74 68 65 20 74  odified by the t
9960: 65 73 74 20 73 63 72 69 70 74 2e 0a 20 20 23 0a  est script..  #.
9970: 20 20 69 66 63 61 70 61 62 6c 65 20 73 68 61 72    ifcapable shar
9980: 65 64 5f 63 61 63 68 65 20 7b 20 73 65 74 20 73  ed_cache { set s
9990: 63 73 20 5b 73 71 6c 69 74 65 33 5f 65 6e 61 62  cs [sqlite3_enab
99a0: 6c 65 5f 73 68 61 72 65 64 5f 63 61 63 68 65 5d  le_shared_cache]
99b0: 20 7d 0a 0a 20 20 23 20 52 75 6e 20 74 68 65 20   }..  # Run the 
99c0: 74 65 73 74 20 73 63 72 69 70 74 20 69 6e 20 61  test script in a
99d0: 20 73 6c 61 76 65 20 69 6e 74 65 72 70 72 65 74   slave interpret
99e0: 65 72 2e 0a 20 20 23 0a 20 20 75 6e 73 65 74 20  er..  #.  unset 
99f0: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 3a 3a 72 75  -nocomplain ::ru
9a00: 6e 5f 74 68 72 65 61 64 5f 74 65 73 74 73 5f 63  n_thread_tests_c
9a10: 61 6c 6c 65 64 0a 20 20 72 65 73 65 74 5f 70 72  alled.  reset_pr
9a20: 6e 67 5f 73 74 61 74 65 0a 20 20 73 65 74 20 3a  ng_state.  set :
9a30: 3a 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c  :sqlite_open_fil
9a40: 65 5f 63 6f 75 6e 74 20 30 0a 20 20 73 65 74 20  e_count 0.  set 
9a50: 74 69 6d 65 20 5b 74 69 6d 65 20 7b 20 73 6c 61  time [time { sla
9a60: 76 65 5f 74 65 73 74 5f 73 63 72 69 70 74 20 5b  ve_test_script [
9a70: 6c 69 73 74 20 73 6f 75 72 63 65 20 24 7a 46 69  list source $zFi
9a80: 6c 65 5d 20 7d 5d 0a 20 20 73 65 74 20 6d 73 20  le] }].  set ms 
9a90: 5b 65 78 70 72 20 5b 6c 69 6e 64 65 78 20 24 74  [expr [lindex $t
9aa0: 69 6d 65 20 30 5d 20 2f 20 31 30 30 30 5d 0a 0a  ime 0] / 1000]..
9ab0: 20 20 23 20 54 65 73 74 20 74 68 61 74 20 61 6c    # Test that al
9ac0: 6c 20 66 69 6c 65 73 20 6f 70 65 6e 65 64 20 62  l files opened b
9ad0: 79 20 74 68 65 20 74 65 73 74 20 73 63 72 69 70  y the test scrip
9ae0: 74 20 77 65 72 65 20 63 6c 6f 73 65 64 2e 20 4f  t were closed. O
9af0: 6d 69 74 20 74 68 69 73 0a 20 20 23 20 69 66 20  mit this.  # if 
9b00: 74 68 65 20 74 65 73 74 20 73 63 72 69 70 74 20  the test script 
9b10: 68 61 73 20 22 74 68 72 65 61 64 22 20 69 6e 20  has "thread" in 
9b20: 69 74 73 20 6e 61 6d 65 2e 20 54 68 65 20 6f 70  its name. The op
9b30: 65 6e 20 66 69 6c 65 20 63 6f 75 6e 74 65 72 0a  en file counter.
9b40: 20 20 23 20 69 73 20 6e 6f 74 20 74 68 72 65 61    # is not threa
9b50: 64 2d 73 61 66 65 2e 0a 20 20 23 0a 20 20 69 66  d-safe..  #.  if
9b60: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
9b70: 3a 72 75 6e 5f 74 68 72 65 61 64 5f 74 65 73 74  :run_thread_test
9b80: 73 5f 63 61 6c 6c 65 64 5d 3d 3d 30 7d 20 7b 0a  s_called]==0} {.
9b90: 20 20 20 20 64 6f 5f 74 65 73 74 20 24 7b 74 61      do_test ${ta
9ba0: 69 6c 7d 2d 63 6c 6f 73 65 61 6c 6c 66 69 6c 65  il}-closeallfile
9bb0: 73 20 7b 20 65 78 70 72 20 7b 24 3a 3a 73 71 6c  s { expr {$::sql
9bc0: 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f  ite_open_file_co
9bd0: 75 6e 74 3e 30 7d 20 7d 20 7b 30 7d 0a 20 20 7d  unt>0} } {0}.  }
9be0: 0a 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f  .  set ::sqlite_
9bf0: 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 20  open_file_count 
9c00: 30 0a 0a 20 20 23 20 54 65 73 74 20 74 68 61 74  0..  # Test that
9c10: 20 74 68 65 20 67 6c 6f 62 61 6c 20 22 73 68 61   the global "sha
9c20: 72 65 64 2d 63 61 63 68 65 22 20 73 65 74 74 69  red-cache" setti
9c30: 6e 67 20 77 61 73 20 6e 6f 74 20 61 6c 74 65 72  ng was not alter
9c40: 65 64 20 62 79 20 0a 20 20 23 20 74 68 65 20 74  ed by .  # the t
9c50: 65 73 74 20 73 63 72 69 70 74 2e 0a 20 20 23 0a  est script..  #.
9c60: 20 20 69 66 63 61 70 61 62 6c 65 20 73 68 61 72    ifcapable shar
9c70: 65 64 5f 63 61 63 68 65 20 7b 20 0a 20 20 20 20  ed_cache { .    
9c80: 73 65 74 20 72 65 73 20 5b 65 78 70 72 20 7b 5b  set res [expr {[
9c90: 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 73  sqlite3_enable_s
9ca0: 68 61 72 65 64 5f 63 61 63 68 65 5d 20 3d 3d 20  hared_cache] == 
9cb0: 24 73 63 73 7d 5d 0a 20 20 20 20 64 6f 5f 74 65  $scs}].    do_te
9cc0: 73 74 20 24 7b 74 61 69 6c 7d 2d 73 68 61 72 65  st ${tail}-share
9cd0: 64 63 61 63 68 65 73 65 74 74 69 6e 67 20 5b 6c  dcachesetting [l
9ce0: 69 73 74 20 73 65 74 20 7b 7d 20 24 72 65 73 5d  ist set {} $res]
9cf0: 20 31 0a 20 20 7d 0a 0a 20 20 23 20 41 64 64 20   1.  }..  # Add 
9d00: 73 6f 6d 65 20 69 6e 66 6f 20 74 6f 20 74 68 65  some info to the
9d10: 20 6f 75 74 70 75 74 2e 0a 20 20 23 0a 20 20 70   output..  #.  p
9d20: 75 74 73 20 22 54 69 6d 65 3a 20 24 74 61 69 6c  uts "Time: $tail
9d30: 20 24 6d 73 20 6d 73 22 0a 20 20 73 68 6f 77 5f   $ms ms".  show_
9d40: 6d 65 6d 73 74 61 74 73 0a 7d 0a 0a 23 20 4f 70  memstats.}..# Op
9d50: 65 6e 20 61 20 6e 65 77 20 63 6f 6e 6e 65 63 74  en a new connect
9d60: 69 6f 6e 20 6f 6e 20 64 61 74 61 62 61 73 65 20  ion on database 
9d70: 74 65 73 74 2e 64 62 20 61 6e 64 20 65 78 65 63  test.db and exec
9d80: 75 74 65 20 74 68 65 20 53 51 4c 20 73 63 72 69  ute the SQL scri
9d90: 70 74 0a 23 20 73 75 70 70 6c 69 65 64 20 61 73  pt.# supplied as
9da0: 20 61 6e 20 61 72 67 75 6d 65 6e 74 2e 20 42 65   an argument. Be
9db0: 66 6f 72 65 20 72 65 74 75 72 6e 69 6e 67 2c 20  fore returning, 
9dc0: 63 6c 6f 73 65 20 74 68 65 20 6e 65 77 20 63 6f  close the new co
9dd0: 6e 65 63 74 69 6f 6e 20 61 6e 64 0a 23 20 72 65  nection and.# re
9de0: 73 74 6f 72 65 20 74 68 65 20 34 20 62 79 74 65  store the 4 byte
9df0: 20 66 69 65 6c 64 73 20 73 74 61 72 74 69 6e 67   fields starting
9e00: 20 61 74 20 68 65 61 64 65 72 20 6f 66 66 73 65   at header offse
9e10: 74 73 20 32 38 2c 20 39 32 20 61 6e 64 20 39 36  ts 28, 92 and 96
9e20: 0a 23 20 74 6f 20 74 68 65 20 76 61 6c 75 65 73  .# to the values
9e30: 20 74 68 65 79 20 68 65 6c 64 20 62 65 66 6f 72   they held befor
9e40: 65 20 74 68 65 20 53 51 4c 20 77 61 73 20 65 78  e the SQL was ex
9e50: 65 63 75 74 65 64 2e 20 54 68 69 73 20 73 69 6d  ecuted. This sim
9e60: 75 6c 61 74 65 73 0a 23 20 61 20 77 72 69 74 65  ulates.# a write
9e70: 20 62 79 20 61 20 70 72 65 2d 33 2e 37 2e 30 20   by a pre-3.7.0 
9e80: 63 6c 69 65 6e 74 2e 0a 23 0a 70 72 6f 63 20 73  client..#.proc s
9e90: 71 6c 33 36 32 33 31 20 7b 73 71 6c 7d 20 7b 0a  ql36231 {sql} {.
9ea0: 20 20 73 65 74 20 42 20 5b 68 65 78 69 6f 5f 72    set B [hexio_r
9eb0: 65 61 64 20 74 65 73 74 2e 64 62 20 39 32 20 38  ead test.db 92 8
9ec0: 5d 0a 20 20 73 65 74 20 41 20 5b 68 65 78 69 6f  ].  set A [hexio
9ed0: 5f 72 65 61 64 20 74 65 73 74 2e 64 62 20 32 38  _read test.db 28
9ee0: 20 34 5d 0a 20 20 73 71 6c 69 74 65 33 20 64 62   4].  sqlite3 db
9ef0: 33 36 32 33 31 20 74 65 73 74 2e 64 62 0a 20 20  36231 test.db.  
9f00: 63 61 74 63 68 20 7b 20 64 62 33 36 32 33 31 20  catch { db36231 
9f10: 66 75 6e 63 20 61 5f 73 74 72 69 6e 67 20 61 5f  func a_string a_
9f20: 73 74 72 69 6e 67 20 7d 0a 20 20 65 78 65 63 73  string }.  execs
9f30: 71 6c 20 24 73 71 6c 20 64 62 33 36 32 33 31 0a  ql $sql db36231.
9f40: 20 20 64 62 33 36 32 33 31 20 63 6c 6f 73 65 0a    db36231 close.
9f50: 20 20 68 65 78 69 6f 5f 77 72 69 74 65 20 74 65    hexio_write te
9f60: 73 74 2e 64 62 20 32 38 20 24 41 0a 20 20 68 65  st.db 28 $A.  he
9f70: 78 69 6f 5f 77 72 69 74 65 20 74 65 73 74 2e 64  xio_write test.d
9f80: 62 20 39 32 20 24 42 0a 20 20 72 65 74 75 72 6e  b 92 $B.  return
9f90: 20 22 22 0a 7d 0a 0a 23 20 49 66 20 74 68 65 20   "".}..# If the 
9fa0: 6c 69 62 72 61 72 79 20 69 73 20 63 6f 6d 70 69  library is compi
9fb0: 6c 65 64 20 77 69 74 68 20 74 68 65 20 53 51 4c  led with the SQL
9fc0: 49 54 45 5f 44 45 46 41 55 4c 54 5f 41 55 54 4f  ITE_DEFAULT_AUTO
9fd0: 56 41 43 55 55 4d 20 6d 61 63 72 6f 20 73 65 74  VACUUM macro set
9fe0: 0a 23 20 74 6f 20 6e 6f 6e 2d 7a 65 72 6f 2c 20  .# to non-zero, 
9ff0: 74 68 65 6e 20 73 65 74 20 74 68 65 20 67 6c 6f  then set the glo
a000: 62 61 6c 20 76 61 72 69 61 62 6c 65 20 24 41 55  bal variable $AU
a010: 54 4f 56 41 43 55 55 4d 20 74 6f 20 31 2e 0a 73  TOVACUUM to 1..s
a020: 65 74 20 41 55 54 4f 56 41 43 55 55 4d 20 24 73  et AUTOVACUUM $s
a030: 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 28 64 65  qlite_options(de
a040: 66 61 75 6c 74 5f 61 75 74 6f 76 61 63 75 75 6d  fault_autovacuum
a050: 29 0a 0a 73 6f 75 72 63 65 20 24 74 65 73 74 64  )..source $testd
a060: 69 72 2f 74 68 72 65 61 64 5f 63 6f 6d 6d 6f 6e  ir/thread_common
a070: 2e 74 63 6c 0a                                   .tcl.