/ Hex Artifact Content
Login

Artifact bc0889a2f86d9c17307992ca1e70391794780265:


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 0a 23 20 74 65 73 74 20 63  reating.# test c
02a0: 61 73 65 73 20 61 72 65 20 61 73 20 66 6f 6c 6c  ases are as foll
02b0: 6f 77 73 3a 0a 23 0a 23 20 43 6f 6d 6d 61 6e 64  ows:.#.# Command
02c0: 73 20 74 6f 20 6d 61 6e 69 70 75 6c 61 74 65 20  s to manipulate 
02d0: 74 68 65 20 64 62 20 61 6e 64 20 74 68 65 20 66  the db and the f
02e0: 69 6c 65 2d 73 79 73 74 65 6d 20 61 74 20 61 20  ile-system at a 
02f0: 68 69 67 68 20 6c 65 76 65 6c 3a 0a 23 0a 23 20  high level:.#.# 
0300: 20 20 20 20 20 69 73 5f 72 65 6c 61 74 69 76 65       is_relative
0310: 5f 66 69 6c 65 0a 23 20 20 20 20 20 20 74 65 73  _file.#      tes
0320: 74 5f 70 77 64 0a 23 20 20 20 20 20 20 67 65 74  t_pwd.#      get
0330: 5f 70 77 64 0a 23 20 20 20 20 20 20 63 6f 70 79  _pwd.#      copy
0340: 5f 66 69 6c 65 20 20 20 20 20 20 20 20 20 20 20  _file           
0350: 20 20 20 46 52 4f 4d 20 54 4f 0a 23 20 20 20 20     FROM TO.#    
0360: 20 20 64 65 6c 65 74 65 5f 66 69 6c 65 20 20 20    delete_file   
0370: 20 20 20 20 20 20 20 20 20 46 49 4c 45 4e 41 4d           FILENAM
0380: 45 0a 23 20 20 20 20 20 20 64 72 6f 70 5f 61 6c  E.#      drop_al
0390: 6c 5f 74 61 62 6c 65 73 20 20 20 20 20 20 20 20  l_tables        
03a0: 3f 44 42 3f 0a 23 20 20 20 20 20 20 66 6f 72 63  ?DB?.#      forc
03b0: 65 63 6f 70 79 20 20 20 20 20 20 20 20 20 20 20  ecopy           
03c0: 20 20 20 46 52 4f 4d 20 54 4f 0a 23 20 20 20 20     FROM TO.#    
03d0: 20 20 66 6f 72 63 65 64 65 6c 65 74 65 20 20 20    forcedelete   
03e0: 20 20 20 20 20 20 20 20 20 46 49 4c 45 4e 41 4d           FILENAM
03f0: 45 0a 23 0a 23 20 54 65 73 74 20 74 68 65 20 63  E.#.# Test the c
0400: 61 70 61 62 69 6c 69 74 79 20 6f 66 20 74 68 65  apability of the
0410: 20 53 51 4c 69 74 65 20 76 65 72 73 69 6f 6e 20   SQLite version 
0420: 62 75 69 6c 74 20 69 6e 74 6f 20 74 68 65 20 69  built into the i
0430: 6e 74 65 72 70 72 65 74 65 72 20 74 6f 0a 23 20  nterpreter to.# 
0440: 64 65 74 65 72 6d 69 6e 65 20 69 66 20 61 20 73  determine if a s
0450: 70 65 63 69 66 69 63 20 74 65 73 74 20 63 61 6e  pecific test can
0460: 20 62 65 20 72 75 6e 3a 0a 23 0a 23 20 20 20 20   be run:.#.#    
0470: 20 20 63 61 70 61 62 6c 65 20 20 20 20 20 20 20    capable       
0480: 20 20 20 20 20 20 20 20 20 45 58 50 52 0a 23 20           EXPR.# 
0490: 20 20 20 20 20 69 66 63 61 70 61 62 6c 65 20 20       ifcapable  
04a0: 20 20 20 20 20 20 20 20 20 20 20 20 45 58 50 52              EXPR
04b0: 0a 23 0a 23 20 43 61 6c 75 6c 61 74 65 20 63 68  .#.# Calulate ch
04c0: 65 63 6b 73 75 6d 73 20 62 61 73 65 64 20 6f 6e  ecksums based on
04d0: 20 64 61 74 61 62 61 73 65 20 63 6f 6e 74 65 6e   database conten
04e0: 74 73 3a 0a 23 0a 23 20 20 20 20 20 20 64 62 63  ts:.#.#      dbc
04f0: 6b 73 75 6d 20 20 20 20 20 20 20 20 20 20 20 20  ksum            
0500: 20 20 20 20 44 42 20 44 42 4e 41 4d 45 0a 23 20      DB DBNAME.# 
0510: 20 20 20 20 20 61 6c 6c 63 6b 73 75 6d 20 20 20       allcksum   
0520: 20 20 20 20 20 20 20 20 20 20 20 20 3f 44 42 3f              ?DB?
0530: 0a 23 20 20 20 20 20 20 63 6b 73 75 6d 20 20 20  .#      cksum   
0540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3f                 ?
0550: 44 42 3f 0a 23 0a 23 20 43 6f 6d 6d 61 6e 64 73  DB?.#.# Commands
0560: 20 74 6f 20 65 78 65 63 75 74 65 2f 65 78 70 6c   to execute/expl
0570: 61 69 6e 20 53 51 4c 20 73 74 61 74 65 6d 65 6e  ain SQL statemen
0580: 74 73 3a 0a 23 0a 23 20 20 20 20 20 20 6d 65 6d  ts:.#.#      mem
0590: 64 62 73 71 6c 20 20 20 20 20 20 20 20 20 20 20  dbsql           
05a0: 20 20 20 20 53 51 4c 0a 23 20 20 20 20 20 20 73      SQL.#      s
05b0: 74 65 70 73 71 6c 20 20 20 20 20 20 20 20 20 20  tepsql          
05c0: 20 20 20 20 20 20 44 42 20 53 51 4c 0a 23 20 20        DB SQL.#  
05d0: 20 20 20 20 65 78 65 63 73 71 6c 32 20 20 20 20      execsql2    
05e0: 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 0a 23             SQL.#
05f0: 20 20 20 20 20 20 65 78 70 6c 61 69 6e 5f 6e 6f        explain_no
0600: 5f 74 72 61 63 65 20 20 20 20 20 20 20 53 51 4c  _trace       SQL
0610: 0a 23 20 20 20 20 20 20 65 78 70 6c 61 69 6e 20  .#      explain 
0620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53                 S
0630: 51 4c 20 3f 44 42 3f 0a 23 20 20 20 20 20 20 63  QL ?DB?.#      c
0640: 61 74 63 68 73 71 6c 20 20 20 20 20 20 20 20 20  atchsql         
0650: 20 20 20 20 20 20 53 51 4c 20 3f 44 42 3f 0a 23        SQL ?DB?.#
0660: 20 20 20 20 20 20 65 78 65 63 73 71 6c 20 20 20        execsql   
0670: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51 4c               SQL
0680: 20 3f 44 42 3f 0a 23 0a 23 20 43 6f 6d 6d 61 6e   ?DB?.#.# Comman
0690: 64 73 20 74 6f 20 72 75 6e 20 74 65 73 74 20 63  ds to run test c
06a0: 61 73 65 73 3a 0a 23 0a 23 20 20 20 20 20 20 64  ases:.#.#      d
06b0: 6f 5f 69 6f 65 72 72 5f 74 65 73 74 20 20 20 20  o_ioerr_test    
06c0: 20 20 20 20 20 20 54 45 53 54 4e 41 4d 45 20 41        TESTNAME A
06d0: 52 47 53 2e 2e 2e 0a 23 20 20 20 20 20 20 63 72  RGS....#      cr
06e0: 61 73 68 73 71 6c 20 20 20 20 20 20 20 20 20 20  ashsql          
06f0: 20 20 20 20 20 41 52 47 53 2e 2e 2e 0a 23 20 20       ARGS....#  
0700: 20 20 20 20 69 6e 74 65 67 72 69 74 79 5f 63 68      integrity_ch
0710: 65 63 6b 20 20 20 20 20 20 20 20 54 45 53 54 4e  eck        TESTN
0720: 41 4d 45 20 3f 44 42 3f 0a 23 20 20 20 20 20 20  AME ?DB?.#      
0730: 76 65 72 69 66 79 5f 65 78 5f 65 72 72 63 6f 64  verify_ex_errcod
0740: 65 20 20 20 20 20 20 54 45 53 54 4e 41 4d 45 20  e      TESTNAME 
0750: 45 58 50 45 43 54 45 44 20 3f 44 42 3f 0a 23 20  EXPECTED ?DB?.# 
0760: 20 20 20 20 20 64 6f 5f 74 65 73 74 20 20 20 20       do_test    
0770: 20 20 20 20 20 20 20 20 20 20 20 20 54 45 53 54              TEST
0780: 4e 41 4d 45 20 53 43 52 49 50 54 20 45 58 50 45  NAME SCRIPT EXPE
0790: 43 54 45 44 0a 23 20 20 20 20 20 20 64 6f 5f 65  CTED.#      do_e
07a0: 78 65 63 73 71 6c 5f 74 65 73 74 20 20 20 20 20  xecsql_test     
07b0: 20 20 20 54 45 53 54 4e 41 4d 45 20 53 51 4c 20     TESTNAME SQL 
07c0: 45 58 50 45 43 54 45 44 0a 23 20 20 20 20 20 20  EXPECTED.#      
07d0: 64 6f 5f 63 61 74 63 68 73 71 6c 5f 74 65 73 74  do_catchsql_test
07e0: 20 20 20 20 20 20 20 54 45 53 54 4e 41 4d 45 20         TESTNAME 
07f0: 53 51 4c 20 45 58 50 45 43 54 45 44 0a 23 20 20  SQL EXPECTED.#  
0800: 20 20 20 20 64 6f 5f 74 69 6d 65 64 5f 65 78 65      do_timed_exe
0810: 63 73 71 6c 5f 74 65 73 74 20 20 54 45 53 54 4e  csql_test  TESTN
0820: 41 4d 45 20 53 51 4c 20 45 58 50 45 43 54 45 44  AME SQL EXPECTED
0830: 0a 23 0a 23 20 43 6f 6d 6d 61 6e 64 73 20 70 72  .#.# Commands pr
0840: 6f 76 69 64 69 6e 67 20 61 20 6c 6f 77 65 72 20  oviding a lower 
0850: 6c 65 76 65 6c 20 69 6e 74 65 72 66 61 63 65 20  level interface 
0860: 74 6f 20 74 68 65 20 67 6c 6f 62 61 6c 20 74 65  to the global te
0870: 73 74 20 63 6f 75 6e 74 65 72 73 3a 0a 23 0a 23  st counters:.#.#
0880: 20 20 20 20 20 20 73 65 74 5f 74 65 73 74 5f 63        set_test_c
0890: 6f 75 6e 74 65 72 20 20 20 20 20 20 20 43 4f 55  ounter       COU
08a0: 4e 54 45 52 20 3f 56 41 4c 55 45 3f 0a 23 20 20  NTER ?VALUE?.#  
08b0: 20 20 20 20 6f 6d 69 74 5f 74 65 73 74 20 20 20      omit_test   
08c0: 20 20 20 20 20 20 20 20 20 20 20 54 45 53 54 4e             TESTN
08d0: 41 4d 45 20 52 45 41 53 4f 4e 20 3f 41 50 50 45  AME REASON ?APPE
08e0: 4e 44 3f 0a 23 20 20 20 20 20 20 66 61 69 6c 5f  ND?.#      fail_
08f0: 74 65 73 74 20 20 20 20 20 20 20 20 20 20 20 20  test            
0900: 20 20 54 45 53 54 4e 41 4d 45 0a 23 20 20 20 20    TESTNAME.#    
0910: 20 20 69 6e 63 72 5f 6e 74 65 73 74 0a 23 0a 23    incr_ntest.#.#
0920: 20 43 6f 6d 6d 61 6e 64 20 72 75 6e 20 61 74 20   Command run at 
0930: 74 68 65 20 65 6e 64 20 6f 66 20 65 61 63 68 20  the end of each 
0940: 74 65 73 74 20 66 69 6c 65 3a 0a 23 0a 23 20 20  test file:.#.#  
0950: 20 20 20 20 66 69 6e 69 73 68 5f 74 65 73 74 0a      finish_test.
0960: 23 0a 23 20 43 6f 6d 6d 61 6e 64 73 20 74 6f 20  #.# Commands to 
0970: 68 65 6c 70 20 63 72 65 61 74 65 20 74 65 73 74  help create test
0980: 20 66 69 6c 65 73 20 74 68 61 74 20 72 75 6e 20   files that run 
0990: 77 69 74 68 20 74 68 65 20 22 57 41 4c 22 20 61  with the "WAL" a
09a0: 6e 64 20 6f 74 68 65 72 0a 23 20 70 65 72 6d 75  nd other.# permu
09b0: 74 61 74 69 6f 6e 73 20 28 73 65 65 20 66 69 6c  tations (see fil
09c0: 65 20 70 65 72 6d 75 74 61 74 69 6f 6e 73 2e 74  e permutations.t
09d0: 65 73 74 29 3a 0a 23 0a 23 20 20 20 20 20 20 77  est):.#.#      w
09e0: 61 6c 5f 69 73 5f 77 61 6c 5f 6d 6f 64 65 0a 23  al_is_wal_mode.#
09f0: 20 20 20 20 20 20 77 61 6c 5f 73 65 74 5f 6a 6f        wal_set_jo
0a00: 75 72 6e 61 6c 5f 6d 6f 64 65 20 20 20 3f 44 42  urnal_mode   ?DB
0a10: 3f 0a 23 20 20 20 20 20 20 77 61 6c 5f 63 68 65  ?.#      wal_che
0a20: 63 6b 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20  ck_journal_mode 
0a30: 54 45 53 54 4e 41 4d 45 3f 44 42 3f 0a 23 20 20  TESTNAME?DB?.#  
0a40: 20 20 20 20 70 65 72 6d 75 74 61 74 69 6f 6e 0a      permutation.
0a50: 23 20 20 20 20 20 20 70 72 65 73 71 6c 0a 23 0a  #      presql.#.
0a60: 0a 23 20 53 65 74 20 74 68 65 20 70 72 65 63 69  .# Set the preci
0a70: 73 69 6f 6e 20 6f 66 20 46 50 20 61 72 69 74 68  sion of FP arith
0a80: 6d 61 74 69 63 20 75 73 65 64 20 62 79 20 74 68  matic used by th
0a90: 65 20 69 6e 74 65 72 70 72 65 74 65 72 2e 20 41  e interpreter. A
0aa0: 6e 64 0a 23 20 63 6f 6e 66 69 67 75 72 65 20 53  nd.# configure S
0ab0: 51 4c 69 74 65 20 74 6f 20 74 61 6b 65 20 64 61  QLite to take da
0ac0: 74 61 62 61 73 65 20 66 69 6c 65 20 6c 6f 63 6b  tabase file lock
0ad0: 73 20 6f 6e 20 74 68 65 20 70 61 67 65 20 74 68  s on the page th
0ae0: 61 74 20 62 65 67 69 6e 73 0a 23 20 36 34 4b 42  at begins.# 64KB
0af0: 20 69 6e 74 6f 20 74 68 65 20 64 61 74 61 62 61   into the databa
0b00: 73 65 20 66 69 6c 65 20 69 6e 73 74 65 61 64 20  se file instead 
0b10: 6f 66 20 74 68 65 20 6f 6e 65 20 31 47 42 20 69  of the one 1GB i
0b20: 6e 2e 20 54 68 69 73 20 6d 65 61 6e 73 0a 23 20  n. This means.# 
0b30: 74 68 65 20 63 6f 64 65 20 74 68 61 74 20 68 61  the code that ha
0b40: 6e 64 6c 65 73 20 74 68 61 74 20 73 70 65 63 69  ndles that speci
0b50: 61 6c 20 63 61 73 65 20 63 61 6e 20 62 65 20 74  al case can be t
0b60: 65 73 74 65 64 20 77 69 74 68 6f 75 74 20 63 72  ested without cr
0b70: 65 61 74 69 6e 67 0a 23 20 76 65 72 79 20 6c 61  eating.# very la
0b80: 72 67 65 20 64 61 74 61 62 61 73 65 20 66 69 6c  rge database fil
0b90: 65 73 2e 0a 23 0a 73 65 74 20 74 63 6c 5f 70 72  es..#.set tcl_pr
0ba0: 65 63 69 73 69 6f 6e 20 31 35 0a 73 71 6c 69 74  ecision 15.sqlit
0bb0: 65 33 5f 74 65 73 74 5f 63 6f 6e 74 72 6f 6c 5f  e3_test_control_
0bc0: 70 65 6e 64 69 6e 67 5f 62 79 74 65 20 30 78 30  pending_byte 0x0
0bd0: 30 31 30 30 30 30 0a 0a 0a 23 20 49 66 20 74 68  010000...# If th
0be0: 65 20 70 61 67 65 72 20 63 6f 64 65 63 20 69 73  e pager codec is
0bf0: 20 61 76 61 69 6c 61 62 6c 65 2c 20 63 72 65 61   available, crea
0c00: 74 65 20 61 20 77 72 61 70 70 65 72 20 66 6f 72  te a wrapper for
0c10: 20 74 68 65 20 5b 73 71 6c 69 74 65 33 5d 0a 23   the [sqlite3].#
0c20: 20 63 6f 6d 6d 61 6e 64 20 74 68 61 74 20 61 70   command that ap
0c30: 70 65 6e 64 73 20 22 2d 6b 65 79 20 7b 78 79 7a  pends "-key {xyz
0c40: 7a 79 7d 22 20 74 6f 20 74 68 65 20 63 6f 6d 6d  zy}" to the comm
0c50: 61 6e 64 20 6c 69 6e 65 2e 20 69 2e 65 2e 20 74  and line. i.e. t
0c60: 68 69 73 3a 0a 23 0a 23 20 20 20 20 20 73 71 6c  his:.#.#     sql
0c70: 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a  ite3 db test.db.
0c80: 23 0a 23 20 62 65 63 6f 6d 65 73 0a 23 0a 23 20  #.# becomes.#.# 
0c90: 20 20 20 20 73 71 6c 69 74 65 33 20 64 62 20 74      sqlite3 db t
0ca0: 65 73 74 2e 64 62 20 2d 6b 65 79 20 7b 78 79 7a  est.db -key {xyz
0cb0: 7a 79 7d 0a 23 0a 69 66 20 7b 5b 69 6e 66 6f 20  zy}.#.if {[info 
0cc0: 63 6f 6d 6d 61 6e 64 20 73 71 6c 69 74 65 5f 6f  command sqlite_o
0cd0: 72 69 67 5d 3d 3d 22 22 7d 20 7b 0a 20 20 72 65  rig]==""} {.  re
0ce0: 6e 61 6d 65 20 73 71 6c 69 74 65 33 20 73 71 6c  name sqlite3 sql
0cf0: 69 74 65 5f 6f 72 69 67 0a 20 20 70 72 6f 63 20  ite_orig.  proc 
0d00: 73 71 6c 69 74 65 33 20 7b 61 72 67 73 7d 20 7b  sqlite3 {args} {
0d10: 0a 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74  .    if {[llengt
0d20: 68 20 24 61 72 67 73 5d 3e 3d 32 20 26 26 20 5b  h $args]>=2 && [
0d30: 73 74 72 69 6e 67 20 69 6e 64 65 78 20 5b 6c 69  string index [li
0d40: 6e 64 65 78 20 24 61 72 67 73 20 30 5d 20 30 5d  ndex $args 0] 0]
0d50: 21 3d 22 2d 22 7d 20 7b 0a 20 20 20 20 20 20 23  !="-"} {.      #
0d60: 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73   This command is
0d70: 20 6f 70 65 6e 69 6e 67 20 61 20 6e 65 77 20 64   opening a new d
0d80: 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69  atabase connecti
0d90: 6f 6e 2e 0a 20 20 20 20 20 20 23 0a 20 20 20 20  on..      #.    
0da0: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73    if {[info exis
0db0: 74 73 20 3a 3a 47 28 70 65 72 6d 3a 73 71 6c 69  ts ::G(perm:sqli
0dc0: 74 65 33 5f 61 72 67 73 29 5d 7d 20 7b 0a 20 20  te3_args)]} {.  
0dd0: 20 20 20 20 20 20 73 65 74 20 61 72 67 73 20 5b        set args [
0de0: 63 6f 6e 63 61 74 20 24 61 72 67 73 20 24 3a 3a  concat $args $::
0df0: 47 28 70 65 72 6d 3a 73 71 6c 69 74 65 33 5f 61  G(perm:sqlite3_a
0e00: 72 67 73 29 5d 0a 20 20 20 20 20 20 7d 0a 20 20  rgs)].      }.  
0e10: 20 20 20 20 69 66 20 7b 5b 73 71 6c 69 74 65 5f      if {[sqlite_
0e20: 6f 72 69 67 20 2d 68 61 73 2d 63 6f 64 65 63 5d  orig -has-codec]
0e30: 20 26 26 20 21 5b 69 6e 66 6f 20 65 78 69 73 74   && ![info exist
0e40: 73 20 3a 3a 64 6f 5f 6e 6f 74 5f 75 73 65 5f 63  s ::do_not_use_c
0e50: 6f 64 65 63 5d 7d 20 7b 0a 20 20 20 20 20 20 20  odec]} {.       
0e60: 20 6c 61 70 70 65 6e 64 20 61 72 67 73 20 2d 6b   lappend args -k
0e70: 65 79 20 7b 78 79 7a 7a 79 7d 0a 20 20 20 20 20  ey {xyzzy}.     
0e80: 20 7d 0a 0a 20 20 20 20 20 20 73 65 74 20 72 65   }..      set re
0e90: 73 20 5b 75 70 6c 65 76 65 6c 20 31 20 73 71 6c  s [uplevel 1 sql
0ea0: 69 74 65 5f 6f 72 69 67 20 24 61 72 67 73 5d 0a  ite_orig $args].
0eb0: 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20        if {[info 
0ec0: 65 78 69 73 74 73 20 3a 3a 47 28 70 65 72 6d 3a  exists ::G(perm:
0ed0: 70 72 65 73 71 6c 29 5d 7d 20 7b 0a 20 20 20 20  presql)]} {.    
0ee0: 20 20 20 20 5b 6c 69 6e 64 65 78 20 24 61 72 67      [lindex $arg
0ef0: 73 20 30 5d 20 65 76 61 6c 20 24 3a 3a 47 28 70  s 0] eval $::G(p
0f00: 65 72 6d 3a 70 72 65 73 71 6c 29 0a 20 20 20 20  erm:presql).    
0f10: 20 20 7d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69    }.      if {[i
0f20: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 47 28 70  nfo exists ::G(p
0f30: 65 72 6d 3a 64 62 63 6f 6e 66 69 67 29 5d 7d 20  erm:dbconfig)]} 
0f40: 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a  {.        set ::
0f50: 64 62 68 61 6e 64 6c 65 20 5b 6c 69 6e 64 65 78  dbhandle [lindex
0f60: 20 24 61 72 67 73 20 30 5d 0a 20 20 20 20 20 20   $args 0].      
0f70: 20 20 75 70 6c 65 76 65 6c 20 23 30 20 24 3a 3a    uplevel #0 $::
0f80: 47 28 70 65 72 6d 3a 64 62 63 6f 6e 66 69 67 29  G(perm:dbconfig)
0f90: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 73  .      }.      s
0fa0: 65 74 20 72 65 73 0a 20 20 20 20 7d 20 65 6c 73  et res.    } els
0fb0: 65 20 7b 0a 20 20 20 20 20 20 23 20 54 68 69 73  e {.      # This
0fc0: 20 63 6f 6d 6d 61 6e 64 20 69 73 20 6e 6f 74 20   command is not 
0fd0: 6f 70 65 6e 69 6e 67 20 61 20 6e 65 77 20 64 61  opening a new da
0fe0: 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f  tabase connectio
0ff0: 6e 2e 20 50 61 73 73 20 74 68 65 0a 20 20 20 20  n. Pass the.    
1000: 20 20 23 20 61 72 67 75 6d 65 6e 74 73 20 74 68    # arguments th
1010: 72 6f 75 67 68 20 74 6f 20 74 68 65 20 43 20 69  rough to the C i
1020: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 73  mplementation as
1030: 20 74 68 65 20 61 72 65 2e 0a 20 20 20 20 20 20   the are..      
1040: 23 0a 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20  #.      uplevel 
1050: 31 20 73 71 6c 69 74 65 5f 6f 72 69 67 20 24 61  1 sqlite_orig $a
1060: 72 67 73 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a  rgs.    }.  }.}.
1070: 0a 70 72 6f 63 20 67 65 74 46 69 6c 65 52 65 74  .proc getFileRet
1080: 72 69 65 73 20 7b 7d 20 7b 0a 20 20 69 66 20 7b  ries {} {.  if {
1090: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  ![info exists ::
10a0: 47 28 66 69 6c 65 2d 72 65 74 72 69 65 73 29 5d  G(file-retries)]
10b0: 7d 20 7b 0a 20 20 20 20 23 0a 20 20 20 20 23 20  } {.    #.    # 
10c0: 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20 74 68 65  NOTE: Return the
10d0: 20 64 65 66 61 75 6c 74 20 6e 75 6d 62 65 72 20   default number 
10e0: 6f 66 20 72 65 74 72 69 65 73 20 66 6f 72 20 5b  of retries for [
10f0: 66 69 6c 65 5d 20 6f 70 65 72 61 74 69 6f 6e 73  file] operations
1100: 2e 20 20 41 0a 20 20 20 20 23 20 20 20 20 20 20  .  A.    #      
1110: 20 76 61 6c 75 65 20 6f 66 20 7a 65 72 6f 20 6f   value of zero o
1120: 72 20 6c 65 73 73 20 68 65 72 65 20 6d 65 61 6e  r less here mean
1130: 73 20 22 64 69 73 61 62 6c 65 64 22 2e 0a 20 20  s "disabled"..  
1140: 20 20 23 0a 20 20 20 20 72 65 74 75 72 6e 20 5b    #.    return [
1150: 65 78 70 72 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61  expr {$::tcl_pla
1160: 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 20  tform(platform) 
1170: 65 71 20 22 77 69 6e 64 6f 77 73 22 20 3f 20 35  eq "windows" ? 5
1180: 30 20 3a 20 30 7d 5d 0a 20 20 7d 0a 20 20 72 65  0 : 0}].  }.  re
1190: 74 75 72 6e 20 24 3a 3a 47 28 66 69 6c 65 2d 72  turn $::G(file-r
11a0: 65 74 72 69 65 73 29 0a 7d 0a 0a 70 72 6f 63 20  etries).}..proc 
11b0: 67 65 74 46 69 6c 65 52 65 74 72 79 44 65 6c 61  getFileRetryDela
11c0: 79 20 7b 7d 20 7b 0a 20 20 69 66 20 7b 21 5b 69  y {} {.  if {![i
11d0: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 47 28 66  nfo exists ::G(f
11e0: 69 6c 65 2d 72 65 74 72 79 2d 64 65 6c 61 79 29  ile-retry-delay)
11f0: 5d 7d 20 7b 0a 20 20 20 20 23 0a 20 20 20 20 23  ]} {.    #.    #
1200: 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20 74 68   NOTE: Return th
1210: 65 20 64 65 66 61 75 6c 74 20 6e 75 6d 62 65 72  e default number
1220: 20 6f 66 20 6d 69 6c 6c 69 73 65 63 6f 6e 64 73   of milliseconds
1230: 20 74 6f 20 77 61 69 74 20 77 68 65 6e 20 72 65   to wait when re
1240: 74 72 79 69 6e 67 0a 20 20 20 20 23 20 20 20 20  trying.    #    
1250: 20 20 20 66 61 69 6c 65 64 20 5b 66 69 6c 65 5d     failed [file]
1260: 20 6f 70 65 72 61 74 69 6f 6e 73 2e 20 20 41 20   operations.  A 
1270: 76 61 6c 75 65 20 6f 66 20 7a 65 72 6f 20 6f 72  value of zero or
1280: 20 6c 65 73 73 20 6d 65 61 6e 73 20 22 64 6f 20   less means "do 
1290: 6e 6f 74 0a 20 20 20 20 23 20 20 20 20 20 20 20  not.    #       
12a0: 77 61 69 74 22 2e 0a 20 20 20 20 23 0a 20 20 20  wait"..    #.   
12b0: 20 72 65 74 75 72 6e 20 31 30 30 3b 20 23 20 54   return 100; # T
12c0: 4f 44 4f 3a 20 47 6f 6f 64 20 64 65 66 61 75 6c  ODO: Good defaul
12d0: 74 3f 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  t?.  }.  return 
12e0: 24 3a 3a 47 28 66 69 6c 65 2d 72 65 74 72 79 2d  $::G(file-retry-
12f0: 64 65 6c 61 79 29 0a 7d 0a 0a 23 20 52 65 74 75  delay).}..# Retu
1300: 72 6e 20 74 68 65 20 73 74 72 69 6e 67 20 72 65  rn the string re
1310: 70 72 65 73 65 6e 74 69 6e 67 20 74 68 65 20 6e  presenting the n
1320: 61 6d 65 20 6f 66 20 74 68 65 20 63 75 72 72 65  ame of the curre
1330: 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 20 20 4f  nt directory.  O
1340: 6e 0a 23 20 57 69 6e 64 6f 77 73 2c 20 74 68 65  n.# Windows, the
1350: 20 72 65 73 75 6c 74 20 69 73 20 22 6e 6f 72 6d   result is "norm
1360: 61 6c 69 7a 65 64 22 20 74 6f 20 77 68 61 74 65  alized" to whate
1370: 76 65 72 20 6f 75 72 20 70 61 72 65 6e 74 20 63  ver our parent c
1380: 6f 6d 6d 61 6e 64 20 73 68 65 6c 6c 0a 23 20 69  ommand shell.# i
1390: 73 20 75 73 69 6e 67 20 74 6f 20 70 72 65 76 65  s using to preve
13a0: 6e 74 20 63 61 73 65 2d 6d 69 73 6d 61 74 63 68  nt case-mismatch
13b0: 20 69 73 73 75 65 73 2e 0a 23 0a 70 72 6f 63 20   issues..#.proc 
13c0: 67 65 74 5f 70 77 64 20 7b 7d 20 7b 0a 20 20 69  get_pwd {} {.  i
13d0: 66 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f  f {$::tcl_platfo
13e0: 72 6d 28 70 6c 61 74 66 6f 72 6d 29 20 65 71 20  rm(platform) eq 
13f0: 22 77 69 6e 64 6f 77 73 22 7d 20 7b 0a 20 20 20  "windows"} {.   
1400: 20 23 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 43   #.    # NOTE: C
1410: 61 6e 6e 6f 74 20 75 73 65 20 5b 66 69 6c 65 20  annot use [file 
1420: 6e 6f 72 6d 61 6c 69 7a 65 5d 20 68 65 72 65 20  normalize] here 
1430: 62 65 63 61 75 73 65 20 69 74 20 77 6f 75 6c 64  because it would
1440: 20 61 6c 74 65 72 20 74 68 65 0a 20 20 20 20 23   alter the.    #
1450: 20 20 20 20 20 20 20 63 61 73 65 20 6f 66 20 74         case of t
1460: 68 65 20 72 65 73 75 6c 74 20 74 6f 20 77 68 61  he result to wha
1470: 74 20 54 63 6c 20 63 6f 6e 73 69 64 65 72 73 20  t Tcl considers 
1480: 63 61 6e 6f 6e 69 63 61 6c 2c 20 77 68 69 63 68  canonical, which
1490: 20 77 6f 75 6c 64 0a 20 20 20 20 23 20 20 20 20   would.    #    
14a0: 20 20 20 64 65 66 65 61 74 20 74 68 65 20 70 75     defeat the pu
14b0: 72 70 6f 73 65 20 6f 66 20 74 68 69 73 20 70 72  rpose of this pr
14c0: 6f 63 65 64 75 72 65 2e 0a 20 20 20 20 23 0a 20  ocedure..    #. 
14d0: 20 20 20 72 65 74 75 72 6e 20 5b 73 74 72 69 6e     return [strin
14e0: 67 20 6d 61 70 20 5b 6c 69 73 74 20 5c 5c 20 2f  g map [list \\ /
14f0: 5d 20 5c 0a 20 20 20 20 20 20 20 20 5b 73 74 72  ] \.        [str
1500: 69 6e 67 20 74 72 69 6d 20 5b 65 78 65 63 20 2d  ing trim [exec -
1510: 2d 20 24 3a 3a 65 6e 76 28 43 6f 6d 53 70 65 63  - $::env(ComSpec
1520: 29 20 2f 63 20 65 63 68 6f 20 25 43 44 25 5d 5d  ) /c echo %CD%]]
1530: 5d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20  ].  } else {.   
1540: 20 72 65 74 75 72 6e 20 5b 70 77 64 5d 0a 20 20   return [pwd].  
1550: 7d 0a 7d 0a 0a 23 20 43 6f 70 79 20 66 69 6c 65  }.}..# Copy file
1560: 20 24 66 72 6f 6d 20 69 6e 74 6f 20 24 74 6f 2e   $from into $to.
1570: 20 54 68 69 73 20 69 73 20 75 73 65 64 20 62 65   This is used be
1580: 63 61 75 73 65 20 73 6f 6d 65 20 76 65 72 73 69  cause some versi
1590: 6f 6e 73 20 6f 66 0a 23 20 54 43 4c 20 66 6f 72  ons of.# TCL for
15a0: 20 77 69 6e 64 6f 77 73 20 28 6e 6f 74 61 62 6c   windows (notabl
15b0: 79 20 74 68 65 20 38 2e 34 2e 31 20 62 69 6e 61  y the 8.4.1 bina
15c0: 72 79 20 70 61 63 6b 61 67 65 20 73 68 69 70 70  ry package shipp
15d0: 65 64 20 77 69 74 68 20 74 68 65 0a 23 20 63 75  ed with the.# cu
15e0: 72 72 65 6e 74 20 6d 69 6e 67 77 20 72 65 6c 65  rrent mingw rele
15f0: 61 73 65 29 20 68 61 76 65 20 61 20 62 72 6f 6b  ase) have a brok
1600: 65 6e 20 22 66 69 6c 65 20 63 6f 70 79 22 20 63  en "file copy" c
1610: 6f 6d 6d 61 6e 64 2e 0a 23 0a 70 72 6f 63 20 63  ommand..#.proc c
1620: 6f 70 79 5f 66 69 6c 65 20 7b 66 72 6f 6d 20 74  opy_file {from t
1630: 6f 7d 20 7b 0a 20 20 64 6f 5f 63 6f 70 79 5f 66  o} {.  do_copy_f
1640: 69 6c 65 20 66 61 6c 73 65 20 24 66 72 6f 6d 20  ile false $from 
1650: 24 74 6f 0a 7d 0a 0a 70 72 6f 63 20 66 6f 72 63  $to.}..proc forc
1660: 65 63 6f 70 79 20 7b 66 72 6f 6d 20 74 6f 7d 20  ecopy {from to} 
1670: 7b 0a 20 20 64 6f 5f 63 6f 70 79 5f 66 69 6c 65  {.  do_copy_file
1680: 20 74 72 75 65 20 24 66 72 6f 6d 20 24 74 6f 0a   true $from $to.
1690: 7d 0a 0a 70 72 6f 63 20 64 6f 5f 63 6f 70 79 5f  }..proc do_copy_
16a0: 66 69 6c 65 20 7b 66 6f 72 63 65 20 66 72 6f 6d  file {force from
16b0: 20 74 6f 7d 20 7b 0a 20 20 73 65 74 20 6e 52 65   to} {.  set nRe
16c0: 74 72 79 20 5b 67 65 74 46 69 6c 65 52 65 74 72  try [getFileRetr
16d0: 69 65 73 5d 20 20 20 20 20 3b 23 20 4d 61 78 69  ies]     ;# Maxi
16e0: 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 72 65  mum number of re
16f0: 74 72 69 65 73 2e 0a 20 20 73 65 74 20 6e 44 65  tries..  set nDe
1700: 6c 61 79 20 5b 67 65 74 46 69 6c 65 52 65 74 72  lay [getFileRetr
1710: 79 44 65 6c 61 79 5d 20 20 3b 23 20 44 65 6c 61  yDelay]  ;# Dela
1720: 79 20 69 6e 20 6d 73 20 62 65 66 6f 72 65 20 72  y in ms before r
1730: 65 74 72 79 69 6e 67 2e 0a 0a 20 20 23 20 4f 6e  etrying...  # On
1740: 20 77 69 6e 64 6f 77 73 2c 20 73 6f 6d 65 74 69   windows, someti
1750: 6d 65 73 20 65 76 65 6e 20 61 20 5b 66 69 6c 65  mes even a [file
1760: 20 63 6f 70 79 20 2d 66 6f 72 63 65 5d 20 63 61   copy -force] ca
1770: 6e 20 66 61 69 6c 2e 20 54 68 65 20 63 61 75 73  n fail. The caus
1780: 65 20 69 73 0a 20 20 23 20 75 73 75 61 6c 6c 79  e is.  # usually
1790: 20 22 74 61 67 2d 61 6c 6f 6e 67 73 22 20 2d 20   "tag-alongs" - 
17a0: 70 72 6f 67 72 61 6d 73 20 6c 69 6b 65 20 61 6e  programs like an
17b0: 74 69 2d 76 69 72 75 73 20 73 6f 66 74 77 61 72  ti-virus softwar
17c0: 65 2c 20 61 75 74 6f 6d 61 74 69 63 20 62 61 63  e, automatic bac
17d0: 6b 75 70 0a 20 20 23 20 74 6f 6f 6c 73 20 61 6e  kup.  # tools an
17e0: 64 20 76 61 72 69 6f 75 73 20 65 78 70 6c 6f 72  d various explor
17f0: 65 72 20 65 78 74 65 6e 73 69 6f 6e 73 20 74 68  er extensions th
1800: 61 74 20 6b 65 65 70 20 61 20 66 69 6c 65 20 6f  at keep a file o
1810: 70 65 6e 20 61 20 6c 69 74 74 6c 65 20 6c 6f 6e  pen a little lon
1820: 67 65 72 0a 20 20 23 20 74 68 61 6e 20 77 65 20  ger.  # than we 
1830: 65 78 70 65 63 74 2c 20 63 61 75 73 69 6e 67 20  expect, causing 
1840: 74 68 65 20 64 65 6c 65 74 65 20 74 6f 20 66 61  the delete to fa
1850: 69 6c 2e 0a 20 20 23 0a 20 20 23 20 54 68 65 20  il..  #.  # The 
1860: 73 6f 6c 75 74 69 6f 6e 20 69 73 20 74 6f 20 77  solution is to w
1870: 61 69 74 20 61 20 73 68 6f 72 74 20 61 6d 6f 75  ait a short amou
1880: 6e 74 20 6f 66 20 74 69 6d 65 20 62 65 66 6f 72  nt of time befor
1890: 65 20 72 65 74 72 79 69 6e 67 20 74 68 65 20 63  e retrying the c
18a0: 6f 70 79 2e 0a 20 20 23 0a 20 20 69 66 20 7b 24  opy..  #.  if {$
18b0: 6e 52 65 74 72 79 20 3e 20 30 7d 20 7b 0a 20 20  nRetry > 0} {.  
18c0: 20 20 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20    for {set i 0} 
18d0: 7b 24 69 3c 24 6e 52 65 74 72 79 7d 20 7b 69 6e  {$i<$nRetry} {in
18e0: 63 72 20 69 7d 20 7b 0a 20 20 20 20 20 20 73 65  cr i} {.      se
18f0: 74 20 72 63 20 5b 63 61 74 63 68 20 7b 0a 20 20  t rc [catch {.  
1900: 20 20 20 20 20 20 69 66 20 7b 24 66 6f 72 63 65        if {$force
1910: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 66 69  } {.          fi
1920: 6c 65 20 63 6f 70 79 20 2d 66 6f 72 63 65 20 24  le copy -force $
1930: 66 72 6f 6d 20 24 74 6f 0a 20 20 20 20 20 20 20  from $to.       
1940: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20   } else {.      
1950: 20 20 20 20 66 69 6c 65 20 63 6f 70 79 20 24 66      file copy $f
1960: 72 6f 6d 20 24 74 6f 0a 20 20 20 20 20 20 20 20  rom $to.        
1970: 7d 0a 20 20 20 20 20 20 7d 20 6d 73 67 5d 0a 20  }.      } msg]. 
1980: 20 20 20 20 20 69 66 20 7b 24 72 63 3d 3d 30 7d       if {$rc==0}
1990: 20 62 72 65 61 6b 0a 20 20 20 20 20 20 69 66 20   break.      if 
19a0: 7b 24 6e 44 65 6c 61 79 20 3e 20 30 7d 20 7b 20  {$nDelay > 0} { 
19b0: 61 66 74 65 72 20 24 6e 44 65 6c 61 79 20 7d 0a  after $nDelay }.
19c0: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 24 72      }.    if {$r
19d0: 63 7d 20 7b 20 65 72 72 6f 72 20 24 6d 73 67 20  c} { error $msg 
19e0: 7d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20  }.  } else {.   
19f0: 20 69 66 20 7b 24 66 6f 72 63 65 7d 20 7b 0a 20   if {$force} {. 
1a00: 20 20 20 20 20 66 69 6c 65 20 63 6f 70 79 20 2d       file copy -
1a10: 66 6f 72 63 65 20 24 66 72 6f 6d 20 24 74 6f 0a  force $from $to.
1a20: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20      } else {.   
1a30: 20 20 20 66 69 6c 65 20 63 6f 70 79 20 24 66 72     file copy $fr
1a40: 6f 6d 20 24 74 6f 0a 20 20 20 20 7d 0a 20 20 7d  om $to.    }.  }
1a50: 0a 7d 0a 0a 23 20 43 68 65 63 6b 20 69 66 20 61  .}..# Check if a
1a60: 20 66 69 6c 65 20 6e 61 6d 65 20 69 73 20 72 65   file name is re
1a70: 6c 61 74 69 76 65 0a 23 0a 70 72 6f 63 20 69 73  lative.#.proc is
1a80: 5f 72 65 6c 61 74 69 76 65 5f 66 69 6c 65 20 7b  _relative_file {
1a90: 20 66 69 6c 65 20 7d 20 7b 0a 20 20 72 65 74 75   file } {.  retu
1aa0: 72 6e 20 5b 65 78 70 72 20 7b 5b 66 69 6c 65 20  rn [expr {[file 
1ab0: 70 61 74 68 74 79 70 65 20 24 66 69 6c 65 5d 20  pathtype $file] 
1ac0: 21 3d 20 22 61 62 73 6f 6c 75 74 65 22 7d 5d 0a  != "absolute"}].
1ad0: 7d 0a 0a 23 20 49 66 20 74 68 65 20 56 46 53 20  }..# If the VFS 
1ae0: 73 75 70 70 6f 72 74 73 20 75 73 69 6e 67 20 74  supports using t
1af0: 68 65 20 63 75 72 72 65 6e 74 20 64 69 72 65 63  he current direc
1b00: 74 6f 72 79 2c 20 72 65 74 75 72 6e 73 20 5b 70  tory, returns [p
1b10: 77 64 5d 3b 0a 23 20 6f 74 68 65 72 77 69 73 65  wd];.# otherwise
1b20: 2c 20 69 74 20 72 65 74 75 72 6e 73 20 6f 6e 6c  , it returns onl
1b30: 79 20 74 68 65 20 70 72 6f 76 69 64 65 64 20 73  y the provided s
1b40: 75 66 66 69 78 20 73 74 72 69 6e 67 20 28 77 68  uffix string (wh
1b50: 69 63 68 20 69 73 0a 23 20 65 6d 70 74 79 20 62  ich is.# empty b
1b60: 79 20 64 65 66 61 75 6c 74 29 2e 0a 23 0a 70 72  y default)..#.pr
1b70: 6f 63 20 74 65 73 74 5f 70 77 64 20 7b 20 61 72  oc test_pwd { ar
1b80: 67 73 20 7d 20 7b 0a 20 20 69 66 20 7b 5b 6c 6c  gs } {.  if {[ll
1b90: 65 6e 67 74 68 20 24 61 72 67 73 5d 20 3e 20 30  ength $args] > 0
1ba0: 7d 20 7b 0a 20 20 20 20 73 65 74 20 73 75 66 66  } {.    set suff
1bb0: 69 78 31 20 5b 6c 69 6e 64 65 78 20 24 61 72 67  ix1 [lindex $arg
1bc0: 73 20 30 5d 0a 20 20 20 20 69 66 20 7b 5b 6c 6c  s 0].    if {[ll
1bd0: 65 6e 67 74 68 20 24 61 72 67 73 5d 20 3e 20 31  ength $args] > 1
1be0: 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 73 75  } {.      set su
1bf0: 66 66 69 78 32 20 5b 6c 69 6e 64 65 78 20 24 61  ffix2 [lindex $a
1c00: 72 67 73 20 31 5d 0a 20 20 20 20 7d 20 65 6c 73  rgs 1].    } els
1c10: 65 20 7b 0a 20 20 20 20 20 20 73 65 74 20 73 75  e {.      set su
1c20: 66 66 69 78 32 20 24 73 75 66 66 69 78 31 0a 20  ffix2 $suffix1. 
1c30: 20 20 20 7d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a     }.  } else {.
1c40: 20 20 20 20 73 65 74 20 73 75 66 66 69 78 31 20      set suffix1 
1c50: 22 22 3b 20 73 65 74 20 73 75 66 66 69 78 32 20  ""; set suffix2 
1c60: 22 22 0a 20 20 7d 0a 20 20 69 66 63 61 70 61 62  "".  }.  ifcapab
1c70: 6c 65 20 63 75 72 64 69 72 20 7b 0a 20 20 20 20  le curdir {.    
1c80: 72 65 74 75 72 6e 20 22 5b 67 65 74 5f 70 77 64  return "[get_pwd
1c90: 5d 24 73 75 66 66 69 78 31 22 0a 20 20 7d 20 65  ]$suffix1".  } e
1ca0: 6c 73 65 20 7b 0a 20 20 20 20 72 65 74 75 72 6e  lse {.    return
1cb0: 20 24 73 75 66 66 69 78 32 0a 20 20 7d 0a 7d 0a   $suffix2.  }.}.
1cc0: 0a 23 20 44 65 6c 65 74 65 20 61 20 66 69 6c 65  .# Delete a file
1cd0: 20 6f 72 20 64 69 72 65 63 74 6f 72 79 0a 23 0a   or directory.#.
1ce0: 70 72 6f 63 20 64 65 6c 65 74 65 5f 66 69 6c 65  proc delete_file
1cf0: 20 7b 61 72 67 73 7d 20 7b 0a 20 20 64 6f 5f 64   {args} {.  do_d
1d00: 65 6c 65 74 65 5f 66 69 6c 65 20 66 61 6c 73 65  elete_file false
1d10: 20 7b 2a 7d 24 61 72 67 73 0a 7d 0a 0a 70 72 6f   {*}$args.}..pro
1d20: 63 20 66 6f 72 63 65 64 65 6c 65 74 65 20 7b 61  c forcedelete {a
1d30: 72 67 73 7d 20 7b 0a 20 20 64 6f 5f 64 65 6c 65  rgs} {.  do_dele
1d40: 74 65 5f 66 69 6c 65 20 74 72 75 65 20 7b 2a 7d  te_file true {*}
1d50: 24 61 72 67 73 0a 7d 0a 0a 70 72 6f 63 20 64 6f  $args.}..proc do
1d60: 5f 64 65 6c 65 74 65 5f 66 69 6c 65 20 7b 66 6f  _delete_file {fo
1d70: 72 63 65 20 61 72 67 73 7d 20 7b 0a 20 20 73 65  rce args} {.  se
1d80: 74 20 6e 52 65 74 72 79 20 5b 67 65 74 46 69 6c  t nRetry [getFil
1d90: 65 52 65 74 72 69 65 73 5d 20 20 20 20 20 3b 23  eRetries]     ;#
1da0: 20 4d 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20   Maximum number 
1db0: 6f 66 20 72 65 74 72 69 65 73 2e 0a 20 20 73 65  of retries..  se
1dc0: 74 20 6e 44 65 6c 61 79 20 5b 67 65 74 46 69 6c  t nDelay [getFil
1dd0: 65 52 65 74 72 79 44 65 6c 61 79 5d 20 20 3b 23  eRetryDelay]  ;#
1de0: 20 44 65 6c 61 79 20 69 6e 20 6d 73 20 62 65 66   Delay in ms bef
1df0: 6f 72 65 20 72 65 74 72 79 69 6e 67 2e 0a 0a 20  ore retrying... 
1e00: 20 66 6f 72 65 61 63 68 20 66 69 6c 65 6e 61 6d   foreach filenam
1e10: 65 20 24 61 72 67 73 20 7b 0a 20 20 20 20 23 20  e $args {.    # 
1e20: 4f 6e 20 77 69 6e 64 6f 77 73 2c 20 73 6f 6d 65  On windows, some
1e30: 74 69 6d 65 73 20 65 76 65 6e 20 61 20 5b 66 69  times even a [fi
1e40: 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65  le delete -force
1e50: 5d 20 63 61 6e 20 66 61 69 6c 20 6a 75 73 74 20  ] can fail just 
1e60: 61 66 74 65 72 0a 20 20 20 20 23 20 61 20 66 69  after.    # a fi
1e70: 6c 65 20 69 73 20 63 6c 6f 73 65 64 2e 20 54 68  le is closed. Th
1e80: 65 20 63 61 75 73 65 20 69 73 20 75 73 75 61 6c  e cause is usual
1e90: 6c 79 20 22 74 61 67 2d 61 6c 6f 6e 67 73 22 20  ly "tag-alongs" 
1ea0: 2d 20 70 72 6f 67 72 61 6d 73 20 6c 69 6b 65 0a  - programs like.
1eb0: 20 20 20 20 23 20 61 6e 74 69 2d 76 69 72 75 73      # anti-virus
1ec0: 20 73 6f 66 74 77 61 72 65 2c 20 61 75 74 6f 6d   software, autom
1ed0: 61 74 69 63 20 62 61 63 6b 75 70 20 74 6f 6f 6c  atic backup tool
1ee0: 73 20 61 6e 64 20 76 61 72 69 6f 75 73 20 65 78  s and various ex
1ef0: 70 6c 6f 72 65 72 0a 20 20 20 20 23 20 65 78 74  plorer.    # ext
1f00: 65 6e 73 69 6f 6e 73 20 74 68 61 74 20 6b 65 65  ensions that kee
1f10: 70 20 61 20 66 69 6c 65 20 6f 70 65 6e 20 61 20  p a file open a 
1f20: 6c 69 74 74 6c 65 20 6c 6f 6e 67 65 72 20 74 68  little longer th
1f30: 61 6e 20 77 65 20 65 78 70 65 63 74 2c 20 63 61  an we expect, ca
1f40: 75 73 69 6e 67 0a 20 20 20 20 23 20 74 68 65 20  using.    # the 
1f50: 64 65 6c 65 74 65 20 74 6f 20 66 61 69 6c 2e 0a  delete to fail..
1f60: 20 20 20 20 23 0a 20 20 20 20 23 20 54 68 65 20      #.    # The 
1f70: 73 6f 6c 75 74 69 6f 6e 20 69 73 20 74 6f 20 77  solution is to w
1f80: 61 69 74 20 61 20 73 68 6f 72 74 20 61 6d 6f 75  ait a short amou
1f90: 6e 74 20 6f 66 20 74 69 6d 65 20 62 65 66 6f 72  nt of time befor
1fa0: 65 20 72 65 74 72 79 69 6e 67 20 74 68 65 0a 20  e retrying the. 
1fb0: 20 20 20 23 20 64 65 6c 65 74 65 2e 0a 20 20 20     # delete..   
1fc0: 20 23 0a 20 20 20 20 69 66 20 7b 24 6e 52 65 74   #.    if {$nRet
1fd0: 72 79 20 3e 20 30 7d 20 7b 0a 20 20 20 20 20 20  ry > 0} {.      
1fe0: 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24  for {set i 0} {$
1ff0: 69 3c 24 6e 52 65 74 72 79 7d 20 7b 69 6e 63 72  i<$nRetry} {incr
2000: 20 69 7d 20 7b 0a 20 20 20 20 20 20 20 20 73 65   i} {.        se
2010: 74 20 72 63 20 5b 63 61 74 63 68 20 7b 0a 20 20  t rc [catch {.  
2020: 20 20 20 20 20 20 20 20 69 66 20 7b 24 66 6f 72          if {$for
2030: 63 65 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20  ce} {.          
2040: 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66    file delete -f
2050: 6f 72 63 65 20 24 66 69 6c 65 6e 61 6d 65 0a 20  orce $filename. 
2060: 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20           } else 
2070: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 69  {.            fi
2080: 6c 65 20 64 65 6c 65 74 65 20 24 66 69 6c 65 6e  le delete $filen
2090: 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 7d 0a  ame.          }.
20a0: 20 20 20 20 20 20 20 20 7d 20 6d 73 67 5d 0a 20          } msg]. 
20b0: 20 20 20 20 20 20 20 69 66 20 7b 24 72 63 3d 3d         if {$rc==
20c0: 30 7d 20 62 72 65 61 6b 0a 20 20 20 20 20 20 20  0} break.       
20d0: 20 69 66 20 7b 24 6e 44 65 6c 61 79 20 3e 20 30   if {$nDelay > 0
20e0: 7d 20 7b 20 61 66 74 65 72 20 24 6e 44 65 6c 61  } { after $nDela
20f0: 79 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  y }.      }.    
2100: 20 20 69 66 20 7b 24 72 63 7d 20 7b 20 65 72 72    if {$rc} { err
2110: 6f 72 20 24 6d 73 67 20 7d 0a 20 20 20 20 7d 20  or $msg }.    } 
2120: 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 69 66 20  else {.      if 
2130: 7b 24 66 6f 72 63 65 7d 20 7b 0a 20 20 20 20 20  {$force} {.     
2140: 20 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2d     file delete -
2150: 66 6f 72 63 65 20 24 66 69 6c 65 6e 61 6d 65 0a  force $filename.
2160: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20        } else {. 
2170: 20 20 20 20 20 20 20 66 69 6c 65 20 64 65 6c 65         file dele
2180: 74 65 20 24 66 69 6c 65 6e 61 6d 65 0a 20 20 20  te $filename.   
2190: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d     }.    }.  }.}
21a0: 0a 0a 69 66 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61  ..if {$::tcl_pla
21b0: 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 20  tform(platform) 
21c0: 65 71 20 22 77 69 6e 64 6f 77 73 22 7d 20 7b 0a  eq "windows"} {.
21d0: 20 20 70 72 6f 63 20 64 6f 5f 72 65 6d 6f 76 65    proc do_remove
21e0: 5f 77 69 6e 33 32 5f 64 69 72 20 7b 61 72 67 73  _win32_dir {args
21f0: 7d 20 7b 0a 20 20 20 20 73 65 74 20 6e 52 65 74  } {.    set nRet
2200: 72 79 20 5b 67 65 74 46 69 6c 65 52 65 74 72 69  ry [getFileRetri
2210: 65 73 5d 20 20 20 20 20 3b 23 20 4d 61 78 69 6d  es]     ;# Maxim
2220: 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 72 65 74  um number of ret
2230: 72 69 65 73 2e 0a 20 20 20 20 73 65 74 20 6e 44  ries..    set nD
2240: 65 6c 61 79 20 5b 67 65 74 46 69 6c 65 52 65 74  elay [getFileRet
2250: 72 79 44 65 6c 61 79 5d 20 20 3b 23 20 44 65 6c  ryDelay]  ;# Del
2260: 61 79 20 69 6e 20 6d 73 20 62 65 66 6f 72 65 20  ay in ms before 
2270: 72 65 74 72 79 69 6e 67 2e 0a 0a 20 20 20 20 66  retrying...    f
2280: 6f 72 65 61 63 68 20 64 69 72 4e 61 6d 65 20 24  oreach dirName $
2290: 61 72 67 73 20 7b 0a 20 20 20 20 20 20 23 20 4f  args {.      # O
22a0: 6e 20 77 69 6e 64 6f 77 73 2c 20 73 6f 6d 65 74  n windows, somet
22b0: 69 6d 65 73 20 65 76 65 6e 20 61 20 5b 72 65 6d  imes even a [rem
22c0: 6f 76 65 5f 77 69 6e 33 32 5f 64 69 72 5d 20 63  ove_win32_dir] c
22d0: 61 6e 20 66 61 69 6c 20 6a 75 73 74 20 61 66 74  an fail just aft
22e0: 65 72 0a 20 20 20 20 20 20 23 20 61 20 64 69 72  er.      # a dir
22f0: 65 63 74 6f 72 79 20 69 73 20 65 6d 70 74 69 65  ectory is emptie
2300: 64 2e 20 54 68 65 20 63 61 75 73 65 20 69 73 20  d. The cause is 
2310: 75 73 75 61 6c 6c 79 20 22 74 61 67 2d 61 6c 6f  usually "tag-alo
2320: 6e 67 73 22 20 2d 20 70 72 6f 67 72 61 6d 73 0a  ngs" - programs.
2330: 20 20 20 20 20 20 23 20 6c 69 6b 65 20 61 6e 74        # like ant
2340: 69 2d 76 69 72 75 73 20 73 6f 66 74 77 61 72 65  i-virus software
2350: 2c 20 61 75 74 6f 6d 61 74 69 63 20 62 61 63 6b  , automatic back
2360: 75 70 20 74 6f 6f 6c 73 20 61 6e 64 20 76 61 72  up tools and var
2370: 69 6f 75 73 20 65 78 70 6c 6f 72 65 72 0a 20 20  ious explorer.  
2380: 20 20 20 20 23 20 65 78 74 65 6e 73 69 6f 6e 73      # extensions
2390: 20 74 68 61 74 20 6b 65 65 70 20 61 20 66 69 6c   that keep a fil
23a0: 65 20 6f 70 65 6e 20 61 20 6c 69 74 74 6c 65 20  e open a little 
23b0: 6c 6f 6e 67 65 72 20 74 68 61 6e 20 77 65 20 65  longer than we e
23c0: 78 70 65 63 74 2c 0a 20 20 20 20 20 20 23 20 63  xpect,.      # c
23d0: 61 75 73 69 6e 67 20 74 68 65 20 64 65 6c 65 74  ausing the delet
23e0: 65 20 74 6f 20 66 61 69 6c 2e 0a 20 20 20 20 20  e to fail..     
23f0: 20 23 0a 20 20 20 20 20 20 23 20 54 68 65 20 73   #.      # The s
2400: 6f 6c 75 74 69 6f 6e 20 69 73 20 74 6f 20 77 61  olution is to wa
2410: 69 74 20 61 20 73 68 6f 72 74 20 61 6d 6f 75 6e  it a short amoun
2420: 74 20 6f 66 20 74 69 6d 65 20 62 65 66 6f 72 65  t of time before
2430: 20 72 65 74 72 79 69 6e 67 20 74 68 65 0a 20 20   retrying the.  
2440: 20 20 20 20 23 20 72 65 6d 6f 76 61 6c 2e 0a 20      # removal.. 
2450: 20 20 20 20 20 23 0a 20 20 20 20 20 20 69 66 20       #.      if 
2460: 7b 24 6e 52 65 74 72 79 20 3e 20 30 7d 20 7b 0a  {$nRetry > 0} {.
2470: 20 20 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74          for {set
2480: 20 69 20 30 7d 20 7b 24 69 20 3c 20 24 6e 52 65   i 0} {$i < $nRe
2490: 74 72 79 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a  try} {incr i} {.
24a0: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 72 63            set rc
24b0: 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 20 20   [catch {.      
24c0: 20 20 20 20 20 20 72 65 6d 6f 76 65 5f 77 69 6e        remove_win
24d0: 33 32 5f 64 69 72 20 24 64 69 72 4e 61 6d 65 0a  32_dir $dirName.
24e0: 20 20 20 20 20 20 20 20 20 20 7d 20 6d 73 67 5d            } msg]
24f0: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 24  .          if {$
2500: 72 63 20 3d 3d 20 30 7d 20 62 72 65 61 6b 0a 20  rc == 0} break. 
2510: 20 20 20 20 20 20 20 20 20 69 66 20 7b 24 6e 44           if {$nD
2520: 65 6c 61 79 20 3e 20 30 7d 20 7b 20 61 66 74 65  elay > 0} { afte
2530: 72 20 24 6e 44 65 6c 61 79 20 7d 0a 20 20 20 20  r $nDelay }.    
2540: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66      }.        if
2550: 20 7b 24 72 63 7d 20 7b 20 65 72 72 6f 72 20 24   {$rc} { error $
2560: 6d 73 67 20 7d 0a 20 20 20 20 20 20 7d 20 65 6c  msg }.      } el
2570: 73 65 20 7b 0a 20 20 20 20 20 20 20 20 72 65 6d  se {.        rem
2580: 6f 76 65 5f 77 69 6e 33 32 5f 64 69 72 20 24 64  ove_win32_dir $d
2590: 69 72 4e 61 6d 65 0a 20 20 20 20 20 20 7d 0a 20  irName.      }. 
25a0: 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 70 72 6f 63     }.  }..  proc
25b0: 20 64 6f 5f 64 65 6c 65 74 65 5f 77 69 6e 33 32   do_delete_win32
25c0: 5f 66 69 6c 65 20 7b 61 72 67 73 7d 20 7b 0a 20  _file {args} {. 
25d0: 20 20 20 73 65 74 20 6e 52 65 74 72 79 20 5b 67     set nRetry [g
25e0: 65 74 46 69 6c 65 52 65 74 72 69 65 73 5d 20 20  etFileRetries]  
25f0: 20 20 20 3b 23 20 4d 61 78 69 6d 75 6d 20 6e 75     ;# Maximum nu
2600: 6d 62 65 72 20 6f 66 20 72 65 74 72 69 65 73 2e  mber of retries.
2610: 0a 20 20 20 20 73 65 74 20 6e 44 65 6c 61 79 20  .    set nDelay 
2620: 5b 67 65 74 46 69 6c 65 52 65 74 72 79 44 65 6c  [getFileRetryDel
2630: 61 79 5d 20 20 3b 23 20 44 65 6c 61 79 20 69 6e  ay]  ;# Delay in
2640: 20 6d 73 20 62 65 66 6f 72 65 20 72 65 74 72 79   ms before retry
2650: 69 6e 67 2e 0a 0a 20 20 20 20 66 6f 72 65 61 63  ing...    foreac
2660: 68 20 66 69 6c 65 4e 61 6d 65 20 24 61 72 67 73  h fileName $args
2670: 20 7b 0a 20 20 20 20 20 20 23 20 4f 6e 20 77 69   {.      # On wi
2680: 6e 64 6f 77 73 2c 20 73 6f 6d 65 74 69 6d 65 73  ndows, sometimes
2690: 20 65 76 65 6e 20 61 20 5b 64 65 6c 65 74 65 5f   even a [delete_
26a0: 77 69 6e 33 32 5f 66 69 6c 65 5d 20 63 61 6e 20  win32_file] can 
26b0: 66 61 69 6c 20 6a 75 73 74 20 61 66 74 65 72 0a  fail just after.
26c0: 20 20 20 20 20 20 23 20 61 20 66 69 6c 65 20 69        # a file i
26d0: 73 20 63 6c 6f 73 65 64 2e 20 54 68 65 20 63 61  s closed. The ca
26e0: 75 73 65 20 69 73 20 75 73 75 61 6c 6c 79 20 22  use is usually "
26f0: 74 61 67 2d 61 6c 6f 6e 67 73 22 20 2d 20 70 72  tag-alongs" - pr
2700: 6f 67 72 61 6d 73 20 6c 69 6b 65 0a 20 20 20 20  ograms like.    
2710: 20 20 23 20 61 6e 74 69 2d 76 69 72 75 73 20 73    # anti-virus s
2720: 6f 66 74 77 61 72 65 2c 20 61 75 74 6f 6d 61 74  oftware, automat
2730: 69 63 20 62 61 63 6b 75 70 20 74 6f 6f 6c 73 20  ic backup tools 
2740: 61 6e 64 20 76 61 72 69 6f 75 73 20 65 78 70 6c  and various expl
2750: 6f 72 65 72 0a 20 20 20 20 20 20 23 20 65 78 74  orer.      # ext
2760: 65 6e 73 69 6f 6e 73 20 74 68 61 74 20 6b 65 65  ensions that kee
2770: 70 20 61 20 66 69 6c 65 20 6f 70 65 6e 20 61 20  p a file open a 
2780: 6c 69 74 74 6c 65 20 6c 6f 6e 67 65 72 20 74 68  little longer th
2790: 61 6e 20 77 65 20 65 78 70 65 63 74 2c 0a 20 20  an we expect,.  
27a0: 20 20 20 20 23 20 63 61 75 73 69 6e 67 20 74 68      # causing th
27b0: 65 20 64 65 6c 65 74 65 20 74 6f 20 66 61 69 6c  e delete to fail
27c0: 2e 0a 20 20 20 20 20 20 23 0a 20 20 20 20 20 20  ..      #.      
27d0: 23 20 54 68 65 20 73 6f 6c 75 74 69 6f 6e 20 69  # The solution i
27e0: 73 20 74 6f 20 77 61 69 74 20 61 20 73 68 6f 72  s to wait a shor
27f0: 74 20 61 6d 6f 75 6e 74 20 6f 66 20 74 69 6d 65  t amount of time
2800: 20 62 65 66 6f 72 65 20 72 65 74 72 79 69 6e 67   before retrying
2810: 20 74 68 65 0a 20 20 20 20 20 20 23 20 64 65 6c   the.      # del
2820: 65 74 65 2e 0a 20 20 20 20 20 20 23 0a 20 20 20  ete..      #.   
2830: 20 20 20 69 66 20 7b 24 6e 52 65 74 72 79 20 3e     if {$nRetry >
2840: 20 30 7d 20 7b 0a 20 20 20 20 20 20 20 20 66 6f   0} {.        fo
2850: 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 20  r {set i 0} {$i 
2860: 3c 20 24 6e 52 65 74 72 79 7d 20 7b 69 6e 63 72  < $nRetry} {incr
2870: 20 69 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20   i} {.          
2880: 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b 0a  set rc [catch {.
2890: 20 20 20 20 20 20 20 20 20 20 20 20 64 65 6c 65              dele
28a0: 74 65 5f 77 69 6e 33 32 5f 66 69 6c 65 20 24 66  te_win32_file $f
28b0: 69 6c 65 4e 61 6d 65 0a 20 20 20 20 20 20 20 20  ileName.        
28c0: 20 20 7d 20 6d 73 67 5d 0a 20 20 20 20 20 20 20    } msg].       
28d0: 20 20 20 69 66 20 7b 24 72 63 20 3d 3d 20 30 7d     if {$rc == 0}
28e0: 20 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 20   break.         
28f0: 20 69 66 20 7b 24 6e 44 65 6c 61 79 20 3e 20 30   if {$nDelay > 0
2900: 7d 20 7b 20 61 66 74 65 72 20 24 6e 44 65 6c 61  } { after $nDela
2910: 79 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  y }.        }.  
2920: 20 20 20 20 20 20 69 66 20 7b 24 72 63 7d 20 7b        if {$rc} {
2930: 20 65 72 72 6f 72 20 24 6d 73 67 20 7d 0a 20 20   error $msg }.  
2940: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20      } else {.   
2950: 20 20 20 20 20 64 65 6c 65 74 65 5f 77 69 6e 33       delete_win3
2960: 32 5f 66 69 6c 65 20 24 66 69 6c 65 4e 61 6d 65  2_file $fileName
2970: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20  .      }.    }. 
2980: 20 7d 0a 7d 0a 0a 70 72 6f 63 20 65 78 65 63 70   }.}..proc execp
2990: 72 65 73 71 6c 20 7b 68 61 6e 64 6c 65 20 61 72  resql {handle ar
29a0: 67 73 7d 20 7b 0a 20 20 74 72 61 63 65 20 72 65  gs} {.  trace re
29b0: 6d 6f 76 65 20 65 78 65 63 75 74 69 6f 6e 20 24  move execution $
29c0: 68 61 6e 64 6c 65 20 65 6e 74 65 72 20 5b 6c 69  handle enter [li
29d0: 73 74 20 65 78 65 63 70 72 65 73 71 6c 20 24 68  st execpresql $h
29e0: 61 6e 64 6c 65 5d 0a 20 20 69 66 20 7b 5b 69 6e  andle].  if {[in
29f0: 66 6f 20 65 78 69 73 74 73 20 3a 3a 47 28 70 65  fo exists ::G(pe
2a00: 72 6d 3a 70 72 65 73 71 6c 29 5d 7d 20 7b 0a 20  rm:presql)]} {. 
2a10: 20 20 20 24 68 61 6e 64 6c 65 20 65 76 61 6c 20     $handle eval 
2a20: 24 3a 3a 47 28 70 65 72 6d 3a 70 72 65 73 71 6c  $::G(perm:presql
2a30: 29 0a 20 20 7d 0a 7d 0a 0a 23 20 54 68 69 73 20  ).  }.}..# This 
2a40: 63 6f 6d 6d 61 6e 64 20 73 68 6f 75 6c 64 20 62  command should b
2a50: 65 20 63 61 6c 6c 65 64 20 61 66 74 65 72 20 6c  e called after l
2a60: 6f 61 64 69 6e 67 20 74 65 73 74 65 72 2e 74 63  oading tester.tc
2a70: 6c 20 66 72 6f 6d 20 77 69 74 68 69 6e 0a 23 20  l from within.# 
2a80: 61 6c 6c 20 74 65 73 74 20 73 63 72 69 70 74 73  all test scripts
2a90: 20 74 68 61 74 20 61 72 65 20 69 6e 63 6f 6d 70   that are incomp
2aa0: 61 74 69 62 6c 65 20 77 69 74 68 20 65 6e 63 72  atible with encr
2ab0: 79 70 74 69 6f 6e 20 63 6f 64 65 63 73 2e 0a 23  yption codecs..#
2ac0: 0a 70 72 6f 63 20 64 6f 5f 6e 6f 74 5f 75 73 65  .proc do_not_use
2ad0: 5f 63 6f 64 65 63 20 7b 7d 20 7b 0a 20 20 73 65  _codec {} {.  se
2ae0: 74 20 3a 3a 64 6f 5f 6e 6f 74 5f 75 73 65 5f 63  t ::do_not_use_c
2af0: 6f 64 65 63 20 31 0a 20 20 72 65 73 65 74 5f 64  odec 1.  reset_d
2b00: 62 0a 7d 0a 0a 23 20 54 68 65 20 66 6f 6c 6c 6f  b.}..# The follo
2b10: 77 69 6e 67 20 62 6c 6f 63 6b 20 6f 6e 6c 79 20  wing block only 
2b20: 72 75 6e 73 20 74 68 65 20 66 69 72 73 74 20 74  runs the first t
2b30: 69 6d 65 20 74 68 69 73 20 66 69 6c 65 20 69 73  ime this file is
2b40: 20 73 6f 75 72 63 65 64 2e 20 49 74 0a 23 20 64   sourced. It.# d
2b50: 6f 65 73 20 6e 6f 74 20 72 75 6e 20 69 6e 20 73  oes not run in s
2b60: 6c 61 76 65 20 69 6e 74 65 72 70 72 65 74 65 72  lave interpreter
2b70: 73 20 28 73 69 6e 63 65 20 74 68 65 20 3a 3a 63  s (since the ::c
2b80: 6d 64 6c 69 6e 65 61 72 67 20 61 72 72 61 79 20  mdlinearg array 
2b90: 69 73 0a 23 20 70 6f 70 75 6c 61 74 65 64 20 62  is.# populated b
2ba0: 65 66 6f 72 65 20 74 68 65 20 74 65 73 74 20 73  efore the test s
2bb0: 63 72 69 70 74 20 69 73 20 72 75 6e 20 69 6e 20  cript is run in 
2bc0: 73 6c 61 76 65 20 69 6e 74 65 72 70 72 65 74 65  slave interprete
2bd0: 72 73 29 2e 0a 23 0a 69 66 20 7b 5b 69 6e 66 6f  rs)..#.if {[info
2be0: 20 65 78 69 73 74 73 20 63 6d 64 6c 69 6e 65 61   exists cmdlinea
2bf0: 72 67 5d 3d 3d 30 7d 20 7b 0a 0a 20 20 23 20 50  rg]==0} {..  # P
2c00: 61 72 73 65 20 61 6e 79 20 6f 70 74 69 6f 6e 73  arse any options
2c10: 20 73 70 65 63 69 66 69 65 64 20 69 6e 20 74 68   specified in th
2c20: 65 20 24 61 72 67 76 20 61 72 72 61 79 2e 20 54  e $argv array. T
2c30: 68 69 73 20 73 63 72 69 70 74 20 61 63 63 65 70  his script accep
2c40: 74 73 20 74 68 65 0a 20 20 23 20 66 6f 6c 6c 6f  ts the.  # follo
2c50: 77 69 6e 67 20 6f 70 74 69 6f 6e 73 3a 0a 20 20  wing options:.  
2c60: 23 0a 20 20 23 20 20 20 2d 2d 70 61 75 73 65 0a  #.  #   --pause.
2c70: 20 20 23 20 20 20 2d 2d 73 6f 66 74 2d 68 65 61    #   --soft-hea
2c80: 70 2d 6c 69 6d 69 74 3d 4e 4e 0a 20 20 23 20 20  p-limit=NN.  #  
2c90: 20 2d 2d 6d 61 78 65 72 72 6f 72 3d 4e 4e 0a 20   --maxerror=NN. 
2ca0: 20 23 20 20 20 2d 2d 6d 61 6c 6c 6f 63 74 72 61   #   --malloctra
2cb0: 63 65 3d 4e 0a 20 20 23 20 20 20 2d 2d 62 61 63  ce=N.  #   --bac
2cc0: 6b 74 72 61 63 65 3d 4e 0a 20 20 23 20 20 20 2d  ktrace=N.  #   -
2cd0: 2d 62 69 6e 61 72 79 6c 6f 67 3d 4e 0a 20 20 23  -binarylog=N.  #
2ce0: 20 20 20 2d 2d 73 6f 61 6b 3d 4e 0a 20 20 23 20     --soak=N.  # 
2cf0: 20 20 2d 2d 66 69 6c 65 2d 72 65 74 72 69 65 73    --file-retries
2d00: 3d 4e 0a 20 20 23 20 20 20 2d 2d 66 69 6c 65 2d  =N.  #   --file-
2d10: 72 65 74 72 79 2d 64 65 6c 61 79 3d 4e 0a 20 20  retry-delay=N.  
2d20: 23 20 20 20 2d 2d 73 74 61 72 74 3d 5b 24 70 65  #   --start=[$pe
2d30: 72 6d 75 74 61 74 69 6f 6e 3a 5d 24 74 65 73 74  rmutation:]$test
2d40: 66 69 6c 65 0a 20 20 23 20 20 20 2d 2d 6d 61 74  file.  #   --mat
2d50: 63 68 3d 24 70 61 74 74 65 72 6e 0a 20 20 23 0a  ch=$pattern.  #.
2d60: 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67    set cmdlinearg
2d70: 28 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74  (soft-heap-limit
2d80: 29 20 20 20 20 30 0a 20 20 73 65 74 20 63 6d 64  )    0.  set cmd
2d90: 6c 69 6e 65 61 72 67 28 6d 61 78 65 72 72 6f 72  linearg(maxerror
2da0: 29 20 20 20 20 20 20 20 20 31 30 30 30 0a 20 20  )        1000.  
2db0: 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 6d  set cmdlinearg(m
2dc0: 61 6c 6c 6f 63 74 72 61 63 65 29 20 20 20 20 20  alloctrace)     
2dd0: 20 20 20 30 0a 20 20 73 65 74 20 63 6d 64 6c 69     0.  set cmdli
2de0: 6e 65 61 72 67 28 62 61 63 6b 74 72 61 63 65 29  nearg(backtrace)
2df0: 20 20 20 20 20 20 20 20 20 31 30 0a 20 20 73 65           10.  se
2e00: 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 62 69 6e  t cmdlinearg(bin
2e10: 61 72 79 6c 6f 67 29 20 20 20 20 20 20 20 20 20  arylog)         
2e20: 20 30 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e 65   0.  set cmdline
2e30: 61 72 67 28 73 6f 61 6b 29 20 20 20 20 20 20 20  arg(soak)       
2e40: 20 20 20 20 20 20 20 20 30 0a 20 20 73 65 74 20          0.  set 
2e50: 63 6d 64 6c 69 6e 65 61 72 67 28 66 69 6c 65 2d  cmdlinearg(file-
2e60: 72 65 74 72 69 65 73 29 20 20 20 20 20 20 20 30  retries)       0
2e70: 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72  .  set cmdlinear
2e80: 67 28 66 69 6c 65 2d 72 65 74 72 79 2d 64 65 6c  g(file-retry-del
2e90: 61 79 29 20 20 20 30 0a 20 20 73 65 74 20 63 6d  ay)   0.  set cm
2ea0: 64 6c 69 6e 65 61 72 67 28 73 74 61 72 74 29 20  dlinearg(start) 
2eb0: 20 20 20 20 20 20 20 20 20 20 20 20 22 22 0a 20              "". 
2ec0: 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 28   set cmdlinearg(
2ed0: 6d 61 74 63 68 29 20 20 20 20 20 20 20 20 20 20  match)          
2ee0: 20 20 20 22 22 0a 0a 20 20 73 65 74 20 6c 65 66     ""..  set lef
2ef0: 74 6f 76 65 72 20 5b 6c 69 73 74 5d 0a 20 20 66  tover [list].  f
2f00: 6f 72 65 61 63 68 20 61 20 24 61 72 67 76 20 7b  oreach a $argv {
2f10: 0a 20 20 20 20 73 77 69 74 63 68 20 2d 72 65 67  .    switch -reg
2f20: 65 78 70 20 2d 2d 20 24 61 20 7b 0a 20 20 20 20  exp -- $a {.    
2f30: 20 20 7b 5e 2d 2b 70 61 75 73 65 24 7d 20 7b 0a    {^-+pause$} {.
2f40: 20 20 20 20 20 20 20 20 23 20 57 61 69 74 20 66          # Wait f
2f50: 6f 72 20 75 73 65 72 20 69 6e 70 75 74 20 62 65  or user input be
2f60: 66 6f 72 65 20 63 6f 6e 74 69 6e 75 69 6e 67 2e  fore continuing.
2f70: 20 54 68 69 73 20 69 73 20 74 6f 20 67 69 76 65   This is to give
2f80: 20 74 68 65 20 75 73 65 72 20 61 6e 0a 20 20 20   the user an.   
2f90: 20 20 20 20 20 23 20 6f 70 70 6f 72 74 75 6e 69       # opportuni
2fa0: 74 79 20 74 6f 20 63 6f 6e 6e 65 63 74 20 70 72  ty to connect pr
2fb0: 6f 66 69 6c 69 6e 67 20 74 6f 6f 6c 73 20 74 6f  ofiling tools to
2fc0: 20 74 68 65 20 70 72 6f 63 65 73 73 2e 0a 20 20   the process..  
2fd0: 20 20 20 20 20 20 70 75 74 73 20 2d 6e 6f 6e 65        puts -none
2fe0: 77 6c 69 6e 65 20 22 50 72 65 73 73 20 52 45 54  wline "Press RET
2ff0: 55 52 4e 20 74 6f 20 62 65 67 69 6e 2e 2e 2e 22  URN to begin..."
3000: 0a 20 20 20 20 20 20 20 20 66 6c 75 73 68 20 73  .        flush s
3010: 74 64 6f 75 74 0a 20 20 20 20 20 20 20 20 67 65  tdout.        ge
3020: 74 73 20 73 74 64 69 6e 0a 20 20 20 20 20 20 7d  ts stdin.      }
3030: 0a 20 20 20 20 20 20 7b 5e 2d 2b 73 6f 66 74 2d  .      {^-+soft-
3040: 68 65 61 70 2d 6c 69 6d 69 74 3d 2e 2b 24 7d 20  heap-limit=.+$} 
3050: 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61 63  {.        foreac
3060: 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65  h {dummy cmdline
3070: 61 72 67 28 73 6f 66 74 2d 68 65 61 70 2d 6c 69  arg(soft-heap-li
3080: 6d 69 74 29 7d 20 5b 73 70 6c 69 74 20 24 61 20  mit)} [split $a 
3090: 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20 20 20 7d  =] break.      }
30a0: 0a 20 20 20 20 20 20 7b 5e 2d 2b 6d 61 78 65 72  .      {^-+maxer
30b0: 72 6f 72 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20  ror=.+$} {.     
30c0: 20 20 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d     foreach {dumm
30d0: 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 78  y cmdlinearg(max
30e0: 65 72 72 6f 72 29 7d 20 5b 73 70 6c 69 74 20 24  error)} [split $
30f0: 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20 20  a =] break.     
3100: 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 6d 61 6c   }.      {^-+mal
3110: 6c 6f 63 74 72 61 63 65 3d 2e 2b 24 7d 20 7b 0a  loctrace=.+$} {.
3120: 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20          foreach 
3130: 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72  {dummy cmdlinear
3140: 67 28 6d 61 6c 6c 6f 63 74 72 61 63 65 29 7d 20  g(malloctrace)} 
3150: 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20 62 72 65  [split $a =] bre
3160: 61 6b 0a 20 20 20 20 20 20 20 20 69 66 20 7b 24  ak.        if {$
3170: 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 6c 6c 6f  cmdlinearg(mallo
3180: 63 74 72 61 63 65 29 7d 20 7b 0a 20 20 20 20 20  ctrace)} {.     
3190: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d       sqlite3_mem
31a0: 64 65 62 75 67 5f 6c 6f 67 20 73 74 61 72 74 0a  debug_log start.
31b0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
31c0: 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 62 61 63 6b  }.      {^-+back
31d0: 74 72 61 63 65 3d 2e 2b 24 7d 20 7b 0a 20 20 20  trace=.+$} {.   
31e0: 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64 75       foreach {du
31f0: 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 62  mmy cmdlinearg(b
3200: 61 63 6b 74 72 61 63 65 29 7d 20 5b 73 70 6c 69  acktrace)} [spli
3210: 74 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20  t $a =] break.  
3220: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65        sqlite3_me
3230: 6d 64 65 62 75 67 5f 62 61 63 6b 74 72 61 63 65  mdebug_backtrace
3240: 20 24 76 61 6c 75 65 0a 20 20 20 20 20 20 7d 0a   $value.      }.
3250: 20 20 20 20 20 20 7b 5e 2d 2b 62 69 6e 61 72 79        {^-+binary
3260: 6c 6f 67 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20  log=.+$} {.     
3270: 20 20 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d     foreach {dumm
3280: 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 62 69 6e  y cmdlinearg(bin
3290: 61 72 79 6c 6f 67 29 7d 20 5b 73 70 6c 69 74 20  arylog)} [split 
32a0: 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20  $a =] break.    
32b0: 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 73 6f    }.      {^-+so
32c0: 61 6b 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20  ak=.+$} {.      
32d0: 20 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79    foreach {dummy
32e0: 20 63 6d 64 6c 69 6e 65 61 72 67 28 73 6f 61 6b   cmdlinearg(soak
32f0: 29 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20  )} [split $a =] 
3300: 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 73 65  break.        se
3310: 74 20 3a 3a 47 28 69 73 73 6f 61 6b 29 20 24 63  t ::G(issoak) $c
3320: 6d 64 6c 69 6e 65 61 72 67 28 73 6f 61 6b 29 0a  mdlinearg(soak).
3330: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e        }.      {^
3340: 2d 2b 66 69 6c 65 2d 72 65 74 72 69 65 73 3d 2e  -+file-retries=.
3350: 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20 20 66 6f  +$} {.        fo
3360: 72 65 61 63 68 20 7b 64 75 6d 6d 79 20 63 6d 64  reach {dummy cmd
3370: 6c 69 6e 65 61 72 67 28 66 69 6c 65 2d 72 65 74  linearg(file-ret
3380: 72 69 65 73 29 7d 20 5b 73 70 6c 69 74 20 24 61  ries)} [split $a
3390: 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20 20 20   =] break.      
33a0: 20 20 73 65 74 20 3a 3a 47 28 66 69 6c 65 2d 72    set ::G(file-r
33b0: 65 74 72 69 65 73 29 20 24 63 6d 64 6c 69 6e 65  etries) $cmdline
33c0: 61 72 67 28 66 69 6c 65 2d 72 65 74 72 69 65 73  arg(file-retries
33d0: 29 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  ).      }.      
33e0: 7b 5e 2d 2b 66 69 6c 65 2d 72 65 74 72 79 2d 64  {^-+file-retry-d
33f0: 65 6c 61 79 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20  elay=.+$} {.    
3400: 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64 75 6d      foreach {dum
3410: 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 66 69  my cmdlinearg(fi
3420: 6c 65 2d 72 65 74 72 79 2d 64 65 6c 61 79 29 7d  le-retry-delay)}
3430: 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20 62 72   [split $a =] br
3440: 65 61 6b 0a 20 20 20 20 20 20 20 20 73 65 74 20  eak.        set 
3450: 3a 3a 47 28 66 69 6c 65 2d 72 65 74 72 79 2d 64  ::G(file-retry-d
3460: 65 6c 61 79 29 20 24 63 6d 64 6c 69 6e 65 61 72  elay) $cmdlinear
3470: 67 28 66 69 6c 65 2d 72 65 74 72 79 2d 64 65 6c  g(file-retry-del
3480: 61 79 29 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  ay).      }.    
3490: 20 20 7b 5e 2d 2b 73 74 61 72 74 3d 2e 2b 24 7d    {^-+start=.+$}
34a0: 20 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61   {.        forea
34b0: 63 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e  ch {dummy cmdlin
34c0: 65 61 72 67 28 73 74 61 72 74 29 7d 20 5b 73 70  earg(start)} [sp
34d0: 6c 69 74 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a  lit $a =] break.
34e0: 0a 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 47  .        set ::G
34f0: 28 73 74 61 72 74 3a 66 69 6c 65 29 20 24 63 6d  (start:file) $cm
3500: 64 6c 69 6e 65 61 72 67 28 73 74 61 72 74 29 0a  dlinearg(start).
3510: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 72 65 67          if {[reg
3520: 65 78 70 20 7b 28 2e 2a 29 3a 28 2e 2a 29 7d 20  exp {(.*):(.*)} 
3530: 24 63 6d 64 6c 69 6e 65 61 72 67 28 73 74 61 72  $cmdlinearg(star
3540: 74 29 20 2d 3e 20 73 2e 70 65 72 6d 20 73 2e 66  t) -> s.perm s.f
3550: 69 6c 65 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20  ile]} {.        
3560: 20 20 73 65 74 20 3a 3a 47 28 73 74 61 72 74 3a    set ::G(start:
3570: 70 65 72 6d 75 74 61 74 69 6f 6e 29 20 24 7b 73  permutation) ${s
3580: 2e 70 65 72 6d 7d 0a 20 20 20 20 20 20 20 20 20  .perm}.         
3590: 20 73 65 74 20 3a 3a 47 28 73 74 61 72 74 3a 66   set ::G(start:f
35a0: 69 6c 65 29 20 20 20 20 20 20 20 20 24 7b 73 2e  ile)        ${s.
35b0: 66 69 6c 65 7d 0a 20 20 20 20 20 20 20 20 7d 0a  file}.        }.
35c0: 20 20 20 20 20 20 20 20 69 66 20 7b 24 3a 3a 47          if {$::G
35d0: 28 73 74 61 72 74 3a 66 69 6c 65 29 20 3d 3d 20  (start:file) == 
35e0: 22 22 7d 20 7b 75 6e 73 65 74 20 3a 3a 47 28 73  ""} {unset ::G(s
35f0: 74 61 72 74 3a 66 69 6c 65 29 7d 0a 20 20 20 20  tart:file)}.    
3600: 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 6d 61    }.      {^-+ma
3610: 74 63 68 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20  tch=.+$} {.     
3620: 20 20 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d     foreach {dumm
3630: 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 74  y cmdlinearg(mat
3640: 63 68 29 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d  ch)} [split $a =
3650: 5d 20 62 72 65 61 6b 0a 0a 20 20 20 20 20 20 20  ] break..       
3660: 20 73 65 74 20 3a 3a 47 28 6d 61 74 63 68 29 20   set ::G(match) 
3670: 24 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 74 63  $cmdlinearg(matc
3680: 68 29 0a 20 20 20 20 20 20 20 20 69 66 20 7b 24  h).        if {$
3690: 3a 3a 47 28 6d 61 74 63 68 29 20 3d 3d 20 22 22  ::G(match) == ""
36a0: 7d 20 7b 75 6e 73 65 74 20 3a 3a 47 28 6d 61 74  } {unset ::G(mat
36b0: 63 68 29 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20  ch)}.      }.   
36c0: 20 20 20 64 65 66 61 75 6c 74 20 7b 0a 20 20 20     default {.   
36d0: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 6c 65 66       lappend lef
36e0: 74 6f 76 65 72 20 24 61 0a 20 20 20 20 20 20 7d  tover $a.      }
36f0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 65 74  .    }.  }.  set
3700: 20 61 72 67 76 20 24 6c 65 66 74 6f 76 65 72 0a   argv $leftover.
3710: 0a 20 20 23 20 49 6e 73 74 61 6c 6c 20 74 68 65  .  # Install the
3720: 20 6d 61 6c 6c 6f 63 20 6c 61 79 65 72 20 75 73   malloc layer us
3730: 65 64 20 74 6f 20 69 6e 6a 65 63 74 20 4f 4f 4d  ed to inject OOM
3740: 20 65 72 72 6f 72 73 2e 20 41 6e 64 20 74 68 65   errors. And the
3750: 20 27 61 75 74 6f 6d 61 74 69 63 27 0a 20 20 23   'automatic'.  #
3760: 20 65 78 74 65 6e 73 69 6f 6e 73 2e 20 54 68 69   extensions. Thi
3770: 73 20 6f 6e 6c 79 20 6e 65 65 64 73 20 74 6f 20  s only needs to 
3780: 62 65 20 64 6f 6e 65 20 6f 6e 63 65 20 66 6f 72  be done once for
3790: 20 74 68 65 20 70 72 6f 63 65 73 73 2e 0a 20 20   the process..  
37a0: 23 0a 20 20 73 71 6c 69 74 65 33 5f 73 68 75 74  #.  sqlite3_shut
37b0: 64 6f 77 6e 0a 20 20 69 6e 73 74 61 6c 6c 5f 6d  down.  install_m
37c0: 61 6c 6c 6f 63 5f 66 61 75 6c 74 73 69 6d 20 31  alloc_faultsim 1
37d0: 0a 20 20 73 71 6c 69 74 65 33 5f 69 6e 69 74 69  .  sqlite3_initi
37e0: 61 6c 69 7a 65 0a 20 20 61 75 74 6f 69 6e 73 74  alize.  autoinst
37f0: 61 6c 6c 5f 74 65 73 74 5f 66 75 6e 63 74 69 6f  all_test_functio
3800: 6e 73 0a 0a 20 20 23 20 49 66 20 74 68 65 20 2d  ns..  # If the -
3810: 2d 62 69 6e 61 72 79 6c 6f 67 20 6f 70 74 69 6f  -binarylog optio
3820: 6e 20 77 61 73 20 73 70 65 63 69 66 69 65 64 2c  n was specified,
3830: 20 63 72 65 61 74 65 20 74 68 65 20 6c 6f 67 67   create the logg
3840: 69 6e 67 20 56 46 53 2e 20 54 68 69 73 0a 20 20  ing VFS. This.  
3850: 23 20 63 61 6c 6c 20 69 6e 73 74 61 6c 6c 73 20  # call installs 
3860: 74 68 65 20 6e 65 77 20 56 46 53 20 61 73 20 74  the new VFS as t
3870: 68 65 20 64 65 66 61 75 6c 74 20 66 6f 72 20 61  he default for a
3880: 6c 6c 20 53 51 4c 69 74 65 20 63 6f 6e 6e 65 63  ll SQLite connec
3890: 74 69 6f 6e 73 2e 0a 20 20 23 0a 20 20 69 66 20  tions..  #.  if 
38a0: 7b 24 63 6d 64 6c 69 6e 65 61 72 67 28 62 69 6e  {$cmdlinearg(bin
38b0: 61 72 79 6c 6f 67 29 7d 20 7b 0a 20 20 20 20 76  arylog)} {.    v
38c0: 66 73 6c 6f 67 20 6e 65 77 20 62 69 6e 61 72 79  fslog new binary
38d0: 6c 6f 67 20 7b 7d 20 76 66 73 6c 6f 67 2e 62 69  log {} vfslog.bi
38e0: 6e 0a 20 20 7d 0a 0a 20 20 23 20 53 65 74 20 74  n.  }..  # Set t
38f0: 68 65 20 62 61 63 6b 74 72 61 63 65 20 64 65 70  he backtrace dep
3900: 74 68 2c 20 69 66 20 6d 61 6c 6c 6f 63 20 74 72  th, if malloc tr
3910: 61 63 69 6e 67 20 69 73 20 65 6e 61 62 6c 65 64  acing is enabled
3920: 2e 0a 20 20 23 0a 20 20 69 66 20 7b 24 63 6d 64  ..  #.  if {$cmd
3930: 6c 69 6e 65 61 72 67 28 6d 61 6c 6c 6f 63 74 72  linearg(malloctr
3940: 61 63 65 29 7d 20 7b 0a 20 20 20 20 73 71 6c 69  ace)} {.    sqli
3950: 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 62 61 63  te3_memdebug_bac
3960: 6b 74 72 61 63 65 20 24 63 6d 64 6c 69 6e 65 61  ktrace $cmdlinea
3970: 72 67 28 62 61 63 6b 74 72 61 63 65 29 0a 20 20  rg(backtrace).  
3980: 7d 0a 7d 0a 0a 23 20 55 70 64 61 74 65 20 74 68  }.}..# Update th
3990: 65 20 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69  e soft-heap-limi
39a0: 74 20 65 61 63 68 20 74 69 6d 65 20 74 68 69 73  t each time this
39b0: 20 73 63 72 69 70 74 20 69 73 20 72 75 6e 2e 20   script is run. 
39c0: 49 6e 20 74 68 61 74 0a 23 20 77 61 79 20 69 66  In that.# way if
39d0: 20 61 6e 20 69 6e 64 69 76 69 64 75 61 6c 20 74   an individual t
39e0: 65 73 74 20 66 69 6c 65 20 63 68 61 6e 67 65 73  est file changes
39f0: 20 74 68 65 20 73 6f 66 74 2d 68 65 61 70 2d 6c   the soft-heap-l
3a00: 69 6d 69 74 2c 20 69 74 0a 23 20 77 69 6c 6c 20  imit, it.# will 
3a10: 62 65 20 72 65 73 65 74 20 61 74 20 74 68 65 20  be reset at the 
3a20: 73 74 61 72 74 20 6f 66 20 74 68 65 20 6e 65 78  start of the nex
3a30: 74 20 74 65 73 74 20 66 69 6c 65 2e 0a 23 0a 73  t test file..#.s
3a40: 71 6c 69 74 65 33 5f 73 6f 66 74 5f 68 65 61 70  qlite3_soft_heap
3a50: 5f 6c 69 6d 69 74 20 24 63 6d 64 6c 69 6e 65 61  _limit $cmdlinea
3a60: 72 67 28 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d  rg(soft-heap-lim
3a70: 69 74 29 0a 0a 23 20 43 72 65 61 74 65 20 61 20  it)..# Create a 
3a80: 74 65 73 74 20 64 61 74 61 62 61 73 65 0a 23 0a  test database.#.
3a90: 70 72 6f 63 20 72 65 73 65 74 5f 64 62 20 7b 7d  proc reset_db {}
3aa0: 20 7b 0a 20 20 63 61 74 63 68 20 7b 64 62 20 63   {.  catch {db c
3ab0: 6c 6f 73 65 7d 0a 20 20 66 6f 72 63 65 64 65 6c  lose}.  forcedel
3ac0: 65 74 65 20 74 65 73 74 2e 64 62 0a 20 20 66 6f  ete test.db.  fo
3ad0: 72 63 65 64 65 6c 65 74 65 20 74 65 73 74 2e 64  rcedelete test.d
3ae0: 62 2d 6a 6f 75 72 6e 61 6c 0a 20 20 66 6f 72 63  b-journal.  forc
3af0: 65 64 65 6c 65 74 65 20 74 65 73 74 2e 64 62 2d  edelete test.db-
3b00: 77 61 6c 0a 20 20 73 71 6c 69 74 65 33 20 64 62  wal.  sqlite3 db
3b10: 20 2e 2f 74 65 73 74 2e 64 62 0a 20 20 73 65 74   ./test.db.  set
3b20: 20 3a 3a 44 42 20 5b 73 71 6c 69 74 65 33 5f 63   ::DB [sqlite3_c
3b30: 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65  onnection_pointe
3b40: 72 20 64 62 5d 0a 20 20 69 66 20 7b 5b 69 6e 66  r db].  if {[inf
3b50: 6f 20 65 78 69 73 74 73 20 3a 3a 53 45 54 55 50  o exists ::SETUP
3b60: 5f 53 51 4c 5d 7d 20 7b 0a 20 20 20 20 64 62 20  _SQL]} {.    db 
3b70: 65 76 61 6c 20 24 3a 3a 53 45 54 55 50 5f 53 51  eval $::SETUP_SQ
3b80: 4c 0a 20 20 7d 0a 7d 0a 72 65 73 65 74 5f 64 62  L.  }.}.reset_db
3b90: 0a 0a 23 20 41 62 6f 72 74 20 65 61 72 6c 79 20  ..# Abort early 
3ba0: 69 66 20 74 68 69 73 20 73 63 72 69 70 74 20 68  if this script h
3bb0: 61 73 20 62 65 65 6e 20 72 75 6e 20 62 65 66 6f  as been run befo
3bc0: 72 65 2e 0a 23 0a 69 66 20 7b 5b 69 6e 66 6f 20  re..#.if {[info 
3bd0: 65 78 69 73 74 73 20 54 43 28 63 6f 75 6e 74 29  exists TC(count)
3be0: 5d 7d 20 72 65 74 75 72 6e 0a 0a 23 20 4d 61 6b  ]} return..# Mak
3bf0: 65 20 73 75 72 65 20 6d 65 6d 6f 72 79 20 73 74  e sure memory st
3c00: 61 74 69 73 74 69 63 73 20 61 72 65 20 65 6e 61  atistics are ena
3c10: 62 6c 65 64 2e 0a 23 0a 73 71 6c 69 74 65 33 5f  bled..#.sqlite3_
3c20: 63 6f 6e 66 69 67 5f 6d 65 6d 73 74 61 74 75 73  config_memstatus
3c30: 20 31 0a 0a 23 20 49 6e 69 74 69 61 6c 69 7a 65   1..# Initialize
3c40: 20 74 68 65 20 74 65 73 74 20 63 6f 75 6e 74 65   the test counte
3c50: 72 73 20 61 6e 64 20 73 65 74 20 75 70 20 63 6f  rs and set up co
3c60: 6d 6d 61 6e 64 73 20 74 6f 20 61 63 63 65 73 73  mmands to access
3c70: 20 74 68 65 6d 2e 0a 23 20 4f 72 2c 20 69 66 20   them..# Or, if 
3c80: 74 68 69 73 20 69 73 20 61 20 73 6c 61 76 65 20  this is a slave 
3c90: 69 6e 74 65 72 70 72 65 74 65 72 2c 20 73 65 74  interpreter, set
3ca0: 20 75 70 20 61 6c 69 61 73 65 73 20 74 6f 20 77   up aliases to w
3cb0: 72 69 74 65 20 74 68 65 0a 23 20 63 6f 75 6e 74  rite the.# count
3cc0: 65 72 73 20 69 6e 20 74 68 65 20 70 61 72 65 6e  ers in the paren
3cd0: 74 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 23  t interpreter..#
3ce0: 0a 69 66 20 7b 30 3d 3d 5b 69 6e 66 6f 20 65 78  .if {0==[info ex
3cf0: 69 73 74 73 20 3a 3a 53 4c 41 56 45 5d 7d 20 7b  ists ::SLAVE]} {
3d00: 0a 20 20 73 65 74 20 54 43 28 65 72 72 6f 72 73  .  set TC(errors
3d10: 29 20 20 20 20 30 0a 20 20 73 65 74 20 54 43 28  )    0.  set TC(
3d20: 63 6f 75 6e 74 29 20 20 20 20 20 30 0a 20 20 73  count)     0.  s
3d30: 65 74 20 54 43 28 66 61 69 6c 5f 6c 69 73 74 29  et TC(fail_list)
3d40: 20 5b 6c 69 73 74 5d 0a 20 20 73 65 74 20 54 43   [list].  set TC
3d50: 28 6f 6d 69 74 5f 6c 69 73 74 29 20 5b 6c 69 73  (omit_list) [lis
3d60: 74 5d 0a 20 20 73 65 74 20 54 43 28 77 61 72 6e  t].  set TC(warn
3d70: 5f 6c 69 73 74 29 20 5b 6c 69 73 74 5d 0a 0a 20  _list) [list].. 
3d80: 20 70 72 6f 63 20 73 65 74 5f 74 65 73 74 5f 63   proc set_test_c
3d90: 6f 75 6e 74 65 72 20 7b 63 6f 75 6e 74 65 72 20  ounter {counter 
3da0: 61 72 67 73 7d 20 7b 0a 20 20 20 20 69 66 20 7b  args} {.    if {
3db0: 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 73 5d 7d  [llength $args]}
3dc0: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 54   {.      set ::T
3dd0: 43 28 24 63 6f 75 6e 74 65 72 29 20 5b 6c 69 6e  C($counter) [lin
3de0: 64 65 78 20 24 61 72 67 73 20 30 5d 0a 20 20 20  dex $args 0].   
3df0: 20 7d 0a 20 20 20 20 73 65 74 20 3a 3a 54 43 28   }.    set ::TC(
3e00: 24 63 6f 75 6e 74 65 72 29 0a 20 20 7d 0a 7d 0a  $counter).  }.}.
3e10: 0a 23 20 52 65 63 6f 72 64 20 74 68 65 20 66 61  .# Record the fa
3e20: 63 74 20 74 68 61 74 20 61 20 73 65 71 75 65 6e  ct that a sequen
3e30: 63 65 20 6f 66 20 74 65 73 74 73 20 77 65 72 65  ce of tests were
3e40: 20 6f 6d 69 74 74 65 64 2e 0a 23 0a 70 72 6f 63   omitted..#.proc
3e50: 20 6f 6d 69 74 5f 74 65 73 74 20 7b 6e 61 6d 65   omit_test {name
3e60: 20 72 65 61 73 6f 6e 20 7b 61 70 70 65 6e 64 20   reason {append 
3e70: 31 7d 7d 20 7b 0a 20 20 73 65 74 20 6f 6d 69 74  1}} {.  set omit
3e80: 4c 69 73 74 20 5b 73 65 74 5f 74 65 73 74 5f 63  List [set_test_c
3e90: 6f 75 6e 74 65 72 20 6f 6d 69 74 5f 6c 69 73 74  ounter omit_list
3ea0: 5d 0a 20 20 69 66 20 7b 24 61 70 70 65 6e 64 7d  ].  if {$append}
3eb0: 20 7b 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 6f   {.    lappend o
3ec0: 6d 69 74 4c 69 73 74 20 5b 6c 69 73 74 20 24 6e  mitList [list $n
3ed0: 61 6d 65 20 24 72 65 61 73 6f 6e 5d 0a 20 20 7d  ame $reason].  }
3ee0: 0a 20 20 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e  .  set_test_coun
3ef0: 74 65 72 20 6f 6d 69 74 5f 6c 69 73 74 20 24 6f  ter omit_list $o
3f00: 6d 69 74 4c 69 73 74 0a 7d 0a 0a 23 20 52 65 63  mitList.}..# Rec
3f10: 6f 72 64 20 74 68 65 20 66 61 63 74 20 74 68 61  ord the fact tha
3f20: 74 20 61 20 74 65 73 74 20 66 61 69 6c 65 64 2e  t a test failed.
3f30: 0a 23 0a 70 72 6f 63 20 66 61 69 6c 5f 74 65 73  .#.proc fail_tes
3f40: 74 20 7b 6e 61 6d 65 7d 20 7b 0a 20 20 73 65 74  t {name} {.  set
3f50: 20 66 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f 75   f [set_test_cou
3f60: 6e 74 65 72 20 66 61 69 6c 5f 6c 69 73 74 5d 0a  nter fail_list].
3f70: 20 20 6c 61 70 70 65 6e 64 20 66 20 24 6e 61 6d    lappend f $nam
3f80: 65 0a 20 20 73 65 74 5f 74 65 73 74 5f 63 6f 75  e.  set_test_cou
3f90: 6e 74 65 72 20 66 61 69 6c 5f 6c 69 73 74 20 24  nter fail_list $
3fa0: 66 0a 20 20 73 65 74 5f 74 65 73 74 5f 63 6f 75  f.  set_test_cou
3fb0: 6e 74 65 72 20 65 72 72 6f 72 73 20 5b 65 78 70  nter errors [exp
3fc0: 72 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e  r [set_test_coun
3fd0: 74 65 72 20 65 72 72 6f 72 73 5d 20 2b 20 31 5d  ter errors] + 1]
3fe0: 0a 0a 20 20 73 65 74 20 6e 46 61 69 6c 20 5b 73  ..  set nFail [s
3ff0: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20  et_test_counter 
4000: 65 72 72 6f 72 73 5d 0a 20 20 69 66 20 7b 24 6e  errors].  if {$n
4010: 46 61 69 6c 3e 3d 24 3a 3a 63 6d 64 6c 69 6e 65  Fail>=$::cmdline
4020: 61 72 67 28 6d 61 78 65 72 72 6f 72 29 7d 20 7b  arg(maxerror)} {
4030: 0a 20 20 20 20 70 75 74 73 20 22 2a 2a 2a 20 47  .    puts "*** G
4040: 69 76 69 6e 67 20 75 70 2e 2e 2e 22 0a 20 20 20  iving up...".   
4050: 20 66 69 6e 61 6c 69 7a 65 5f 74 65 73 74 69 6e   finalize_testin
4060: 67 0a 20 20 7d 0a 7d 0a 0a 23 20 52 65 6d 65 6d  g.  }.}..# Remem
4070: 62 65 72 20 61 20 77 61 72 6e 69 6e 67 20 6d 65  ber a warning me
4080: 73 73 61 67 65 20 74 6f 20 62 65 20 64 69 73 70  ssage to be disp
4090: 6c 61 79 65 64 20 61 74 20 74 68 65 20 63 6f 6e  layed at the con
40a0: 63 6c 75 73 69 6f 6e 20 6f 66 20 61 6c 6c 20 74  clusion of all t
40b0: 65 73 74 69 6e 67 0a 23 0a 70 72 6f 63 20 77 61  esting.#.proc wa
40c0: 72 6e 69 6e 67 20 7b 6d 73 67 20 7b 61 70 70 65  rning {msg {appe
40d0: 6e 64 20 31 7d 7d 20 7b 0a 20 20 70 75 74 73 20  nd 1}} {.  puts 
40e0: 22 57 61 72 6e 69 6e 67 3a 20 24 6d 73 67 22 0a  "Warning: $msg".
40f0: 20 20 73 65 74 20 77 61 72 6e 4c 69 73 74 20 5b    set warnList [
4100: 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72  set_test_counter
4110: 20 77 61 72 6e 5f 6c 69 73 74 5d 0a 20 20 69 66   warn_list].  if
4120: 20 7b 24 61 70 70 65 6e 64 7d 20 7b 0a 20 20 20   {$append} {.   
4130: 20 6c 61 70 70 65 6e 64 20 77 61 72 6e 4c 69 73   lappend warnLis
4140: 74 20 24 6d 73 67 0a 20 20 7d 0a 20 20 73 65 74  t $msg.  }.  set
4150: 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 77 61  _test_counter wa
4160: 72 6e 5f 6c 69 73 74 20 24 77 61 72 6e 4c 69 73  rn_list $warnLis
4170: 74 0a 7d 0a 0a 0a 23 20 49 6e 63 72 65 6d 65 6e  t.}...# Incremen
4180: 74 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20  t the number of 
4190: 74 65 73 74 73 20 72 75 6e 0a 23 0a 70 72 6f 63  tests run.#.proc
41a0: 20 69 6e 63 72 5f 6e 74 65 73 74 20 7b 7d 20 7b   incr_ntest {} {
41b0: 0a 20 20 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e  .  set_test_coun
41c0: 74 65 72 20 63 6f 75 6e 74 20 5b 65 78 70 72 20  ter count [expr 
41d0: 5b 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65  [set_test_counte
41e0: 72 20 63 6f 75 6e 74 5d 20 2b 20 31 5d 0a 7d 0a  r count] + 1].}.
41f0: 0a 0a 23 20 49 6e 76 6f 6b 65 20 74 68 65 20 64  ..# Invoke the d
4200: 6f 5f 74 65 73 74 20 70 72 6f 63 65 64 75 72 65  o_test procedure
4210: 20 74 6f 20 72 75 6e 20 61 20 73 69 6e 67 6c 65   to run a single
4220: 20 74 65 73 74 0a 23 0a 70 72 6f 63 20 64 6f 5f   test.#.proc do_
4230: 74 65 73 74 20 7b 6e 61 6d 65 20 63 6d 64 20 65  test {name cmd e
4240: 78 70 65 63 74 65 64 7d 20 7b 0a 20 20 67 6c 6f  xpected} {.  glo
4250: 62 61 6c 20 61 72 67 76 20 63 6d 64 6c 69 6e 65  bal argv cmdline
4260: 61 72 67 0a 0a 20 20 66 69 78 5f 74 65 73 74 6e  arg..  fix_testn
4270: 61 6d 65 20 6e 61 6d 65 0a 0a 20 20 73 71 6c 69  ame name..  sqli
4280: 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 73 65 74  te3_memdebug_set
4290: 74 69 74 6c 65 20 24 6e 61 6d 65 0a 0a 23 20 20  title $name..#  
42a0: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72  if {[llength $ar
42b0: 67 76 5d 3d 3d 30 7d 20 7b 0a 23 20 20 20 20 73  gv]==0} {.#    s
42c0: 65 74 20 67 6f 20 31 0a 23 20 20 7d 20 65 6c 73  et go 1.#  } els
42d0: 65 20 7b 0a 23 20 20 20 20 73 65 74 20 67 6f 20  e {.#    set go 
42e0: 30 0a 23 20 20 20 20 66 6f 72 65 61 63 68 20 70  0.#    foreach p
42f0: 61 74 74 65 72 6e 20 24 61 72 67 76 20 7b 0a 23  attern $argv {.#
4300: 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e        if {[strin
4310: 67 20 6d 61 74 63 68 20 24 70 61 74 74 65 72 6e  g match $pattern
4320: 20 24 6e 61 6d 65 5d 7d 20 7b 0a 23 20 20 20 20   $name]} {.#    
4330: 20 20 20 20 73 65 74 20 67 6f 20 31 0a 23 20 20      set go 1.#  
4340: 20 20 20 20 20 20 62 72 65 61 6b 0a 23 20 20 20        break.#   
4350: 20 20 20 7d 0a 23 20 20 20 20 7d 0a 23 20 20 7d     }.#    }.#  }
4360: 0a 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78  ..  if {[info ex
4370: 69 73 74 73 20 3a 3a 47 28 70 65 72 6d 3a 70 72  ists ::G(perm:pr
4380: 65 66 69 78 29 5d 7d 20 7b 0a 20 20 20 20 73 65  efix)]} {.    se
4390: 74 20 6e 61 6d 65 20 22 24 3a 3a 47 28 70 65 72  t name "$::G(per
43a0: 6d 3a 70 72 65 66 69 78 29 24 6e 61 6d 65 22 0a  m:prefix)$name".
43b0: 20 20 7d 0a 0a 20 20 69 6e 63 72 5f 6e 74 65 73    }..  incr_ntes
43c0: 74 0a 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c  t.  puts -nonewl
43d0: 69 6e 65 20 24 6e 61 6d 65 2e 2e 2e 0a 20 20 66  ine $name....  f
43e0: 6c 75 73 68 20 73 74 64 6f 75 74 0a 0a 20 20 69  lush stdout..  i
43f0: 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73  f {![info exists
4400: 20 3a 3a 47 28 6d 61 74 63 68 29 5d 20 7c 7c 20   ::G(match)] || 
4410: 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 20 24 3a  [string match $:
4420: 3a 47 28 6d 61 74 63 68 29 20 24 6e 61 6d 65 5d  :G(match) $name]
4430: 7d 20 7b 0a 20 20 20 20 69 66 20 7b 5b 63 61 74  } {.    if {[cat
4440: 63 68 20 7b 75 70 6c 65 76 65 6c 20 23 30 20 22  ch {uplevel #0 "
4450: 24 63 6d 64 3b 5c 6e 22 7d 20 72 65 73 75 6c 74  $cmd;\n"} result
4460: 5d 7d 20 7b 0a 20 20 20 20 20 20 70 75 74 73 20  ]} {.      puts 
4470: 22 5c 6e 45 72 72 6f 72 3a 20 24 72 65 73 75 6c  "\nError: $resul
4480: 74 22 0a 20 20 20 20 20 20 66 61 69 6c 5f 74 65  t".      fail_te
4490: 73 74 20 24 6e 61 6d 65 0a 20 20 20 20 7d 20 65  st $name.    } e
44a0: 6c 73 65 20 7b 0a 20 20 20 20 20 20 69 66 20 7b  lse {.      if {
44b0: 5b 72 65 67 65 78 70 20 7b 5e 7e 3f 2f 2e 2a 2f  [regexp {^~?/.*/
44c0: 24 7d 20 24 65 78 70 65 63 74 65 64 5d 7d 20 7b  $} $expected]} {
44d0: 0a 20 20 20 20 20 20 20 20 23 20 22 65 78 70 65  .        # "expe
44e0: 63 74 65 64 22 20 69 73 20 6f 66 20 74 68 65 20  cted" is of the 
44f0: 66 6f 72 6d 20 22 2f 50 41 54 54 45 52 4e 2f 22  form "/PATTERN/"
4500: 20 74 68 65 6e 20 74 68 65 20 72 65 73 75 6c 74   then the result
4510: 20 69 66 20 63 6f 72 72 65 63 74 20 69 66 0a 20   if correct if. 
4520: 20 20 20 20 20 20 20 23 20 72 65 67 75 6c 61 72         # regular
4530: 20 65 78 70 72 65 73 73 69 6f 6e 20 50 41 54 54   expression PATT
4540: 45 52 4e 20 6d 61 74 63 68 65 73 20 74 68 65 20  ERN matches the 
4550: 72 65 73 75 6c 74 2e 20 20 22 7e 2f 50 41 54 54  result.  "~/PATT
4560: 45 52 4e 2f 22 20 6d 65 61 6e 73 0a 20 20 20 20  ERN/" means.    
4570: 20 20 20 20 23 20 74 68 65 20 72 65 67 75 6c 61      # the regula
4580: 72 20 65 78 70 72 65 73 73 69 6f 6e 20 6d 75 73  r expression mus
4590: 74 20 6e 6f 74 20 6d 61 74 63 68 2e 0a 20 20 20  t not match..   
45a0: 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67       if {[string
45b0: 20 69 6e 64 65 78 20 24 65 78 70 65 63 74 65 64   index $expected
45c0: 20 30 5d 3d 3d 22 7e 22 7d 20 7b 0a 20 20 20 20   0]=="~"} {.    
45d0: 20 20 20 20 20 20 73 65 74 20 72 65 20 5b 73 74        set re [st
45e0: 72 69 6e 67 20 72 61 6e 67 65 20 24 65 78 70 65  ring range $expe
45f0: 63 74 65 64 20 32 20 65 6e 64 2d 31 5d 0a 20 20  cted 2 end-1].  
4600: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72          if {[str
4610: 69 6e 67 20 69 6e 64 65 78 20 24 72 65 20 30 5d  ing index $re 0]
4620: 3d 3d 22 2a 22 7d 20 7b 0a 20 20 20 20 20 20 20  =="*"} {.       
4630: 20 20 20 20 20 23 20 49 66 20 74 68 65 20 72 65       # If the re
4640: 67 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e  gular expression
4650: 20 62 65 67 69 6e 73 20 77 69 74 68 20 2a 20 74   begins with * t
4660: 68 65 6e 20 74 72 65 61 74 20 69 74 20 61 73 20  hen treat it as 
4670: 61 20 67 6c 6f 62 20 69 6e 73 74 65 61 64 0a 20  a glob instead. 
4680: 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20 6f             set o
4690: 6b 20 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 20  k [string match 
46a0: 24 72 65 20 24 72 65 73 75 6c 74 5d 0a 20 20 20  $re $result].   
46b0: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a         } else {.
46c0: 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20              set 
46d0: 72 65 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 7b  re [string map {
46e0: 23 20 7b 5b 2d 30 2d 39 2e 5d 2b 7d 7d 20 24 72  # {[-0-9.]+}} $r
46f0: 65 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 73  e].            s
4700: 65 74 20 6f 6b 20 5b 72 65 67 65 78 70 20 24 72  et ok [regexp $r
4710: 65 20 24 72 65 73 75 6c 74 5d 0a 20 20 20 20 20  e $result].     
4720: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20       }.         
4730: 20 73 65 74 20 6f 6b 20 5b 65 78 70 72 20 7b 21   set ok [expr {!
4740: 24 6f 6b 7d 5d 0a 20 20 20 20 20 20 20 20 7d 20  $ok}].        } 
4750: 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 20  else {.         
4760: 20 73 65 74 20 72 65 20 5b 73 74 72 69 6e 67 20   set re [string 
4770: 72 61 6e 67 65 20 24 65 78 70 65 63 74 65 64 20  range $expected 
4780: 31 20 65 6e 64 2d 31 5d 0a 20 20 20 20 20 20 20  1 end-1].       
4790: 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 69     if {[string i
47a0: 6e 64 65 78 20 24 72 65 20 30 5d 3d 3d 22 2a 22  ndex $re 0]=="*"
47b0: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  } {.            
47c0: 23 20 49 66 20 74 68 65 20 72 65 67 75 6c 61 72  # If the regular
47d0: 20 65 78 70 72 65 73 73 69 6f 6e 20 62 65 67 69   expression begi
47e0: 6e 73 20 77 69 74 68 20 2a 20 74 68 65 6e 20 74  ns with * then t
47f0: 72 65 61 74 20 69 74 20 61 73 20 61 20 67 6c 6f  reat it as a glo
4800: 62 20 69 6e 73 74 65 61 64 0a 20 20 20 20 20 20  b instead.      
4810: 20 20 20 20 20 20 73 65 74 20 6f 6b 20 5b 73 74        set ok [st
4820: 72 69 6e 67 20 6d 61 74 63 68 20 24 72 65 20 24  ring match $re $
4830: 72 65 73 75 6c 74 5d 0a 20 20 20 20 20 20 20 20  result].        
4840: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20    } else {.     
4850: 20 20 20 20 20 20 20 73 65 74 20 72 65 20 5b 73         set re [s
4860: 74 72 69 6e 67 20 6d 61 70 20 7b 23 20 7b 5b 2d  tring map {# {[-
4870: 30 2d 39 2e 5d 2b 7d 7d 20 24 72 65 5d 0a 20 20  0-9.]+}} $re].  
4880: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 6f 6b            set ok
4890: 20 5b 72 65 67 65 78 70 20 24 72 65 20 24 72 65   [regexp $re $re
48a0: 73 75 6c 74 5d 0a 20 20 20 20 20 20 20 20 20 20  sult].          
48b0: 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  }.        }.    
48c0: 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 72 65 67    } elseif {[reg
48d0: 65 78 70 20 7b 5e 7e 3f 5c 2a 2e 2a 5c 2a 24 7d  exp {^~?\*.*\*$}
48e0: 20 24 65 78 70 65 63 74 65 64 5d 7d 20 7b 0a 20   $expected]} {. 
48f0: 20 20 20 20 20 20 20 23 20 22 65 78 70 65 63 74         # "expect
4900: 65 64 22 20 69 73 20 6f 66 20 74 68 65 20 66 6f  ed" is of the fo
4910: 72 6d 20 22 2a 47 4c 4f 42 2a 22 20 74 68 65 6e  rm "*GLOB*" then
4920: 20 74 68 65 20 72 65 73 75 6c 74 20 69 66 20 63   the result if c
4930: 6f 72 72 65 63 74 20 69 66 0a 20 20 20 20 20 20  orrect if.      
4940: 20 20 23 20 67 6c 6f 62 20 70 61 74 74 65 72 6e    # glob pattern
4950: 20 47 4c 4f 42 20 6d 61 74 63 68 65 73 20 74 68   GLOB matches th
4960: 65 20 72 65 73 75 6c 74 2e 20 20 22 7e 2f 47 4c  e result.  "~/GL
4970: 4f 42 2f 22 20 6d 65 61 6e 73 0a 20 20 20 20 20  OB/" means.     
4980: 20 20 20 23 20 74 68 65 20 67 6c 6f 62 20 6d 75     # the glob mu
4990: 73 74 20 6e 6f 74 20 6d 61 74 63 68 2e 0a 20 20  st not match..  
49a0: 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e        if {[strin
49b0: 67 20 69 6e 64 65 78 20 24 65 78 70 65 63 74 65  g index $expecte
49c0: 64 20 30 5d 3d 3d 22 7e 22 7d 20 7b 0a 20 20 20  d 0]=="~"} {.   
49d0: 20 20 20 20 20 20 20 73 65 74 20 65 20 5b 73 74         set e [st
49e0: 72 69 6e 67 20 72 61 6e 67 65 20 24 65 78 70 65  ring range $expe
49f0: 63 74 65 64 20 31 20 65 6e 64 5d 0a 20 20 20 20  cted 1 end].    
4a00: 20 20 20 20 20 20 73 65 74 20 6f 6b 20 5b 65 78        set ok [ex
4a10: 70 72 20 7b 21 5b 73 74 72 69 6e 67 20 6d 61 74  pr {![string mat
4a20: 63 68 20 24 65 20 24 72 65 73 75 6c 74 5d 7d 5d  ch $e $result]}]
4a30: 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20  .        } else 
4a40: 7b 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20  {.          set 
4a50: 6f 6b 20 5b 73 74 72 69 6e 67 20 6d 61 74 63 68  ok [string match
4a60: 20 24 65 78 70 65 63 74 65 64 20 24 72 65 73 75   $expected $resu
4a70: 6c 74 5d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  lt].        }.  
4a80: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20      } else {.   
4a90: 20 20 20 20 20 73 65 74 20 6f 6b 20 5b 65 78 70       set ok [exp
4aa0: 72 20 7b 5b 73 74 72 69 6e 67 20 63 6f 6d 70 61  r {[string compa
4ab0: 72 65 20 24 72 65 73 75 6c 74 20 24 65 78 70 65  re $result $expe
4ac0: 63 74 65 64 5d 3d 3d 30 7d 5d 0a 20 20 20 20 20  cted]==0}].     
4ad0: 20 7d 0a 20 20 20 20 20 20 69 66 20 7b 21 24 6f   }.      if {!$o
4ae0: 6b 7d 20 7b 0a 20 20 20 20 20 20 20 20 23 20 69  k} {.        # i
4af0: 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73  f {![info exists
4b00: 20 3a 3a 74 65 73 74 70 72 65 66 69 78 5d 20 7c   ::testprefix] |
4b10: 7c 20 24 3a 3a 74 65 73 74 70 72 65 66 69 78 20  | $::testprefix 
4b20: 65 71 20 22 22 7d 20 7b 0a 20 20 20 20 20 20 20  eq ""} {.       
4b30: 20 23 20 20 20 65 72 72 6f 72 20 22 6e 6f 20 74   #   error "no t
4b40: 65 73 74 20 70 72 65 66 69 78 22 0a 20 20 20 20  est prefix".    
4b50: 20 20 20 20 23 20 7d 0a 20 20 20 20 20 20 20 20      # }.        
4b60: 70 75 74 73 20 22 5c 6e 45 78 70 65 63 74 65 64  puts "\nExpected
4b70: 3a 20 5c 5b 24 65 78 70 65 63 74 65 64 5c 5d 5c  : \[$expected\]\
4b80: 6e 20 20 20 20 20 47 6f 74 3a 20 5c 5b 24 72 65  n     Got: \[$re
4b90: 73 75 6c 74 5c 5d 22 0a 20 20 20 20 20 20 20 20  sult\]".        
4ba0: 66 61 69 6c 5f 74 65 73 74 20 24 6e 61 6d 65 0a  fail_test $name.
4bb0: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20        } else {. 
4bc0: 20 20 20 20 20 20 20 70 75 74 73 20 22 20 4f 6b         puts " Ok
4bd0: 22 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a  ".      }.    }.
4be0: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 70    } else {.    p
4bf0: 75 74 73 20 22 20 4f 6d 69 74 74 65 64 22 0a 20  uts " Omitted". 
4c00: 20 20 20 6f 6d 69 74 5f 74 65 73 74 20 24 6e 61     omit_test $na
4c10: 6d 65 20 22 70 61 74 74 65 72 6e 20 6d 69 73 6d  me "pattern mism
4c20: 61 74 63 68 22 20 30 0a 20 20 7d 0a 20 20 66 6c  atch" 0.  }.  fl
4c30: 75 73 68 20 73 74 64 6f 75 74 0a 7d 0a 0a 70 72  ush stdout.}..pr
4c40: 6f 63 20 63 61 74 63 68 63 6d 64 20 7b 64 62 20  oc catchcmd {db 
4c50: 7b 63 6d 64 20 22 22 7d 7d 20 7b 0a 20 20 67 6c  {cmd ""}} {.  gl
4c60: 6f 62 61 6c 20 43 4c 49 0a 20 20 73 65 74 20 6f  obal CLI.  set o
4c70: 75 74 20 5b 6f 70 65 6e 20 63 6d 64 73 2e 74 78  ut [open cmds.tx
4c80: 74 20 77 5d 0a 20 20 70 75 74 73 20 24 6f 75 74  t w].  puts $out
4c90: 20 24 63 6d 64 0a 20 20 63 6c 6f 73 65 20 24 6f   $cmd.  close $o
4ca0: 75 74 0a 20 20 73 65 74 20 6c 69 6e 65 20 22 65  ut.  set line "e
4cb0: 78 65 63 20 24 43 4c 49 20 24 64 62 20 3c 20 63  xec $CLI $db < c
4cc0: 6d 64 73 2e 74 78 74 22 0a 20 20 73 65 74 20 72  mds.txt".  set r
4cd0: 63 20 5b 63 61 74 63 68 20 7b 20 65 76 61 6c 20  c [catch { eval 
4ce0: 24 6c 69 6e 65 20 7d 20 6d 73 67 5d 0a 20 20 6c  $line } msg].  l
4cf0: 69 73 74 20 24 72 63 20 24 6d 73 67 0a 7d 0a 0a  ist $rc $msg.}..
4d00: 70 72 6f 63 20 66 69 6c 65 70 61 74 68 5f 6e 6f  proc filepath_no
4d10: 72 6d 61 6c 69 7a 65 20 7b 70 7d 20 7b 0a 20 20  rmalize {p} {.  
4d20: 23 20 74 65 73 74 20 63 61 73 65 73 20 73 68 6f  # test cases sho
4d30: 75 6c 64 20 62 65 20 77 72 69 74 74 65 6e 20 74  uld be written t
4d40: 6f 20 61 73 73 75 6d 65 20 22 75 6e 69 78 22 2d  o assume "unix"-
4d50: 6c 69 6b 65 20 66 69 6c 65 20 70 61 74 68 73 0a  like file paths.
4d60: 20 20 69 66 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61    if {$::tcl_pla
4d70: 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 21  tform(platform)!
4d80: 3d 22 75 6e 69 78 22 7d 20 7b 0a 20 20 20 20 23  ="unix"} {.    #
4d90: 20 6c 72 65 76 65 72 73 65 2a 32 20 61 73 20 61   lreverse*2 as a
4da0: 20 68 61 63 6b 20 74 6f 20 72 65 6d 6f 76 65 20   hack to remove 
4db0: 61 6e 79 20 75 6e 6e 65 65 64 65 64 20 7b 7d 20  any unneeded {} 
4dc0: 61 66 74 65 72 20 74 68 65 20 73 74 72 69 6e 67  after the string
4dd0: 20 6d 61 70 0a 20 20 20 20 6c 72 65 76 65 72 73   map.    lrevers
4de0: 65 20 5b 6c 72 65 76 65 72 73 65 20 5b 73 74 72  e [lreverse [str
4df0: 69 6e 67 20 6d 61 70 20 7b 5c 5c 20 2f 7d 20 5b  ing map {\\ /} [
4e00: 72 65 67 73 75 62 20 2d 6e 6f 63 61 73 65 20 2d  regsub -nocase -
4e10: 61 6c 6c 20 7b 5b 61 2d 7a 5d 3a 5b 2f 5c 5c 5d  all {[a-z]:[/\\]
4e20: 2b 7d 20 24 70 20 7b 2f 7d 5d 5d 5d 0a 20 20 7d  +} $p {/}]]].  }
4e30: 20 7b 0a 20 20 20 20 73 65 74 20 70 0a 20 20 7d   {.    set p.  }
4e40: 0a 7d 0a 70 72 6f 63 20 64 6f 5f 66 69 6c 65 70  .}.proc do_filep
4e50: 61 74 68 5f 74 65 73 74 20 7b 6e 61 6d 65 20 63  ath_test {name c
4e60: 6d 64 20 65 78 70 65 63 74 65 64 7d 20 7b 0a 20  md expected} {. 
4e70: 20 75 70 6c 65 76 65 6c 20 5b 6c 69 73 74 20 64   uplevel [list d
4e80: 6f 5f 74 65 73 74 20 24 6e 61 6d 65 20 5b 0a 20  o_test $name [. 
4e90: 20 20 20 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d     subst -nocomm
4ea0: 61 6e 64 73 20 7b 20 66 69 6c 65 70 61 74 68 5f  ands { filepath_
4eb0: 6e 6f 72 6d 61 6c 69 7a 65 20 5b 20 24 63 6d 64  normalize [ $cmd
4ec0: 20 5d 20 7d 0a 20 20 5d 20 5b 66 69 6c 65 70 61   ] }.  ] [filepa
4ed0: 74 68 5f 6e 6f 72 6d 61 6c 69 7a 65 20 24 65 78  th_normalize $ex
4ee0: 70 65 63 74 65 64 5d 5d 0a 7d 0a 0a 70 72 6f 63  pected]].}..proc
4ef0: 20 72 65 61 6c 6e 75 6d 5f 6e 6f 72 6d 61 6c 69   realnum_normali
4f00: 7a 65 20 7b 72 7d 20 7b 0a 20 20 23 20 64 69 66  ze {r} {.  # dif
4f10: 66 65 72 65 6e 74 20 54 43 4c 20 76 65 72 73 69  ferent TCL versi
4f20: 6f 6e 73 20 64 69 73 70 6c 61 79 20 66 6c 6f 61  ons display floa
4f30: 74 69 6e 67 20 70 6f 69 6e 74 20 76 61 6c 75 65  ting point value
4f40: 73 20 64 69 66 66 65 72 65 6e 74 6c 79 2e 0a 20  s differently.. 
4f50: 20 73 74 72 69 6e 67 20 6d 61 70 20 7b 31 2e 23   string map {1.#
4f60: 49 4e 46 20 69 6e 66 20 49 6e 66 20 69 6e 66 20  INF inf Inf inf 
4f70: 2e 30 65 20 65 7d 20 5b 72 65 67 73 75 62 20 2d  .0e e} [regsub -
4f80: 61 6c 6c 20 7b 28 65 5b 2b 2d 5d 29 30 2b 7d 20  all {(e[+-])0+} 
4f90: 24 72 20 7b 5c 31 7d 5d 0a 7d 0a 70 72 6f 63 20  $r {\1}].}.proc 
4fa0: 64 6f 5f 72 65 61 6c 6e 75 6d 5f 74 65 73 74 20  do_realnum_test 
4fb0: 7b 6e 61 6d 65 20 63 6d 64 20 65 78 70 65 63 74  {name cmd expect
4fc0: 65 64 7d 20 7b 0a 20 20 75 70 6c 65 76 65 6c 20  ed} {.  uplevel 
4fd0: 5b 6c 69 73 74 20 64 6f 5f 74 65 73 74 20 24 6e  [list do_test $n
4fe0: 61 6d 65 20 5b 0a 20 20 20 20 73 75 62 73 74 20  ame [.    subst 
4ff0: 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 7b 20 72 65  -nocommands { re
5000: 61 6c 6e 75 6d 5f 6e 6f 72 6d 61 6c 69 7a 65 20  alnum_normalize 
5010: 5b 20 24 63 6d 64 20 5d 20 7d 0a 20 20 5d 20 5b  [ $cmd ] }.  ] [
5020: 72 65 61 6c 6e 75 6d 5f 6e 6f 72 6d 61 6c 69 7a  realnum_normaliz
5030: 65 20 24 65 78 70 65 63 74 65 64 5d 5d 0a 7d 0a  e $expected]].}.
5040: 0a 70 72 6f 63 20 66 69 78 5f 74 65 73 74 6e 61  .proc fix_testna
5050: 6d 65 20 7b 76 61 72 6e 61 6d 65 7d 20 7b 0a 20  me {varname} {. 
5060: 20 75 70 76 61 72 20 24 76 61 72 6e 61 6d 65 20   upvar $varname 
5070: 74 65 73 74 6e 61 6d 65 0a 20 20 69 66 20 7b 5b  testname.  if {[
5080: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 65  info exists ::te
5090: 73 74 70 72 65 66 69 78 5d 0a 20 20 20 26 26 20  stprefix].   && 
50a0: 5b 73 74 72 69 6e 67 20 69 73 20 64 69 67 69 74  [string is digit
50b0: 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24   [string range $
50c0: 74 65 73 74 6e 61 6d 65 20 30 20 30 5d 5d 0a 20  testname 0 0]]. 
50d0: 20 7d 20 7b 0a 20 20 20 20 73 65 74 20 74 65 73   } {.    set tes
50e0: 74 6e 61 6d 65 20 22 24 7b 3a 3a 74 65 73 74 70  tname "${::testp
50f0: 72 65 66 69 78 7d 2d 24 74 65 73 74 6e 61 6d 65  refix}-$testname
5100: 22 0a 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20 64 6f  ".  }.}..proc do
5110: 5f 65 78 65 63 73 71 6c 5f 74 65 73 74 20 7b 74  _execsql_test {t
5120: 65 73 74 6e 61 6d 65 20 73 71 6c 20 7b 72 65 73  estname sql {res
5130: 75 6c 74 20 7b 7d 7d 7d 20 7b 0a 20 20 66 69 78  ult {}}} {.  fix
5140: 5f 74 65 73 74 6e 61 6d 65 20 74 65 73 74 6e 61  _testname testna
5150: 6d 65 0a 20 20 75 70 6c 65 76 65 6c 20 64 6f 5f  me.  uplevel do_
5160: 74 65 73 74 20 5b 6c 69 73 74 20 24 74 65 73 74  test [list $test
5170: 6e 61 6d 65 5d 20 5b 6c 69 73 74 20 22 65 78 65  name] [list "exe
5180: 63 73 71 6c 20 7b 24 73 71 6c 7d 22 5d 20 5b 6c  csql {$sql}"] [l
5190: 69 73 74 20 5b 6c 69 73 74 20 7b 2a 7d 24 72 65  ist [list {*}$re
51a0: 73 75 6c 74 5d 5d 0a 7d 0a 70 72 6f 63 20 64 6f  sult]].}.proc do
51b0: 5f 63 61 74 63 68 73 71 6c 5f 74 65 73 74 20 7b  _catchsql_test {
51c0: 74 65 73 74 6e 61 6d 65 20 73 71 6c 20 72 65 73  testname sql res
51d0: 75 6c 74 7d 20 7b 0a 20 20 66 69 78 5f 74 65 73  ult} {.  fix_tes
51e0: 74 6e 61 6d 65 20 74 65 73 74 6e 61 6d 65 0a 20  tname testname. 
51f0: 20 75 70 6c 65 76 65 6c 20 64 6f 5f 74 65 73 74   uplevel do_test
5200: 20 5b 6c 69 73 74 20 24 74 65 73 74 6e 61 6d 65   [list $testname
5210: 5d 20 5b 6c 69 73 74 20 22 63 61 74 63 68 73 71  ] [list "catchsq
5220: 6c 20 7b 24 73 71 6c 7d 22 5d 20 5b 6c 69 73 74  l {$sql}"] [list
5230: 20 24 72 65 73 75 6c 74 5d 0a 7d 0a 70 72 6f 63   $result].}.proc
5240: 20 64 6f 5f 74 69 6d 65 64 5f 65 78 65 63 73 71   do_timed_execsq
5250: 6c 5f 74 65 73 74 20 7b 74 65 73 74 6e 61 6d 65  l_test {testname
5260: 20 73 71 6c 20 7b 72 65 73 75 6c 74 20 7b 7d 7d   sql {result {}}
5270: 7d 20 7b 0a 20 20 66 69 78 5f 74 65 73 74 6e 61  } {.  fix_testna
5280: 6d 65 20 74 65 73 74 6e 61 6d 65 0a 20 20 75 70  me testname.  up
5290: 6c 65 76 65 6c 20 64 6f 5f 74 65 73 74 20 5b 6c  level do_test [l
52a0: 69 73 74 20 24 74 65 73 74 6e 61 6d 65 5d 20 5b  ist $testname] [
52b0: 6c 69 73 74 20 22 65 78 65 63 73 71 6c 5f 74 69  list "execsql_ti
52c0: 6d 65 64 20 7b 24 73 71 6c 7d 22 5d 5c 0a 20 20  med {$sql}"]\.  
52d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
52e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
52f0: 20 5b 6c 69 73 74 20 5b 6c 69 73 74 20 7b 2a 7d   [list [list {*}
5300: 24 72 65 73 75 6c 74 5d 5d 0a 7d 0a 70 72 6f 63  $result]].}.proc
5310: 20 64 6f 5f 65 71 70 5f 74 65 73 74 20 7b 6e 61   do_eqp_test {na
5320: 6d 65 20 73 71 6c 20 72 65 73 7d 20 7b 0a 20 20  me sql res} {.  
5330: 75 70 6c 65 76 65 6c 20 64 6f 5f 65 78 65 63 73  uplevel do_execs
5340: 71 6c 5f 74 65 73 74 20 24 6e 61 6d 65 20 5b 6c  ql_test $name [l
5350: 69 73 74 20 22 45 58 50 4c 41 49 4e 20 51 55 45  ist "EXPLAIN QUE
5360: 52 59 20 50 4c 41 4e 20 24 73 71 6c 22 5d 20 5b  RY PLAN $sql"] [
5370: 6c 69 73 74 20 24 72 65 73 5d 0a 7d 0a 0a 23 2d  list $res].}..#-
5380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
53a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
53b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
53c0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 20 20 55 73 61  --------.#   Usa
53d0: 67 65 3a 20 64 6f 5f 73 65 6c 65 63 74 5f 74 65  ge: do_select_te
53e0: 73 74 73 20 50 52 45 46 49 58 20 3f 53 57 49 54  sts PREFIX ?SWIT
53f0: 43 48 45 53 3f 20 54 45 53 54 4c 49 53 54 0a 23  CHES? TESTLIST.#
5400: 0a 23 20 57 68 65 72 65 20 73 77 69 74 63 68 65  .# Where switche
5410: 73 20 61 72 65 3a 0a 23 0a 23 20 20 20 2d 65 72  s are:.#.#   -er
5420: 72 6f 72 66 6f 72 6d 61 74 20 46 4d 54 53 54 52  rorformat FMTSTR
5430: 49 4e 47 0a 23 20 20 20 2d 63 6f 75 6e 74 0a 23  ING.#   -count.#
5440: 20 20 20 2d 71 75 65 72 79 20 53 51 4c 0a 23 20     -query SQL.# 
5450: 20 20 2d 74 63 6c 71 75 65 72 79 20 54 43 4c 0a    -tclquery TCL.
5460: 23 20 20 20 2d 72 65 70 61 69 72 20 54 43 4c 0a  #   -repair TCL.
5470: 23 0a 70 72 6f 63 20 64 6f 5f 73 65 6c 65 63 74  #.proc do_select
5480: 5f 74 65 73 74 73 20 7b 70 72 65 66 69 78 20 61  _tests {prefix a
5490: 72 67 73 7d 20 7b 0a 0a 20 20 73 65 74 20 74 65  rgs} {..  set te
54a0: 73 74 6c 69 73 74 20 5b 6c 69 6e 64 65 78 20 24  stlist [lindex $
54b0: 61 72 67 73 20 65 6e 64 5d 0a 20 20 73 65 74 20  args end].  set 
54c0: 73 77 69 74 63 68 65 73 20 5b 6c 72 61 6e 67 65  switches [lrange
54d0: 20 24 61 72 67 73 20 30 20 65 6e 64 2d 31 5d 0a   $args 0 end-1].
54e0: 0a 20 20 73 65 74 20 65 72 72 66 6d 74 20 22 22  .  set errfmt ""
54f0: 0a 20 20 73 65 74 20 63 6f 75 6e 74 6f 6e 6c 79  .  set countonly
5500: 20 30 0a 20 20 73 65 74 20 74 63 6c 71 75 65 72   0.  set tclquer
5510: 79 20 22 22 0a 20 20 73 65 74 20 72 65 70 61 69  y "".  set repai
5520: 72 20 22 22 0a 0a 20 20 66 6f 72 20 7b 73 65 74  r ""..  for {set
5530: 20 69 20 30 7d 20 7b 24 69 20 3c 20 5b 6c 6c 65   i 0} {$i < [lle
5540: 6e 67 74 68 20 24 73 77 69 74 63 68 65 73 5d 7d  ngth $switches]}
5550: 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20   {incr i} {.    
5560: 73 65 74 20 73 20 5b 6c 69 6e 64 65 78 20 24 73  set s [lindex $s
5570: 77 69 74 63 68 65 73 20 24 69 5d 0a 20 20 20 20  witches $i].    
5580: 73 65 74 20 6e 20 5b 73 74 72 69 6e 67 20 6c 65  set n [string le
5590: 6e 67 74 68 20 24 73 5d 0a 20 20 20 20 69 66 20  ngth $s].    if 
55a0: 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e  {$n>=2 && [strin
55b0: 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68 20  g equal -length 
55c0: 24 6e 20 24 73 20 22 2d 71 75 65 72 79 22 5d 7d  $n $s "-query"]}
55d0: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 74 63 6c   {.      set tcl
55e0: 71 75 65 72 79 20 5b 6c 69 73 74 20 65 78 65 63  query [list exec
55f0: 73 71 6c 20 5b 6c 69 6e 64 65 78 20 24 73 77 69  sql [lindex $swi
5600: 74 63 68 65 73 20 5b 69 6e 63 72 20 69 5d 5d 5d  tches [incr i]]]
5610: 0a 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24  .    } elseif {$
5620: 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e 67 20  n>=2 && [string 
5630: 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24 6e  equal -length $n
5640: 20 24 73 20 22 2d 74 63 6c 71 75 65 72 79 22 5d   $s "-tclquery"]
5650: 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 74 63  } {.      set tc
5660: 6c 71 75 65 72 79 20 5b 6c 69 6e 64 65 78 20 24  lquery [lindex $
5670: 73 77 69 74 63 68 65 73 20 5b 69 6e 63 72 20 69  switches [incr i
5680: 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66 20  ]].    } elseif 
5690: 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e  {$n>=2 && [strin
56a0: 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68 20  g equal -length 
56b0: 24 6e 20 24 73 20 22 2d 65 72 72 6f 72 66 6f 72  $n $s "-errorfor
56c0: 6d 61 74 22 5d 7d 20 7b 0a 20 20 20 20 20 20 73  mat"]} {.      s
56d0: 65 74 20 65 72 72 66 6d 74 20 5b 6c 69 6e 64 65  et errfmt [linde
56e0: 78 20 24 73 77 69 74 63 68 65 73 20 5b 69 6e 63  x $switches [inc
56f0: 72 20 69 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65  r i]].    } else
5700: 69 66 20 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74  if {$n>=2 && [st
5710: 72 69 6e 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67  ring equal -leng
5720: 74 68 20 24 6e 20 24 73 20 22 2d 72 65 70 61 69  th $n $s "-repai
5730: 72 22 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74  r"]} {.      set
5740: 20 72 65 70 61 69 72 20 5b 6c 69 6e 64 65 78 20   repair [lindex 
5750: 24 73 77 69 74 63 68 65 73 20 5b 69 6e 63 72 20  $switches [incr 
5760: 69 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66  i]].    } elseif
5770: 20 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69   {$n>=2 && [stri
5780: 6e 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68  ng equal -length
5790: 20 24 6e 20 24 73 20 22 2d 63 6f 75 6e 74 22 5d   $n $s "-count"]
57a0: 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 63 6f  } {.      set co
57b0: 75 6e 74 6f 6e 6c 79 20 31 0a 20 20 20 20 7d 20  untonly 1.    } 
57c0: 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 65 72 72  else {.      err
57d0: 6f 72 20 22 75 6e 6b 6e 6f 77 6e 20 73 77 69 74  or "unknown swit
57e0: 63 68 3a 20 24 73 22 0a 20 20 20 20 7d 0a 20 20  ch: $s".    }.  
57f0: 7d 0a 0a 20 20 69 66 20 7b 24 63 6f 75 6e 74 6f  }..  if {$counto
5800: 6e 6c 79 20 26 26 20 24 65 72 72 66 6d 74 21 3d  nly && $errfmt!=
5810: 22 22 7d 20 7b 0a 20 20 20 20 65 72 72 6f 72 20  ""} {.    error 
5820: 22 43 61 6e 6e 6f 74 20 75 73 65 20 2d 63 6f 75  "Cannot use -cou
5830: 6e 74 20 61 6e 64 20 2d 65 72 72 6f 72 66 6f 72  nt and -errorfor
5840: 6d 61 74 20 74 6f 67 65 74 68 65 72 22 0a 20 20  mat together".  
5850: 7d 0a 20 20 73 65 74 20 6e 54 65 73 74 6c 69 73  }.  set nTestlis
5860: 74 20 5b 6c 6c 65 6e 67 74 68 20 24 74 65 73 74  t [llength $test
5870: 6c 69 73 74 5d 0a 20 20 69 66 20 7b 24 6e 54 65  list].  if {$nTe
5880: 73 74 6c 69 73 74 25 33 20 7c 7c 20 24 6e 54 65  stlist%3 || $nTe
5890: 73 74 6c 69 73 74 3d 3d 30 20 7d 20 7b 0a 20 20  stlist==0 } {.  
58a0: 20 20 65 72 72 6f 72 20 22 53 45 4c 45 43 54 20    error "SELECT 
58b0: 74 65 73 74 20 6c 69 73 74 20 63 6f 6e 74 61 69  test list contai
58c0: 6e 73 20 5b 6c 6c 65 6e 67 74 68 20 24 74 65 73  ns [llength $tes
58d0: 74 6c 69 73 74 5d 20 65 6c 65 6d 65 6e 74 73 22  tlist] elements"
58e0: 0a 20 20 7d 0a 0a 20 20 65 76 61 6c 20 24 72 65  .  }..  eval $re
58f0: 70 61 69 72 0a 20 20 66 6f 72 65 61 63 68 20 7b  pair.  foreach {
5900: 74 6e 20 73 71 6c 20 72 65 73 7d 20 24 74 65 73  tn sql res} $tes
5910: 74 6c 69 73 74 20 7b 0a 20 20 20 20 69 66 20 7b  tlist {.    if {
5920: 24 74 63 6c 71 75 65 72 79 20 21 3d 20 22 22 7d  $tclquery != ""}
5930: 20 7b 0a 20 20 20 20 20 20 65 78 65 63 73 71 6c   {.      execsql
5940: 20 24 73 71 6c 0a 20 20 20 20 20 20 75 70 6c 65   $sql.      uple
5950: 76 65 6c 20 64 6f 5f 74 65 73 74 20 24 7b 70 72  vel do_test ${pr
5960: 65 66 69 78 7d 2e 24 74 6e 20 5b 6c 69 73 74 20  efix}.$tn [list 
5970: 24 74 63 6c 71 75 65 72 79 5d 20 5b 6c 69 73 74  $tclquery] [list
5980: 20 5b 6c 69 73 74 20 7b 2a 7d 24 72 65 73 5d 5d   [list {*}$res]]
5990: 0a 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24  .    } elseif {$
59a0: 63 6f 75 6e 74 6f 6e 6c 79 7d 20 7b 0a 20 20 20  countonly} {.   
59b0: 20 20 20 73 65 74 20 6e 52 6f 77 20 30 0a 20 20     set nRow 0.  
59c0: 20 20 20 20 64 62 20 65 76 61 6c 20 24 73 71 6c      db eval $sql
59d0: 20 7b 69 6e 63 72 20 6e 52 6f 77 7d 0a 20 20 20   {incr nRow}.   
59e0: 20 20 20 75 70 6c 65 76 65 6c 20 64 6f 5f 74 65     uplevel do_te
59f0: 73 74 20 24 7b 70 72 65 66 69 78 7d 2e 24 74 6e  st ${prefix}.$tn
5a00: 20 5b 6c 69 73 74 20 5b 6c 69 73 74 20 73 65 74   [list [list set
5a10: 20 7b 7d 20 24 6e 52 6f 77 5d 5d 20 5b 6c 69 73   {} $nRow]] [lis
5a20: 74 20 24 72 65 73 5d 0a 20 20 20 20 7d 20 65 6c  t $res].    } el
5a30: 73 65 69 66 20 7b 24 65 72 72 66 6d 74 3d 3d 22  seif {$errfmt=="
5a40: 22 7d 20 7b 0a 20 20 20 20 20 20 75 70 6c 65 76  "} {.      uplev
5a50: 65 6c 20 64 6f 5f 65 78 65 63 73 71 6c 5f 74 65  el do_execsql_te
5a60: 73 74 20 24 7b 70 72 65 66 69 78 7d 2e 24 7b 74  st ${prefix}.${t
5a70: 6e 7d 20 5b 6c 69 73 74 20 24 73 71 6c 5d 20 5b  n} [list $sql] [
5a80: 6c 69 73 74 20 5b 6c 69 73 74 20 7b 2a 7d 24 72  list [list {*}$r
5a90: 65 73 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65 20  es]].    } else 
5aa0: 7b 0a 20 20 20 20 20 20 73 65 74 20 72 65 73 20  {.      set res 
5ab0: 5b 6c 69 73 74 20 31 20 5b 73 74 72 69 6e 67 20  [list 1 [string 
5ac0: 74 72 69 6d 20 5b 66 6f 72 6d 61 74 20 24 65 72  trim [format $er
5ad0: 72 66 6d 74 20 7b 2a 7d 24 72 65 73 5d 5d 5d 0a  rfmt {*}$res]]].
5ae0: 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20 64 6f        uplevel do
5af0: 5f 63 61 74 63 68 73 71 6c 5f 74 65 73 74 20 24  _catchsql_test $
5b00: 7b 70 72 65 66 69 78 7d 2e 24 7b 74 6e 7d 20 5b  {prefix}.${tn} [
5b10: 6c 69 73 74 20 24 73 71 6c 5d 20 5b 6c 69 73 74  list $sql] [list
5b20: 20 24 72 65 73 5d 0a 20 20 20 20 7d 0a 20 20 20   $res].    }.   
5b30: 20 65 76 61 6c 20 24 72 65 70 61 69 72 0a 20 20   eval $repair.  
5b40: 7d 0a 0a 7d 0a 0a 70 72 6f 63 20 64 65 6c 65 74  }..}..proc delet
5b50: 65 5f 61 6c 6c 5f 64 61 74 61 20 7b 7d 20 7b 0a  e_all_data {} {.
5b60: 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43    db eval {SELEC
5b70: 54 20 74 62 6c 5f 6e 61 6d 65 20 41 53 20 74 20  T tbl_name AS t 
5b80: 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74  FROM sqlite_mast
5b90: 65 72 20 57 48 45 52 45 20 74 79 70 65 20 3d 20  er WHERE type = 
5ba0: 27 74 61 62 6c 65 27 7d 20 7b 0a 20 20 20 20 64  'table'} {.    d
5bb0: 62 20 65 76 61 6c 20 22 44 45 4c 45 54 45 20 46  b eval "DELETE F
5bc0: 52 4f 4d 20 27 5b 73 74 72 69 6e 67 20 6d 61 70  ROM '[string map
5bd0: 20 7b 27 20 27 27 7d 20 24 74 5d 27 22 0a 20 20   {' ''} $t]'".  
5be0: 7d 0a 7d 0a 0a 23 20 52 75 6e 20 61 6e 20 53 51  }.}..# Run an SQ
5bf0: 4c 20 73 63 72 69 70 74 2e 0a 23 20 52 65 74 75  L script..# Retu
5c00: 72 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66  rn the number of
5c10: 20 6d 69 63 72 6f 73 65 63 6f 6e 64 73 20 70 65   microseconds pe
5c20: 72 20 73 74 61 74 65 6d 65 6e 74 2e 0a 23 0a 70  r statement..#.p
5c30: 72 6f 63 20 73 70 65 65 64 5f 74 72 69 61 6c 20  roc speed_trial 
5c40: 7b 6e 61 6d 65 20 6e 75 6d 73 74 6d 74 20 75 6e  {name numstmt un
5c50: 69 74 73 20 73 71 6c 7d 20 7b 0a 20 20 70 75 74  its sql} {.  put
5c60: 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 5b 66 6f  s -nonewline [fo
5c70: 72 6d 61 74 20 7b 25 2d 32 31 2e 32 31 73 20 7d  rmat {%-21.21s }
5c80: 20 24 6e 61 6d 65 2e 2e 2e 5d 0a 20 20 66 6c 75   $name...].  flu
5c90: 73 68 20 73 74 64 6f 75 74 0a 20 20 73 65 74 20  sh stdout.  set 
5ca0: 73 70 65 65 64 20 5b 74 69 6d 65 20 7b 73 71 6c  speed [time {sql
5cb0: 69 74 65 33 5f 65 78 65 63 5f 6e 72 20 64 62 20  ite3_exec_nr db 
5cc0: 24 73 71 6c 7d 5d 0a 20 20 73 65 74 20 74 6d 20  $sql}].  set tm 
5cd0: 5b 6c 69 6e 64 65 78 20 24 73 70 65 65 64 20 30  [lindex $speed 0
5ce0: 5d 0a 20 20 69 66 20 7b 24 74 6d 20 3d 3d 20 30  ].  if {$tm == 0
5cf0: 7d 20 7b 0a 20 20 20 20 73 65 74 20 72 61 74 65  } {.    set rate
5d00: 20 5b 66 6f 72 6d 61 74 20 25 32 30 73 20 22 6d   [format %20s "m
5d10: 61 6e 79 22 5d 0a 20 20 7d 20 65 6c 73 65 20 7b  any"].  } else {
5d20: 0a 20 20 20 20 73 65 74 20 72 61 74 65 20 5b 66  .    set rate [f
5d30: 6f 72 6d 61 74 20 25 32 30 2e 35 66 20 5b 65 78  ormat %20.5f [ex
5d40: 70 72 20 7b 31 30 30 30 30 30 30 2e 30 2a 24 6e  pr {1000000.0*$n
5d50: 75 6d 73 74 6d 74 2f 24 74 6d 7d 5d 5d 0a 20 20  umstmt/$tm}]].  
5d60: 7d 0a 20 20 73 65 74 20 75 32 20 24 75 6e 69 74  }.  set u2 $unit
5d70: 73 2f 73 0a 20 20 70 75 74 73 20 5b 66 6f 72 6d  s/s.  puts [form
5d80: 61 74 20 7b 25 31 32 64 20 75 53 20 25 73 20 25  at {%12d uS %s %
5d90: 73 7d 20 24 74 6d 20 24 72 61 74 65 20 24 75 32  s} $tm $rate $u2
5da0: 5d 0a 20 20 67 6c 6f 62 61 6c 20 74 6f 74 61 6c  ].  global total
5db0: 5f 74 69 6d 65 0a 20 20 73 65 74 20 74 6f 74 61  _time.  set tota
5dc0: 6c 5f 74 69 6d 65 20 5b 65 78 70 72 20 7b 24 74  l_time [expr {$t
5dd0: 6f 74 61 6c 5f 74 69 6d 65 2b 24 74 6d 7d 5d 0a  otal_time+$tm}].
5de0: 20 20 6c 61 70 70 65 6e 64 20 3a 3a 73 70 65 65    lappend ::spee
5df0: 64 5f 74 72 69 61 6c 5f 74 69 6d 65 73 20 24 6e  d_trial_times $n
5e00: 61 6d 65 20 24 74 6d 0a 7d 0a 70 72 6f 63 20 73  ame $tm.}.proc s
5e10: 70 65 65 64 5f 74 72 69 61 6c 5f 74 63 6c 20 7b  peed_trial_tcl {
5e20: 6e 61 6d 65 20 6e 75 6d 73 74 6d 74 20 75 6e 69  name numstmt uni
5e30: 74 73 20 73 63 72 69 70 74 7d 20 7b 0a 20 20 70  ts script} {.  p
5e40: 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 5b  uts -nonewline [
5e50: 66 6f 72 6d 61 74 20 7b 25 2d 32 31 2e 32 31 73  format {%-21.21s
5e60: 20 7d 20 24 6e 61 6d 65 2e 2e 2e 5d 0a 20 20 66   } $name...].  f
5e70: 6c 75 73 68 20 73 74 64 6f 75 74 0a 20 20 73 65  lush stdout.  se
5e80: 74 20 73 70 65 65 64 20 5b 74 69 6d 65 20 7b 65  t speed [time {e
5e90: 76 61 6c 20 24 73 63 72 69 70 74 7d 5d 0a 20 20  val $script}].  
5ea0: 73 65 74 20 74 6d 20 5b 6c 69 6e 64 65 78 20 24  set tm [lindex $
5eb0: 73 70 65 65 64 20 30 5d 0a 20 20 69 66 20 7b 24  speed 0].  if {$
5ec0: 74 6d 20 3d 3d 20 30 7d 20 7b 0a 20 20 20 20 73  tm == 0} {.    s
5ed0: 65 74 20 72 61 74 65 20 5b 66 6f 72 6d 61 74 20  et rate [format 
5ee0: 25 32 30 73 20 22 6d 61 6e 79 22 5d 0a 20 20 7d  %20s "many"].  }
5ef0: 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20   else {.    set 
5f00: 72 61 74 65 20 5b 66 6f 72 6d 61 74 20 25 32 30  rate [format %20
5f10: 2e 35 66 20 5b 65 78 70 72 20 7b 31 30 30 30 30  .5f [expr {10000
5f20: 30 30 2e 30 2a 24 6e 75 6d 73 74 6d 74 2f 24 74  00.0*$numstmt/$t
5f30: 6d 7d 5d 5d 0a 20 20 7d 0a 20 20 73 65 74 20 75  m}]].  }.  set u
5f40: 32 20 24 75 6e 69 74 73 2f 73 0a 20 20 70 75 74  2 $units/s.  put
5f50: 73 20 5b 66 6f 72 6d 61 74 20 7b 25 31 32 64 20  s [format {%12d 
5f60: 75 53 20 25 73 20 25 73 7d 20 24 74 6d 20 24 72  uS %s %s} $tm $r
5f70: 61 74 65 20 24 75 32 5d 0a 20 20 67 6c 6f 62 61  ate $u2].  globa
5f80: 6c 20 74 6f 74 61 6c 5f 74 69 6d 65 0a 20 20 73  l total_time.  s
5f90: 65 74 20 74 6f 74 61 6c 5f 74 69 6d 65 20 5b 65  et total_time [e
5fa0: 78 70 72 20 7b 24 74 6f 74 61 6c 5f 74 69 6d 65  xpr {$total_time
5fb0: 2b 24 74 6d 7d 5d 0a 20 20 6c 61 70 70 65 6e 64  +$tm}].  lappend
5fc0: 20 3a 3a 73 70 65 65 64 5f 74 72 69 61 6c 5f 74   ::speed_trial_t
5fd0: 69 6d 65 73 20 24 6e 61 6d 65 20 24 74 6d 0a 7d  imes $name $tm.}
5fe0: 0a 70 72 6f 63 20 73 70 65 65 64 5f 74 72 69 61  .proc speed_tria
5ff0: 6c 5f 69 6e 69 74 20 7b 6e 61 6d 65 7d 20 7b 0a  l_init {name} {.
6000: 20 20 67 6c 6f 62 61 6c 20 74 6f 74 61 6c 5f 74    global total_t
6010: 69 6d 65 0a 20 20 73 65 74 20 74 6f 74 61 6c 5f  ime.  set total_
6020: 74 69 6d 65 20 30 0a 20 20 73 65 74 20 3a 3a 73  time 0.  set ::s
6030: 70 65 65 64 5f 74 72 69 61 6c 5f 74 69 6d 65 73  peed_trial_times
6040: 20 5b 6c 69 73 74 5d 0a 20 20 73 71 6c 69 74 65   [list].  sqlite
6050: 33 20 76 65 72 73 64 62 20 3a 6d 65 6d 6f 72 79  3 versdb :memory
6060: 3a 0a 20 20 73 65 74 20 76 65 72 73 20 5b 76 65  :.  set vers [ve
6070: 72 73 64 62 20 6f 6e 65 20 7b 53 45 4c 45 43 54  rsdb one {SELECT
6080: 20 73 71 6c 69 74 65 5f 73 6f 75 72 63 65 5f 69   sqlite_source_i
6090: 64 28 29 7d 5d 0a 20 20 76 65 72 73 64 62 20 63  d()}].  versdb c
60a0: 6c 6f 73 65 0a 20 20 70 75 74 73 20 22 53 51 4c  lose.  puts "SQL
60b0: 69 74 65 20 24 76 65 72 73 22 0a 7d 0a 70 72 6f  ite $vers".}.pro
60c0: 63 20 73 70 65 65 64 5f 74 72 69 61 6c 5f 73 75  c speed_trial_su
60d0: 6d 6d 61 72 79 20 7b 6e 61 6d 65 7d 20 7b 0a 20  mmary {name} {. 
60e0: 20 67 6c 6f 62 61 6c 20 74 6f 74 61 6c 5f 74 69   global total_ti
60f0: 6d 65 0a 20 20 70 75 74 73 20 5b 66 6f 72 6d 61  me.  puts [forma
6100: 74 20 7b 25 2d 32 31 2e 32 31 73 20 25 31 32 64  t {%-21.21s %12d
6110: 20 75 53 20 54 4f 54 41 4c 7d 20 24 6e 61 6d 65   uS TOTAL} $name
6120: 20 24 74 6f 74 61 6c 5f 74 69 6d 65 5d 0a 0a 20   $total_time].. 
6130: 20 69 66 20 7b 20 30 20 7d 20 7b 0a 20 20 20 20   if { 0 } {.    
6140: 73 71 6c 69 74 65 33 20 76 65 72 73 64 62 20 3a  sqlite3 versdb :
6150: 6d 65 6d 6f 72 79 3a 0a 20 20 20 20 73 65 74 20  memory:.    set 
6160: 76 65 72 73 20 5b 6c 69 6e 64 65 78 20 5b 76 65  vers [lindex [ve
6170: 72 73 64 62 20 6f 6e 65 20 7b 53 45 4c 45 43 54  rsdb one {SELECT
6180: 20 73 71 6c 69 74 65 5f 73 6f 75 72 63 65 5f 69   sqlite_source_i
6190: 64 28 29 7d 5d 20 30 5d 0a 20 20 20 20 76 65 72  d()}] 0].    ver
61a0: 73 64 62 20 63 6c 6f 73 65 0a 20 20 20 20 70 75  sdb close.    pu
61b0: 74 73 20 22 43 52 45 41 54 45 20 54 41 42 4c 45  ts "CREATE TABLE
61c0: 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20 74   IF NOT EXISTS t
61d0: 69 6d 65 28 76 65 72 73 69 6f 6e 2c 20 73 63 72  ime(version, scr
61e0: 69 70 74 2c 20 74 65 73 74 2c 20 75 73 29 3b 22  ipt, test, us);"
61f0: 0a 20 20 20 20 66 6f 72 65 61 63 68 20 7b 74 65  .    foreach {te
6200: 73 74 20 75 73 7d 20 24 3a 3a 73 70 65 65 64 5f  st us} $::speed_
6210: 74 72 69 61 6c 5f 74 69 6d 65 73 20 7b 0a 20 20  trial_times {.  
6220: 20 20 20 20 70 75 74 73 20 22 49 4e 53 45 52 54      puts "INSERT
6230: 20 49 4e 54 4f 20 74 69 6d 65 20 56 41 4c 55 45   INTO time VALUE
6240: 53 28 27 24 76 65 72 73 27 2c 20 27 24 6e 61 6d  S('$vers', '$nam
6250: 65 27 2c 20 27 24 74 65 73 74 27 2c 20 24 75 73  e', '$test', $us
6260: 29 3b 22 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a  );".    }.  }.}.
6270: 0a 23 20 52 75 6e 20 74 68 69 73 20 72 6f 75 74  .# Run this rout
6280: 69 6e 65 20 6c 61 73 74 0a 23 0a 70 72 6f 63 20  ine last.#.proc 
6290: 66 69 6e 69 73 68 5f 74 65 73 74 20 7b 7d 20 7b  finish_test {} {
62a0: 0a 20 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f  .  catch {db clo
62b0: 73 65 7d 0a 20 20 63 61 74 63 68 20 7b 64 62 32  se}.  catch {db2
62c0: 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68 20   close}.  catch 
62d0: 7b 64 62 33 20 63 6c 6f 73 65 7d 0a 20 20 69 66  {db3 close}.  if
62e0: 20 7b 30 3d 3d 5b 69 6e 66 6f 20 65 78 69 73 74   {0==[info exist
62f0: 73 20 3a 3a 53 4c 41 56 45 5d 7d 20 7b 20 66 69  s ::SLAVE]} { fi
6300: 6e 61 6c 69 7a 65 5f 74 65 73 74 69 6e 67 20 7d  nalize_testing }
6310: 0a 7d 0a 70 72 6f 63 20 66 69 6e 61 6c 69 7a 65  .}.proc finalize
6320: 5f 74 65 73 74 69 6e 67 20 7b 7d 20 7b 0a 20 20  _testing {} {.  
6330: 67 6c 6f 62 61 6c 20 73 71 6c 69 74 65 5f 6f 70  global sqlite_op
6340: 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 0a 0a 20  en_file_count.. 
6350: 20 73 65 74 20 6f 6d 69 74 4c 69 73 74 20 5b 73   set omitList [s
6360: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20  et_test_counter 
6370: 6f 6d 69 74 5f 6c 69 73 74 5d 0a 0a 20 20 63 61  omit_list]..  ca
6380: 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 20  tch {db close}. 
6390: 20 63 61 74 63 68 20 7b 64 62 32 20 63 6c 6f 73   catch {db2 clos
63a0: 65 7d 0a 20 20 63 61 74 63 68 20 7b 64 62 33 20  e}.  catch {db3 
63b0: 63 6c 6f 73 65 7d 0a 0a 20 20 76 66 73 5f 75 6e  close}..  vfs_un
63c0: 6c 69 6e 6b 5f 74 65 73 74 0a 20 20 73 71 6c 69  link_test.  sqli
63d0: 74 65 33 20 64 62 20 7b 7d 0a 20 20 23 20 73 71  te3 db {}.  # sq
63e0: 6c 69 74 65 33 5f 63 6c 65 61 72 5f 74 73 64 5f  lite3_clear_tsd_
63f0: 6d 65 6d 64 65 62 75 67 0a 20 20 64 62 20 63 6c  memdebug.  db cl
6400: 6f 73 65 0a 20 20 73 71 6c 69 74 65 33 5f 72 65  ose.  sqlite3_re
6410: 73 65 74 5f 61 75 74 6f 5f 65 78 74 65 6e 73 69  set_auto_extensi
6420: 6f 6e 0a 0a 20 20 73 71 6c 69 74 65 33 5f 73 6f  on..  sqlite3_so
6430: 66 74 5f 68 65 61 70 5f 6c 69 6d 69 74 20 30 0a  ft_heap_limit 0.
6440: 20 20 73 65 74 20 6e 54 65 73 74 20 5b 69 6e 63    set nTest [inc
6450: 72 5f 6e 74 65 73 74 5d 0a 20 20 73 65 74 20 6e  r_ntest].  set n
6460: 45 72 72 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f  Err [set_test_co
6470: 75 6e 74 65 72 20 65 72 72 6f 72 73 5d 0a 0a 20  unter errors].. 
6480: 20 73 65 74 20 6e 4b 6e 6f 77 6e 20 30 0a 20 20   set nKnown 0.  
6490: 69 66 20 7b 5b 66 69 6c 65 20 72 65 61 64 61 62  if {[file readab
64a0: 6c 65 20 6b 6e 6f 77 6e 2d 70 72 6f 62 6c 65 6d  le known-problem
64b0: 73 2e 74 78 74 5d 7d 20 7b 0a 20 20 20 20 73 65  s.txt]} {.    se
64c0: 74 20 66 64 20 5b 6f 70 65 6e 20 6b 6e 6f 77 6e  t fd [open known
64d0: 2d 70 72 6f 62 6c 65 6d 73 2e 74 78 74 5d 0a 20  -problems.txt]. 
64e0: 20 20 20 73 65 74 20 63 6f 6e 74 65 6e 74 20 5b     set content [
64f0: 72 65 61 64 20 24 66 64 5d 0a 20 20 20 20 63 6c  read $fd].    cl
6500: 6f 73 65 20 24 66 64 0a 20 20 20 20 66 6f 72 65  ose $fd.    fore
6510: 61 63 68 20 78 20 24 63 6f 6e 74 65 6e 74 20 7b  ach x $content {
6520: 73 65 74 20 6b 6e 6f 77 6e 5f 65 72 72 6f 72 28  set known_error(
6530: 24 78 29 20 31 7d 0a 20 20 20 20 66 6f 72 65 61  $x) 1}.    forea
6540: 63 68 20 78 20 5b 73 65 74 5f 74 65 73 74 5f 63  ch x [set_test_c
6550: 6f 75 6e 74 65 72 20 66 61 69 6c 5f 6c 69 73 74  ounter fail_list
6560: 5d 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 5b 69  ] {.      if {[i
6570: 6e 66 6f 20 65 78 69 73 74 73 20 6b 6e 6f 77 6e  nfo exists known
6580: 5f 65 72 72 6f 72 28 24 78 29 5d 7d 20 7b 69 6e  _error($x)]} {in
6590: 63 72 20 6e 4b 6e 6f 77 6e 7d 0a 20 20 20 20 7d  cr nKnown}.    }
65a0: 0a 20 20 7d 0a 20 20 69 66 20 7b 24 6e 4b 6e 6f  .  }.  if {$nKno
65b0: 77 6e 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73  wn>0} {.    puts
65c0: 20 22 5b 65 78 70 72 20 7b 24 6e 45 72 72 2d 24   "[expr {$nErr-$
65d0: 6e 4b 6e 6f 77 6e 7d 5d 20 6e 65 77 20 65 72 72  nKnown}] new err
65e0: 6f 72 73 20 61 6e 64 20 24 6e 4b 6e 6f 77 6e 20  ors and $nKnown 
65f0: 6b 6e 6f 77 6e 20 65 72 72 6f 72 73 5c 0a 20 20  known errors\.  
6600: 20 20 20 20 20 20 20 6f 75 74 20 6f 66 20 24 6e         out of $n
6610: 54 65 73 74 20 74 65 73 74 73 22 0a 20 20 7d 20  Test tests".  } 
6620: 65 6c 73 65 20 7b 0a 20 20 20 20 70 75 74 73 20  else {.    puts 
6630: 22 24 6e 45 72 72 20 65 72 72 6f 72 73 20 6f 75  "$nErr errors ou
6640: 74 20 6f 66 20 24 6e 54 65 73 74 20 74 65 73 74  t of $nTest test
6650: 73 22 0a 20 20 7d 0a 20 20 69 66 20 7b 24 6e 45  s".  }.  if {$nE
6660: 72 72 3e 24 6e 4b 6e 6f 77 6e 7d 20 7b 0a 20 20  rr>$nKnown} {.  
6670: 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e    puts -nonewlin
6680: 65 20 22 46 61 69 6c 75 72 65 73 20 6f 6e 20 74  e "Failures on t
6690: 68 65 73 65 20 74 65 73 74 73 3a 22 0a 20 20 20  hese tests:".   
66a0: 20 66 6f 72 65 61 63 68 20 78 20 5b 73 65 74 5f   foreach x [set_
66b0: 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 66 61 69  test_counter fai
66c0: 6c 5f 6c 69 73 74 5d 20 7b 0a 20 20 20 20 20 20  l_list] {.      
66d0: 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74  if {![info exist
66e0: 73 20 6b 6e 6f 77 6e 5f 65 72 72 6f 72 28 24 78  s known_error($x
66f0: 29 5d 7d 20 7b 70 75 74 73 20 2d 6e 6f 6e 65 77  )]} {puts -nonew
6700: 6c 69 6e 65 20 22 20 24 78 22 7d 0a 20 20 20 20  line " $x"}.    
6710: 7d 0a 20 20 20 20 70 75 74 73 20 22 22 0a 20 20  }.    puts "".  
6720: 7d 0a 20 20 66 6f 72 65 61 63 68 20 77 61 72 6e  }.  foreach warn
6730: 69 6e 67 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f  ing [set_test_co
6740: 75 6e 74 65 72 20 77 61 72 6e 5f 6c 69 73 74 5d  unter warn_list]
6750: 20 7b 0a 20 20 20 20 70 75 74 73 20 22 57 61 72   {.    puts "War
6760: 6e 69 6e 67 3a 20 24 77 61 72 6e 69 6e 67 22 0a  ning: $warning".
6770: 20 20 7d 0a 20 20 72 75 6e 5f 74 68 72 65 61 64    }.  run_thread
6780: 5f 74 65 73 74 73 20 31 0a 20 20 69 66 20 7b 5b  _tests 1.  if {[
6790: 6c 6c 65 6e 67 74 68 20 24 6f 6d 69 74 4c 69 73  llength $omitLis
67a0: 74 5d 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73  t]>0} {.    puts
67b0: 20 22 4f 6d 69 74 74 65 64 20 74 65 73 74 20 63   "Omitted test c
67c0: 61 73 65 73 3a 22 0a 20 20 20 20 73 65 74 20 70  ases:".    set p
67d0: 72 65 63 20 7b 7d 0a 20 20 20 20 66 6f 72 65 61  rec {}.    forea
67e0: 63 68 20 7b 72 65 63 7d 20 5b 6c 73 6f 72 74 20  ch {rec} [lsort 
67f0: 24 6f 6d 69 74 4c 69 73 74 5d 20 7b 0a 20 20 20  $omitList] {.   
6800: 20 20 20 69 66 20 7b 24 72 65 63 3d 3d 24 70 72     if {$rec==$pr
6810: 65 63 7d 20 63 6f 6e 74 69 6e 75 65 0a 20 20 20  ec} continue.   
6820: 20 20 20 73 65 74 20 70 72 65 63 20 24 72 65 63     set prec $rec
6830: 0a 20 20 20 20 20 20 70 75 74 73 20 5b 66 6f 72  .      puts [for
6840: 6d 61 74 20 7b 20 20 25 2d 31 32 73 20 25 73 7d  mat {  %-12s %s}
6850: 20 5b 6c 69 6e 64 65 78 20 24 72 65 63 20 30 5d   [lindex $rec 0]
6860: 20 5b 6c 69 6e 64 65 78 20 24 72 65 63 20 31 5d   [lindex $rec 1]
6870: 5d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66  ].    }.  }.  if
6880: 20 7b 24 6e 45 72 72 3e 30 20 26 26 20 21 5b 77   {$nErr>0 && ![w
6890: 6f 72 6b 69 6e 67 5f 36 34 62 69 74 5f 69 6e 74  orking_64bit_int
68a0: 5d 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22 2a  ]} {.    puts "*
68b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
68c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
68d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
68e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
68f0: 2a 22 0a 20 20 20 20 70 75 74 73 20 22 4e 2e 42  *".    puts "N.B
6900: 2e 3a 20 20 54 68 65 20 76 65 72 73 69 6f 6e 20  .:  The version 
6910: 6f 66 20 54 43 4c 20 74 68 61 74 20 79 6f 75 20  of TCL that you 
6920: 75 73 65 64 20 74 6f 20 62 75 69 6c 64 20 74 68  used to build th
6930: 69 73 20 74 65 73 74 20 68 61 72 6e 65 73 73 22  is test harness"
6940: 0a 20 20 20 20 70 75 74 73 20 22 69 73 20 64 65  .    puts "is de
6950: 66 65 63 74 69 76 65 20 69 6e 20 74 68 61 74 20  fective in that 
6960: 69 74 20 64 6f 65 73 20 6e 6f 74 20 73 75 70 70  it does not supp
6970: 6f 72 74 20 36 34 2d 62 69 74 20 69 6e 74 65 67  ort 64-bit integ
6980: 65 72 73 2e 20 20 53 6f 6d 65 20 6f 72 22 0a 20  ers.  Some or". 
6990: 20 20 20 70 75 74 73 20 22 61 6c 6c 20 6f 66 20     puts "all of 
69a0: 74 68 65 20 74 65 73 74 20 66 61 69 6c 75 72 65  the test failure
69b0: 73 20 61 62 6f 76 65 20 6d 69 67 68 74 20 62 65  s above might be
69c0: 20 61 20 72 65 73 75 6c 74 20 66 72 6f 6d 20 74   a result from t
69d0: 68 69 73 20 64 65 66 65 63 74 22 0a 20 20 20 20  his defect".    
69e0: 70 75 74 73 20 22 69 6e 20 79 6f 75 72 20 54 43  puts "in your TC
69f0: 4c 20 62 75 69 6c 64 2e 22 0a 20 20 20 20 70 75  L build.".    pu
6a00: 74 73 20 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ts "************
6a10: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6a20: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6a30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6a40: 2a 2a 2a 2a 2a 2a 22 0a 20 20 7d 0a 20 20 69 66  ******".  }.  if
6a50: 20 7b 24 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 28   {$::cmdlinearg(
6a60: 62 69 6e 61 72 79 6c 6f 67 29 7d 20 7b 0a 20 20  binarylog)} {.  
6a70: 20 20 76 66 73 6c 6f 67 20 66 69 6e 61 6c 69 7a    vfslog finaliz
6a80: 65 20 62 69 6e 61 72 79 6c 6f 67 0a 20 20 7d 0a  e binarylog.  }.
6a90: 20 20 69 66 20 7b 24 73 71 6c 69 74 65 5f 6f 70    if {$sqlite_op
6aa0: 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 7d 20 7b  en_file_count} {
6ab0: 0a 20 20 20 20 70 75 74 73 20 22 24 73 71 6c 69  .    puts "$sqli
6ac0: 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75  te_open_file_cou
6ad0: 6e 74 20 66 69 6c 65 73 20 77 65 72 65 20 6c 65  nt files were le
6ae0: 66 74 20 6f 70 65 6e 22 0a 20 20 20 20 69 6e 63  ft open".    inc
6af0: 72 20 6e 45 72 72 0a 20 20 7d 0a 20 20 69 66 20  r nErr.  }.  if 
6b00: 7b 5b 6c 69 6e 64 65 78 20 5b 73 71 6c 69 74 65  {[lindex [sqlite
6b10: 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f  3_status SQLITE_
6b20: 53 54 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f 43 4f  STATUS_MALLOC_CO
6b30: 55 4e 54 20 30 5d 20 31 5d 3e 30 20 7c 7c 0a 20  UNT 0] 1]>0 ||. 
6b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 73 71               [sq
6b50: 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73 65  lite3_memory_use
6b60: 64 5d 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73  d]>0} {.    puts
6b70: 20 22 55 6e 66 72 65 65 64 20 6d 65 6d 6f 72 79   "Unfreed memory
6b80: 3a 20 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72  : [sqlite3_memor
6b90: 79 5f 75 73 65 64 5d 20 62 79 74 65 73 20 69 6e  y_used] bytes in
6ba0: 5c 0a 20 20 20 20 20 20 20 20 20 5b 6c 69 6e 64  \.         [lind
6bb0: 65 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74  ex [sqlite3_stat
6bc0: 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53  us SQLITE_STATUS
6bd0: 5f 4d 41 4c 4c 4f 43 5f 43 4f 55 4e 54 20 30 5d  _MALLOC_COUNT 0]
6be0: 20 31 5d 20 61 6c 6c 6f 63 61 74 69 6f 6e 73 22   1] allocations"
6bf0: 0a 20 20 20 20 69 6e 63 72 20 6e 45 72 72 0a 20  .    incr nErr. 
6c00: 20 20 20 69 66 63 61 70 61 62 6c 65 20 6d 65 6d     ifcapable mem
6c10: 64 65 62 75 67 7c 7c 6d 65 6d 35 7c 7c 28 6d 65  debug||mem5||(me
6c20: 6d 33 26 26 64 65 62 75 67 29 20 7b 0a 20 20 20  m3&&debug) {.   
6c30: 20 20 20 70 75 74 73 20 22 57 72 69 74 69 6e 67     puts "Writing
6c40: 20 75 6e 66 72 65 65 64 20 6d 65 6d 6f 72 79 20   unfreed memory 
6c50: 6c 6f 67 20 74 6f 20 5c 22 2e 2f 6d 65 6d 6c 65  log to \"./memle
6c60: 61 6b 2e 74 78 74 5c 22 22 0a 20 20 20 20 20 20  ak.txt\"".      
6c70: 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67  sqlite3_memdebug
6c80: 5f 64 75 6d 70 20 2e 2f 6d 65 6d 6c 65 61 6b 2e  _dump ./memleak.
6c90: 74 78 74 0a 20 20 20 20 7d 0a 20 20 7d 20 65 6c  txt.    }.  } el
6ca0: 73 65 20 7b 0a 20 20 20 20 70 75 74 73 20 22 41  se {.    puts "A
6cb0: 6c 6c 20 6d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61  ll memory alloca
6cc0: 74 69 6f 6e 73 20 66 72 65 65 64 20 2d 20 6e 6f  tions freed - no
6cd0: 20 6c 65 61 6b 73 22 0a 20 20 20 20 69 66 63 61   leaks".    ifca
6ce0: 70 61 62 6c 65 20 6d 65 6d 64 65 62 75 67 7c 7c  pable memdebug||
6cf0: 6d 65 6d 35 20 7b 0a 20 20 20 20 20 20 73 71 6c  mem5 {.      sql
6d00: 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 64 75  ite3_memdebug_du
6d10: 6d 70 20 2e 2f 6d 65 6d 75 73 61 67 65 2e 74 78  mp ./memusage.tx
6d20: 74 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 68  t.    }.  }.  sh
6d30: 6f 77 5f 6d 65 6d 73 74 61 74 73 0a 20 20 70 75  ow_memstats.  pu
6d40: 74 73 20 22 4d 61 78 69 6d 75 6d 20 6d 65 6d 6f  ts "Maximum memo
6d50: 72 79 20 75 73 61 67 65 3a 20 5b 73 71 6c 69 74  ry usage: [sqlit
6d60: 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 61  e3_memory_highwa
6d70: 74 65 72 20 31 5d 20 62 79 74 65 73 22 0a 20 20  ter 1] bytes".  
6d80: 70 75 74 73 20 22 43 75 72 72 65 6e 74 20 6d 65  puts "Current me
6d90: 6d 6f 72 79 20 75 73 61 67 65 3a 20 5b 73 71 6c  mory usage: [sql
6da0: 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68  ite3_memory_high
6db0: 77 61 74 65 72 5d 20 62 79 74 65 73 22 0a 20 20  water] bytes".  
6dc0: 69 66 20 7b 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e  if {[info comman
6dd0: 64 73 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65  ds sqlite3_memde
6de0: 62 75 67 5f 6d 61 6c 6c 6f 63 5f 63 6f 75 6e 74  bug_malloc_count
6df0: 5d 20 6e 65 20 22 22 7d 20 7b 0a 20 20 20 20 70  ] ne ""} {.    p
6e00: 75 74 73 20 22 4e 75 6d 62 65 72 20 6f 66 20 6d  uts "Number of m
6e10: 61 6c 6c 6f 63 28 29 20 20 3a 20 5b 73 71 6c 69  alloc()  : [sqli
6e20: 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 6d 61 6c  te3_memdebug_mal
6e30: 6c 6f 63 5f 63 6f 75 6e 74 5d 20 63 61 6c 6c 73  loc_count] calls
6e40: 22 0a 20 20 7d 0a 20 20 69 66 20 7b 24 3a 3a 63  ".  }.  if {$::c
6e50: 6d 64 6c 69 6e 65 61 72 67 28 6d 61 6c 6c 6f 63  mdlinearg(malloc
6e60: 74 72 61 63 65 29 7d 20 7b 0a 20 20 20 20 70 75  trace)} {.    pu
6e70: 74 73 20 22 57 72 69 74 69 6e 67 20 6d 61 6c 6c  ts "Writing mall
6e80: 6f 63 73 2e 73 71 6c 2e 2e 2e 22 0a 20 20 20 20  ocs.sql...".    
6e90: 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 5f 73 71 6c  memdebug_log_sql
6ea0: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d  .    sqlite3_mem
6eb0: 64 65 62 75 67 5f 6c 6f 67 20 73 74 6f 70 0a 20  debug_log stop. 
6ec0: 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65     sqlite3_memde
6ed0: 62 75 67 5f 6c 6f 67 20 63 6c 65 61 72 0a 0a 20  bug_log clear.. 
6ee0: 20 20 20 69 66 20 7b 5b 73 71 6c 69 74 65 33 5f     if {[sqlite3_
6ef0: 6d 65 6d 6f 72 79 5f 75 73 65 64 5d 3e 30 7d 20  memory_used]>0} 
6f00: 7b 0a 20 20 20 20 20 20 70 75 74 73 20 22 57 72  {.      puts "Wr
6f10: 69 74 69 6e 67 20 6c 65 61 6b 73 2e 73 71 6c 2e  iting leaks.sql.
6f20: 2e 2e 22 0a 20 20 20 20 20 20 73 71 6c 69 74 65  ..".      sqlite
6f30: 33 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 20 73  3_memdebug_log s
6f40: 79 6e 63 0a 20 20 20 20 20 20 6d 65 6d 64 65 62  ync.      memdeb
6f50: 75 67 5f 6c 6f 67 5f 73 71 6c 20 6c 65 61 6b 73  ug_log_sql leaks
6f60: 2e 73 71 6c 0a 20 20 20 20 7d 0a 20 20 7d 0a 20  .sql.    }.  }. 
6f70: 20 66 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f 62   foreach f [glob
6f80: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 73   -nocomplain tes
6f90: 74 2e 64 62 2d 2a 2d 6a 6f 75 72 6e 61 6c 5d 20  t.db-*-journal] 
6fa0: 7b 0a 20 20 20 20 66 6f 72 63 65 64 65 6c 65 74  {.    forcedelet
6fb0: 65 20 24 66 0a 20 20 7d 0a 20 20 66 6f 72 65 61  e $f.  }.  forea
6fc0: 63 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f  ch f [glob -noco
6fd0: 6d 70 6c 61 69 6e 20 74 65 73 74 2e 64 62 2d 6d  mplain test.db-m
6fe0: 6a 2a 5d 20 7b 0a 20 20 20 20 66 6f 72 63 65 64  j*] {.    forced
6ff0: 65 6c 65 74 65 20 24 66 0a 20 20 7d 0a 20 20 65  elete $f.  }.  e
7000: 78 69 74 20 5b 65 78 70 72 20 7b 24 6e 45 72 72  xit [expr {$nErr
7010: 3e 30 7d 5d 0a 7d 0a 0a 23 20 44 69 73 70 6c 61  >0}].}..# Displa
7020: 79 20 6d 65 6d 6f 72 79 20 73 74 61 74 69 73 74  y memory statist
7030: 69 63 73 20 66 6f 72 20 61 6e 61 6c 79 73 69 73  ics for analysis
7040: 20 61 6e 64 20 64 65 62 75 67 67 69 6e 67 20 70   and debugging p
7050: 75 72 70 6f 73 65 73 2e 0a 23 0a 70 72 6f 63 20  urposes..#.proc 
7060: 73 68 6f 77 5f 6d 65 6d 73 74 61 74 73 20 7b 7d  show_memstats {}
7070: 20 7b 0a 20 20 73 65 74 20 78 20 5b 73 71 6c 69   {.  set x [sqli
7080: 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54  te3_status SQLIT
7090: 45 5f 53 54 41 54 55 53 5f 4d 45 4d 4f 52 59 5f  E_STATUS_MEMORY_
70a0: 55 53 45 44 20 30 5d 0a 20 20 73 65 74 20 79 20  USED 0].  set y 
70b0: 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20  [sqlite3_status 
70c0: 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 4d 41  SQLITE_STATUS_MA
70d0: 4c 4c 4f 43 5f 53 49 5a 45 20 30 5d 0a 20 20 73  LLOC_SIZE 0].  s
70e0: 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b  et val [format {
70f0: 6e 6f 77 20 25 31 30 64 20 20 6d 61 78 20 25 31  now %10d  max %1
7100: 30 64 20 20 6d 61 78 2d 73 69 7a 65 20 25 31 30  0d  max-size %10
7110: 64 7d 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20  d} \.           
7120: 20 20 20 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d     [lindex $x 1]
7130: 20 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 20 5b   [lindex $x 2] [
7140: 6c 69 6e 64 65 78 20 24 79 20 32 5d 5d 0a 20 20  lindex $y 2]].  
7150: 70 75 74 73 20 22 4d 65 6d 6f 72 79 20 75 73 65  puts "Memory use
7160: 64 3a 20 20 20 20 20 20 20 20 20 20 24 76 61 6c  d:          $val
7170: 22 0a 20 20 73 65 74 20 78 20 5b 73 71 6c 69 74  ".  set x [sqlit
7180: 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45  e3_status SQLITE
7190: 5f 53 54 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f 43  _STATUS_MALLOC_C
71a0: 4f 55 4e 54 20 30 5d 0a 20 20 73 65 74 20 76 61  OUNT 0].  set va
71b0: 6c 20 5b 66 6f 72 6d 61 74 20 7b 6e 6f 77 20 25  l [format {now %
71c0: 31 30 64 20 20 6d 61 78 20 25 31 30 64 7d 20 5b  10d  max %10d} [
71d0: 6c 69 6e 64 65 78 20 24 78 20 31 5d 20 5b 6c 69  lindex $x 1] [li
71e0: 6e 64 65 78 20 24 78 20 32 5d 5d 0a 20 20 70 75  ndex $x 2]].  pu
71f0: 74 73 20 22 41 6c 6c 6f 63 61 74 69 6f 6e 20 63  ts "Allocation c
7200: 6f 75 6e 74 3a 20 20 20 20 20 24 76 61 6c 22 0a  ount:     $val".
7210: 20 20 73 65 74 20 78 20 5b 73 71 6c 69 74 65 33    set x [sqlite3
7220: 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53  _status SQLITE_S
7230: 54 41 54 55 53 5f 50 41 47 45 43 41 43 48 45 5f  TATUS_PAGECACHE_
7240: 55 53 45 44 20 30 5d 0a 20 20 73 65 74 20 79 20  USED 0].  set y 
7250: 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20  [sqlite3_status 
7260: 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 50 41  SQLITE_STATUS_PA
7270: 47 45 43 41 43 48 45 5f 53 49 5a 45 20 30 5d 0a  GECACHE_SIZE 0].
7280: 20 20 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61    set val [forma
7290: 74 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d 61 78  t {now %10d  max
72a0: 20 25 31 30 64 20 20 6d 61 78 2d 73 69 7a 65 20   %10d  max-size 
72b0: 25 31 30 64 7d 20 5c 0a 20 20 20 20 20 20 20 20  %10d} \.        
72c0: 20 20 20 20 20 20 5b 6c 69 6e 64 65 78 20 24 78        [lindex $x
72d0: 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 78 20 32   1] [lindex $x 2
72e0: 5d 20 5b 6c 69 6e 64 65 78 20 24 79 20 32 5d 5d  ] [lindex $y 2]]
72f0: 0a 20 20 70 75 74 73 20 22 50 61 67 65 2d 63 61  .  puts "Page-ca
7300: 63 68 65 20 75 73 65 64 3a 20 20 20 20 20 20 24  che used:      $
7310: 76 61 6c 22 0a 20 20 73 65 74 20 78 20 5b 73 71  val".  set x [sq
7320: 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c  lite3_status SQL
7330: 49 54 45 5f 53 54 41 54 55 53 5f 50 41 47 45 43  ITE_STATUS_PAGEC
7340: 41 43 48 45 5f 4f 56 45 52 46 4c 4f 57 20 30 5d  ACHE_OVERFLOW 0]
7350: 0a 20 20 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d  .  set val [form
7360: 61 74 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d 61  at {now %10d  ma
7370: 78 20 25 31 30 64 7d 20 5b 6c 69 6e 64 65 78 20  x %10d} [lindex 
7380: 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 78  $x 1] [lindex $x
7390: 20 32 5d 5d 0a 20 20 70 75 74 73 20 22 50 61 67   2]].  puts "Pag
73a0: 65 2d 63 61 63 68 65 20 6f 76 65 72 66 6c 6f 77  e-cache overflow
73b0: 3a 20 20 24 76 61 6c 22 0a 20 20 73 65 74 20 78  :  $val".  set x
73c0: 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73   [sqlite3_status
73d0: 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 53   SQLITE_STATUS_S
73e0: 43 52 41 54 43 48 5f 55 53 45 44 20 30 5d 0a 20  CRATCH_USED 0]. 
73f0: 20 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74   set val [format
7400: 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d 61 78 20   {now %10d  max 
7410: 25 31 30 64 7d 20 5b 6c 69 6e 64 65 78 20 24 78  %10d} [lindex $x
7420: 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 78 20 32   1] [lindex $x 2
7430: 5d 5d 0a 20 20 70 75 74 73 20 22 53 63 72 61 74  ]].  puts "Scrat
7440: 63 68 20 6d 65 6d 6f 72 79 20 75 73 65 64 3a 20  ch memory used: 
7450: 20 24 76 61 6c 22 0a 20 20 73 65 74 20 78 20 5b   $val".  set x [
7460: 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53  sqlite3_status S
7470: 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 53 43 52  QLITE_STATUS_SCR
7480: 41 54 43 48 5f 4f 56 45 52 46 4c 4f 57 20 30 5d  ATCH_OVERFLOW 0]
7490: 0a 20 20 73 65 74 20 79 20 5b 73 71 6c 69 74 65  .  set y [sqlite
74a0: 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f  3_status SQLITE_
74b0: 53 54 41 54 55 53 5f 53 43 52 41 54 43 48 5f 53  STATUS_SCRATCH_S
74c0: 49 5a 45 20 30 5d 0a 20 20 73 65 74 20 76 61 6c  IZE 0].  set val
74d0: 20 5b 66 6f 72 6d 61 74 20 7b 6e 6f 77 20 25 31   [format {now %1
74e0: 30 64 20 20 6d 61 78 20 25 31 30 64 20 20 6d 61  0d  max %10d  ma
74f0: 78 2d 73 69 7a 65 20 25 31 30 64 7d 20 5c 0a 20  x-size %10d} \. 
7500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 6c                [l
7510: 69 6e 64 65 78 20 24 78 20 31 5d 20 5b 6c 69 6e  index $x 1] [lin
7520: 64 65 78 20 24 78 20 32 5d 20 5b 6c 69 6e 64 65  dex $x 2] [linde
7530: 78 20 24 79 20 32 5d 5d 0a 20 20 70 75 74 73 20  x $y 2]].  puts 
7540: 22 53 63 72 61 74 63 68 20 6f 76 65 72 66 6c 6f  "Scratch overflo
7550: 77 3a 20 20 20 20 20 24 76 61 6c 22 0a 20 20 69  w:     $val".  i
7560: 66 63 61 70 61 62 6c 65 20 79 79 74 72 61 63 6b  fcapable yytrack
7570: 6d 61 78 73 74 61 63 6b 64 65 70 74 68 20 7b 0a  maxstackdepth {.
7580: 20 20 20 20 73 65 74 20 78 20 5b 73 71 6c 69 74      set x [sqlit
7590: 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45  e3_status SQLITE
75a0: 5f 53 54 41 54 55 53 5f 50 41 52 53 45 52 5f 53  _STATUS_PARSER_S
75b0: 54 41 43 4b 20 30 5d 0a 20 20 20 20 73 65 74 20  TACK 0].    set 
75c0: 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b 20 20 20  val [format {   
75d0: 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 20              max 
75e0: 25 31 30 64 7d 20 5b 6c 69 6e 64 65 78 20 24 78  %10d} [lindex $x
75f0: 20 32 5d 5d 0a 20 20 20 20 70 75 74 73 20 22 50   2]].    puts "P
7600: 61 72 73 65 72 20 73 74 61 63 6b 20 64 65 70 74  arser stack dept
7610: 68 3a 20 20 20 20 24 76 61 6c 22 0a 20 20 7d 0a  h:    $val".  }.
7620: 7d 0a 0a 23 20 41 20 70 72 6f 63 65 64 75 72 65  }..# A procedure
7630: 20 74 6f 20 65 78 65 63 75 74 65 20 53 51 4c 0a   to execute SQL.
7640: 23 0a 70 72 6f 63 20 65 78 65 63 73 71 6c 20 7b  #.proc execsql {
7650: 73 71 6c 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20  sql {db db}} {. 
7660: 20 23 20 70 75 74 73 20 22 53 51 4c 20 3d 20 24   # puts "SQL = $
7670: 73 71 6c 22 0a 20 20 75 70 6c 65 76 65 6c 20 5b  sql".  uplevel [
7680: 6c 69 73 74 20 24 64 62 20 65 76 61 6c 20 24 73  list $db eval $s
7690: 71 6c 5d 0a 7d 0a 70 72 6f 63 20 65 78 65 63 73  ql].}.proc execs
76a0: 71 6c 5f 74 69 6d 65 64 20 7b 73 71 6c 20 7b 64  ql_timed {sql {d
76b0: 62 20 64 62 7d 7d 20 7b 0a 20 20 73 65 74 20 74  b db}} {.  set t
76c0: 6d 20 5b 74 69 6d 65 20 7b 0a 20 20 20 20 73 65  m [time {.    se
76d0: 74 20 78 20 5b 75 70 6c 65 76 65 6c 20 5b 6c 69  t x [uplevel [li
76e0: 73 74 20 24 64 62 20 65 76 61 6c 20 24 73 71 6c  st $db eval $sql
76f0: 5d 5d 0a 20 20 7d 20 31 5d 0a 20 20 73 65 74 20  ]].  } 1].  set 
7700: 74 6d 20 5b 6c 69 6e 64 65 78 20 24 74 6d 20 30  tm [lindex $tm 0
7710: 5d 0a 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c  ].  puts -nonewl
7720: 69 6e 65 20 22 20 28 5b 65 78 70 72 20 7b 24 74  ine " ([expr {$t
7730: 6d 2a 30 2e 30 30 31 7d 5d 6d 73 29 20 22 0a 20  m*0.001}]ms) ". 
7740: 20 73 65 74 20 78 0a 7d 0a 0a 23 20 45 78 65 63   set x.}..# Exec
7750: 75 74 65 20 53 51 4c 20 61 6e 64 20 63 61 74 63  ute SQL and catc
7760: 68 20 65 78 63 65 70 74 69 6f 6e 73 2e 0a 23 0a  h exceptions..#.
7770: 70 72 6f 63 20 63 61 74 63 68 73 71 6c 20 7b 73  proc catchsql {s
7780: 71 6c 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20  ql {db db}} {.  
7790: 23 20 70 75 74 73 20 22 53 51 4c 20 3d 20 24 73  # puts "SQL = $s
77a0: 71 6c 22 0a 20 20 73 65 74 20 72 20 5b 63 61 74  ql".  set r [cat
77b0: 63 68 20 5b 6c 69 73 74 20 75 70 6c 65 76 65 6c  ch [list uplevel
77c0: 20 5b 6c 69 73 74 20 24 64 62 20 65 76 61 6c 20   [list $db eval 
77d0: 24 73 71 6c 5d 5d 20 6d 73 67 5d 0a 20 20 6c 61  $sql]] msg].  la
77e0: 70 70 65 6e 64 20 72 20 24 6d 73 67 0a 20 20 72  ppend r $msg.  r
77f0: 65 74 75 72 6e 20 24 72 0a 7d 0a 0a 23 20 44 6f  eturn $r.}..# Do
7800: 20 61 6e 20 56 44 42 45 20 63 6f 64 65 20 64 75   an VDBE code du
7810: 6d 70 20 6f 6e 20 74 68 65 20 53 51 4c 20 67 69  mp on the SQL gi
7820: 76 65 6e 0a 23 0a 70 72 6f 63 20 65 78 70 6c 61  ven.#.proc expla
7830: 69 6e 20 7b 73 71 6c 20 7b 64 62 20 64 62 7d 7d  in {sql {db db}}
7840: 20 7b 0a 20 20 70 75 74 73 20 22 22 0a 20 20 70   {.  puts "".  p
7850: 75 74 73 20 22 61 64 64 72 20 20 6f 70 63 6f 64  uts "addr  opcod
7860: 65 20 20 20 20 20 20 20 20 70 31 20 20 20 20 20  e        p1     
7870: 20 70 32 20 20 20 20 20 20 70 33 20 20 20 20 20   p2      p3     
7880: 20 70 34 20 20 20 20 20 20 20 20 20 20 20 20 20   p4             
7890: 20 20 70 35 20 20 23 22 0a 20 20 70 75 74 73 20    p5  #".  puts 
78a0: 22 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d  "----  ---------
78b0: 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d  ---  ------  ---
78c0: 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d  ---  ------  ---
78d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d  ------------  --
78e0: 20 20 2d 22 0a 20 20 24 64 62 20 65 76 61 6c 20    -".  $db eval 
78f0: 22 65 78 70 6c 61 69 6e 20 24 73 71 6c 22 20 7b  "explain $sql" {
7900: 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 5b 66 6f  } {.    puts [fo
7910: 72 6d 61 74 20 7b 25 2d 34 64 20 20 25 2d 31 32  rmat {%-4d  %-12
7920: 2e 31 32 73 20 20 25 2d 36 64 20 20 25 2d 36 64  .12s  %-6d  %-6d
7930: 20 20 25 2d 36 64 20 20 25 20 2d 31 37 73 20 25    %-6d  % -17s %
7940: 73 20 20 25 73 7d 20 5c 0a 20 20 20 20 20 20 24  s  %s} \.      $
7950: 61 64 64 72 20 24 6f 70 63 6f 64 65 20 24 70 31  addr $opcode $p1
7960: 20 24 70 32 20 24 70 33 20 24 70 34 20 24 70 35   $p2 $p3 $p4 $p5
7970: 20 24 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 5d 0a   $comment.    ].
7980: 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20 65 78 70 6c    }.}..proc expl
7990: 61 69 6e 5f 69 20 7b 73 71 6c 20 7b 64 62 20 64  ain_i {sql {db d
79a0: 62 7d 7d 20 7b 0a 20 20 70 75 74 73 20 22 22 0a  b}} {.  puts "".
79b0: 20 20 70 75 74 73 20 22 61 64 64 72 20 20 6f 70    puts "addr  op
79c0: 63 6f 64 65 20 20 20 20 20 20 20 20 70 31 20 20  code        p1  
79d0: 20 20 20 20 70 32 20 20 20 20 20 20 70 33 20 20      p2      p3  
79e0: 20 20 20 20 70 34 20 20 20 20 20 20 20 20 20 20      p4          
79f0: 20 20 20 20 20 20 70 35 20 20 23 22 0a 20 20 70        p5  #".  p
7a00: 75 74 73 20 22 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d  uts "----  -----
7a10: 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20  -------  ------ 
7a20: 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20   ------  ------ 
7a30: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ---------------
7a40: 2d 20 20 2d 2d 20 20 2d 22 0a 0a 0a 20 20 23 20  -  --  -"...  # 
7a50: 53 65 74 20 75 70 20 63 6f 6c 6f 72 73 20 66 6f  Set up colors fo
7a60: 72 20 74 68 65 20 64 69 66 66 65 72 65 6e 74 20  r the different 
7a70: 6f 70 63 6f 64 65 73 2e 20 53 63 68 65 6d 65 20  opcodes. Scheme 
7a80: 69 73 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 20  is as follows:. 
7a90: 20 23 0a 20 20 23 20 20 20 52 65 64 3a 20 20 20   #.  #   Red:   
7aa0: 4f 70 63 6f 64 65 73 20 74 68 61 74 20 77 72 69  Opcodes that wri
7ab0: 74 65 20 74 6f 20 61 20 62 2d 74 72 65 65 2e 0a  te to a b-tree..
7ac0: 20 20 23 20 20 20 42 6c 75 65 3a 20 20 4f 70 63    #   Blue:  Opc
7ad0: 6f 64 65 73 20 74 68 61 74 20 72 65 70 6f 73 69  odes that reposi
7ae0: 74 69 6f 6e 20 6f 72 20 73 65 65 6b 20 61 20 63  tion or seek a c
7af0: 75 72 73 6f 72 2e 20 0a 20 20 23 20 20 20 47 72  ursor. .  #   Gr
7b00: 65 65 6e 3a 20 54 68 65 20 52 65 73 75 6c 74 52  een: The ResultR
7b10: 6f 77 20 6f 70 63 6f 64 65 2e 0a 20 20 23 0a 20  ow opcode..  #. 
7b20: 20 69 66 20 7b 20 5b 63 61 74 63 68 20 7b 66 63   if { [catch {fc
7b30: 6f 6e 66 69 67 75 72 65 20 73 74 64 6f 75 74 20  onfigure stdout 
7b40: 2d 6d 6f 64 65 7d 5d 3d 3d 30 20 7d 20 7b 0a 20  -mode}]==0 } {. 
7b50: 20 20 20 73 65 74 20 52 20 22 5c 30 33 33 5c 5b     set R "\033\[
7b60: 33 31 3b 31 6d 22 20 20 20 20 20 20 20 20 3b 23  31;1m"        ;#
7b70: 20 52 65 64 20 66 67 0a 20 20 20 20 73 65 74 20   Red fg.    set 
7b80: 47 20 22 5c 30 33 33 5c 5b 33 32 3b 31 6d 22 20  G "\033\[32;1m" 
7b90: 20 20 20 20 20 20 20 3b 23 20 47 72 65 65 6e 20         ;# Green 
7ba0: 66 67 0a 20 20 20 20 73 65 74 20 42 20 22 5c 30  fg.    set B "\0
7bb0: 33 33 5c 5b 33 34 3b 31 6d 22 20 20 20 20 20 20  33\[34;1m"      
7bc0: 20 20 3b 23 20 52 65 64 20 66 67 0a 20 20 20 20    ;# Red fg.    
7bd0: 73 65 74 20 44 20 22 5c 30 33 33 5c 5b 33 39 3b  set D "\033\[39;
7be0: 30 6d 22 20 20 20 20 20 20 20 20 3b 23 20 44 65  0m"        ;# De
7bf0: 66 61 75 6c 74 20 66 67 0a 20 20 7d 20 65 6c 73  fault fg.  } els
7c00: 65 20 7b 0a 20 20 20 20 73 65 74 20 52 20 22 22  e {.    set R ""
7c10: 0a 20 20 20 20 73 65 74 20 47 20 22 22 0a 20 20  .    set G "".  
7c20: 20 20 73 65 74 20 42 20 22 22 0a 20 20 20 20 73    set B "".    s
7c30: 65 74 20 44 20 22 22 0a 20 20 7d 0a 20 20 66 6f  et D "".  }.  fo
7c40: 72 65 61 63 68 20 6f 70 63 6f 64 65 20 7b 0a 20  reach opcode {. 
7c50: 20 20 20 20 20 53 65 65 6b 20 53 65 65 6b 47 65       Seek SeekGe
7c60: 20 53 65 65 6b 47 74 20 53 65 65 6b 4c 65 20 53   SeekGt SeekLe S
7c70: 65 65 6b 4c 74 20 4e 6f 74 46 6f 75 6e 64 20 4c  eekLt NotFound L
7c80: 61 73 74 20 52 65 77 69 6e 64 0a 20 20 20 20 20  ast Rewind.     
7c90: 20 4e 6f 43 6f 6e 66 6c 69 63 74 20 4e 65 78 74   NoConflict Next
7ca0: 20 50 72 65 76 20 56 4e 65 78 74 20 56 50 72 65   Prev VNext VPre
7cb0: 76 20 56 46 69 6c 74 65 72 0a 20 20 20 20 20 20  v VFilter.      
7cc0: 53 6f 72 74 65 72 53 6f 72 74 20 53 6f 72 74 65  SorterSort Sorte
7cd0: 72 4e 65 78 74 0a 20 20 7d 20 7b 0a 20 20 20 20  rNext.  } {.    
7ce0: 73 65 74 20 63 6f 6c 6f 72 28 24 6f 70 63 6f 64  set color($opcod
7cf0: 65 29 20 24 42 0a 20 20 7d 0a 20 20 66 6f 72 65  e) $B.  }.  fore
7d00: 61 63 68 20 6f 70 63 6f 64 65 20 7b 52 65 73 75  ach opcode {Resu
7d10: 6c 74 52 6f 77 7d 20 7b 0a 20 20 20 20 73 65 74  ltRow} {.    set
7d20: 20 63 6f 6c 6f 72 28 24 6f 70 63 6f 64 65 29 20   color($opcode) 
7d30: 24 47 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63 68  $G.  }.  foreach
7d40: 20 6f 70 63 6f 64 65 20 7b 49 64 78 49 6e 73 65   opcode {IdxInse
7d50: 72 74 20 49 6e 73 65 72 74 20 44 65 6c 65 74 65  rt Insert Delete
7d60: 20 49 64 78 44 65 6c 65 74 65 7d 20 7b 0a 20 20   IdxDelete} {.  
7d70: 20 20 73 65 74 20 63 6f 6c 6f 72 28 24 6f 70 63    set color($opc
7d80: 6f 64 65 29 20 24 52 0a 20 20 7d 0a 0a 20 20 73  ode) $R.  }..  s
7d90: 65 74 20 62 53 65 65 6e 47 6f 74 6f 20 30 0a 20  et bSeenGoto 0. 
7da0: 20 24 64 62 20 65 76 61 6c 20 22 65 78 70 6c 61   $db eval "expla
7db0: 69 6e 20 24 73 71 6c 22 20 7b 7d 20 7b 0a 20 20  in $sql" {} {.  
7dc0: 20 20 73 65 74 20 78 28 24 61 64 64 72 29 20 30    set x($addr) 0
7dd0: 0a 20 20 20 20 73 65 74 20 6f 70 28 24 61 64 64  .    set op($add
7de0: 72 29 20 24 6f 70 63 6f 64 65 0a 0a 20 20 20 20  r) $opcode..    
7df0: 69 66 20 7b 24 6f 70 63 6f 64 65 20 3d 3d 20 22  if {$opcode == "
7e00: 47 6f 74 6f 22 20 26 26 20 28 24 62 53 65 65 6e  Goto" && ($bSeen
7e10: 47 6f 74 6f 3d 3d 30 20 7c 7c 20 28 24 70 32 20  Goto==0 || ($p2 
7e20: 3e 20 24 61 64 64 72 2b 31 30 29 29 7d 20 7b 0a  > $addr+10))} {.
7e30: 20 20 20 20 20 20 73 65 74 20 6c 69 6e 65 62 72        set linebr
7e40: 65 61 6b 28 24 70 32 29 20 31 0a 20 20 20 20 20  eak($p2) 1.     
7e50: 20 73 65 74 20 62 53 65 65 6e 47 6f 74 6f 20 31   set bSeenGoto 1
7e60: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 7b  .    }..    if {
7e70: 24 6f 70 63 6f 64 65 3d 3d 22 4e 65 78 74 22 20  $opcode=="Next" 
7e80: 20 7c 7c 20 24 6f 70 63 6f 64 65 3d 3d 22 50 72   || $opcode=="Pr
7e90: 65 76 22 20 0a 20 20 20 20 20 7c 7c 20 24 6f 70  ev" .     || $op
7ea0: 63 6f 64 65 3d 3d 22 56 4e 65 78 74 22 20 7c 7c  code=="VNext" ||
7eb0: 20 24 6f 70 63 6f 64 65 3d 3d 22 56 50 72 65 76   $opcode=="VPrev
7ec0: 22 0a 20 20 20 20 20 7c 7c 20 24 6f 70 63 6f 64  ".     || $opcod
7ed0: 65 3d 3d 22 53 6f 72 74 65 72 4e 65 78 74 22 0a  e=="SorterNext".
7ee0: 20 20 20 20 7d 20 7b 0a 20 20 20 20 20 20 66 6f      } {.      fo
7ef0: 72 20 7b 73 65 74 20 69 20 24 70 32 7d 20 7b 24  r {set i $p2} {$
7f00: 69 3c 24 61 64 64 72 7d 20 7b 69 6e 63 72 20 69  i<$addr} {incr i
7f10: 7d 20 7b 0a 20 20 20 20 20 20 20 20 69 6e 63 72  } {.        incr
7f20: 20 78 28 24 69 29 20 32 0a 20 20 20 20 20 20 7d   x($i) 2.      }
7f30: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 7b  .    }..    if {
7f40: 24 6f 70 63 6f 64 65 20 3d 3d 20 22 47 6f 74 6f  $opcode == "Goto
7f50: 22 20 26 26 20 24 70 32 3c 24 61 64 64 72 20 26  " && $p2<$addr &
7f60: 26 20 24 6f 70 28 24 70 32 29 3d 3d 22 59 69 65  & $op($p2)=="Yie
7f70: 6c 64 22 7d 20 7b 0a 20 20 20 20 20 20 66 6f 72  ld"} {.      for
7f80: 20 7b 73 65 74 20 69 20 5b 65 78 70 72 20 24 70   {set i [expr $p
7f90: 32 2b 31 5d 7d 20 7b 24 69 3c 24 61 64 64 72 7d  2+1]} {$i<$addr}
7fa0: 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20   {incr i} {.    
7fb0: 20 20 20 20 69 6e 63 72 20 78 28 24 69 29 20 32      incr x($i) 2
7fc0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 0a  .      }.    }..
7fd0: 20 20 20 20 69 66 20 7b 24 6f 70 63 6f 64 65 20      if {$opcode 
7fe0: 3d 3d 20 22 48 61 6c 74 22 20 26 26 20 24 63 6f  == "Halt" && $co
7ff0: 6d 6d 65 6e 74 20 3d 3d 20 22 45 6e 64 20 6f 66  mment == "End of
8000: 20 63 6f 72 6f 75 74 69 6e 65 22 7d 20 7b 0a 20   coroutine"} {. 
8010: 20 20 20 20 20 73 65 74 20 6c 69 6e 65 62 72 65       set linebre
8020: 61 6b 28 5b 65 78 70 72 20 24 61 64 64 72 2b 31  ak([expr $addr+1
8030: 5d 29 20 31 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a  ]) 1.    }.  }..
8040: 20 20 24 64 62 20 65 76 61 6c 20 22 65 78 70 6c    $db eval "expl
8050: 61 69 6e 20 24 73 71 6c 22 20 7b 7d 20 7b 0a 20  ain $sql" {} {. 
8060: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69     if {[info exi
8070: 73 74 73 20 6c 69 6e 65 62 72 65 61 6b 28 24 61  sts linebreak($a
8080: 64 64 72 29 5d 7d 20 7b 0a 20 20 20 20 20 20 70  ddr)]} {.      p
8090: 75 74 73 20 22 22 0a 20 20 20 20 7d 0a 20 20 20  uts "".    }.   
80a0: 20 73 65 74 20 49 20 5b 73 74 72 69 6e 67 20 72   set I [string r
80b0: 65 70 65 61 74 20 22 20 22 20 24 78 28 24 61 64  epeat " " $x($ad
80c0: 64 72 29 5d 0a 0a 20 20 20 20 73 65 74 20 63 6f  dr)]..    set co
80d0: 6c 20 22 22 0a 20 20 20 20 63 61 74 63 68 20 7b  l "".    catch {
80e0: 20 73 65 74 20 63 6f 6c 20 24 63 6f 6c 6f 72 28   set col $color(
80f0: 24 6f 70 63 6f 64 65 29 20 7d 0a 0a 20 20 20 20  $opcode) }..    
8100: 70 75 74 73 20 5b 66 6f 72 6d 61 74 20 7b 25 2d  puts [format {%-
8110: 34 64 20 20 25 73 25 73 25 2d 31 32 2e 31 32 73  4d  %s%s%-12.12s
8120: 25 73 20 20 25 2d 36 64 20 20 25 2d 36 64 20 20  %s  %-6d  %-6d  
8130: 25 2d 36 64 20 20 25 20 2d 31 37 73 20 25 73 20  %-6d  % -17s %s 
8140: 20 25 73 7d 20 5c 0a 20 20 20 20 20 20 24 61 64   %s} \.      $ad
8150: 64 72 20 24 49 20 24 63 6f 6c 20 24 6f 70 63 6f  dr $I $col $opco
8160: 64 65 20 24 44 20 24 70 31 20 24 70 32 20 24 70  de $D $p1 $p2 $p
8170: 33 20 24 70 34 20 24 70 35 20 24 63 6f 6d 6d 65  3 $p4 $p5 $comme
8180: 6e 74 0a 20 20 20 20 5d 0a 20 20 7d 0a 20 20 70  nt.    ].  }.  p
8190: 75 74 73 20 22 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d  uts "----  -----
81a0: 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20  -------  ------ 
81b0: 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20   ------  ------ 
81c0: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ---------------
81d0: 2d 20 20 2d 2d 20 20 2d 22 0a 7d 0a 0a 23 20 53  -  --  -".}..# S
81e0: 68 6f 77 20 74 68 65 20 56 44 42 45 20 70 72 6f  how the VDBE pro
81f0: 67 72 61 6d 20 66 6f 72 20 61 6e 20 53 51 4c 20  gram for an SQL 
8200: 73 74 61 74 65 6d 65 6e 74 20 62 75 74 20 6f 6d  statement but om
8210: 69 74 20 74 68 65 20 54 72 61 63 65 0a 23 20 6f  it the Trace.# o
8220: 70 63 6f 64 65 20 61 74 20 74 68 65 20 62 65 67  pcode at the beg
8230: 69 6e 6e 69 6e 67 2e 20 20 54 68 69 73 20 70 72  inning.  This pr
8240: 6f 63 65 64 75 72 65 20 63 61 6e 20 62 65 20 75  ocedure can be u
8250: 73 65 64 20 74 6f 20 70 72 6f 76 65 0a 23 20 74  sed to prove.# t
8260: 68 61 74 20 64 69 66 66 65 72 65 6e 74 20 53 51  hat different SQ
8270: 4c 20 73 74 61 74 65 6d 65 6e 74 73 20 67 65 6e  L statements gen
8280: 65 72 61 74 65 20 65 78 61 63 74 6c 79 20 74 68  erate exactly th
8290: 65 20 73 61 6d 65 20 56 44 42 45 20 63 6f 64 65  e same VDBE code
82a0: 2e 0a 23 0a 70 72 6f 63 20 65 78 70 6c 61 69 6e  ..#.proc explain
82b0: 5f 6e 6f 5f 74 72 61 63 65 20 7b 73 71 6c 7d 20  _no_trace {sql} 
82c0: 7b 0a 20 20 73 65 74 20 74 72 20 5b 64 62 20 65  {.  set tr [db e
82d0: 76 61 6c 20 22 45 58 50 4c 41 49 4e 20 24 73 71  val "EXPLAIN $sq
82e0: 6c 22 5d 0a 20 20 72 65 74 75 72 6e 20 5b 6c 72  l"].  return [lr
82f0: 61 6e 67 65 20 24 74 72 20 37 20 65 6e 64 5d 0a  ange $tr 7 end].
8300: 7d 0a 0a 23 20 41 6e 6f 74 68 65 72 20 70 72 6f  }..# Another pro
8310: 63 65 64 75 72 65 20 74 6f 20 65 78 65 63 75 74  cedure to execut
8320: 65 20 53 51 4c 2e 20 20 54 68 69 73 20 6f 6e 65  e SQL.  This one
8330: 20 69 6e 63 6c 75 64 65 73 20 74 68 65 20 66 69   includes the fi
8340: 65 6c 64 0a 23 20 6e 61 6d 65 73 20 69 6e 20 74  eld.# names in t
8350: 68 65 20 72 65 74 75 72 6e 65 64 20 6c 69 73 74  he returned list
8360: 2e 0a 23 0a 70 72 6f 63 20 65 78 65 63 73 71 6c  ..#.proc execsql
8370: 32 20 7b 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20  2 {sql} {.  set 
8380: 72 65 73 75 6c 74 20 7b 7d 0a 20 20 64 62 20 65  result {}.  db e
8390: 76 61 6c 20 24 73 71 6c 20 64 61 74 61 20 7b 0a  val $sql data {.
83a0: 20 20 20 20 66 6f 72 65 61 63 68 20 66 20 24 64      foreach f $d
83b0: 61 74 61 28 2a 29 20 7b 0a 20 20 20 20 20 20 6c  ata(*) {.      l
83c0: 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 24 66  append result $f
83d0: 20 24 64 61 74 61 28 24 66 29 0a 20 20 20 20 7d   $data($f).    }
83e0: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 24 72  .  }.  return $r
83f0: 65 73 75 6c 74 0a 7d 0a 0a 23 20 55 73 65 20 61  esult.}..# Use a
8400: 20 74 65 6d 70 6f 72 61 72 79 20 69 6e 2d 6d 65   temporary in-me
8410: 6d 6f 72 79 20 64 61 74 61 62 61 73 65 20 74 6f  mory database to
8420: 20 65 78 65 63 75 74 65 20 53 51 4c 20 73 74 61   execute SQL sta
8430: 74 65 6d 65 6e 74 73 0a 23 0a 70 72 6f 63 20 6d  tements.#.proc m
8440: 65 6d 64 62 73 71 6c 20 7b 73 71 6c 7d 20 7b 0a  emdbsql {sql} {.
8450: 20 20 73 71 6c 69 74 65 33 20 6d 65 6d 64 62 20    sqlite3 memdb 
8460: 3a 6d 65 6d 6f 72 79 3a 0a 20 20 73 65 74 20 72  :memory:.  set r
8470: 65 73 75 6c 74 20 5b 6d 65 6d 64 62 20 65 76 61  esult [memdb eva
8480: 6c 20 24 73 71 6c 5d 0a 20 20 6d 65 6d 64 62 20  l $sql].  memdb 
8490: 63 6c 6f 73 65 0a 20 20 72 65 74 75 72 6e 20 24  close.  return $
84a0: 72 65 73 75 6c 74 0a 7d 0a 0a 23 20 55 73 65 20  result.}..# Use 
84b0: 74 68 65 20 6e 6f 6e 2d 63 61 6c 6c 62 61 63 6b  the non-callback
84c0: 20 41 50 49 20 74 6f 20 65 78 65 63 75 74 65 20   API to execute 
84d0: 6d 75 6c 74 69 70 6c 65 20 53 51 4c 20 73 74 61  multiple SQL sta
84e0: 74 65 6d 65 6e 74 73 0a 23 0a 70 72 6f 63 20 73  tements.#.proc s
84f0: 74 65 70 73 71 6c 20 7b 64 62 70 74 72 20 73 71  tepsql {dbptr sq
8500: 6c 7d 20 7b 0a 20 20 73 65 74 20 73 71 6c 20 5b  l} {.  set sql [
8510: 73 74 72 69 6e 67 20 74 72 69 6d 20 24 73 71 6c  string trim $sql
8520: 5d 0a 20 20 73 65 74 20 72 20 30 0a 20 20 77 68  ].  set r 0.  wh
8530: 69 6c 65 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e  ile {[string len
8540: 67 74 68 20 24 73 71 6c 5d 3e 30 7d 20 7b 0a 20  gth $sql]>0} {. 
8550: 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 73     if {[catch {s
8560: 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 20 24  qlite3_prepare $
8570: 64 62 70 74 72 20 24 73 71 6c 20 2d 31 20 73 71  dbptr $sql -1 sq
8580: 6c 74 61 69 6c 7d 20 76 6d 5d 7d 20 7b 0a 20 20  ltail} vm]} {.  
8590: 20 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 73 74      return [list
85a0: 20 31 20 24 76 6d 5d 0a 20 20 20 20 7d 0a 20 20   1 $vm].    }.  
85b0: 20 20 73 65 74 20 73 71 6c 20 5b 73 74 72 69 6e    set sql [strin
85c0: 67 20 74 72 69 6d 20 24 73 71 6c 74 61 69 6c 5d  g trim $sqltail]
85d0: 0a 23 20 20 20 20 77 68 69 6c 65 20 7b 5b 73 71  .#    while {[sq
85e0: 6c 69 74 65 5f 73 74 65 70 20 24 76 6d 20 4e 20  lite_step $vm N 
85f0: 56 41 4c 20 43 4f 4c 5d 3d 3d 22 53 51 4c 49 54  VAL COL]=="SQLIT
8600: 45 5f 52 4f 57 22 7d 20 7b 0a 23 20 20 20 20 20  E_ROW"} {.#     
8610: 20 66 6f 72 65 61 63 68 20 76 20 24 56 41 4c 20   foreach v $VAL 
8620: 7b 6c 61 70 70 65 6e 64 20 72 20 24 76 7d 0a 23  {lappend r $v}.#
8630: 20 20 20 20 7d 0a 20 20 20 20 77 68 69 6c 65 20      }.    while 
8640: 7b 5b 73 71 6c 69 74 65 33 5f 73 74 65 70 20 24  {[sqlite3_step $
8650: 76 6d 5d 3d 3d 22 53 51 4c 49 54 45 5f 52 4f 57  vm]=="SQLITE_ROW
8660: 22 7d 20 7b 0a 20 20 20 20 20 20 66 6f 72 20 7b  "} {.      for {
8670: 73 65 74 20 69 20 30 7d 20 7b 24 69 3c 5b 73 71  set i 0} {$i<[sq
8680: 6c 69 74 65 33 5f 64 61 74 61 5f 63 6f 75 6e 74  lite3_data_count
8690: 20 24 76 6d 5d 7d 20 7b 69 6e 63 72 20 69 7d 20   $vm]} {incr i} 
86a0: 7b 0a 20 20 20 20 20 20 20 20 6c 61 70 70 65 6e  {.        lappen
86b0: 64 20 72 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6c  d r [sqlite3_col
86c0: 75 6d 6e 5f 74 65 78 74 20 24 76 6d 20 24 69 5d  umn_text $vm $i]
86d0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20  .      }.    }. 
86e0: 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 73     if {[catch {s
86f0: 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 20  qlite3_finalize 
8700: 24 76 6d 7d 20 65 72 72 6d 73 67 5d 7d 20 7b 0a  $vm} errmsg]} {.
8710: 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c 69        return [li
8720: 73 74 20 31 20 24 65 72 72 6d 73 67 5d 0a 20 20  st 1 $errmsg].  
8730: 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e    }.  }.  return
8740: 20 24 72 0a 7d 0a 0a 23 20 44 6f 20 61 6e 20 69   $r.}..# Do an i
8750: 6e 74 65 67 72 69 74 79 20 63 68 65 63 6b 20 6f  ntegrity check o
8760: 66 20 74 68 65 20 65 6e 74 69 72 65 20 64 61 74  f the entire dat
8770: 61 62 61 73 65 0a 23 0a 70 72 6f 63 20 69 6e 74  abase.#.proc int
8780: 65 67 72 69 74 79 5f 63 68 65 63 6b 20 7b 6e 61  egrity_check {na
8790: 6d 65 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20  me {db db}} {.  
87a0: 69 66 63 61 70 61 62 6c 65 20 69 6e 74 65 67 72  ifcapable integr
87b0: 69 74 79 63 6b 20 7b 0a 20 20 20 20 64 6f 5f 74  ityck {.    do_t
87c0: 65 73 74 20 24 6e 61 6d 65 20 5b 6c 69 73 74 20  est $name [list 
87d0: 65 78 65 63 73 71 6c 20 7b 50 52 41 47 4d 41 20  execsql {PRAGMA 
87e0: 69 6e 74 65 67 72 69 74 79 5f 63 68 65 63 6b 7d  integrity_check}
87f0: 20 24 64 62 5d 20 7b 6f 6b 7d 0a 20 20 7d 0a 7d   $db] {ok}.  }.}
8800: 0a 0a 23 20 43 68 65 63 6b 20 74 68 65 20 65 78  ..# Check the ex
8810: 74 65 6e 64 65 64 20 65 72 72 6f 72 20 63 6f 64  tended error cod
8820: 65 0a 23 0a 70 72 6f 63 20 76 65 72 69 66 79 5f  e.#.proc verify_
8830: 65 78 5f 65 72 72 63 6f 64 65 20 7b 6e 61 6d 65  ex_errcode {name
8840: 20 65 78 70 65 63 74 65 64 20 7b 64 62 20 64 62   expected {db db
8850: 7d 7d 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20 24  }} {.  do_test $
8860: 6e 61 6d 65 20 5b 6c 69 73 74 20 73 71 6c 69 74  name [list sqlit
8870: 65 33 5f 65 78 74 65 6e 64 65 64 5f 65 72 72 63  e3_extended_errc
8880: 6f 64 65 20 24 64 62 5d 20 24 65 78 70 65 63 74  ode $db] $expect
8890: 65 64 0a 7d 0a 0a 0a 23 20 52 65 74 75 72 6e 20  ed.}...# Return 
88a0: 74 72 75 65 20 69 66 20 74 68 65 20 53 51 4c 20  true if the SQL 
88b0: 73 74 61 74 65 6d 65 6e 74 20 70 61 73 73 65 64  statement passed
88c0: 20 61 73 20 74 68 65 20 73 65 63 6f 6e 64 20 61   as the second a
88d0: 72 67 75 6d 65 6e 74 20 75 73 65 73 20 61 0a 23  rgument uses a.#
88e0: 20 73 74 61 74 65 6d 65 6e 74 20 74 72 61 6e 73   statement trans
88f0: 61 63 74 69 6f 6e 2e 0a 23 0a 70 72 6f 63 20 73  action..#.proc s
8900: 71 6c 5f 75 73 65 73 5f 73 74 6d 74 20 7b 64 62  ql_uses_stmt {db
8910: 20 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20 73 74   sql} {.  set st
8920: 6d 74 20 5b 73 71 6c 69 74 65 33 5f 70 72 65 70  mt [sqlite3_prep
8930: 61 72 65 20 24 64 62 20 24 73 71 6c 20 2d 31 20  are $db $sql -1 
8940: 64 75 6d 6d 79 5d 0a 20 20 73 65 74 20 75 73 65  dummy].  set use
8950: 73 20 5b 75 73 65 73 5f 73 74 6d 74 5f 6a 6f 75  s [uses_stmt_jou
8960: 72 6e 61 6c 20 24 73 74 6d 74 5d 0a 20 20 73 71  rnal $stmt].  sq
8970: 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 20 24  lite3_finalize $
8980: 73 74 6d 74 0a 20 20 72 65 74 75 72 6e 20 24 75  stmt.  return $u
8990: 73 65 73 0a 7d 0a 0a 70 72 6f 63 20 66 69 78 5f  ses.}..proc fix_
89a0: 69 66 63 61 70 61 62 6c 65 5f 65 78 70 72 20 7b  ifcapable_expr {
89b0: 65 78 70 72 7d 20 7b 0a 20 20 73 65 74 20 72 65  expr} {.  set re
89c0: 74 20 22 22 0a 20 20 73 65 74 20 73 74 61 74 65  t "".  set state
89d0: 20 30 0a 20 20 66 6f 72 20 7b 73 65 74 20 69 20   0.  for {set i 
89e0: 30 7d 20 7b 24 69 20 3c 20 5b 73 74 72 69 6e 67  0} {$i < [string
89f0: 20 6c 65 6e 67 74 68 20 24 65 78 70 72 5d 7d 20   length $expr]} 
8a00: 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20 73  {incr i} {.    s
8a10: 65 74 20 63 68 61 72 20 5b 73 74 72 69 6e 67 20  et char [string 
8a20: 72 61 6e 67 65 20 24 65 78 70 72 20 24 69 20 24  range $expr $i $
8a30: 69 5d 0a 20 20 20 20 73 65 74 20 6e 65 77 73 74  i].    set newst
8a40: 61 74 65 20 5b 65 78 70 72 20 7b 5b 73 74 72 69  ate [expr {[stri
8a50: 6e 67 20 69 73 20 61 6c 6e 75 6d 20 24 63 68 61  ng is alnum $cha
8a60: 72 5d 20 7c 7c 20 24 63 68 61 72 20 65 71 20 22  r] || $char eq "
8a70: 5f 22 7d 5d 0a 20 20 20 20 69 66 20 7b 24 6e 65  _"}].    if {$ne
8a80: 77 73 74 61 74 65 20 26 26 20 21 24 73 74 61 74  wstate && !$stat
8a90: 65 7d 20 7b 0a 20 20 20 20 20 20 61 70 70 65 6e  e} {.      appen
8aa0: 64 20 72 65 74 20 7b 24 3a 3a 73 71 6c 69 74 65  d ret {$::sqlite
8ab0: 5f 6f 70 74 69 6f 6e 73 28 7d 0a 20 20 20 20 7d  _options(}.    }
8ac0: 0a 20 20 20 20 69 66 20 7b 21 24 6e 65 77 73 74  .    if {!$newst
8ad0: 61 74 65 20 26 26 20 24 73 74 61 74 65 7d 20 7b  ate && $state} {
8ae0: 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20 72 65  .      append re
8af0: 74 20 29 0a 20 20 20 20 7d 0a 20 20 20 20 61 70  t ).    }.    ap
8b00: 70 65 6e 64 20 72 65 74 20 24 63 68 61 72 0a 20  pend ret $char. 
8b10: 20 20 20 73 65 74 20 73 74 61 74 65 20 24 6e 65     set state $ne
8b20: 77 73 74 61 74 65 0a 20 20 7d 0a 20 20 69 66 20  wstate.  }.  if 
8b30: 7b 24 73 74 61 74 65 7d 20 7b 61 70 70 65 6e 64  {$state} {append
8b40: 20 72 65 74 20 29 7d 0a 20 20 72 65 74 75 72 6e   ret )}.  return
8b50: 20 24 72 65 74 0a 7d 0a 0a 23 20 52 65 74 75 72   $ret.}..# Retur
8b60: 6e 73 20 6e 6f 6e 2d 7a 65 72 6f 20 69 66 20 74  ns non-zero if t
8b70: 68 65 20 63 61 70 61 62 69 6c 69 74 69 65 73 20  he capabilities 
8b80: 61 72 65 20 70 72 65 73 65 6e 74 3b 20 7a 65 72  are present; zer
8b90: 6f 20 6f 74 68 65 72 77 69 73 65 2e 0a 23 0a 70  o otherwise..#.p
8ba0: 72 6f 63 20 63 61 70 61 62 6c 65 20 7b 65 78 70  roc capable {exp
8bb0: 72 7d 20 7b 0a 20 20 73 65 74 20 65 20 5b 66 69  r} {.  set e [fi
8bc0: 78 5f 69 66 63 61 70 61 62 6c 65 5f 65 78 70 72  x_ifcapable_expr
8bd0: 20 24 65 78 70 72 5d 3b 20 72 65 74 75 72 6e 20   $expr]; return 
8be0: 5b 65 78 70 72 20 28 24 65 29 5d 0a 7d 0a 0a 23  [expr ($e)].}..#
8bf0: 20 45 76 61 6c 75 61 74 65 20 61 20 62 6f 6f 6c   Evaluate a bool
8c00: 65 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 6f  ean expression o
8c10: 66 20 63 61 70 61 62 69 6c 69 74 69 65 73 2e 20  f capabilities. 
8c20: 20 49 66 20 74 72 75 65 2c 20 65 78 65 63 75 74   If true, execut
8c30: 65 20 74 68 65 0a 23 20 63 6f 64 65 2e 20 20 4f  e the.# code.  O
8c40: 6d 69 74 20 74 68 65 20 63 6f 64 65 20 69 66 20  mit the code if 
8c50: 66 61 6c 73 65 2e 0a 23 0a 70 72 6f 63 20 69 66  false..#.proc if
8c60: 63 61 70 61 62 6c 65 20 7b 65 78 70 72 20 63 6f  capable {expr co
8c70: 64 65 20 7b 65 6c 73 65 20 22 22 7d 20 7b 65 6c  de {else ""} {el
8c80: 73 65 63 6f 64 65 20 22 22 7d 7d 20 7b 0a 20 20  secode ""}} {.  
8c90: 23 72 65 67 73 75 62 20 2d 61 6c 6c 20 7b 5b 61  #regsub -all {[a
8ca0: 2d 7a 5f 30 2d 39 5d 2b 7d 20 24 65 78 70 72 20  -z_0-9]+} $expr 
8cb0: 7b 24 3a 3a 73 71 6c 69 74 65 5f 6f 70 74 69 6f  {$::sqlite_optio
8cc0: 6e 73 28 26 29 7d 20 65 32 0a 20 20 73 65 74 20  ns(&)} e2.  set 
8cd0: 65 32 20 5b 66 69 78 5f 69 66 63 61 70 61 62 6c  e2 [fix_ifcapabl
8ce0: 65 5f 65 78 70 72 20 24 65 78 70 72 5d 0a 20 20  e_expr $expr].  
8cf0: 69 66 20 28 24 65 32 29 20 7b 0a 20 20 20 20 73  if ($e2) {.    s
8d00: 65 74 20 63 20 5b 63 61 74 63 68 20 7b 75 70 6c  et c [catch {upl
8d10: 65 76 65 6c 20 31 20 24 63 6f 64 65 7d 20 72 5d  evel 1 $code} r]
8d20: 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20  .  } else {.    
8d30: 73 65 74 20 63 20 5b 63 61 74 63 68 20 7b 75 70  set c [catch {up
8d40: 6c 65 76 65 6c 20 31 20 24 65 6c 73 65 63 6f 64  level 1 $elsecod
8d50: 65 7d 20 72 5d 0a 20 20 7d 0a 20 20 72 65 74 75  e} r].  }.  retu
8d60: 72 6e 20 2d 63 6f 64 65 20 24 63 20 24 72 0a 7d  rn -code $c $r.}
8d70: 0a 0a 23 20 54 68 69 73 20 70 72 6f 63 20 65 78  ..# This proc ex
8d80: 65 63 73 20 61 20 73 65 70 65 72 61 74 65 20 70  ecs a seperate p
8d90: 72 6f 63 65 73 73 20 74 68 61 74 20 63 72 61 73  rocess that cras
8da0: 68 65 73 20 6d 69 64 77 61 79 20 74 68 72 6f 75  hes midway throu
8db0: 67 68 20 65 78 65 63 75 74 69 6e 67 0a 23 20 74  gh executing.# t
8dc0: 68 65 20 53 51 4c 20 73 63 72 69 70 74 20 24 73  he SQL script $s
8dd0: 71 6c 20 6f 6e 20 64 61 74 61 62 61 73 65 20 74  ql on database t
8de0: 65 73 74 2e 64 62 2e 0a 23 0a 23 20 54 68 65 20  est.db..#.# The 
8df0: 63 72 61 73 68 20 6f 63 63 75 72 73 20 64 75 72  crash occurs dur
8e00: 69 6e 67 20 61 20 73 79 6e 63 28 29 20 6f 66 20  ing a sync() of 
8e10: 66 69 6c 65 20 24 63 72 61 73 68 66 69 6c 65 2e  file $crashfile.
8e20: 20 57 68 65 6e 20 74 68 65 20 63 72 61 73 68 0a   When the crash.
8e30: 23 20 6f 63 63 75 72 73 20 61 20 72 61 6e 64 6f  # occurs a rando
8e40: 6d 20 73 75 62 73 65 74 20 6f 66 20 61 6c 6c 20  m subset of all 
8e50: 75 6e 73 79 6e 63 65 64 20 77 72 69 74 65 73 20  unsynced writes 
8e60: 6d 61 64 65 20 62 79 20 74 68 65 20 70 72 6f 63  made by the proc
8e70: 65 73 73 20 61 72 65 0a 23 20 77 72 69 74 74 65  ess are.# writte
8e80: 6e 20 69 6e 74 6f 20 74 68 65 20 66 69 6c 65 73  n into the files
8e90: 20 6f 6e 20 64 69 73 6b 2e 20 41 72 67 75 6d 65   on disk. Argume
8ea0: 6e 74 20 24 63 72 61 73 68 64 65 6c 61 79 20 69  nt $crashdelay i
8eb0: 6e 64 69 63 61 74 65 73 20 74 68 65 0a 23 20 6e  ndicates the.# n
8ec0: 75 6d 62 65 72 20 6f 66 20 66 69 6c 65 20 73 79  umber of file sy
8ed0: 6e 63 73 20 74 6f 20 77 61 69 74 20 62 65 66 6f  ncs to wait befo
8ee0: 72 65 20 63 72 61 73 68 69 6e 67 2e 0a 23 0a 23  re crashing..#.#
8ef0: 20 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75   The return valu
8f00: 65 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 74  e is a list of t
8f10: 77 6f 20 65 6c 65 6d 65 6e 74 73 2e 20 54 68 65  wo elements. The
8f20: 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 69   first element i
8f30: 73 20 61 0a 23 20 62 6f 6f 6c 65 61 6e 2c 20 69  s a.# boolean, i
8f40: 6e 64 69 63 61 74 69 6e 67 20 77 68 65 74 68 65  ndicating whethe
8f50: 72 20 6f 72 20 6e 6f 74 20 74 68 65 20 70 72 6f  r or not the pro
8f60: 63 65 73 73 20 61 63 74 75 61 6c 6c 79 20 63 72  cess actually cr
8f70: 61 73 68 65 64 20 6f 72 0a 23 20 72 65 70 6f 72  ashed or.# repor
8f80: 74 65 64 20 73 6f 6d 65 20 6f 74 68 65 72 20 65  ted some other e
8f90: 72 72 6f 72 2e 20 54 68 65 20 73 65 63 6f 6e 64  rror. The second
8fa0: 20 65 6c 65 6d 65 6e 74 20 69 6e 20 74 68 65 20   element in the 
8fb0: 72 65 74 75 72 6e 65 64 20 6c 69 73 74 20 69 73  returned list is
8fc0: 20 74 68 65 0a 23 20 65 72 72 6f 72 20 6d 65 73   the.# error mes
8fd0: 73 61 67 65 2e 20 54 68 69 73 20 69 73 20 22 63  sage. This is "c
8fe0: 68 69 6c 64 20 70 72 6f 63 65 73 73 20 65 78 69  hild process exi
8ff0: 74 65 64 20 61 62 6e 6f 72 6d 61 6c 6c 79 22 20  ted abnormally" 
9000: 69 66 20 74 68 65 20 63 72 61 73 68 0a 23 20 6f  if the crash.# o
9010: 63 63 75 72 72 65 64 2e 0a 23 0a 23 20 20 20 63  ccurred..#.#   c
9020: 72 61 73 68 73 71 6c 20 2d 64 65 6c 61 79 20 43  rashsql -delay C
9030: 52 41 53 48 44 45 4c 41 59 20 2d 66 69 6c 65 20  RASHDELAY -file 
9040: 43 52 41 53 48 46 49 4c 45 20 3f 2d 62 6c 6f 63  CRASHFILE ?-bloc
9050: 6b 73 69 7a 65 20 42 4c 4f 43 4b 53 49 5a 45 3f  ksize BLOCKSIZE?
9060: 20 24 73 71 6c 0a 23 0a 70 72 6f 63 20 63 72 61   $sql.#.proc cra
9070: 73 68 73 71 6c 20 7b 61 72 67 73 7d 20 7b 0a 0a  shsql {args} {..
9080: 20 20 73 65 74 20 62 6c 6f 63 6b 73 69 7a 65 20    set blocksize 
9090: 22 22 0a 20 20 73 65 74 20 63 72 61 73 68 64 65  "".  set crashde
90a0: 6c 61 79 20 31 0a 20 20 73 65 74 20 70 72 6e 67  lay 1.  set prng
90b0: 73 65 65 64 20 30 0a 20 20 73 65 74 20 6f 70 65  seed 0.  set ope
90c0: 6e 64 62 20 7b 20 73 71 6c 69 74 65 33 20 64 62  ndb { sqlite3 db
90d0: 20 74 65 73 74 2e 64 62 20 2d 76 66 73 20 63 72   test.db -vfs cr
90e0: 61 73 68 20 7d 0a 20 20 73 65 74 20 74 63 6c 62  ash }.  set tclb
90f0: 6f 64 79 20 7b 7d 0a 20 20 73 65 74 20 63 72 61  ody {}.  set cra
9100: 73 68 66 69 6c 65 20 22 22 0a 20 20 73 65 74 20  shfile "".  set 
9110: 64 63 20 22 22 0a 20 20 73 65 74 20 73 71 6c 20  dc "".  set sql 
9120: 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20 65 6e  [lindex $args en
9130: 64 5d 0a 0a 20 20 66 6f 72 20 7b 73 65 74 20 69  d]..  for {set i
9140: 69 20 30 7d 20 7b 24 69 69 20 3c 20 5b 6c 6c 65  i 0} {$ii < [lle
9150: 6e 67 74 68 20 24 61 72 67 73 5d 2d 31 7d 20 7b  ngth $args]-1} {
9160: 69 6e 63 72 20 69 69 20 32 7d 20 7b 0a 20 20 20  incr ii 2} {.   
9170: 20 73 65 74 20 7a 20 5b 6c 69 6e 64 65 78 20 24   set z [lindex $
9180: 61 72 67 73 20 24 69 69 5d 0a 20 20 20 20 73 65  args $ii].    se
9190: 74 20 6e 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67  t n [string leng
91a0: 74 68 20 24 7a 5d 0a 20 20 20 20 73 65 74 20 7a  th $z].    set z
91b0: 32 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20  2 [lindex $args 
91c0: 5b 65 78 70 72 20 24 69 69 2b 31 5d 5d 0a 0a 20  [expr $ii+1]].. 
91d0: 20 20 20 69 66 20 20 20 20 20 7b 24 6e 3e 31 20     if     {$n>1 
91e0: 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74  && [string first
91f0: 20 24 7a 20 2d 64 65 6c 61 79 5d 3d 3d 30 7d 20   $z -delay]==0} 
9200: 20 20 20 20 7b 73 65 74 20 63 72 61 73 68 64 65      {set crashde
9210: 6c 61 79 20 24 7a 32 7d 20 5c 0a 20 20 20 20 65  lay $z2} \.    e
9220: 6c 73 65 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b  lseif {$n>1 && [
9230: 73 74 72 69 6e 67 20 66 69 72 73 74 20 24 7a 20  string first $z 
9240: 2d 6f 70 65 6e 64 62 5d 3d 3d 30 7d 20 20 20 20  -opendb]==0}    
9250: 7b 73 65 74 20 6f 70 65 6e 64 62 20 24 7a 32 7d  {set opendb $z2}
9260: 20 5c 0a 20 20 20 20 65 6c 73 65 69 66 20 7b 24   \.    elseif {$
9270: 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e 67 20 66  n>1 && [string f
9280: 69 72 73 74 20 24 7a 20 2d 73 65 65 64 5d 3d 3d  irst $z -seed]==
9290: 30 7d 20 20 20 20 20 20 7b 73 65 74 20 70 72 6e  0}      {set prn
92a0: 67 73 65 65 64 20 24 7a 32 7d 20 5c 0a 20 20 20  gseed $z2} \.   
92b0: 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 20 26 26   elseif {$n>1 &&
92c0: 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20 24   [string first $
92d0: 7a 20 2d 66 69 6c 65 5d 3d 3d 30 7d 20 20 20 20  z -file]==0}    
92e0: 20 20 7b 73 65 74 20 63 72 61 73 68 66 69 6c 65    {set crashfile
92f0: 20 24 7a 32 7d 20 20 5c 0a 20 20 20 20 65 6c 73   $z2}  \.    els
9300: 65 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74  eif {$n>1 && [st
9310: 72 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d 74  ring first $z -t
9320: 63 6c 62 6f 64 79 5d 3d 3d 30 7d 20 20 20 7b 73  clbody]==0}   {s
9330: 65 74 20 74 63 6c 62 6f 64 79 20 24 7a 32 7d 20  et tclbody $z2} 
9340: 20 5c 0a 20 20 20 20 65 6c 73 65 69 66 20 7b 24   \.    elseif {$
9350: 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e 67 20 66  n>1 && [string f
9360: 69 72 73 74 20 24 7a 20 2d 62 6c 6f 63 6b 73 69  irst $z -blocksi
9370: 7a 65 5d 3d 3d 30 7d 20 7b 73 65 74 20 62 6c 6f  ze]==0} {set blo
9380: 63 6b 73 69 7a 65 20 22 2d 73 20 24 7a 32 22 20  cksize "-s $z2" 
9390: 7d 20 5c 0a 20 20 20 20 65 6c 73 65 69 66 20 7b  } \.    elseif {
93a0: 24 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e 67 20  $n>1 && [string 
93b0: 66 69 72 73 74 20 24 7a 20 2d 63 68 61 72 61 63  first $z -charac
93c0: 74 65 72 69 73 74 69 63 73 5d 3d 3d 30 7d 20 7b  teristics]==0} {
93d0: 73 65 74 20 64 63 20 22 2d 63 20 7b 24 7a 32 7d  set dc "-c {$z2}
93e0: 22 20 7d 20 5c 0a 20 20 20 20 65 6c 73 65 20 20  " } \.    else  
93f0: 20 7b 20 65 72 72 6f 72 20 22 55 6e 72 65 63 6f   { error "Unreco
9400: 67 6e 69 7a 65 64 20 6f 70 74 69 6f 6e 3a 20 24  gnized option: $
9410: 7a 22 20 7d 0a 20 20 7d 0a 0a 20 20 69 66 20 7b  z" }.  }..  if {
9420: 24 63 72 61 73 68 66 69 6c 65 20 65 71 20 22 22  $crashfile eq ""
9430: 7d 20 7b 0a 20 20 20 20 65 72 72 6f 72 20 22 43  } {.    error "C
9440: 6f 6d 70 75 6c 73 6f 72 79 20 6f 70 74 69 6f 6e  ompulsory option
9450: 20 2d 66 69 6c 65 20 6d 69 73 73 69 6e 67 22 0a   -file missing".
9460: 20 20 7d 0a 0a 20 20 23 20 24 63 72 61 73 68 66    }..  # $crashf
9470: 69 6c 65 20 67 65 74 73 20 63 6f 6d 70 61 72 65  ile gets compare
9480: 64 20 74 6f 20 74 68 65 20 6e 61 74 69 76 65 20  d to the native 
9490: 66 69 6c 65 6e 61 6d 65 20 69 6e 0a 20 20 23 20  filename in.  # 
94a0: 63 66 53 79 6e 63 28 29 2c 20 77 68 69 63 68 20  cfSync(), which 
94b0: 63 61 6e 20 62 65 20 64 69 66 66 65 72 65 6e 74  can be different
94c0: 20 74 68 65 6e 20 77 68 61 74 20 54 43 4c 20 75   then what TCL u
94d0: 73 65 73 20 62 79 0a 20 20 23 20 64 65 66 61 75  ses by.  # defau
94e0: 6c 74 2c 20 73 6f 20 68 65 72 65 20 77 65 20 66  lt, so here we f
94f0: 6f 72 63 65 20 69 74 20 74 6f 20 74 68 65 20 22  orce it to the "
9500: 6e 61 74 69 76 65 6e 61 6d 65 22 20 66 6f 72 6d  nativename" form
9510: 61 74 2e 0a 20 20 73 65 74 20 63 66 69 6c 65 20  at..  set cfile 
9520: 5b 73 74 72 69 6e 67 20 6d 61 70 20 7b 5c 5c 20  [string map {\\ 
9530: 5c 5c 5c 5c 7d 20 5b 66 69 6c 65 20 6e 61 74 69  \\\\} [file nati
9540: 76 65 6e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69  vename [file joi
9550: 6e 20 5b 67 65 74 5f 70 77 64 5d 20 24 63 72 61  n [get_pwd] $cra
9560: 73 68 66 69 6c 65 5d 5d 5d 0a 0a 20 20 73 65 74  shfile]]]..  set
9570: 20 66 20 5b 6f 70 65 6e 20 63 72 61 73 68 2e 74   f [open crash.t
9580: 63 6c 20 77 5d 0a 20 20 70 75 74 73 20 24 66 20  cl w].  puts $f 
9590: 22 73 71 6c 69 74 65 33 5f 63 72 61 73 68 5f 65  "sqlite3_crash_e
95a0: 6e 61 62 6c 65 20 31 22 0a 20 20 70 75 74 73 20  nable 1".  puts 
95b0: 24 66 20 22 73 71 6c 69 74 65 33 5f 63 72 61 73  $f "sqlite3_cras
95c0: 68 70 61 72 61 6d 73 20 24 62 6c 6f 63 6b 73 69  hparams $blocksi
95d0: 7a 65 20 24 64 63 20 24 63 72 61 73 68 64 65 6c  ze $dc $crashdel
95e0: 61 79 20 24 63 66 69 6c 65 22 0a 20 20 70 75 74  ay $cfile".  put
95f0: 73 20 24 66 20 22 73 71 6c 69 74 65 33 5f 74 65  s $f "sqlite3_te
9600: 73 74 5f 63 6f 6e 74 72 6f 6c 5f 70 65 6e 64 69  st_control_pendi
9610: 6e 67 5f 62 79 74 65 20 24 3a 3a 73 71 6c 69 74  ng_byte $::sqlit
9620: 65 5f 70 65 6e 64 69 6e 67 5f 62 79 74 65 22 0a  e_pending_byte".
9630: 20 20 70 75 74 73 20 24 66 20 24 6f 70 65 6e 64    puts $f $opend
9640: 62 20 0a 0a 20 20 23 20 54 68 69 73 20 62 6c 6f  b ..  # This blo
9650: 63 6b 20 73 65 74 73 20 74 68 65 20 63 61 63 68  ck sets the cach
9660: 65 20 73 69 7a 65 20 6f 66 20 74 68 65 20 6d 61  e size of the ma
9670: 69 6e 20 64 61 74 61 62 61 73 65 20 74 6f 20 31  in database to 1
9680: 30 0a 20 20 23 20 70 61 67 65 73 2e 20 54 68 69  0.  # pages. Thi
9690: 73 20 69 73 20 64 6f 6e 65 20 69 6e 20 63 61 73  s is done in cas
96a0: 65 20 74 68 65 20 62 75 69 6c 64 20 69 73 20 63  e the build is c
96b0: 6f 6e 66 69 67 75 72 65 64 20 74 6f 20 6f 6d 69  onfigured to omi
96c0: 74 0a 20 20 23 20 22 50 52 41 47 4d 41 20 63 61  t.  # "PRAGMA ca
96d0: 63 68 65 5f 73 69 7a 65 22 2e 0a 20 20 70 75 74  che_size"..  put
96e0: 73 20 24 66 20 7b 64 62 20 65 76 61 6c 20 7b 53  s $f {db eval {S
96f0: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73 71 6c  ELECT * FROM sql
9700: 69 74 65 5f 6d 61 73 74 65 72 3b 7d 7d 0a 20 20  ite_master;}}.  
9710: 70 75 74 73 20 24 66 20 7b 73 65 74 20 62 74 20  puts $f {set bt 
9720: 5b 62 74 72 65 65 5f 66 72 6f 6d 5f 64 62 20 64  [btree_from_db d
9730: 62 5d 7d 0a 20 20 70 75 74 73 20 24 66 20 7b 62  b]}.  puts $f {b
9740: 74 72 65 65 5f 73 65 74 5f 63 61 63 68 65 5f 73  tree_set_cache_s
9750: 69 7a 65 20 24 62 74 20 31 30 7d 0a 0a 20 20 69  ize $bt 10}..  i
9760: 66 20 7b 24 70 72 6e 67 73 65 65 64 7d 20 7b 0a  f {$prngseed} {.
9770: 20 20 20 20 73 65 74 20 73 65 65 64 20 5b 65 78      set seed [ex
9780: 70 72 20 7b 24 70 72 6e 67 73 65 65 64 25 31 30  pr {$prngseed%10
9790: 30 30 37 2b 31 7d 5d 0a 20 20 20 20 23 20 70 75  007+1}].    # pu
97a0: 74 73 20 73 65 65 64 3d 24 73 65 65 64 0a 20 20  ts seed=$seed.  
97b0: 20 20 70 75 74 73 20 24 66 20 22 64 62 20 65 76    puts $f "db ev
97c0: 61 6c 20 7b 53 45 4c 45 43 54 20 72 61 6e 64 6f  al {SELECT rando
97d0: 6d 62 6c 6f 62 28 24 73 65 65 64 29 7d 22 0a 20  mblob($seed)}". 
97e0: 20 7d 0a 0a 20 20 69 66 20 7b 5b 73 74 72 69 6e   }..  if {[strin
97f0: 67 20 6c 65 6e 67 74 68 20 24 74 63 6c 62 6f 64  g length $tclbod
9800: 79 5d 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73  y]>0} {.    puts
9810: 20 24 66 20 24 74 63 6c 62 6f 64 79 0a 20 20 7d   $f $tclbody.  }
9820: 0a 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c  .  if {[string l
9830: 65 6e 67 74 68 20 24 73 71 6c 5d 3e 30 7d 20 7b  ength $sql]>0} {
9840: 0a 20 20 20 20 70 75 74 73 20 24 66 20 22 64 62  .    puts $f "db
9850: 20 65 76 61 6c 20 7b 22 0a 20 20 20 20 70 75 74   eval {".    put
9860: 73 20 24 66 20 20 20 22 24 73 71 6c 22 0a 20 20  s $f   "$sql".  
9870: 20 20 70 75 74 73 20 24 66 20 22 7d 22 0a 20 20    puts $f "}".  
9880: 7d 0a 20 20 63 6c 6f 73 65 20 24 66 0a 20 20 73  }.  close $f.  s
9890: 65 74 20 72 20 5b 63 61 74 63 68 20 7b 0a 20 20  et r [catch {.  
98a0: 20 20 65 78 65 63 20 5b 69 6e 66 6f 20 6e 61 6d    exec [info nam
98b0: 65 6f 66 65 78 65 63 5d 20 63 72 61 73 68 2e 74  eofexec] crash.t
98c0: 63 6c 20 3e 40 73 74 64 6f 75 74 0a 20 20 7d 20  cl >@stdout.  } 
98d0: 6d 73 67 5d 0a 0a 20 20 23 20 57 69 6e 64 6f 77  msg]..  # Window
98e0: 73 2f 41 63 74 69 76 65 53 74 61 74 65 20 54 43  s/ActiveState TC
98f0: 4c 20 72 65 74 75 72 6e 73 20 61 20 73 6c 69 67  L returns a slig
9900: 68 74 6c 79 20 64 69 66 66 65 72 65 6e 74 0a 20  htly different. 
9910: 20 23 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65   # error message
9920: 2e 20 20 57 65 20 6d 61 70 20 74 68 61 74 20 74  .  We map that t
9930: 6f 20 74 68 65 20 65 78 70 65 63 74 65 64 20 6d  o the expected m
9940: 65 73 73 61 67 65 0a 20 20 23 20 73 6f 20 74 68  essage.  # so th
9950: 61 74 20 77 65 20 64 6f 6e 27 74 20 68 61 76 65  at we don't have
9960: 20 74 6f 20 63 68 61 6e 67 65 20 61 6c 6c 20 6f   to change all o
9970: 66 20 74 68 65 20 74 65 73 74 0a 20 20 23 20 63  f the test.  # c
9980: 61 73 65 73 2e 0a 20 20 69 66 20 7b 24 3a 3a 74  ases..  if {$::t
9990: 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 70 6c 61 74  cl_platform(plat
99a0: 66 6f 72 6d 29 3d 3d 22 77 69 6e 64 6f 77 73 22  form)=="windows"
99b0: 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 6d 73 67  } {.    if {$msg
99c0: 3d 3d 22 63 68 69 6c 64 20 6b 69 6c 6c 65 64 3a  =="child killed:
99d0: 20 75 6e 6b 6e 6f 77 6e 20 73 69 67 6e 61 6c 22   unknown signal"
99e0: 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 6d 73  } {.      set ms
99f0: 67 20 22 63 68 69 6c 64 20 70 72 6f 63 65 73 73  g "child process
9a00: 20 65 78 69 74 65 64 20 61 62 6e 6f 72 6d 61 6c   exited abnormal
9a10: 6c 79 22 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20  ly".    }.  }.. 
9a20: 20 6c 61 70 70 65 6e 64 20 72 20 24 6d 73 67 0a   lappend r $msg.
9a30: 7d 0a 0a 70 72 6f 63 20 72 75 6e 5f 69 6f 65 72  }..proc run_ioer
9a40: 72 5f 70 72 65 70 20 7b 7d 20 7b 0a 20 20 73 65  r_prep {} {.  se
9a50: 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72  t ::sqlite_io_er
9a60: 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a 20 20  ror_pending 0.  
9a70: 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d  catch {db close}
9a80: 0a 20 20 63 61 74 63 68 20 7b 64 62 32 20 63 6c  .  catch {db2 cl
9a90: 6f 73 65 7d 0a 20 20 63 61 74 63 68 20 7b 66 6f  ose}.  catch {fo
9aa0: 72 63 65 64 65 6c 65 74 65 20 74 65 73 74 2e 64  rcedelete test.d
9ab0: 62 7d 0a 20 20 63 61 74 63 68 20 7b 66 6f 72 63  b}.  catch {forc
9ac0: 65 64 65 6c 65 74 65 20 74 65 73 74 2e 64 62 2d  edelete test.db-
9ad0: 6a 6f 75 72 6e 61 6c 7d 0a 20 20 63 61 74 63 68  journal}.  catch
9ae0: 20 7b 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65   {forcedelete te
9af0: 73 74 32 2e 64 62 7d 0a 20 20 63 61 74 63 68 20  st2.db}.  catch 
9b00: 7b 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73  {forcedelete tes
9b10: 74 32 2e 64 62 2d 6a 6f 75 72 6e 61 6c 7d 0a 20  t2.db-journal}. 
9b20: 20 73 65 74 20 3a 3a 44 42 20 5b 73 71 6c 69 74   set ::DB [sqlit
9b30: 65 33 20 64 62 20 74 65 73 74 2e 64 62 3b 20 73  e3 db test.db; s
9b40: 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f  qlite3_connectio
9b50: 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 20 20  n_pointer db].  
9b60: 73 71 6c 69 74 65 33 5f 65 78 74 65 6e 64 65 64  sqlite3_extended
9b70: 5f 72 65 73 75 6c 74 5f 63 6f 64 65 73 20 24 3a  _result_codes $:
9b80: 3a 44 42 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73  :DB $::ioerropts
9b90: 28 2d 65 72 63 29 0a 20 20 69 66 20 7b 5b 69 6e  (-erc).  if {[in
9ba0: 66 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72  fo exists ::ioer
9bb0: 72 6f 70 74 73 28 2d 74 63 6c 70 72 65 70 29 5d  ropts(-tclprep)]
9bc0: 7d 20 7b 0a 20 20 20 20 65 76 61 6c 20 24 3a 3a  } {.    eval $::
9bd0: 69 6f 65 72 72 6f 70 74 73 28 2d 74 63 6c 70 72  ioerropts(-tclpr
9be0: 65 70 29 0a 20 20 7d 0a 20 20 69 66 20 7b 5b 69  ep).  }.  if {[i
9bf0: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f 65  nfo exists ::ioe
9c00: 72 72 6f 70 74 73 28 2d 73 71 6c 70 72 65 70 29  rropts(-sqlprep)
9c10: 5d 7d 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c  ]} {.    execsql
9c20: 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73   $::ioerropts(-s
9c30: 71 6c 70 72 65 70 29 0a 20 20 7d 0a 20 20 65 78  qlprep).  }.  ex
9c40: 70 72 20 30 0a 7d 0a 0a 23 20 55 73 61 67 65 3a  pr 0.}..# Usage:
9c50: 20 64 6f 5f 69 6f 65 72 72 5f 74 65 73 74 20 3c   do_ioerr_test <
9c60: 74 65 73 74 20 6e 75 6d 62 65 72 3e 20 3c 6f 70  test number> <op
9c70: 74 69 6f 6e 73 2e 2e 2e 3e 0a 23 0a 23 20 54 68  tions...>.#.# Th
9c80: 69 73 20 70 72 6f 63 20 69 73 20 75 73 65 64 20  is proc is used 
9c90: 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 74 65 73  to implement tes
9ca0: 74 20 63 61 73 65 73 20 74 68 61 74 20 63 68 65  t cases that che
9cb0: 63 6b 20 74 68 61 74 20 49 4f 20 65 72 72 6f 72  ck that IO error
9cc0: 73 0a 23 20 61 72 65 20 63 6f 72 72 65 63 74 6c  s.# are correctl
9cd0: 79 20 68 61 6e 64 6c 65 64 2e 20 54 68 65 20 66  y handled. The f
9ce0: 69 72 73 74 20 61 72 67 75 6d 65 6e 74 2c 20 3c  irst argument, <
9cf0: 74 65 73 74 20 6e 75 6d 62 65 72 3e 2c 20 69 73  test number>, is
9d00: 20 61 6e 20 69 6e 74 65 67 65 72 0a 23 20 75 73   an integer.# us
9d10: 65 64 20 74 6f 20 6e 61 6d 65 20 74 68 65 20 74  ed to name the t
9d20: 65 73 74 73 20 65 78 65 63 75 74 65 64 20 62 79  ests executed by
9d30: 20 74 68 69 73 20 70 72 6f 63 2e 20 4f 70 74 69   this proc. Opti
9d40: 6f 6e 73 20 61 72 65 20 61 73 20 66 6f 6c 6c 6f  ons are as follo
9d50: 77 73 3a 0a 23 0a 23 20 20 20 20 20 2d 74 63 6c  ws:.#.#     -tcl
9d60: 70 72 65 70 20 20 20 20 20 20 20 20 20 20 54 43  prep          TC
9d70: 4c 20 73 63 72 69 70 74 20 74 6f 20 72 75 6e 20  L script to run 
9d80: 74 6f 20 70 72 65 70 61 72 65 20 74 65 73 74 2e  to prepare test.
9d90: 0a 23 20 20 20 20 20 2d 73 71 6c 70 72 65 70 20  .#     -sqlprep 
9da0: 20 20 20 20 20 20 20 20 20 53 51 4c 20 73 63 72           SQL scr
9db0: 69 70 74 20 74 6f 20 72 75 6e 20 74 6f 20 70 72  ipt to run to pr
9dc0: 65 70 61 72 65 20 74 65 73 74 2e 0a 23 20 20 20  epare test..#   
9dd0: 20 20 2d 74 63 6c 62 6f 64 79 20 20 20 20 20 20    -tclbody      
9de0: 20 20 20 20 54 43 4c 20 73 63 72 69 70 74 20 74      TCL script t
9df0: 6f 20 72 75 6e 20 77 69 74 68 20 49 4f 20 65 72  o run with IO er
9e00: 72 6f 72 20 73 69 6d 75 6c 61 74 69 6f 6e 2e 0a  ror simulation..
9e10: 23 20 20 20 20 20 2d 73 71 6c 62 6f 64 79 20 20  #     -sqlbody  
9e20: 20 20 20 20 20 20 20 20 54 43 4c 20 73 63 72 69          TCL scri
9e30: 70 74 20 74 6f 20 72 75 6e 20 77 69 74 68 20 49  pt to run with I
9e40: 4f 20 65 72 72 6f 72 20 73 69 6d 75 6c 61 74 69  O error simulati
9e50: 6f 6e 2e 0a 23 20 20 20 20 20 2d 65 78 63 6c 75  on..#     -exclu
9e60: 64 65 20 20 20 20 20 20 20 20 20 20 4c 69 73 74  de          List
9e70: 20 6f 66 20 27 4e 27 20 76 61 6c 75 65 73 20 6e   of 'N' values n
9e80: 6f 74 20 74 6f 20 74 65 73 74 2e 0a 23 20 20 20  ot to test..#   
9e90: 20 20 2d 65 72 63 20 20 20 20 20 20 20 20 20 20    -erc          
9ea0: 20 20 20 20 55 73 65 20 65 78 74 65 6e 64 65 64      Use extended
9eb0: 20 72 65 73 75 6c 74 20 63 6f 64 65 73 0a 23 20   result codes.# 
9ec0: 20 20 20 20 2d 70 65 72 73 69 73 74 20 20 20 20      -persist    
9ed0: 20 20 20 20 20 20 4d 61 6b 65 20 73 69 6d 75 6c        Make simul
9ee0: 61 74 65 64 20 49 2f 4f 20 65 72 72 6f 72 73 20  ated I/O errors 
9ef0: 70 65 72 73 69 73 74 65 6e 74 0a 23 20 20 20 20  persistent.#    
9f00: 20 2d 73 74 61 72 74 20 20 20 20 20 20 20 20 20   -start         
9f10: 20 20 20 56 61 6c 75 65 20 6f 66 20 27 4e 27 20     Value of 'N' 
9f20: 74 6f 20 62 65 67 69 6e 20 77 69 74 68 20 28 64  to begin with (d
9f30: 65 66 61 75 6c 74 20 31 29 0a 23 0a 23 20 20 20  efault 1).#.#   
9f40: 20 20 2d 63 6b 73 75 6d 20 20 20 20 20 20 20 20    -cksum        
9f50: 20 20 20 20 42 6f 6f 6c 65 61 6e 2e 20 49 66 20      Boolean. If 
9f60: 74 72 75 65 2c 20 74 65 73 74 20 74 68 61 74 20  true, test that 
9f70: 74 68 65 20 64 61 74 61 62 61 73 65 20 64 6f 65  the database doe
9f80: 73 0a 23 20 20 20 20 20 20 20 20 20 20 20 20 20  s.#             
9f90: 20 20 20 20 20 20 20 20 20 20 6e 6f 74 20 63 68            not ch
9fa0: 61 6e 67 65 20 64 75 72 69 6e 67 20 74 68 65 20  ange during the 
9fb0: 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 74 68 65  execution of the
9fc0: 20 74 65 73 74 20 63 61 73 65 2e 0a 23 0a 70 72   test case..#.pr
9fd0: 6f 63 20 64 6f 5f 69 6f 65 72 72 5f 74 65 73 74  oc do_ioerr_test
9fe0: 20 7b 74 65 73 74 6e 61 6d 65 20 61 72 67 73 7d   {testname args}
9ff0: 20 7b 0a 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72   {..  set ::ioer
a000: 72 6f 70 74 73 28 2d 73 74 61 72 74 29 20 31 0a  ropts(-start) 1.
a010: 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74    set ::ioerropt
a020: 73 28 2d 63 6b 73 75 6d 29 20 30 0a 20 20 73 65  s(-cksum) 0.  se
a030: 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 65  t ::ioerropts(-e
a040: 72 63 29 20 30 0a 20 20 73 65 74 20 3a 3a 69 6f  rc) 0.  set ::io
a050: 65 72 72 6f 70 74 73 28 2d 63 6f 75 6e 74 29 20  erropts(-count) 
a060: 31 30 30 30 30 30 30 30 30 0a 20 20 73 65 74 20  100000000.  set 
a070: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 70 65 72  ::ioerropts(-per
a080: 73 69 73 74 29 20 31 0a 20 20 73 65 74 20 3a 3a  sist) 1.  set ::
a090: 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 72 65 66  ioerropts(-ckref
a0a0: 63 6f 75 6e 74 29 20 30 0a 20 20 73 65 74 20 3a  count) 0.  set :
a0b0: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 72 65 73 74  :ioerropts(-rest
a0c0: 6f 72 65 70 72 6e 67 29 20 31 0a 20 20 61 72 72  oreprng) 1.  arr
a0d0: 61 79 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70  ay set ::ioerrop
a0e0: 74 73 20 24 61 72 67 73 0a 0a 20 20 23 20 54 45  ts $args..  # TE
a0f0: 4d 50 4f 52 41 52 59 3a 20 46 6f 72 20 33 2e 35  MPORARY: For 3.5
a100: 2e 39 2c 20 64 69 73 61 62 6c 65 20 74 65 73 74  .9, disable test
a110: 69 6e 67 20 6f 66 20 65 78 74 65 6e 64 65 64 20  ing of extended 
a120: 72 65 73 75 6c 74 20 63 6f 64 65 73 2e 20 54 68  result codes. Th
a130: 65 72 65 20 61 72 65 0a 20 20 23 20 61 20 63 6f  ere are.  # a co
a140: 75 70 6c 65 20 6f 66 20 6f 62 73 63 75 72 65 20  uple of obscure 
a150: 49 4f 20 65 72 72 6f 72 73 20 74 68 61 74 20 64  IO errors that d
a160: 6f 20 6e 6f 74 20 72 65 74 75 72 6e 20 74 68 65  o not return the
a170: 6d 2e 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 72  m..  set ::ioerr
a180: 6f 70 74 73 28 2d 65 72 63 29 20 30 0a 0a 20 20  opts(-erc) 0..  
a190: 23 20 43 72 65 61 74 65 20 61 20 73 69 6e 67 6c  # Create a singl
a1a0: 65 20 54 43 4c 20 73 63 72 69 70 74 20 66 72 6f  e TCL script fro
a1b0: 6d 20 74 68 65 20 54 43 4c 20 61 6e 64 20 53 51  m the TCL and SQ
a1c0: 4c 20 73 70 65 63 69 66 69 65 64 0a 20 20 23 20  L specified.  # 
a1d0: 61 73 20 74 68 65 20 62 6f 64 79 20 6f 66 20 74  as the body of t
a1e0: 68 65 20 74 65 73 74 2e 0a 20 20 73 65 74 20 3a  he test..  set :
a1f0: 3a 69 6f 65 72 72 6f 72 62 6f 64 79 20 7b 7d 0a  :ioerrorbody {}.
a200: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73    if {[info exis
a210: 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d  ts ::ioerropts(-
a220: 74 63 6c 62 6f 64 79 29 5d 7d 20 7b 0a 20 20 20  tclbody)]} {.   
a230: 20 61 70 70 65 6e 64 20 3a 3a 69 6f 65 72 72 6f   append ::ioerro
a240: 72 62 6f 64 79 20 22 24 3a 3a 69 6f 65 72 72 6f  rbody "$::ioerro
a250: 70 74 73 28 2d 74 63 6c 62 6f 64 79 29 5c 6e 22  pts(-tclbody)\n"
a260: 0a 20 20 7d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f  .  }.  if {[info
a270: 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f   exists ::ioerro
a280: 70 74 73 28 2d 73 71 6c 62 6f 64 79 29 5d 7d 20  pts(-sqlbody)]} 
a290: 7b 0a 20 20 20 20 61 70 70 65 6e 64 20 3a 3a 69  {.    append ::i
a2a0: 6f 65 72 72 6f 72 62 6f 64 79 20 22 64 62 20 65  oerrorbody "db e
a2b0: 76 61 6c 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74  val {$::ioerropt
a2c0: 73 28 2d 73 71 6c 62 6f 64 79 29 7d 22 0a 20 20  s(-sqlbody)}".  
a2d0: 7d 0a 0a 20 20 73 61 76 65 5f 70 72 6e 67 5f 73  }..  save_prng_s
a2e0: 74 61 74 65 0a 20 20 69 66 20 7b 24 3a 3a 69 6f  tate.  if {$::io
a2f0: 65 72 72 6f 70 74 73 28 2d 63 6b 73 75 6d 29 7d  erropts(-cksum)}
a300: 20 7b 0a 20 20 20 20 72 75 6e 5f 69 6f 65 72 72   {.    run_ioerr
a310: 5f 70 72 65 70 0a 20 20 20 20 65 76 61 6c 20 24  _prep.    eval $
a320: 3a 3a 69 6f 65 72 72 6f 72 62 6f 64 79 0a 20 20  ::ioerrorbody.  
a330: 20 20 73 65 74 20 3a 3a 67 6f 6f 64 63 6b 73 75    set ::goodcksu
a340: 6d 20 5b 63 6b 73 75 6d 5d 0a 20 20 7d 0a 0a 20  m [cksum].  }.. 
a350: 20 73 65 74 20 3a 3a 67 6f 20 31 0a 20 20 23 72   set ::go 1.  #r
a360: 65 73 65 74 5f 70 72 6e 67 5f 73 74 61 74 65 0a  eset_prng_state.
a370: 20 20 66 6f 72 20 7b 73 65 74 20 6e 20 24 3a 3a    for {set n $::
a380: 69 6f 65 72 72 6f 70 74 73 28 2d 73 74 61 72 74  ioerropts(-start
a390: 29 7d 20 7b 24 3a 3a 67 6f 7d 20 7b 69 6e 63 72  )} {$::go} {incr
a3a0: 20 6e 7d 20 7b 0a 20 20 20 20 73 65 74 20 3a 3a   n} {.    set ::
a3b0: 54 4e 20 24 6e 0a 20 20 20 20 69 6e 63 72 20 3a  TN $n.    incr :
a3c0: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6f 75 6e  :ioerropts(-coun
a3d0: 74 29 20 2d 31 0a 20 20 20 20 69 66 20 7b 24 3a  t) -1.    if {$:
a3e0: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6f 75 6e  :ioerropts(-coun
a3f0: 74 29 3c 30 7d 20 62 72 65 61 6b 0a 0a 20 20 20  t)<0} break..   
a400: 20 23 20 53 6b 69 70 20 74 68 69 73 20 49 4f 20   # Skip this IO 
a410: 65 72 72 6f 72 20 69 66 20 69 74 20 77 61 73 20  error if it was 
a420: 73 70 65 63 69 66 69 65 64 20 77 69 74 68 20 74  specified with t
a430: 68 65 20 22 2d 65 78 63 6c 75 64 65 22 20 6f 70  he "-exclude" op
a440: 74 69 6f 6e 2e 0a 20 20 20 20 69 66 20 7b 5b 69  tion..    if {[i
a450: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f 65  nfo exists ::ioe
a460: 72 72 6f 70 74 73 28 2d 65 78 63 6c 75 64 65 29  rropts(-exclude)
a470: 5d 7d 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 5b  ]} {.      if {[
a480: 6c 73 65 61 72 63 68 20 24 3a 3a 69 6f 65 72 72  lsearch $::ioerr
a490: 6f 70 74 73 28 2d 65 78 63 6c 75 64 65 29 20 24  opts(-exclude) $
a4a0: 6e 5d 21 3d 2d 31 7d 20 63 6f 6e 74 69 6e 75 65  n]!=-1} continue
a4b0: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 24  .    }.    if {$
a4c0: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 72 65 73  ::ioerropts(-res
a4d0: 74 6f 72 65 70 72 6e 67 29 7d 20 7b 0a 20 20 20  toreprng)} {.   
a4e0: 20 20 20 72 65 73 74 6f 72 65 5f 70 72 6e 67 5f     restore_prng_
a4f0: 73 74 61 74 65 0a 20 20 20 20 7d 0a 0a 20 20 20  state.    }..   
a500: 20 23 20 44 65 6c 65 74 65 20 74 68 65 20 66 69   # Delete the fi
a510: 6c 65 73 20 74 65 73 74 2e 64 62 20 61 6e 64 20  les test.db and 
a520: 74 65 73 74 32 2e 64 62 2c 20 74 68 65 6e 20 65  test2.db, then e
a530: 78 65 63 75 74 65 20 74 68 65 20 54 43 4c 20 61  xecute the TCL a
a540: 6e 64 0a 20 20 20 20 23 20 53 51 4c 20 28 69 6e  nd.    # SQL (in
a550: 20 74 68 61 74 20 6f 72 64 65 72 29 20 74 6f 20   that order) to 
a560: 70 72 65 70 61 72 65 20 66 6f 72 20 74 68 65 20  prepare for the 
a570: 74 65 73 74 20 63 61 73 65 2e 0a 20 20 20 20 64  test case..    d
a580: 6f 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65  o_test $testname
a590: 2e 24 6e 2e 31 20 7b 0a 20 20 20 20 20 20 72 75  .$n.1 {.      ru
a5a0: 6e 5f 69 6f 65 72 72 5f 70 72 65 70 0a 20 20 20  n_ioerr_prep.   
a5b0: 20 7d 20 7b 30 7d 0a 0a 20 20 20 20 23 20 52 65   } {0}..    # Re
a5c0: 61 64 20 74 68 65 20 27 63 68 65 63 6b 73 75 6d  ad the 'checksum
a5d0: 27 20 6f 66 20 74 68 65 20 64 61 74 61 62 61 73  ' of the databas
a5e0: 65 2e 0a 20 20 20 20 69 66 20 7b 24 3a 3a 69 6f  e..    if {$::io
a5f0: 65 72 72 6f 70 74 73 28 2d 63 6b 73 75 6d 29 7d  erropts(-cksum)}
a600: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 63   {.      set ::c
a610: 68 65 63 6b 73 75 6d 20 5b 63 6b 73 75 6d 5d 0a  hecksum [cksum].
a620: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 53 65 74      }..    # Set
a630: 20 74 68 65 20 4e 74 68 20 49 4f 20 65 72 72 6f   the Nth IO erro
a640: 72 20 74 6f 20 66 61 69 6c 2e 0a 20 20 20 20 64  r to fail..    d
a650: 6f 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65  o_test $testname
a660: 2e 24 6e 2e 32 20 5b 73 75 62 73 74 20 7b 0a 20  .$n.2 [subst {. 
a670: 20 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74       set ::sqlit
a680: 65 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 72 73 69  e_io_error_persi
a690: 73 74 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28  st $::ioerropts(
a6a0: 2d 70 65 72 73 69 73 74 29 0a 20 20 20 20 20 20  -persist).      
a6b0: 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f  set ::sqlite_io_
a6c0: 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 24 6e  error_pending $n
a6d0: 0a 20 20 20 20 7d 5d 20 24 6e 0a 0a 20 20 20 20  .    }] $n..    
a6e0: 23 20 45 78 65 63 75 74 65 20 74 68 65 20 54 43  # Execute the TC
a6f0: 4c 20 73 63 72 69 70 74 20 63 72 65 61 74 65 64  L script created
a700: 20 66 6f 72 20 74 68 65 20 62 6f 64 79 20 6f 66   for the body of
a710: 20 74 68 69 73 20 74 65 73 74 2e 20 49 66 0a 20   this test. If. 
a720: 20 20 20 23 20 61 74 20 6c 65 61 73 74 20 4e 20     # at least N 
a730: 49 4f 20 6f 70 65 72 61 74 69 6f 6e 73 20 70 65  IO operations pe
a740: 72 66 6f 72 6d 65 64 20 62 79 20 53 51 4c 69 74  rformed by SQLit
a750: 65 20 61 73 20 61 20 72 65 73 75 6c 74 20 6f 66  e as a result of
a760: 0a 20 20 20 20 23 20 74 68 65 20 73 63 72 69 70  .    # the scrip
a770: 74 2c 20 74 68 65 20 4e 74 68 20 77 69 6c 6c 20  t, the Nth will 
a780: 66 61 69 6c 2e 0a 20 20 20 20 64 6f 5f 74 65 73  fail..    do_tes
a790: 74 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e 2e 33  t $testname.$n.3
a7a0: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 73   {.      set ::s
a7b0: 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68  qlite_io_error_h
a7c0: 69 74 20 30 0a 20 20 20 20 20 20 73 65 74 20 3a  it 0.      set :
a7d0: 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72  :sqlite_io_error
a7e0: 5f 68 61 72 64 68 69 74 20 30 0a 20 20 20 20 20  _hardhit 0.     
a7f0: 20 73 65 74 20 72 20 5b 63 61 74 63 68 20 24 3a   set r [catch $:
a800: 3a 69 6f 65 72 72 6f 72 62 6f 64 79 20 6d 73 67  :ioerrorbody msg
a810: 5d 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 65 72  ].      set ::er
a820: 72 73 65 65 6e 20 24 72 0a 20 20 20 20 20 20 73  rseen $r.      s
a830: 65 74 20 72 63 20 5b 73 71 6c 69 74 65 33 5f 65  et rc [sqlite3_e
a840: 72 72 63 6f 64 65 20 24 3a 3a 44 42 5d 0a 20 20  rrcode $::DB].  
a850: 20 20 20 20 69 66 20 7b 24 3a 3a 69 6f 65 72 72      if {$::ioerr
a860: 6f 70 74 73 28 2d 65 72 63 29 7d 20 7b 0a 20 20  opts(-erc)} {.  
a870: 20 20 20 20 20 20 23 20 49 66 20 77 65 20 61 72        # If we ar
a880: 65 20 69 6e 20 65 78 74 65 6e 64 65 64 20 72 65  e in extended re
a890: 73 75 6c 74 20 63 6f 64 65 20 6d 6f 64 65 2c 20  sult code mode, 
a8a0: 6d 61 6b 65 20 73 75 72 65 20 61 6c 6c 20 6f 66  make sure all of
a8b0: 20 74 68 65 0a 20 20 20 20 20 20 20 20 23 20 49   the.        # I
a8c0: 4f 45 52 52 73 20 77 65 20 67 65 74 20 62 61 63  OERRs we get bac
a8d0: 6b 20 72 65 61 6c 6c 79 20 64 6f 20 68 61 76 65  k really do have
a8e0: 20 74 68 65 69 72 20 65 78 74 65 6e 64 65 64 20   their extended 
a8f0: 63 6f 64 65 20 76 61 6c 75 65 73 2e 0a 20 20 20  code values..   
a900: 20 20 20 20 20 23 20 49 66 20 61 6e 20 65 78 74       # If an ext
a910: 65 6e 64 65 64 20 72 65 73 75 6c 74 20 63 6f 64  ended result cod
a920: 65 20 69 73 20 72 65 74 75 72 6e 65 64 2c 20 74  e is returned, t
a930: 68 65 20 73 71 6c 69 74 65 33 5f 65 72 72 63 6f  he sqlite3_errco
a940: 64 65 0a 20 20 20 20 20 20 20 20 23 20 54 43 4c  de.        # TCL
a950: 63 6f 6d 6d 61 6e 64 20 77 69 6c 6c 20 72 65 74  command will ret
a960: 75 72 6e 20 61 20 73 74 72 69 6e 67 20 6f 66 20  urn a string of 
a970: 74 68 65 20 66 6f 72 6d 3a 20 20 53 51 4c 49 54  the form:  SQLIT
a980: 45 5f 49 4f 45 52 52 2b 6e 6e 6e 6e 0a 20 20 20  E_IOERR+nnnn.   
a990: 20 20 20 20 20 23 20 77 68 65 72 65 20 6e 6e 6e       # where nnn
a9a0: 6e 20 69 73 20 61 20 6e 75 6d 62 65 72 0a 20 20  n is a number.  
a9b0: 20 20 20 20 20 20 69 66 20 7b 5b 72 65 67 65 78        if {[regex
a9c0: 70 20 7b 5e 53 51 4c 49 54 45 5f 49 4f 45 52 52  p {^SQLITE_IOERR
a9d0: 7d 20 24 72 63 5d 20 26 26 20 21 5b 72 65 67 65  } $rc] && ![rege
a9e0: 78 70 20 7b 49 4f 45 52 52 5c 2b 5c 64 7d 20 24  xp {IOERR\+\d} $
a9f0: 72 63 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 20  rc]} {.         
aa00: 20 72 65 74 75 72 6e 20 24 72 63 0a 20 20 20 20   return $rc.    
aa10: 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 20 65 6c      }.      } el
aa20: 73 65 20 7b 0a 20 20 20 20 20 20 20 20 23 20 49  se {.        # I
aa30: 66 20 77 65 20 61 72 65 20 6e 6f 74 20 69 6e 20  f we are not in 
aa40: 65 78 74 65 6e 64 65 64 20 72 65 73 75 6c 74 20  extended result 
aa50: 63 6f 64 65 20 6d 6f 64 65 2c 20 6d 61 6b 65 20  code mode, make 
aa60: 73 75 72 65 20 6e 6f 0a 20 20 20 20 20 20 20 20  sure no.        
aa70: 23 20 65 78 74 65 6e 64 65 64 20 65 72 72 6f 72  # extended error
aa80: 20 63 6f 64 65 73 20 61 72 65 20 72 65 74 75 72   codes are retur
aa90: 6e 65 64 2e 0a 20 20 20 20 20 20 20 20 69 66 20  ned..        if 
aaa0: 7b 5b 72 65 67 65 78 70 20 7b 5c 2b 5c 64 7d 20  {[regexp {\+\d} 
aab0: 24 72 63 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20  $rc]} {.        
aac0: 20 20 72 65 74 75 72 6e 20 24 72 63 0a 20 20 20    return $rc.   
aad0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20       }.      }. 
aae0: 20 20 20 20 20 23 20 54 68 65 20 74 65 73 74 20       # The test 
aaf0: 72 65 70 65 61 74 73 20 61 73 20 6c 6f 6e 67 20  repeats as long 
ab00: 61 73 20 24 3a 3a 67 6f 20 69 73 20 6e 6f 6e 2d  as $::go is non-
ab10: 7a 65 72 6f 2e 20 20 24 3a 3a 67 6f 20 73 74 61  zero.  $::go sta
ab20: 72 74 73 20 6f 75 74 0a 20 20 20 20 20 20 23 20  rts out.      # 
ab30: 61 73 20 31 2e 20 20 57 68 65 6e 20 61 20 74 65  as 1.  When a te
ab40: 73 74 20 72 75 6e 73 20 74 6f 20 63 6f 6d 70 6c  st runs to compl
ab50: 65 74 69 6f 6e 20 77 69 74 68 6f 75 74 20 68 69  etion without hi
ab60: 74 74 69 6e 67 20 61 6e 20 49 2f 4f 0a 20 20 20  tting an I/O.   
ab70: 20 20 20 23 20 65 72 72 6f 72 2c 20 74 68 61 74     # error, that
ab80: 20 6d 65 61 6e 73 20 74 68 65 72 65 20 69 73 20   means there is 
ab90: 6e 6f 20 70 6f 69 6e 74 20 69 6e 20 63 6f 6e 74  no point in cont
aba0: 69 6e 75 69 6e 67 20 77 69 74 68 20 74 68 69 73  inuing with this
abb0: 20 74 65 73 74 0a 20 20 20 20 20 20 23 20 63 61   test.      # ca
abc0: 73 65 20 73 6f 20 73 65 74 20 24 3a 3a 67 6f 20  se so set $::go 
abd0: 74 6f 20 7a 65 72 6f 2e 0a 20 20 20 20 20 20 23  to zero..      #
abe0: 0a 20 20 20 20 20 20 69 66 20 7b 24 3a 3a 73 71  .      if {$::sq
abf0: 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70 65  lite_io_error_pe
ac00: 6e 64 69 6e 67 3e 30 7d 20 7b 0a 20 20 20 20 20  nding>0} {.     
ac10: 20 20 20 73 65 74 20 3a 3a 67 6f 20 30 0a 20 20     set ::go 0.  
ac20: 20 20 20 20 20 20 73 65 74 20 71 20 30 0a 20 20        set q 0.  
ac30: 20 20 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69        set ::sqli
ac40: 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e 64  te_io_error_pend
ac50: 69 6e 67 20 30 0a 20 20 20 20 20 20 7d 20 65 6c  ing 0.      } el
ac60: 73 65 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74  se {.        set
ac70: 20 71 20 31 0a 20 20 20 20 20 20 7d 0a 0a 20 20   q 1.      }..  
ac80: 20 20 20 20 73 65 74 20 73 20 5b 65 78 70 72 20      set s [expr 
ac90: 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72  $::sqlite_io_err
aca0: 6f 72 5f 68 69 74 3d 3d 30 5d 0a 20 20 20 20 20  or_hit==0].     
acb0: 20 69 66 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 69   if {$::sqlite_i
acc0: 6f 5f 65 72 72 6f 72 5f 68 69 74 3e 24 3a 3a 73  o_error_hit>$::s
acd0: 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68  qlite_io_error_h
ace0: 61 72 64 68 69 74 20 26 26 20 24 72 3d 3d 30 7d  ardhit && $r==0}
acf0: 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 72   {.        set r
ad00: 20 31 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20   1.      }.     
ad10: 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f   set ::sqlite_io
ad20: 5f 65 72 72 6f 72 5f 68 69 74 20 30 0a 0a 20 20  _error_hit 0..  
ad30: 20 20 20 20 23 20 4f 6e 65 20 6f 66 20 74 77 6f      # One of two
ad40: 20 74 68 69 6e 67 73 20 6d 75 73 74 20 68 61 76   things must hav
ad50: 65 20 68 61 70 70 65 6e 65 64 2e 20 65 69 74 68  e happened. eith
ad60: 65 72 0a 20 20 20 20 20 20 23 20 20 20 31 2e 20  er.      #   1. 
ad70: 20 57 65 20 6e 65 76 65 72 20 68 69 74 20 74 68   We never hit th
ad80: 65 20 49 4f 20 65 72 72 6f 72 20 61 6e 64 20 74  e IO error and t
ad90: 68 65 20 53 51 4c 20 72 65 74 75 72 6e 65 64 20  he SQL returned 
ada0: 4f 4b 0a 20 20 20 20 20 20 23 20 20 20 32 2e 20  OK.      #   2. 
adb0: 20 41 6e 20 49 4f 20 65 72 72 6f 72 20 77 61 73   An IO error was
adc0: 20 68 69 74 20 61 6e 64 20 74 68 65 20 53 51 4c   hit and the SQL
add0: 20 66 61 69 6c 65 64 0a 20 20 20 20 20 20 23 0a   failed.      #.
ade0: 20 20 20 20 20 20 23 70 75 74 73 20 22 73 3d 24        #puts "s=$
adf0: 73 20 72 3d 24 72 20 71 3d 24 71 22 0a 20 20 20  s r=$r q=$q".   
ae00: 20 20 20 65 78 70 72 20 7b 20 28 24 73 20 26 26     expr { ($s &&
ae10: 20 21 24 72 20 26 26 20 21 24 71 29 20 7c 7c 20   !$r && !$q) || 
ae20: 28 21 24 73 20 26 26 20 24 72 20 26 26 20 24 71  (!$s && $r && $q
ae30: 29 20 7d 0a 20 20 20 20 7d 20 7b 31 7d 0a 0a 20  ) }.    } {1}.. 
ae40: 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f     set ::sqlite_
ae50: 69 6f 5f 65 72 72 6f 72 5f 68 69 74 20 30 0a 20  io_error_hit 0. 
ae60: 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f     set ::sqlite_
ae70: 69 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67  io_error_pending
ae80: 20 30 0a 0a 20 20 20 20 23 20 43 68 65 63 6b 20   0..    # Check 
ae90: 74 68 61 74 20 6e 6f 20 70 61 67 65 20 72 65 66  that no page ref
aea0: 65 72 65 6e 63 65 73 20 77 65 72 65 20 6c 65 61  erences were lea
aeb0: 6b 65 64 2e 20 54 68 65 72 65 20 73 68 6f 75 6c  ked. There shoul
aec0: 64 20 62 65 0a 20 20 20 20 23 20 61 20 73 69 6e  d be.    # a sin
aed0: 67 6c 65 20 72 65 66 65 72 65 6e 63 65 20 69 66  gle reference if
aee0: 20 74 68 65 72 65 20 69 73 20 73 74 69 6c 6c 20   there is still 
aef0: 61 6e 20 61 63 74 69 76 65 20 74 72 61 6e 73 61  an active transa
af00: 63 74 69 6f 6e 2c 0a 20 20 20 20 23 20 6f 72 20  ction,.    # or 
af10: 7a 65 72 6f 20 6f 74 68 65 72 77 69 73 65 2e 0a  zero otherwise..
af20: 20 20 20 20 23 0a 20 20 20 20 23 20 55 50 44 41      #.    # UPDA
af30: 54 45 3a 20 49 66 20 74 68 65 20 49 4f 20 65 72  TE: If the IO er
af40: 72 6f 72 20 6f 63 63 75 72 73 20 61 66 74 65 72  ror occurs after
af50: 20 61 20 27 42 45 47 49 4e 27 20 62 75 74 20 62   a 'BEGIN' but b
af60: 65 66 6f 72 65 20 61 6e 79 0a 20 20 20 20 23 20  efore any.    # 
af70: 6c 6f 63 6b 73 20 61 72 65 20 65 73 74 61 62 6c  locks are establ
af80: 69 73 68 65 64 20 6f 6e 20 64 61 74 61 62 61 73  ished on databas
af90: 65 20 66 69 6c 65 73 20 28 69 2e 65 2e 20 69 66  e files (i.e. if
afa0: 20 74 68 65 20 65 72 72 6f 72 0a 20 20 20 20 23   the error.    #
afb0: 20 6f 63 63 75 72 73 20 77 68 69 6c 65 20 61 74   occurs while at
afc0: 74 65 6d 70 74 69 6e 67 20 74 6f 20 64 65 74 65  tempting to dete
afd0: 63 74 20 61 20 68 6f 74 2d 6a 6f 75 72 6e 61 6c  ct a hot-journal
afe0: 20 66 69 6c 65 29 2c 20 74 68 65 6e 0a 20 20 20   file), then.   
aff0: 20 23 20 74 68 65 72 65 20 6d 61 79 20 30 20 70   # there may 0 p
b000: 61 67 65 20 72 65 66 65 72 65 6e 63 65 73 20 61  age references a
b010: 6e 64 20 61 6e 20 61 63 74 69 76 65 20 74 72 61  nd an active tra
b020: 6e 73 61 63 74 69 6f 6e 20 61 63 63 6f 72 64 69  nsaction accordi
b030: 6e 67 0a 20 20 20 20 23 20 74 6f 20 5b 73 71 6c  ng.    # to [sql
b040: 69 74 65 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d  ite3_get_autocom
b050: 6d 69 74 5d 2e 0a 20 20 20 20 23 0a 20 20 20 20  mit]..    #.    
b060: 69 66 20 7b 24 3a 3a 67 6f 20 26 26 20 24 3a 3a  if {$::go && $::
b070: 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f  sqlite_io_error_
b080: 68 61 72 64 68 69 74 20 26 26 20 24 3a 3a 69 6f  hardhit && $::io
b090: 65 72 72 6f 70 74 73 28 2d 63 6b 72 65 66 63 6f  erropts(-ckrefco
b0a0: 75 6e 74 29 7d 20 7b 0a 20 20 20 20 20 20 64 6f  unt)} {.      do
b0b0: 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e  _test $testname.
b0c0: 24 6e 2e 34 20 7b 0a 20 20 20 20 20 20 20 20 73  $n.4 {.        s
b0d0: 65 74 20 62 74 20 5b 62 74 72 65 65 5f 66 72 6f  et bt [btree_fro
b0e0: 6d 5f 64 62 20 64 62 5d 0a 20 20 20 20 20 20 20  m_db db].       
b0f0: 20 64 62 5f 65 6e 74 65 72 20 64 62 0a 20 20 20   db_enter db.   
b100: 20 20 20 20 20 61 72 72 61 79 20 73 65 74 20 73       array set s
b110: 74 61 74 73 20 5b 62 74 72 65 65 5f 70 61 67 65  tats [btree_page
b120: 72 5f 73 74 61 74 73 20 24 62 74 5d 0a 20 20 20  r_stats $bt].   
b130: 20 20 20 20 20 64 62 5f 6c 65 61 76 65 20 64 62       db_leave db
b140: 0a 20 20 20 20 20 20 20 20 73 65 74 20 6e 52 65  .        set nRe
b150: 66 20 24 73 74 61 74 73 28 72 65 66 29 0a 20 20  f $stats(ref).  
b160: 20 20 20 20 20 20 65 78 70 72 20 7b 24 6e 52 65        expr {$nRe
b170: 66 20 3d 3d 20 30 20 7c 7c 20 28 5b 73 71 6c 69  f == 0 || ([sqli
b180: 74 65 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d  te3_get_autocomm
b190: 69 74 20 64 62 5d 3d 3d 30 20 26 26 20 24 6e 52  it db]==0 && $nR
b1a0: 65 66 20 3d 3d 20 31 29 7d 0a 20 20 20 20 20 20  ef == 1)}.      
b1b0: 7d 20 7b 31 7d 0a 20 20 20 20 7d 0a 0a 20 20 20  } {1}.    }..   
b1c0: 20 23 20 49 66 20 74 68 65 72 65 20 69 73 20 61   # If there is a
b1d0: 6e 20 6f 70 65 6e 20 64 61 74 61 62 61 73 65 20  n open database 
b1e0: 68 61 6e 64 6c 65 20 61 6e 64 20 6e 6f 20 6f 70  handle and no op
b1f0: 65 6e 20 74 72 61 6e 73 61 63 74 69 6f 6e 2c 0a  en transaction,.
b200: 20 20 20 20 23 20 61 6e 64 20 74 68 65 20 70 61      # and the pa
b210: 67 65 72 20 69 73 20 6e 6f 74 20 72 75 6e 6e 69  ger is not runni
b220: 6e 67 20 69 6e 20 65 78 63 6c 75 73 69 76 65 2d  ng in exclusive-
b230: 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2c 0a 20 20  locking mode,.  
b240: 20 20 23 20 63 68 65 63 6b 20 74 68 61 74 20 74    # check that t
b250: 68 65 20 70 61 67 65 72 20 69 73 20 69 6e 20 22  he pager is in "
b260: 75 6e 6c 6f 63 6b 65 64 22 20 73 74 61 74 65 2e  unlocked" state.
b270: 20 54 68 65 6f 72 65 74 69 63 61 6c 6c 79 2c 0a   Theoretically,.
b280: 20 20 20 20 23 20 69 66 20 61 20 63 61 6c 6c 20      # if a call 
b290: 74 6f 20 78 55 6e 6c 6f 63 6b 28 29 20 66 61 69  to xUnlock() fai
b2a0: 6c 65 64 20 64 75 65 20 74 6f 20 61 6e 20 49 4f  led due to an IO
b2b0: 20 65 72 72 6f 72 20 74 68 65 20 75 6e 64 65 72   error the under
b2c0: 6c 79 69 6e 67 0a 20 20 20 20 23 20 66 69 6c 65  lying.    # file
b2d0: 20 6d 61 79 20 73 74 69 6c 6c 20 62 65 20 6c 6f   may still be lo
b2e0: 63 6b 65 64 2e 0a 20 20 20 20 23 0a 20 20 20 20  cked..    #.    
b2f0: 69 66 63 61 70 61 62 6c 65 20 70 72 61 67 6d 61  ifcapable pragma
b300: 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 20 5b 69   {.      if { [i
b310: 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73 20 64 62 5d  nfo commands db]
b320: 20 6e 65 20 22 22 0a 20 20 20 20 20 20 20 20 26   ne "".        &
b330: 26 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d  & $::ioerropts(-
b340: 63 6b 72 65 66 63 6f 75 6e 74 29 0a 20 20 20 20  ckrefcount).    
b350: 20 20 20 20 26 26 20 5b 64 62 20 6f 6e 65 20 7b      && [db one {
b360: 70 72 61 67 6d 61 20 6c 6f 63 6b 69 6e 67 5f 6d  pragma locking_m
b370: 6f 64 65 7d 5d 20 65 71 20 22 6e 6f 72 6d 61 6c  ode}] eq "normal
b380: 22 0a 20 20 20 20 20 20 20 20 26 26 20 5b 73 71  ".        && [sq
b390: 6c 69 74 65 33 5f 67 65 74 5f 61 75 74 6f 63 6f  lite3_get_autoco
b3a0: 6d 6d 69 74 20 64 62 5d 0a 20 20 20 20 20 20 7d  mmit db].      }
b3b0: 20 7b 0a 20 20 20 20 20 20 20 20 64 6f 5f 74 65   {.        do_te
b3c0: 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e 2e  st $testname.$n.
b3d0: 35 20 7b 0a 20 20 20 20 20 20 20 20 20 20 73 65  5 {.          se
b3e0: 74 20 62 74 20 5b 62 74 72 65 65 5f 66 72 6f 6d  t bt [btree_from
b3f0: 5f 64 62 20 64 62 5d 0a 20 20 20 20 20 20 20 20  _db db].        
b400: 20 20 64 62 5f 65 6e 74 65 72 20 64 62 0a 20 20    db_enter db.  
b410: 20 20 20 20 20 20 20 20 61 72 72 61 79 20 73 65          array se
b420: 74 20 73 74 61 74 73 20 5b 62 74 72 65 65 5f 70  t stats [btree_p
b430: 61 67 65 72 5f 73 74 61 74 73 20 24 62 74 5d 0a  ager_stats $bt].
b440: 20 20 20 20 20 20 20 20 20 20 64 62 5f 6c 65 61            db_lea
b450: 76 65 20 64 62 0a 20 20 20 20 20 20 20 20 20 20  ve db.          
b460: 73 65 74 20 73 74 61 74 73 28 73 74 61 74 65 29  set stats(state)
b470: 0a 20 20 20 20 20 20 20 20 7d 20 30 0a 20 20 20  .        } 0.   
b480: 20 20 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20     }.    }..    
b490: 23 20 49 66 20 61 6e 20 49 4f 20 65 72 72 6f 72  # If an IO error
b4a0: 20 6f 63 63 75 72 72 65 64 2c 20 74 68 65 6e 20   occurred, then 
b4b0: 74 68 65 20 63 68 65 63 6b 73 75 6d 20 6f 66 20  the checksum of 
b4c0: 74 68 65 20 64 61 74 61 62 61 73 65 20 73 68 6f  the database sho
b4d0: 75 6c 64 0a 20 20 20 20 23 20 62 65 20 74 68 65  uld.    # be the
b4e0: 20 73 61 6d 65 20 61 73 20 62 65 66 6f 72 65 20   same as before 
b4f0: 74 68 65 20 73 63 72 69 70 74 20 74 68 61 74 20  the script that 
b500: 63 61 75 73 65 64 20 74 68 65 20 49 4f 20 65 72  caused the IO er
b510: 72 6f 72 20 77 61 73 20 72 75 6e 2e 0a 20 20 20  ror was run..   
b520: 20 23 0a 20 20 20 20 69 66 20 7b 24 3a 3a 67 6f   #.    if {$::go
b530: 20 26 26 20 24 3a 3a 73 71 6c 69 74 65 5f 69 6f   && $::sqlite_io
b540: 5f 65 72 72 6f 72 5f 68 61 72 64 68 69 74 20 26  _error_hardhit &
b550: 26 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d  & $::ioerropts(-
b560: 63 6b 73 75 6d 29 7d 20 7b 0a 20 20 20 20 20 20  cksum)} {.      
b570: 64 6f 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d  do_test $testnam
b580: 65 2e 24 6e 2e 36 20 7b 0a 20 20 20 20 20 20 20  e.$n.6 {.       
b590: 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65   catch {db close
b5a0: 7d 0a 20 20 20 20 20 20 20 20 63 61 74 63 68 20  }.        catch 
b5b0: 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 20 20 20 20  {db2 close}.    
b5c0: 20 20 20 20 73 65 74 20 3a 3a 44 42 20 5b 73 71      set ::DB [sq
b5d0: 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62  lite3 db test.db
b5e0: 3b 20 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63  ; sqlite3_connec
b5f0: 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d  tion_pointer db]
b600: 0a 20 20 20 20 20 20 20 20 73 65 74 20 6e 6f 77  .        set now
b610: 63 6b 73 75 6d 20 5b 63 6b 73 75 6d 5d 0a 20 20  cksum [cksum].  
b620: 20 20 20 20 20 20 73 65 74 20 72 65 73 20 5b 65        set res [e
b630: 78 70 72 20 7b 24 6e 6f 77 63 6b 73 75 6d 3d 3d  xpr {$nowcksum==
b640: 24 3a 3a 63 68 65 63 6b 73 75 6d 20 7c 7c 20 24  $::checksum || $
b650: 6e 6f 77 63 6b 73 75 6d 3d 3d 24 3a 3a 67 6f 6f  nowcksum==$::goo
b660: 64 63 6b 73 75 6d 7d 5d 0a 20 20 20 20 20 20 20  dcksum}].       
b670: 20 69 66 20 7b 24 72 65 73 3d 3d 30 7d 20 7b 0a   if {$res==0} {.
b680: 20 20 20 20 20 20 20 20 20 20 70 75 74 73 20 22            puts "
b690: 6e 6f 77 3d 24 6e 6f 77 63 6b 73 75 6d 22 0a 20  now=$nowcksum". 
b6a0: 20 20 20 20 20 20 20 20 20 70 75 74 73 20 22 74           puts "t
b6b0: 68 65 3d 24 3a 3a 63 68 65 63 6b 73 75 6d 22 0a  he=$::checksum".
b6c0: 20 20 20 20 20 20 20 20 20 20 70 75 74 73 20 22            puts "
b6d0: 66 77 64 3d 24 3a 3a 67 6f 6f 64 63 6b 73 75 6d  fwd=$::goodcksum
b6e0: 22 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  ".        }.    
b6f0: 20 20 20 20 73 65 74 20 72 65 73 0a 20 20 20 20      set res.    
b700: 20 20 7d 20 31 0a 20 20 20 20 7d 0a 0a 20 20 20    } 1.    }..   
b710: 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f   set ::sqlite_io
b720: 5f 65 72 72 6f 72 5f 68 61 72 64 68 69 74 20 30  _error_hardhit 0
b730: 0a 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74  .    set ::sqlit
b740: 65 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69  e_io_error_pendi
b750: 6e 67 20 30 0a 20 20 20 20 69 66 20 7b 5b 69 6e  ng 0.    if {[in
b760: 66 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72  fo exists ::ioer
b770: 72 6f 70 74 73 28 2d 63 6c 65 61 6e 75 70 29 5d  ropts(-cleanup)]
b780: 7d 20 7b 0a 20 20 20 20 20 20 63 61 74 63 68 20  } {.      catch 
b790: 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6c  $::ioerropts(-cl
b7a0: 65 61 6e 75 70 29 0a 20 20 20 20 7d 0a 20 20 7d  eanup).    }.  }
b7b0: 0a 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f  .  set ::sqlite_
b7c0: 69 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67  io_error_pending
b7d0: 20 30 0a 20 20 73 65 74 20 3a 3a 73 71 6c 69 74   0.  set ::sqlit
b7e0: 65 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 72 73 69  e_io_error_persi
b7f0: 73 74 20 30 0a 20 20 75 6e 73 65 74 20 3a 3a 69  st 0.  unset ::i
b800: 6f 65 72 72 6f 70 74 73 0a 7d 0a 0a 23 20 52 65  oerropts.}..# Re
b810: 74 75 72 6e 20 61 20 63 68 65 63 6b 73 75 6d 20  turn a checksum 
b820: 62 61 73 65 64 20 6f 6e 20 74 68 65 20 63 6f 6e  based on the con
b830: 74 65 6e 74 73 20 6f 66 20 74 68 65 20 6d 61 69  tents of the mai
b840: 6e 20 64 61 74 61 62 61 73 65 20 61 73 73 6f 63  n database assoc
b850: 69 61 74 65 64 0a 23 20 77 69 74 68 20 63 6f 6e  iated.# with con
b860: 6e 65 63 74 69 6f 6e 20 24 64 62 0a 23 0a 70 72  nection $db.#.pr
b870: 6f 63 20 63 6b 73 75 6d 20 7b 7b 64 62 20 64 62  oc cksum {{db db
b880: 7d 7d 20 7b 0a 20 20 73 65 74 20 74 78 74 20 5b  }} {.  set txt [
b890: 24 64 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 20  $db eval {.     
b8a0: 20 53 45 4c 45 43 54 20 6e 61 6d 65 2c 20 74 79   SELECT name, ty
b8b0: 70 65 2c 20 73 71 6c 20 46 52 4f 4d 20 73 71 6c  pe, sql FROM sql
b8c0: 69 74 65 5f 6d 61 73 74 65 72 20 6f 72 64 65 72  ite_master order
b8d0: 20 62 79 20 6e 61 6d 65 0a 20 20 7d 5d 5c 6e 0a   by name.  }]\n.
b8e0: 20 20 66 6f 72 65 61 63 68 20 74 62 6c 20 5b 24    foreach tbl [$
b8f0: 64 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 20 20  db eval {.      
b900: 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d  SELECT name FROM
b910: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 57   sqlite_master W
b920: 48 45 52 45 20 74 79 70 65 3d 27 74 61 62 6c 65  HERE type='table
b930: 27 20 6f 72 64 65 72 20 62 79 20 6e 61 6d 65 0a  ' order by name.
b940: 20 20 7d 5d 20 7b 0a 20 20 20 20 61 70 70 65 6e    }] {.    appen
b950: 64 20 74 78 74 20 5b 24 64 62 20 65 76 61 6c 20  d txt [$db eval 
b960: 22 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 24  "SELECT * FROM $
b970: 74 62 6c 22 5d 5c 6e 0a 20 20 7d 0a 20 20 66 6f  tbl"]\n.  }.  fo
b980: 72 65 61 63 68 20 70 72 61 67 20 7b 64 65 66 61  reach prag {defa
b990: 75 6c 74 5f 73 79 6e 63 68 72 6f 6e 6f 75 73 20  ult_synchronous 
b9a0: 64 65 66 61 75 6c 74 5f 63 61 63 68 65 5f 73 69  default_cache_si
b9b0: 7a 65 7d 20 7b 0a 20 20 20 20 61 70 70 65 6e 64  ze} {.    append
b9c0: 20 74 78 74 20 24 70 72 61 67 2d 5b 24 64 62 20   txt $prag-[$db 
b9d0: 65 76 61 6c 20 22 50 52 41 47 4d 41 20 24 70 72  eval "PRAGMA $pr
b9e0: 61 67 22 5d 5c 6e 0a 20 20 7d 0a 20 20 73 65 74  ag"]\n.  }.  set
b9f0: 20 63 6b 73 75 6d 20 5b 73 74 72 69 6e 67 20 6c   cksum [string l
ba00: 65 6e 67 74 68 20 24 74 78 74 5d 2d 5b 6d 64 35  ength $txt]-[md5
ba10: 20 24 74 78 74 5d 0a 20 20 23 20 70 75 74 73 20   $txt].  # puts 
ba20: 24 63 6b 73 75 6d 2d 5b 66 69 6c 65 20 73 69 7a  $cksum-[file siz
ba30: 65 20 74 65 73 74 2e 64 62 5d 0a 20 20 72 65 74  e test.db].  ret
ba40: 75 72 6e 20 24 63 6b 73 75 6d 0a 7d 0a 0a 23 20  urn $cksum.}..# 
ba50: 47 65 6e 65 72 61 74 65 20 61 20 63 68 65 63 6b  Generate a check
ba60: 73 75 6d 20 62 61 73 65 64 20 6f 6e 20 74 68 65  sum based on the
ba70: 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65   contents of the
ba80: 20 6d 61 69 6e 20 61 6e 64 20 74 65 6d 70 20 74   main and temp t
ba90: 61 62 6c 65 73 0a 23 20 64 61 74 61 62 61 73 65  ables.# database
baa0: 20 24 64 62 2e 20 49 66 20 74 68 65 20 63 68 65   $db. If the che
bab0: 63 6b 73 75 6d 20 6f 66 20 74 77 6f 20 64 61 74  cksum of two dat
bac0: 61 62 61 73 65 73 20 69 73 20 74 68 65 20 73 61  abases is the sa
bad0: 6d 65 2c 20 61 6e 64 20 74 68 65 0a 23 20 69 6e  me, and the.# in
bae0: 74 65 67 72 69 74 79 2d 63 68 65 63 6b 20 70 61  tegrity-check pa
baf0: 73 73 65 73 20 66 6f 72 20 62 6f 74 68 2c 20 74  sses for both, t
bb00: 68 65 20 74 77 6f 20 64 61 74 61 62 61 73 65 73  he two databases
bb10: 20 61 72 65 20 69 64 65 6e 74 69 63 61 6c 2e 0a   are identical..
bb20: 23 0a 70 72 6f 63 20 61 6c 6c 63 6b 73 75 6d 20  #.proc allcksum 
bb30: 7b 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 73 65  {{db db}} {.  se
bb40: 74 20 72 65 74 20 5b 6c 69 73 74 5d 0a 20 20 69  t ret [list].  i
bb50: 66 63 61 70 61 62 6c 65 20 74 65 6d 70 64 62 20  fcapable tempdb 
bb60: 7b 0a 20 20 20 20 73 65 74 20 73 71 6c 20 7b 0a  {.    set sql {.
bb70: 20 20 20 20 20 20 53 45 4c 45 43 54 20 6e 61 6d        SELECT nam
bb80: 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61  e FROM sqlite_ma
bb90: 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65 20  ster WHERE type 
bba0: 3d 20 27 74 61 62 6c 65 27 20 55 4e 49 4f 4e 0a  = 'table' UNION.
bbb0: 20 20 20 20 20 20 53 45 4c 45 43 54 20 6e 61 6d        SELECT nam
bbc0: 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 74 65  e FROM sqlite_te
bbd0: 6d 70 5f 6d 61 73 74 65 72 20 57 48 45 52 45 20  mp_master WHERE 
bbe0: 74 79 70 65 20 3d 20 27 74 61 62 6c 65 27 20 55  type = 'table' U
bbf0: 4e 49 4f 4e 0a 20 20 20 20 20 20 53 45 4c 45 43  NION.      SELEC
bc00: 54 20 27 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  T 'sqlite_master
bc10: 27 20 55 4e 49 4f 4e 0a 20 20 20 20 20 20 53 45  ' UNION.      SE
bc20: 4c 45 43 54 20 27 73 71 6c 69 74 65 5f 74 65 6d  LECT 'sqlite_tem
bc30: 70 5f 6d 61 73 74 65 72 27 20 4f 52 44 45 52 20  p_master' ORDER 
bc40: 42 59 20 31 0a 20 20 20 20 7d 0a 20 20 7d 20 65  BY 1.    }.  } e
bc50: 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20 73 71  lse {.    set sq
bc60: 6c 20 7b 0a 20 20 20 20 20 20 53 45 4c 45 43 54  l {.      SELECT
bc70: 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74   name FROM sqlit
bc80: 65 5f 6d 61 73 74 65 72 20 57 48 45 52 45 20 74  e_master WHERE t
bc90: 79 70 65 20 3d 20 27 74 61 62 6c 65 27 20 55 4e  ype = 'table' UN
bca0: 49 4f 4e 0a 20 20 20 20 20 20 53 45 4c 45 43 54  ION.      SELECT
bcb0: 20 27 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 27   'sqlite_master'
bcc0: 20 4f 52 44 45 52 20 42 59 20 31 0a 20 20 20 20   ORDER BY 1.    
bcd0: 7d 0a 20 20 7d 0a 20 20 73 65 74 20 74 62 6c 6c  }.  }.  set tbll
bce0: 69 73 74 20 5b 24 64 62 20 65 76 61 6c 20 24 73  ist [$db eval $s
bcf0: 71 6c 5d 0a 20 20 73 65 74 20 74 78 74 20 7b 7d  ql].  set txt {}
bd00: 0a 20 20 66 6f 72 65 61 63 68 20 74 62 6c 20 24  .  foreach tbl $
bd10: 74 62 6c 6c 69 73 74 20 7b 0a 20 20 20 20 61 70  tbllist {.    ap
bd20: 70 65 6e 64 20 74 78 74 20 5b 24 64 62 20 65 76  pend txt [$db ev
bd30: 61 6c 20 22 53 45 4c 45 43 54 20 2a 20 46 52 4f  al "SELECT * FRO
bd40: 4d 20 24 74 62 6c 22 5d 0a 20 20 7d 0a 20 20 66  M $tbl"].  }.  f
bd50: 6f 72 65 61 63 68 20 70 72 61 67 20 7b 64 65 66  oreach prag {def
bd60: 61 75 6c 74 5f 63 61 63 68 65 5f 73 69 7a 65 7d  ault_cache_size}
bd70: 20 7b 0a 20 20 20 20 61 70 70 65 6e 64 20 74 78   {.    append tx
bd80: 74 20 24 70 72 61 67 2d 5b 24 64 62 20 65 76 61  t $prag-[$db eva
bd90: 6c 20 22 50 52 41 47 4d 41 20 24 70 72 61 67 22  l "PRAGMA $prag"
bda0: 5d 5c 6e 0a 20 20 7d 0a 20 20 23 20 70 75 74 73  ]\n.  }.  # puts
bdb0: 20 74 78 74 3d 24 74 78 74 0a 20 20 72 65 74 75   txt=$txt.  retu
bdc0: 72 6e 20 5b 6d 64 35 20 24 74 78 74 5d 0a 7d 0a  rn [md5 $txt].}.
bdd0: 0a 23 20 47 65 6e 65 72 61 74 65 20 61 20 63 68  .# Generate a ch
bde0: 65 63 6b 73 75 6d 20 62 61 73 65 64 20 6f 6e 20  ecksum based on 
bdf0: 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20  the contents of 
be00: 61 20 73 69 6e 67 6c 65 20 64 61 74 61 62 61 73  a single databas
be10: 65 20 77 69 74 68 0a 23 20 61 20 64 61 74 61 62  e with.# a datab
be20: 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20  ase connection. 
be30: 20 54 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65   The name of the
be40: 20 64 61 74 61 62 61 73 65 20 69 73 20 24 64 62   database is $db
be50: 6e 61 6d 65 2e 0a 23 20 45 78 61 6d 70 6c 65 73  name..# Examples
be60: 20 6f 66 20 24 64 62 6e 61 6d 65 20 61 72 65 20   of $dbname are 
be70: 22 74 65 6d 70 22 20 6f 72 20 22 6d 61 69 6e 22  "temp" or "main"
be80: 2e 0a 23 0a 70 72 6f 63 20 64 62 63 6b 73 75 6d  ..#.proc dbcksum
be90: 20 7b 64 62 20 64 62 6e 61 6d 65 7d 20 7b 0a 20   {db dbname} {. 
bea0: 20 69 66 20 7b 24 64 62 6e 61 6d 65 3d 3d 22 74   if {$dbname=="t
beb0: 65 6d 70 22 7d 20 7b 0a 20 20 20 20 73 65 74 20  emp"} {.    set 
bec0: 6d 61 73 74 65 72 20 73 71 6c 69 74 65 5f 74 65  master sqlite_te
bed0: 6d 70 5f 6d 61 73 74 65 72 0a 20 20 7d 20 65 6c  mp_master.  } el
bee0: 73 65 20 7b 0a 20 20 20 20 73 65 74 20 6d 61 73  se {.    set mas
bef0: 74 65 72 20 24 64 62 6e 61 6d 65 2e 73 71 6c 69  ter $dbname.sqli
bf00: 74 65 5f 6d 61 73 74 65 72 0a 20 20 7d 0a 20 20  te_master.  }.  
bf10: 73 65 74 20 61 6c 6c 74 61 62 20 5b 24 64 62 20  set alltab [$db 
bf20: 65 76 61 6c 20 22 53 45 4c 45 43 54 20 6e 61 6d  eval "SELECT nam
bf30: 65 20 46 52 4f 4d 20 24 6d 61 73 74 65 72 20 57  e FROM $master W
bf40: 48 45 52 45 20 74 79 70 65 3d 27 74 61 62 6c 65  HERE type='table
bf50: 27 22 5d 0a 20 20 73 65 74 20 74 78 74 20 5b 24  '"].  set txt [$
bf60: 64 62 20 65 76 61 6c 20 22 53 45 4c 45 43 54 20  db eval "SELECT 
bf70: 2a 20 46 52 4f 4d 20 24 6d 61 73 74 65 72 22 5d  * FROM $master"]
bf80: 5c 6e 0a 20 20 66 6f 72 65 61 63 68 20 74 61 62  \n.  foreach tab
bf90: 20 24 61 6c 6c 74 61 62 20 7b 0a 20 20 20 20 61   $alltab {.    a
bfa0: 70 70 65 6e 64 20 74 78 74 20 5b 24 64 62 20 65  ppend txt [$db e
bfb0: 76 61 6c 20 22 53 45 4c 45 43 54 20 2a 20 46 52  val "SELECT * FR
bfc0: 4f 4d 20 24 64 62 6e 61 6d 65 2e 24 74 61 62 22  OM $dbname.$tab"
bfd0: 5d 5c 6e 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e  ]\n.  }.  return
bfe0: 20 5b 6d 64 35 20 24 74 78 74 5d 0a 7d 0a 0a 70   [md5 $txt].}..p
bff0: 72 6f 63 20 6d 65 6d 64 65 62 75 67 5f 6c 6f 67  roc memdebug_log
c000: 5f 73 71 6c 20 7b 7b 66 69 6c 65 6e 61 6d 65 20  _sql {{filename 
c010: 6d 61 6c 6c 6f 63 73 2e 73 71 6c 7d 7d 20 7b 0a  mallocs.sql}} {.
c020: 0a 20 20 73 65 74 20 64 61 74 61 20 5b 73 71 6c  .  set data [sql
c030: 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f  ite3_memdebug_lo
c040: 67 20 64 75 6d 70 5d 0a 20 20 73 65 74 20 6e 46  g dump].  set nF
c050: 72 61 6d 65 20 5b 65 78 70 72 20 5b 6c 6c 65 6e  rame [expr [llen
c060: 67 74 68 20 5b 6c 69 6e 64 65 78 20 24 64 61 74  gth [lindex $dat
c070: 61 20 30 5d 5d 2d 32 5d 0a 20 20 69 66 20 7b 24  a 0]]-2].  if {$
c080: 6e 46 72 61 6d 65 20 3c 20 30 7d 20 7b 20 72 65  nFrame < 0} { re
c090: 74 75 72 6e 20 22 22 20 7d 0a 0a 20 20 73 65 74  turn "" }..  set
c0a0: 20 64 61 74 61 62 61 73 65 20 74 65 6d 70 0a 0a   database temp..
c0b0: 20 20 73 65 74 20 74 62 6c 20 22 43 52 45 41 54    set tbl "CREAT
c0c0: 45 20 54 41 42 4c 45 20 24 7b 64 61 74 61 62 61  E TABLE ${databa
c0d0: 73 65 7d 2e 6d 61 6c 6c 6f 63 28 7a 54 65 73 74  se}.malloc(zTest
c0e0: 2c 20 6e 43 61 6c 6c 2c 20 6e 42 79 74 65 2c 20  , nCall, nByte, 
c0f0: 6c 53 74 61 63 6b 29 3b 22 0a 0a 20 20 73 65 74  lStack);"..  set
c100: 20 73 71 6c 20 22 22 0a 20 20 66 6f 72 65 61 63   sql "".  foreac
c110: 68 20 65 20 24 64 61 74 61 20 7b 0a 20 20 20 20  h e $data {.    
c120: 73 65 74 20 6e 43 61 6c 6c 20 5b 6c 69 6e 64 65  set nCall [linde
c130: 78 20 24 65 20 30 5d 0a 20 20 20 20 73 65 74 20  x $e 0].    set 
c140: 6e 42 79 74 65 20 5b 6c 69 6e 64 65 78 20 24 65  nByte [lindex $e
c150: 20 31 5d 0a 20 20 20 20 73 65 74 20 6c 53 74 61   1].    set lSta
c160: 63 6b 20 5b 6c 72 61 6e 67 65 20 24 65 20 32 20  ck [lrange $e 2 
c170: 65 6e 64 5d 0a 20 20 20 20 61 70 70 65 6e 64 20  end].    append 
c180: 73 71 6c 20 22 49 4e 53 45 52 54 20 49 4e 54 4f  sql "INSERT INTO
c190: 20 24 7b 64 61 74 61 62 61 73 65 7d 2e 6d 61 6c   ${database}.mal
c1a0: 6c 6f 63 20 56 41 4c 55 45 53 22 0a 20 20 20 20  loc VALUES".    
c1b0: 61 70 70 65 6e 64 20 73 71 6c 20 22 28 27 74 65  append sql "('te
c1c0: 73 74 27 2c 20 24 6e 43 61 6c 6c 2c 20 24 6e 42  st', $nCall, $nB
c1d0: 79 74 65 2c 20 27 24 6c 53 74 61 63 6b 27 29 3b  yte, '$lStack');
c1e0: 5c 6e 22 0a 20 20 20 20 66 6f 72 65 61 63 68 20  \n".    foreach 
c1f0: 66 20 24 6c 53 74 61 63 6b 20 7b 0a 20 20 20 20  f $lStack {.    
c200: 20 20 73 65 74 20 66 72 61 6d 65 73 28 24 66 29    set frames($f)
c210: 20 31 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20   1.    }.  }..  
c220: 73 65 74 20 74 62 6c 32 20 22 43 52 45 41 54 45  set tbl2 "CREATE
c230: 20 54 41 42 4c 45 20 24 7b 64 61 74 61 62 61 73   TABLE ${databas
c240: 65 7d 2e 66 72 61 6d 65 28 66 72 61 6d 65 20 49  e}.frame(frame I
c250: 4e 54 45 47 45 52 20 50 52 49 4d 41 52 59 20 4b  NTEGER PRIMARY K
c260: 45 59 2c 20 6c 69 6e 65 29 3b 5c 6e 22 0a 20 20  EY, line);\n".  
c270: 73 65 74 20 74 62 6c 33 20 22 43 52 45 41 54 45  set tbl3 "CREATE
c280: 20 54 41 42 4c 45 20 24 7b 64 61 74 61 62 61 73   TABLE ${databas
c290: 65 7d 2e 66 69 6c 65 28 6e 61 6d 65 20 50 52 49  e}.file(name PRI
c2a0: 4d 41 52 59 20 4b 45 59 2c 20 63 6f 6e 74 65 6e  MARY KEY, conten
c2b0: 74 29 3b 5c 6e 22 0a 0a 20 20 66 6f 72 65 61 63  t);\n"..  foreac
c2c0: 68 20 66 20 5b 61 72 72 61 79 20 6e 61 6d 65 73  h f [array names
c2d0: 20 66 72 61 6d 65 73 5d 20 7b 0a 20 20 20 20 73   frames] {.    s
c2e0: 65 74 20 61 64 64 72 20 5b 66 6f 72 6d 61 74 20  et addr [format 
c2f0: 25 78 20 24 66 5d 0a 20 20 20 20 73 65 74 20 63  %x $f].    set c
c300: 6d 64 20 22 61 64 64 72 32 6c 69 6e 65 20 2d 65  md "addr2line -e
c310: 20 5b 69 6e 66 6f 20 6e 61 6d 65 6f 66 65 78 65   [info nameofexe
c320: 63 5d 20 24 61 64 64 72 22 0a 20 20 20 20 73 65  c] $addr".    se
c330: 74 20 6c 69 6e 65 20 5b 65 76 61 6c 20 65 78 65  t line [eval exe
c340: 63 20 24 63 6d 64 5d 0a 20 20 20 20 61 70 70 65  c $cmd].    appe
c350: 6e 64 20 73 71 6c 20 22 49 4e 53 45 52 54 20 49  nd sql "INSERT I
c360: 4e 54 4f 20 24 7b 64 61 74 61 62 61 73 65 7d 2e  NTO ${database}.
c370: 66 72 61 6d 65 20 56 41 4c 55 45 53 28 24 66 2c  frame VALUES($f,
c380: 20 27 24 6c 69 6e 65 27 29 3b 5c 6e 22 0a 0a 20   '$line');\n".. 
c390: 20 20 20 73 65 74 20 66 69 6c 65 20 5b 6c 69 6e     set file [lin
c3a0: 64 65 78 20 5b 73 70 6c 69 74 20 24 6c 69 6e 65  dex [split $line
c3b0: 20 3a 5d 20 30 5d 0a 20 20 20 20 73 65 74 20 66   :] 0].    set f
c3c0: 69 6c 65 73 28 24 66 69 6c 65 29 20 31 0a 20 20  iles($file) 1.  
c3d0: 7d 0a 0a 20 20 66 6f 72 65 61 63 68 20 66 20 5b  }..  foreach f [
c3e0: 61 72 72 61 79 20 6e 61 6d 65 73 20 66 69 6c 65  array names file
c3f0: 73 5d 20 7b 0a 20 20 20 20 73 65 74 20 63 6f 6e  s] {.    set con
c400: 74 65 6e 74 73 20 22 22 0a 20 20 20 20 63 61 74  tents "".    cat
c410: 63 68 20 7b 0a 20 20 20 20 20 20 73 65 74 20 66  ch {.      set f
c420: 64 20 5b 6f 70 65 6e 20 24 66 5d 0a 20 20 20 20  d [open $f].    
c430: 20 20 73 65 74 20 63 6f 6e 74 65 6e 74 73 20 5b    set contents [
c440: 72 65 61 64 20 24 66 64 5d 0a 20 20 20 20 20 20  read $fd].      
c450: 63 6c 6f 73 65 20 24 66 64 0a 20 20 20 20 7d 0a  close $fd.    }.
c460: 20 20 20 20 73 65 74 20 63 6f 6e 74 65 6e 74 73      set contents
c470: 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 7b 27 20   [string map {' 
c480: 27 27 7d 20 24 63 6f 6e 74 65 6e 74 73 5d 0a 20  ''} $contents]. 
c490: 20 20 20 61 70 70 65 6e 64 20 73 71 6c 20 22 49     append sql "I
c4a0: 4e 53 45 52 54 20 49 4e 54 4f 20 24 7b 64 61 74  NSERT INTO ${dat
c4b0: 61 62 61 73 65 7d 2e 66 69 6c 65 20 56 41 4c 55  abase}.file VALU
c4c0: 45 53 28 27 24 66 27 2c 20 27 24 63 6f 6e 74 65  ES('$f', '$conte
c4d0: 6e 74 73 27 29 3b 5c 6e 22 0a 20 20 7d 0a 0a 20  nts');\n".  }.. 
c4e0: 20 73 65 74 20 66 64 20 5b 6f 70 65 6e 20 24 66   set fd [open $f
c4f0: 69 6c 65 6e 61 6d 65 20 77 5d 0a 20 20 70 75 74  ilename w].  put
c500: 73 20 24 66 64 20 22 42 45 47 49 4e 3b 20 24 7b  s $fd "BEGIN; ${
c510: 74 62 6c 7d 24 7b 74 62 6c 32 7d 24 7b 74 62 6c  tbl}${tbl2}${tbl
c520: 33 7d 24 7b 73 71 6c 7d 20 3b 20 43 4f 4d 4d 49  3}${sql} ; COMMI
c530: 54 3b 22 0a 20 20 63 6c 6f 73 65 20 24 66 64 0a  T;".  close $fd.
c540: 7d 0a 0a 23 20 44 72 6f 70 20 61 6c 6c 20 74 61  }..# Drop all ta
c550: 62 6c 65 73 20 69 6e 20 64 61 74 61 62 61 73 65  bles in database
c560: 20 5b 64 62 5d 0a 70 72 6f 63 20 64 72 6f 70 5f   [db].proc drop_
c570: 61 6c 6c 5f 74 61 62 6c 65 73 20 7b 7b 64 62 20  all_tables {{db 
c580: 64 62 7d 7d 20 7b 0a 20 20 69 66 63 61 70 61 62  db}} {.  ifcapab
c590: 6c 65 20 74 72 69 67 67 65 72 26 26 66 6f 72 65  le trigger&&fore
c5a0: 69 67 6e 6b 65 79 20 7b 0a 20 20 20 20 73 65 74  ignkey {.    set
c5b0: 20 70 6b 20 5b 24 64 62 20 6f 6e 65 20 22 50 52   pk [$db one "PR
c5c0: 41 47 4d 41 20 66 6f 72 65 69 67 6e 5f 6b 65 79  AGMA foreign_key
c5d0: 73 22 5d 0a 20 20 20 20 24 64 62 20 65 76 61 6c  s"].    $db eval
c5e0: 20 22 50 52 41 47 4d 41 20 66 6f 72 65 69 67 6e   "PRAGMA foreign
c5f0: 5f 6b 65 79 73 20 3d 20 4f 46 46 22 0a 20 20 7d  _keys = OFF".  }
c600: 0a 20 20 66 6f 72 65 61 63 68 20 7b 69 64 78 20  .  foreach {idx 
c610: 6e 61 6d 65 20 66 69 6c 65 7d 20 5b 64 62 20 65  name file} [db e
c620: 76 61 6c 20 7b 50 52 41 47 4d 41 20 64 61 74 61  val {PRAGMA data
c630: 62 61 73 65 5f 6c 69 73 74 7d 5d 20 7b 0a 20 20  base_list}] {.  
c640: 20 20 69 66 20 7b 24 69 64 78 3d 3d 31 7d 20 7b    if {$idx==1} {
c650: 0a 20 20 20 20 20 20 73 65 74 20 6d 61 73 74 65  .      set maste
c660: 72 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61  r sqlite_temp_ma
c670: 73 74 65 72 0a 20 20 20 20 7d 20 65 6c 73 65 20  ster.    } else 
c680: 7b 0a 20 20 20 20 20 20 73 65 74 20 6d 61 73 74  {.      set mast
c690: 65 72 20 24 6e 61 6d 65 2e 73 71 6c 69 74 65 5f  er $name.sqlite_
c6a0: 6d 61 73 74 65 72 0a 20 20 20 20 7d 0a 20 20 20  master.    }.   
c6b0: 20 66 6f 72 65 61 63 68 20 7b 74 20 74 79 70 65   foreach {t type
c6c0: 7d 20 5b 24 64 62 20 65 76 61 6c 20 22 0a 20 20  } [$db eval ".  
c6d0: 20 20 20 20 53 45 4c 45 43 54 20 6e 61 6d 65 2c      SELECT name,
c6e0: 20 74 79 70 65 20 46 52 4f 4d 20 24 6d 61 73 74   type FROM $mast
c6f0: 65 72 0a 20 20 20 20 20 20 57 48 45 52 45 20 74  er.      WHERE t
c700: 79 70 65 20 49 4e 28 27 74 61 62 6c 65 27 2c 20  ype IN('table', 
c710: 27 76 69 65 77 27 29 20 41 4e 44 20 6e 61 6d 65  'view') AND name
c720: 20 4e 4f 54 20 4c 49 4b 45 20 27 73 71 6c 69 74   NOT LIKE 'sqlit
c730: 65 58 5f 25 27 20 45 53 43 41 50 45 20 27 58 27  eX_%' ESCAPE 'X'
c740: 0a 20 20 20 20 22 5d 20 7b 0a 20 20 20 20 20 20  .    "] {.      
c750: 24 64 62 20 65 76 61 6c 20 22 44 52 4f 50 20 24  $db eval "DROP $
c760: 74 79 70 65 20 5c 22 24 74 5c 22 22 0a 20 20 20  type \"$t\"".   
c770: 20 7d 0a 20 20 7d 0a 20 20 69 66 63 61 70 61 62   }.  }.  ifcapab
c780: 6c 65 20 74 72 69 67 67 65 72 26 26 66 6f 72 65  le trigger&&fore
c790: 69 67 6e 6b 65 79 20 7b 0a 20 20 20 20 24 64 62  ignkey {.    $db
c7a0: 20 65 76 61 6c 20 22 50 52 41 47 4d 41 20 66 6f   eval "PRAGMA fo
c7b0: 72 65 69 67 6e 5f 6b 65 79 73 20 3d 20 24 70 6b  reign_keys = $pk
c7c0: 22 0a 20 20 7d 0a 7d 0a 0a 23 2d 2d 2d 2d 2d 2d  ".  }.}..#------
c7d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c7e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c7f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c810: 2d 2d 2d 0a 23 20 49 66 20 61 20 74 65 73 74 20  ---.# If a test 
c820: 73 63 72 69 70 74 20 69 73 20 65 78 65 63 75 74  script is execut
c830: 65 64 20 77 69 74 68 20 67 6c 6f 62 61 6c 20 76  ed with global v
c840: 61 72 69 61 62 6c 65 20 24 3a 3a 47 28 70 65 72  ariable $::G(per
c850: 6d 3a 6e 61 6d 65 29 20 73 65 74 20 74 6f 0a 23  m:name) set to.#
c860: 20 22 77 61 6c 22 2c 20 74 68 65 6e 20 74 68 65   "wal", then the
c870: 20 74 65 73 74 73 20 61 72 65 20 72 75 6e 20 69   tests are run i
c880: 6e 20 57 41 4c 20 6d 6f 64 65 2e 20 4f 74 68 65  n WAL mode. Othe
c890: 72 77 69 73 65 2c 20 74 68 65 79 20 73 68 6f 75  rwise, they shou
c8a0: 6c 64 20 62 65 20 72 75 6e 0a 23 20 69 6e 20 72  ld be run.# in r
c8b0: 6f 6c 6c 62 61 63 6b 20 6d 6f 64 65 2e 20 54 68  ollback mode. Th
c8c0: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 54 63 6c 20  e following Tcl 
c8d0: 70 72 6f 63 73 20 61 72 65 20 75 73 65 64 20 74  procs are used t
c8e0: 6f 20 6d 61 6b 65 20 74 68 69 73 20 6c 65 73 73  o make this less
c8f0: 0a 23 20 69 6e 74 72 75 73 69 76 65 3a 0a 23 0a  .# intrusive:.#.
c900: 23 20 20 20 77 61 6c 5f 73 65 74 5f 6a 6f 75 72  #   wal_set_jour
c910: 6e 61 6c 5f 6d 6f 64 65 20 3f 44 42 3f 0a 23 0a  nal_mode ?DB?.#.
c920: 23 20 20 20 20 20 49 66 20 72 75 6e 6e 69 6e 67  #     If running
c930: 20 61 20 57 41 4c 20 74 65 73 74 2c 20 65 78 65   a WAL test, exe
c940: 63 75 74 65 20 22 50 52 41 47 4d 41 20 6a 6f 75  cute "PRAGMA jou
c950: 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20 77 61 6c 22  rnal_mode = wal"
c960: 20 75 73 69 6e 67 0a 23 20 20 20 20 20 63 6f 6e   using.#     con
c970: 6e 65 63 74 69 6f 6e 20 68 61 6e 64 6c 65 20 44  nection handle D
c980: 42 2e 20 4f 74 68 65 72 77 69 73 65 2c 20 74 68  B. Otherwise, th
c990: 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 61 20  is command is a 
c9a0: 6e 6f 2d 6f 70 2e 0a 23 0a 23 20 20 20 77 61 6c  no-op..#.#   wal
c9b0: 5f 63 68 65 63 6b 5f 6a 6f 75 72 6e 61 6c 5f 6d  _check_journal_m
c9c0: 6f 64 65 20 54 45 53 54 4e 41 4d 45 20 3f 44 42  ode TESTNAME ?DB
c9d0: 3f 0a 23 0a 23 20 20 20 20 20 49 66 20 72 75 6e  ?.#.#     If run
c9e0: 6e 69 6e 67 20 61 20 57 41 4c 20 74 65 73 74 2c  ning a WAL test,
c9f0: 20 65 78 65 63 75 74 65 20 61 20 74 65 73 74 73   execute a tests
ca00: 20 63 61 73 65 20 74 68 61 74 20 66 61 69 6c 73   case that fails
ca10: 20 69 66 20 74 68 65 20 6d 61 69 6e 0a 23 20 20   if the main.#  
ca20: 20 20 20 64 61 74 61 62 61 73 65 20 66 6f 72 20     database for 
ca30: 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 6e 64 6c  connection handl
ca40: 65 20 44 42 20 69 73 20 6e 6f 74 20 63 75 72 72  e DB is not curr
ca50: 65 6e 74 6c 79 20 61 20 57 41 4c 20 64 61 74 61  ently a WAL data
ca60: 62 61 73 65 2e 0a 23 20 20 20 20 20 4f 74 68 65  base..#     Othe
ca70: 72 77 69 73 65 20 28 69 66 20 6e 6f 74 20 72 75  rwise (if not ru
ca80: 6e 6e 69 6e 67 20 61 20 57 41 4c 20 70 65 72 6d  nning a WAL perm
ca90: 75 74 61 74 69 6f 6e 29 20 74 68 69 73 20 69 73  utation) this is
caa0: 20 61 20 6e 6f 2d 6f 70 2e 0a 23 0a 23 20 20 20   a no-op..#.#   
cab0: 77 61 6c 5f 69 73 5f 77 61 6c 5f 6d 6f 64 65 0a  wal_is_wal_mode.
cac0: 23 0a 23 20 20 20 20 20 52 65 74 75 72 6e 73 20  #.#     Returns 
cad0: 74 72 75 65 20 69 66 20 74 68 69 73 20 74 65 73  true if this tes
cae0: 74 20 73 68 6f 75 6c 64 20 62 65 20 72 75 6e 20  t should be run 
caf0: 69 6e 20 57 41 4c 20 6d 6f 64 65 2e 20 46 61 6c  in WAL mode. Fal
cb00: 73 65 20 6f 74 68 65 72 77 69 73 65 2e 0a 23 0a  se otherwise..#.
cb10: 70 72 6f 63 20 77 61 6c 5f 69 73 5f 77 61 6c 5f  proc wal_is_wal_
cb20: 6d 6f 64 65 20 7b 7d 20 7b 0a 20 20 65 78 70 72  mode {} {.  expr
cb30: 20 7b 5b 70 65 72 6d 75 74 61 74 69 6f 6e 5d 20   {[permutation] 
cb40: 65 71 20 22 77 61 6c 22 7d 0a 7d 0a 70 72 6f 63  eq "wal"}.}.proc
cb50: 20 77 61 6c 5f 73 65 74 5f 6a 6f 75 72 6e 61 6c   wal_set_journal
cb60: 5f 6d 6f 64 65 20 7b 7b 64 62 20 64 62 7d 7d 20  _mode {{db db}} 
cb70: 7b 0a 20 20 69 66 20 7b 20 5b 77 61 6c 5f 69 73  {.  if { [wal_is
cb80: 5f 77 61 6c 5f 6d 6f 64 65 5d 20 7d 20 7b 0a 20  _wal_mode] } {. 
cb90: 20 20 20 24 64 62 20 65 76 61 6c 20 22 50 52 41     $db eval "PRA
cba0: 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65  GMA journal_mode
cbb0: 20 3d 20 57 41 4c 22 0a 20 20 7d 0a 7d 0a 70 72   = WAL".  }.}.pr
cbc0: 6f 63 20 77 61 6c 5f 63 68 65 63 6b 5f 6a 6f 75  oc wal_check_jou
cbd0: 72 6e 61 6c 5f 6d 6f 64 65 20 7b 74 65 73 74 6e  rnal_mode {testn
cbe0: 61 6d 65 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20  ame {db db}} {. 
cbf0: 20 69 66 20 7b 20 5b 77 61 6c 5f 69 73 5f 77 61   if { [wal_is_wa
cc00: 6c 5f 6d 6f 64 65 5d 20 7d 20 7b 0a 20 20 20 20  l_mode] } {.    
cc10: 24 64 62 20 65 76 61 6c 20 7b 20 53 45 4c 45 43  $db eval { SELEC
cc20: 54 20 2a 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f  T * FROM sqlite_
cc30: 6d 61 73 74 65 72 20 7d 0a 20 20 20 20 64 6f 5f  master }.    do_
cc40: 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65 20 5b  test $testname [
cc50: 6c 69 73 74 20 24 64 62 20 65 76 61 6c 20 22 50  list $db eval "P
cc60: 52 41 47 4d 41 20 6d 61 69 6e 2e 6a 6f 75 72 6e  RAGMA main.journ
cc70: 61 6c 5f 6d 6f 64 65 22 5d 20 7b 77 61 6c 7d 0a  al_mode"] {wal}.
cc80: 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20 70 65 72 6d    }.}..proc perm
cc90: 75 74 61 74 69 6f 6e 20 7b 7d 20 7b 0a 20 20 73  utation {} {.  s
cca0: 65 74 20 70 65 72 6d 20 22 22 0a 20 20 63 61 74  et perm "".  cat
ccb0: 63 68 20 7b 73 65 74 20 70 65 72 6d 20 24 3a 3a  ch {set perm $::
ccc0: 47 28 70 65 72 6d 3a 6e 61 6d 65 29 7d 0a 20 20  G(perm:name)}.  
ccd0: 73 65 74 20 70 65 72 6d 0a 7d 0a 70 72 6f 63 20  set perm.}.proc 
cce0: 70 72 65 73 71 6c 20 7b 7d 20 7b 0a 20 20 73 65  presql {} {.  se
ccf0: 74 20 70 72 65 73 71 6c 20 22 22 0a 20 20 63 61  t presql "".  ca
cd00: 74 63 68 20 7b 73 65 74 20 70 72 65 73 71 6c 20  tch {set presql 
cd10: 24 3a 3a 47 28 70 65 72 6d 3a 70 72 65 73 71 6c  $::G(perm:presql
cd20: 29 7d 0a 20 20 73 65 74 20 70 72 65 73 71 6c 0a  )}.  set presql.
cd30: 7d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  }..#------------
cd40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cd50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cd60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cd70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 0a  -------------.#.
cd80: 70 72 6f 63 20 73 6c 61 76 65 5f 74 65 73 74 5f  proc slave_test_
cd90: 73 63 72 69 70 74 20 7b 73 63 72 69 70 74 7d 20  script {script} 
cda0: 7b 0a 0a 20 20 23 20 43 72 65 61 74 65 20 74 68  {..  # Create th
cdb0: 65 20 69 6e 74 65 72 70 72 65 74 65 72 20 75 73  e interpreter us
cdc0: 65 64 20 74 6f 20 72 75 6e 20 74 68 65 20 74 65  ed to run the te
cdd0: 73 74 20 73 63 72 69 70 74 2e 0a 20 20 69 6e 74  st script..  int
cde0: 65 72 70 20 63 72 65 61 74 65 20 74 69 6e 74 65  erp create tinte
cdf0: 72 70 0a 0a 20 20 23 20 50 6f 70 75 6c 61 74 65  rp..  # Populate
ce00: 20 73 6f 6d 65 20 67 6c 6f 62 61 6c 20 76 61 72   some global var
ce10: 69 61 62 6c 65 73 20 74 68 61 74 20 74 65 73 74  iables that test
ce20: 65 72 2e 74 63 6c 20 65 78 70 65 63 74 73 20 74  er.tcl expects t
ce30: 6f 20 73 65 65 2e 0a 20 20 66 6f 72 65 61 63 68  o see..  foreach
ce40: 20 7b 76 61 72 20 76 61 6c 75 65 7d 20 5b 6c 69   {var value} [li
ce50: 73 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20  st              
ce60: 5c 0a 20 20 20 20 3a 3a 61 72 67 76 30 20 24 3a  \.    ::argv0 $:
ce70: 3a 61 72 67 76 30 20 20 20 20 20 20 20 20 20 20  :argv0          
ce80: 20 20 20 20 20 20 20 20 20 20 20 5c 0a 20 20 20             \.   
ce90: 20 3a 3a 61 72 67 76 20 20 7b 7d 20 20 20 20 20   ::argv  {}     
cea0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
ceb0: 20 20 20 20 20 20 5c 0a 20 20 20 20 3a 3a 53 4c        \.    ::SL
cec0: 41 56 45 20 31 20 20 20 20 20 20 20 20 20 20 20  AVE 1           
ced0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
cee0: 20 5c 0a 20 20 5d 20 7b 0a 20 20 20 20 69 6e 74   \.  ] {.    int
cef0: 65 72 70 20 65 76 61 6c 20 74 69 6e 74 65 72 70  erp eval tinterp
cf00: 20 5b 6c 69 73 74 20 73 65 74 20 24 76 61 72 20   [list set $var 
cf10: 24 76 61 6c 75 65 5d 0a 20 20 7d 0a 0a 20 20 23  $value].  }..  #
cf20: 20 54 68 65 20 61 6c 69 61 73 20 75 73 65 64 20   The alias used 
cf30: 74 6f 20 61 63 63 65 73 73 20 74 68 65 20 67 6c  to access the gl
cf40: 6f 62 61 6c 20 74 65 73 74 20 63 6f 75 6e 74 65  obal test counte
cf50: 72 73 2e 0a 20 20 74 69 6e 74 65 72 70 20 61 6c  rs..  tinterp al
cf60: 69 61 73 20 73 65 74 5f 74 65 73 74 5f 63 6f 75  ias set_test_cou
cf70: 6e 74 65 72 20 73 65 74 5f 74 65 73 74 5f 63 6f  nter set_test_co
cf80: 75 6e 74 65 72 0a 0a 20 20 23 20 53 65 74 20 75  unter..  # Set u
cf90: 70 20 74 68 65 20 3a 3a 63 6d 64 6c 69 6e 65 61  p the ::cmdlinea
cfa0: 72 67 20 61 72 72 61 79 20 69 6e 20 74 68 65 20  rg array in the 
cfb0: 73 6c 61 76 65 2e 0a 20 20 69 6e 74 65 72 70 20  slave..  interp 
cfc0: 65 76 61 6c 20 74 69 6e 74 65 72 70 20 5b 6c 69  eval tinterp [li
cfd0: 73 74 20 61 72 72 61 79 20 73 65 74 20 3a 3a 63  st array set ::c
cfe0: 6d 64 6c 69 6e 65 61 72 67 20 5b 61 72 72 61 79  mdlinearg [array
cff0: 20 67 65 74 20 3a 3a 63 6d 64 6c 69 6e 65 61 72   get ::cmdlinear
d000: 67 5d 5d 0a 0a 20 20 23 20 53 65 74 20 75 70 20  g]]..  # Set up 
d010: 74 68 65 20 3a 3a 47 20 61 72 72 61 79 20 69 6e  the ::G array in
d020: 20 74 68 65 20 73 6c 61 76 65 2e 0a 20 20 69 6e   the slave..  in
d030: 74 65 72 70 20 65 76 61 6c 20 74 69 6e 74 65 72  terp eval tinter
d040: 70 20 5b 6c 69 73 74 20 61 72 72 61 79 20 73 65  p [list array se
d050: 74 20 3a 3a 47 20 5b 61 72 72 61 79 20 67 65 74  t ::G [array get
d060: 20 3a 3a 47 5d 5d 0a 0a 20 20 23 20 4c 6f 61 64   ::G]]..  # Load
d070: 20 74 68 65 20 76 61 72 69 6f 75 73 20 74 65 73   the various tes
d080: 74 20 69 6e 74 65 72 66 61 63 65 73 20 69 6d 70  t interfaces imp
d090: 6c 65 6d 65 6e 74 65 64 20 69 6e 20 43 2e 0a 20  lemented in C.. 
d0a0: 20 6c 6f 61 64 5f 74 65 73 74 66 69 78 74 75 72   load_testfixtur
d0b0: 65 5f 65 78 74 65 6e 73 69 6f 6e 73 20 74 69 6e  e_extensions tin
d0c0: 74 65 72 70 0a 0a 20 20 23 20 52 75 6e 20 74 68  terp..  # Run th
d0d0: 65 20 74 65 73 74 20 73 63 72 69 70 74 2e 0a 20  e test script.. 
d0e0: 20 69 6e 74 65 72 70 20 65 76 61 6c 20 74 69 6e   interp eval tin
d0f0: 74 65 72 70 20 24 73 63 72 69 70 74 0a 0a 20 20  terp $script..  
d100: 23 20 43 68 65 63 6b 20 69 66 20 74 68 65 20 69  # Check if the i
d110: 6e 74 65 72 70 72 65 74 65 72 20 63 61 6c 6c 20  nterpreter call 
d120: 5b 72 75 6e 5f 74 68 72 65 61 64 5f 74 65 73 74  [run_thread_test
d130: 73 5d 0a 20 20 69 66 20 7b 20 5b 69 6e 74 65 72  s].  if { [inter
d140: 70 20 65 76 61 6c 20 74 69 6e 74 65 72 70 20 7b  p eval tinterp {
d150: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 72 75  info exists ::ru
d160: 6e 5f 74 68 72 65 61 64 5f 74 65 73 74 73 5f 63  n_thread_tests_c
d170: 61 6c 6c 65 64 7d 5d 20 7d 20 7b 0a 20 20 20 20  alled}] } {.    
d180: 73 65 74 20 3a 3a 72 75 6e 5f 74 68 72 65 61 64  set ::run_thread
d190: 5f 74 65 73 74 73 5f 63 61 6c 6c 65 64 20 31 0a  _tests_called 1.
d1a0: 20 20 7d 0a 0a 20 20 23 20 44 65 6c 65 74 65 20    }..  # Delete 
d1b0: 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 20  the interpreter 
d1c0: 75 73 65 64 20 74 6f 20 72 75 6e 20 74 68 65 20  used to run the 
d1d0: 74 65 73 74 20 73 63 72 69 70 74 2e 0a 20 20 69  test script..  i
d1e0: 6e 74 65 72 70 20 64 65 6c 65 74 65 20 74 69 6e  nterp delete tin
d1f0: 74 65 72 70 0a 7d 0a 0a 70 72 6f 63 20 73 6c 61  terp.}..proc sla
d200: 76 65 5f 74 65 73 74 5f 66 69 6c 65 20 7b 7a 46  ve_test_file {zF
d210: 69 6c 65 7d 20 7b 0a 20 20 73 65 74 20 74 61 69  ile} {.  set tai
d220: 6c 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 7a 46  l [file tail $zF
d230: 69 6c 65 5d 0a 0a 20 20 69 66 20 7b 5b 69 6e 66  ile]..  if {[inf
d240: 6f 20 65 78 69 73 74 73 20 3a 3a 47 28 73 74 61  o exists ::G(sta
d250: 72 74 3a 70 65 72 6d 75 74 61 74 69 6f 6e 29 5d  rt:permutation)]
d260: 7d 20 7b 0a 20 20 20 20 69 66 20 7b 5b 70 65 72  } {.    if {[per
d270: 6d 75 74 61 74 69 6f 6e 5d 20 21 3d 20 24 3a 3a  mutation] != $::
d280: 47 28 73 74 61 72 74 3a 70 65 72 6d 75 74 61 74  G(start:permutat
d290: 69 6f 6e 29 7d 20 72 65 74 75 72 6e 0a 20 20 20  ion)} return.   
d2a0: 20 75 6e 73 65 74 20 3a 3a 47 28 73 74 61 72 74   unset ::G(start
d2b0: 3a 70 65 72 6d 75 74 61 74 69 6f 6e 29 0a 20 20  :permutation).  
d2c0: 7d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78  }.  if {[info ex
d2d0: 69 73 74 73 20 3a 3a 47 28 73 74 61 72 74 3a 66  ists ::G(start:f
d2e0: 69 6c 65 29 5d 7d 20 7b 0a 20 20 20 20 69 66 20  ile)]} {.    if 
d2f0: 7b 24 74 61 69 6c 20 21 3d 20 24 3a 3a 47 28 73  {$tail != $::G(s
d300: 74 61 72 74 3a 66 69 6c 65 29 20 26 26 20 24 74  tart:file) && $t
d310: 61 69 6c 21 3d 22 24 3a 3a 47 28 73 74 61 72 74  ail!="$::G(start
d320: 3a 66 69 6c 65 29 2e 74 65 73 74 22 7d 20 72 65  :file).test"} re
d330: 74 75 72 6e 0a 20 20 20 20 75 6e 73 65 74 20 3a  turn.    unset :
d340: 3a 47 28 73 74 61 72 74 3a 66 69 6c 65 29 0a 20  :G(start:file). 
d350: 20 7d 0a 0a 20 20 23 20 52 65 6d 65 6d 62 65 72   }..  # Remember
d360: 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68   the value of th
d370: 65 20 73 68 61 72 65 64 2d 63 61 63 68 65 20 73  e shared-cache s
d380: 65 74 74 69 6e 67 2e 20 53 6f 20 74 68 61 74 20  etting. So that 
d390: 69 74 20 69 73 20 70 6f 73 73 69 62 6c 65 0a 20  it is possible. 
d3a0: 20 23 20 74 6f 20 63 68 65 63 6b 20 61 66 74 65   # to check afte
d3b0: 72 77 61 72 64 73 20 74 68 61 74 20 69 74 20 77  rwards that it w
d3c0: 61 73 20 6e 6f 74 20 6d 6f 64 69 66 69 65 64 20  as not modified 
d3d0: 62 79 20 74 68 65 20 74 65 73 74 20 73 63 72 69  by the test scri
d3e0: 70 74 2e 0a 20 20 23 0a 20 20 69 66 63 61 70 61  pt..  #.  ifcapa
d3f0: 62 6c 65 20 73 68 61 72 65 64 5f 63 61 63 68 65  ble shared_cache
d400: 20 7b 20 73 65 74 20 73 63 73 20 5b 73 71 6c 69   { set scs [sqli
d410: 74 65 33 5f 65 6e 61 62 6c 65 5f 73 68 61 72 65  te3_enable_share
d420: 64 5f 63 61 63 68 65 5d 20 7d 0a 0a 20 20 23 20  d_cache] }..  # 
d430: 52 75 6e 20 74 68 65 20 74 65 73 74 20 73 63 72  Run the test scr
d440: 69 70 74 20 69 6e 20 61 20 73 6c 61 76 65 20 69  ipt in a slave i
d450: 6e 74 65 72 70 72 65 74 65 72 2e 0a 20 20 23 0a  nterpreter..  #.
d460: 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c    unset -nocompl
d470: 61 69 6e 20 3a 3a 72 75 6e 5f 74 68 72 65 61 64  ain ::run_thread
d480: 5f 74 65 73 74 73 5f 63 61 6c 6c 65 64 0a 20 20  _tests_called.  
d490: 72 65 73 65 74 5f 70 72 6e 67 5f 73 74 61 74 65  reset_prng_state
d4a0: 0a 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f  .  set ::sqlite_
d4b0: 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 20  open_file_count 
d4c0: 30 0a 20 20 73 65 74 20 74 69 6d 65 20 5b 74 69  0.  set time [ti
d4d0: 6d 65 20 7b 20 73 6c 61 76 65 5f 74 65 73 74 5f  me { slave_test_
d4e0: 73 63 72 69 70 74 20 5b 6c 69 73 74 20 73 6f 75  script [list sou
d4f0: 72 63 65 20 24 7a 46 69 6c 65 5d 20 7d 5d 0a 20  rce $zFile] }]. 
d500: 20 73 65 74 20 6d 73 20 5b 65 78 70 72 20 5b 6c   set ms [expr [l
d510: 69 6e 64 65 78 20 24 74 69 6d 65 20 30 5d 20 2f  index $time 0] /
d520: 20 31 30 30 30 5d 0a 0a 20 20 23 20 54 65 73 74   1000]..  # Test
d530: 20 74 68 61 74 20 61 6c 6c 20 66 69 6c 65 73 20   that all files 
d540: 6f 70 65 6e 65 64 20 62 79 20 74 68 65 20 74 65  opened by the te
d550: 73 74 20 73 63 72 69 70 74 20 77 65 72 65 20 63  st script were c
d560: 6c 6f 73 65 64 2e 20 4f 6d 69 74 20 74 68 69 73  losed. Omit this
d570: 0a 20 20 23 20 69 66 20 74 68 65 20 74 65 73 74  .  # if the test
d580: 20 73 63 72 69 70 74 20 68 61 73 20 22 74 68 72   script has "thr
d590: 65 61 64 22 20 69 6e 20 69 74 73 20 6e 61 6d 65  ead" in its name
d5a0: 2e 20 54 68 65 20 6f 70 65 6e 20 66 69 6c 65 20  . The open file 
d5b0: 63 6f 75 6e 74 65 72 0a 20 20 23 20 69 73 20 6e  counter.  # is n
d5c0: 6f 74 20 74 68 72 65 61 64 2d 73 61 66 65 2e 0a  ot thread-safe..
d5d0: 20 20 23 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20    #.  if {[info 
d5e0: 65 78 69 73 74 73 20 3a 3a 72 75 6e 5f 74 68 72  exists ::run_thr
d5f0: 65 61 64 5f 74 65 73 74 73 5f 63 61 6c 6c 65 64  ead_tests_called
d600: 5d 3d 3d 30 7d 20 7b 0a 20 20 20 20 64 6f 5f 74  ]==0} {.    do_t
d610: 65 73 74 20 24 7b 74 61 69 6c 7d 2d 63 6c 6f 73  est ${tail}-clos
d620: 65 61 6c 6c 66 69 6c 65 73 20 7b 20 65 78 70 72  eallfiles { expr
d630: 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 6f 70 65 6e   {$::sqlite_open
d640: 5f 66 69 6c 65 5f 63 6f 75 6e 74 3e 30 7d 20 7d  _file_count>0} }
d650: 20 7b 30 7d 0a 20 20 7d 0a 20 20 73 65 74 20 3a   {0}.  }.  set :
d660: 3a 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c  :sqlite_open_fil
d670: 65 5f 63 6f 75 6e 74 20 30 0a 0a 20 20 23 20 54  e_count 0..  # T
d680: 65 73 74 20 74 68 61 74 20 74 68 65 20 67 6c 6f  est that the glo
d690: 62 61 6c 20 22 73 68 61 72 65 64 2d 63 61 63 68  bal "shared-cach
d6a0: 65 22 20 73 65 74 74 69 6e 67 20 77 61 73 20 6e  e" setting was n
d6b0: 6f 74 20 61 6c 74 65 72 65 64 20 62 79 0a 20 20  ot altered by.  
d6c0: 23 20 74 68 65 20 74 65 73 74 20 73 63 72 69 70  # the test scrip
d6d0: 74 2e 0a 20 20 23 0a 20 20 69 66 63 61 70 61 62  t..  #.  ifcapab
d6e0: 6c 65 20 73 68 61 72 65 64 5f 63 61 63 68 65 20  le shared_cache 
d6f0: 7b 0a 20 20 20 20 73 65 74 20 72 65 73 20 5b 65  {.    set res [e
d700: 78 70 72 20 7b 5b 73 71 6c 69 74 65 33 5f 65 6e  xpr {[sqlite3_en
d710: 61 62 6c 65 5f 73 68 61 72 65 64 5f 63 61 63 68  able_shared_cach
d720: 65 5d 20 3d 3d 20 24 73 63 73 7d 5d 0a 20 20 20  e] == $scs}].   
d730: 20 64 6f 5f 74 65 73 74 20 24 7b 74 61 69 6c 7d   do_test ${tail}
d740: 2d 73 68 61 72 65 64 63 61 63 68 65 73 65 74 74  -sharedcachesett
d750: 69 6e 67 20 5b 6c 69 73 74 20 73 65 74 20 7b 7d  ing [list set {}
d760: 20 24 72 65 73 5d 20 31 0a 20 20 7d 0a 0a 20 20   $res] 1.  }..  
d770: 23 20 41 64 64 20 73 6f 6d 65 20 69 6e 66 6f 20  # Add some info 
d780: 74 6f 20 74 68 65 20 6f 75 74 70 75 74 2e 0a 20  to the output.. 
d790: 20 23 0a 20 20 70 75 74 73 20 22 54 69 6d 65 3a   #.  puts "Time:
d7a0: 20 24 74 61 69 6c 20 24 6d 73 20 6d 73 22 0a 20   $tail $ms ms". 
d7b0: 20 73 68 6f 77 5f 6d 65 6d 73 74 61 74 73 0a 7d   show_memstats.}
d7c0: 0a 0a 23 20 4f 70 65 6e 20 61 20 6e 65 77 20 63  ..# Open a new c
d7d0: 6f 6e 6e 65 63 74 69 6f 6e 20 6f 6e 20 64 61 74  onnection on dat
d7e0: 61 62 61 73 65 20 74 65 73 74 2e 64 62 20 61 6e  abase test.db an
d7f0: 64 20 65 78 65 63 75 74 65 20 74 68 65 20 53 51  d execute the SQ
d800: 4c 20 73 63 72 69 70 74 0a 23 20 73 75 70 70 6c  L script.# suppl
d810: 69 65 64 20 61 73 20 61 6e 20 61 72 67 75 6d 65  ied as an argume
d820: 6e 74 2e 20 42 65 66 6f 72 65 20 72 65 74 75 72  nt. Before retur
d830: 6e 69 6e 67 2c 20 63 6c 6f 73 65 20 74 68 65 20  ning, close the 
d840: 6e 65 77 20 63 6f 6e 65 63 74 69 6f 6e 20 61 6e  new conection an
d850: 64 0a 23 20 72 65 73 74 6f 72 65 20 74 68 65 20  d.# restore the 
d860: 34 20 62 79 74 65 20 66 69 65 6c 64 73 20 73 74  4 byte fields st
d870: 61 72 74 69 6e 67 20 61 74 20 68 65 61 64 65 72  arting at header
d880: 20 6f 66 66 73 65 74 73 20 32 38 2c 20 39 32 20   offsets 28, 92 
d890: 61 6e 64 20 39 36 0a 23 20 74 6f 20 74 68 65 20  and 96.# to the 
d8a0: 76 61 6c 75 65 73 20 74 68 65 79 20 68 65 6c 64  values they held
d8b0: 20 62 65 66 6f 72 65 20 74 68 65 20 53 51 4c 20   before the SQL 
d8c0: 77 61 73 20 65 78 65 63 75 74 65 64 2e 20 54 68  was executed. Th
d8d0: 69 73 20 73 69 6d 75 6c 61 74 65 73 0a 23 20 61  is simulates.# a
d8e0: 20 77 72 69 74 65 20 62 79 20 61 20 70 72 65 2d   write by a pre-
d8f0: 33 2e 37 2e 30 20 63 6c 69 65 6e 74 2e 0a 23 0a  3.7.0 client..#.
d900: 70 72 6f 63 20 73 71 6c 33 36 32 33 31 20 7b 73  proc sql36231 {s
d910: 71 6c 7d 20 7b 0a 20 20 73 65 74 20 42 20 5b 68  ql} {.  set B [h
d920: 65 78 69 6f 5f 72 65 61 64 20 74 65 73 74 2e 64  exio_read test.d
d930: 62 20 39 32 20 38 5d 0a 20 20 73 65 74 20 41 20  b 92 8].  set A 
d940: 5b 68 65 78 69 6f 5f 72 65 61 64 20 74 65 73 74  [hexio_read test
d950: 2e 64 62 20 32 38 20 34 5d 0a 20 20 73 71 6c 69  .db 28 4].  sqli
d960: 74 65 33 20 64 62 33 36 32 33 31 20 74 65 73 74  te3 db36231 test
d970: 2e 64 62 0a 20 20 63 61 74 63 68 20 7b 20 64 62  .db.  catch { db
d980: 33 36 32 33 31 20 66 75 6e 63 20 61 5f 73 74 72  36231 func a_str
d990: 69 6e 67 20 61 5f 73 74 72 69 6e 67 20 7d 0a 20  ing a_string }. 
d9a0: 20 65 78 65 63 73 71 6c 20 24 73 71 6c 20 64 62   execsql $sql db
d9b0: 33 36 32 33 31 0a 20 20 64 62 33 36 32 33 31 20  36231.  db36231 
d9c0: 63 6c 6f 73 65 0a 20 20 68 65 78 69 6f 5f 77 72  close.  hexio_wr
d9d0: 69 74 65 20 74 65 73 74 2e 64 62 20 32 38 20 24  ite test.db 28 $
d9e0: 41 0a 20 20 68 65 78 69 6f 5f 77 72 69 74 65 20  A.  hexio_write 
d9f0: 74 65 73 74 2e 64 62 20 39 32 20 24 42 0a 20 20  test.db 92 $B.  
da00: 72 65 74 75 72 6e 20 22 22 0a 7d 0a 0a 70 72 6f  return "".}..pro
da10: 63 20 64 62 5f 73 61 76 65 20 7b 7d 20 7b 0a 20  c db_save {} {. 
da20: 20 66 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f 62   foreach f [glob
da30: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 73 76 5f   -nocomplain sv_
da40: 74 65 73 74 2e 64 62 2a 5d 20 7b 20 66 6f 72 63  test.db*] { forc
da50: 65 64 65 6c 65 74 65 20 24 66 20 7d 0a 20 20 66  edelete $f }.  f
da60: 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f 62 20 2d  oreach f [glob -
da70: 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 73 74 2e  nocomplain test.
da80: 64 62 2a 5d 20 7b 0a 20 20 20 20 73 65 74 20 66  db*] {.    set f
da90: 32 20 22 73 76 5f 24 66 22 0a 20 20 20 20 66 6f  2 "sv_$f".    fo
daa0: 72 63 65 63 6f 70 79 20 24 66 20 24 66 32 0a 20  rcecopy $f $f2. 
dab0: 20 7d 0a 7d 0a 70 72 6f 63 20 64 62 5f 73 61 76   }.}.proc db_sav
dac0: 65 5f 61 6e 64 5f 63 6c 6f 73 65 20 7b 7d 20 7b  e_and_close {} {
dad0: 0a 20 20 64 62 5f 73 61 76 65 0a 20 20 63 61 74  .  db_save.  cat
dae0: 63 68 20 7b 20 64 62 20 63 6c 6f 73 65 20 7d 0a  ch { db close }.
daf0: 20 20 72 65 74 75 72 6e 20 22 22 0a 7d 0a 70 72    return "".}.pr
db00: 6f 63 20 64 62 5f 72 65 73 74 6f 72 65 20 7b 7d  oc db_restore {}
db10: 20 7b 0a 20 20 66 6f 72 65 61 63 68 20 66 20 5b   {.  foreach f [
db20: 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  glob -nocomplain
db30: 20 74 65 73 74 2e 64 62 2a 5d 20 7b 20 66 6f 72   test.db*] { for
db40: 63 65 64 65 6c 65 74 65 20 24 66 20 7d 0a 20 20  cedelete $f }.  
db50: 66 6f 72 65 61 63 68 20 66 32 20 5b 67 6c 6f 62  foreach f2 [glob
db60: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 73 76 5f   -nocomplain sv_
db70: 74 65 73 74 2e 64 62 2a 5d 20 7b 0a 20 20 20 20  test.db*] {.    
db80: 73 65 74 20 66 20 5b 73 74 72 69 6e 67 20 72 61  set f [string ra
db90: 6e 67 65 20 24 66 32 20 33 20 65 6e 64 5d 0a 20  nge $f2 3 end]. 
dba0: 20 20 20 66 6f 72 63 65 63 6f 70 79 20 24 66 32     forcecopy $f2
dbb0: 20 24 66 0a 20 20 7d 0a 7d 0a 70 72 6f 63 20 64   $f.  }.}.proc d
dbc0: 62 5f 72 65 73 74 6f 72 65 5f 61 6e 64 5f 72 65  b_restore_and_re
dbd0: 6f 70 65 6e 20 7b 7b 64 62 66 69 6c 65 20 74 65  open {{dbfile te
dbe0: 73 74 2e 64 62 7d 7d 20 7b 0a 20 20 63 61 74 63  st.db}} {.  catc
dbf0: 68 20 7b 20 64 62 20 63 6c 6f 73 65 20 7d 0a 20  h { db close }. 
dc00: 20 64 62 5f 72 65 73 74 6f 72 65 0a 20 20 73 71   db_restore.  sq
dc10: 6c 69 74 65 33 20 64 62 20 24 64 62 66 69 6c 65  lite3 db $dbfile
dc20: 0a 7d 0a 70 72 6f 63 20 64 62 5f 64 65 6c 65 74  .}.proc db_delet
dc30: 65 5f 61 6e 64 5f 72 65 6f 70 65 6e 20 7b 7b 66  e_and_reopen {{f
dc40: 69 6c 65 20 74 65 73 74 2e 64 62 7d 7d 20 7b 0a  ile test.db}} {.
dc50: 20 20 63 61 74 63 68 20 7b 20 64 62 20 63 6c 6f    catch { db clo
dc60: 73 65 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 66  se }.  foreach f
dc70: 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61   [glob -nocompla
dc80: 69 6e 20 74 65 73 74 2e 64 62 2a 5d 20 7b 20 66  in test.db*] { f
dc90: 6f 72 63 65 64 65 6c 65 74 65 20 24 66 20 7d 0a  orcedelete $f }.
dca0: 20 20 73 71 6c 69 74 65 33 20 64 62 20 24 66 69    sqlite3 db $fi
dcb0: 6c 65 0a 7d 0a 0a 23 20 49 66 20 74 68 65 20 6c  le.}..# If the l
dcc0: 69 62 72 61 72 79 20 69 73 20 63 6f 6d 70 69 6c  ibrary is compil
dcd0: 65 64 20 77 69 74 68 20 74 68 65 20 53 51 4c 49  ed with the SQLI
dce0: 54 45 5f 44 45 46 41 55 4c 54 5f 41 55 54 4f 56  TE_DEFAULT_AUTOV
dcf0: 41 43 55 55 4d 20 6d 61 63 72 6f 20 73 65 74 0a  ACUUM macro set.
dd00: 23 20 74 6f 20 6e 6f 6e 2d 7a 65 72 6f 2c 20 74  # to non-zero, t
dd10: 68 65 6e 20 73 65 74 20 74 68 65 20 67 6c 6f 62  hen set the glob
dd20: 61 6c 20 76 61 72 69 61 62 6c 65 20 24 41 55 54  al variable $AUT
dd30: 4f 56 41 43 55 55 4d 20 74 6f 20 31 2e 0a 73 65  OVACUUM to 1..se
dd40: 74 20 41 55 54 4f 56 41 43 55 55 4d 20 24 73 71  t AUTOVACUUM $sq
dd50: 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 28 64 65 66  lite_options(def
dd60: 61 75 6c 74 5f 61 75 74 6f 76 61 63 75 75 6d 29  ault_autovacuum)
dd70: 0a 0a 23 20 4d 61 6b 65 20 73 75 72 65 20 74 68  ..# Make sure th
dd80: 65 20 46 54 53 20 65 6e 68 61 6e 63 65 64 20 71  e FTS enhanced q
dd90: 75 65 72 79 20 73 79 6e 74 61 78 20 69 73 20 64  uery syntax is d
dda0: 69 73 61 62 6c 65 64 2e 0a 73 65 74 20 73 71 6c  isabled..set sql
ddb0: 69 74 65 5f 66 74 73 33 5f 65 6e 61 62 6c 65 5f  ite_fts3_enable_
ddc0: 70 61 72 65 6e 74 68 65 73 65 73 20 30 0a 0a 23  parentheses 0..#
ddd0: 20 44 75 72 69 6e 67 20 74 65 73 74 69 6e 67 2c   During testing,
dde0: 20 61 73 73 75 6d 65 20 74 68 61 74 20 61 6c 6c   assume that all
ddf0: 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 73 20   database files 
de00: 61 72 65 20 77 65 6c 6c 2d 66 6f 72 6d 65 64 2e  are well-formed.
de10: 20 20 54 68 65 0a 23 20 66 65 77 20 74 65 73 74    The.# few test
de20: 20 63 61 73 65 73 20 74 68 61 74 20 64 65 6c 69   cases that deli
de30: 62 65 72 61 74 65 6c 79 20 63 6f 72 72 75 70 74  berately corrupt
de40: 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 73 20   database files 
de50: 73 68 6f 75 6c 64 20 72 65 73 63 69 6e 64 20 0a  should rescind .
de60: 23 20 74 68 69 73 20 73 65 74 74 69 6e 67 20 62  # this setting b
de70: 79 20 69 6e 76 6f 6b 69 6e 67 20 22 64 61 74 61  y invoking "data
de80: 62 61 73 65 5f 63 61 6e 5f 62 65 5f 63 6f 72 72  base_can_be_corr
de90: 75 70 74 22 0a 23 0a 64 61 74 61 62 61 73 65 5f  upt".#.database_
dea0: 6e 65 76 65 72 5f 63 6f 72 72 75 70 74 0a 0a 73  never_corrupt..s
deb0: 6f 75 72 63 65 20 24 74 65 73 74 64 69 72 2f 74  ource $testdir/t
dec0: 68 72 65 61 64 5f 63 6f 6d 6d 6f 6e 2e 74 63 6c  hread_common.tcl
ded0: 0a 73 6f 75 72 63 65 20 24 74 65 73 74 64 69 72  .source $testdir
dee0: 2f 6d 61 6c 6c 6f 63 5f 63 6f 6d 6d 6f 6e 2e 74  /malloc_common.t
def0: 63 6c 0a                                         cl.