/ Hex Artifact Content
Login

Artifact 0b2999b578964297663de4870babbbee29225622:


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 65 6c 65  M TO.#      dele
0330: 74 65 5f 66 69 6c 65 20 20 20 20 20 20 20 20 20  te_file         
0340: 20 20 20 46 49 4c 45 4e 41 4d 45 0a 23 20 20 20     FILENAME.#   
0350: 20 20 20 64 72 6f 70 5f 61 6c 6c 5f 74 61 62 6c     drop_all_tabl
0360: 65 73 20 20 20 20 20 20 20 20 3f 44 42 3f 0a 23  es        ?DB?.#
0370: 20 20 20 20 20 20 66 6f 72 63 65 63 6f 70 79 20        forcecopy 
0380: 20 20 20 20 20 20 20 20 20 20 20 20 20 46 52 4f               FRO
0390: 4d 20 54 4f 0a 23 20 20 20 20 20 20 66 6f 72 63  M TO.#      forc
03a0: 65 64 65 6c 65 74 65 20 20 20 20 20 20 20 20 20  edelete         
03b0: 20 20 20 46 49 4c 45 4e 41 4d 45 0a 23 0a 23 20     FILENAME.#.# 
03c0: 54 65 73 74 20 74 68 65 20 63 61 70 61 62 69 6c  Test the capabil
03d0: 69 74 79 20 6f 66 20 74 68 65 20 53 51 4c 69 74  ity of the SQLit
03e0: 65 20 76 65 72 73 69 6f 6e 20 62 75 69 6c 74 20  e version built 
03f0: 69 6e 74 6f 20 74 68 65 20 69 6e 74 65 72 70 72  into the interpr
0400: 65 74 65 72 20 74 6f 0a 23 20 64 65 74 65 72 6d  eter to.# determ
0410: 69 6e 65 20 69 66 20 61 20 73 70 65 63 69 66 69  ine if a specifi
0420: 63 20 74 65 73 74 20 63 61 6e 20 62 65 20 72 75  c test can be ru
0430: 6e 3a 0a 23 0a 23 20 20 20 20 20 20 69 66 63 61  n:.#.#      ifca
0440: 70 61 62 6c 65 20 20 20 20 20 20 20 20 20 20 20  pable           
0450: 20 20 20 45 58 50 52 0a 23 0a 23 20 43 61 6c 75     EXPR.#.# Calu
0460: 6c 61 74 65 20 63 68 65 63 6b 73 75 6d 73 20 62  late checksums b
0470: 61 73 65 64 20 6f 6e 20 64 61 74 61 62 61 73 65  ased on database
0480: 20 63 6f 6e 74 65 6e 74 73 3a 0a 23 0a 23 20 20   contents:.#.#  
0490: 20 20 20 20 64 62 63 6b 73 75 6d 20 20 20 20 20      dbcksum     
04a0: 20 20 20 20 20 20 20 20 20 20 20 44 42 20 44 42             DB DB
04b0: 4e 41 4d 45 0a 23 20 20 20 20 20 20 61 6c 6c 63  NAME.#      allc
04c0: 6b 73 75 6d 20 20 20 20 20 20 20 20 20 20 20 20  ksum            
04d0: 20 20 20 3f 44 42 3f 0a 23 20 20 20 20 20 20 63     ?DB?.#      c
04e0: 6b 73 75 6d 20 20 20 20 20 20 20 20 20 20 20 20  ksum            
04f0: 20 20 20 20 20 20 3f 44 42 3f 0a 23 0a 23 20 43        ?DB?.#.# C
0500: 6f 6d 6d 61 6e 64 73 20 74 6f 20 65 78 65 63 75  ommands to execu
0510: 74 65 2f 65 78 70 6c 61 69 6e 20 53 51 4c 20 73  te/explain SQL s
0520: 74 61 74 65 6d 65 6e 74 73 3a 0a 23 0a 23 20 20  tatements:.#.#  
0530: 20 20 20 20 73 74 65 70 73 71 6c 20 20 20 20 20      stepsql     
0540: 20 20 20 20 20 20 20 20 20 20 20 44 42 20 53 51             DB SQ
0550: 4c 0a 23 20 20 20 20 20 20 65 78 65 63 73 71 6c  L.#      execsql
0560: 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  2               
0570: 53 51 4c 0a 23 20 20 20 20 20 20 65 78 70 6c 61  SQL.#      expla
0580: 69 6e 5f 6e 6f 5f 74 72 61 63 65 20 20 20 20 20  in_no_trace     
0590: 20 20 53 51 4c 0a 23 20 20 20 20 20 20 65 78 70    SQL.#      exp
05a0: 6c 61 69 6e 20 20 20 20 20 20 20 20 20 20 20 20  lain            
05b0: 20 20 20 20 53 51 4c 20 3f 44 42 3f 0a 23 20 20      SQL ?DB?.#  
05c0: 20 20 20 20 63 61 74 63 68 73 71 6c 20 20 20 20      catchsql    
05d0: 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 20 3f             SQL ?
05e0: 44 42 3f 0a 23 20 20 20 20 20 20 65 78 65 63 73  DB?.#      execs
05f0: 71 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ql              
0600: 20 20 53 51 4c 20 3f 44 42 3f 0a 23 0a 23 20 43    SQL ?DB?.#.# C
0610: 6f 6d 6d 61 6e 64 73 20 74 6f 20 72 75 6e 20 74  ommands to run t
0620: 65 73 74 20 63 61 73 65 73 3a 0a 23 0a 23 20 20  est cases:.#.#  
0630: 20 20 20 20 64 6f 5f 69 6f 65 72 72 5f 74 65 73      do_ioerr_tes
0640: 74 20 20 20 20 20 20 20 20 20 20 54 45 53 54 4e  t          TESTN
0650: 41 4d 45 20 41 52 47 53 2e 2e 2e 0a 23 20 20 20  AME ARGS....#   
0660: 20 20 20 63 72 61 73 68 73 71 6c 20 20 20 20 20     crashsql     
0670: 20 20 20 20 20 20 20 20 20 20 41 52 47 53 2e 2e            ARGS..
0680: 2e 0a 23 20 20 20 20 20 20 69 6e 74 65 67 72 69  ..#      integri
0690: 74 79 5f 63 68 65 63 6b 20 20 20 20 20 20 20 20  ty_check        
06a0: 54 45 53 54 4e 41 4d 45 20 3f 44 42 3f 0a 23 20  TESTNAME ?DB?.# 
06b0: 20 20 20 20 20 64 6f 5f 74 65 73 74 20 20 20 20       do_test    
06c0: 20 20 20 20 20 20 20 20 20 20 20 20 54 45 53 54              TEST
06d0: 4e 41 4d 45 20 53 43 52 49 50 54 20 45 58 50 45  NAME SCRIPT EXPE
06e0: 43 54 45 44 0a 23 20 20 20 20 20 20 64 6f 5f 65  CTED.#      do_e
06f0: 78 65 63 73 71 6c 5f 74 65 73 74 20 20 20 20 20  xecsql_test     
0700: 20 20 20 54 45 53 54 4e 41 4d 45 20 53 51 4c 20     TESTNAME SQL 
0710: 45 58 50 45 43 54 45 44 0a 23 20 20 20 20 20 20  EXPECTED.#      
0720: 64 6f 5f 63 61 74 63 68 73 71 6c 5f 74 65 73 74  do_catchsql_test
0730: 20 20 20 20 20 20 20 54 45 53 54 4e 41 4d 45 20         TESTNAME 
0740: 53 51 4c 20 45 58 50 45 43 54 45 44 0a 23 0a 23  SQL EXPECTED.#.#
0750: 20 43 6f 6d 6d 61 6e 64 73 20 70 72 6f 76 69 64   Commands provid
0760: 69 6e 67 20 61 20 6c 6f 77 65 72 20 6c 65 76 65  ing a lower leve
0770: 6c 20 69 6e 74 65 72 66 61 63 65 20 74 6f 20 74  l interface to t
0780: 68 65 20 67 6c 6f 62 61 6c 20 74 65 73 74 20 63  he global test c
0790: 6f 75 6e 74 65 72 73 3a 0a 23 0a 23 20 20 20 20  ounters:.#.#    
07a0: 20 20 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74    set_test_count
07b0: 65 72 20 20 20 20 20 20 20 43 4f 55 4e 54 45 52  er       COUNTER
07c0: 20 3f 56 41 4c 55 45 3f 0a 23 20 20 20 20 20 20   ?VALUE?.#      
07d0: 6f 6d 69 74 5f 74 65 73 74 20 20 20 20 20 20 20  omit_test       
07e0: 20 20 20 20 20 20 20 54 45 53 54 4e 41 4d 45 20         TESTNAME 
07f0: 52 45 41 53 4f 4e 0a 23 20 20 20 20 20 20 66 61  REASON.#      fa
0800: 69 6c 5f 74 65 73 74 20 20 20 20 20 20 20 20 20  il_test         
0810: 20 20 20 20 20 54 45 53 54 4e 41 4d 45 0a 23 20       TESTNAME.# 
0820: 20 20 20 20 20 69 6e 63 72 5f 6e 74 65 73 74 0a       incr_ntest.
0830: 23 0a 23 20 43 6f 6d 6d 61 6e 64 20 72 75 6e 20  #.# Command run 
0840: 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 65 61  at the end of ea
0850: 63 68 20 74 65 73 74 20 66 69 6c 65 3a 0a 23 0a  ch test file:.#.
0860: 23 20 20 20 20 20 20 66 69 6e 69 73 68 5f 74 65  #      finish_te
0870: 73 74 0a 23 0a 23 20 43 6f 6d 6d 61 6e 64 73 20  st.#.# Commands 
0880: 74 6f 20 68 65 6c 70 20 63 72 65 61 74 65 20 74  to help create t
0890: 65 73 74 20 66 69 6c 65 73 20 74 68 61 74 20 72  est files that r
08a0: 75 6e 20 77 69 74 68 20 74 68 65 20 22 57 41 4c  un with the "WAL
08b0: 22 20 61 6e 64 20 6f 74 68 65 72 0a 23 20 70 65  " and other.# pe
08c0: 72 6d 75 74 61 74 69 6f 6e 73 20 28 73 65 65 20  rmutations (see 
08d0: 66 69 6c 65 20 70 65 72 6d 75 74 61 74 69 6f 6e  file permutation
08e0: 73 2e 74 65 73 74 29 3a 0a 23 0a 23 20 20 20 20  s.test):.#.#    
08f0: 20 20 77 61 6c 5f 69 73 5f 77 61 6c 5f 6d 6f 64    wal_is_wal_mod
0900: 65 0a 23 20 20 20 20 20 20 77 61 6c 5f 73 65 74  e.#      wal_set
0910: 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 20 20  _journal_mode   
0920: 3f 44 42 3f 0a 23 20 20 20 20 20 20 77 61 6c 5f  ?DB?.#      wal_
0930: 63 68 65 63 6b 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f  check_journal_mo
0940: 64 65 20 54 45 53 54 4e 41 4d 45 3f 44 42 3f 0a  de TESTNAME?DB?.
0950: 23 20 20 20 20 20 20 70 65 72 6d 75 74 61 74 69  #      permutati
0960: 6f 6e 0a 23 20 20 20 20 20 20 70 72 65 73 71 6c  on.#      presql
0970: 0a 23 0a 0a 23 20 53 65 74 20 74 68 65 20 70 72  .#..# Set the pr
0980: 65 63 69 73 69 6f 6e 20 6f 66 20 46 50 20 61 72  ecision of FP ar
0990: 69 74 68 6d 61 74 69 63 20 75 73 65 64 20 62 79  ithmatic used by
09a0: 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72   the interpreter
09b0: 2e 20 41 6e 64 20 0a 23 20 63 6f 6e 66 69 67 75  . And .# configu
09c0: 72 65 20 53 51 4c 69 74 65 20 74 6f 20 74 61 6b  re SQLite to tak
09d0: 65 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 20  e database file 
09e0: 6c 6f 63 6b 73 20 6f 6e 20 74 68 65 20 70 61 67  locks on the pag
09f0: 65 20 74 68 61 74 20 62 65 67 69 6e 73 0a 23 20  e that begins.# 
0a00: 36 34 4b 42 20 69 6e 74 6f 20 74 68 65 20 64 61  64KB into the da
0a10: 74 61 62 61 73 65 20 66 69 6c 65 20 69 6e 73 74  tabase file inst
0a20: 65 61 64 20 6f 66 20 74 68 65 20 6f 6e 65 20 31  ead of the one 1
0a30: 47 42 20 69 6e 2e 20 54 68 69 73 20 6d 65 61 6e  GB in. This mean
0a40: 73 0a 23 20 74 68 65 20 63 6f 64 65 20 74 68 61  s.# the code tha
0a50: 74 20 68 61 6e 64 6c 65 73 20 74 68 61 74 20 73  t handles that s
0a60: 70 65 63 69 61 6c 20 63 61 73 65 20 63 61 6e 20  pecial case can 
0a70: 62 65 20 74 65 73 74 65 64 20 77 69 74 68 6f 75  be tested withou
0a80: 74 20 63 72 65 61 74 69 6e 67 0a 23 20 76 65 72  t creating.# ver
0a90: 79 20 6c 61 72 67 65 20 64 61 74 61 62 61 73 65  y large database
0aa0: 20 66 69 6c 65 73 2e 0a 23 0a 73 65 74 20 74 63   files..#.set tc
0ab0: 6c 5f 70 72 65 63 69 73 69 6f 6e 20 31 35 0a 73  l_precision 15.s
0ac0: 71 6c 69 74 65 33 5f 74 65 73 74 5f 63 6f 6e 74  qlite3_test_cont
0ad0: 72 6f 6c 5f 70 65 6e 64 69 6e 67 5f 62 79 74 65  rol_pending_byte
0ae0: 20 30 78 30 30 31 30 30 30 30 0a 0a 0a 23 20 49   0x0010000...# I
0af0: 66 20 74 68 65 20 70 61 67 65 72 20 63 6f 64 65  f the pager code
0b00: 63 20 69 73 20 61 76 61 69 6c 61 62 6c 65 2c 20  c is available, 
0b10: 63 72 65 61 74 65 20 61 20 77 72 61 70 70 65 72  create a wrapper
0b20: 20 66 6f 72 20 74 68 65 20 5b 73 71 6c 69 74 65   for the [sqlite
0b30: 33 5d 20 0a 23 20 63 6f 6d 6d 61 6e 64 20 74 68  3] .# command th
0b40: 61 74 20 61 70 70 65 6e 64 73 20 22 2d 6b 65 79  at appends "-key
0b50: 20 7b 78 79 7a 7a 79 7d 22 20 74 6f 20 74 68 65   {xyzzy}" to the
0b60: 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 2e 20 69   command line. i
0b70: 2e 65 2e 20 74 68 69 73 3a 0a 23 0a 23 20 20 20  .e. this:.#.#   
0b80: 20 20 73 71 6c 69 74 65 33 20 64 62 20 74 65 73    sqlite3 db tes
0b90: 74 2e 64 62 0a 23 0a 23 20 62 65 63 6f 6d 65 73  t.db.#.# becomes
0ba0: 0a 23 0a 23 20 20 20 20 20 73 71 6c 69 74 65 33  .#.#     sqlite3
0bb0: 20 64 62 20 74 65 73 74 2e 64 62 20 2d 6b 65 79   db test.db -key
0bc0: 20 7b 78 79 7a 7a 79 7d 0a 23 0a 69 66 20 7b 5b   {xyzzy}.#.if {[
0bd0: 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 20 73 71 6c  info command sql
0be0: 69 74 65 5f 6f 72 69 67 5d 3d 3d 22 22 7d 20 7b  ite_orig]==""} {
0bf0: 0a 20 20 72 65 6e 61 6d 65 20 73 71 6c 69 74 65  .  rename sqlite
0c00: 33 20 73 71 6c 69 74 65 5f 6f 72 69 67 0a 20 20  3 sqlite_orig.  
0c10: 70 72 6f 63 20 73 71 6c 69 74 65 33 20 7b 61 72  proc sqlite3 {ar
0c20: 67 73 7d 20 7b 0a 20 20 20 20 69 66 20 7b 5b 6c  gs} {.    if {[l
0c30: 6c 65 6e 67 74 68 20 24 61 72 67 73 5d 3e 3d 32  length $args]>=2
0c40: 20 26 26 20 5b 73 74 72 69 6e 67 20 69 6e 64 65   && [string inde
0c50: 78 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20  x [lindex $args 
0c60: 30 5d 20 30 5d 21 3d 22 2d 22 7d 20 7b 0a 20 20  0] 0]!="-"} {.  
0c70: 20 20 20 20 23 20 54 68 69 73 20 63 6f 6d 6d 61      # This comma
0c80: 6e 64 20 69 73 20 6f 70 65 6e 69 6e 67 20 61 20  nd is opening a 
0c90: 6e 65 77 20 64 61 74 61 62 61 73 65 20 63 6f 6e  new database con
0ca0: 6e 65 63 74 69 6f 6e 2e 0a 20 20 20 20 20 20 23  nection..      #
0cb0: 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f  .      if {[info
0cc0: 20 65 78 69 73 74 73 20 3a 3a 47 28 70 65 72 6d   exists ::G(perm
0cd0: 3a 73 71 6c 69 74 65 33 5f 61 72 67 73 29 5d 7d  :sqlite3_args)]}
0ce0: 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 61   {.        set a
0cf0: 72 67 73 20 5b 63 6f 6e 63 61 74 20 24 61 72 67  rgs [concat $arg
0d00: 73 20 24 3a 3a 47 28 70 65 72 6d 3a 73 71 6c 69  s $::G(perm:sqli
0d10: 74 65 33 5f 61 72 67 73 29 5d 0a 20 20 20 20 20  te3_args)].     
0d20: 20 7d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 71   }.      if {[sq
0d30: 6c 69 74 65 5f 6f 72 69 67 20 2d 68 61 73 2d 63  lite_orig -has-c
0d40: 6f 64 65 63 5d 20 26 26 20 21 5b 69 6e 66 6f 20  odec] && ![info 
0d50: 65 78 69 73 74 73 20 3a 3a 64 6f 5f 6e 6f 74 5f  exists ::do_not_
0d60: 75 73 65 5f 63 6f 64 65 63 5d 7d 20 7b 0a 20 20  use_codec]} {.  
0d70: 20 20 20 20 20 20 6c 61 70 70 65 6e 64 20 61 72        lappend ar
0d80: 67 73 20 2d 6b 65 79 20 7b 78 79 7a 7a 79 7d 0a  gs -key {xyzzy}.
0d90: 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 73        }..      s
0da0: 65 74 20 72 65 73 20 5b 75 70 6c 65 76 65 6c 20  et res [uplevel 
0db0: 31 20 73 71 6c 69 74 65 5f 6f 72 69 67 20 24 61  1 sqlite_orig $a
0dc0: 72 67 73 5d 0a 20 20 20 20 20 20 69 66 20 7b 5b  rgs].      if {[
0dd0: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 47 28  info exists ::G(
0de0: 70 65 72 6d 3a 70 72 65 73 71 6c 29 5d 7d 20 7b  perm:presql)]} {
0df0: 0a 20 20 20 20 20 20 20 20 5b 6c 69 6e 64 65 78  .        [lindex
0e00: 20 24 61 72 67 73 20 30 5d 20 65 76 61 6c 20 24   $args 0] eval $
0e10: 3a 3a 47 28 70 65 72 6d 3a 70 72 65 73 71 6c 29  ::G(perm:presql)
0e20: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69  .      }.      i
0e30: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
0e40: 3a 3a 47 28 70 65 72 6d 3a 64 62 63 6f 6e 66 69  ::G(perm:dbconfi
0e50: 67 29 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 73  g)]} {.        s
0e60: 65 74 20 3a 3a 64 62 68 61 6e 64 6c 65 20 5b 6c  et ::dbhandle [l
0e70: 69 6e 64 65 78 20 24 61 72 67 73 20 30 5d 0a 20  index $args 0]. 
0e80: 20 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20 23         uplevel #
0e90: 30 20 24 3a 3a 47 28 70 65 72 6d 3a 64 62 63 6f  0 $::G(perm:dbco
0ea0: 6e 66 69 67 29 0a 20 20 20 20 20 20 7d 0a 20 20  nfig).      }.  
0eb0: 20 20 20 20 73 65 74 20 72 65 73 0a 20 20 20 20      set res.    
0ec0: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 23  } else {.      #
0ed0: 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73   This command is
0ee0: 20 6e 6f 74 20 6f 70 65 6e 69 6e 67 20 61 20 6e   not opening a n
0ef0: 65 77 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e  ew database conn
0f00: 65 63 74 69 6f 6e 2e 20 50 61 73 73 20 74 68 65  ection. Pass the
0f10: 20 0a 20 20 20 20 20 20 23 20 61 72 67 75 6d 65   .      # argume
0f20: 6e 74 73 20 74 68 72 6f 75 67 68 20 74 6f 20 74  nts through to t
0f30: 68 65 20 43 20 69 6d 70 6c 65 6d 65 6e 61 74 69  he C implemenati
0f40: 6f 6e 20 61 73 20 74 68 65 20 61 72 65 2e 0a 20  on as the are.. 
0f50: 20 20 20 20 20 23 0a 20 20 20 20 20 20 75 70 6c       #.      upl
0f60: 65 76 65 6c 20 31 20 73 71 6c 69 74 65 5f 6f 72  evel 1 sqlite_or
0f70: 69 67 20 24 61 72 67 73 0a 20 20 20 20 7d 0a 20  ig $args.    }. 
0f80: 20 7d 0a 7d 0a 0a 70 72 6f 63 20 67 65 74 46 69   }.}..proc getFi
0f90: 6c 65 52 65 74 72 69 65 73 20 7b 7d 20 7b 0a 20  leRetries {} {. 
0fa0: 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73   if {![info exis
0fb0: 74 73 20 3a 3a 47 28 66 69 6c 65 2d 72 65 74 72  ts ::G(file-retr
0fc0: 69 65 73 29 5d 7d 20 7b 0a 20 20 20 20 23 0a 20  ies)]} {.    #. 
0fd0: 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72     # NOTE: Retur
0fe0: 6e 20 74 68 65 20 64 65 66 61 75 6c 74 20 6e 75  n the default nu
0ff0: 6d 62 65 72 20 6f 66 20 72 65 74 72 69 65 73 20  mber of retries 
1000: 66 6f 72 20 5b 66 69 6c 65 5d 20 6f 70 65 72 61  for [file] opera
1010: 74 69 6f 6e 73 2e 20 20 41 0a 20 20 20 20 23 20  tions.  A.    # 
1020: 20 20 20 20 20 20 76 61 6c 75 65 20 6f 66 20 7a        value of z
1030: 65 72 6f 20 6f 72 20 6c 65 73 73 20 68 65 72 65  ero or less here
1040: 20 6d 65 61 6e 73 20 22 64 69 73 61 62 6c 65 64   means "disabled
1050: 22 2e 0a 20 20 20 20 23 0a 20 20 20 20 72 65 74  "..    #.    ret
1060: 75 72 6e 20 5b 65 78 70 72 20 7b 24 3a 3a 74 63  urn [expr {$::tc
1070: 6c 5f 70 6c 61 74 66 6f 72 6d 28 70 6c 61 74 66  l_platform(platf
1080: 6f 72 6d 29 20 65 71 20 22 77 69 6e 64 6f 77 73  orm) eq "windows
1090: 22 20 3f 20 31 30 20 3a 20 30 7d 5d 0a 20 20 7d  " ? 10 : 0}].  }
10a0: 0a 20 20 72 65 74 75 72 6e 20 24 3a 3a 47 28 66  .  return $::G(f
10b0: 69 6c 65 2d 72 65 74 72 69 65 73 29 0a 7d 0a 0a  ile-retries).}..
10c0: 70 72 6f 63 20 67 65 74 46 69 6c 65 52 65 74 72  proc getFileRetr
10d0: 79 44 65 6c 61 79 20 7b 7d 20 7b 0a 20 20 69 66  yDelay {} {.  if
10e0: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20   {![info exists 
10f0: 3a 3a 47 28 66 69 6c 65 2d 72 65 74 72 79 2d 64  ::G(file-retry-d
1100: 65 6c 61 79 29 5d 7d 20 7b 0a 20 20 20 20 23 0a  elay)]} {.    #.
1110: 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75      # NOTE: Retu
1120: 72 6e 20 74 68 65 20 64 65 66 61 75 6c 74 20 6e  rn the default n
1130: 75 6d 62 65 72 20 6f 66 20 6d 69 6c 6c 69 73 65  umber of millise
1140: 63 6f 6e 64 73 20 74 6f 20 77 61 69 74 20 77 68  conds to wait wh
1150: 65 6e 20 72 65 74 72 79 69 6e 67 0a 20 20 20 20  en retrying.    
1160: 23 20 20 20 20 20 20 20 66 61 69 6c 65 64 20 5b  #       failed [
1170: 66 69 6c 65 5d 20 6f 70 65 72 61 74 69 6f 6e 73  file] operations
1180: 2e 20 20 41 20 76 61 6c 75 65 20 6f 66 20 7a 65  .  A value of ze
1190: 72 6f 20 6f 72 20 6c 65 73 73 20 6d 65 61 6e 73  ro or less means
11a0: 20 22 64 6f 20 6e 6f 74 0a 20 20 20 20 23 20 20   "do not.    #  
11b0: 20 20 20 20 20 77 61 69 74 22 2e 0a 20 20 20 20       wait"..    
11c0: 23 0a 20 20 20 20 72 65 74 75 72 6e 20 31 30 30  #.    return 100
11d0: 3b 20 23 20 54 4f 44 4f 3a 20 47 6f 6f 64 20 64  ; # TODO: Good d
11e0: 65 66 61 75 6c 74 3f 0a 20 20 7d 0a 20 20 72 65  efault?.  }.  re
11f0: 74 75 72 6e 20 24 3a 3a 47 28 66 69 6c 65 2d 72  turn $::G(file-r
1200: 65 74 72 79 2d 64 65 6c 61 79 29 0a 7d 0a 0a 23  etry-delay).}..#
1210: 20 43 6f 70 79 20 66 69 6c 65 20 24 66 72 6f 6d   Copy file $from
1220: 20 69 6e 74 6f 20 24 74 6f 2e 20 54 68 69 73 20   into $to. This 
1230: 69 73 20 75 73 65 64 20 62 65 63 61 75 73 65 20  is used because 
1240: 73 6f 6d 65 20 76 65 72 73 69 6f 6e 73 20 6f 66  some versions of
1250: 0a 23 20 54 43 4c 20 66 6f 72 20 77 69 6e 64 6f  .# TCL for windo
1260: 77 73 20 28 6e 6f 74 61 62 6c 79 20 74 68 65 20  ws (notably the 
1270: 38 2e 34 2e 31 20 62 69 6e 61 72 79 20 70 61 63  8.4.1 binary pac
1280: 6b 61 67 65 20 73 68 69 70 70 65 64 20 77 69 74  kage shipped wit
1290: 68 20 74 68 65 0a 23 20 63 75 72 72 65 6e 74 20  h the.# current 
12a0: 6d 69 6e 67 77 20 72 65 6c 65 61 73 65 29 20 68  mingw release) h
12b0: 61 76 65 20 61 20 62 72 6f 6b 65 6e 20 22 66 69  ave a broken "fi
12c0: 6c 65 20 63 6f 70 79 22 20 63 6f 6d 6d 61 6e 64  le copy" command
12d0: 2e 0a 23 0a 70 72 6f 63 20 63 6f 70 79 5f 66 69  ..#.proc copy_fi
12e0: 6c 65 20 7b 66 72 6f 6d 20 74 6f 7d 20 7b 0a 20  le {from to} {. 
12f0: 20 64 6f 5f 63 6f 70 79 5f 66 69 6c 65 20 66 61   do_copy_file fa
1300: 6c 73 65 20 24 66 72 6f 6d 20 24 74 6f 0a 7d 0a  lse $from $to.}.
1310: 0a 70 72 6f 63 20 66 6f 72 63 65 63 6f 70 79 20  .proc forcecopy 
1320: 7b 66 72 6f 6d 20 74 6f 7d 20 7b 0a 20 20 64 6f  {from to} {.  do
1330: 5f 63 6f 70 79 5f 66 69 6c 65 20 74 72 75 65 20  _copy_file true 
1340: 24 66 72 6f 6d 20 24 74 6f 0a 7d 0a 0a 70 72 6f  $from $to.}..pro
1350: 63 20 64 6f 5f 63 6f 70 79 5f 66 69 6c 65 20 7b  c do_copy_file {
1360: 66 6f 72 63 65 20 66 72 6f 6d 20 74 6f 7d 20 7b  force from to} {
1370: 0a 20 20 73 65 74 20 6e 52 65 74 72 79 20 5b 67  .  set nRetry [g
1380: 65 74 46 69 6c 65 52 65 74 72 69 65 73 5d 20 20  etFileRetries]  
1390: 20 20 20 3b 23 20 4d 61 78 69 6d 75 6d 20 6e 75     ;# Maximum nu
13a0: 6d 62 65 72 20 6f 66 20 72 65 74 72 69 65 73 2e  mber of retries.
13b0: 0a 20 20 73 65 74 20 6e 44 65 6c 61 79 20 5b 67  .  set nDelay [g
13c0: 65 74 46 69 6c 65 52 65 74 72 79 44 65 6c 61 79  etFileRetryDelay
13d0: 5d 20 20 3b 23 20 44 65 6c 61 79 20 69 6e 20 6d  ]  ;# Delay in m
13e0: 73 20 62 65 66 6f 72 65 20 72 65 74 72 79 69 6e  s before retryin
13f0: 67 2e 0a 0a 20 20 23 20 4f 6e 20 77 69 6e 64 6f  g...  # On windo
1400: 77 73 2c 20 73 6f 6d 65 74 69 6d 65 73 20 65 76  ws, sometimes ev
1410: 65 6e 20 61 20 5b 66 69 6c 65 20 63 6f 70 79 20  en a [file copy 
1420: 2d 66 6f 72 63 65 5d 20 63 61 6e 20 66 61 69 6c  -force] can fail
1430: 2e 20 54 68 65 20 63 61 75 73 65 20 69 73 0a 20  . The cause is. 
1440: 20 23 20 75 73 75 61 6c 6c 79 20 22 74 61 67 2d   # usually "tag-
1450: 61 6c 6f 6e 67 73 22 20 2d 20 70 72 6f 67 72 61  alongs" - progra
1460: 6d 73 20 6c 69 6b 65 20 61 6e 74 69 2d 76 69 72  ms like anti-vir
1470: 75 73 20 73 6f 66 74 77 61 72 65 2c 20 61 75 74  us software, aut
1480: 6f 6d 61 74 69 63 20 62 61 63 6b 75 70 0a 20 20  omatic backup.  
1490: 23 20 74 6f 6f 6c 73 20 61 6e 64 20 76 61 72 69  # tools and vari
14a0: 6f 75 73 20 65 78 70 6c 6f 72 65 72 20 65 78 74  ous explorer ext
14b0: 65 6e 73 69 6f 6e 73 20 74 68 61 74 20 6b 65 65  ensions that kee
14c0: 70 20 61 20 66 69 6c 65 20 6f 70 65 6e 20 61 20  p a file open a 
14d0: 6c 69 74 74 6c 65 20 6c 6f 6e 67 65 72 0a 20 20  little longer.  
14e0: 23 20 74 68 61 6e 20 77 65 20 65 78 70 65 63 74  # than we expect
14f0: 2c 20 63 61 75 73 69 6e 67 20 74 68 65 20 64 65  , causing the de
1500: 6c 65 74 65 20 74 6f 20 66 61 69 6c 2e 0a 20 20  lete to fail..  
1510: 23 0a 20 20 23 20 54 68 65 20 73 6f 6c 75 74 69  #.  # The soluti
1520: 6f 6e 20 69 73 20 74 6f 20 77 61 69 74 20 61 20  on is to wait a 
1530: 73 68 6f 72 74 20 61 6d 6f 75 6e 74 20 6f 66 20  short amount of 
1540: 74 69 6d 65 20 62 65 66 6f 72 65 20 72 65 74 72  time before retr
1550: 79 69 6e 67 20 74 68 65 20 63 6f 70 79 2e 0a 20  ying the copy.. 
1560: 20 23 0a 20 20 69 66 20 7b 24 6e 52 65 74 72 79   #.  if {$nRetry
1570: 20 3e 20 30 7d 20 7b 0a 20 20 20 20 66 6f 72 20   > 0} {.    for 
1580: 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 3c 24 6e  {set i 0} {$i<$n
1590: 52 65 74 72 79 7d 20 7b 69 6e 63 72 20 69 7d 20  Retry} {incr i} 
15a0: 7b 0a 20 20 20 20 20 20 73 65 74 20 72 63 20 5b  {.      set rc [
15b0: 63 61 74 63 68 20 7b 0a 20 20 20 20 20 20 20 20  catch {.        
15c0: 69 66 20 7b 24 66 6f 72 63 65 7d 20 7b 0a 20 20  if {$force} {.  
15d0: 20 20 20 20 20 20 20 20 66 69 6c 65 20 63 6f 70          file cop
15e0: 79 20 2d 66 6f 72 63 65 20 24 66 72 6f 6d 20 24  y -force $from $
15f0: 74 6f 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73  to.        } els
1600: 65 20 7b 0a 20 20 20 20 20 20 20 20 20 20 66 69  e {.          fi
1610: 6c 65 20 63 6f 70 79 20 24 66 72 6f 6d 20 24 74  le copy $from $t
1620: 6f 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  o.        }.    
1630: 20 20 7d 20 6d 73 67 5d 0a 20 20 20 20 20 20 69    } msg].      i
1640: 66 20 7b 24 72 63 3d 3d 30 7d 20 62 72 65 61 6b  f {$rc==0} break
1650: 0a 20 20 20 20 20 20 69 66 20 7b 24 6e 44 65 6c  .      if {$nDel
1660: 61 79 20 3e 20 30 7d 20 7b 20 61 66 74 65 72 20  ay > 0} { after 
1670: 24 6e 44 65 6c 61 79 20 7d 0a 20 20 20 20 7d 0a  $nDelay }.    }.
1680: 20 20 20 20 69 66 20 7b 24 72 63 7d 20 7b 20 65      if {$rc} { e
1690: 72 72 6f 72 20 24 6d 73 67 20 7d 0a 20 20 7d 20  rror $msg }.  } 
16a0: 65 6c 73 65 20 7b 0a 20 20 20 20 69 66 20 7b 24  else {.    if {$
16b0: 66 6f 72 63 65 7d 20 7b 0a 20 20 20 20 20 20 66  force} {.      f
16c0: 69 6c 65 20 63 6f 70 79 20 2d 66 6f 72 63 65 20  ile copy -force 
16d0: 24 66 72 6f 6d 20 24 74 6f 0a 20 20 20 20 7d 20  $from $to.    } 
16e0: 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 66 69 6c  else {.      fil
16f0: 65 20 63 6f 70 79 20 24 66 72 6f 6d 20 24 74 6f  e copy $from $to
1700: 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 23 20  .    }.  }.}..# 
1710: 44 65 6c 65 74 65 20 61 20 66 69 6c 65 20 6f 72  Delete a file or
1720: 20 64 69 72 65 63 74 6f 72 79 0a 23 0a 70 72 6f   directory.#.pro
1730: 63 20 64 65 6c 65 74 65 5f 66 69 6c 65 20 7b 61  c delete_file {a
1740: 72 67 73 7d 20 7b 0a 20 20 64 6f 5f 64 65 6c 65  rgs} {.  do_dele
1750: 74 65 5f 66 69 6c 65 20 66 61 6c 73 65 20 7b 2a  te_file false {*
1760: 7d 24 61 72 67 73 0a 7d 0a 0a 70 72 6f 63 20 66  }$args.}..proc f
1770: 6f 72 63 65 64 65 6c 65 74 65 20 7b 61 72 67 73  orcedelete {args
1780: 7d 20 7b 0a 20 20 64 6f 5f 64 65 6c 65 74 65 5f  } {.  do_delete_
1790: 66 69 6c 65 20 74 72 75 65 20 7b 2a 7d 24 61 72  file true {*}$ar
17a0: 67 73 0a 7d 0a 0a 70 72 6f 63 20 64 6f 5f 64 65  gs.}..proc do_de
17b0: 6c 65 74 65 5f 66 69 6c 65 20 7b 66 6f 72 63 65  lete_file {force
17c0: 20 61 72 67 73 7d 20 7b 0a 20 20 73 65 74 20 6e   args} {.  set n
17d0: 52 65 74 72 79 20 5b 67 65 74 46 69 6c 65 52 65  Retry [getFileRe
17e0: 74 72 69 65 73 5d 20 20 20 20 20 3b 23 20 4d 61  tries]     ;# Ma
17f0: 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20  ximum number of 
1800: 72 65 74 72 69 65 73 2e 0a 20 20 73 65 74 20 6e  retries..  set n
1810: 44 65 6c 61 79 20 5b 67 65 74 46 69 6c 65 52 65  Delay [getFileRe
1820: 74 72 79 44 65 6c 61 79 5d 20 20 3b 23 20 44 65  tryDelay]  ;# De
1830: 6c 61 79 20 69 6e 20 6d 73 20 62 65 66 6f 72 65  lay in ms before
1840: 20 72 65 74 72 79 69 6e 67 2e 0a 0a 20 20 66 6f   retrying...  fo
1850: 72 65 61 63 68 20 66 69 6c 65 6e 61 6d 65 20 24  reach filename $
1860: 61 72 67 73 20 7b 0a 20 20 20 20 23 20 4f 6e 20  args {.    # On 
1870: 77 69 6e 64 6f 77 73 2c 20 73 6f 6d 65 74 69 6d  windows, sometim
1880: 65 73 20 65 76 65 6e 20 61 20 5b 66 69 6c 65 20  es even a [file 
1890: 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 5d 20 63  delete -force] c
18a0: 61 6e 20 66 61 69 6c 20 6a 75 73 74 20 61 66 74  an fail just aft
18b0: 65 72 0a 20 20 20 20 23 20 61 20 66 69 6c 65 20  er.    # a file 
18c0: 69 73 20 63 6c 6f 73 65 64 2e 20 54 68 65 20 63  is closed. The c
18d0: 61 75 73 65 20 69 73 20 75 73 75 61 6c 6c 79 20  ause is usually 
18e0: 22 74 61 67 2d 61 6c 6f 6e 67 73 22 20 2d 20 70  "tag-alongs" - p
18f0: 72 6f 67 72 61 6d 73 20 6c 69 6b 65 0a 20 20 20  rograms like.   
1900: 20 23 20 61 6e 74 69 2d 76 69 72 75 73 20 73 6f   # anti-virus so
1910: 66 74 77 61 72 65 2c 20 61 75 74 6f 6d 61 74 69  ftware, automati
1920: 63 20 62 61 63 6b 75 70 20 74 6f 6f 6c 73 20 61  c backup tools a
1930: 6e 64 20 76 61 72 69 6f 75 73 20 65 78 70 6c 6f  nd various explo
1940: 72 65 72 0a 20 20 20 20 23 20 65 78 74 65 6e 73  rer.    # extens
1950: 69 6f 6e 73 20 74 68 61 74 20 6b 65 65 70 20 61  ions that keep a
1960: 20 66 69 6c 65 20 6f 70 65 6e 20 61 20 6c 69 74   file open a lit
1970: 74 6c 65 20 6c 6f 6e 67 65 72 20 74 68 61 6e 20  tle longer than 
1980: 77 65 20 65 78 70 65 63 74 2c 20 63 61 75 73 69  we expect, causi
1990: 6e 67 0a 20 20 20 20 23 20 74 68 65 20 64 65 6c  ng.    # the del
19a0: 65 74 65 20 74 6f 20 66 61 69 6c 2e 0a 20 20 20  ete to fail..   
19b0: 20 23 0a 20 20 20 20 23 20 54 68 65 20 73 6f 6c   #.    # The sol
19c0: 75 74 69 6f 6e 20 69 73 20 74 6f 20 77 61 69 74  ution is to wait
19d0: 20 61 20 73 68 6f 72 74 20 61 6d 6f 75 6e 74 20   a short amount 
19e0: 6f 66 20 74 69 6d 65 20 62 65 66 6f 72 65 20 72  of time before r
19f0: 65 74 72 79 69 6e 67 20 74 68 65 0a 20 20 20 20  etrying the.    
1a00: 23 20 64 65 6c 65 74 65 2e 0a 20 20 20 20 23 0a  # delete..    #.
1a10: 20 20 20 20 69 66 20 7b 24 6e 52 65 74 72 79 20      if {$nRetry 
1a20: 3e 20 30 7d 20 7b 0a 20 20 20 20 20 20 66 6f 72  > 0} {.      for
1a30: 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 3c 24   {set i 0} {$i<$
1a40: 6e 52 65 74 72 79 7d 20 7b 69 6e 63 72 20 69 7d  nRetry} {incr i}
1a50: 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 72   {.        set r
1a60: 63 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 20  c [catch {.     
1a70: 20 20 20 20 20 69 66 20 7b 24 66 6f 72 63 65 7d       if {$force}
1a80: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66   {.            f
1a90: 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63  ile delete -forc
1aa0: 65 20 24 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20  e $filename.    
1ab0: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20        } else {. 
1ac0: 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 20             file 
1ad0: 64 65 6c 65 74 65 20 24 66 69 6c 65 6e 61 6d 65  delete $filename
1ae0: 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20  .          }.   
1af0: 20 20 20 20 20 7d 20 6d 73 67 5d 0a 20 20 20 20       } msg].    
1b00: 20 20 20 20 69 66 20 7b 24 72 63 3d 3d 30 7d 20      if {$rc==0} 
1b10: 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 69 66  break.        if
1b20: 20 7b 24 6e 44 65 6c 61 79 20 3e 20 30 7d 20 7b   {$nDelay > 0} {
1b30: 20 61 66 74 65 72 20 24 6e 44 65 6c 61 79 20 7d   after $nDelay }
1b40: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69  .      }.      i
1b50: 66 20 7b 24 72 63 7d 20 7b 20 65 72 72 6f 72 20  f {$rc} { error 
1b60: 24 6d 73 67 20 7d 0a 20 20 20 20 7d 20 65 6c 73  $msg }.    } els
1b70: 65 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 24 66  e {.      if {$f
1b80: 6f 72 63 65 7d 20 7b 0a 20 20 20 20 20 20 20 20  orce} {.        
1b90: 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72  file delete -for
1ba0: 63 65 20 24 66 69 6c 65 6e 61 6d 65 0a 20 20 20  ce $filename.   
1bb0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20     } else {.    
1bc0: 20 20 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20      file delete 
1bd0: 24 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20  $filename.      
1be0: 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 70  }.    }.  }.}..p
1bf0: 72 6f 63 20 65 78 65 63 70 72 65 73 71 6c 20 7b  roc execpresql {
1c00: 68 61 6e 64 6c 65 20 61 72 67 73 7d 20 7b 0a 20  handle args} {. 
1c10: 20 74 72 61 63 65 20 72 65 6d 6f 76 65 20 65 78   trace remove ex
1c20: 65 63 75 74 69 6f 6e 20 24 68 61 6e 64 6c 65 20  ecution $handle 
1c30: 65 6e 74 65 72 20 5b 6c 69 73 74 20 65 78 65 63  enter [list exec
1c40: 70 72 65 73 71 6c 20 24 68 61 6e 64 6c 65 5d 0a  presql $handle].
1c50: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73    if {[info exis
1c60: 74 73 20 3a 3a 47 28 70 65 72 6d 3a 70 72 65 73  ts ::G(perm:pres
1c70: 71 6c 29 5d 7d 20 7b 0a 20 20 20 20 24 68 61 6e  ql)]} {.    $han
1c80: 64 6c 65 20 65 76 61 6c 20 24 3a 3a 47 28 70 65  dle eval $::G(pe
1c90: 72 6d 3a 70 72 65 73 71 6c 29 0a 20 20 7d 0a 7d  rm:presql).  }.}
1ca0: 0a 0a 23 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64  ..# This command
1cb0: 20 73 68 6f 75 6c 64 20 62 65 20 63 61 6c 6c 65   should be calle
1cc0: 64 20 61 66 74 65 72 20 6c 6f 61 64 69 6e 67 20  d after loading 
1cd0: 74 65 73 74 65 72 2e 74 63 6c 20 66 72 6f 6d 20  tester.tcl from 
1ce0: 77 69 74 68 69 6e 0a 23 20 61 6c 6c 20 74 65 73  within.# all tes
1cf0: 74 20 73 63 72 69 70 74 73 20 74 68 61 74 20 61  t scripts that a
1d00: 72 65 20 69 6e 63 6f 6d 70 61 74 69 62 6c 65 20  re incompatible 
1d10: 77 69 74 68 20 65 6e 63 72 79 70 74 69 6f 6e 20  with encryption 
1d20: 63 6f 64 65 63 73 2e 0a 23 0a 70 72 6f 63 20 64  codecs..#.proc d
1d30: 6f 5f 6e 6f 74 5f 75 73 65 5f 63 6f 64 65 63 20  o_not_use_codec 
1d40: 7b 7d 20 7b 0a 20 20 73 65 74 20 3a 3a 64 6f 5f  {} {.  set ::do_
1d50: 6e 6f 74 5f 75 73 65 5f 63 6f 64 65 63 20 31 0a  not_use_codec 1.
1d60: 20 20 72 65 73 65 74 5f 64 62 0a 7d 0a 0a 23 20    reset_db.}..# 
1d70: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 62 6c  The following bl
1d80: 6f 63 6b 20 6f 6e 6c 79 20 72 75 6e 73 20 74 68  ock only runs th
1d90: 65 20 66 69 72 73 74 20 74 69 6d 65 20 74 68 69  e first time thi
1da0: 73 20 66 69 6c 65 20 69 73 20 73 6f 75 72 63 65  s file is source
1db0: 64 2e 20 49 74 0a 23 20 64 6f 65 73 20 6e 6f 74  d. It.# does not
1dc0: 20 72 75 6e 20 69 6e 20 73 6c 61 76 65 20 69 6e   run in slave in
1dd0: 74 65 72 70 72 65 74 65 72 73 20 28 73 69 6e 63  terpreters (sinc
1de0: 65 20 74 68 65 20 3a 3a 63 6d 64 6c 69 6e 65 61  e the ::cmdlinea
1df0: 72 67 20 61 72 72 61 79 20 69 73 0a 23 20 70 6f  rg array is.# po
1e00: 70 75 6c 61 74 65 64 20 62 65 66 6f 72 65 20 74  pulated before t
1e10: 68 65 20 74 65 73 74 20 73 63 72 69 70 74 20 69  he test script i
1e20: 73 20 72 75 6e 20 69 6e 20 73 6c 61 76 65 20 69  s run in slave i
1e30: 6e 74 65 72 70 72 65 74 65 72 73 29 2e 0a 23 0a  nterpreters)..#.
1e40: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
1e50: 20 63 6d 64 6c 69 6e 65 61 72 67 5d 3d 3d 30 7d   cmdlinearg]==0}
1e60: 20 7b 0a 0a 20 20 23 20 50 61 72 73 65 20 61 6e   {..  # Parse an
1e70: 79 20 6f 70 74 69 6f 6e 73 20 73 70 65 63 69 66  y options specif
1e80: 69 65 64 20 69 6e 20 74 68 65 20 24 61 72 67 76  ied in the $argv
1e90: 20 61 72 72 61 79 2e 20 54 68 69 73 20 73 63 72   array. This scr
1ea0: 69 70 74 20 61 63 63 65 70 74 73 20 74 68 65 20  ipt accepts the 
1eb0: 0a 20 20 23 20 66 6f 6c 6c 6f 77 69 6e 67 20 6f  .  # following o
1ec0: 70 74 69 6f 6e 73 3a 20 0a 20 20 23 0a 20 20 23  ptions: .  #.  #
1ed0: 20 20 20 2d 2d 70 61 75 73 65 0a 20 20 23 20 20     --pause.  #  
1ee0: 20 2d 2d 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d   --soft-heap-lim
1ef0: 69 74 3d 4e 4e 0a 20 20 23 20 20 20 2d 2d 6d 61  it=NN.  #   --ma
1f00: 78 65 72 72 6f 72 3d 4e 4e 0a 20 20 23 20 20 20  xerror=NN.  #   
1f10: 2d 2d 6d 61 6c 6c 6f 63 74 72 61 63 65 3d 4e 0a  --malloctrace=N.
1f20: 20 20 23 20 20 20 2d 2d 62 61 63 6b 74 72 61 63    #   --backtrac
1f30: 65 3d 4e 0a 20 20 23 20 20 20 2d 2d 62 69 6e 61  e=N.  #   --bina
1f40: 72 79 6c 6f 67 3d 4e 0a 20 20 23 20 20 20 2d 2d  rylog=N.  #   --
1f50: 73 6f 61 6b 3d 4e 0a 20 20 23 20 20 20 2d 2d 66  soak=N.  #   --f
1f60: 69 6c 65 2d 72 65 74 72 69 65 73 3d 4e 0a 20 20  ile-retries=N.  
1f70: 23 20 20 20 2d 2d 66 69 6c 65 2d 72 65 74 72 79  #   --file-retry
1f80: 2d 64 65 6c 61 79 3d 4e 0a 20 20 23 20 20 20 2d  -delay=N.  #   -
1f90: 2d 73 74 61 72 74 3d 5b 24 70 65 72 6d 75 74 61  -start=[$permuta
1fa0: 74 69 6f 6e 3a 5d 24 74 65 73 74 66 69 6c 65 0a  tion:]$testfile.
1fb0: 20 20 23 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e    #.  set cmdlin
1fc0: 65 61 72 67 28 73 6f 66 74 2d 68 65 61 70 2d 6c  earg(soft-heap-l
1fd0: 69 6d 69 74 29 20 20 20 20 30 0a 20 20 73 65 74  imit)    0.  set
1fe0: 20 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 78 65   cmdlinearg(maxe
1ff0: 72 72 6f 72 29 20 20 20 20 20 20 20 20 31 30 30  rror)        100
2000: 30 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61  0.  set cmdlinea
2010: 72 67 28 6d 61 6c 6c 6f 63 74 72 61 63 65 29 20  rg(malloctrace) 
2020: 20 20 20 20 20 20 20 30 0a 20 20 73 65 74 20 63         0.  set c
2030: 6d 64 6c 69 6e 65 61 72 67 28 62 61 63 6b 74 72  mdlinearg(backtr
2040: 61 63 65 29 20 20 20 20 20 20 20 20 20 31 30 0a  ace)         10.
2050: 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67    set cmdlinearg
2060: 28 62 69 6e 61 72 79 6c 6f 67 29 20 20 20 20 20  (binarylog)     
2070: 20 20 20 20 20 30 0a 20 20 73 65 74 20 63 6d 64       0.  set cmd
2080: 6c 69 6e 65 61 72 67 28 73 6f 61 6b 29 20 20 20  linearg(soak)   
2090: 20 20 20 20 20 20 20 20 20 20 20 20 30 0a 20 20              0.  
20a0: 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 66  set cmdlinearg(f
20b0: 69 6c 65 2d 72 65 74 72 69 65 73 29 20 20 20 20  ile-retries)    
20c0: 20 20 20 30 0a 20 20 73 65 74 20 63 6d 64 6c 69     0.  set cmdli
20d0: 6e 65 61 72 67 28 66 69 6c 65 2d 72 65 74 72 79  nearg(file-retry
20e0: 2d 64 65 6c 61 79 29 20 20 20 30 0a 20 20 73 65  -delay)   0.  se
20f0: 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 73 74 61  t cmdlinearg(sta
2100: 72 74 29 20 20 20 20 20 20 20 20 20 20 20 20 20  rt)             
2110: 22 22 20 0a 0a 20 20 73 65 74 20 6c 65 66 74 6f  "" ..  set lefto
2120: 76 65 72 20 5b 6c 69 73 74 5d 0a 20 20 66 6f 72  ver [list].  for
2130: 65 61 63 68 20 61 20 24 61 72 67 76 20 7b 0a 20  each a $argv {. 
2140: 20 20 20 73 77 69 74 63 68 20 2d 72 65 67 65 78     switch -regex
2150: 70 20 2d 2d 20 24 61 20 7b 0a 20 20 20 20 20 20  p -- $a {.      
2160: 7b 5e 2d 2b 70 61 75 73 65 24 7d 20 7b 0a 20 20  {^-+pause$} {.  
2170: 20 20 20 20 20 20 23 20 57 61 69 74 20 66 6f 72        # Wait for
2180: 20 75 73 65 72 20 69 6e 70 75 74 20 62 65 66 6f   user input befo
2190: 72 65 20 63 6f 6e 74 69 6e 75 69 6e 67 2e 20 54  re continuing. T
21a0: 68 69 73 20 69 73 20 74 6f 20 67 69 76 65 20 74  his is to give t
21b0: 68 65 20 75 73 65 72 20 61 6e 20 0a 20 20 20 20  he user an .    
21c0: 20 20 20 20 23 20 6f 70 70 6f 72 74 75 6e 69 74      # opportunit
21d0: 79 20 74 6f 20 63 6f 6e 6e 65 63 74 20 70 72 6f  y to connect pro
21e0: 66 69 6c 69 6e 67 20 74 6f 6f 6c 73 20 74 6f 20  filing tools to 
21f0: 74 68 65 20 70 72 6f 63 65 73 73 2e 0a 20 20 20  the process..   
2200: 20 20 20 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77       puts -nonew
2210: 6c 69 6e 65 20 22 50 72 65 73 73 20 52 45 54 55  line "Press RETU
2220: 52 4e 20 74 6f 20 62 65 67 69 6e 2e 2e 2e 22 0a  RN to begin...".
2230: 20 20 20 20 20 20 20 20 66 6c 75 73 68 20 73 74          flush st
2240: 64 6f 75 74 0a 20 20 20 20 20 20 20 20 67 65 74  dout.        get
2250: 73 20 73 74 64 69 6e 0a 20 20 20 20 20 20 7d 0a  s stdin.      }.
2260: 20 20 20 20 20 20 7b 5e 2d 2b 73 6f 66 74 2d 68        {^-+soft-h
2270: 65 61 70 2d 6c 69 6d 69 74 3d 2e 2b 24 7d 20 7b  eap-limit=.+$} {
2280: 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 68  .        foreach
2290: 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61   {dummy cmdlinea
22a0: 72 67 28 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d  rg(soft-heap-lim
22b0: 69 74 29 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d  it)} [split $a =
22c0: 5d 20 62 72 65 61 6b 0a 20 20 20 20 20 20 7d 0a  ] break.      }.
22d0: 20 20 20 20 20 20 7b 5e 2d 2b 6d 61 78 65 72 72        {^-+maxerr
22e0: 6f 72 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20  or=.+$} {.      
22f0: 20 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79    foreach {dummy
2300: 20 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 78 65   cmdlinearg(maxe
2310: 72 72 6f 72 29 7d 20 5b 73 70 6c 69 74 20 24 61  rror)} [split $a
2320: 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20 20 20   =] break.      
2330: 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 6d 61 6c 6c  }.      {^-+mall
2340: 6f 63 74 72 61 63 65 3d 2e 2b 24 7d 20 7b 0a 20  octrace=.+$} {. 
2350: 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b         foreach {
2360: 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67  dummy cmdlinearg
2370: 28 6d 61 6c 6c 6f 63 74 72 61 63 65 29 7d 20 5b  (malloctrace)} [
2380: 73 70 6c 69 74 20 24 61 20 3d 5d 20 62 72 65 61  split $a =] brea
2390: 6b 0a 20 20 20 20 20 20 20 20 69 66 20 7b 24 63  k.        if {$c
23a0: 6d 64 6c 69 6e 65 61 72 67 28 6d 61 6c 6c 6f 63  mdlinearg(malloc
23b0: 74 72 61 63 65 29 7d 20 7b 0a 20 20 20 20 20 20  trace)} {.      
23c0: 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64      sqlite3_memd
23d0: 65 62 75 67 5f 6c 6f 67 20 73 74 61 72 74 0a 20  ebug_log start. 
23e0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d         }.      }
23f0: 0a 20 20 20 20 20 20 7b 5e 2d 2b 62 61 63 6b 74  .      {^-+backt
2400: 72 61 63 65 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20  race=.+$} {.    
2410: 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64 75 6d      foreach {dum
2420: 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 62 61  my cmdlinearg(ba
2430: 63 6b 74 72 61 63 65 29 7d 20 5b 73 70 6c 69 74  cktrace)} [split
2440: 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20   $a =] break.   
2450: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d       sqlite3_mem
2460: 64 65 62 75 67 5f 62 61 63 6b 74 72 61 63 65 20  debug_backtrace 
2470: 24 76 61 6c 75 65 0a 20 20 20 20 20 20 7d 0a 20  $value.      }. 
2480: 20 20 20 20 20 7b 5e 2d 2b 62 69 6e 61 72 79 6c       {^-+binaryl
2490: 6f 67 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20  og=.+$} {.      
24a0: 20 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79    foreach {dummy
24b0: 20 63 6d 64 6c 69 6e 65 61 72 67 28 62 69 6e 61   cmdlinearg(bina
24c0: 72 79 6c 6f 67 29 7d 20 5b 73 70 6c 69 74 20 24  rylog)} [split $
24d0: 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20 20  a =] break.     
24e0: 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 73 6f 61   }.      {^-+soa
24f0: 6b 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20  k=.+$} {.       
2500: 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79 20   foreach {dummy 
2510: 63 6d 64 6c 69 6e 65 61 72 67 28 73 6f 61 6b 29  cmdlinearg(soak)
2520: 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20 62  } [split $a =] b
2530: 72 65 61 6b 0a 20 20 20 20 20 20 20 20 73 65 74  reak.        set
2540: 20 3a 3a 47 28 69 73 73 6f 61 6b 29 20 24 63 6d   ::G(issoak) $cm
2550: 64 6c 69 6e 65 61 72 67 28 73 6f 61 6b 29 0a 20  dlinearg(soak). 
2560: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d       }.      {^-
2570: 2b 66 69 6c 65 2d 72 65 74 72 69 65 73 3d 2e 2b  +file-retries=.+
2580: 24 7d 20 7b 0a 20 20 20 20 20 20 20 20 66 6f 72  $} {.        for
2590: 65 61 63 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c  each {dummy cmdl
25a0: 69 6e 65 61 72 67 28 66 69 6c 65 2d 72 65 74 72  inearg(file-retr
25b0: 69 65 73 29 7d 20 5b 73 70 6c 69 74 20 24 61 20  ies)} [split $a 
25c0: 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20 20 20 20  =] break.       
25d0: 20 73 65 74 20 3a 3a 47 28 66 69 6c 65 2d 72 65   set ::G(file-re
25e0: 74 72 69 65 73 29 20 24 63 6d 64 6c 69 6e 65 61  tries) $cmdlinea
25f0: 72 67 28 66 69 6c 65 2d 72 65 74 72 69 65 73 29  rg(file-retries)
2600: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b  .      }.      {
2610: 5e 2d 2b 66 69 6c 65 2d 72 65 74 72 79 2d 64 65  ^-+file-retry-de
2620: 6c 61 79 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20  lay=.+$} {.     
2630: 20 20 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d     foreach {dumm
2640: 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 66 69 6c  y cmdlinearg(fil
2650: 65 2d 72 65 74 72 79 2d 64 65 6c 61 79 29 7d 20  e-retry-delay)} 
2660: 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20 62 72 65  [split $a =] bre
2670: 61 6b 0a 20 20 20 20 20 20 20 20 73 65 74 20 3a  ak.        set :
2680: 3a 47 28 66 69 6c 65 2d 72 65 74 72 79 2d 64 65  :G(file-retry-de
2690: 6c 61 79 29 20 24 63 6d 64 6c 69 6e 65 61 72 67  lay) $cmdlinearg
26a0: 28 66 69 6c 65 2d 72 65 74 72 79 2d 64 65 6c 61  (file-retry-dela
26b0: 79 29 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  y).      }.     
26c0: 20 7b 5e 2d 2b 73 74 61 72 74 3d 2e 2b 24 7d 20   {^-+start=.+$} 
26d0: 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61 63  {.        foreac
26e0: 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65  h {dummy cmdline
26f0: 61 72 67 28 73 74 61 72 74 29 7d 20 5b 73 70 6c  arg(start)} [spl
2700: 69 74 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a 0a  it $a =] break..
2710: 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 47 28          set ::G(
2720: 73 74 61 72 74 3a 66 69 6c 65 29 20 24 63 6d 64  start:file) $cmd
2730: 6c 69 6e 65 61 72 67 28 73 74 61 72 74 29 0a 20  linearg(start). 
2740: 20 20 20 20 20 20 20 69 66 20 7b 5b 72 65 67 65         if {[rege
2750: 78 70 20 7b 28 2e 2a 29 3a 28 2e 2a 29 7d 20 24  xp {(.*):(.*)} $
2760: 63 6d 64 6c 69 6e 65 61 72 67 28 73 74 61 72 74  cmdlinearg(start
2770: 29 20 2d 3e 20 73 2e 70 65 72 6d 20 73 2e 66 69  ) -> s.perm s.fi
2780: 6c 65 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 20  le]} {.         
2790: 20 73 65 74 20 3a 3a 47 28 73 74 61 72 74 3a 70   set ::G(start:p
27a0: 65 72 6d 75 74 61 74 69 6f 6e 29 20 24 7b 73 2e  ermutation) ${s.
27b0: 70 65 72 6d 7d 0a 20 20 20 20 20 20 20 20 20 20  perm}.          
27c0: 73 65 74 20 3a 3a 47 28 73 74 61 72 74 3a 66 69  set ::G(start:fi
27d0: 6c 65 29 20 20 20 20 20 20 20 20 24 7b 73 2e 66  le)        ${s.f
27e0: 69 6c 65 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20  ile}.        }. 
27f0: 20 20 20 20 20 20 20 69 66 20 7b 24 3a 3a 47 28         if {$::G(
2800: 73 74 61 72 74 3a 66 69 6c 65 29 20 3d 3d 20 22  start:file) == "
2810: 22 7d 20 7b 75 6e 73 65 74 20 3a 3a 47 28 73 74  "} {unset ::G(st
2820: 61 72 74 3a 66 69 6c 65 29 7d 0a 20 20 20 20 20  art:file)}.     
2830: 20 7d 0a 20 20 20 20 20 20 64 65 66 61 75 6c 74   }.      default
2840: 20 7b 0a 20 20 20 20 20 20 20 20 6c 61 70 70 65   {.        lappe
2850: 6e 64 20 6c 65 66 74 6f 76 65 72 20 24 61 0a 20  nd leftover $a. 
2860: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d       }.    }.  }
2870: 0a 20 20 73 65 74 20 61 72 67 76 20 24 6c 65 66  .  set argv $lef
2880: 74 6f 76 65 72 0a 0a 20 20 23 20 49 6e 73 74 61  tover..  # Insta
2890: 6c 6c 20 74 68 65 20 6d 61 6c 6c 6f 63 20 6c 61  ll the malloc la
28a0: 79 65 72 20 75 73 65 64 20 74 6f 20 69 6e 6a 65  yer used to inje
28b0: 63 74 20 4f 4f 4d 20 65 72 72 6f 72 73 2e 20 41  ct OOM errors. A
28c0: 6e 64 20 74 68 65 20 27 61 75 74 6f 6d 61 74 69  nd the 'automati
28d0: 63 27 0a 20 20 23 20 65 78 74 65 6e 73 69 6f 6e  c'.  # extension
28e0: 73 2e 20 54 68 69 73 20 6f 6e 6c 79 20 6e 65 65  s. This only nee
28f0: 64 73 20 74 6f 20 62 65 20 64 6f 6e 65 20 6f 6e  ds to be done on
2900: 63 65 20 66 6f 72 20 74 68 65 20 70 72 6f 63 65  ce for the proce
2910: 73 73 2e 0a 20 20 23 0a 20 20 73 71 6c 69 74 65  ss..  #.  sqlite
2920: 33 5f 73 68 75 74 64 6f 77 6e 20 0a 20 20 69 6e  3_shutdown .  in
2930: 73 74 61 6c 6c 5f 6d 61 6c 6c 6f 63 5f 66 61 75  stall_malloc_fau
2940: 6c 74 73 69 6d 20 31 20 0a 20 20 73 71 6c 69 74  ltsim 1 .  sqlit
2950: 65 33 5f 69 6e 69 74 69 61 6c 69 7a 65 0a 20 20  e3_initialize.  
2960: 61 75 74 6f 69 6e 73 74 61 6c 6c 5f 74 65 73 74  autoinstall_test
2970: 5f 66 75 6e 63 74 69 6f 6e 73 0a 0a 20 20 23 20  _functions..  # 
2980: 49 66 20 74 68 65 20 2d 2d 62 69 6e 61 72 79 6c  If the --binaryl
2990: 6f 67 20 6f 70 74 69 6f 6e 20 77 61 73 20 73 70  og option was sp
29a0: 65 63 69 66 69 65 64 2c 20 63 72 65 61 74 65 20  ecified, create 
29b0: 74 68 65 20 6c 6f 67 67 69 6e 67 20 56 46 53 2e  the logging VFS.
29c0: 20 54 68 69 73 0a 20 20 23 20 63 61 6c 6c 20 69   This.  # call i
29d0: 6e 73 74 61 6c 6c 73 20 74 68 65 20 6e 65 77 20  nstalls the new 
29e0: 56 46 53 20 61 73 20 74 68 65 20 64 65 66 61 75  VFS as the defau
29f0: 6c 74 20 66 6f 72 20 61 6c 6c 20 53 51 4c 69 74  lt for all SQLit
2a00: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 20  e connections.. 
2a10: 20 23 0a 20 20 69 66 20 7b 24 63 6d 64 6c 69 6e   #.  if {$cmdlin
2a20: 65 61 72 67 28 62 69 6e 61 72 79 6c 6f 67 29 7d  earg(binarylog)}
2a30: 20 7b 0a 20 20 20 20 76 66 73 6c 6f 67 20 6e 65   {.    vfslog ne
2a40: 77 20 62 69 6e 61 72 79 6c 6f 67 20 7b 7d 20 76  w binarylog {} v
2a50: 66 73 6c 6f 67 2e 62 69 6e 0a 20 20 7d 0a 0a 20  fslog.bin.  }.. 
2a60: 20 23 20 53 65 74 20 74 68 65 20 62 61 63 6b 74   # Set the backt
2a70: 72 61 63 65 20 64 65 70 74 68 2c 20 69 66 20 6d  race depth, if m
2a80: 61 6c 6c 6f 63 20 74 72 61 63 69 6e 67 20 69 73  alloc tracing is
2a90: 20 65 6e 61 62 6c 65 64 2e 0a 20 20 23 0a 20 20   enabled..  #.  
2aa0: 69 66 20 7b 24 63 6d 64 6c 69 6e 65 61 72 67 28  if {$cmdlinearg(
2ab0: 6d 61 6c 6c 6f 63 74 72 61 63 65 29 7d 20 7b 0a  malloctrace)} {.
2ac0: 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64      sqlite3_memd
2ad0: 65 62 75 67 5f 62 61 63 6b 74 72 61 63 65 20 24  ebug_backtrace $
2ae0: 63 6d 64 6c 69 6e 65 61 72 67 28 62 61 63 6b 74  cmdlinearg(backt
2af0: 72 61 63 65 29 0a 20 20 7d 0a 7d 0a 0a 23 20 55  race).  }.}..# U
2b00: 70 64 61 74 65 20 74 68 65 20 73 6f 66 74 2d 68  pdate the soft-h
2b10: 65 61 70 2d 6c 69 6d 69 74 20 65 61 63 68 20 74  eap-limit each t
2b20: 69 6d 65 20 74 68 69 73 20 73 63 72 69 70 74 20  ime this script 
2b30: 69 73 20 72 75 6e 2e 20 49 6e 20 74 68 61 74 0a  is run. In that.
2b40: 23 20 77 61 79 20 69 66 20 61 6e 20 69 6e 64 69  # way if an indi
2b50: 76 69 64 75 61 6c 20 74 65 73 74 20 66 69 6c 65  vidual test file
2b60: 20 63 68 61 6e 67 65 73 20 74 68 65 20 73 6f 66   changes the sof
2b70: 74 2d 68 65 61 70 2d 6c 69 6d 69 74 2c 20 69 74  t-heap-limit, it
2b80: 0a 23 20 77 69 6c 6c 20 62 65 20 72 65 73 65 74  .# will be reset
2b90: 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66   at the start of
2ba0: 20 74 68 65 20 6e 65 78 74 20 74 65 73 74 20 66   the next test f
2bb0: 69 6c 65 2e 0a 23 0a 73 71 6c 69 74 65 33 5f 73  ile..#.sqlite3_s
2bc0: 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69 74 20 24  oft_heap_limit $
2bd0: 63 6d 64 6c 69 6e 65 61 72 67 28 73 6f 66 74 2d  cmdlinearg(soft-
2be0: 68 65 61 70 2d 6c 69 6d 69 74 29 0a 0a 23 20 43  heap-limit)..# C
2bf0: 72 65 61 74 65 20 61 20 74 65 73 74 20 64 61 74  reate a test dat
2c00: 61 62 61 73 65 0a 23 0a 70 72 6f 63 20 72 65 73  abase.#.proc res
2c10: 65 74 5f 64 62 20 7b 7d 20 7b 0a 20 20 63 61 74  et_db {} {.  cat
2c20: 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 20 20  ch {db close}.  
2c30: 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73 74  forcedelete test
2c40: 2e 64 62 0a 20 20 66 6f 72 63 65 64 65 6c 65 74  .db.  forcedelet
2c50: 65 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72 6e 61  e test.db-journa
2c60: 6c 0a 20 20 66 6f 72 63 65 64 65 6c 65 74 65 20  l.  forcedelete 
2c70: 74 65 73 74 2e 64 62 2d 77 61 6c 0a 20 20 73 71  test.db-wal.  sq
2c80: 6c 69 74 65 33 20 64 62 20 2e 2f 74 65 73 74 2e  lite3 db ./test.
2c90: 64 62 0a 20 20 73 65 74 20 3a 3a 44 42 20 5b 73  db.  set ::DB [s
2ca0: 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f  qlite3_connectio
2cb0: 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 20 20  n_pointer db].  
2cc0: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
2cd0: 20 3a 3a 53 45 54 55 50 5f 53 51 4c 5d 7d 20 7b   ::SETUP_SQL]} {
2ce0: 0a 20 20 20 20 64 62 20 65 76 61 6c 20 24 3a 3a  .    db eval $::
2cf0: 53 45 54 55 50 5f 53 51 4c 0a 20 20 7d 0a 7d 0a  SETUP_SQL.  }.}.
2d00: 72 65 73 65 74 5f 64 62 0a 0a 23 20 41 62 6f 72  reset_db..# Abor
2d10: 74 20 65 61 72 6c 79 20 69 66 20 74 68 69 73 20  t early if this 
2d20: 73 63 72 69 70 74 20 68 61 73 20 62 65 65 6e 20  script has been 
2d30: 72 75 6e 20 62 65 66 6f 72 65 2e 0a 23 0a 69 66  run before..#.if
2d40: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 54   {[info exists T
2d50: 43 28 63 6f 75 6e 74 29 5d 7d 20 72 65 74 75 72  C(count)]} retur
2d60: 6e 0a 0a 23 20 4d 61 6b 65 20 73 75 72 65 20 6d  n..# Make sure m
2d70: 65 6d 6f 72 79 20 73 74 61 74 69 73 74 69 63 73  emory statistics
2d80: 20 61 72 65 20 65 6e 61 62 6c 65 64 2e 0a 23 0a   are enabled..#.
2d90: 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 5f 6d  sqlite3_config_m
2da0: 65 6d 73 74 61 74 75 73 20 31 0a 0a 23 20 49 6e  emstatus 1..# In
2db0: 69 74 69 61 6c 69 7a 65 20 74 68 65 20 74 65 73  itialize the tes
2dc0: 74 20 63 6f 75 6e 74 65 72 73 20 61 6e 64 20 73  t counters and s
2dd0: 65 74 20 75 70 20 63 6f 6d 6d 61 6e 64 73 20 74  et up commands t
2de0: 6f 20 61 63 63 65 73 73 20 74 68 65 6d 2e 0a 23  o access them..#
2df0: 20 4f 72 2c 20 69 66 20 74 68 69 73 20 69 73 20   Or, if this is 
2e00: 61 20 73 6c 61 76 65 20 69 6e 74 65 72 70 72 65  a slave interpre
2e10: 74 65 72 2c 20 73 65 74 20 75 70 20 61 6c 69 61  ter, set up alia
2e20: 73 65 73 20 74 6f 20 77 72 69 74 65 20 74 68 65  ses to write the
2e30: 0a 23 20 63 6f 75 6e 74 65 72 73 20 69 6e 20 74  .# counters in t
2e40: 68 65 20 70 61 72 65 6e 74 20 69 6e 74 65 72 70  he parent interp
2e50: 72 65 74 65 72 2e 0a 23 0a 69 66 20 7b 30 3d 3d  reter..#.if {0==
2e60: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 53  [info exists ::S
2e70: 4c 41 56 45 5d 7d 20 7b 0a 20 20 73 65 74 20 54  LAVE]} {.  set T
2e80: 43 28 65 72 72 6f 72 73 29 20 20 20 20 30 0a 20  C(errors)    0. 
2e90: 20 73 65 74 20 54 43 28 63 6f 75 6e 74 29 20 20   set TC(count)  
2ea0: 20 20 20 30 0a 20 20 73 65 74 20 54 43 28 66 61     0.  set TC(fa
2eb0: 69 6c 5f 6c 69 73 74 29 20 5b 6c 69 73 74 5d 0a  il_list) [list].
2ec0: 20 20 73 65 74 20 54 43 28 6f 6d 69 74 5f 6c 69    set TC(omit_li
2ed0: 73 74 29 20 5b 6c 69 73 74 5d 0a 0a 20 20 70 72  st) [list]..  pr
2ee0: 6f 63 20 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e  oc set_test_coun
2ef0: 74 65 72 20 7b 63 6f 75 6e 74 65 72 20 61 72 67  ter {counter arg
2f00: 73 7d 20 7b 0a 20 20 20 20 69 66 20 7b 5b 6c 6c  s} {.    if {[ll
2f10: 65 6e 67 74 68 20 24 61 72 67 73 5d 7d 20 7b 0a  ength $args]} {.
2f20: 20 20 20 20 20 20 73 65 74 20 3a 3a 54 43 28 24        set ::TC($
2f30: 63 6f 75 6e 74 65 72 29 20 5b 6c 69 6e 64 65 78  counter) [lindex
2f40: 20 24 61 72 67 73 20 30 5d 0a 20 20 20 20 7d 0a   $args 0].    }.
2f50: 20 20 20 20 73 65 74 20 3a 3a 54 43 28 24 63 6f      set ::TC($co
2f60: 75 6e 74 65 72 29 0a 20 20 7d 0a 7d 0a 0a 23 20  unter).  }.}..# 
2f70: 52 65 63 6f 72 64 20 74 68 65 20 66 61 63 74 20  Record the fact 
2f80: 74 68 61 74 20 61 20 73 65 71 75 65 6e 63 65 20  that a sequence 
2f90: 6f 66 20 74 65 73 74 73 20 77 65 72 65 20 6f 6d  of tests were om
2fa0: 69 74 74 65 64 2e 0a 23 0a 70 72 6f 63 20 6f 6d  itted..#.proc om
2fb0: 69 74 5f 74 65 73 74 20 7b 6e 61 6d 65 20 72 65  it_test {name re
2fc0: 61 73 6f 6e 7d 20 7b 0a 20 20 73 65 74 20 6f 6d  ason} {.  set om
2fd0: 69 74 4c 69 73 74 20 5b 73 65 74 5f 74 65 73 74  itList [set_test
2fe0: 5f 63 6f 75 6e 74 65 72 20 6f 6d 69 74 5f 6c 69  _counter omit_li
2ff0: 73 74 5d 0a 20 20 6c 61 70 70 65 6e 64 20 6f 6d  st].  lappend om
3000: 69 74 4c 69 73 74 20 5b 6c 69 73 74 20 24 6e 61  itList [list $na
3010: 6d 65 20 24 72 65 61 73 6f 6e 5d 0a 20 20 73 65  me $reason].  se
3020: 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 6f  t_test_counter o
3030: 6d 69 74 5f 6c 69 73 74 20 24 6f 6d 69 74 4c 69  mit_list $omitLi
3040: 73 74 0a 7d 0a 0a 23 20 52 65 63 6f 72 64 20 74  st.}..# Record t
3050: 68 65 20 66 61 63 74 20 74 68 61 74 20 61 20 74  he fact that a t
3060: 65 73 74 20 66 61 69 6c 65 64 2e 0a 23 0a 70 72  est failed..#.pr
3070: 6f 63 20 66 61 69 6c 5f 74 65 73 74 20 7b 6e 61  oc fail_test {na
3080: 6d 65 7d 20 7b 0a 20 20 73 65 74 20 66 20 5b 73  me} {.  set f [s
3090: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20  et_test_counter 
30a0: 66 61 69 6c 5f 6c 69 73 74 5d 0a 20 20 6c 61 70  fail_list].  lap
30b0: 70 65 6e 64 20 66 20 24 6e 61 6d 65 0a 20 20 73  pend f $name.  s
30c0: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20  et_test_counter 
30d0: 66 61 69 6c 5f 6c 69 73 74 20 24 66 0a 20 20 73  fail_list $f.  s
30e0: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20  et_test_counter 
30f0: 65 72 72 6f 72 73 20 5b 65 78 70 72 20 5b 73 65  errors [expr [se
3100: 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 65  t_test_counter e
3110: 72 72 6f 72 73 5d 20 2b 20 31 5d 0a 0a 20 20 73  rrors] + 1]..  s
3120: 65 74 20 6e 46 61 69 6c 20 5b 73 65 74 5f 74 65  et nFail [set_te
3130: 73 74 5f 63 6f 75 6e 74 65 72 20 65 72 72 6f 72  st_counter error
3140: 73 5d 0a 20 20 69 66 20 7b 24 6e 46 61 69 6c 3e  s].  if {$nFail>
3150: 3d 24 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 28 6d  =$::cmdlinearg(m
3160: 61 78 65 72 72 6f 72 29 7d 20 7b 0a 20 20 20 20  axerror)} {.    
3170: 70 75 74 73 20 22 2a 2a 2a 20 47 69 76 69 6e 67  puts "*** Giving
3180: 20 75 70 2e 2e 2e 22 0a 20 20 20 20 66 69 6e 61   up...".    fina
3190: 6c 69 7a 65 5f 74 65 73 74 69 6e 67 0a 20 20 7d  lize_testing.  }
31a0: 0a 7d 0a 0a 23 20 49 6e 63 72 65 6d 65 6e 74 20  .}..# Increment 
31b0: 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 74 65  the number of te
31c0: 73 74 73 20 72 75 6e 0a 23 0a 70 72 6f 63 20 69  sts run.#.proc i
31d0: 6e 63 72 5f 6e 74 65 73 74 20 7b 7d 20 7b 0a 20  ncr_ntest {} {. 
31e0: 20 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65   set_test_counte
31f0: 72 20 63 6f 75 6e 74 20 5b 65 78 70 72 20 5b 73  r count [expr [s
3200: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20  et_test_counter 
3210: 63 6f 75 6e 74 5d 20 2b 20 31 5d 0a 7d 0a 0a 0a  count] + 1].}...
3220: 23 20 49 6e 76 6f 6b 65 20 74 68 65 20 64 6f 5f  # Invoke the do_
3230: 74 65 73 74 20 70 72 6f 63 65 64 75 72 65 20 74  test procedure t
3240: 6f 20 72 75 6e 20 61 20 73 69 6e 67 6c 65 20 74  o run a single t
3250: 65 73 74 20 0a 23 0a 70 72 6f 63 20 64 6f 5f 74  est .#.proc do_t
3260: 65 73 74 20 7b 6e 61 6d 65 20 63 6d 64 20 65 78  est {name cmd ex
3270: 70 65 63 74 65 64 7d 20 7b 0a 0a 20 20 67 6c 6f  pected} {..  glo
3280: 62 61 6c 20 61 72 67 76 20 63 6d 64 6c 69 6e 65  bal argv cmdline
3290: 61 72 67 0a 0a 20 20 66 69 78 5f 74 65 73 74 6e  arg..  fix_testn
32a0: 61 6d 65 20 6e 61 6d 65 0a 0a 20 20 73 71 6c 69  ame name..  sqli
32b0: 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 73 65 74  te3_memdebug_set
32c0: 74 69 74 6c 65 20 24 6e 61 6d 65 0a 0a 23 20 20  title $name..#  
32d0: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72  if {[llength $ar
32e0: 67 76 5d 3d 3d 30 7d 20 7b 20 0a 23 20 20 20 20  gv]==0} { .#    
32f0: 73 65 74 20 67 6f 20 31 0a 23 20 20 7d 20 65 6c  set go 1.#  } el
3300: 73 65 20 7b 0a 23 20 20 20 20 73 65 74 20 67 6f  se {.#    set go
3310: 20 30 0a 23 20 20 20 20 66 6f 72 65 61 63 68 20   0.#    foreach 
3320: 70 61 74 74 65 72 6e 20 24 61 72 67 76 20 7b 0a  pattern $argv {.
3330: 23 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69  #      if {[stri
3340: 6e 67 20 6d 61 74 63 68 20 24 70 61 74 74 65 72  ng match $patter
3350: 6e 20 24 6e 61 6d 65 5d 7d 20 7b 0a 23 20 20 20  n $name]} {.#   
3360: 20 20 20 20 20 73 65 74 20 67 6f 20 31 0a 23 20       set go 1.# 
3370: 20 20 20 20 20 20 20 62 72 65 61 6b 0a 23 20 20         break.#  
3380: 20 20 20 20 7d 0a 23 20 20 20 20 7d 0a 23 20 20      }.#    }.#  
3390: 7d 0a 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65  }..  if {[info e
33a0: 78 69 73 74 73 20 3a 3a 47 28 70 65 72 6d 3a 70  xists ::G(perm:p
33b0: 72 65 66 69 78 29 5d 7d 20 7b 0a 20 20 20 20 73  refix)]} {.    s
33c0: 65 74 20 6e 61 6d 65 20 22 24 3a 3a 47 28 70 65  et name "$::G(pe
33d0: 72 6d 3a 70 72 65 66 69 78 29 24 6e 61 6d 65 22  rm:prefix)$name"
33e0: 0a 20 20 7d 0a 0a 20 20 69 6e 63 72 5f 6e 74 65  .  }..  incr_nte
33f0: 73 74 0a 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77  st.  puts -nonew
3400: 6c 69 6e 65 20 24 6e 61 6d 65 2e 2e 2e 0a 20 20  line $name....  
3410: 66 6c 75 73 68 20 73 74 64 6f 75 74 0a 20 20 69  flush stdout.  i
3420: 66 20 7b 5b 63 61 74 63 68 20 7b 75 70 6c 65 76  f {[catch {uplev
3430: 65 6c 20 23 30 20 22 24 63 6d 64 3b 5c 6e 22 7d  el #0 "$cmd;\n"}
3440: 20 72 65 73 75 6c 74 5d 7d 20 7b 0a 20 20 20 20   result]} {.    
3450: 70 75 74 73 20 22 5c 6e 45 72 72 6f 72 3a 20 24  puts "\nError: $
3460: 72 65 73 75 6c 74 22 0a 20 20 20 20 66 61 69 6c  result".    fail
3470: 5f 74 65 73 74 20 24 6e 61 6d 65 0a 20 20 7d 20  _test $name.  } 
3480: 65 6c 73 65 69 66 20 7b 5b 73 74 72 69 6e 67 20  elseif {[string 
3490: 63 6f 6d 70 61 72 65 20 24 72 65 73 75 6c 74 20  compare $result 
34a0: 24 65 78 70 65 63 74 65 64 5d 7d 20 7b 0a 20 20  $expected]} {.  
34b0: 20 20 70 75 74 73 20 22 5c 6e 45 78 70 65 63 74    puts "\nExpect
34c0: 65 64 3a 20 5c 5b 24 65 78 70 65 63 74 65 64 5c  ed: \[$expected\
34d0: 5d 5c 6e 20 20 20 20 20 47 6f 74 3a 20 5c 5b 24  ]\n     Got: \[$
34e0: 72 65 73 75 6c 74 5c 5d 22 0a 20 20 20 20 66 61  result\]".    fa
34f0: 69 6c 5f 74 65 73 74 20 24 6e 61 6d 65 0a 20 20  il_test $name.  
3500: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 70 75 74  } else {.    put
3510: 73 20 22 20 4f 6b 22 0a 20 20 7d 0a 20 20 66 6c  s " Ok".  }.  fl
3520: 75 73 68 20 73 74 64 6f 75 74 0a 7d 0a 0a 70 72  ush stdout.}..pr
3530: 6f 63 20 66 69 6c 65 70 61 74 68 5f 6e 6f 72 6d  oc filepath_norm
3540: 61 6c 69 7a 65 20 7b 70 7d 20 7b 0a 20 20 23 20  alize {p} {.  # 
3550: 74 65 73 74 20 63 61 73 65 73 20 73 68 6f 75 6c  test cases shoul
3560: 64 20 62 65 20 77 72 69 74 74 65 6e 20 74 6f 20  d be written to 
3570: 61 73 73 75 6d 65 20 22 75 6e 69 78 22 2d 6c 69  assume "unix"-li
3580: 6b 65 20 66 69 6c 65 20 70 61 74 68 73 0a 20 20  ke file paths.  
3590: 69 66 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61 74 66  if {$::tcl_platf
35a0: 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 21 3d 22  orm(platform)!="
35b0: 75 6e 69 78 22 7d 20 7b 0a 20 20 20 20 23 20 6c  unix"} {.    # l
35c0: 72 65 76 65 72 73 65 2a 32 20 61 73 20 61 20 68  reverse*2 as a h
35d0: 61 63 6b 20 74 6f 20 72 65 6d 6f 76 65 20 61 6e  ack to remove an
35e0: 79 20 75 6e 6e 65 65 64 65 64 20 7b 7d 20 61 66  y unneeded {} af
35f0: 74 65 72 20 74 68 65 20 73 74 72 69 6e 67 20 6d  ter the string m
3600: 61 70 0a 20 20 20 20 6c 72 65 76 65 72 73 65 20  ap.    lreverse 
3610: 5b 6c 72 65 76 65 72 73 65 20 5b 73 74 72 69 6e  [lreverse [strin
3620: 67 20 6d 61 70 20 7b 5c 5c 20 2f 7d 20 5b 72 65  g map {\\ /} [re
3630: 67 73 75 62 20 2d 6e 6f 63 61 73 65 20 2d 61 6c  gsub -nocase -al
3640: 6c 20 7b 5b 61 2d 7a 5d 3a 5b 2f 5c 5c 5d 2b 7d  l {[a-z]:[/\\]+}
3650: 20 24 70 20 7b 2f 7d 5d 5d 5d 0a 20 20 7d 20 7b   $p {/}]]].  } {
3660: 0a 20 20 20 20 73 65 74 20 70 0a 20 20 7d 0a 7d  .    set p.  }.}
3670: 0a 70 72 6f 63 20 64 6f 5f 66 69 6c 65 70 61 74  .proc do_filepat
3680: 68 5f 74 65 73 74 20 7b 6e 61 6d 65 20 63 6d 64  h_test {name cmd
3690: 20 65 78 70 65 63 74 65 64 7d 20 7b 0a 20 20 75   expected} {.  u
36a0: 70 6c 65 76 65 6c 20 5b 6c 69 73 74 20 64 6f 5f  plevel [list do_
36b0: 74 65 73 74 20 24 6e 61 6d 65 20 5b 0a 20 20 20  test $name [.   
36c0: 20 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e   subst -nocomman
36d0: 64 73 20 7b 20 66 69 6c 65 70 61 74 68 5f 6e 6f  ds { filepath_no
36e0: 72 6d 61 6c 69 7a 65 20 5b 20 24 63 6d 64 20 5d  rmalize [ $cmd ]
36f0: 20 7d 0a 20 20 5d 20 5b 66 69 6c 65 70 61 74 68   }.  ] [filepath
3700: 5f 6e 6f 72 6d 61 6c 69 7a 65 20 24 65 78 70 65  _normalize $expe
3710: 63 74 65 64 5d 5d 0a 7d 0a 0a 70 72 6f 63 20 72  cted]].}..proc r
3720: 65 61 6c 6e 75 6d 5f 6e 6f 72 6d 61 6c 69 7a 65  ealnum_normalize
3730: 20 7b 72 7d 20 7b 0a 20 20 23 20 64 69 66 66 65   {r} {.  # diffe
3740: 72 65 6e 74 20 54 43 4c 20 76 65 72 73 69 6f 6e  rent TCL version
3750: 73 20 64 69 73 70 6c 61 79 20 66 6c 6f 61 74 69  s display floati
3760: 6e 67 20 70 6f 69 6e 74 20 76 61 6c 75 65 73 20  ng point values 
3770: 64 69 66 66 65 72 65 6e 74 6c 79 2e 0a 20 20 73  differently..  s
3780: 74 72 69 6e 67 20 6d 61 70 20 7b 31 2e 23 49 4e  tring map {1.#IN
3790: 46 20 69 6e 66 20 49 6e 66 20 69 6e 66 20 2e 30  F inf Inf inf .0
37a0: 65 20 65 7d 20 5b 72 65 67 73 75 62 20 2d 61 6c  e e} [regsub -al
37b0: 6c 20 7b 28 65 5b 2b 2d 5d 29 30 2b 7d 20 24 72  l {(e[+-])0+} $r
37c0: 20 7b 5c 31 7d 5d 0a 7d 0a 70 72 6f 63 20 64 6f   {\1}].}.proc do
37d0: 5f 72 65 61 6c 6e 75 6d 5f 74 65 73 74 20 7b 6e  _realnum_test {n
37e0: 61 6d 65 20 63 6d 64 20 65 78 70 65 63 74 65 64  ame cmd expected
37f0: 7d 20 7b 0a 20 20 75 70 6c 65 76 65 6c 20 5b 6c  } {.  uplevel [l
3800: 69 73 74 20 64 6f 5f 74 65 73 74 20 24 6e 61 6d  ist do_test $nam
3810: 65 20 5b 0a 20 20 20 20 73 75 62 73 74 20 2d 6e  e [.    subst -n
3820: 6f 63 6f 6d 6d 61 6e 64 73 20 7b 20 72 65 61 6c  ocommands { real
3830: 6e 75 6d 5f 6e 6f 72 6d 61 6c 69 7a 65 20 5b 20  num_normalize [ 
3840: 24 63 6d 64 20 5d 20 7d 0a 20 20 5d 20 5b 72 65  $cmd ] }.  ] [re
3850: 61 6c 6e 75 6d 5f 6e 6f 72 6d 61 6c 69 7a 65 20  alnum_normalize 
3860: 24 65 78 70 65 63 74 65 64 5d 5d 0a 7d 0a 0a 70  $expected]].}..p
3870: 72 6f 63 20 66 69 78 5f 74 65 73 74 6e 61 6d 65  roc fix_testname
3880: 20 7b 76 61 72 6e 61 6d 65 7d 20 7b 0a 20 20 75   {varname} {.  u
3890: 70 76 61 72 20 24 76 61 72 6e 61 6d 65 20 74 65  pvar $varname te
38a0: 73 74 6e 61 6d 65 0a 20 20 69 66 20 7b 5b 69 6e  stname.  if {[in
38b0: 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 65 73 74  fo exists ::test
38c0: 70 72 65 66 69 78 5d 20 0a 20 20 20 26 26 20 5b  prefix] .   && [
38d0: 73 74 72 69 6e 67 20 69 73 20 64 69 67 69 74 20  string is digit 
38e0: 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 74  [string range $t
38f0: 65 73 74 6e 61 6d 65 20 30 20 30 5d 5d 0a 20 20  estname 0 0]].  
3900: 7d 20 7b 0a 20 20 20 20 73 65 74 20 74 65 73 74  } {.    set test
3910: 6e 61 6d 65 20 22 24 7b 3a 3a 74 65 73 74 70 72  name "${::testpr
3920: 65 66 69 78 7d 2d 24 74 65 73 74 6e 61 6d 65 22  efix}-$testname"
3930: 0a 20 20 7d 0a 7d 0a 20 20 20 20 0a 70 72 6f 63  .  }.}.    .proc
3940: 20 64 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74   do_execsql_test
3950: 20 7b 74 65 73 74 6e 61 6d 65 20 73 71 6c 20 7b   {testname sql {
3960: 72 65 73 75 6c 74 20 7b 7d 7d 7d 20 7b 0a 20 20  result {}}} {.  
3970: 66 69 78 5f 74 65 73 74 6e 61 6d 65 20 74 65 73  fix_testname tes
3980: 74 6e 61 6d 65 0a 20 20 75 70 6c 65 76 65 6c 20  tname.  uplevel 
3990: 64 6f 5f 74 65 73 74 20 5b 6c 69 73 74 20 24 74  do_test [list $t
39a0: 65 73 74 6e 61 6d 65 5d 20 5b 6c 69 73 74 20 22  estname] [list "
39b0: 65 78 65 63 73 71 6c 20 7b 24 73 71 6c 7d 22 5d  execsql {$sql}"]
39c0: 20 5b 6c 69 73 74 20 5b 6c 69 73 74 20 7b 2a 7d   [list [list {*}
39d0: 24 72 65 73 75 6c 74 5d 5d 0a 7d 0a 70 72 6f 63  $result]].}.proc
39e0: 20 64 6f 5f 63 61 74 63 68 73 71 6c 5f 74 65 73   do_catchsql_tes
39f0: 74 20 7b 74 65 73 74 6e 61 6d 65 20 73 71 6c 20  t {testname sql 
3a00: 72 65 73 75 6c 74 7d 20 7b 0a 20 20 66 69 78 5f  result} {.  fix_
3a10: 74 65 73 74 6e 61 6d 65 20 74 65 73 74 6e 61 6d  testname testnam
3a20: 65 0a 20 20 75 70 6c 65 76 65 6c 20 64 6f 5f 74  e.  uplevel do_t
3a30: 65 73 74 20 5b 6c 69 73 74 20 24 74 65 73 74 6e  est [list $testn
3a40: 61 6d 65 5d 20 5b 6c 69 73 74 20 22 63 61 74 63  ame] [list "catc
3a50: 68 73 71 6c 20 7b 24 73 71 6c 7d 22 5d 20 5b 6c  hsql {$sql}"] [l
3a60: 69 73 74 20 24 72 65 73 75 6c 74 5d 0a 7d 0a 70  ist $result].}.p
3a70: 72 6f 63 20 64 6f 5f 65 71 70 5f 74 65 73 74 20  roc do_eqp_test 
3a80: 7b 6e 61 6d 65 20 73 71 6c 20 72 65 73 7d 20 7b  {name sql res} {
3a90: 0a 20 20 75 70 6c 65 76 65 6c 20 64 6f 5f 65 78  .  uplevel do_ex
3aa0: 65 63 73 71 6c 5f 74 65 73 74 20 24 6e 61 6d 65  ecsql_test $name
3ab0: 20 5b 6c 69 73 74 20 22 45 58 50 4c 41 49 4e 20   [list "EXPLAIN 
3ac0: 51 55 45 52 59 20 50 4c 41 4e 20 24 73 71 6c 22  QUERY PLAN $sql"
3ad0: 5d 20 5b 6c 69 73 74 20 24 72 65 73 5d 0a 7d 0a  ] [list $res].}.
3ae0: 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  .#--------------
3af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 20 20  -----------.#   
3b30: 55 73 61 67 65 3a 20 64 6f 5f 73 65 6c 65 63 74  Usage: do_select
3b40: 5f 74 65 73 74 73 20 50 52 45 46 49 58 20 3f 53  _tests PREFIX ?S
3b50: 57 49 54 43 48 45 53 3f 20 54 45 53 54 4c 49 53  WITCHES? TESTLIS
3b60: 54 0a 23 0a 23 20 57 68 65 72 65 20 73 77 69 74  T.#.# Where swit
3b70: 63 68 65 73 20 61 72 65 3a 0a 23 0a 23 20 20 20  ches are:.#.#   
3b80: 2d 65 72 72 6f 72 66 6f 72 6d 61 74 20 46 4d 54  -errorformat FMT
3b90: 53 54 52 49 4e 47 0a 23 20 20 20 2d 63 6f 75 6e  STRING.#   -coun
3ba0: 74 0a 23 20 20 20 2d 71 75 65 72 79 20 53 51 4c  t.#   -query SQL
3bb0: 0a 23 20 20 20 2d 74 63 6c 71 75 65 72 79 20 54  .#   -tclquery T
3bc0: 43 4c 0a 23 20 20 20 2d 72 65 70 61 69 72 20 54  CL.#   -repair T
3bd0: 43 4c 0a 23 0a 70 72 6f 63 20 64 6f 5f 73 65 6c  CL.#.proc do_sel
3be0: 65 63 74 5f 74 65 73 74 73 20 7b 70 72 65 66 69  ect_tests {prefi
3bf0: 78 20 61 72 67 73 7d 20 7b 0a 0a 20 20 73 65 74  x args} {..  set
3c00: 20 74 65 73 74 6c 69 73 74 20 5b 6c 69 6e 64 65   testlist [linde
3c10: 78 20 24 61 72 67 73 20 65 6e 64 5d 0a 20 20 73  x $args end].  s
3c20: 65 74 20 73 77 69 74 63 68 65 73 20 5b 6c 72 61  et switches [lra
3c30: 6e 67 65 20 24 61 72 67 73 20 30 20 65 6e 64 2d  nge $args 0 end-
3c40: 31 5d 0a 0a 20 20 73 65 74 20 65 72 72 66 6d 74  1]..  set errfmt
3c50: 20 22 22 0a 20 20 73 65 74 20 63 6f 75 6e 74 6f   "".  set counto
3c60: 6e 6c 79 20 30 0a 20 20 73 65 74 20 74 63 6c 71  nly 0.  set tclq
3c70: 75 65 72 79 20 22 22 0a 20 20 73 65 74 20 72 65  uery "".  set re
3c80: 70 61 69 72 20 22 22 0a 0a 20 20 66 6f 72 20 7b  pair ""..  for {
3c90: 73 65 74 20 69 20 30 7d 20 7b 24 69 20 3c 20 5b  set i 0} {$i < [
3ca0: 6c 6c 65 6e 67 74 68 20 24 73 77 69 74 63 68 65  llength $switche
3cb0: 73 5d 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20  s]} {incr i} {. 
3cc0: 20 20 20 73 65 74 20 73 20 5b 6c 69 6e 64 65 78     set s [lindex
3cd0: 20 24 73 77 69 74 63 68 65 73 20 24 69 5d 0a 20   $switches $i]. 
3ce0: 20 20 20 73 65 74 20 6e 20 5b 73 74 72 69 6e 67     set n [string
3cf0: 20 6c 65 6e 67 74 68 20 24 73 5d 0a 20 20 20 20   length $s].    
3d00: 69 66 20 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74  if {$n>=2 && [st
3d10: 72 69 6e 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67  ring equal -leng
3d20: 74 68 20 24 6e 20 24 73 20 22 2d 71 75 65 72 79  th $n $s "-query
3d30: 22 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20  "]} {.      set 
3d40: 74 63 6c 71 75 65 72 79 20 5b 6c 69 73 74 20 65  tclquery [list e
3d50: 78 65 63 73 71 6c 20 5b 6c 69 6e 64 65 78 20 24  xecsql [lindex $
3d60: 73 77 69 74 63 68 65 73 20 5b 69 6e 63 72 20 69  switches [incr i
3d70: 5d 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66  ]]].    } elseif
3d80: 20 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69   {$n>=2 && [stri
3d90: 6e 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68  ng equal -length
3da0: 20 24 6e 20 24 73 20 22 2d 74 63 6c 71 75 65 72   $n $s "-tclquer
3db0: 79 22 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74  y"]} {.      set
3dc0: 20 74 63 6c 71 75 65 72 79 20 5b 6c 69 6e 64 65   tclquery [linde
3dd0: 78 20 24 73 77 69 74 63 68 65 73 20 5b 69 6e 63  x $switches [inc
3de0: 72 20 69 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65  r i]].    } else
3df0: 69 66 20 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74  if {$n>=2 && [st
3e00: 72 69 6e 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67  ring equal -leng
3e10: 74 68 20 24 6e 20 24 73 20 22 2d 65 72 72 6f 72  th $n $s "-error
3e20: 66 6f 72 6d 61 74 22 5d 7d 20 7b 0a 20 20 20 20  format"]} {.    
3e30: 20 20 73 65 74 20 65 72 72 66 6d 74 20 5b 6c 69    set errfmt [li
3e40: 6e 64 65 78 20 24 73 77 69 74 63 68 65 73 20 5b  ndex $switches [
3e50: 69 6e 63 72 20 69 5d 5d 0a 20 20 20 20 7d 20 65  incr i]].    } e
3e60: 6c 73 65 69 66 20 7b 24 6e 3e 3d 32 20 26 26 20  lseif {$n>=2 && 
3e70: 5b 73 74 72 69 6e 67 20 65 71 75 61 6c 20 2d 6c  [string equal -l
3e80: 65 6e 67 74 68 20 24 6e 20 24 73 20 22 2d 72 65  ength $n $s "-re
3e90: 70 61 69 72 22 5d 7d 20 7b 0a 20 20 20 20 20 20  pair"]} {.      
3ea0: 73 65 74 20 72 65 70 61 69 72 20 5b 6c 69 6e 64  set repair [lind
3eb0: 65 78 20 24 73 77 69 74 63 68 65 73 20 5b 69 6e  ex $switches [in
3ec0: 63 72 20 69 5d 5d 0a 20 20 20 20 7d 20 65 6c 73  cr i]].    } els
3ed0: 65 69 66 20 7b 24 6e 3e 3d 32 20 26 26 20 5b 73  eif {$n>=2 && [s
3ee0: 74 72 69 6e 67 20 65 71 75 61 6c 20 2d 6c 65 6e  tring equal -len
3ef0: 67 74 68 20 24 6e 20 24 73 20 22 2d 63 6f 75 6e  gth $n $s "-coun
3f00: 74 22 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74  t"]} {.      set
3f10: 20 63 6f 75 6e 74 6f 6e 6c 79 20 31 0a 20 20 20   countonly 1.   
3f20: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20   } else {.      
3f30: 65 72 72 6f 72 20 22 75 6e 6b 6e 6f 77 6e 20 73  error "unknown s
3f40: 77 69 74 63 68 3a 20 24 73 22 0a 20 20 20 20 7d  witch: $s".    }
3f50: 0a 20 20 7d 0a 0a 20 20 69 66 20 7b 24 63 6f 75  .  }..  if {$cou
3f60: 6e 74 6f 6e 6c 79 20 26 26 20 24 65 72 72 66 6d  ntonly && $errfm
3f70: 74 21 3d 22 22 7d 20 7b 0a 20 20 20 20 65 72 72  t!=""} {.    err
3f80: 6f 72 20 22 43 61 6e 6e 6f 74 20 75 73 65 20 2d  or "Cannot use -
3f90: 63 6f 75 6e 74 20 61 6e 64 20 2d 65 72 72 6f 72  count and -error
3fa0: 66 6f 72 6d 61 74 20 74 6f 67 65 74 68 65 72 22  format together"
3fb0: 0a 20 20 7d 0a 20 20 73 65 74 20 6e 54 65 73 74  .  }.  set nTest
3fc0: 6c 69 73 74 20 5b 6c 6c 65 6e 67 74 68 20 24 74  list [llength $t
3fd0: 65 73 74 6c 69 73 74 5d 0a 20 20 69 66 20 7b 24  estlist].  if {$
3fe0: 6e 54 65 73 74 6c 69 73 74 25 33 20 7c 7c 20 24  nTestlist%3 || $
3ff0: 6e 54 65 73 74 6c 69 73 74 3d 3d 30 20 7d 20 7b  nTestlist==0 } {
4000: 0a 20 20 20 20 65 72 72 6f 72 20 22 53 45 4c 45  .    error "SELE
4010: 43 54 20 74 65 73 74 20 6c 69 73 74 20 63 6f 6e  CT test list con
4020: 74 61 69 6e 73 20 5b 6c 6c 65 6e 67 74 68 20 24  tains [llength $
4030: 74 65 73 74 6c 69 73 74 5d 20 65 6c 65 6d 65 6e  testlist] elemen
4040: 74 73 22 0a 20 20 7d 0a 0a 20 20 65 76 61 6c 20  ts".  }..  eval 
4050: 24 72 65 70 61 69 72 0a 20 20 66 6f 72 65 61 63  $repair.  foreac
4060: 68 20 7b 74 6e 20 73 71 6c 20 72 65 73 7d 20 24  h {tn sql res} $
4070: 74 65 73 74 6c 69 73 74 20 7b 0a 20 20 20 20 69  testlist {.    i
4080: 66 20 7b 24 74 63 6c 71 75 65 72 79 20 21 3d 20  f {$tclquery != 
4090: 22 22 7d 20 7b 0a 20 20 20 20 20 20 65 78 65 63  ""} {.      exec
40a0: 73 71 6c 20 24 73 71 6c 0a 20 20 20 20 20 20 75  sql $sql.      u
40b0: 70 6c 65 76 65 6c 20 64 6f 5f 74 65 73 74 20 24  plevel do_test $
40c0: 7b 70 72 65 66 69 78 7d 2e 24 74 6e 20 5b 6c 69  {prefix}.$tn [li
40d0: 73 74 20 24 74 63 6c 71 75 65 72 79 5d 20 5b 6c  st $tclquery] [l
40e0: 69 73 74 20 5b 6c 69 73 74 20 7b 2a 7d 24 72 65  ist [list {*}$re
40f0: 73 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66  s]].    } elseif
4100: 20 7b 24 63 6f 75 6e 74 6f 6e 6c 79 7d 20 7b 0a   {$countonly} {.
4110: 20 20 20 20 20 20 73 65 74 20 6e 52 6f 77 20 30        set nRow 0
4120: 0a 20 20 20 20 20 20 64 62 20 65 76 61 6c 20 24  .      db eval $
4130: 73 71 6c 20 7b 69 6e 63 72 20 6e 52 6f 77 7d 0a  sql {incr nRow}.
4140: 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20 64 6f        uplevel do
4150: 5f 74 65 73 74 20 24 7b 70 72 65 66 69 78 7d 2e  _test ${prefix}.
4160: 24 74 6e 20 5b 6c 69 73 74 20 5b 6c 69 73 74 20  $tn [list [list 
4170: 73 65 74 20 7b 7d 20 24 6e 52 6f 77 5d 5d 20 5b  set {} $nRow]] [
4180: 6c 69 73 74 20 24 72 65 73 5d 0a 20 20 20 20 7d  list $res].    }
4190: 20 65 6c 73 65 69 66 20 7b 24 65 72 72 66 6d 74   elseif {$errfmt
41a0: 3d 3d 22 22 7d 20 7b 0a 20 20 20 20 20 20 75 70  ==""} {.      up
41b0: 6c 65 76 65 6c 20 64 6f 5f 65 78 65 63 73 71 6c  level do_execsql
41c0: 5f 74 65 73 74 20 24 7b 70 72 65 66 69 78 7d 2e  _test ${prefix}.
41d0: 24 7b 74 6e 7d 20 5b 6c 69 73 74 20 24 73 71 6c  ${tn} [list $sql
41e0: 5d 20 5b 6c 69 73 74 20 5b 6c 69 73 74 20 7b 2a  ] [list [list {*
41f0: 7d 24 72 65 73 5d 5d 0a 20 20 20 20 7d 20 65 6c  }$res]].    } el
4200: 73 65 20 7b 0a 20 20 20 20 20 20 73 65 74 20 72  se {.      set r
4210: 65 73 20 5b 6c 69 73 74 20 31 20 5b 73 74 72 69  es [list 1 [stri
4220: 6e 67 20 74 72 69 6d 20 5b 66 6f 72 6d 61 74 20  ng trim [format 
4230: 24 65 72 72 66 6d 74 20 7b 2a 7d 24 72 65 73 5d  $errfmt {*}$res]
4240: 5d 5d 0a 20 20 20 20 20 20 75 70 6c 65 76 65 6c  ]].      uplevel
4250: 20 64 6f 5f 63 61 74 63 68 73 71 6c 5f 74 65 73   do_catchsql_tes
4260: 74 20 24 7b 70 72 65 66 69 78 7d 2e 24 7b 74 6e  t ${prefix}.${tn
4270: 7d 20 5b 6c 69 73 74 20 24 73 71 6c 5d 20 5b 6c  } [list $sql] [l
4280: 69 73 74 20 24 72 65 73 5d 0a 20 20 20 20 7d 0a  ist $res].    }.
4290: 20 20 20 20 65 76 61 6c 20 24 72 65 70 61 69 72      eval $repair
42a0: 0a 20 20 7d 0a 0a 7d 0a 0a 70 72 6f 63 20 64 65  .  }..}..proc de
42b0: 6c 65 74 65 5f 61 6c 6c 5f 64 61 74 61 20 7b 7d  lete_all_data {}
42c0: 20 7b 0a 20 20 64 62 20 65 76 61 6c 20 7b 53 45   {.  db eval {SE
42d0: 4c 45 43 54 20 74 62 6c 5f 6e 61 6d 65 20 41 53  LECT tbl_name AS
42e0: 20 74 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d   t FROM sqlite_m
42f0: 61 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65  aster WHERE type
4300: 20 3d 20 27 74 61 62 6c 65 27 7d 20 7b 0a 20 20   = 'table'} {.  
4310: 20 20 64 62 20 65 76 61 6c 20 22 44 45 4c 45 54    db eval "DELET
4320: 45 20 46 52 4f 4d 20 27 5b 73 74 72 69 6e 67 20  E FROM '[string 
4330: 6d 61 70 20 7b 27 20 27 27 7d 20 24 74 5d 27 22  map {' ''} $t]'"
4340: 0a 20 20 7d 0a 7d 0a 0a 23 20 52 75 6e 20 61 6e  .  }.}..# Run an
4350: 20 53 51 4c 20 73 63 72 69 70 74 2e 20 20 0a 23   SQL script.  .#
4360: 20 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62   Return the numb
4370: 65 72 20 6f 66 20 6d 69 63 72 6f 73 65 63 6f 6e  er of microsecon
4380: 64 73 20 70 65 72 20 73 74 61 74 65 6d 65 6e 74  ds per statement
4390: 2e 0a 23 0a 70 72 6f 63 20 73 70 65 65 64 5f 74  ..#.proc speed_t
43a0: 72 69 61 6c 20 7b 6e 61 6d 65 20 6e 75 6d 73 74  rial {name numst
43b0: 6d 74 20 75 6e 69 74 73 20 73 71 6c 7d 20 7b 0a  mt units sql} {.
43c0: 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e    puts -nonewlin
43d0: 65 20 5b 66 6f 72 6d 61 74 20 7b 25 2d 32 31 2e  e [format {%-21.
43e0: 32 31 73 20 7d 20 24 6e 61 6d 65 2e 2e 2e 5d 0a  21s } $name...].
43f0: 20 20 66 6c 75 73 68 20 73 74 64 6f 75 74 0a 20    flush stdout. 
4400: 20 73 65 74 20 73 70 65 65 64 20 5b 74 69 6d 65   set speed [time
4410: 20 7b 73 71 6c 69 74 65 33 5f 65 78 65 63 5f 6e   {sqlite3_exec_n
4420: 72 20 64 62 20 24 73 71 6c 7d 5d 0a 20 20 73 65  r db $sql}].  se
4430: 74 20 74 6d 20 5b 6c 69 6e 64 65 78 20 24 73 70  t tm [lindex $sp
4440: 65 65 64 20 30 5d 0a 20 20 69 66 20 7b 24 74 6d  eed 0].  if {$tm
4450: 20 3d 3d 20 30 7d 20 7b 0a 20 20 20 20 73 65 74   == 0} {.    set
4460: 20 72 61 74 65 20 5b 66 6f 72 6d 61 74 20 25 32   rate [format %2
4470: 30 73 20 22 6d 61 6e 79 22 5d 0a 20 20 7d 20 65  0s "many"].  } e
4480: 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20 72 61  lse {.    set ra
4490: 74 65 20 5b 66 6f 72 6d 61 74 20 25 32 30 2e 35  te [format %20.5
44a0: 66 20 5b 65 78 70 72 20 7b 31 30 30 30 30 30 30  f [expr {1000000
44b0: 2e 30 2a 24 6e 75 6d 73 74 6d 74 2f 24 74 6d 7d  .0*$numstmt/$tm}
44c0: 5d 5d 0a 20 20 7d 0a 20 20 73 65 74 20 75 32 20  ]].  }.  set u2 
44d0: 24 75 6e 69 74 73 2f 73 0a 20 20 70 75 74 73 20  $units/s.  puts 
44e0: 5b 66 6f 72 6d 61 74 20 7b 25 31 32 64 20 75 53  [format {%12d uS
44f0: 20 25 73 20 25 73 7d 20 24 74 6d 20 24 72 61 74   %s %s} $tm $rat
4500: 65 20 24 75 32 5d 0a 20 20 67 6c 6f 62 61 6c 20  e $u2].  global 
4510: 74 6f 74 61 6c 5f 74 69 6d 65 0a 20 20 73 65 74  total_time.  set
4520: 20 74 6f 74 61 6c 5f 74 69 6d 65 20 5b 65 78 70   total_time [exp
4530: 72 20 7b 24 74 6f 74 61 6c 5f 74 69 6d 65 2b 24  r {$total_time+$
4540: 74 6d 7d 5d 0a 20 20 6c 61 70 70 65 6e 64 20 3a  tm}].  lappend :
4550: 3a 73 70 65 65 64 5f 74 72 69 61 6c 5f 74 69 6d  :speed_trial_tim
4560: 65 73 20 24 6e 61 6d 65 20 24 74 6d 0a 7d 0a 70  es $name $tm.}.p
4570: 72 6f 63 20 73 70 65 65 64 5f 74 72 69 61 6c 5f  roc speed_trial_
4580: 74 63 6c 20 7b 6e 61 6d 65 20 6e 75 6d 73 74 6d  tcl {name numstm
4590: 74 20 75 6e 69 74 73 20 73 63 72 69 70 74 7d 20  t units script} 
45a0: 7b 0a 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c  {.  puts -nonewl
45b0: 69 6e 65 20 5b 66 6f 72 6d 61 74 20 7b 25 2d 32  ine [format {%-2
45c0: 31 2e 32 31 73 20 7d 20 24 6e 61 6d 65 2e 2e 2e  1.21s } $name...
45d0: 5d 0a 20 20 66 6c 75 73 68 20 73 74 64 6f 75 74  ].  flush stdout
45e0: 0a 20 20 73 65 74 20 73 70 65 65 64 20 5b 74 69  .  set speed [ti
45f0: 6d 65 20 7b 65 76 61 6c 20 24 73 63 72 69 70 74  me {eval $script
4600: 7d 5d 0a 20 20 73 65 74 20 74 6d 20 5b 6c 69 6e  }].  set tm [lin
4610: 64 65 78 20 24 73 70 65 65 64 20 30 5d 0a 20 20  dex $speed 0].  
4620: 69 66 20 7b 24 74 6d 20 3d 3d 20 30 7d 20 7b 0a  if {$tm == 0} {.
4630: 20 20 20 20 73 65 74 20 72 61 74 65 20 5b 66 6f      set rate [fo
4640: 72 6d 61 74 20 25 32 30 73 20 22 6d 61 6e 79 22  rmat %20s "many"
4650: 5d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20  ].  } else {.   
4660: 20 73 65 74 20 72 61 74 65 20 5b 66 6f 72 6d 61   set rate [forma
4670: 74 20 25 32 30 2e 35 66 20 5b 65 78 70 72 20 7b  t %20.5f [expr {
4680: 31 30 30 30 30 30 30 2e 30 2a 24 6e 75 6d 73 74  1000000.0*$numst
4690: 6d 74 2f 24 74 6d 7d 5d 5d 0a 20 20 7d 0a 20 20  mt/$tm}]].  }.  
46a0: 73 65 74 20 75 32 20 24 75 6e 69 74 73 2f 73 0a  set u2 $units/s.
46b0: 20 20 70 75 74 73 20 5b 66 6f 72 6d 61 74 20 7b    puts [format {
46c0: 25 31 32 64 20 75 53 20 25 73 20 25 73 7d 20 24  %12d uS %s %s} $
46d0: 74 6d 20 24 72 61 74 65 20 24 75 32 5d 0a 20 20  tm $rate $u2].  
46e0: 67 6c 6f 62 61 6c 20 74 6f 74 61 6c 5f 74 69 6d  global total_tim
46f0: 65 0a 20 20 73 65 74 20 74 6f 74 61 6c 5f 74 69  e.  set total_ti
4700: 6d 65 20 5b 65 78 70 72 20 7b 24 74 6f 74 61 6c  me [expr {$total
4710: 5f 74 69 6d 65 2b 24 74 6d 7d 5d 0a 20 20 6c 61  _time+$tm}].  la
4720: 70 70 65 6e 64 20 3a 3a 73 70 65 65 64 5f 74 72  ppend ::speed_tr
4730: 69 61 6c 5f 74 69 6d 65 73 20 24 6e 61 6d 65 20  ial_times $name 
4740: 24 74 6d 0a 7d 0a 70 72 6f 63 20 73 70 65 65 64  $tm.}.proc speed
4750: 5f 74 72 69 61 6c 5f 69 6e 69 74 20 7b 6e 61 6d  _trial_init {nam
4760: 65 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 74 6f  e} {.  global to
4770: 74 61 6c 5f 74 69 6d 65 0a 20 20 73 65 74 20 74  tal_time.  set t
4780: 6f 74 61 6c 5f 74 69 6d 65 20 30 0a 20 20 73 65  otal_time 0.  se
4790: 74 20 3a 3a 73 70 65 65 64 5f 74 72 69 61 6c 5f  t ::speed_trial_
47a0: 74 69 6d 65 73 20 5b 6c 69 73 74 5d 0a 20 20 73  times [list].  s
47b0: 71 6c 69 74 65 33 20 76 65 72 73 64 62 20 3a 6d  qlite3 versdb :m
47c0: 65 6d 6f 72 79 3a 0a 20 20 73 65 74 20 76 65 72  emory:.  set ver
47d0: 73 20 5b 76 65 72 73 64 62 20 6f 6e 65 20 7b 53  s [versdb one {S
47e0: 45 4c 45 43 54 20 73 71 6c 69 74 65 5f 73 6f 75  ELECT sqlite_sou
47f0: 72 63 65 5f 69 64 28 29 7d 5d 0a 20 20 76 65 72  rce_id()}].  ver
4800: 73 64 62 20 63 6c 6f 73 65 0a 20 20 70 75 74 73  sdb close.  puts
4810: 20 22 53 51 4c 69 74 65 20 24 76 65 72 73 22 0a   "SQLite $vers".
4820: 7d 0a 70 72 6f 63 20 73 70 65 65 64 5f 74 72 69  }.proc speed_tri
4830: 61 6c 5f 73 75 6d 6d 61 72 79 20 7b 6e 61 6d 65  al_summary {name
4840: 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 74 6f 74  } {.  global tot
4850: 61 6c 5f 74 69 6d 65 0a 20 20 70 75 74 73 20 5b  al_time.  puts [
4860: 66 6f 72 6d 61 74 20 7b 25 2d 32 31 2e 32 31 73  format {%-21.21s
4870: 20 25 31 32 64 20 75 53 20 54 4f 54 41 4c 7d 20   %12d uS TOTAL} 
4880: 24 6e 61 6d 65 20 24 74 6f 74 61 6c 5f 74 69 6d  $name $total_tim
4890: 65 5d 0a 0a 20 20 69 66 20 7b 20 30 20 7d 20 7b  e]..  if { 0 } {
48a0: 0a 20 20 20 20 73 71 6c 69 74 65 33 20 76 65 72  .    sqlite3 ver
48b0: 73 64 62 20 3a 6d 65 6d 6f 72 79 3a 0a 20 20 20  sdb :memory:.   
48c0: 20 73 65 74 20 76 65 72 73 20 5b 6c 69 6e 64 65   set vers [linde
48d0: 78 20 5b 76 65 72 73 64 62 20 6f 6e 65 20 7b 53  x [versdb one {S
48e0: 45 4c 45 43 54 20 73 71 6c 69 74 65 5f 73 6f 75  ELECT sqlite_sou
48f0: 72 63 65 5f 69 64 28 29 7d 5d 20 30 5d 0a 20 20  rce_id()}] 0].  
4900: 20 20 76 65 72 73 64 62 20 63 6c 6f 73 65 0a 20    versdb close. 
4910: 20 20 20 70 75 74 73 20 22 43 52 45 41 54 45 20     puts "CREATE 
4920: 54 41 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 49  TABLE IF NOT EXI
4930: 53 54 53 20 74 69 6d 65 28 76 65 72 73 69 6f 6e  STS time(version
4940: 2c 20 73 63 72 69 70 74 2c 20 74 65 73 74 2c 20  , script, test, 
4950: 75 73 29 3b 22 0a 20 20 20 20 66 6f 72 65 61 63  us);".    foreac
4960: 68 20 7b 74 65 73 74 20 75 73 7d 20 24 3a 3a 73  h {test us} $::s
4970: 70 65 65 64 5f 74 72 69 61 6c 5f 74 69 6d 65 73  peed_trial_times
4980: 20 7b 0a 20 20 20 20 20 20 70 75 74 73 20 22 49   {.      puts "I
4990: 4e 53 45 52 54 20 49 4e 54 4f 20 74 69 6d 65 20  NSERT INTO time 
49a0: 56 41 4c 55 45 53 28 27 24 76 65 72 73 27 2c 20  VALUES('$vers', 
49b0: 27 24 6e 61 6d 65 27 2c 20 27 24 74 65 73 74 27  '$name', '$test'
49c0: 2c 20 24 75 73 29 3b 22 0a 20 20 20 20 7d 0a 20  , $us);".    }. 
49d0: 20 7d 0a 7d 0a 0a 23 20 52 75 6e 20 74 68 69 73   }.}..# Run this
49e0: 20 72 6f 75 74 69 6e 65 20 6c 61 73 74 0a 23 0a   routine last.#.
49f0: 70 72 6f 63 20 66 69 6e 69 73 68 5f 74 65 73 74  proc finish_test
4a00: 20 7b 7d 20 7b 0a 20 20 63 61 74 63 68 20 7b 64   {} {.  catch {d
4a10: 62 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68  b close}.  catch
4a20: 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 20 20 63   {db2 close}.  c
4a30: 61 74 63 68 20 7b 64 62 33 20 63 6c 6f 73 65 7d  atch {db3 close}
4a40: 0a 20 20 69 66 20 7b 30 3d 3d 5b 69 6e 66 6f 20  .  if {0==[info 
4a50: 65 78 69 73 74 73 20 3a 3a 53 4c 41 56 45 5d 7d  exists ::SLAVE]}
4a60: 20 7b 20 66 69 6e 61 6c 69 7a 65 5f 74 65 73 74   { finalize_test
4a70: 69 6e 67 20 7d 0a 7d 0a 70 72 6f 63 20 66 69 6e  ing }.}.proc fin
4a80: 61 6c 69 7a 65 5f 74 65 73 74 69 6e 67 20 7b 7d  alize_testing {}
4a90: 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 73 71 6c 69   {.  global sqli
4aa0: 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75  te_open_file_cou
4ab0: 6e 74 0a 0a 20 20 73 65 74 20 6f 6d 69 74 4c 69  nt..  set omitLi
4ac0: 73 74 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f 75  st [set_test_cou
4ad0: 6e 74 65 72 20 6f 6d 69 74 5f 6c 69 73 74 5d 0a  nter omit_list].
4ae0: 0a 20 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f  .  catch {db clo
4af0: 73 65 7d 0a 20 20 63 61 74 63 68 20 7b 64 62 32  se}.  catch {db2
4b00: 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68 20   close}.  catch 
4b10: 7b 64 62 33 20 63 6c 6f 73 65 7d 0a 0a 20 20 76  {db3 close}..  v
4b20: 66 73 5f 75 6e 6c 69 6e 6b 5f 74 65 73 74 0a 20  fs_unlink_test. 
4b30: 20 73 71 6c 69 74 65 33 20 64 62 20 7b 7d 0a 20   sqlite3 db {}. 
4b40: 20 23 20 73 71 6c 69 74 65 33 5f 63 6c 65 61 72   # sqlite3_clear
4b50: 5f 74 73 64 5f 6d 65 6d 64 65 62 75 67 0a 20 20  _tsd_memdebug.  
4b60: 64 62 20 63 6c 6f 73 65 0a 20 20 73 71 6c 69 74  db close.  sqlit
4b70: 65 33 5f 72 65 73 65 74 5f 61 75 74 6f 5f 65 78  e3_reset_auto_ex
4b80: 74 65 6e 73 69 6f 6e 0a 0a 20 20 73 71 6c 69 74  tension..  sqlit
4b90: 65 33 5f 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d  e3_soft_heap_lim
4ba0: 69 74 20 30 0a 20 20 73 65 74 20 6e 54 65 73 74  it 0.  set nTest
4bb0: 20 5b 69 6e 63 72 5f 6e 74 65 73 74 5d 0a 20 20   [incr_ntest].  
4bc0: 73 65 74 20 6e 45 72 72 20 5b 73 65 74 5f 74 65  set nErr [set_te
4bd0: 73 74 5f 63 6f 75 6e 74 65 72 20 65 72 72 6f 72  st_counter error
4be0: 73 5d 0a 0a 20 20 70 75 74 73 20 22 24 6e 45 72  s]..  puts "$nEr
4bf0: 72 20 65 72 72 6f 72 73 20 6f 75 74 20 6f 66 20  r errors out of 
4c00: 24 6e 54 65 73 74 20 74 65 73 74 73 22 0a 20 20  $nTest tests".  
4c10: 69 66 20 7b 24 6e 45 72 72 3e 30 7d 20 7b 0a 20  if {$nErr>0} {. 
4c20: 20 20 20 70 75 74 73 20 22 46 61 69 6c 75 72 65     puts "Failure
4c30: 73 20 6f 6e 20 74 68 65 73 65 20 74 65 73 74 73  s on these tests
4c40: 3a 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e  : [set_test_coun
4c50: 74 65 72 20 66 61 69 6c 5f 6c 69 73 74 5d 22 0a  ter fail_list]".
4c60: 20 20 7d 0a 20 20 72 75 6e 5f 74 68 72 65 61 64    }.  run_thread
4c70: 5f 74 65 73 74 73 20 31 0a 20 20 69 66 20 7b 5b  _tests 1.  if {[
4c80: 6c 6c 65 6e 67 74 68 20 24 6f 6d 69 74 4c 69 73  llength $omitLis
4c90: 74 5d 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73  t]>0} {.    puts
4ca0: 20 22 4f 6d 69 74 74 65 64 20 74 65 73 74 20 63   "Omitted test c
4cb0: 61 73 65 73 3a 22 0a 20 20 20 20 73 65 74 20 70  ases:".    set p
4cc0: 72 65 63 20 7b 7d 0a 20 20 20 20 66 6f 72 65 61  rec {}.    forea
4cd0: 63 68 20 7b 72 65 63 7d 20 5b 6c 73 6f 72 74 20  ch {rec} [lsort 
4ce0: 24 6f 6d 69 74 4c 69 73 74 5d 20 7b 0a 20 20 20  $omitList] {.   
4cf0: 20 20 20 69 66 20 7b 24 72 65 63 3d 3d 24 70 72     if {$rec==$pr
4d00: 65 63 7d 20 63 6f 6e 74 69 6e 75 65 0a 20 20 20  ec} continue.   
4d10: 20 20 20 73 65 74 20 70 72 65 63 20 24 72 65 63     set prec $rec
4d20: 0a 20 20 20 20 20 20 70 75 74 73 20 5b 66 6f 72  .      puts [for
4d30: 6d 61 74 20 7b 20 20 25 2d 31 32 73 20 25 73 7d  mat {  %-12s %s}
4d40: 20 5b 6c 69 6e 64 65 78 20 24 72 65 63 20 30 5d   [lindex $rec 0]
4d50: 20 5b 6c 69 6e 64 65 78 20 24 72 65 63 20 31 5d   [lindex $rec 1]
4d60: 5d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66  ].    }.  }.  if
4d70: 20 7b 24 6e 45 72 72 3e 30 20 26 26 20 21 5b 77   {$nErr>0 && ![w
4d80: 6f 72 6b 69 6e 67 5f 36 34 62 69 74 5f 69 6e 74  orking_64bit_int
4d90: 5d 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22 2a  ]} {.    puts "*
4da0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4db0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4dc0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4dd0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4de0: 2a 22 0a 20 20 20 20 70 75 74 73 20 22 4e 2e 42  *".    puts "N.B
4df0: 2e 3a 20 20 54 68 65 20 76 65 72 73 69 6f 6e 20  .:  The version 
4e00: 6f 66 20 54 43 4c 20 74 68 61 74 20 79 6f 75 20  of TCL that you 
4e10: 75 73 65 64 20 74 6f 20 62 75 69 6c 64 20 74 68  used to build th
4e20: 69 73 20 74 65 73 74 20 68 61 72 6e 65 73 73 22  is test harness"
4e30: 0a 20 20 20 20 70 75 74 73 20 22 69 73 20 64 65  .    puts "is de
4e40: 66 65 63 74 69 76 65 20 69 6e 20 74 68 61 74 20  fective in that 
4e50: 69 74 20 64 6f 65 73 20 6e 6f 74 20 73 75 70 70  it does not supp
4e60: 6f 72 74 20 36 34 2d 62 69 74 20 69 6e 74 65 67  ort 64-bit integ
4e70: 65 72 73 2e 20 20 53 6f 6d 65 20 6f 72 22 0a 20  ers.  Some or". 
4e80: 20 20 20 70 75 74 73 20 22 61 6c 6c 20 6f 66 20     puts "all of 
4e90: 74 68 65 20 74 65 73 74 20 66 61 69 6c 75 72 65  the test failure
4ea0: 73 20 61 62 6f 76 65 20 6d 69 67 68 74 20 62 65  s above might be
4eb0: 20 61 20 72 65 73 75 6c 74 20 66 72 6f 6d 20 74   a result from t
4ec0: 68 69 73 20 64 65 66 65 63 74 22 0a 20 20 20 20  his defect".    
4ed0: 70 75 74 73 20 22 69 6e 20 79 6f 75 72 20 54 43  puts "in your TC
4ee0: 4c 20 62 75 69 6c 64 2e 22 0a 20 20 20 20 70 75  L build.".    pu
4ef0: 74 73 20 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ts "************
4f00: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4f10: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4f20: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4f30: 2a 2a 2a 2a 2a 2a 22 0a 20 20 7d 0a 20 20 69 66  ******".  }.  if
4f40: 20 7b 24 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 28   {$::cmdlinearg(
4f50: 62 69 6e 61 72 79 6c 6f 67 29 7d 20 7b 0a 20 20  binarylog)} {.  
4f60: 20 20 76 66 73 6c 6f 67 20 66 69 6e 61 6c 69 7a    vfslog finaliz
4f70: 65 20 62 69 6e 61 72 79 6c 6f 67 0a 20 20 7d 0a  e binarylog.  }.
4f80: 20 20 69 66 20 7b 24 73 71 6c 69 74 65 5f 6f 70    if {$sqlite_op
4f90: 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 7d 20 7b  en_file_count} {
4fa0: 0a 20 20 20 20 70 75 74 73 20 22 24 73 71 6c 69  .    puts "$sqli
4fb0: 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75  te_open_file_cou
4fc0: 6e 74 20 66 69 6c 65 73 20 77 65 72 65 20 6c 65  nt files were le
4fd0: 66 74 20 6f 70 65 6e 22 0a 20 20 20 20 69 6e 63  ft open".    inc
4fe0: 72 20 6e 45 72 72 0a 20 20 7d 0a 20 20 69 66 20  r nErr.  }.  if 
4ff0: 7b 5b 6c 69 6e 64 65 78 20 5b 73 71 6c 69 74 65  {[lindex [sqlite
5000: 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f  3_status SQLITE_
5010: 53 54 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f 43 4f  STATUS_MALLOC_CO
5020: 55 4e 54 20 30 5d 20 31 5d 3e 30 20 7c 7c 0a 20  UNT 0] 1]>0 ||. 
5030: 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 73 71               [sq
5040: 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73 65  lite3_memory_use
5050: 64 5d 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73  d]>0} {.    puts
5060: 20 22 55 6e 66 72 65 65 64 20 6d 65 6d 6f 72 79   "Unfreed memory
5070: 3a 20 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72  : [sqlite3_memor
5080: 79 5f 75 73 65 64 5d 20 62 79 74 65 73 20 69 6e  y_used] bytes in
5090: 5c 0a 20 20 20 20 20 20 20 20 20 5b 6c 69 6e 64  \.         [lind
50a0: 65 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74  ex [sqlite3_stat
50b0: 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53  us SQLITE_STATUS
50c0: 5f 4d 41 4c 4c 4f 43 5f 43 4f 55 4e 54 20 30 5d  _MALLOC_COUNT 0]
50d0: 20 31 5d 20 61 6c 6c 6f 63 61 74 69 6f 6e 73 22   1] allocations"
50e0: 0a 20 20 20 20 69 6e 63 72 20 6e 45 72 72 0a 20  .    incr nErr. 
50f0: 20 20 20 69 66 63 61 70 61 62 6c 65 20 6d 65 6d     ifcapable mem
5100: 64 65 62 75 67 7c 7c 6d 65 6d 35 7c 7c 28 6d 65  debug||mem5||(me
5110: 6d 33 26 26 64 65 62 75 67 29 20 7b 0a 20 20 20  m3&&debug) {.   
5120: 20 20 20 70 75 74 73 20 22 57 72 69 74 69 6e 67     puts "Writing
5130: 20 75 6e 66 72 65 65 64 20 6d 65 6d 6f 72 79 20   unfreed memory 
5140: 6c 6f 67 20 74 6f 20 5c 22 2e 2f 6d 65 6d 6c 65  log to \"./memle
5150: 61 6b 2e 74 78 74 5c 22 22 0a 20 20 20 20 20 20  ak.txt\"".      
5160: 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67  sqlite3_memdebug
5170: 5f 64 75 6d 70 20 2e 2f 6d 65 6d 6c 65 61 6b 2e  _dump ./memleak.
5180: 74 78 74 0a 20 20 20 20 7d 0a 20 20 7d 20 65 6c  txt.    }.  } el
5190: 73 65 20 7b 0a 20 20 20 20 70 75 74 73 20 22 41  se {.    puts "A
51a0: 6c 6c 20 6d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61  ll memory alloca
51b0: 74 69 6f 6e 73 20 66 72 65 65 64 20 2d 20 6e 6f  tions freed - no
51c0: 20 6c 65 61 6b 73 22 0a 20 20 20 20 69 66 63 61   leaks".    ifca
51d0: 70 61 62 6c 65 20 6d 65 6d 64 65 62 75 67 7c 7c  pable memdebug||
51e0: 6d 65 6d 35 20 7b 0a 20 20 20 20 20 20 73 71 6c  mem5 {.      sql
51f0: 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 64 75  ite3_memdebug_du
5200: 6d 70 20 2e 2f 6d 65 6d 75 73 61 67 65 2e 74 78  mp ./memusage.tx
5210: 74 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 68  t.    }.  }.  sh
5220: 6f 77 5f 6d 65 6d 73 74 61 74 73 0a 20 20 70 75  ow_memstats.  pu
5230: 74 73 20 22 4d 61 78 69 6d 75 6d 20 6d 65 6d 6f  ts "Maximum memo
5240: 72 79 20 75 73 61 67 65 3a 20 5b 73 71 6c 69 74  ry usage: [sqlit
5250: 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 61  e3_memory_highwa
5260: 74 65 72 20 31 5d 20 62 79 74 65 73 22 0a 20 20  ter 1] bytes".  
5270: 70 75 74 73 20 22 43 75 72 72 65 6e 74 20 6d 65  puts "Current me
5280: 6d 6f 72 79 20 75 73 61 67 65 3a 20 5b 73 71 6c  mory usage: [sql
5290: 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68  ite3_memory_high
52a0: 77 61 74 65 72 5d 20 62 79 74 65 73 22 0a 20 20  water] bytes".  
52b0: 69 66 20 7b 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e  if {[info comman
52c0: 64 73 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65  ds sqlite3_memde
52d0: 62 75 67 5f 6d 61 6c 6c 6f 63 5f 63 6f 75 6e 74  bug_malloc_count
52e0: 5d 20 6e 65 20 22 22 7d 20 7b 0a 20 20 20 20 70  ] ne ""} {.    p
52f0: 75 74 73 20 22 4e 75 6d 62 65 72 20 6f 66 20 6d  uts "Number of m
5300: 61 6c 6c 6f 63 28 29 20 20 3a 20 5b 73 71 6c 69  alloc()  : [sqli
5310: 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 6d 61 6c  te3_memdebug_mal
5320: 6c 6f 63 5f 63 6f 75 6e 74 5d 20 63 61 6c 6c 73  loc_count] calls
5330: 22 0a 20 20 7d 0a 20 20 69 66 20 7b 24 3a 3a 63  ".  }.  if {$::c
5340: 6d 64 6c 69 6e 65 61 72 67 28 6d 61 6c 6c 6f 63  mdlinearg(malloc
5350: 74 72 61 63 65 29 7d 20 7b 0a 20 20 20 20 70 75  trace)} {.    pu
5360: 74 73 20 22 57 72 69 74 69 6e 67 20 6d 61 6c 6c  ts "Writing mall
5370: 6f 63 73 2e 73 71 6c 2e 2e 2e 22 0a 20 20 20 20  ocs.sql...".    
5380: 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 5f 73 71 6c  memdebug_log_sql
5390: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d  .    sqlite3_mem
53a0: 64 65 62 75 67 5f 6c 6f 67 20 73 74 6f 70 0a 20  debug_log stop. 
53b0: 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65     sqlite3_memde
53c0: 62 75 67 5f 6c 6f 67 20 63 6c 65 61 72 0a 0a 20  bug_log clear.. 
53d0: 20 20 20 69 66 20 7b 5b 73 71 6c 69 74 65 33 5f     if {[sqlite3_
53e0: 6d 65 6d 6f 72 79 5f 75 73 65 64 5d 3e 30 7d 20  memory_used]>0} 
53f0: 7b 0a 20 20 20 20 20 20 70 75 74 73 20 22 57 72  {.      puts "Wr
5400: 69 74 69 6e 67 20 6c 65 61 6b 73 2e 73 71 6c 2e  iting leaks.sql.
5410: 2e 2e 22 0a 20 20 20 20 20 20 73 71 6c 69 74 65  ..".      sqlite
5420: 33 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 20 73  3_memdebug_log s
5430: 79 6e 63 0a 20 20 20 20 20 20 6d 65 6d 64 65 62  ync.      memdeb
5440: 75 67 5f 6c 6f 67 5f 73 71 6c 20 6c 65 61 6b 73  ug_log_sql leaks
5450: 2e 73 71 6c 0a 20 20 20 20 7d 0a 20 20 7d 0a 20  .sql.    }.  }. 
5460: 20 66 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f 62   foreach f [glob
5470: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 73   -nocomplain tes
5480: 74 2e 64 62 2d 2a 2d 6a 6f 75 72 6e 61 6c 5d 20  t.db-*-journal] 
5490: 7b 0a 20 20 20 20 66 6f 72 63 65 64 65 6c 65 74  {.    forcedelet
54a0: 65 20 24 66 0a 20 20 7d 0a 20 20 66 6f 72 65 61  e $f.  }.  forea
54b0: 63 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f  ch f [glob -noco
54c0: 6d 70 6c 61 69 6e 20 74 65 73 74 2e 64 62 2d 6d  mplain test.db-m
54d0: 6a 2a 5d 20 7b 0a 20 20 20 20 66 6f 72 63 65 64  j*] {.    forced
54e0: 65 6c 65 74 65 20 24 66 0a 20 20 7d 0a 20 20 65  elete $f.  }.  e
54f0: 78 69 74 20 5b 65 78 70 72 20 7b 24 6e 45 72 72  xit [expr {$nErr
5500: 3e 30 7d 5d 0a 7d 0a 0a 23 20 44 69 73 70 6c 61  >0}].}..# Displa
5510: 79 20 6d 65 6d 6f 72 79 20 73 74 61 74 69 73 74  y memory statist
5520: 69 63 73 20 66 6f 72 20 61 6e 61 6c 79 73 69 73  ics for analysis
5530: 20 61 6e 64 20 64 65 62 75 67 67 69 6e 67 20 70   and debugging p
5540: 75 72 70 6f 73 65 73 2e 0a 23 0a 70 72 6f 63 20  urposes..#.proc 
5550: 73 68 6f 77 5f 6d 65 6d 73 74 61 74 73 20 7b 7d  show_memstats {}
5560: 20 7b 0a 20 20 73 65 74 20 78 20 5b 73 71 6c 69   {.  set x [sqli
5570: 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54  te3_status SQLIT
5580: 45 5f 53 54 41 54 55 53 5f 4d 45 4d 4f 52 59 5f  E_STATUS_MEMORY_
5590: 55 53 45 44 20 30 5d 0a 20 20 73 65 74 20 79 20  USED 0].  set y 
55a0: 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20  [sqlite3_status 
55b0: 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 4d 41  SQLITE_STATUS_MA
55c0: 4c 4c 4f 43 5f 53 49 5a 45 20 30 5d 0a 20 20 73  LLOC_SIZE 0].  s
55d0: 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b  et val [format {
55e0: 6e 6f 77 20 25 31 30 64 20 20 6d 61 78 20 25 31  now %10d  max %1
55f0: 30 64 20 20 6d 61 78 2d 73 69 7a 65 20 25 31 30  0d  max-size %10
5600: 64 7d 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20  d} \.           
5610: 20 20 20 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d     [lindex $x 1]
5620: 20 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 20 5b   [lindex $x 2] [
5630: 6c 69 6e 64 65 78 20 24 79 20 32 5d 5d 0a 20 20  lindex $y 2]].  
5640: 70 75 74 73 20 22 4d 65 6d 6f 72 79 20 75 73 65  puts "Memory use
5650: 64 3a 20 20 20 20 20 20 20 20 20 20 24 76 61 6c  d:          $val
5660: 22 0a 20 20 73 65 74 20 78 20 5b 73 71 6c 69 74  ".  set x [sqlit
5670: 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45  e3_status SQLITE
5680: 5f 53 54 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f 43  _STATUS_MALLOC_C
5690: 4f 55 4e 54 20 30 5d 0a 20 20 73 65 74 20 76 61  OUNT 0].  set va
56a0: 6c 20 5b 66 6f 72 6d 61 74 20 7b 6e 6f 77 20 25  l [format {now %
56b0: 31 30 64 20 20 6d 61 78 20 25 31 30 64 7d 20 5b  10d  max %10d} [
56c0: 6c 69 6e 64 65 78 20 24 78 20 31 5d 20 5b 6c 69  lindex $x 1] [li
56d0: 6e 64 65 78 20 24 78 20 32 5d 5d 0a 20 20 70 75  ndex $x 2]].  pu
56e0: 74 73 20 22 41 6c 6c 6f 63 61 74 69 6f 6e 20 63  ts "Allocation c
56f0: 6f 75 6e 74 3a 20 20 20 20 20 24 76 61 6c 22 0a  ount:     $val".
5700: 20 20 73 65 74 20 78 20 5b 73 71 6c 69 74 65 33    set x [sqlite3
5710: 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53  _status SQLITE_S
5720: 54 41 54 55 53 5f 50 41 47 45 43 41 43 48 45 5f  TATUS_PAGECACHE_
5730: 55 53 45 44 20 30 5d 0a 20 20 73 65 74 20 79 20  USED 0].  set y 
5740: 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20  [sqlite3_status 
5750: 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 50 41  SQLITE_STATUS_PA
5760: 47 45 43 41 43 48 45 5f 53 49 5a 45 20 30 5d 0a  GECACHE_SIZE 0].
5770: 20 20 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61    set val [forma
5780: 74 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d 61 78  t {now %10d  max
5790: 20 25 31 30 64 20 20 6d 61 78 2d 73 69 7a 65 20   %10d  max-size 
57a0: 25 31 30 64 7d 20 5c 0a 20 20 20 20 20 20 20 20  %10d} \.        
57b0: 20 20 20 20 20 20 5b 6c 69 6e 64 65 78 20 24 78        [lindex $x
57c0: 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 78 20 32   1] [lindex $x 2
57d0: 5d 20 5b 6c 69 6e 64 65 78 20 24 79 20 32 5d 5d  ] [lindex $y 2]]
57e0: 0a 20 20 70 75 74 73 20 22 50 61 67 65 2d 63 61  .  puts "Page-ca
57f0: 63 68 65 20 75 73 65 64 3a 20 20 20 20 20 20 24  che used:      $
5800: 76 61 6c 22 0a 20 20 73 65 74 20 78 20 5b 73 71  val".  set x [sq
5810: 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c  lite3_status SQL
5820: 49 54 45 5f 53 54 41 54 55 53 5f 50 41 47 45 43  ITE_STATUS_PAGEC
5830: 41 43 48 45 5f 4f 56 45 52 46 4c 4f 57 20 30 5d  ACHE_OVERFLOW 0]
5840: 0a 20 20 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d  .  set val [form
5850: 61 74 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d 61  at {now %10d  ma
5860: 78 20 25 31 30 64 7d 20 5b 6c 69 6e 64 65 78 20  x %10d} [lindex 
5870: 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 78  $x 1] [lindex $x
5880: 20 32 5d 5d 0a 20 20 70 75 74 73 20 22 50 61 67   2]].  puts "Pag
5890: 65 2d 63 61 63 68 65 20 6f 76 65 72 66 6c 6f 77  e-cache overflow
58a0: 3a 20 20 24 76 61 6c 22 0a 20 20 73 65 74 20 78  :  $val".  set x
58b0: 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73   [sqlite3_status
58c0: 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 53   SQLITE_STATUS_S
58d0: 43 52 41 54 43 48 5f 55 53 45 44 20 30 5d 0a 20  CRATCH_USED 0]. 
58e0: 20 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74   set val [format
58f0: 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d 61 78 20   {now %10d  max 
5900: 25 31 30 64 7d 20 5b 6c 69 6e 64 65 78 20 24 78  %10d} [lindex $x
5910: 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 78 20 32   1] [lindex $x 2
5920: 5d 5d 0a 20 20 70 75 74 73 20 22 53 63 72 61 74  ]].  puts "Scrat
5930: 63 68 20 6d 65 6d 6f 72 79 20 75 73 65 64 3a 20  ch memory used: 
5940: 20 24 76 61 6c 22 0a 20 20 73 65 74 20 78 20 5b   $val".  set x [
5950: 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53  sqlite3_status S
5960: 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 53 43 52  QLITE_STATUS_SCR
5970: 41 54 43 48 5f 4f 56 45 52 46 4c 4f 57 20 30 5d  ATCH_OVERFLOW 0]
5980: 0a 20 20 73 65 74 20 79 20 5b 73 71 6c 69 74 65  .  set y [sqlite
5990: 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f  3_status SQLITE_
59a0: 53 54 41 54 55 53 5f 53 43 52 41 54 43 48 5f 53  STATUS_SCRATCH_S
59b0: 49 5a 45 20 30 5d 0a 20 20 73 65 74 20 76 61 6c  IZE 0].  set val
59c0: 20 5b 66 6f 72 6d 61 74 20 7b 6e 6f 77 20 25 31   [format {now %1
59d0: 30 64 20 20 6d 61 78 20 25 31 30 64 20 20 6d 61  0d  max %10d  ma
59e0: 78 2d 73 69 7a 65 20 25 31 30 64 7d 20 5c 0a 20  x-size %10d} \. 
59f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 6c                [l
5a00: 69 6e 64 65 78 20 24 78 20 31 5d 20 5b 6c 69 6e  index $x 1] [lin
5a10: 64 65 78 20 24 78 20 32 5d 20 5b 6c 69 6e 64 65  dex $x 2] [linde
5a20: 78 20 24 79 20 32 5d 5d 0a 20 20 70 75 74 73 20  x $y 2]].  puts 
5a30: 22 53 63 72 61 74 63 68 20 6f 76 65 72 66 6c 6f  "Scratch overflo
5a40: 77 3a 20 20 20 20 20 24 76 61 6c 22 0a 20 20 69  w:     $val".  i
5a50: 66 63 61 70 61 62 6c 65 20 79 79 74 72 61 63 6b  fcapable yytrack
5a60: 6d 61 78 73 74 61 63 6b 64 65 70 74 68 20 7b 0a  maxstackdepth {.
5a70: 20 20 20 20 73 65 74 20 78 20 5b 73 71 6c 69 74      set x [sqlit
5a80: 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45  e3_status SQLITE
5a90: 5f 53 54 41 54 55 53 5f 50 41 52 53 45 52 5f 53  _STATUS_PARSER_S
5aa0: 54 41 43 4b 20 30 5d 0a 20 20 20 20 73 65 74 20  TACK 0].    set 
5ab0: 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b 20 20 20  val [format {   
5ac0: 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 20              max 
5ad0: 25 31 30 64 7d 20 5b 6c 69 6e 64 65 78 20 24 78  %10d} [lindex $x
5ae0: 20 32 5d 5d 0a 20 20 20 20 70 75 74 73 20 22 50   2]].    puts "P
5af0: 61 72 73 65 72 20 73 74 61 63 6b 20 64 65 70 74  arser stack dept
5b00: 68 3a 20 20 20 20 24 76 61 6c 22 0a 20 20 7d 0a  h:    $val".  }.
5b10: 7d 0a 0a 23 20 41 20 70 72 6f 63 65 64 75 72 65  }..# A procedure
5b20: 20 74 6f 20 65 78 65 63 75 74 65 20 53 51 4c 0a   to execute SQL.
5b30: 23 0a 70 72 6f 63 20 65 78 65 63 73 71 6c 20 7b  #.proc execsql {
5b40: 73 71 6c 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20  sql {db db}} {. 
5b50: 20 23 20 70 75 74 73 20 22 53 51 4c 20 3d 20 24   # puts "SQL = $
5b60: 73 71 6c 22 0a 20 20 75 70 6c 65 76 65 6c 20 5b  sql".  uplevel [
5b70: 6c 69 73 74 20 24 64 62 20 65 76 61 6c 20 24 73  list $db eval $s
5b80: 71 6c 5d 0a 7d 0a 0a 23 20 45 78 65 63 75 74 65  ql].}..# Execute
5b90: 20 53 51 4c 20 61 6e 64 20 63 61 74 63 68 20 65   SQL and catch e
5ba0: 78 63 65 70 74 69 6f 6e 73 2e 0a 23 0a 70 72 6f  xceptions..#.pro
5bb0: 63 20 63 61 74 63 68 73 71 6c 20 7b 73 71 6c 20  c catchsql {sql 
5bc0: 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 23 20 70  {db db}} {.  # p
5bd0: 75 74 73 20 22 53 51 4c 20 3d 20 24 73 71 6c 22  uts "SQL = $sql"
5be0: 0a 20 20 73 65 74 20 72 20 5b 63 61 74 63 68 20  .  set r [catch 
5bf0: 5b 6c 69 73 74 20 75 70 6c 65 76 65 6c 20 5b 6c  [list uplevel [l
5c00: 69 73 74 20 24 64 62 20 65 76 61 6c 20 24 73 71  ist $db eval $sq
5c10: 6c 5d 5d 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65  l]] msg].  lappe
5c20: 6e 64 20 72 20 24 6d 73 67 0a 20 20 72 65 74 75  nd r $msg.  retu
5c30: 72 6e 20 24 72 0a 7d 0a 0a 23 20 44 6f 20 61 6e  rn $r.}..# Do an
5c40: 20 56 44 42 45 20 63 6f 64 65 20 64 75 6d 70 20   VDBE code dump 
5c50: 6f 6e 20 74 68 65 20 53 51 4c 20 67 69 76 65 6e  on the SQL given
5c60: 0a 23 0a 70 72 6f 63 20 65 78 70 6c 61 69 6e 20  .#.proc explain 
5c70: 7b 73 71 6c 20 7b 64 62 20 64 62 7d 7d 20 7b 0a  {sql {db db}} {.
5c80: 20 20 70 75 74 73 20 22 22 0a 20 20 70 75 74 73    puts "".  puts
5c90: 20 22 61 64 64 72 20 20 6f 70 63 6f 64 65 20 20   "addr  opcode  
5ca0: 20 20 20 20 20 20 70 31 20 20 20 20 20 20 70 32        p1      p2
5cb0: 20 20 20 20 20 20 70 33 20 20 20 20 20 20 70 34        p3      p4
5cc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70                 p
5cd0: 35 20 20 23 22 0a 20 20 70 75 74 73 20 22 2d 2d  5  #".  puts "--
5ce0: 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  --  ------------
5cf0: 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d    ------  ------
5d00: 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d    ------  ------
5d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d 20 20 2d  ---------  --  -
5d20: 22 0a 20 20 24 64 62 20 65 76 61 6c 20 22 65 78  ".  $db eval "ex
5d30: 70 6c 61 69 6e 20 24 73 71 6c 22 20 7b 7d 20 7b  plain $sql" {} {
5d40: 0a 20 20 20 20 70 75 74 73 20 5b 66 6f 72 6d 61  .    puts [forma
5d50: 74 20 7b 25 2d 34 64 20 20 25 2d 31 32 2e 31 32  t {%-4d  %-12.12
5d60: 73 20 20 25 2d 36 64 20 20 25 2d 36 64 20 20 25  s  %-6d  %-6d  %
5d70: 2d 36 64 20 20 25 20 2d 31 37 73 20 25 73 20 20  -6d  % -17s %s  
5d80: 25 73 7d 20 5c 0a 20 20 20 20 20 20 24 61 64 64  %s} \.      $add
5d90: 72 20 24 6f 70 63 6f 64 65 20 24 70 31 20 24 70  r $opcode $p1 $p
5da0: 32 20 24 70 33 20 24 70 34 20 24 70 35 20 24 63  2 $p3 $p4 $p5 $c
5db0: 6f 6d 6d 65 6e 74 0a 20 20 20 20 5d 0a 20 20 7d  omment.    ].  }
5dc0: 0a 7d 0a 0a 23 20 53 68 6f 77 20 74 68 65 20 56  .}..# Show the V
5dd0: 44 42 45 20 70 72 6f 67 72 61 6d 20 66 6f 72 20  DBE program for 
5de0: 61 6e 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74  an SQL statement
5df0: 20 62 75 74 20 6f 6d 69 74 20 74 68 65 20 54 72   but omit the Tr
5e00: 61 63 65 0a 23 20 6f 70 63 6f 64 65 20 61 74 20  ace.# opcode at 
5e10: 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 2e 20 20  the beginning.  
5e20: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 63  This procedure c
5e30: 61 6e 20 62 65 20 75 73 65 64 20 74 6f 20 70 72  an be used to pr
5e40: 6f 76 65 0a 23 20 74 68 61 74 20 64 69 66 66 65  ove.# that diffe
5e50: 72 65 6e 74 20 53 51 4c 20 73 74 61 74 65 6d 65  rent SQL stateme
5e60: 6e 74 73 20 67 65 6e 65 72 61 74 65 20 65 78 61  nts generate exa
5e70: 63 74 6c 79 20 74 68 65 20 73 61 6d 65 20 56 44  ctly the same VD
5e80: 42 45 20 63 6f 64 65 2e 0a 23 0a 70 72 6f 63 20  BE code..#.proc 
5e90: 65 78 70 6c 61 69 6e 5f 6e 6f 5f 74 72 61 63 65  explain_no_trace
5ea0: 20 7b 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20 74   {sql} {.  set t
5eb0: 72 20 5b 64 62 20 65 76 61 6c 20 22 45 58 50 4c  r [db eval "EXPL
5ec0: 41 49 4e 20 24 73 71 6c 22 5d 0a 20 20 72 65 74  AIN $sql"].  ret
5ed0: 75 72 6e 20 5b 6c 72 61 6e 67 65 20 24 74 72 20  urn [lrange $tr 
5ee0: 37 20 65 6e 64 5d 0a 7d 0a 0a 23 20 41 6e 6f 74  7 end].}..# Anot
5ef0: 68 65 72 20 70 72 6f 63 65 64 75 72 65 20 74 6f  her procedure to
5f00: 20 65 78 65 63 75 74 65 20 53 51 4c 2e 20 20 54   execute SQL.  T
5f10: 68 69 73 20 6f 6e 65 20 69 6e 63 6c 75 64 65 73  his one includes
5f20: 20 74 68 65 20 66 69 65 6c 64 0a 23 20 6e 61 6d   the field.# nam
5f30: 65 73 20 69 6e 20 74 68 65 20 72 65 74 75 72 6e  es in the return
5f40: 65 64 20 6c 69 73 74 2e 0a 23 0a 70 72 6f 63 20  ed list..#.proc 
5f50: 65 78 65 63 73 71 6c 32 20 7b 73 71 6c 7d 20 7b  execsql2 {sql} {
5f60: 0a 20 20 73 65 74 20 72 65 73 75 6c 74 20 7b 7d  .  set result {}
5f70: 0a 20 20 64 62 20 65 76 61 6c 20 24 73 71 6c 20  .  db eval $sql 
5f80: 64 61 74 61 20 7b 0a 20 20 20 20 66 6f 72 65 61  data {.    forea
5f90: 63 68 20 66 20 24 64 61 74 61 28 2a 29 20 7b 0a  ch f $data(*) {.
5fa0: 20 20 20 20 20 20 6c 61 70 70 65 6e 64 20 72 65        lappend re
5fb0: 73 75 6c 74 20 24 66 20 24 64 61 74 61 28 24 66  sult $f $data($f
5fc0: 29 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65  ).    }.  }.  re
5fd0: 74 75 72 6e 20 24 72 65 73 75 6c 74 0a 7d 0a 0a  turn $result.}..
5fe0: 23 20 55 73 65 20 74 68 65 20 6e 6f 6e 2d 63 61  # Use the non-ca
5ff0: 6c 6c 62 61 63 6b 20 41 50 49 20 74 6f 20 65 78  llback API to ex
6000: 65 63 75 74 65 20 6d 75 6c 74 69 70 6c 65 20 53  ecute multiple S
6010: 51 4c 20 73 74 61 74 65 6d 65 6e 74 73 0a 23 0a  QL statements.#.
6020: 70 72 6f 63 20 73 74 65 70 73 71 6c 20 7b 64 62  proc stepsql {db
6030: 70 74 72 20 73 71 6c 7d 20 7b 0a 20 20 73 65 74  ptr sql} {.  set
6040: 20 73 71 6c 20 5b 73 74 72 69 6e 67 20 74 72 69   sql [string tri
6050: 6d 20 24 73 71 6c 5d 0a 20 20 73 65 74 20 72 20  m $sql].  set r 
6060: 30 0a 20 20 77 68 69 6c 65 20 7b 5b 73 74 72 69  0.  while {[stri
6070: 6e 67 20 6c 65 6e 67 74 68 20 24 73 71 6c 5d 3e  ng length $sql]>
6080: 30 7d 20 7b 0a 20 20 20 20 69 66 20 7b 5b 63 61  0} {.    if {[ca
6090: 74 63 68 20 7b 73 71 6c 69 74 65 33 5f 70 72 65  tch {sqlite3_pre
60a0: 70 61 72 65 20 24 64 62 70 74 72 20 24 73 71 6c  pare $dbptr $sql
60b0: 20 2d 31 20 73 71 6c 74 61 69 6c 7d 20 76 6d 5d   -1 sqltail} vm]
60c0: 7d 20 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e  } {.      return
60d0: 20 5b 6c 69 73 74 20 31 20 24 76 6d 5d 0a 20 20   [list 1 $vm].  
60e0: 20 20 7d 0a 20 20 20 20 73 65 74 20 73 71 6c 20    }.    set sql 
60f0: 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24 73 71  [string trim $sq
6100: 6c 74 61 69 6c 5d 0a 23 20 20 20 20 77 68 69 6c  ltail].#    whil
6110: 65 20 7b 5b 73 71 6c 69 74 65 5f 73 74 65 70 20  e {[sqlite_step 
6120: 24 76 6d 20 4e 20 56 41 4c 20 43 4f 4c 5d 3d 3d  $vm N VAL COL]==
6130: 22 53 51 4c 49 54 45 5f 52 4f 57 22 7d 20 7b 0a  "SQLITE_ROW"} {.
6140: 23 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 76  #      foreach v
6150: 20 24 56 41 4c 20 7b 6c 61 70 70 65 6e 64 20 72   $VAL {lappend r
6160: 20 24 76 7d 0a 23 20 20 20 20 7d 0a 20 20 20 20   $v}.#    }.    
6170: 77 68 69 6c 65 20 7b 5b 73 71 6c 69 74 65 33 5f  while {[sqlite3_
6180: 73 74 65 70 20 24 76 6d 5d 3d 3d 22 53 51 4c 49  step $vm]=="SQLI
6190: 54 45 5f 52 4f 57 22 7d 20 7b 0a 20 20 20 20 20  TE_ROW"} {.     
61a0: 20 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b   for {set i 0} {
61b0: 24 69 3c 5b 73 71 6c 69 74 65 33 5f 64 61 74 61  $i<[sqlite3_data
61c0: 5f 63 6f 75 6e 74 20 24 76 6d 5d 7d 20 7b 69 6e  _count $vm]} {in
61d0: 63 72 20 69 7d 20 7b 0a 20 20 20 20 20 20 20 20  cr i} {.        
61e0: 6c 61 70 70 65 6e 64 20 72 20 5b 73 71 6c 69 74  lappend r [sqlit
61f0: 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 20 24  e3_column_text $
6200: 76 6d 20 24 69 5d 0a 20 20 20 20 20 20 7d 0a 20  vm $i].      }. 
6210: 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 5b 63 61     }.    if {[ca
6220: 74 63 68 20 7b 73 71 6c 69 74 65 33 5f 66 69 6e  tch {sqlite3_fin
6230: 61 6c 69 7a 65 20 24 76 6d 7d 20 65 72 72 6d 73  alize $vm} errms
6240: 67 5d 7d 20 7b 0a 20 20 20 20 20 20 72 65 74 75  g]} {.      retu
6250: 72 6e 20 5b 6c 69 73 74 20 31 20 24 65 72 72 6d  rn [list 1 $errm
6260: 73 67 5d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20  sg].    }.  }.  
6270: 72 65 74 75 72 6e 20 24 72 0a 7d 0a 0a 23 20 44  return $r.}..# D
6280: 6f 20 61 6e 20 69 6e 74 65 67 72 69 74 79 20 63  o an integrity c
6290: 68 65 63 6b 20 6f 66 20 74 68 65 20 65 6e 74 69  heck of the enti
62a0: 72 65 20 64 61 74 61 62 61 73 65 0a 23 0a 70 72  re database.#.pr
62b0: 6f 63 20 69 6e 74 65 67 72 69 74 79 5f 63 68 65  oc integrity_che
62c0: 63 6b 20 7b 6e 61 6d 65 20 7b 64 62 20 64 62 7d  ck {name {db db}
62d0: 7d 20 7b 0a 20 20 69 66 63 61 70 61 62 6c 65 20  } {.  ifcapable 
62e0: 69 6e 74 65 67 72 69 74 79 63 6b 20 7b 0a 20 20  integrityck {.  
62f0: 20 20 64 6f 5f 74 65 73 74 20 24 6e 61 6d 65 20    do_test $name 
6300: 5b 6c 69 73 74 20 65 78 65 63 73 71 6c 20 7b 50  [list execsql {P
6310: 52 41 47 4d 41 20 69 6e 74 65 67 72 69 74 79 5f  RAGMA integrity_
6320: 63 68 65 63 6b 7d 20 24 64 62 5d 20 7b 6f 6b 7d  check} $db] {ok}
6330: 0a 20 20 7d 0a 7d 0a 0a 0a 23 20 52 65 74 75 72  .  }.}...# Retur
6340: 6e 20 74 72 75 65 20 69 66 20 74 68 65 20 53 51  n true if the SQ
6350: 4c 20 73 74 61 74 65 6d 65 6e 74 20 70 61 73 73  L statement pass
6360: 65 64 20 61 73 20 74 68 65 20 73 65 63 6f 6e 64  ed as the second
6370: 20 61 72 67 75 6d 65 6e 74 20 75 73 65 73 20 61   argument uses a
6380: 0a 23 20 73 74 61 74 65 6d 65 6e 74 20 74 72 61  .# statement tra
6390: 6e 73 61 63 74 69 6f 6e 2e 0a 23 0a 70 72 6f 63  nsaction..#.proc
63a0: 20 73 71 6c 5f 75 73 65 73 5f 73 74 6d 74 20 7b   sql_uses_stmt {
63b0: 64 62 20 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20  db sql} {.  set 
63c0: 73 74 6d 74 20 5b 73 71 6c 69 74 65 33 5f 70 72  stmt [sqlite3_pr
63d0: 65 70 61 72 65 20 24 64 62 20 24 73 71 6c 20 2d  epare $db $sql -
63e0: 31 20 64 75 6d 6d 79 5d 0a 20 20 73 65 74 20 75  1 dummy].  set u
63f0: 73 65 73 20 5b 75 73 65 73 5f 73 74 6d 74 5f 6a  ses [uses_stmt_j
6400: 6f 75 72 6e 61 6c 20 24 73 74 6d 74 5d 0a 20 20  ournal $stmt].  
6410: 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65  sqlite3_finalize
6420: 20 24 73 74 6d 74 0a 20 20 72 65 74 75 72 6e 20   $stmt.  return 
6430: 24 75 73 65 73 0a 7d 0a 0a 70 72 6f 63 20 66 69  $uses.}..proc fi
6440: 78 5f 69 66 63 61 70 61 62 6c 65 5f 65 78 70 72  x_ifcapable_expr
6450: 20 7b 65 78 70 72 7d 20 7b 0a 20 20 73 65 74 20   {expr} {.  set 
6460: 72 65 74 20 22 22 0a 20 20 73 65 74 20 73 74 61  ret "".  set sta
6470: 74 65 20 30 0a 20 20 66 6f 72 20 7b 73 65 74 20  te 0.  for {set 
6480: 69 20 30 7d 20 7b 24 69 20 3c 20 5b 73 74 72 69  i 0} {$i < [stri
6490: 6e 67 20 6c 65 6e 67 74 68 20 24 65 78 70 72 5d  ng length $expr]
64a0: 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20  } {incr i} {.   
64b0: 20 73 65 74 20 63 68 61 72 20 5b 73 74 72 69 6e   set char [strin
64c0: 67 20 72 61 6e 67 65 20 24 65 78 70 72 20 24 69  g range $expr $i
64d0: 20 24 69 5d 0a 20 20 20 20 73 65 74 20 6e 65 77   $i].    set new
64e0: 73 74 61 74 65 20 5b 65 78 70 72 20 7b 5b 73 74  state [expr {[st
64f0: 72 69 6e 67 20 69 73 20 61 6c 6e 75 6d 20 24 63  ring is alnum $c
6500: 68 61 72 5d 20 7c 7c 20 24 63 68 61 72 20 65 71  har] || $char eq
6510: 20 22 5f 22 7d 5d 0a 20 20 20 20 69 66 20 7b 24   "_"}].    if {$
6520: 6e 65 77 73 74 61 74 65 20 26 26 20 21 24 73 74  newstate && !$st
6530: 61 74 65 7d 20 7b 0a 20 20 20 20 20 20 61 70 70  ate} {.      app
6540: 65 6e 64 20 72 65 74 20 7b 24 3a 3a 73 71 6c 69  end ret {$::sqli
6550: 74 65 5f 6f 70 74 69 6f 6e 73 28 7d 0a 20 20 20  te_options(}.   
6560: 20 7d 0a 20 20 20 20 69 66 20 7b 21 24 6e 65 77   }.    if {!$new
6570: 73 74 61 74 65 20 26 26 20 24 73 74 61 74 65 7d  state && $state}
6580: 20 7b 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20   {.      append 
6590: 72 65 74 20 29 0a 20 20 20 20 7d 0a 20 20 20 20  ret ).    }.    
65a0: 61 70 70 65 6e 64 20 72 65 74 20 24 63 68 61 72  append ret $char
65b0: 0a 20 20 20 20 73 65 74 20 73 74 61 74 65 20 24  .    set state $
65c0: 6e 65 77 73 74 61 74 65 0a 20 20 7d 0a 20 20 69  newstate.  }.  i
65d0: 66 20 7b 24 73 74 61 74 65 7d 20 7b 61 70 70 65  f {$state} {appe
65e0: 6e 64 20 72 65 74 20 29 7d 0a 20 20 72 65 74 75  nd ret )}.  retu
65f0: 72 6e 20 24 72 65 74 0a 7d 0a 0a 23 20 45 76 61  rn $ret.}..# Eva
6600: 6c 75 61 74 65 20 61 20 62 6f 6f 6c 65 61 6e 20  luate a boolean 
6610: 65 78 70 72 65 73 73 69 6f 6e 20 6f 66 20 63 61  expression of ca
6620: 70 61 62 69 6c 69 74 69 65 73 2e 20 20 49 66 20  pabilities.  If 
6630: 74 72 75 65 2c 20 65 78 65 63 75 74 65 20 74 68  true, execute th
6640: 65 0a 23 20 63 6f 64 65 2e 20 20 4f 6d 69 74 20  e.# code.  Omit 
6650: 74 68 65 20 63 6f 64 65 20 69 66 20 66 61 6c 73  the code if fals
6660: 65 2e 0a 23 0a 70 72 6f 63 20 69 66 63 61 70 61  e..#.proc ifcapa
6670: 62 6c 65 20 7b 65 78 70 72 20 63 6f 64 65 20 7b  ble {expr code {
6680: 65 6c 73 65 20 22 22 7d 20 7b 65 6c 73 65 63 6f  else ""} {elseco
6690: 64 65 20 22 22 7d 7d 20 7b 0a 20 20 23 72 65 67  de ""}} {.  #reg
66a0: 73 75 62 20 2d 61 6c 6c 20 7b 5b 61 2d 7a 5f 30  sub -all {[a-z_0
66b0: 2d 39 5d 2b 7d 20 24 65 78 70 72 20 7b 24 3a 3a  -9]+} $expr {$::
66c0: 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 28 26  sqlite_options(&
66d0: 29 7d 20 65 32 0a 20 20 73 65 74 20 65 32 20 5b  )} e2.  set e2 [
66e0: 66 69 78 5f 69 66 63 61 70 61 62 6c 65 5f 65 78  fix_ifcapable_ex
66f0: 70 72 20 24 65 78 70 72 5d 0a 20 20 69 66 20 28  pr $expr].  if (
6700: 24 65 32 29 20 7b 0a 20 20 20 20 73 65 74 20 63  $e2) {.    set c
6710: 20 5b 63 61 74 63 68 20 7b 75 70 6c 65 76 65 6c   [catch {uplevel
6720: 20 31 20 24 63 6f 64 65 7d 20 72 5d 0a 20 20 7d   1 $code} r].  }
6730: 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20   else {.    set 
6740: 63 20 5b 63 61 74 63 68 20 7b 75 70 6c 65 76 65  c [catch {upleve
6750: 6c 20 31 20 24 65 6c 73 65 63 6f 64 65 7d 20 72  l 1 $elsecode} r
6760: 5d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 2d  ].  }.  return -
6770: 63 6f 64 65 20 24 63 20 24 72 0a 7d 0a 0a 23 20  code $c $r.}..# 
6780: 54 68 69 73 20 70 72 6f 63 20 65 78 65 63 73 20  This proc execs 
6790: 61 20 73 65 70 65 72 61 74 65 20 70 72 6f 63 65  a seperate proce
67a0: 73 73 20 74 68 61 74 20 63 72 61 73 68 65 73 20  ss that crashes 
67b0: 6d 69 64 77 61 79 20 74 68 72 6f 75 67 68 20 65  midway through e
67c0: 78 65 63 75 74 69 6e 67 0a 23 20 74 68 65 20 53  xecuting.# the S
67d0: 51 4c 20 73 63 72 69 70 74 20 24 73 71 6c 20 6f  QL script $sql o
67e0: 6e 20 64 61 74 61 62 61 73 65 20 74 65 73 74 2e  n database test.
67f0: 64 62 2e 0a 23 0a 23 20 54 68 65 20 63 72 61 73  db..#.# The cras
6800: 68 20 6f 63 63 75 72 73 20 64 75 72 69 6e 67 20  h occurs during 
6810: 61 20 73 79 6e 63 28 29 20 6f 66 20 66 69 6c 65  a sync() of file
6820: 20 24 63 72 61 73 68 66 69 6c 65 2e 20 57 68 65   $crashfile. Whe
6830: 6e 20 74 68 65 20 63 72 61 73 68 0a 23 20 6f 63  n the crash.# oc
6840: 63 75 72 73 20 61 20 72 61 6e 64 6f 6d 20 73 75  curs a random su
6850: 62 73 65 74 20 6f 66 20 61 6c 6c 20 75 6e 73 79  bset of all unsy
6860: 6e 63 65 64 20 77 72 69 74 65 73 20 6d 61 64 65  nced writes made
6870: 20 62 79 20 74 68 65 20 70 72 6f 63 65 73 73 20   by the process 
6880: 61 72 65 0a 23 20 77 72 69 74 74 65 6e 20 69 6e  are.# written in
6890: 74 6f 20 74 68 65 20 66 69 6c 65 73 20 6f 6e 20  to the files on 
68a0: 64 69 73 6b 2e 20 41 72 67 75 6d 65 6e 74 20 24  disk. Argument $
68b0: 63 72 61 73 68 64 65 6c 61 79 20 69 6e 64 69 63  crashdelay indic
68c0: 61 74 65 73 20 74 68 65 0a 23 20 6e 75 6d 62 65  ates the.# numbe
68d0: 72 20 6f 66 20 66 69 6c 65 20 73 79 6e 63 73 20  r of file syncs 
68e0: 74 6f 20 77 61 69 74 20 62 65 66 6f 72 65 20 63  to wait before c
68f0: 72 61 73 68 69 6e 67 2e 0a 23 0a 23 20 54 68 65  rashing..#.# The
6900: 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73   return value is
6910: 20 61 20 6c 69 73 74 20 6f 66 20 74 77 6f 20 65   a list of two e
6920: 6c 65 6d 65 6e 74 73 2e 20 54 68 65 20 66 69 72  lements. The fir
6930: 73 74 20 65 6c 65 6d 65 6e 74 20 69 73 20 61 0a  st element is a.
6940: 23 20 62 6f 6f 6c 65 61 6e 2c 20 69 6e 64 69 63  # boolean, indic
6950: 61 74 69 6e 67 20 77 68 65 74 68 65 72 20 6f 72  ating whether or
6960: 20 6e 6f 74 20 74 68 65 20 70 72 6f 63 65 73 73   not the process
6970: 20 61 63 74 75 61 6c 6c 79 20 63 72 61 73 68 65   actually crashe
6980: 64 20 6f 72 0a 23 20 72 65 70 6f 72 74 65 64 20  d or.# reported 
6990: 73 6f 6d 65 20 6f 74 68 65 72 20 65 72 72 6f 72  some other error
69a0: 2e 20 54 68 65 20 73 65 63 6f 6e 64 20 65 6c 65  . The second ele
69b0: 6d 65 6e 74 20 69 6e 20 74 68 65 20 72 65 74 75  ment in the retu
69c0: 72 6e 65 64 20 6c 69 73 74 20 69 73 20 74 68 65  rned list is the
69d0: 0a 23 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65  .# error message
69e0: 2e 20 54 68 69 73 20 69 73 20 22 63 68 69 6c 64  . This is "child
69f0: 20 70 72 6f 63 65 73 73 20 65 78 69 74 65 64 20   process exited 
6a00: 61 62 6e 6f 72 6d 61 6c 6c 79 22 20 69 66 20 74  abnormally" if t
6a10: 68 65 20 63 72 61 73 68 0a 23 20 6f 63 63 75 72  he crash.# occur
6a20: 65 64 2e 0a 23 0a 23 20 20 20 63 72 61 73 68 73  ed..#.#   crashs
6a30: 71 6c 20 2d 64 65 6c 61 79 20 43 52 41 53 48 44  ql -delay CRASHD
6a40: 45 4c 41 59 20 2d 66 69 6c 65 20 43 52 41 53 48  ELAY -file CRASH
6a50: 46 49 4c 45 20 3f 2d 62 6c 6f 63 6b 73 69 7a 65  FILE ?-blocksize
6a60: 20 42 4c 4f 43 4b 53 49 5a 45 3f 20 24 73 71 6c   BLOCKSIZE? $sql
6a70: 0a 23 0a 70 72 6f 63 20 63 72 61 73 68 73 71 6c  .#.proc crashsql
6a80: 20 7b 61 72 67 73 7d 20 7b 0a 0a 20 20 73 65 74   {args} {..  set
6a90: 20 62 6c 6f 63 6b 73 69 7a 65 20 22 22 0a 20 20   blocksize "".  
6aa0: 73 65 74 20 63 72 61 73 68 64 65 6c 61 79 20 31  set crashdelay 1
6ab0: 0a 20 20 73 65 74 20 70 72 6e 67 73 65 65 64 20  .  set prngseed 
6ac0: 30 0a 20 20 73 65 74 20 74 63 6c 62 6f 64 79 20  0.  set tclbody 
6ad0: 7b 7d 0a 20 20 73 65 74 20 63 72 61 73 68 66 69  {}.  set crashfi
6ae0: 6c 65 20 22 22 0a 20 20 73 65 74 20 64 63 20 22  le "".  set dc "
6af0: 22 0a 20 20 73 65 74 20 73 71 6c 20 5b 6c 69 6e  ".  set sql [lin
6b00: 64 65 78 20 24 61 72 67 73 20 65 6e 64 5d 0a 20  dex $args end]. 
6b10: 20 0a 20 20 66 6f 72 20 7b 73 65 74 20 69 69 20   .  for {set ii 
6b20: 30 7d 20 7b 24 69 69 20 3c 20 5b 6c 6c 65 6e 67  0} {$ii < [lleng
6b30: 74 68 20 24 61 72 67 73 5d 2d 31 7d 20 7b 69 6e  th $args]-1} {in
6b40: 63 72 20 69 69 20 32 7d 20 7b 0a 20 20 20 20 73  cr ii 2} {.    s
6b50: 65 74 20 7a 20 5b 6c 69 6e 64 65 78 20 24 61 72  et z [lindex $ar
6b60: 67 73 20 24 69 69 5d 0a 20 20 20 20 73 65 74 20  gs $ii].    set 
6b70: 6e 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68  n [string length
6b80: 20 24 7a 5d 0a 20 20 20 20 73 65 74 20 7a 32 20   $z].    set z2 
6b90: 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20 5b 65  [lindex $args [e
6ba0: 78 70 72 20 24 69 69 2b 31 5d 5d 0a 0a 20 20 20  xpr $ii+1]]..   
6bb0: 20 69 66 20 20 20 20 20 7b 24 6e 3e 31 20 26 26   if     {$n>1 &&
6bc0: 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20 24   [string first $
6bd0: 7a 20 2d 64 65 6c 61 79 5d 3d 3d 30 7d 20 20 20  z -delay]==0}   
6be0: 20 20 7b 73 65 74 20 63 72 61 73 68 64 65 6c 61    {set crashdela
6bf0: 79 20 24 7a 32 7d 20 5c 0a 20 20 20 20 65 6c 73  y $z2} \.    els
6c00: 65 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74  eif {$n>1 && [st
6c10: 72 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d 73  ring first $z -s
6c20: 65 65 64 5d 3d 3d 30 7d 20 20 20 20 20 20 7b 73  eed]==0}      {s
6c30: 65 74 20 70 72 6e 67 73 65 65 64 20 24 7a 32 7d  et prngseed $z2}
6c40: 20 5c 0a 20 20 20 20 65 6c 73 65 69 66 20 7b 24   \.    elseif {$
6c50: 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e 67 20 66  n>1 && [string f
6c60: 69 72 73 74 20 24 7a 20 2d 66 69 6c 65 5d 3d 3d  irst $z -file]==
6c70: 30 7d 20 20 20 20 20 20 7b 73 65 74 20 63 72 61  0}      {set cra
6c80: 73 68 66 69 6c 65 20 24 7a 32 7d 20 20 5c 0a 20  shfile $z2}  \. 
6c90: 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 20     elseif {$n>1 
6ca0: 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74  && [string first
6cb0: 20 24 7a 20 2d 74 63 6c 62 6f 64 79 5d 3d 3d 30   $z -tclbody]==0
6cc0: 7d 20 20 20 7b 73 65 74 20 74 63 6c 62 6f 64 79  }   {set tclbody
6cd0: 20 24 7a 32 7d 20 20 5c 0a 20 20 20 20 65 6c 73   $z2}  \.    els
6ce0: 65 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74  eif {$n>1 && [st
6cf0: 72 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d 62  ring first $z -b
6d00: 6c 6f 63 6b 73 69 7a 65 5d 3d 3d 30 7d 20 7b 73  locksize]==0} {s
6d10: 65 74 20 62 6c 6f 63 6b 73 69 7a 65 20 22 2d 73  et blocksize "-s
6d20: 20 24 7a 32 22 20 7d 20 5c 0a 20 20 20 20 65 6c   $z2" } \.    el
6d30: 73 65 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73  seif {$n>1 && [s
6d40: 74 72 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d  tring first $z -
6d50: 63 68 61 72 61 63 74 65 72 69 73 74 69 63 73 5d  characteristics]
6d60: 3d 3d 30 7d 20 7b 73 65 74 20 64 63 20 22 2d 63  ==0} {set dc "-c
6d70: 20 7b 24 7a 32 7d 22 20 7d 20 5c 0a 20 20 20 20   {$z2}" } \.    
6d80: 65 6c 73 65 20 20 20 7b 20 65 72 72 6f 72 20 22  else   { error "
6d90: 55 6e 72 65 63 6f 67 6e 69 7a 65 64 20 6f 70 74  Unrecognized opt
6da0: 69 6f 6e 3a 20 24 7a 22 20 7d 0a 20 20 7d 0a 0a  ion: $z" }.  }..
6db0: 20 20 69 66 20 7b 24 63 72 61 73 68 66 69 6c 65    if {$crashfile
6dc0: 20 65 71 20 22 22 7d 20 7b 0a 20 20 20 20 65 72   eq ""} {.    er
6dd0: 72 6f 72 20 22 43 6f 6d 70 75 6c 73 6f 72 79 20  ror "Compulsory 
6de0: 6f 70 74 69 6f 6e 20 2d 66 69 6c 65 20 6d 69 73  option -file mis
6df0: 73 69 6e 67 22 0a 20 20 7d 0a 0a 20 20 23 20 24  sing".  }..  # $
6e00: 63 72 61 73 68 66 69 6c 65 20 67 65 74 73 20 63  crashfile gets c
6e10: 6f 6d 70 61 72 65 64 20 74 6f 20 74 68 65 20 6e  ompared to the n
6e20: 61 74 69 76 65 20 66 69 6c 65 6e 61 6d 65 20 69  ative filename i
6e30: 6e 20 0a 20 20 23 20 63 66 53 79 6e 63 28 29 2c  n .  # cfSync(),
6e40: 20 77 68 69 63 68 20 63 61 6e 20 62 65 20 64 69   which can be di
6e50: 66 66 65 72 65 6e 74 20 74 68 65 6e 20 77 68 61  fferent then wha
6e60: 74 20 54 43 4c 20 75 73 65 73 20 62 79 0a 20 20  t TCL uses by.  
6e70: 23 20 64 65 66 61 75 6c 74 2c 20 73 6f 20 68 65  # default, so he
6e80: 72 65 20 77 65 20 66 6f 72 63 65 20 69 74 20 74  re we force it t
6e90: 6f 20 74 68 65 20 22 6e 61 74 69 76 65 6e 61 6d  o the "nativenam
6ea0: 65 22 20 66 6f 72 6d 61 74 2e 0a 20 20 73 65 74  e" format..  set
6eb0: 20 63 66 69 6c 65 20 5b 73 74 72 69 6e 67 20 6d   cfile [string m
6ec0: 61 70 20 7b 5c 5c 20 5c 5c 5c 5c 7d 20 5b 66 69  ap {\\ \\\\} [fi
6ed0: 6c 65 20 6e 61 74 69 76 65 6e 61 6d 65 20 5b 66  le nativename [f
6ee0: 69 6c 65 20 6a 6f 69 6e 20 5b 70 77 64 5d 20 24  ile join [pwd] $
6ef0: 63 72 61 73 68 66 69 6c 65 5d 5d 5d 0a 0a 20 20  crashfile]]]..  
6f00: 73 65 74 20 66 20 5b 6f 70 65 6e 20 63 72 61 73  set f [open cras
6f10: 68 2e 74 63 6c 20 77 5d 0a 20 20 70 75 74 73 20  h.tcl w].  puts 
6f20: 24 66 20 22 73 71 6c 69 74 65 33 5f 63 72 61 73  $f "sqlite3_cras
6f30: 68 5f 65 6e 61 62 6c 65 20 31 22 0a 20 20 70 75  h_enable 1".  pu
6f40: 74 73 20 24 66 20 22 73 71 6c 69 74 65 33 5f 63  ts $f "sqlite3_c
6f50: 72 61 73 68 70 61 72 61 6d 73 20 24 62 6c 6f 63  rashparams $bloc
6f60: 6b 73 69 7a 65 20 24 64 63 20 24 63 72 61 73 68  ksize $dc $crash
6f70: 64 65 6c 61 79 20 24 63 66 69 6c 65 22 0a 20 20  delay $cfile".  
6f80: 70 75 74 73 20 24 66 20 22 73 71 6c 69 74 65 33  puts $f "sqlite3
6f90: 5f 74 65 73 74 5f 63 6f 6e 74 72 6f 6c 5f 70 65  _test_control_pe
6fa0: 6e 64 69 6e 67 5f 62 79 74 65 20 24 3a 3a 73 71  nding_byte $::sq
6fb0: 6c 69 74 65 5f 70 65 6e 64 69 6e 67 5f 62 79 74  lite_pending_byt
6fc0: 65 22 0a 20 20 70 75 74 73 20 24 66 20 22 73 71  e".  puts $f "sq
6fd0: 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62  lite3 db test.db
6fe0: 20 2d 76 66 73 20 63 72 61 73 68 22 0a 0a 20 20   -vfs crash"..  
6ff0: 23 20 54 68 69 73 20 62 6c 6f 63 6b 20 73 65 74  # This block set
7000: 73 20 74 68 65 20 63 61 63 68 65 20 73 69 7a 65  s the cache size
7010: 20 6f 66 20 74 68 65 20 6d 61 69 6e 20 64 61 74   of the main dat
7020: 61 62 61 73 65 20 74 6f 20 31 30 0a 20 20 23 20  abase to 10.  # 
7030: 70 61 67 65 73 2e 20 54 68 69 73 20 69 73 20 64  pages. This is d
7040: 6f 6e 65 20 69 6e 20 63 61 73 65 20 74 68 65 20  one in case the 
7050: 62 75 69 6c 64 20 69 73 20 63 6f 6e 66 69 67 75  build is configu
7060: 72 65 64 20 74 6f 20 6f 6d 69 74 0a 20 20 23 20  red to omit.  # 
7070: 22 50 52 41 47 4d 41 20 63 61 63 68 65 5f 73 69  "PRAGMA cache_si
7080: 7a 65 22 2e 0a 20 20 70 75 74 73 20 24 66 20 7b  ze"..  puts $f {
7090: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20  db eval {SELECT 
70a0: 2a 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61  * FROM sqlite_ma
70b0: 73 74 65 72 3b 7d 7d 0a 20 20 70 75 74 73 20 24  ster;}}.  puts $
70c0: 66 20 7b 73 65 74 20 62 74 20 5b 62 74 72 65 65  f {set bt [btree
70d0: 5f 66 72 6f 6d 5f 64 62 20 64 62 5d 7d 0a 20 20  _from_db db]}.  
70e0: 70 75 74 73 20 24 66 20 7b 62 74 72 65 65 5f 73  puts $f {btree_s
70f0: 65 74 5f 63 61 63 68 65 5f 73 69 7a 65 20 24 62  et_cache_size $b
7100: 74 20 31 30 7d 0a 20 20 69 66 20 7b 24 70 72 6e  t 10}.  if {$prn
7110: 67 73 65 65 64 7d 20 7b 0a 20 20 20 20 73 65 74  gseed} {.    set
7120: 20 73 65 65 64 20 5b 65 78 70 72 20 7b 24 70 72   seed [expr {$pr
7130: 6e 67 73 65 65 64 25 31 30 30 30 37 2b 31 7d 5d  ngseed%10007+1}]
7140: 0a 20 20 20 20 23 20 70 75 74 73 20 73 65 65 64  .    # puts seed
7150: 3d 24 73 65 65 64 0a 20 20 20 20 70 75 74 73 20  =$seed.    puts 
7160: 24 66 20 22 64 62 20 65 76 61 6c 20 7b 53 45 4c  $f "db eval {SEL
7170: 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 24  ECT randomblob($
7180: 73 65 65 64 29 7d 22 0a 20 20 7d 0a 0a 20 20 69  seed)}".  }..  i
7190: 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74  f {[string lengt
71a0: 68 20 24 74 63 6c 62 6f 64 79 5d 3e 30 7d 20 7b  h $tclbody]>0} {
71b0: 0a 20 20 20 20 70 75 74 73 20 24 66 20 24 74 63  .    puts $f $tc
71c0: 6c 62 6f 64 79 0a 20 20 7d 0a 20 20 69 66 20 7b  lbody.  }.  if {
71d0: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $
71e0: 73 71 6c 5d 3e 30 7d 20 7b 0a 20 20 20 20 70 75  sql]>0} {.    pu
71f0: 74 73 20 24 66 20 22 64 62 20 65 76 61 6c 20 7b  ts $f "db eval {
7200: 22 0a 20 20 20 20 70 75 74 73 20 24 66 20 20 20  ".    puts $f   
7210: 22 24 73 71 6c 22 0a 20 20 20 20 70 75 74 73 20  "$sql".    puts 
7220: 24 66 20 22 7d 22 0a 20 20 7d 0a 20 20 63 6c 6f  $f "}".  }.  clo
7230: 73 65 20 24 66 0a 20 20 73 65 74 20 72 20 5b 63  se $f.  set r [c
7240: 61 74 63 68 20 7b 0a 20 20 20 20 65 78 65 63 20  atch {.    exec 
7250: 5b 69 6e 66 6f 20 6e 61 6d 65 6f 66 65 78 65 63  [info nameofexec
7260: 5d 20 63 72 61 73 68 2e 74 63 6c 20 3e 40 73 74  ] crash.tcl >@st
7270: 64 6f 75 74 0a 20 20 7d 20 6d 73 67 5d 0a 20 20  dout.  } msg].  
7280: 0a 20 20 23 20 57 69 6e 64 6f 77 73 2f 41 63 74  .  # Windows/Act
7290: 69 76 65 53 74 61 74 65 20 54 43 4c 20 72 65 74  iveState TCL ret
72a0: 75 72 6e 73 20 61 20 73 6c 69 67 68 74 6c 79 20  urns a slightly 
72b0: 64 69 66 66 65 72 65 6e 74 0a 20 20 23 20 65 72  different.  # er
72c0: 72 6f 72 20 6d 65 73 73 61 67 65 2e 20 20 57 65  ror message.  We
72d0: 20 6d 61 70 20 74 68 61 74 20 74 6f 20 74 68 65   map that to the
72e0: 20 65 78 70 65 63 74 65 64 20 6d 65 73 73 61 67   expected messag
72f0: 65 0a 20 20 23 20 73 6f 20 74 68 61 74 20 77 65  e.  # so that we
7300: 20 64 6f 6e 27 74 20 68 61 76 65 20 74 6f 20 63   don't have to c
7310: 68 61 6e 67 65 20 61 6c 6c 20 6f 66 20 74 68 65  hange all of the
7320: 20 74 65 73 74 0a 20 20 23 20 63 61 73 65 73 2e   test.  # cases.
7330: 0a 20 20 69 66 20 7b 24 3a 3a 74 63 6c 5f 70 6c  .  if {$::tcl_pl
7340: 61 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29  atform(platform)
7350: 3d 3d 22 77 69 6e 64 6f 77 73 22 7d 20 7b 0a 20  =="windows"} {. 
7360: 20 20 20 69 66 20 7b 24 6d 73 67 3d 3d 22 63 68     if {$msg=="ch
7370: 69 6c 64 20 6b 69 6c 6c 65 64 3a 20 75 6e 6b 6e  ild killed: unkn
7380: 6f 77 6e 20 73 69 67 6e 61 6c 22 7d 20 7b 0a 20  own signal"} {. 
7390: 20 20 20 20 20 73 65 74 20 6d 73 67 20 22 63 68       set msg "ch
73a0: 69 6c 64 20 70 72 6f 63 65 73 73 20 65 78 69 74  ild process exit
73b0: 65 64 20 61 62 6e 6f 72 6d 61 6c 6c 79 22 0a 20  ed abnormally". 
73c0: 20 20 20 7d 0a 20 20 7d 0a 20 20 0a 20 20 6c 61     }.  }.  .  la
73d0: 70 70 65 6e 64 20 72 20 24 6d 73 67 0a 7d 0a 0a  ppend r $msg.}..
73e0: 23 20 55 73 61 67 65 3a 20 64 6f 5f 69 6f 65 72  # Usage: do_ioer
73f0: 72 5f 74 65 73 74 20 3c 74 65 73 74 20 6e 75 6d  r_test <test num
7400: 62 65 72 3e 20 3c 6f 70 74 69 6f 6e 73 2e 2e 2e  ber> <options...
7410: 3e 0a 23 0a 23 20 54 68 69 73 20 70 72 6f 63 20  >.#.# This proc 
7420: 69 73 20 75 73 65 64 20 74 6f 20 69 6d 70 6c 65  is used to imple
7430: 6d 65 6e 74 20 74 65 73 74 20 63 61 73 65 73 20  ment test cases 
7440: 74 68 61 74 20 63 68 65 63 6b 20 74 68 61 74 20  that check that 
7450: 49 4f 20 65 72 72 6f 72 73 0a 23 20 61 72 65 20  IO errors.# are 
7460: 63 6f 72 72 65 63 74 6c 79 20 68 61 6e 64 6c 65  correctly handle
7470: 64 2e 20 54 68 65 20 66 69 72 73 74 20 61 72 67  d. The first arg
7480: 75 6d 65 6e 74 2c 20 3c 74 65 73 74 20 6e 75 6d  ument, <test num
7490: 62 65 72 3e 2c 20 69 73 20 61 6e 20 69 6e 74 65  ber>, is an inte
74a0: 67 65 72 20 0a 23 20 75 73 65 64 20 74 6f 20 6e  ger .# used to n
74b0: 61 6d 65 20 74 68 65 20 74 65 73 74 73 20 65 78  ame the tests ex
74c0: 65 63 75 74 65 64 20 62 79 20 74 68 69 73 20 70  ecuted by this p
74d0: 72 6f 63 2e 20 4f 70 74 69 6f 6e 73 20 61 72 65  roc. Options are
74e0: 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 23 0a 23   as follows:.#.#
74f0: 20 20 20 20 20 2d 74 63 6c 70 72 65 70 20 20 20       -tclprep   
7500: 20 20 20 20 20 20 20 54 43 4c 20 73 63 72 69 70         TCL scrip
7510: 74 20 74 6f 20 72 75 6e 20 74 6f 20 70 72 65 70  t to run to prep
7520: 61 72 65 20 74 65 73 74 2e 0a 23 20 20 20 20 20  are test..#     
7530: 2d 73 71 6c 70 72 65 70 20 20 20 20 20 20 20 20  -sqlprep        
7540: 20 20 53 51 4c 20 73 63 72 69 70 74 20 74 6f 20    SQL script to 
7550: 72 75 6e 20 74 6f 20 70 72 65 70 61 72 65 20 74  run to prepare t
7560: 65 73 74 2e 0a 23 20 20 20 20 20 2d 74 63 6c 62  est..#     -tclb
7570: 6f 64 79 20 20 20 20 20 20 20 20 20 20 54 43 4c  ody          TCL
7580: 20 73 63 72 69 70 74 20 74 6f 20 72 75 6e 20 77   script to run w
7590: 69 74 68 20 49 4f 20 65 72 72 6f 72 20 73 69 6d  ith IO error sim
75a0: 75 6c 61 74 69 6f 6e 2e 0a 23 20 20 20 20 20 2d  ulation..#     -
75b0: 73 71 6c 62 6f 64 79 20 20 20 20 20 20 20 20 20  sqlbody         
75c0: 20 54 43 4c 20 73 63 72 69 70 74 20 74 6f 20 72   TCL script to r
75d0: 75 6e 20 77 69 74 68 20 49 4f 20 65 72 72 6f 72  un with IO error
75e0: 20 73 69 6d 75 6c 61 74 69 6f 6e 2e 0a 23 20 20   simulation..#  
75f0: 20 20 20 2d 65 78 63 6c 75 64 65 20 20 20 20 20     -exclude     
7600: 20 20 20 20 20 4c 69 73 74 20 6f 66 20 27 4e 27       List of 'N'
7610: 20 76 61 6c 75 65 73 20 6e 6f 74 20 74 6f 20 74   values not to t
7620: 65 73 74 2e 0a 23 20 20 20 20 20 2d 65 72 63 20  est..#     -erc 
7630: 20 20 20 20 20 20 20 20 20 20 20 20 20 55 73 65               Use
7640: 20 65 78 74 65 6e 64 65 64 20 72 65 73 75 6c 74   extended result
7650: 20 63 6f 64 65 73 0a 23 20 20 20 20 20 2d 70 65   codes.#     -pe
7660: 72 73 69 73 74 20 20 20 20 20 20 20 20 20 20 4d  rsist          M
7670: 61 6b 65 20 73 69 6d 75 6c 61 74 65 64 20 49 2f  ake simulated I/
7680: 4f 20 65 72 72 6f 72 73 20 70 65 72 73 69 73 74  O errors persist
7690: 65 6e 74 0a 23 20 20 20 20 20 2d 73 74 61 72 74  ent.#     -start
76a0: 20 20 20 20 20 20 20 20 20 20 20 20 56 61 6c 75              Valu
76b0: 65 20 6f 66 20 27 4e 27 20 74 6f 20 62 65 67 69  e of 'N' to begi
76c0: 6e 20 77 69 74 68 20 28 64 65 66 61 75 6c 74 20  n with (default 
76d0: 31 29 0a 23 0a 23 20 20 20 20 20 2d 63 6b 73 75  1).#.#     -cksu
76e0: 6d 20 20 20 20 20 20 20 20 20 20 20 20 42 6f 6f  m            Boo
76f0: 6c 65 61 6e 2e 20 49 66 20 74 72 75 65 2c 20 74  lean. If true, t
7700: 65 73 74 20 74 68 61 74 20 74 68 65 20 64 61 74  est that the dat
7710: 61 62 61 73 65 20 64 6f 65 73 0a 23 20 20 20 20  abase does.#    
7720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7730: 20 20 20 6e 6f 74 20 63 68 61 6e 67 65 20 64 75     not change du
7740: 72 69 6e 67 20 74 68 65 20 65 78 65 63 75 74 69  ring the executi
7750: 6f 6e 20 6f 66 20 74 68 65 20 74 65 73 74 20 63  on of the test c
7760: 61 73 65 2e 0a 23 0a 70 72 6f 63 20 64 6f 5f 69  ase..#.proc do_i
7770: 6f 65 72 72 5f 74 65 73 74 20 7b 74 65 73 74 6e  oerr_test {testn
7780: 61 6d 65 20 61 72 67 73 7d 20 7b 0a 0a 20 20 73  ame args} {..  s
7790: 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d  et ::ioerropts(-
77a0: 73 74 61 72 74 29 20 31 0a 20 20 73 65 74 20 3a  start) 1.  set :
77b0: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 73 75  :ioerropts(-cksu
77c0: 6d 29 20 30 0a 20 20 73 65 74 20 3a 3a 69 6f 65  m) 0.  set ::ioe
77d0: 72 72 6f 70 74 73 28 2d 65 72 63 29 20 30 0a 20  rropts(-erc) 0. 
77e0: 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73   set ::ioerropts
77f0: 28 2d 63 6f 75 6e 74 29 20 31 30 30 30 30 30 30  (-count) 1000000
7800: 30 30 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 72  00.  set ::ioerr
7810: 6f 70 74 73 28 2d 70 65 72 73 69 73 74 29 20 31  opts(-persist) 1
7820: 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70  .  set ::ioerrop
7830: 74 73 28 2d 63 6b 72 65 66 63 6f 75 6e 74 29 20  ts(-ckrefcount) 
7840: 30 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f  0.  set ::ioerro
7850: 70 74 73 28 2d 72 65 73 74 6f 72 65 70 72 6e 67  pts(-restoreprng
7860: 29 20 31 0a 20 20 61 72 72 61 79 20 73 65 74 20  ) 1.  array set 
7870: 3a 3a 69 6f 65 72 72 6f 70 74 73 20 24 61 72 67  ::ioerropts $arg
7880: 73 0a 0a 20 20 23 20 54 45 4d 50 4f 52 41 52 59  s..  # TEMPORARY
7890: 3a 20 46 6f 72 20 33 2e 35 2e 39 2c 20 64 69 73  : For 3.5.9, dis
78a0: 61 62 6c 65 20 74 65 73 74 69 6e 67 20 6f 66 20  able testing of 
78b0: 65 78 74 65 6e 64 65 64 20 72 65 73 75 6c 74 20  extended result 
78c0: 63 6f 64 65 73 2e 20 54 68 65 72 65 20 61 72 65  codes. There are
78d0: 0a 20 20 23 20 61 20 63 6f 75 70 6c 65 20 6f 66  .  # a couple of
78e0: 20 6f 62 73 63 75 72 65 20 49 4f 20 65 72 72 6f   obscure IO erro
78f0: 72 73 20 74 68 61 74 20 64 6f 20 6e 6f 74 20 72  rs that do not r
7900: 65 74 75 72 6e 20 74 68 65 6d 2e 0a 20 20 73 65  eturn them..  se
7910: 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 65  t ::ioerropts(-e
7920: 72 63 29 20 30 0a 0a 20 20 73 65 74 20 3a 3a 67  rc) 0..  set ::g
7930: 6f 20 31 0a 20 20 23 72 65 73 65 74 5f 70 72 6e  o 1.  #reset_prn
7940: 67 5f 73 74 61 74 65 0a 20 20 73 61 76 65 5f 70  g_state.  save_p
7950: 72 6e 67 5f 73 74 61 74 65 0a 20 20 66 6f 72 20  rng_state.  for 
7960: 7b 73 65 74 20 6e 20 24 3a 3a 69 6f 65 72 72 6f  {set n $::ioerro
7970: 70 74 73 28 2d 73 74 61 72 74 29 7d 20 7b 24 3a  pts(-start)} {$:
7980: 3a 67 6f 7d 20 7b 69 6e 63 72 20 6e 7d 20 7b 0a  :go} {incr n} {.
7990: 20 20 20 20 73 65 74 20 3a 3a 54 4e 20 24 6e 0a      set ::TN $n.
79a0: 20 20 20 20 69 6e 63 72 20 3a 3a 69 6f 65 72 72      incr ::ioerr
79b0: 6f 70 74 73 28 2d 63 6f 75 6e 74 29 20 2d 31 0a  opts(-count) -1.
79c0: 20 20 20 20 69 66 20 7b 24 3a 3a 69 6f 65 72 72      if {$::ioerr
79d0: 6f 70 74 73 28 2d 63 6f 75 6e 74 29 3c 30 7d 20  opts(-count)<0} 
79e0: 62 72 65 61 6b 0a 20 0a 20 20 20 20 23 20 53 6b  break. .    # Sk
79f0: 69 70 20 74 68 69 73 20 49 4f 20 65 72 72 6f 72  ip this IO error
7a00: 20 69 66 20 69 74 20 77 61 73 20 73 70 65 63 69   if it was speci
7a10: 66 69 65 64 20 77 69 74 68 20 74 68 65 20 22 2d  fied with the "-
7a20: 65 78 63 6c 75 64 65 22 20 6f 70 74 69 6f 6e 2e  exclude" option.
7a30: 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65  .    if {[info e
7a40: 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74  xists ::ioerropt
7a50: 73 28 2d 65 78 63 6c 75 64 65 29 5d 7d 20 7b 0a  s(-exclude)]} {.
7a60: 20 20 20 20 20 20 69 66 20 7b 5b 6c 73 65 61 72        if {[lsear
7a70: 63 68 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28  ch $::ioerropts(
7a80: 2d 65 78 63 6c 75 64 65 29 20 24 6e 5d 21 3d 2d  -exclude) $n]!=-
7a90: 31 7d 20 63 6f 6e 74 69 6e 75 65 0a 20 20 20 20  1} continue.    
7aa0: 7d 0a 20 20 20 20 69 66 20 7b 24 3a 3a 69 6f 65  }.    if {$::ioe
7ab0: 72 72 6f 70 74 73 28 2d 72 65 73 74 6f 72 65 70  rropts(-restorep
7ac0: 72 6e 67 29 7d 20 7b 0a 20 20 20 20 20 20 72 65  rng)} {.      re
7ad0: 73 74 6f 72 65 5f 70 72 6e 67 5f 73 74 61 74 65  store_prng_state
7ae0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 44 65  .    }..    # De
7af0: 6c 65 74 65 20 74 68 65 20 66 69 6c 65 73 20 74  lete the files t
7b00: 65 73 74 2e 64 62 20 61 6e 64 20 74 65 73 74 32  est.db and test2
7b10: 2e 64 62 2c 20 74 68 65 6e 20 65 78 65 63 75 74  .db, then execut
7b20: 65 20 74 68 65 20 54 43 4c 20 61 6e 64 20 0a 20  e the TCL and . 
7b30: 20 20 20 23 20 53 51 4c 20 28 69 6e 20 74 68 61     # SQL (in tha
7b40: 74 20 6f 72 64 65 72 29 20 74 6f 20 70 72 65 70  t order) to prep
7b50: 61 72 65 20 66 6f 72 20 74 68 65 20 74 65 73 74  are for the test
7b60: 20 63 61 73 65 2e 0a 20 20 20 20 64 6f 5f 74 65   case..    do_te
7b70: 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e 2e  st $testname.$n.
7b80: 31 20 7b 0a 20 20 20 20 20 20 73 65 74 20 3a 3a  1 {.      set ::
7b90: 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f  sqlite_io_error_
7ba0: 70 65 6e 64 69 6e 67 20 30 0a 20 20 20 20 20 20  pending 0.      
7bb0: 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d  catch {db close}
7bc0: 0a 20 20 20 20 20 20 63 61 74 63 68 20 7b 64 62  .      catch {db
7bd0: 32 20 63 6c 6f 73 65 7d 0a 20 20 20 20 20 20 63  2 close}.      c
7be0: 61 74 63 68 20 7b 66 6f 72 63 65 64 65 6c 65 74  atch {forcedelet
7bf0: 65 20 74 65 73 74 2e 64 62 7d 0a 20 20 20 20 20  e test.db}.     
7c00: 20 63 61 74 63 68 20 7b 66 6f 72 63 65 64 65 6c   catch {forcedel
7c10: 65 74 65 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72  ete test.db-jour
7c20: 6e 61 6c 7d 0a 20 20 20 20 20 20 63 61 74 63 68  nal}.      catch
7c30: 20 7b 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65   {forcedelete te
7c40: 73 74 32 2e 64 62 7d 0a 20 20 20 20 20 20 63 61  st2.db}.      ca
7c50: 74 63 68 20 7b 66 6f 72 63 65 64 65 6c 65 74 65  tch {forcedelete
7c60: 20 74 65 73 74 32 2e 64 62 2d 6a 6f 75 72 6e 61   test2.db-journa
7c70: 6c 7d 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 44  l}.      set ::D
7c80: 42 20 5b 73 71 6c 69 74 65 33 20 64 62 20 74 65  B [sqlite3 db te
7c90: 73 74 2e 64 62 3b 20 73 71 6c 69 74 65 33 5f 63  st.db; sqlite3_c
7ca0: 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65  onnection_pointe
7cb0: 72 20 64 62 5d 0a 20 20 20 20 20 20 73 71 6c 69  r db].      sqli
7cc0: 74 65 33 5f 65 78 74 65 6e 64 65 64 5f 72 65 73  te3_extended_res
7cd0: 75 6c 74 5f 63 6f 64 65 73 20 24 3a 3a 44 42 20  ult_codes $::DB 
7ce0: 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 65 72  $::ioerropts(-er
7cf0: 63 29 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e  c).      if {[in
7d00: 66 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72  fo exists ::ioer
7d10: 72 6f 70 74 73 28 2d 74 63 6c 70 72 65 70 29 5d  ropts(-tclprep)]
7d20: 7d 20 7b 0a 20 20 20 20 20 20 20 20 65 76 61 6c  } {.        eval
7d30: 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 74   $::ioerropts(-t
7d40: 63 6c 70 72 65 70 29 0a 20 20 20 20 20 20 7d 0a  clprep).      }.
7d50: 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20        if {[info 
7d60: 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70  exists ::ioerrop
7d70: 74 73 28 2d 73 71 6c 70 72 65 70 29 5d 7d 20 7b  ts(-sqlprep)]} {
7d80: 0a 20 20 20 20 20 20 20 20 65 78 65 63 73 71 6c  .        execsql
7d90: 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73   $::ioerropts(-s
7da0: 71 6c 70 72 65 70 29 0a 20 20 20 20 20 20 7d 0a  qlprep).      }.
7db0: 20 20 20 20 20 20 65 78 70 72 20 30 0a 20 20 20        expr 0.   
7dc0: 20 7d 20 7b 30 7d 0a 0a 20 20 20 20 23 20 52 65   } {0}..    # Re
7dd0: 61 64 20 74 68 65 20 27 63 68 65 63 6b 73 75 6d  ad the 'checksum
7de0: 27 20 6f 66 20 74 68 65 20 64 61 74 61 62 61 73  ' of the databas
7df0: 65 2e 0a 20 20 20 20 69 66 20 7b 24 3a 3a 69 6f  e..    if {$::io
7e00: 65 72 72 6f 70 74 73 28 2d 63 6b 73 75 6d 29 7d  erropts(-cksum)}
7e10: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 63 68 65   {.      set che
7e20: 63 6b 73 75 6d 20 5b 63 6b 73 75 6d 5d 0a 20 20  cksum [cksum].  
7e30: 20 20 7d 0a 0a 20 20 20 20 23 20 53 65 74 20 74    }..    # Set t
7e40: 68 65 20 4e 74 68 20 49 4f 20 65 72 72 6f 72 20  he Nth IO error 
7e50: 74 6f 20 66 61 69 6c 2e 0a 20 20 20 20 64 6f 5f  to fail..    do_
7e60: 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24  test $testname.$
7e70: 6e 2e 32 20 5b 73 75 62 73 74 20 7b 0a 20 20 20  n.2 [subst {.   
7e80: 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f     set ::sqlite_
7e90: 69 6f 5f 65 72 72 6f 72 5f 70 65 72 73 69 73 74  io_error_persist
7ea0: 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 70   $::ioerropts(-p
7eb0: 65 72 73 69 73 74 29 0a 20 20 20 20 20 20 73 65  ersist).      se
7ec0: 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72  t ::sqlite_io_er
7ed0: 72 6f 72 5f 70 65 6e 64 69 6e 67 20 24 6e 0a 20  ror_pending $n. 
7ee0: 20 20 20 7d 5d 20 24 6e 0a 20 20 0a 20 20 20 20     }] $n.  .    
7ef0: 23 20 43 72 65 61 74 65 20 61 20 73 69 6e 67 6c  # Create a singl
7f00: 65 20 54 43 4c 20 73 63 72 69 70 74 20 66 72 6f  e TCL script fro
7f10: 6d 20 74 68 65 20 54 43 4c 20 61 6e 64 20 53 51  m the TCL and SQ
7f20: 4c 20 73 70 65 63 69 66 69 65 64 0a 20 20 20 20  L specified.    
7f30: 23 20 61 73 20 74 68 65 20 62 6f 64 79 20 6f 66  # as the body of
7f40: 20 74 68 65 20 74 65 73 74 2e 0a 20 20 20 20 73   the test..    s
7f50: 65 74 20 3a 3a 69 6f 65 72 72 6f 72 62 6f 64 79  et ::ioerrorbody
7f60: 20 7b 7d 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66   {}.    if {[inf
7f70: 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72  o exists ::ioerr
7f80: 6f 70 74 73 28 2d 74 63 6c 62 6f 64 79 29 5d 7d  opts(-tclbody)]}
7f90: 20 7b 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20   {.      append 
7fa0: 3a 3a 69 6f 65 72 72 6f 72 62 6f 64 79 20 22 24  ::ioerrorbody "$
7fb0: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 74 63 6c  ::ioerropts(-tcl
7fc0: 62 6f 64 79 29 5c 6e 22 0a 20 20 20 20 7d 0a 20  body)\n".    }. 
7fd0: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69     if {[info exi
7fe0: 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28  sts ::ioerropts(
7ff0: 2d 73 71 6c 62 6f 64 79 29 5d 7d 20 7b 0a 20 20  -sqlbody)]} {.  
8000: 20 20 20 20 61 70 70 65 6e 64 20 3a 3a 69 6f 65      append ::ioe
8010: 72 72 6f 72 62 6f 64 79 20 22 64 62 20 65 76 61  rrorbody "db eva
8020: 6c 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28  l {$::ioerropts(
8030: 2d 73 71 6c 62 6f 64 79 29 7d 22 0a 20 20 20 20  -sqlbody)}".    
8040: 7d 0a 0a 20 20 20 20 23 20 45 78 65 63 75 74 65  }..    # Execute
8050: 20 74 68 65 20 54 43 4c 20 53 63 72 69 70 74 20   the TCL Script 
8060: 63 72 65 61 74 65 64 20 69 6e 20 74 68 65 20 61  created in the a
8070: 62 6f 76 65 20 62 6c 6f 63 6b 2e 20 49 66 0a 20  bove block. If. 
8080: 20 20 20 23 20 74 68 65 72 65 20 61 72 65 20 61     # there are a
8090: 74 20 6c 65 61 73 74 20 4e 20 49 4f 20 6f 70 65  t least N IO ope
80a0: 72 61 74 69 6f 6e 73 20 70 65 72 66 6f 72 6d 65  rations performe
80b0: 64 20 62 79 20 53 51 4c 69 74 65 20 61 73 0a 20  d by SQLite as. 
80c0: 20 20 20 23 20 61 20 72 65 73 75 6c 74 20 6f 66     # a result of
80d0: 20 74 68 65 20 73 63 72 69 70 74 2c 20 74 68 65   the script, the
80e0: 20 4e 74 68 20 77 69 6c 6c 20 66 61 69 6c 2e 0a   Nth will fail..
80f0: 20 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73      do_test $tes
8100: 74 6e 61 6d 65 2e 24 6e 2e 33 20 7b 0a 20 20 20  tname.$n.3 {.   
8110: 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f     set ::sqlite_
8120: 69 6f 5f 65 72 72 6f 72 5f 68 69 74 20 30 0a 20  io_error_hit 0. 
8130: 20 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74       set ::sqlit
8140: 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72 64 68  e_io_error_hardh
8150: 69 74 20 30 0a 20 20 20 20 20 20 73 65 74 20 72  it 0.      set r
8160: 20 5b 63 61 74 63 68 20 24 3a 3a 69 6f 65 72 72   [catch $::ioerr
8170: 6f 72 62 6f 64 79 20 6d 73 67 5d 0a 20 20 20 20  orbody msg].    
8180: 20 20 73 65 74 20 3a 3a 65 72 72 73 65 65 6e 20    set ::errseen 
8190: 24 72 0a 20 20 20 20 20 20 73 65 74 20 72 63 20  $r.      set rc 
81a0: 5b 73 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 65  [sqlite3_errcode
81b0: 20 24 3a 3a 44 42 5d 0a 20 20 20 20 20 20 69 66   $::DB].      if
81c0: 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d   {$::ioerropts(-
81d0: 65 72 63 29 7d 20 7b 0a 20 20 20 20 20 20 20 20  erc)} {.        
81e0: 23 20 49 66 20 77 65 20 61 72 65 20 69 6e 20 65  # If we are in e
81f0: 78 74 65 6e 64 65 64 20 72 65 73 75 6c 74 20 63  xtended result c
8200: 6f 64 65 20 6d 6f 64 65 2c 20 6d 61 6b 65 20 73  ode mode, make s
8210: 75 72 65 20 61 6c 6c 20 6f 66 20 74 68 65 0a 20  ure all of the. 
8220: 20 20 20 20 20 20 20 23 20 49 4f 45 52 52 73 20         # IOERRs 
8230: 77 65 20 67 65 74 20 62 61 63 6b 20 72 65 61 6c  we get back real
8240: 6c 79 20 64 6f 20 68 61 76 65 20 74 68 65 69 72  ly do have their
8250: 20 65 78 74 65 6e 64 65 64 20 63 6f 64 65 20 76   extended code v
8260: 61 6c 75 65 73 2e 0a 20 20 20 20 20 20 20 20 23  alues..        #
8270: 20 49 66 20 61 6e 20 65 78 74 65 6e 64 65 64 20   If an extended 
8280: 72 65 73 75 6c 74 20 63 6f 64 65 20 69 73 20 72  result code is r
8290: 65 74 75 72 6e 65 64 2c 20 74 68 65 20 73 71 6c  eturned, the sql
82a0: 69 74 65 33 5f 65 72 72 63 6f 64 65 0a 20 20 20  ite3_errcode.   
82b0: 20 20 20 20 20 23 20 54 43 4c 63 6f 6d 6d 61 6e       # TCLcomman
82c0: 64 20 77 69 6c 6c 20 72 65 74 75 72 6e 20 61 20  d will return a 
82d0: 73 74 72 69 6e 67 20 6f 66 20 74 68 65 20 66 6f  string of the fo
82e0: 72 6d 3a 20 20 53 51 4c 49 54 45 5f 49 4f 45 52  rm:  SQLITE_IOER
82f0: 52 2b 6e 6e 6e 6e 0a 20 20 20 20 20 20 20 20 23  R+nnnn.        #
8300: 20 77 68 65 72 65 20 6e 6e 6e 6e 20 69 73 20 61   where nnnn is a
8310: 20 6e 75 6d 62 65 72 0a 20 20 20 20 20 20 20 20   number.        
8320: 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 5e 53 51  if {[regexp {^SQ
8330: 4c 49 54 45 5f 49 4f 45 52 52 7d 20 24 72 63 5d  LITE_IOERR} $rc]
8340: 20 26 26 20 21 5b 72 65 67 65 78 70 20 7b 49 4f   && ![regexp {IO
8350: 45 52 52 5c 2b 5c 64 7d 20 24 72 63 5d 7d 20 7b  ERR\+\d} $rc]} {
8360: 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72  .          retur
8370: 6e 20 24 72 63 0a 20 20 20 20 20 20 20 20 7d 0a  n $rc.        }.
8380: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20        } else {. 
8390: 20 20 20 20 20 20 20 23 20 49 66 20 77 65 20 61         # If we a
83a0: 72 65 20 6e 6f 74 20 69 6e 20 65 78 74 65 6e 64  re not in extend
83b0: 65 64 20 72 65 73 75 6c 74 20 63 6f 64 65 20 6d  ed result code m
83c0: 6f 64 65 2c 20 6d 61 6b 65 20 73 75 72 65 20 6e  ode, make sure n
83d0: 6f 0a 20 20 20 20 20 20 20 20 23 20 65 78 74 65  o.        # exte
83e0: 6e 64 65 64 20 65 72 72 6f 72 20 63 6f 64 65 73  nded error codes
83f0: 20 61 72 65 20 72 65 74 75 72 6e 65 64 2e 0a 20   are returned.. 
8400: 20 20 20 20 20 20 20 69 66 20 7b 5b 72 65 67 65         if {[rege
8410: 78 70 20 7b 5c 2b 5c 64 7d 20 24 72 63 5d 7d 20  xp {\+\d} $rc]} 
8420: 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75  {.          retu
8430: 72 6e 20 24 72 63 0a 20 20 20 20 20 20 20 20 7d  rn $rc.        }
8440: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 23  .      }.      #
8450: 20 54 68 65 20 74 65 73 74 20 72 65 70 65 61 74   The test repeat
8460: 73 20 61 73 20 6c 6f 6e 67 20 61 73 20 24 3a 3a  s as long as $::
8470: 67 6f 20 69 73 20 6e 6f 6e 2d 7a 65 72 6f 2e 20  go is non-zero. 
8480: 20 24 3a 3a 67 6f 20 73 74 61 72 74 73 20 6f 75   $::go starts ou
8490: 74 0a 20 20 20 20 20 20 23 20 61 73 20 31 2e 20  t.      # as 1. 
84a0: 20 57 68 65 6e 20 61 20 74 65 73 74 20 72 75 6e   When a test run
84b0: 73 20 74 6f 20 63 6f 6d 70 6c 65 74 69 6f 6e 20  s to completion 
84c0: 77 69 74 68 6f 75 74 20 68 69 74 74 69 6e 67 20  without hitting 
84d0: 61 6e 20 49 2f 4f 0a 20 20 20 20 20 20 23 20 65  an I/O.      # e
84e0: 72 72 6f 72 2c 20 74 68 61 74 20 6d 65 61 6e 73  rror, that means
84f0: 20 74 68 65 72 65 20 69 73 20 6e 6f 20 70 6f 69   there is no poi
8500: 6e 74 20 69 6e 20 63 6f 6e 74 69 6e 75 69 6e 67  nt in continuing
8510: 20 77 69 74 68 20 74 68 69 73 20 74 65 73 74 0a   with this test.
8520: 20 20 20 20 20 20 23 20 63 61 73 65 20 73 6f 20        # case so 
8530: 73 65 74 20 24 3a 3a 67 6f 20 74 6f 20 7a 65 72  set $::go to zer
8540: 6f 2e 0a 20 20 20 20 20 20 23 0a 20 20 20 20 20  o..      #.     
8550: 20 69 66 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 69   if {$::sqlite_i
8560: 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 3e  o_error_pending>
8570: 30 7d 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74  0} {.        set
8580: 20 3a 3a 67 6f 20 30 0a 20 20 20 20 20 20 20 20   ::go 0.        
8590: 73 65 74 20 71 20 30 0a 20 20 20 20 20 20 20 20  set q 0.        
85a0: 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f  set ::sqlite_io_
85b0: 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a  error_pending 0.
85c0: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20        } else {. 
85d0: 20 20 20 20 20 20 20 73 65 74 20 71 20 31 0a 20         set q 1. 
85e0: 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 73 65       }..      se
85f0: 74 20 73 20 5b 65 78 70 72 20 24 3a 3a 73 71 6c  t s [expr $::sql
8600: 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 69 74  ite_io_error_hit
8610: 3d 3d 30 5d 0a 20 20 20 20 20 20 69 66 20 7b 24  ==0].      if {$
8620: 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f  ::sqlite_io_erro
8630: 72 5f 68 69 74 3e 24 3a 3a 73 71 6c 69 74 65 5f  r_hit>$::sqlite_
8640: 69 6f 5f 65 72 72 6f 72 5f 68 61 72 64 68 69 74  io_error_hardhit
8650: 20 26 26 20 24 72 3d 3d 30 7d 20 7b 0a 20 20 20   && $r==0} {.   
8660: 20 20 20 20 20 73 65 74 20 72 20 31 0a 20 20 20       set r 1.   
8670: 20 20 20 7d 0a 20 20 20 20 20 20 73 65 74 20 3a     }.      set :
8680: 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72  :sqlite_io_error
8690: 5f 68 69 74 20 30 0a 0a 20 20 20 20 20 20 23 20  _hit 0..      # 
86a0: 4f 6e 65 20 6f 66 20 74 77 6f 20 74 68 69 6e 67  One of two thing
86b0: 73 20 6d 75 73 74 20 68 61 76 65 20 68 61 70 70  s must have happ
86c0: 65 6e 65 64 2e 20 65 69 74 68 65 72 0a 20 20 20  ened. either.   
86d0: 20 20 20 23 20 20 20 31 2e 20 20 57 65 20 6e 65     #   1.  We ne
86e0: 76 65 72 20 68 69 74 20 74 68 65 20 49 4f 20 65  ver hit the IO e
86f0: 72 72 6f 72 20 61 6e 64 20 74 68 65 20 53 51 4c  rror and the SQL
8700: 20 72 65 74 75 72 6e 65 64 20 4f 4b 0a 20 20 20   returned OK.   
8710: 20 20 20 23 20 20 20 32 2e 20 20 41 6e 20 49 4f     #   2.  An IO
8720: 20 65 72 72 6f 72 20 77 61 73 20 68 69 74 20 61   error was hit a
8730: 6e 64 20 74 68 65 20 53 51 4c 20 66 61 69 6c 65  nd the SQL faile
8740: 64 0a 20 20 20 20 20 20 23 0a 20 20 20 20 20 20  d.      #.      
8750: 23 70 75 74 73 20 22 73 3d 24 73 20 72 3d 24 72  #puts "s=$s r=$r
8760: 20 71 3d 24 71 22 0a 20 20 20 20 20 20 65 78 70   q=$q".      exp
8770: 72 20 7b 20 28 24 73 20 26 26 20 21 24 72 20 26  r { ($s && !$r &
8780: 26 20 21 24 71 29 20 7c 7c 20 28 21 24 73 20 26  & !$q) || (!$s &
8790: 26 20 24 72 20 26 26 20 24 71 29 20 7d 0a 20 20  & $r && $q) }.  
87a0: 20 20 7d 20 7b 31 7d 0a 0a 20 20 20 20 73 65 74    } {1}..    set
87b0: 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72   ::sqlite_io_err
87c0: 6f 72 5f 68 69 74 20 30 0a 20 20 20 20 73 65 74  or_hit 0.    set
87d0: 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72   ::sqlite_io_err
87e0: 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a 0a 20 20  or_pending 0..  
87f0: 20 20 23 20 43 68 65 63 6b 20 74 68 61 74 20 6e    # Check that n
8800: 6f 20 70 61 67 65 20 72 65 66 65 72 65 6e 63 65  o page reference
8810: 73 20 77 65 72 65 20 6c 65 61 6b 65 64 2e 20 54  s were leaked. T
8820: 68 65 72 65 20 73 68 6f 75 6c 64 20 62 65 20 0a  here should be .
8830: 20 20 20 20 23 20 61 20 73 69 6e 67 6c 65 20 72      # a single r
8840: 65 66 65 72 65 6e 63 65 20 69 66 20 74 68 65 72  eference if ther
8850: 65 20 69 73 20 73 74 69 6c 6c 20 61 6e 20 61 63  e is still an ac
8860: 74 69 76 65 20 74 72 61 6e 73 61 63 74 69 6f 6e  tive transaction
8870: 2c 20 0a 20 20 20 20 23 20 6f 72 20 7a 65 72 6f  , .    # or zero
8880: 20 6f 74 68 65 72 77 69 73 65 2e 0a 20 20 20 20   otherwise..    
8890: 23 0a 20 20 20 20 23 20 55 50 44 41 54 45 3a 20  #.    # UPDATE: 
88a0: 49 66 20 74 68 65 20 49 4f 20 65 72 72 6f 72 20  If the IO error 
88b0: 6f 63 63 75 72 73 20 61 66 74 65 72 20 61 20 27  occurs after a '
88c0: 42 45 47 49 4e 27 20 62 75 74 20 62 65 66 6f 72  BEGIN' but befor
88d0: 65 20 61 6e 79 0a 20 20 20 20 23 20 6c 6f 63 6b  e any.    # lock
88e0: 73 20 61 72 65 20 65 73 74 61 62 6c 69 73 68 65  s are establishe
88f0: 64 20 6f 6e 20 64 61 74 61 62 61 73 65 20 66 69  d on database fi
8900: 6c 65 73 20 28 69 2e 65 2e 20 69 66 20 74 68 65  les (i.e. if the
8910: 20 65 72 72 6f 72 20 0a 20 20 20 20 23 20 6f 63   error .    # oc
8920: 63 75 72 73 20 77 68 69 6c 65 20 61 74 74 65 6d  curs while attem
8930: 70 74 69 6e 67 20 74 6f 20 64 65 74 65 63 74 20  pting to detect 
8940: 61 20 68 6f 74 2d 6a 6f 75 72 6e 61 6c 20 66 69  a hot-journal fi
8950: 6c 65 29 2c 20 74 68 65 6e 0a 20 20 20 20 23 20  le), then.    # 
8960: 74 68 65 72 65 20 6d 61 79 20 30 20 70 61 67 65  there may 0 page
8970: 20 72 65 66 65 72 65 6e 63 65 73 20 61 6e 64 20   references and 
8980: 61 6e 20 61 63 74 69 76 65 20 74 72 61 6e 73 61  an active transa
8990: 63 74 69 6f 6e 20 61 63 63 6f 72 64 69 6e 67 0a  ction according.
89a0: 20 20 20 20 23 20 74 6f 20 5b 73 71 6c 69 74 65      # to [sqlite
89b0: 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74  3_get_autocommit
89c0: 5d 2e 0a 20 20 20 20 23 0a 20 20 20 20 69 66 20  ]..    #.    if 
89d0: 7b 24 3a 3a 67 6f 20 26 26 20 24 3a 3a 73 71 6c  {$::go && $::sql
89e0: 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72  ite_io_error_har
89f0: 64 68 69 74 20 26 26 20 24 3a 3a 69 6f 65 72 72  dhit && $::ioerr
8a00: 6f 70 74 73 28 2d 63 6b 72 65 66 63 6f 75 6e 74  opts(-ckrefcount
8a10: 29 7d 20 7b 0a 20 20 20 20 20 20 64 6f 5f 74 65  )} {.      do_te
8a20: 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e 2e  st $testname.$n.
8a30: 34 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20  4 {.        set 
8a40: 62 74 20 5b 62 74 72 65 65 5f 66 72 6f 6d 5f 64  bt [btree_from_d
8a50: 62 20 64 62 5d 0a 20 20 20 20 20 20 20 20 64 62  b db].        db
8a60: 5f 65 6e 74 65 72 20 64 62 0a 20 20 20 20 20 20  _enter db.      
8a70: 20 20 61 72 72 61 79 20 73 65 74 20 73 74 61 74    array set stat
8a80: 73 20 5b 62 74 72 65 65 5f 70 61 67 65 72 5f 73  s [btree_pager_s
8a90: 74 61 74 73 20 24 62 74 5d 0a 20 20 20 20 20 20  tats $bt].      
8aa0: 20 20 64 62 5f 6c 65 61 76 65 20 64 62 0a 20 20    db_leave db.  
8ab0: 20 20 20 20 20 20 73 65 74 20 6e 52 65 66 20 24        set nRef $
8ac0: 73 74 61 74 73 28 72 65 66 29 0a 20 20 20 20 20  stats(ref).     
8ad0: 20 20 20 65 78 70 72 20 7b 24 6e 52 65 66 20 3d     expr {$nRef =
8ae0: 3d 20 30 20 7c 7c 20 28 5b 73 71 6c 69 74 65 33  = 0 || ([sqlite3
8af0: 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 20  _get_autocommit 
8b00: 64 62 5d 3d 3d 30 20 26 26 20 24 6e 52 65 66 20  db]==0 && $nRef 
8b10: 3d 3d 20 31 29 7d 0a 20 20 20 20 20 20 7d 20 7b  == 1)}.      } {
8b20: 31 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20  1}.    }..    # 
8b30: 49 66 20 74 68 65 72 65 20 69 73 20 61 6e 20 6f  If there is an o
8b40: 70 65 6e 20 64 61 74 61 62 61 73 65 20 68 61 6e  pen database han
8b50: 64 6c 65 20 61 6e 64 20 6e 6f 20 6f 70 65 6e 20  dle and no open 
8b60: 74 72 61 6e 73 61 63 74 69 6f 6e 2c 20 0a 20 20  transaction, .  
8b70: 20 20 23 20 61 6e 64 20 74 68 65 20 70 61 67 65    # and the page
8b80: 72 20 69 73 20 6e 6f 74 20 72 75 6e 6e 69 6e 67  r is not running
8b90: 20 69 6e 20 65 78 63 6c 75 73 69 76 65 2d 6c 6f   in exclusive-lo
8ba0: 63 6b 69 6e 67 20 6d 6f 64 65 2c 0a 20 20 20 20  cking mode,.    
8bb0: 23 20 63 68 65 63 6b 20 74 68 61 74 20 74 68 65  # check that the
8bc0: 20 70 61 67 65 72 20 69 73 20 69 6e 20 22 75 6e   pager is in "un
8bd0: 6c 6f 63 6b 65 64 22 20 73 74 61 74 65 2e 20 54  locked" state. T
8be0: 68 65 6f 72 65 74 69 63 61 6c 6c 79 2c 0a 20 20  heoretically,.  
8bf0: 20 20 23 20 69 66 20 61 20 63 61 6c 6c 20 74 6f    # if a call to
8c00: 20 78 55 6e 6c 6f 63 6b 28 29 20 66 61 69 6c 65   xUnlock() faile
8c10: 64 20 64 75 65 20 74 6f 20 61 6e 20 49 4f 20 65  d due to an IO e
8c20: 72 72 6f 72 20 74 68 65 20 75 6e 64 65 72 6c 79  rror the underly
8c30: 69 6e 67 0a 20 20 20 20 23 20 66 69 6c 65 20 6d  ing.    # file m
8c40: 61 79 20 73 74 69 6c 6c 20 62 65 20 6c 6f 63 6b  ay still be lock
8c50: 65 64 2e 0a 20 20 20 20 23 0a 20 20 20 20 69 66  ed..    #.    if
8c60: 63 61 70 61 62 6c 65 20 70 72 61 67 6d 61 20 7b  capable pragma {
8c70: 0a 20 20 20 20 20 20 69 66 20 7b 20 5b 69 6e 66  .      if { [inf
8c80: 6f 20 63 6f 6d 6d 61 6e 64 73 20 64 62 5d 20 6e  o commands db] n
8c90: 65 20 22 22 0a 20 20 20 20 20 20 20 20 26 26 20  e "".        && 
8ca0: 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b  $::ioerropts(-ck
8cb0: 72 65 66 63 6f 75 6e 74 29 0a 20 20 20 20 20 20  refcount).      
8cc0: 20 20 26 26 20 5b 64 62 20 6f 6e 65 20 7b 70 72    && [db one {pr
8cd0: 61 67 6d 61 20 6c 6f 63 6b 69 6e 67 5f 6d 6f 64  agma locking_mod
8ce0: 65 7d 5d 20 65 71 20 22 6e 6f 72 6d 61 6c 22 0a  e}] eq "normal".
8cf0: 20 20 20 20 20 20 20 20 26 26 20 5b 73 71 6c 69          && [sqli
8d00: 74 65 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d  te3_get_autocomm
8d10: 69 74 20 64 62 5d 0a 20 20 20 20 20 20 7d 20 7b  it db].      } {
8d20: 0a 20 20 20 20 20 20 20 20 64 6f 5f 74 65 73 74  .        do_test
8d30: 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e 2e 35 20   $testname.$n.5 
8d40: 7b 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20  {.          set 
8d50: 62 74 20 5b 62 74 72 65 65 5f 66 72 6f 6d 5f 64  bt [btree_from_d
8d60: 62 20 64 62 5d 0a 20 20 20 20 20 20 20 20 20 20  b db].          
8d70: 64 62 5f 65 6e 74 65 72 20 64 62 0a 20 20 20 20  db_enter db.    
8d80: 20 20 20 20 20 20 61 72 72 61 79 20 73 65 74 20        array set 
8d90: 73 74 61 74 73 20 5b 62 74 72 65 65 5f 70 61 67  stats [btree_pag
8da0: 65 72 5f 73 74 61 74 73 20 24 62 74 5d 0a 20 20  er_stats $bt].  
8db0: 20 20 20 20 20 20 20 20 64 62 5f 6c 65 61 76 65          db_leave
8dc0: 20 64 62 0a 20 20 20 20 20 20 20 20 20 20 73 65   db.          se
8dd0: 74 20 73 74 61 74 73 28 73 74 61 74 65 29 0a 20  t stats(state). 
8de0: 20 20 20 20 20 20 20 7d 20 30 0a 20 20 20 20 20         } 0.     
8df0: 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20   }.    }..    # 
8e00: 49 66 20 61 6e 20 49 4f 20 65 72 72 6f 72 20 6f  If an IO error o
8e10: 63 63 75 72 65 64 2c 20 74 68 65 6e 20 74 68 65  ccured, then the
8e20: 20 63 68 65 63 6b 73 75 6d 20 6f 66 20 74 68 65   checksum of the
8e30: 20 64 61 74 61 62 61 73 65 20 73 68 6f 75 6c 64   database should
8e40: 0a 20 20 20 20 23 20 62 65 20 74 68 65 20 73 61  .    # be the sa
8e50: 6d 65 20 61 73 20 62 65 66 6f 72 65 20 74 68 65  me as before the
8e60: 20 73 63 72 69 70 74 20 74 68 61 74 20 63 61 75   script that cau
8e70: 73 65 64 20 74 68 65 20 49 4f 20 65 72 72 6f 72  sed the IO error
8e80: 20 77 61 73 20 72 75 6e 2e 0a 20 20 20 20 23 0a   was run..    #.
8e90: 20 20 20 20 69 66 20 7b 24 3a 3a 67 6f 20 26 26      if {$::go &&
8ea0: 20 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72   $::sqlite_io_er
8eb0: 72 6f 72 5f 68 61 72 64 68 69 74 20 26 26 20 24  ror_hardhit && $
8ec0: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 73  ::ioerropts(-cks
8ed0: 75 6d 29 7d 20 7b 0a 20 20 20 20 20 20 64 6f 5f  um)} {.      do_
8ee0: 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24  test $testname.$
8ef0: 6e 2e 36 20 7b 0a 20 20 20 20 20 20 20 20 63 61  n.6 {.        ca
8f00: 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 20  tch {db close}. 
8f10: 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 64 62         catch {db
8f20: 32 20 63 6c 6f 73 65 7d 0a 20 20 20 20 20 20 20  2 close}.       
8f30: 20 73 65 74 20 3a 3a 44 42 20 5b 73 71 6c 69 74   set ::DB [sqlit
8f40: 65 33 20 64 62 20 74 65 73 74 2e 64 62 3b 20 73  e3 db test.db; s
8f50: 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f  qlite3_connectio
8f60: 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 20 20  n_pointer db].  
8f70: 20 20 20 20 20 20 63 6b 73 75 6d 0a 20 20 20 20        cksum.    
8f80: 20 20 7d 20 24 63 68 65 63 6b 73 75 6d 0a 20 20    } $checksum.  
8f90: 20 20 7d 0a 0a 20 20 20 20 73 65 74 20 3a 3a 73    }..    set ::s
8fa0: 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68  qlite_io_error_h
8fb0: 61 72 64 68 69 74 20 30 0a 20 20 20 20 73 65 74  ardhit 0.    set
8fc0: 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72   ::sqlite_io_err
8fd0: 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a 20 20 20  or_pending 0.   
8fe0: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74   if {[info exist
8ff0: 73 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63  s ::ioerropts(-c
9000: 6c 65 61 6e 75 70 29 5d 7d 20 7b 0a 20 20 20 20  leanup)]} {.    
9010: 20 20 63 61 74 63 68 20 24 3a 3a 69 6f 65 72 72    catch $::ioerr
9020: 6f 70 74 73 28 2d 63 6c 65 61 6e 75 70 29 0a 20  opts(-cleanup). 
9030: 20 20 20 7d 0a 20 20 7d 0a 20 20 73 65 74 20 3a     }.  }.  set :
9040: 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72  :sqlite_io_error
9050: 5f 70 65 6e 64 69 6e 67 20 30 0a 20 20 73 65 74  _pending 0.  set
9060: 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72   ::sqlite_io_err
9070: 6f 72 5f 70 65 72 73 69 73 74 20 30 0a 20 20 75  or_persist 0.  u
9080: 6e 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73  nset ::ioerropts
9090: 0a 7d 0a 0a 23 20 52 65 74 75 72 6e 20 61 20 63  .}..# Return a c
90a0: 68 65 63 6b 73 75 6d 20 62 61 73 65 64 20 6f 6e  hecksum based on
90b0: 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66   the contents of
90c0: 20 74 68 65 20 6d 61 69 6e 20 64 61 74 61 62 61   the main databa
90d0: 73 65 20 61 73 73 6f 63 69 61 74 65 64 0a 23 20  se associated.# 
90e0: 77 69 74 68 20 63 6f 6e 6e 65 63 74 69 6f 6e 20  with connection 
90f0: 24 64 62 0a 23 0a 70 72 6f 63 20 63 6b 73 75 6d  $db.#.proc cksum
9100: 20 7b 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 73   {{db db}} {.  s
9110: 65 74 20 74 78 74 20 5b 24 64 62 20 65 76 61 6c  et txt [$db eval
9120: 20 7b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20   {.      SELECT 
9130: 6e 61 6d 65 2c 20 74 79 70 65 2c 20 73 71 6c 20  name, type, sql 
9140: 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74  FROM sqlite_mast
9150: 65 72 20 6f 72 64 65 72 20 62 79 20 6e 61 6d 65  er order by name
9160: 0a 20 20 7d 5d 5c 6e 0a 20 20 66 6f 72 65 61 63  .  }]\n.  foreac
9170: 68 20 74 62 6c 20 5b 24 64 62 20 65 76 61 6c 20  h tbl [$db eval 
9180: 7b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 6e  {.      SELECT n
9190: 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f  ame FROM sqlite_
91a0: 6d 61 73 74 65 72 20 57 48 45 52 45 20 74 79 70  master WHERE typ
91b0: 65 3d 27 74 61 62 6c 65 27 20 6f 72 64 65 72 20  e='table' order 
91c0: 62 79 20 6e 61 6d 65 0a 20 20 7d 5d 20 7b 0a 20  by name.  }] {. 
91d0: 20 20 20 61 70 70 65 6e 64 20 74 78 74 20 5b 24     append txt [$
91e0: 64 62 20 65 76 61 6c 20 22 53 45 4c 45 43 54 20  db eval "SELECT 
91f0: 2a 20 46 52 4f 4d 20 24 74 62 6c 22 5d 5c 6e 0a  * FROM $tbl"]\n.
9200: 20 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 70 72    }.  foreach pr
9210: 61 67 20 7b 64 65 66 61 75 6c 74 5f 73 79 6e 63  ag {default_sync
9220: 68 72 6f 6e 6f 75 73 20 64 65 66 61 75 6c 74 5f  hronous default_
9230: 63 61 63 68 65 5f 73 69 7a 65 7d 20 7b 0a 20 20  cache_size} {.  
9240: 20 20 61 70 70 65 6e 64 20 74 78 74 20 24 70 72    append txt $pr
9250: 61 67 2d 5b 24 64 62 20 65 76 61 6c 20 22 50 52  ag-[$db eval "PR
9260: 41 47 4d 41 20 24 70 72 61 67 22 5d 5c 6e 0a 20  AGMA $prag"]\n. 
9270: 20 7d 0a 20 20 73 65 74 20 63 6b 73 75 6d 20 5b   }.  set cksum [
9280: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 74  string length $t
9290: 78 74 5d 2d 5b 6d 64 35 20 24 74 78 74 5d 0a 20  xt]-[md5 $txt]. 
92a0: 20 23 20 70 75 74 73 20 24 63 6b 73 75 6d 2d 5b   # puts $cksum-[
92b0: 66 69 6c 65 20 73 69 7a 65 20 74 65 73 74 2e 64  file size test.d
92c0: 62 5d 0a 20 20 72 65 74 75 72 6e 20 24 63 6b 73  b].  return $cks
92d0: 75 6d 0a 7d 0a 0a 23 20 47 65 6e 65 72 61 74 65  um.}..# Generate
92e0: 20 61 20 63 68 65 63 6b 73 75 6d 20 62 61 73 65   a checksum base
92f0: 64 20 6f 6e 20 74 68 65 20 63 6f 6e 74 65 6e 74  d on the content
9300: 73 20 6f 66 20 74 68 65 20 6d 61 69 6e 20 61 6e  s of the main an
9310: 64 20 74 65 6d 70 20 74 61 62 6c 65 73 0a 23 20  d temp tables.# 
9320: 64 61 74 61 62 61 73 65 20 24 64 62 2e 20 49 66  database $db. If
9330: 20 74 68 65 20 63 68 65 63 6b 73 75 6d 20 6f 66   the checksum of
9340: 20 74 77 6f 20 64 61 74 61 62 61 73 65 73 20 69   two databases i
9350: 73 20 74 68 65 20 73 61 6d 65 2c 20 61 6e 64 20  s the same, and 
9360: 74 68 65 0a 23 20 69 6e 74 65 67 72 69 74 79 2d  the.# integrity-
9370: 63 68 65 63 6b 20 70 61 73 73 65 73 20 66 6f 72  check passes for
9380: 20 62 6f 74 68 2c 20 74 68 65 20 74 77 6f 20 64   both, the two d
9390: 61 74 61 62 61 73 65 73 20 61 72 65 20 69 64 65  atabases are ide
93a0: 6e 74 69 63 61 6c 2e 0a 23 0a 70 72 6f 63 20 61  ntical..#.proc a
93b0: 6c 6c 63 6b 73 75 6d 20 7b 7b 64 62 20 64 62 7d  llcksum {{db db}
93c0: 7d 20 7b 0a 20 20 73 65 74 20 72 65 74 20 5b 6c  } {.  set ret [l
93d0: 69 73 74 5d 0a 20 20 69 66 63 61 70 61 62 6c 65  ist].  ifcapable
93e0: 20 74 65 6d 70 64 62 20 7b 0a 20 20 20 20 73 65   tempdb {.    se
93f0: 74 20 73 71 6c 20 7b 0a 20 20 20 20 20 20 53 45  t sql {.      SE
9400: 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73  LECT name FROM s
9410: 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 57 48 45  qlite_master WHE
9420: 52 45 20 74 79 70 65 20 3d 20 27 74 61 62 6c 65  RE type = 'table
9430: 27 20 55 4e 49 4f 4e 0a 20 20 20 20 20 20 53 45  ' UNION.      SE
9440: 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73  LECT name FROM s
9450: 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65  qlite_temp_maste
9460: 72 20 57 48 45 52 45 20 74 79 70 65 20 3d 20 27  r WHERE type = '
9470: 74 61 62 6c 65 27 20 55 4e 49 4f 4e 0a 20 20 20  table' UNION.   
9480: 20 20 20 53 45 4c 45 43 54 20 27 73 71 6c 69 74     SELECT 'sqlit
9490: 65 5f 6d 61 73 74 65 72 27 20 55 4e 49 4f 4e 0a  e_master' UNION.
94a0: 20 20 20 20 20 20 53 45 4c 45 43 54 20 27 73 71        SELECT 'sq
94b0: 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72  lite_temp_master
94c0: 27 20 4f 52 44 45 52 20 42 59 20 31 0a 20 20 20  ' ORDER BY 1.   
94d0: 20 7d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20   }.  } else {.  
94e0: 20 20 73 65 74 20 73 71 6c 20 7b 0a 20 20 20 20    set sql {.    
94f0: 20 20 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52    SELECT name FR
9500: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
9510: 20 57 48 45 52 45 20 74 79 70 65 20 3d 20 27 74   WHERE type = 't
9520: 61 62 6c 65 27 20 55 4e 49 4f 4e 0a 20 20 20 20  able' UNION.    
9530: 20 20 53 45 4c 45 43 54 20 27 73 71 6c 69 74 65    SELECT 'sqlite
9540: 5f 6d 61 73 74 65 72 27 20 4f 52 44 45 52 20 42  _master' ORDER B
9550: 59 20 31 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20  Y 1.    }.  }.  
9560: 73 65 74 20 74 62 6c 6c 69 73 74 20 5b 24 64 62  set tbllist [$db
9570: 20 65 76 61 6c 20 24 73 71 6c 5d 0a 20 20 73 65   eval $sql].  se
9580: 74 20 74 78 74 20 7b 7d 0a 20 20 66 6f 72 65 61  t txt {}.  forea
9590: 63 68 20 74 62 6c 20 24 74 62 6c 6c 69 73 74 20  ch tbl $tbllist 
95a0: 7b 0a 20 20 20 20 61 70 70 65 6e 64 20 74 78 74  {.    append txt
95b0: 20 5b 24 64 62 20 65 76 61 6c 20 22 53 45 4c 45   [$db eval "SELE
95c0: 43 54 20 2a 20 46 52 4f 4d 20 24 74 62 6c 22 5d  CT * FROM $tbl"]
95d0: 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 70  .  }.  foreach p
95e0: 72 61 67 20 7b 64 65 66 61 75 6c 74 5f 63 61 63  rag {default_cac
95f0: 68 65 5f 73 69 7a 65 7d 20 7b 0a 20 20 20 20 61  he_size} {.    a
9600: 70 70 65 6e 64 20 74 78 74 20 24 70 72 61 67 2d  ppend txt $prag-
9610: 5b 24 64 62 20 65 76 61 6c 20 22 50 52 41 47 4d  [$db eval "PRAGM
9620: 41 20 24 70 72 61 67 22 5d 5c 6e 0a 20 20 7d 0a  A $prag"]\n.  }.
9630: 20 20 23 20 70 75 74 73 20 74 78 74 3d 24 74 78    # puts txt=$tx
9640: 74 0a 20 20 72 65 74 75 72 6e 20 5b 6d 64 35 20  t.  return [md5 
9650: 24 74 78 74 5d 0a 7d 0a 0a 23 20 47 65 6e 65 72  $txt].}..# Gener
9660: 61 74 65 20 61 20 63 68 65 63 6b 73 75 6d 20 62  ate a checksum b
9670: 61 73 65 64 20 6f 6e 20 74 68 65 20 63 6f 6e 74  ased on the cont
9680: 65 6e 74 73 20 6f 66 20 61 20 73 69 6e 67 6c 65  ents of a single
9690: 20 64 61 74 61 62 61 73 65 20 77 69 74 68 0a 23   database with.#
96a0: 20 61 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e   a database conn
96b0: 65 63 74 69 6f 6e 2e 20 20 54 68 65 20 6e 61 6d  ection.  The nam
96c0: 65 20 6f 66 20 74 68 65 20 64 61 74 61 62 61 73  e of the databas
96d0: 65 20 69 73 20 24 64 62 6e 61 6d 65 2e 20 20 0a  e is $dbname.  .
96e0: 23 20 45 78 61 6d 70 6c 65 73 20 6f 66 20 24 64  # Examples of $d
96f0: 62 6e 61 6d 65 20 61 72 65 20 22 74 65 6d 70 22  bname are "temp"
9700: 20 6f 72 20 22 6d 61 69 6e 22 2e 0a 23 0a 70 72   or "main"..#.pr
9710: 6f 63 20 64 62 63 6b 73 75 6d 20 7b 64 62 20 64  oc dbcksum {db d
9720: 62 6e 61 6d 65 7d 20 7b 0a 20 20 69 66 20 7b 24  bname} {.  if {$
9730: 64 62 6e 61 6d 65 3d 3d 22 74 65 6d 70 22 7d 20  dbname=="temp"} 
9740: 7b 0a 20 20 20 20 73 65 74 20 6d 61 73 74 65 72  {.    set master
9750: 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73   sqlite_temp_mas
9760: 74 65 72 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20  ter.  } else {. 
9770: 20 20 20 73 65 74 20 6d 61 73 74 65 72 20 24 64     set master $d
9780: 62 6e 61 6d 65 2e 73 71 6c 69 74 65 5f 6d 61 73  bname.sqlite_mas
9790: 74 65 72 0a 20 20 7d 0a 20 20 73 65 74 20 61 6c  ter.  }.  set al
97a0: 6c 74 61 62 20 5b 24 64 62 20 65 76 61 6c 20 22  ltab [$db eval "
97b0: 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d  SELECT name FROM
97c0: 20 24 6d 61 73 74 65 72 20 57 48 45 52 45 20 74   $master WHERE t
97d0: 79 70 65 3d 27 74 61 62 6c 65 27 22 5d 0a 20 20  ype='table'"].  
97e0: 73 65 74 20 74 78 74 20 5b 24 64 62 20 65 76 61  set txt [$db eva
97f0: 6c 20 22 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  l "SELECT * FROM
9800: 20 24 6d 61 73 74 65 72 22 5d 5c 6e 0a 20 20 66   $master"]\n.  f
9810: 6f 72 65 61 63 68 20 74 61 62 20 24 61 6c 6c 74  oreach tab $allt
9820: 61 62 20 7b 0a 20 20 20 20 61 70 70 65 6e 64 20  ab {.    append 
9830: 74 78 74 20 5b 24 64 62 20 65 76 61 6c 20 22 53  txt [$db eval "S
9840: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 24 64 62  ELECT * FROM $db
9850: 6e 61 6d 65 2e 24 74 61 62 22 5d 5c 6e 0a 20 20  name.$tab"]\n.  
9860: 7d 0a 20 20 72 65 74 75 72 6e 20 5b 6d 64 35 20  }.  return [md5 
9870: 24 74 78 74 5d 0a 7d 0a 0a 70 72 6f 63 20 6d 65  $txt].}..proc me
9880: 6d 64 65 62 75 67 5f 6c 6f 67 5f 73 71 6c 20 7b  mdebug_log_sql {
9890: 7b 66 69 6c 65 6e 61 6d 65 20 6d 61 6c 6c 6f 63  {filename malloc
98a0: 73 2e 73 71 6c 7d 7d 20 7b 0a 0a 20 20 73 65 74  s.sql}} {..  set
98b0: 20 64 61 74 61 20 5b 73 71 6c 69 74 65 33 5f 6d   data [sqlite3_m
98c0: 65 6d 64 65 62 75 67 5f 6c 6f 67 20 64 75 6d 70  emdebug_log dump
98d0: 5d 0a 20 20 73 65 74 20 6e 46 72 61 6d 65 20 5b  ].  set nFrame [
98e0: 65 78 70 72 20 5b 6c 6c 65 6e 67 74 68 20 5b 6c  expr [llength [l
98f0: 69 6e 64 65 78 20 24 64 61 74 61 20 30 5d 5d 2d  index $data 0]]-
9900: 32 5d 0a 20 20 69 66 20 7b 24 6e 46 72 61 6d 65  2].  if {$nFrame
9910: 20 3c 20 30 7d 20 7b 20 72 65 74 75 72 6e 20 22   < 0} { return "
9920: 22 20 7d 0a 0a 20 20 73 65 74 20 64 61 74 61 62  " }..  set datab
9930: 61 73 65 20 74 65 6d 70 0a 0a 20 20 73 65 74 20  ase temp..  set 
9940: 74 62 6c 20 22 43 52 45 41 54 45 20 54 41 42 4c  tbl "CREATE TABL
9950: 45 20 24 7b 64 61 74 61 62 61 73 65 7d 2e 6d 61  E ${database}.ma
9960: 6c 6c 6f 63 28 7a 54 65 73 74 2c 20 6e 43 61 6c  lloc(zTest, nCal
9970: 6c 2c 20 6e 42 79 74 65 2c 20 6c 53 74 61 63 6b  l, nByte, lStack
9980: 29 3b 22 0a 0a 20 20 73 65 74 20 73 71 6c 20 22  );"..  set sql "
9990: 22 0a 20 20 66 6f 72 65 61 63 68 20 65 20 24 64  ".  foreach e $d
99a0: 61 74 61 20 7b 0a 20 20 20 20 73 65 74 20 6e 43  ata {.    set nC
99b0: 61 6c 6c 20 5b 6c 69 6e 64 65 78 20 24 65 20 30  all [lindex $e 0
99c0: 5d 0a 20 20 20 20 73 65 74 20 6e 42 79 74 65 20  ].    set nByte 
99d0: 5b 6c 69 6e 64 65 78 20 24 65 20 31 5d 0a 20 20  [lindex $e 1].  
99e0: 20 20 73 65 74 20 6c 53 74 61 63 6b 20 5b 6c 72    set lStack [lr
99f0: 61 6e 67 65 20 24 65 20 32 20 65 6e 64 5d 0a 20  ange $e 2 end]. 
9a00: 20 20 20 61 70 70 65 6e 64 20 73 71 6c 20 22 49     append sql "I
9a10: 4e 53 45 52 54 20 49 4e 54 4f 20 24 7b 64 61 74  NSERT INTO ${dat
9a20: 61 62 61 73 65 7d 2e 6d 61 6c 6c 6f 63 20 56 41  abase}.malloc VA
9a30: 4c 55 45 53 22 0a 20 20 20 20 61 70 70 65 6e 64  LUES".    append
9a40: 20 73 71 6c 20 22 28 27 74 65 73 74 27 2c 20 24   sql "('test', $
9a50: 6e 43 61 6c 6c 2c 20 24 6e 42 79 74 65 2c 20 27  nCall, $nByte, '
9a60: 24 6c 53 74 61 63 6b 27 29 3b 5c 6e 22 0a 20 20  $lStack');\n".  
9a70: 20 20 66 6f 72 65 61 63 68 20 66 20 24 6c 53 74    foreach f $lSt
9a80: 61 63 6b 20 7b 0a 20 20 20 20 20 20 73 65 74 20  ack {.      set 
9a90: 66 72 61 6d 65 73 28 24 66 29 20 31 0a 20 20 20  frames($f) 1.   
9aa0: 20 7d 0a 20 20 7d 0a 0a 20 20 73 65 74 20 74 62   }.  }..  set tb
9ab0: 6c 32 20 22 43 52 45 41 54 45 20 54 41 42 4c 45  l2 "CREATE TABLE
9ac0: 20 24 7b 64 61 74 61 62 61 73 65 7d 2e 66 72 61   ${database}.fra
9ad0: 6d 65 28 66 72 61 6d 65 20 49 4e 54 45 47 45 52  me(frame INTEGER
9ae0: 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 6c 69   PRIMARY KEY, li
9af0: 6e 65 29 3b 5c 6e 22 0a 20 20 73 65 74 20 74 62  ne);\n".  set tb
9b00: 6c 33 20 22 43 52 45 41 54 45 20 54 41 42 4c 45  l3 "CREATE TABLE
9b10: 20 24 7b 64 61 74 61 62 61 73 65 7d 2e 66 69 6c   ${database}.fil
9b20: 65 28 6e 61 6d 65 20 50 52 49 4d 41 52 59 20 4b  e(name PRIMARY K
9b30: 45 59 2c 20 63 6f 6e 74 65 6e 74 29 3b 5c 6e 22  EY, content);\n"
9b40: 0a 0a 20 20 66 6f 72 65 61 63 68 20 66 20 5b 61  ..  foreach f [a
9b50: 72 72 61 79 20 6e 61 6d 65 73 20 66 72 61 6d 65  rray names frame
9b60: 73 5d 20 7b 0a 20 20 20 20 73 65 74 20 61 64 64  s] {.    set add
9b70: 72 20 5b 66 6f 72 6d 61 74 20 25 78 20 24 66 5d  r [format %x $f]
9b80: 0a 20 20 20 20 73 65 74 20 63 6d 64 20 22 61 64  .    set cmd "ad
9b90: 64 72 32 6c 69 6e 65 20 2d 65 20 5b 69 6e 66 6f  dr2line -e [info
9ba0: 20 6e 61 6d 65 6f 66 65 78 65 63 5d 20 24 61 64   nameofexec] $ad
9bb0: 64 72 22 0a 20 20 20 20 73 65 74 20 6c 69 6e 65  dr".    set line
9bc0: 20 5b 65 76 61 6c 20 65 78 65 63 20 24 63 6d 64   [eval exec $cmd
9bd0: 5d 0a 20 20 20 20 61 70 70 65 6e 64 20 73 71 6c  ].    append sql
9be0: 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 24 7b   "INSERT INTO ${
9bf0: 64 61 74 61 62 61 73 65 7d 2e 66 72 61 6d 65 20  database}.frame 
9c00: 56 41 4c 55 45 53 28 24 66 2c 20 27 24 6c 69 6e  VALUES($f, '$lin
9c10: 65 27 29 3b 5c 6e 22 0a 0a 20 20 20 20 73 65 74  e');\n"..    set
9c20: 20 66 69 6c 65 20 5b 6c 69 6e 64 65 78 20 5b 73   file [lindex [s
9c30: 70 6c 69 74 20 24 6c 69 6e 65 20 3a 5d 20 30 5d  plit $line :] 0]
9c40: 0a 20 20 20 20 73 65 74 20 66 69 6c 65 73 28 24  .    set files($
9c50: 66 69 6c 65 29 20 31 0a 20 20 7d 0a 0a 20 20 66  file) 1.  }..  f
9c60: 6f 72 65 61 63 68 20 66 20 5b 61 72 72 61 79 20  oreach f [array 
9c70: 6e 61 6d 65 73 20 66 69 6c 65 73 5d 20 7b 0a 20  names files] {. 
9c80: 20 20 20 73 65 74 20 63 6f 6e 74 65 6e 74 73 20     set contents 
9c90: 22 22 0a 20 20 20 20 63 61 74 63 68 20 7b 0a 20  "".    catch {. 
9ca0: 20 20 20 20 20 73 65 74 20 66 64 20 5b 6f 70 65       set fd [ope
9cb0: 6e 20 24 66 5d 0a 20 20 20 20 20 20 73 65 74 20  n $f].      set 
9cc0: 63 6f 6e 74 65 6e 74 73 20 5b 72 65 61 64 20 24  contents [read $
9cd0: 66 64 5d 0a 20 20 20 20 20 20 63 6c 6f 73 65 20  fd].      close 
9ce0: 24 66 64 0a 20 20 20 20 7d 0a 20 20 20 20 73 65  $fd.    }.    se
9cf0: 74 20 63 6f 6e 74 65 6e 74 73 20 5b 73 74 72 69  t contents [stri
9d00: 6e 67 20 6d 61 70 20 7b 27 20 27 27 7d 20 24 63  ng map {' ''} $c
9d10: 6f 6e 74 65 6e 74 73 5d 0a 20 20 20 20 61 70 70  ontents].    app
9d20: 65 6e 64 20 73 71 6c 20 22 49 4e 53 45 52 54 20  end sql "INSERT 
9d30: 49 4e 54 4f 20 24 7b 64 61 74 61 62 61 73 65 7d  INTO ${database}
9d40: 2e 66 69 6c 65 20 56 41 4c 55 45 53 28 27 24 66  .file VALUES('$f
9d50: 27 2c 20 27 24 63 6f 6e 74 65 6e 74 73 27 29 3b  ', '$contents');
9d60: 5c 6e 22 0a 20 20 7d 0a 0a 20 20 73 65 74 20 66  \n".  }..  set f
9d70: 64 20 5b 6f 70 65 6e 20 24 66 69 6c 65 6e 61 6d  d [open $filenam
9d80: 65 20 77 5d 0a 20 20 70 75 74 73 20 24 66 64 20  e w].  puts $fd 
9d90: 22 42 45 47 49 4e 3b 20 24 7b 74 62 6c 7d 24 7b  "BEGIN; ${tbl}${
9da0: 74 62 6c 32 7d 24 7b 74 62 6c 33 7d 24 7b 73 71  tbl2}${tbl3}${sq
9db0: 6c 7d 20 3b 20 43 4f 4d 4d 49 54 3b 22 0a 20 20  l} ; COMMIT;".  
9dc0: 63 6c 6f 73 65 20 24 66 64 0a 7d 0a 0a 23 20 44  close $fd.}..# D
9dd0: 72 6f 70 20 61 6c 6c 20 74 61 62 6c 65 73 20 69  rop all tables i
9de0: 6e 20 64 61 74 61 62 61 73 65 20 5b 64 62 5d 0a  n database [db].
9df0: 70 72 6f 63 20 64 72 6f 70 5f 61 6c 6c 5f 74 61  proc drop_all_ta
9e00: 62 6c 65 73 20 7b 7b 64 62 20 64 62 7d 7d 20 7b  bles {{db db}} {
9e10: 0a 20 20 69 66 63 61 70 61 62 6c 65 20 74 72 69  .  ifcapable tri
9e20: 67 67 65 72 26 26 66 6f 72 65 69 67 6e 6b 65 79  gger&&foreignkey
9e30: 20 7b 0a 20 20 20 20 73 65 74 20 70 6b 20 5b 24   {.    set pk [$
9e40: 64 62 20 6f 6e 65 20 22 50 52 41 47 4d 41 20 66  db one "PRAGMA f
9e50: 6f 72 65 69 67 6e 5f 6b 65 79 73 22 5d 0a 20 20  oreign_keys"].  
9e60: 20 20 24 64 62 20 65 76 61 6c 20 22 50 52 41 47    $db eval "PRAG
9e70: 4d 41 20 66 6f 72 65 69 67 6e 5f 6b 65 79 73 20  MA foreign_keys 
9e80: 3d 20 4f 46 46 22 0a 20 20 7d 0a 20 20 66 6f 72  = OFF".  }.  for
9e90: 65 61 63 68 20 7b 69 64 78 20 6e 61 6d 65 20 66  each {idx name f
9ea0: 69 6c 65 7d 20 5b 64 62 20 65 76 61 6c 20 7b 50  ile} [db eval {P
9eb0: 52 41 47 4d 41 20 64 61 74 61 62 61 73 65 5f 6c  RAGMA database_l
9ec0: 69 73 74 7d 5d 20 7b 0a 20 20 20 20 69 66 20 7b  ist}] {.    if {
9ed0: 24 69 64 78 3d 3d 31 7d 20 7b 0a 20 20 20 20 20  $idx==1} {.     
9ee0: 20 73 65 74 20 6d 61 73 74 65 72 20 73 71 6c 69   set master sqli
9ef0: 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 0a 20  te_temp_master. 
9f00: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20     } else {.    
9f10: 20 20 73 65 74 20 6d 61 73 74 65 72 20 24 6e 61    set master $na
9f20: 6d 65 2e 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  me.sqlite_master
9f30: 0a 20 20 20 20 7d 0a 20 20 20 20 66 6f 72 65 61  .    }.    forea
9f40: 63 68 20 7b 74 20 74 79 70 65 7d 20 5b 24 64 62  ch {t type} [$db
9f50: 20 65 76 61 6c 20 22 0a 20 20 20 20 20 20 53 45   eval ".      SE
9f60: 4c 45 43 54 20 6e 61 6d 65 2c 20 74 79 70 65 20  LECT name, type 
9f70: 46 52 4f 4d 20 24 6d 61 73 74 65 72 0a 20 20 20  FROM $master.   
9f80: 20 20 20 57 48 45 52 45 20 74 79 70 65 20 49 4e     WHERE type IN
9f90: 28 27 74 61 62 6c 65 27 2c 20 27 76 69 65 77 27  ('table', 'view'
9fa0: 29 20 41 4e 44 20 6e 61 6d 65 20 4e 4f 54 20 4c  ) AND name NOT L
9fb0: 49 4b 45 20 27 73 71 6c 69 74 65 58 5f 25 27 20  IKE 'sqliteX_%' 
9fc0: 45 53 43 41 50 45 20 27 58 27 0a 20 20 20 20 22  ESCAPE 'X'.    "
9fd0: 5d 20 7b 0a 20 20 20 20 20 20 24 64 62 20 65 76  ] {.      $db ev
9fe0: 61 6c 20 22 44 52 4f 50 20 24 74 79 70 65 20 5c  al "DROP $type \
9ff0: 22 24 74 5c 22 22 0a 20 20 20 20 7d 0a 20 20 7d  "$t\"".    }.  }
a000: 0a 20 20 69 66 63 61 70 61 62 6c 65 20 74 72 69  .  ifcapable tri
a010: 67 67 65 72 26 26 66 6f 72 65 69 67 6e 6b 65 79  gger&&foreignkey
a020: 20 7b 0a 20 20 20 20 24 64 62 20 65 76 61 6c 20   {.    $db eval 
a030: 22 50 52 41 47 4d 41 20 66 6f 72 65 69 67 6e 5f  "PRAGMA foreign_
a040: 6b 65 79 73 20 3d 20 24 70 6b 22 0a 20 20 7d 0a  keys = $pk".  }.
a050: 7d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  }..#------------
a060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20  -------------.# 
a0a0: 49 66 20 61 20 74 65 73 74 20 73 63 72 69 70 74  If a test script
a0b0: 20 69 73 20 65 78 65 63 75 74 65 64 20 77 69 74   is executed wit
a0c0: 68 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c  h global variabl
a0d0: 65 20 24 3a 3a 47 28 70 65 72 6d 3a 6e 61 6d 65  e $::G(perm:name
a0e0: 29 20 73 65 74 20 74 6f 0a 23 20 22 77 61 6c 22  ) set to.# "wal"
a0f0: 2c 20 74 68 65 6e 20 74 68 65 20 74 65 73 74 73  , then the tests
a100: 20 61 72 65 20 72 75 6e 20 69 6e 20 57 41 4c 20   are run in WAL 
a110: 6d 6f 64 65 2e 20 4f 74 68 65 72 77 69 73 65 2c  mode. Otherwise,
a120: 20 74 68 65 79 20 73 68 6f 75 6c 64 20 62 65 20   they should be 
a130: 72 75 6e 20 0a 23 20 69 6e 20 72 6f 6c 6c 62 61  run .# in rollba
a140: 63 6b 20 6d 6f 64 65 2e 20 54 68 65 20 66 6f 6c  ck mode. The fol
a150: 6c 6f 77 69 6e 67 20 54 63 6c 20 70 72 6f 63 73  lowing Tcl procs
a160: 20 61 72 65 20 75 73 65 64 20 74 6f 20 6d 61 6b   are used to mak
a170: 65 20 74 68 69 73 20 6c 65 73 73 20 0a 23 20 69  e this less .# i
a180: 6e 74 72 75 73 69 76 65 3a 0a 23 0a 23 20 20 20  ntrusive:.#.#   
a190: 77 61 6c 5f 73 65 74 5f 6a 6f 75 72 6e 61 6c 5f  wal_set_journal_
a1a0: 6d 6f 64 65 20 3f 44 42 3f 0a 23 0a 23 20 20 20  mode ?DB?.#.#   
a1b0: 20 20 49 66 20 72 75 6e 6e 69 6e 67 20 61 20 57    If running a W
a1c0: 41 4c 20 74 65 73 74 2c 20 65 78 65 63 75 74 65  AL test, execute
a1d0: 20 22 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c   "PRAGMA journal
a1e0: 5f 6d 6f 64 65 20 3d 20 77 61 6c 22 20 75 73 69  _mode = wal" usi
a1f0: 6e 67 0a 23 20 20 20 20 20 63 6f 6e 6e 65 63 74  ng.#     connect
a200: 69 6f 6e 20 68 61 6e 64 6c 65 20 44 42 2e 20 4f  ion handle DB. O
a210: 74 68 65 72 77 69 73 65 2c 20 74 68 69 73 20 63  therwise, this c
a220: 6f 6d 6d 61 6e 64 20 69 73 20 61 20 6e 6f 2d 6f  ommand is a no-o
a230: 70 2e 0a 23 0a 23 20 20 20 77 61 6c 5f 63 68 65  p..#.#   wal_che
a240: 63 6b 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20  ck_journal_mode 
a250: 54 45 53 54 4e 41 4d 45 20 3f 44 42 3f 0a 23 0a  TESTNAME ?DB?.#.
a260: 23 20 20 20 20 20 49 66 20 72 75 6e 6e 69 6e 67  #     If running
a270: 20 61 20 57 41 4c 20 74 65 73 74 2c 20 65 78 65   a WAL test, exe
a280: 63 75 74 65 20 61 20 74 65 73 74 73 20 63 61 73  cute a tests cas
a290: 65 20 74 68 61 74 20 66 61 69 6c 73 20 69 66 20  e that fails if 
a2a0: 74 68 65 20 6d 61 69 6e 0a 23 20 20 20 20 20 64  the main.#     d
a2b0: 61 74 61 62 61 73 65 20 66 6f 72 20 63 6f 6e 6e  atabase for conn
a2c0: 65 63 74 69 6f 6e 20 68 61 6e 64 6c 65 20 44 42  ection handle DB
a2d0: 20 69 73 20 6e 6f 74 20 63 75 72 72 65 6e 74 6c   is not currentl
a2e0: 79 20 61 20 57 41 4c 20 64 61 74 61 62 61 73 65  y a WAL database
a2f0: 2e 0a 23 20 20 20 20 20 4f 74 68 65 72 77 69 73  ..#     Otherwis
a300: 65 20 28 69 66 20 6e 6f 74 20 72 75 6e 6e 69 6e  e (if not runnin
a310: 67 20 61 20 57 41 4c 20 70 65 72 6d 75 74 61 74  g a WAL permutat
a320: 69 6f 6e 29 20 74 68 69 73 20 69 73 20 61 20 6e  ion) this is a n
a330: 6f 2d 6f 70 2e 0a 23 0a 23 20 20 20 77 61 6c 5f  o-op..#.#   wal_
a340: 69 73 5f 77 61 6c 5f 6d 6f 64 65 0a 23 20 20 20  is_wal_mode.#   
a350: 0a 23 20 20 20 20 20 52 65 74 75 72 6e 73 20 74  .#     Returns t
a360: 72 75 65 20 69 66 20 74 68 69 73 20 74 65 73 74  rue if this test
a370: 20 73 68 6f 75 6c 64 20 62 65 20 72 75 6e 20 69   should be run i
a380: 6e 20 57 41 4c 20 6d 6f 64 65 2e 20 46 61 6c 73  n WAL mode. Fals
a390: 65 20 6f 74 68 65 72 77 69 73 65 2e 0a 23 20 0a  e otherwise..# .
a3a0: 70 72 6f 63 20 77 61 6c 5f 69 73 5f 77 61 6c 5f  proc wal_is_wal_
a3b0: 6d 6f 64 65 20 7b 7d 20 7b 0a 20 20 65 78 70 72  mode {} {.  expr
a3c0: 20 7b 5b 70 65 72 6d 75 74 61 74 69 6f 6e 5d 20   {[permutation] 
a3d0: 65 71 20 22 77 61 6c 22 7d 0a 7d 0a 70 72 6f 63  eq "wal"}.}.proc
a3e0: 20 77 61 6c 5f 73 65 74 5f 6a 6f 75 72 6e 61 6c   wal_set_journal
a3f0: 5f 6d 6f 64 65 20 7b 7b 64 62 20 64 62 7d 7d 20  _mode {{db db}} 
a400: 7b 0a 20 20 69 66 20 7b 20 5b 77 61 6c 5f 69 73  {.  if { [wal_is
a410: 5f 77 61 6c 5f 6d 6f 64 65 5d 20 7d 20 7b 0a 20  _wal_mode] } {. 
a420: 20 20 20 24 64 62 20 65 76 61 6c 20 22 50 52 41     $db eval "PRA
a430: 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65  GMA journal_mode
a440: 20 3d 20 57 41 4c 22 0a 20 20 7d 0a 7d 0a 70 72   = WAL".  }.}.pr
a450: 6f 63 20 77 61 6c 5f 63 68 65 63 6b 5f 6a 6f 75  oc wal_check_jou
a460: 72 6e 61 6c 5f 6d 6f 64 65 20 7b 74 65 73 74 6e  rnal_mode {testn
a470: 61 6d 65 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20  ame {db db}} {. 
a480: 20 69 66 20 7b 20 5b 77 61 6c 5f 69 73 5f 77 61   if { [wal_is_wa
a490: 6c 5f 6d 6f 64 65 5d 20 7d 20 7b 0a 20 20 20 20  l_mode] } {.    
a4a0: 24 64 62 20 65 76 61 6c 20 7b 20 53 45 4c 45 43  $db eval { SELEC
a4b0: 54 20 2a 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f  T * FROM sqlite_
a4c0: 6d 61 73 74 65 72 20 7d 0a 20 20 20 20 64 6f 5f  master }.    do_
a4d0: 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65 20 5b  test $testname [
a4e0: 6c 69 73 74 20 24 64 62 20 65 76 61 6c 20 22 50  list $db eval "P
a4f0: 52 41 47 4d 41 20 6d 61 69 6e 2e 6a 6f 75 72 6e  RAGMA main.journ
a500: 61 6c 5f 6d 6f 64 65 22 5d 20 7b 77 61 6c 7d 0a  al_mode"] {wal}.
a510: 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20 70 65 72 6d    }.}..proc perm
a520: 75 74 61 74 69 6f 6e 20 7b 7d 20 7b 0a 20 20 73  utation {} {.  s
a530: 65 74 20 70 65 72 6d 20 22 22 0a 20 20 63 61 74  et perm "".  cat
a540: 63 68 20 7b 73 65 74 20 70 65 72 6d 20 24 3a 3a  ch {set perm $::
a550: 47 28 70 65 72 6d 3a 6e 61 6d 65 29 7d 0a 20 20  G(perm:name)}.  
a560: 73 65 74 20 70 65 72 6d 0a 7d 0a 70 72 6f 63 20  set perm.}.proc 
a570: 70 72 65 73 71 6c 20 7b 7d 20 7b 0a 20 20 73 65  presql {} {.  se
a580: 74 20 70 72 65 73 71 6c 20 22 22 0a 20 20 63 61  t presql "".  ca
a590: 74 63 68 20 7b 73 65 74 20 70 72 65 73 71 6c 20  tch {set presql 
a5a0: 24 3a 3a 47 28 70 65 72 6d 3a 70 72 65 73 71 6c  $::G(perm:presql
a5b0: 29 7d 0a 20 20 73 65 74 20 70 72 65 73 71 6c 0a  )}.  set presql.
a5c0: 7d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  }..#------------
a5d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a5e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a5f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 0a  -------------.#.
a610: 70 72 6f 63 20 73 6c 61 76 65 5f 74 65 73 74 5f  proc slave_test_
a620: 73 63 72 69 70 74 20 7b 73 63 72 69 70 74 7d 20  script {script} 
a630: 7b 0a 0a 20 20 23 20 43 72 65 61 74 65 20 74 68  {..  # Create th
a640: 65 20 69 6e 74 65 72 70 72 65 74 65 72 20 75 73  e interpreter us
a650: 65 64 20 74 6f 20 72 75 6e 20 74 68 65 20 74 65  ed to run the te
a660: 73 74 20 73 63 72 69 70 74 2e 0a 20 20 69 6e 74  st script..  int
a670: 65 72 70 20 63 72 65 61 74 65 20 74 69 6e 74 65  erp create tinte
a680: 72 70 0a 0a 20 20 23 20 50 6f 70 75 6c 61 74 65  rp..  # Populate
a690: 20 73 6f 6d 65 20 67 6c 6f 62 61 6c 20 76 61 72   some global var
a6a0: 69 61 62 6c 65 73 20 74 68 61 74 20 74 65 73 74  iables that test
a6b0: 65 72 2e 74 63 6c 20 65 78 70 65 63 74 73 20 74  er.tcl expects t
a6c0: 6f 20 73 65 65 2e 0a 20 20 66 6f 72 65 61 63 68  o see..  foreach
a6d0: 20 7b 76 61 72 20 76 61 6c 75 65 7d 20 5b 6c 69   {var value} [li
a6e0: 73 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20  st              
a6f0: 5c 0a 20 20 20 20 3a 3a 61 72 67 76 30 20 24 3a  \.    ::argv0 $:
a700: 3a 61 72 67 76 30 20 20 20 20 20 20 20 20 20 20  :argv0          
a710: 20 20 20 20 20 20 20 20 20 20 20 5c 0a 20 20 20             \.   
a720: 20 3a 3a 61 72 67 76 20 20 7b 7d 20 20 20 20 20   ::argv  {}     
a730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a740: 20 20 20 20 20 20 5c 0a 20 20 20 20 3a 3a 53 4c        \.    ::SL
a750: 41 56 45 20 31 20 20 20 20 20 20 20 20 20 20 20  AVE 1           
a760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a770: 20 5c 0a 20 20 5d 20 7b 0a 20 20 20 20 69 6e 74   \.  ] {.    int
a780: 65 72 70 20 65 76 61 6c 20 74 69 6e 74 65 72 70  erp eval tinterp
a790: 20 5b 6c 69 73 74 20 73 65 74 20 24 76 61 72 20   [list set $var 
a7a0: 24 76 61 6c 75 65 5d 0a 20 20 7d 0a 0a 20 20 23  $value].  }..  #
a7b0: 20 54 68 65 20 61 6c 69 61 73 20 75 73 65 64 20   The alias used 
a7c0: 74 6f 20 61 63 63 65 73 73 20 74 68 65 20 67 6c  to access the gl
a7d0: 6f 62 61 6c 20 74 65 73 74 20 63 6f 75 6e 74 65  obal test counte
a7e0: 72 73 2e 0a 20 20 74 69 6e 74 65 72 70 20 61 6c  rs..  tinterp al
a7f0: 69 61 73 20 73 65 74 5f 74 65 73 74 5f 63 6f 75  ias set_test_cou
a800: 6e 74 65 72 20 73 65 74 5f 74 65 73 74 5f 63 6f  nter set_test_co
a810: 75 6e 74 65 72 0a 0a 20 20 23 20 53 65 74 20 75  unter..  # Set u
a820: 70 20 74 68 65 20 3a 3a 63 6d 64 6c 69 6e 65 61  p the ::cmdlinea
a830: 72 67 20 61 72 72 61 79 20 69 6e 20 74 68 65 20  rg array in the 
a840: 73 6c 61 76 65 2e 0a 20 20 69 6e 74 65 72 70 20  slave..  interp 
a850: 65 76 61 6c 20 74 69 6e 74 65 72 70 20 5b 6c 69  eval tinterp [li
a860: 73 74 20 61 72 72 61 79 20 73 65 74 20 3a 3a 63  st array set ::c
a870: 6d 64 6c 69 6e 65 61 72 67 20 5b 61 72 72 61 79  mdlinearg [array
a880: 20 67 65 74 20 3a 3a 63 6d 64 6c 69 6e 65 61 72   get ::cmdlinear
a890: 67 5d 5d 0a 0a 20 20 23 20 53 65 74 20 75 70 20  g]]..  # Set up 
a8a0: 74 68 65 20 3a 3a 47 20 61 72 72 61 79 20 69 6e  the ::G array in
a8b0: 20 74 68 65 20 73 6c 61 76 65 2e 0a 20 20 69 6e   the slave..  in
a8c0: 74 65 72 70 20 65 76 61 6c 20 74 69 6e 74 65 72  terp eval tinter
a8d0: 70 20 5b 6c 69 73 74 20 61 72 72 61 79 20 73 65  p [list array se
a8e0: 74 20 3a 3a 47 20 5b 61 72 72 61 79 20 67 65 74  t ::G [array get
a8f0: 20 3a 3a 47 5d 5d 0a 0a 20 20 23 20 4c 6f 61 64   ::G]]..  # Load
a900: 20 74 68 65 20 76 61 72 69 6f 75 73 20 74 65 73   the various tes
a910: 74 20 69 6e 74 65 72 66 61 63 65 73 20 69 6d 70  t interfaces imp
a920: 6c 65 6d 65 6e 74 65 64 20 69 6e 20 43 2e 0a 20  lemented in C.. 
a930: 20 6c 6f 61 64 5f 74 65 73 74 66 69 78 74 75 72   load_testfixtur
a940: 65 5f 65 78 74 65 6e 73 69 6f 6e 73 20 74 69 6e  e_extensions tin
a950: 74 65 72 70 0a 0a 20 20 23 20 52 75 6e 20 74 68  terp..  # Run th
a960: 65 20 74 65 73 74 20 73 63 72 69 70 74 2e 0a 20  e test script.. 
a970: 20 69 6e 74 65 72 70 20 65 76 61 6c 20 74 69 6e   interp eval tin
a980: 74 65 72 70 20 24 73 63 72 69 70 74 0a 0a 20 20  terp $script..  
a990: 23 20 43 68 65 63 6b 20 69 66 20 74 68 65 20 69  # Check if the i
a9a0: 6e 74 65 72 70 72 65 74 65 72 20 63 61 6c 6c 20  nterpreter call 
a9b0: 5b 72 75 6e 5f 74 68 72 65 61 64 5f 74 65 73 74  [run_thread_test
a9c0: 73 5d 0a 20 20 69 66 20 7b 20 5b 69 6e 74 65 72  s].  if { [inter
a9d0: 70 20 65 76 61 6c 20 74 69 6e 74 65 72 70 20 7b  p eval tinterp {
a9e0: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 72 75  info exists ::ru
a9f0: 6e 5f 74 68 72 65 61 64 5f 74 65 73 74 73 5f 63  n_thread_tests_c
aa00: 61 6c 6c 65 64 7d 5d 20 7d 20 7b 0a 20 20 20 20  alled}] } {.    
aa10: 73 65 74 20 3a 3a 72 75 6e 5f 74 68 72 65 61 64  set ::run_thread
aa20: 5f 74 65 73 74 73 5f 63 61 6c 6c 65 64 20 31 0a  _tests_called 1.
aa30: 20 20 7d 0a 0a 20 20 23 20 44 65 6c 65 74 65 20    }..  # Delete 
aa40: 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 20  the interpreter 
aa50: 75 73 65 64 20 74 6f 20 72 75 6e 20 74 68 65 20  used to run the 
aa60: 74 65 73 74 20 73 63 72 69 70 74 2e 0a 20 20 69  test script..  i
aa70: 6e 74 65 72 70 20 64 65 6c 65 74 65 20 74 69 6e  nterp delete tin
aa80: 74 65 72 70 0a 7d 0a 0a 70 72 6f 63 20 73 6c 61  terp.}..proc sla
aa90: 76 65 5f 74 65 73 74 5f 66 69 6c 65 20 7b 7a 46  ve_test_file {zF
aaa0: 69 6c 65 7d 20 7b 0a 20 20 73 65 74 20 74 61 69  ile} {.  set tai
aab0: 6c 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 7a 46  l [file tail $zF
aac0: 69 6c 65 5d 0a 0a 20 20 69 66 20 7b 5b 69 6e 66  ile]..  if {[inf
aad0: 6f 20 65 78 69 73 74 73 20 3a 3a 47 28 73 74 61  o exists ::G(sta
aae0: 72 74 3a 70 65 72 6d 75 74 61 74 69 6f 6e 29 5d  rt:permutation)]
aaf0: 7d 20 7b 0a 20 20 20 20 69 66 20 7b 5b 70 65 72  } {.    if {[per
ab00: 6d 75 74 61 74 69 6f 6e 5d 20 21 3d 20 24 3a 3a  mutation] != $::
ab10: 47 28 73 74 61 72 74 3a 70 65 72 6d 75 74 61 74  G(start:permutat
ab20: 69 6f 6e 29 7d 20 72 65 74 75 72 6e 0a 20 20 20  ion)} return.   
ab30: 20 75 6e 73 65 74 20 3a 3a 47 28 73 74 61 72 74   unset ::G(start
ab40: 3a 70 65 72 6d 75 74 61 74 69 6f 6e 29 0a 20 20  :permutation).  
ab50: 7d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78  }.  if {[info ex
ab60: 69 73 74 73 20 3a 3a 47 28 73 74 61 72 74 3a 66  ists ::G(start:f
ab70: 69 6c 65 29 5d 7d 20 7b 0a 20 20 20 20 69 66 20  ile)]} {.    if 
ab80: 7b 24 74 61 69 6c 20 21 3d 20 24 3a 3a 47 28 73  {$tail != $::G(s
ab90: 74 61 72 74 3a 66 69 6c 65 29 20 26 26 20 24 74  tart:file) && $t
aba0: 61 69 6c 21 3d 22 24 3a 3a 47 28 73 74 61 72 74  ail!="$::G(start
abb0: 3a 66 69 6c 65 29 2e 74 65 73 74 22 7d 20 72 65  :file).test"} re
abc0: 74 75 72 6e 0a 20 20 20 20 75 6e 73 65 74 20 3a  turn.    unset :
abd0: 3a 47 28 73 74 61 72 74 3a 66 69 6c 65 29 0a 20  :G(start:file). 
abe0: 20 7d 0a 0a 20 20 23 20 52 65 6d 65 6d 62 65 72   }..  # Remember
abf0: 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68   the value of th
ac00: 65 20 73 68 61 72 65 64 2d 63 61 63 68 65 20 73  e shared-cache s
ac10: 65 74 74 69 6e 67 2e 20 53 6f 20 74 68 61 74 20  etting. So that 
ac20: 69 74 20 69 73 20 70 6f 73 73 69 62 6c 65 0a 20  it is possible. 
ac30: 20 23 20 74 6f 20 63 68 65 63 6b 20 61 66 74 65   # to check afte
ac40: 72 77 61 72 64 73 20 74 68 61 74 20 69 74 20 77  rwards that it w
ac50: 61 73 20 6e 6f 74 20 6d 6f 64 69 66 69 65 64 20  as not modified 
ac60: 62 79 20 74 68 65 20 74 65 73 74 20 73 63 72 69  by the test scri
ac70: 70 74 2e 0a 20 20 23 0a 20 20 69 66 63 61 70 61  pt..  #.  ifcapa
ac80: 62 6c 65 20 73 68 61 72 65 64 5f 63 61 63 68 65  ble shared_cache
ac90: 20 7b 20 73 65 74 20 73 63 73 20 5b 73 71 6c 69   { set scs [sqli
aca0: 74 65 33 5f 65 6e 61 62 6c 65 5f 73 68 61 72 65  te3_enable_share
acb0: 64 5f 63 61 63 68 65 5d 20 7d 0a 0a 20 20 23 20  d_cache] }..  # 
acc0: 52 75 6e 20 74 68 65 20 74 65 73 74 20 73 63 72  Run the test scr
acd0: 69 70 74 20 69 6e 20 61 20 73 6c 61 76 65 20 69  ipt in a slave i
ace0: 6e 74 65 72 70 72 65 74 65 72 2e 0a 20 20 23 0a  nterpreter..  #.
acf0: 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c    unset -nocompl
ad00: 61 69 6e 20 3a 3a 72 75 6e 5f 74 68 72 65 61 64  ain ::run_thread
ad10: 5f 74 65 73 74 73 5f 63 61 6c 6c 65 64 0a 20 20  _tests_called.  
ad20: 72 65 73 65 74 5f 70 72 6e 67 5f 73 74 61 74 65  reset_prng_state
ad30: 0a 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f  .  set ::sqlite_
ad40: 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 20  open_file_count 
ad50: 30 0a 20 20 73 65 74 20 74 69 6d 65 20 5b 74 69  0.  set time [ti
ad60: 6d 65 20 7b 20 73 6c 61 76 65 5f 74 65 73 74 5f  me { slave_test_
ad70: 73 63 72 69 70 74 20 5b 6c 69 73 74 20 73 6f 75  script [list sou
ad80: 72 63 65 20 24 7a 46 69 6c 65 5d 20 7d 5d 0a 20  rce $zFile] }]. 
ad90: 20 73 65 74 20 6d 73 20 5b 65 78 70 72 20 5b 6c   set ms [expr [l
ada0: 69 6e 64 65 78 20 24 74 69 6d 65 20 30 5d 20 2f  index $time 0] /
adb0: 20 31 30 30 30 5d 0a 0a 20 20 23 20 54 65 73 74   1000]..  # Test
adc0: 20 74 68 61 74 20 61 6c 6c 20 66 69 6c 65 73 20   that all files 
add0: 6f 70 65 6e 65 64 20 62 79 20 74 68 65 20 74 65  opened by the te
ade0: 73 74 20 73 63 72 69 70 74 20 77 65 72 65 20 63  st script were c
adf0: 6c 6f 73 65 64 2e 20 4f 6d 69 74 20 74 68 69 73  losed. Omit this
ae00: 0a 20 20 23 20 69 66 20 74 68 65 20 74 65 73 74  .  # if the test
ae10: 20 73 63 72 69 70 74 20 68 61 73 20 22 74 68 72   script has "thr
ae20: 65 61 64 22 20 69 6e 20 69 74 73 20 6e 61 6d 65  ead" in its name
ae30: 2e 20 54 68 65 20 6f 70 65 6e 20 66 69 6c 65 20  . The open file 
ae40: 63 6f 75 6e 74 65 72 0a 20 20 23 20 69 73 20 6e  counter.  # is n
ae50: 6f 74 20 74 68 72 65 61 64 2d 73 61 66 65 2e 0a  ot thread-safe..
ae60: 20 20 23 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20    #.  if {[info 
ae70: 65 78 69 73 74 73 20 3a 3a 72 75 6e 5f 74 68 72  exists ::run_thr
ae80: 65 61 64 5f 74 65 73 74 73 5f 63 61 6c 6c 65 64  ead_tests_called
ae90: 5d 3d 3d 30 7d 20 7b 0a 20 20 20 20 64 6f 5f 74  ]==0} {.    do_t
aea0: 65 73 74 20 24 7b 74 61 69 6c 7d 2d 63 6c 6f 73  est ${tail}-clos
aeb0: 65 61 6c 6c 66 69 6c 65 73 20 7b 20 65 78 70 72  eallfiles { expr
aec0: 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 6f 70 65 6e   {$::sqlite_open
aed0: 5f 66 69 6c 65 5f 63 6f 75 6e 74 3e 30 7d 20 7d  _file_count>0} }
aee0: 20 7b 30 7d 0a 20 20 7d 0a 20 20 73 65 74 20 3a   {0}.  }.  set :
aef0: 3a 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c  :sqlite_open_fil
af00: 65 5f 63 6f 75 6e 74 20 30 0a 0a 20 20 23 20 54  e_count 0..  # T
af10: 65 73 74 20 74 68 61 74 20 74 68 65 20 67 6c 6f  est that the glo
af20: 62 61 6c 20 22 73 68 61 72 65 64 2d 63 61 63 68  bal "shared-cach
af30: 65 22 20 73 65 74 74 69 6e 67 20 77 61 73 20 6e  e" setting was n
af40: 6f 74 20 61 6c 74 65 72 65 64 20 62 79 20 0a 20  ot altered by . 
af50: 20 23 20 74 68 65 20 74 65 73 74 20 73 63 72 69   # the test scri
af60: 70 74 2e 0a 20 20 23 0a 20 20 69 66 63 61 70 61  pt..  #.  ifcapa
af70: 62 6c 65 20 73 68 61 72 65 64 5f 63 61 63 68 65  ble shared_cache
af80: 20 7b 20 0a 20 20 20 20 73 65 74 20 72 65 73 20   { .    set res 
af90: 5b 65 78 70 72 20 7b 5b 73 71 6c 69 74 65 33 5f  [expr {[sqlite3_
afa0: 65 6e 61 62 6c 65 5f 73 68 61 72 65 64 5f 63 61  enable_shared_ca
afb0: 63 68 65 5d 20 3d 3d 20 24 73 63 73 7d 5d 0a 20  che] == $scs}]. 
afc0: 20 20 20 64 6f 5f 74 65 73 74 20 24 7b 74 61 69     do_test ${tai
afd0: 6c 7d 2d 73 68 61 72 65 64 63 61 63 68 65 73 65  l}-sharedcachese
afe0: 74 74 69 6e 67 20 5b 6c 69 73 74 20 73 65 74 20  tting [list set 
aff0: 7b 7d 20 24 72 65 73 5d 20 31 0a 20 20 7d 0a 0a  {} $res] 1.  }..
b000: 20 20 23 20 41 64 64 20 73 6f 6d 65 20 69 6e 66    # Add some inf
b010: 6f 20 74 6f 20 74 68 65 20 6f 75 74 70 75 74 2e  o to the output.
b020: 0a 20 20 23 0a 20 20 70 75 74 73 20 22 54 69 6d  .  #.  puts "Tim
b030: 65 3a 20 24 74 61 69 6c 20 24 6d 73 20 6d 73 22  e: $tail $ms ms"
b040: 0a 20 20 73 68 6f 77 5f 6d 65 6d 73 74 61 74 73  .  show_memstats
b050: 0a 7d 0a 0a 23 20 4f 70 65 6e 20 61 20 6e 65 77  .}..# Open a new
b060: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6f 6e 20 64   connection on d
b070: 61 74 61 62 61 73 65 20 74 65 73 74 2e 64 62 20  atabase test.db 
b080: 61 6e 64 20 65 78 65 63 75 74 65 20 74 68 65 20  and execute the 
b090: 53 51 4c 20 73 63 72 69 70 74 0a 23 20 73 75 70  SQL script.# sup
b0a0: 70 6c 69 65 64 20 61 73 20 61 6e 20 61 72 67 75  plied as an argu
b0b0: 6d 65 6e 74 2e 20 42 65 66 6f 72 65 20 72 65 74  ment. Before ret
b0c0: 75 72 6e 69 6e 67 2c 20 63 6c 6f 73 65 20 74 68  urning, close th
b0d0: 65 20 6e 65 77 20 63 6f 6e 65 63 74 69 6f 6e 20  e new conection 
b0e0: 61 6e 64 0a 23 20 72 65 73 74 6f 72 65 20 74 68  and.# restore th
b0f0: 65 20 34 20 62 79 74 65 20 66 69 65 6c 64 73 20  e 4 byte fields 
b100: 73 74 61 72 74 69 6e 67 20 61 74 20 68 65 61 64  starting at head
b110: 65 72 20 6f 66 66 73 65 74 73 20 32 38 2c 20 39  er offsets 28, 9
b120: 32 20 61 6e 64 20 39 36 0a 23 20 74 6f 20 74 68  2 and 96.# to th
b130: 65 20 76 61 6c 75 65 73 20 74 68 65 79 20 68 65  e values they he
b140: 6c 64 20 62 65 66 6f 72 65 20 74 68 65 20 53 51  ld before the SQ
b150: 4c 20 77 61 73 20 65 78 65 63 75 74 65 64 2e 20  L was executed. 
b160: 54 68 69 73 20 73 69 6d 75 6c 61 74 65 73 0a 23  This simulates.#
b170: 20 61 20 77 72 69 74 65 20 62 79 20 61 20 70 72   a write by a pr
b180: 65 2d 33 2e 37 2e 30 20 63 6c 69 65 6e 74 2e 0a  e-3.7.0 client..
b190: 23 0a 70 72 6f 63 20 73 71 6c 33 36 32 33 31 20  #.proc sql36231 
b1a0: 7b 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20 42 20  {sql} {.  set B 
b1b0: 5b 68 65 78 69 6f 5f 72 65 61 64 20 74 65 73 74  [hexio_read test
b1c0: 2e 64 62 20 39 32 20 38 5d 0a 20 20 73 65 74 20  .db 92 8].  set 
b1d0: 41 20 5b 68 65 78 69 6f 5f 72 65 61 64 20 74 65  A [hexio_read te
b1e0: 73 74 2e 64 62 20 32 38 20 34 5d 0a 20 20 73 71  st.db 28 4].  sq
b1f0: 6c 69 74 65 33 20 64 62 33 36 32 33 31 20 74 65  lite3 db36231 te
b200: 73 74 2e 64 62 0a 20 20 63 61 74 63 68 20 7b 20  st.db.  catch { 
b210: 64 62 33 36 32 33 31 20 66 75 6e 63 20 61 5f 73  db36231 func a_s
b220: 74 72 69 6e 67 20 61 5f 73 74 72 69 6e 67 20 7d  tring a_string }
b230: 0a 20 20 65 78 65 63 73 71 6c 20 24 73 71 6c 20  .  execsql $sql 
b240: 64 62 33 36 32 33 31 0a 20 20 64 62 33 36 32 33  db36231.  db3623
b250: 31 20 63 6c 6f 73 65 0a 20 20 68 65 78 69 6f 5f  1 close.  hexio_
b260: 77 72 69 74 65 20 74 65 73 74 2e 64 62 20 32 38  write test.db 28
b270: 20 24 41 0a 20 20 68 65 78 69 6f 5f 77 72 69 74   $A.  hexio_writ
b280: 65 20 74 65 73 74 2e 64 62 20 39 32 20 24 42 0a  e test.db 92 $B.
b290: 20 20 72 65 74 75 72 6e 20 22 22 0a 7d 0a 0a 70    return "".}..p
b2a0: 72 6f 63 20 64 62 5f 73 61 76 65 20 7b 7d 20 7b  roc db_save {} {
b2b0: 0a 20 20 66 6f 72 65 61 63 68 20 66 20 5b 67 6c  .  foreach f [gl
b2c0: 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 73  ob -nocomplain s
b2d0: 76 5f 74 65 73 74 2e 64 62 2a 5d 20 7b 20 66 6f  v_test.db*] { fo
b2e0: 72 63 65 64 65 6c 65 74 65 20 24 66 20 7d 0a 20  rcedelete $f }. 
b2f0: 20 66 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f 62   foreach f [glob
b300: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 73   -nocomplain tes
b310: 74 2e 64 62 2a 5d 20 7b 0a 20 20 20 20 73 65 74  t.db*] {.    set
b320: 20 66 32 20 22 73 76 5f 24 66 22 0a 20 20 20 20   f2 "sv_$f".    
b330: 66 6f 72 63 65 63 6f 70 79 20 24 66 20 24 66 32  forcecopy $f $f2
b340: 0a 20 20 7d 0a 7d 0a 70 72 6f 63 20 64 62 5f 73  .  }.}.proc db_s
b350: 61 76 65 5f 61 6e 64 5f 63 6c 6f 73 65 20 7b 7d  ave_and_close {}
b360: 20 7b 0a 20 20 64 62 5f 73 61 76 65 0a 20 20 63   {.  db_save.  c
b370: 61 74 63 68 20 7b 20 64 62 20 63 6c 6f 73 65 20  atch { db close 
b380: 7d 0a 20 20 72 65 74 75 72 6e 20 22 22 0a 7d 0a  }.  return "".}.
b390: 70 72 6f 63 20 64 62 5f 72 65 73 74 6f 72 65 20  proc db_restore 
b3a0: 7b 7d 20 7b 0a 20 20 66 6f 72 65 61 63 68 20 66  {} {.  foreach f
b3b0: 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61   [glob -nocompla
b3c0: 69 6e 20 74 65 73 74 2e 64 62 2a 5d 20 7b 20 66  in test.db*] { f
b3d0: 6f 72 63 65 64 65 6c 65 74 65 20 24 66 20 7d 0a  orcedelete $f }.
b3e0: 20 20 66 6f 72 65 61 63 68 20 66 32 20 5b 67 6c    foreach f2 [gl
b3f0: 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 73  ob -nocomplain s
b400: 76 5f 74 65 73 74 2e 64 62 2a 5d 20 7b 0a 20 20  v_test.db*] {.  
b410: 20 20 73 65 74 20 66 20 5b 73 74 72 69 6e 67 20    set f [string 
b420: 72 61 6e 67 65 20 24 66 32 20 33 20 65 6e 64 5d  range $f2 3 end]
b430: 0a 20 20 20 20 66 6f 72 63 65 63 6f 70 79 20 24  .    forcecopy $
b440: 66 32 20 24 66 0a 20 20 7d 0a 7d 0a 70 72 6f 63  f2 $f.  }.}.proc
b450: 20 64 62 5f 72 65 73 74 6f 72 65 5f 61 6e 64 5f   db_restore_and_
b460: 72 65 6f 70 65 6e 20 7b 7b 64 62 66 69 6c 65 20  reopen {{dbfile 
b470: 74 65 73 74 2e 64 62 7d 7d 20 7b 0a 20 20 63 61  test.db}} {.  ca
b480: 74 63 68 20 7b 20 64 62 20 63 6c 6f 73 65 20 7d  tch { db close }
b490: 0a 20 20 64 62 5f 72 65 73 74 6f 72 65 0a 20 20  .  db_restore.  
b4a0: 73 71 6c 69 74 65 33 20 64 62 20 24 64 62 66 69  sqlite3 db $dbfi
b4b0: 6c 65 0a 7d 0a 70 72 6f 63 20 64 62 5f 64 65 6c  le.}.proc db_del
b4c0: 65 74 65 5f 61 6e 64 5f 72 65 6f 70 65 6e 20 7b  ete_and_reopen {
b4d0: 7b 66 69 6c 65 20 74 65 73 74 2e 64 62 7d 7d 20  {file test.db}} 
b4e0: 7b 0a 20 20 63 61 74 63 68 20 7b 20 64 62 20 63  {.  catch { db c
b4f0: 6c 6f 73 65 20 7d 0a 20 20 66 6f 72 65 61 63 68  lose }.  foreach
b500: 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70   f [glob -nocomp
b510: 6c 61 69 6e 20 74 65 73 74 2e 64 62 2a 5d 20 7b  lain test.db*] {
b520: 20 66 6f 72 63 65 64 65 6c 65 74 65 20 24 66 20   forcedelete $f 
b530: 7d 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20 24  }.  sqlite3 db $
b540: 66 69 6c 65 0a 7d 0a 0a 23 20 49 66 20 74 68 65  file.}..# If the
b550: 20 6c 69 62 72 61 72 79 20 69 73 20 63 6f 6d 70   library is comp
b560: 69 6c 65 64 20 77 69 74 68 20 74 68 65 20 53 51  iled with the SQ
b570: 4c 49 54 45 5f 44 45 46 41 55 4c 54 5f 41 55 54  LITE_DEFAULT_AUT
b580: 4f 56 41 43 55 55 4d 20 6d 61 63 72 6f 20 73 65  OVACUUM macro se
b590: 74 0a 23 20 74 6f 20 6e 6f 6e 2d 7a 65 72 6f 2c  t.# to non-zero,
b5a0: 20 74 68 65 6e 20 73 65 74 20 74 68 65 20 67 6c   then set the gl
b5b0: 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 24 41  obal variable $A
b5c0: 55 54 4f 56 41 43 55 55 4d 20 74 6f 20 31 2e 0a  UTOVACUUM to 1..
b5d0: 73 65 74 20 41 55 54 4f 56 41 43 55 55 4d 20 24  set AUTOVACUUM $
b5e0: 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 28 64  sqlite_options(d
b5f0: 65 66 61 75 6c 74 5f 61 75 74 6f 76 61 63 75 75  efault_autovacuu
b600: 6d 29 0a 0a 73 6f 75 72 63 65 20 24 74 65 73 74  m)..source $test
b610: 64 69 72 2f 74 68 72 65 61 64 5f 63 6f 6d 6d 6f  dir/thread_commo
b620: 6e 2e 74 63 6c 0a 73 6f 75 72 63 65 20 24 74 65  n.tcl.source $te
b630: 73 74 64 69 72 2f 6d 61 6c 6c 6f 63 5f 63 6f 6d  stdir/malloc_com
b640: 6d 6f 6e 2e 74 63 6c 0a                          mon.tcl.