/ Hex Artifact Content
Login

Artifact f31bea1483ea1d39620f982130026e76f872d744:


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 7d 20 7b 0a  v VFilter.  } {.
7cc0: 20 20 20 20 73 65 74 20 63 6f 6c 6f 72 28 24 6f      set color($o
7cd0: 70 63 6f 64 65 29 20 24 42 0a 20 20 7d 0a 20 20  pcode) $B.  }.  
7ce0: 66 6f 72 65 61 63 68 20 6f 70 63 6f 64 65 20 7b  foreach opcode {
7cf0: 52 65 73 75 6c 74 52 6f 77 7d 20 7b 0a 20 20 20  ResultRow} {.   
7d00: 20 73 65 74 20 63 6f 6c 6f 72 28 24 6f 70 63 6f   set color($opco
7d10: 64 65 29 20 24 47 0a 20 20 7d 0a 20 20 66 6f 72  de) $G.  }.  for
7d20: 65 61 63 68 20 6f 70 63 6f 64 65 20 7b 49 64 78  each opcode {Idx
7d30: 49 6e 73 65 72 74 20 49 6e 73 65 72 74 20 44 65  Insert Insert De
7d40: 6c 65 74 65 20 49 64 78 44 65 6c 65 74 65 7d 20  lete IdxDelete} 
7d50: 7b 0a 20 20 20 20 73 65 74 20 63 6f 6c 6f 72 28  {.    set color(
7d60: 24 6f 70 63 6f 64 65 29 20 24 52 0a 20 20 7d 0a  $opcode) $R.  }.
7d70: 0a 20 20 73 65 74 20 62 53 65 65 6e 47 6f 74 6f  .  set bSeenGoto
7d80: 20 30 0a 20 20 24 64 62 20 65 76 61 6c 20 22 65   0.  $db eval "e
7d90: 78 70 6c 61 69 6e 20 24 73 71 6c 22 20 7b 7d 20  xplain $sql" {} 
7da0: 7b 0a 20 20 20 20 73 65 74 20 78 28 24 61 64 64  {.    set x($add
7db0: 72 29 20 30 0a 20 20 20 20 73 65 74 20 6f 70 28  r) 0.    set op(
7dc0: 24 61 64 64 72 29 20 24 6f 70 63 6f 64 65 0a 0a  $addr) $opcode..
7dd0: 20 20 20 20 69 66 20 7b 24 6f 70 63 6f 64 65 20      if {$opcode 
7de0: 3d 3d 20 22 47 6f 74 6f 22 20 26 26 20 28 24 62  == "Goto" && ($b
7df0: 53 65 65 6e 47 6f 74 6f 3d 3d 30 20 7c 7c 20 28  SeenGoto==0 || (
7e00: 24 70 32 20 3e 20 24 61 64 64 72 2b 31 30 29 29  $p2 > $addr+10))
7e10: 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 6c 69  } {.      set li
7e20: 6e 65 62 72 65 61 6b 28 24 70 32 29 20 31 0a 20  nebreak($p2) 1. 
7e30: 20 20 20 20 20 73 65 74 20 62 53 65 65 6e 47 6f       set bSeenGo
7e40: 74 6f 20 31 0a 20 20 20 20 7d 0a 0a 20 20 20 20  to 1.    }..    
7e50: 69 66 20 7b 24 6f 70 63 6f 64 65 3d 3d 22 4e 65  if {$opcode=="Ne
7e60: 78 74 22 20 20 7c 7c 20 24 6f 70 63 6f 64 65 3d  xt"  || $opcode=
7e70: 3d 22 50 72 65 76 22 20 0a 20 20 20 20 20 7c 7c  ="Prev" .     ||
7e80: 20 24 6f 70 63 6f 64 65 3d 3d 22 56 4e 65 78 74   $opcode=="VNext
7e90: 22 20 7c 7c 20 24 6f 70 63 6f 64 65 3d 3d 22 56  " || $opcode=="V
7ea0: 50 72 65 76 22 0a 20 20 20 20 7d 20 7b 0a 20 20  Prev".    } {.  
7eb0: 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69 20 24      for {set i $
7ec0: 70 32 7d 20 7b 24 69 3c 24 61 64 64 72 7d 20 7b  p2} {$i<$addr} {
7ed0: 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20 20 20  incr i} {.      
7ee0: 20 20 69 6e 63 72 20 78 28 24 69 29 20 32 0a 20    incr x($i) 2. 
7ef0: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 0a 20 20       }.    }..  
7f00: 20 20 69 66 20 7b 24 6f 70 63 6f 64 65 20 3d 3d    if {$opcode ==
7f10: 20 22 47 6f 74 6f 22 20 26 26 20 24 70 32 3c 24   "Goto" && $p2<$
7f20: 61 64 64 72 20 26 26 20 24 6f 70 28 24 70 32 29  addr && $op($p2)
7f30: 3d 3d 22 59 69 65 6c 64 22 7d 20 7b 0a 20 20 20  =="Yield"} {.   
7f40: 20 20 20 66 6f 72 20 7b 73 65 74 20 69 20 5b 65     for {set i [e
7f50: 78 70 72 20 24 70 32 2b 31 5d 7d 20 7b 24 69 3c  xpr $p2+1]} {$i<
7f60: 24 61 64 64 72 7d 20 7b 69 6e 63 72 20 69 7d 20  $addr} {incr i} 
7f70: 7b 0a 20 20 20 20 20 20 20 20 69 6e 63 72 20 78  {.        incr x
7f80: 28 24 69 29 20 32 0a 20 20 20 20 20 20 7d 0a 20  ($i) 2.      }. 
7f90: 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 7b 24 6f     }..    if {$o
7fa0: 70 63 6f 64 65 20 3d 3d 20 22 48 61 6c 74 22 20  pcode == "Halt" 
7fb0: 26 26 20 24 63 6f 6d 6d 65 6e 74 20 3d 3d 20 22  && $comment == "
7fc0: 45 6e 64 20 6f 66 20 63 6f 72 6f 75 74 69 6e 65  End of coroutine
7fd0: 22 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 6c  "} {.      set l
7fe0: 69 6e 65 62 72 65 61 6b 28 5b 65 78 70 72 20 24  inebreak([expr $
7ff0: 61 64 64 72 2b 31 5d 29 20 31 0a 20 20 20 20 7d  addr+1]) 1.    }
8000: 0a 20 20 7d 0a 0a 20 20 24 64 62 20 65 76 61 6c  .  }..  $db eval
8010: 20 22 65 78 70 6c 61 69 6e 20 24 73 71 6c 22 20   "explain $sql" 
8020: 7b 7d 20 7b 0a 20 20 20 20 69 66 20 7b 5b 69 6e  {} {.    if {[in
8030: 66 6f 20 65 78 69 73 74 73 20 6c 69 6e 65 62 72  fo exists linebr
8040: 65 61 6b 28 24 61 64 64 72 29 5d 7d 20 7b 0a 20  eak($addr)]} {. 
8050: 20 20 20 20 20 70 75 74 73 20 22 22 0a 20 20 20       puts "".   
8060: 20 7d 0a 20 20 20 20 73 65 74 20 49 20 5b 73 74   }.    set I [st
8070: 72 69 6e 67 20 72 65 70 65 61 74 20 22 20 22 20  ring repeat " " 
8080: 24 78 28 24 61 64 64 72 29 5d 0a 0a 20 20 20 20  $x($addr)]..    
8090: 73 65 74 20 63 6f 6c 20 22 22 0a 20 20 20 20 63  set col "".    c
80a0: 61 74 63 68 20 7b 20 73 65 74 20 63 6f 6c 20 24  atch { set col $
80b0: 63 6f 6c 6f 72 28 24 6f 70 63 6f 64 65 29 20 7d  color($opcode) }
80c0: 0a 0a 20 20 20 20 70 75 74 73 20 5b 66 6f 72 6d  ..    puts [form
80d0: 61 74 20 7b 25 2d 34 64 20 20 25 73 25 73 25 2d  at {%-4d  %s%s%-
80e0: 31 32 2e 31 32 73 25 73 20 20 25 2d 36 64 20 20  12.12s%s  %-6d  
80f0: 25 2d 36 64 20 20 25 2d 36 64 20 20 25 20 2d 31  %-6d  %-6d  % -1
8100: 37 73 20 25 73 20 20 25 73 7d 20 5c 0a 20 20 20  7s %s  %s} \.   
8110: 20 20 20 24 61 64 64 72 20 24 49 20 24 63 6f 6c     $addr $I $col
8120: 20 24 6f 70 63 6f 64 65 20 24 44 20 24 70 31 20   $opcode $D $p1 
8130: 24 70 32 20 24 70 33 20 24 70 34 20 24 70 35 20  $p2 $p3 $p4 $p5 
8140: 24 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 5d 0a 20  $comment.    ]. 
8150: 20 7d 0a 20 20 70 75 74 73 20 22 2d 2d 2d 2d 20   }.  puts "---- 
8160: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d   ------------  -
8170: 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d  -----  ------  -
8180: 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d  -----  ---------
8190: 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d 20 20 2d 22 0a  -------  --  -".
81a0: 7d 0a 0a 23 20 53 68 6f 77 20 74 68 65 20 56 44  }..# Show the VD
81b0: 42 45 20 70 72 6f 67 72 61 6d 20 66 6f 72 20 61  BE program for a
81c0: 6e 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 20  n SQL statement 
81d0: 62 75 74 20 6f 6d 69 74 20 74 68 65 20 54 72 61  but omit the Tra
81e0: 63 65 0a 23 20 6f 70 63 6f 64 65 20 61 74 20 74  ce.# opcode at t
81f0: 68 65 20 62 65 67 69 6e 6e 69 6e 67 2e 20 20 54  he beginning.  T
8200: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 63 61  his procedure ca
8210: 6e 20 62 65 20 75 73 65 64 20 74 6f 20 70 72 6f  n be used to pro
8220: 76 65 0a 23 20 74 68 61 74 20 64 69 66 66 65 72  ve.# that differ
8230: 65 6e 74 20 53 51 4c 20 73 74 61 74 65 6d 65 6e  ent SQL statemen
8240: 74 73 20 67 65 6e 65 72 61 74 65 20 65 78 61 63  ts generate exac
8250: 74 6c 79 20 74 68 65 20 73 61 6d 65 20 56 44 42  tly the same VDB
8260: 45 20 63 6f 64 65 2e 0a 23 0a 70 72 6f 63 20 65  E code..#.proc e
8270: 78 70 6c 61 69 6e 5f 6e 6f 5f 74 72 61 63 65 20  xplain_no_trace 
8280: 7b 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20 74 72  {sql} {.  set tr
8290: 20 5b 64 62 20 65 76 61 6c 20 22 45 58 50 4c 41   [db eval "EXPLA
82a0: 49 4e 20 24 73 71 6c 22 5d 0a 20 20 72 65 74 75  IN $sql"].  retu
82b0: 72 6e 20 5b 6c 72 61 6e 67 65 20 24 74 72 20 37  rn [lrange $tr 7
82c0: 20 65 6e 64 5d 0a 7d 0a 0a 23 20 41 6e 6f 74 68   end].}..# Anoth
82d0: 65 72 20 70 72 6f 63 65 64 75 72 65 20 74 6f 20  er procedure to 
82e0: 65 78 65 63 75 74 65 20 53 51 4c 2e 20 20 54 68  execute SQL.  Th
82f0: 69 73 20 6f 6e 65 20 69 6e 63 6c 75 64 65 73 20  is one includes 
8300: 74 68 65 20 66 69 65 6c 64 0a 23 20 6e 61 6d 65  the field.# name
8310: 73 20 69 6e 20 74 68 65 20 72 65 74 75 72 6e 65  s in the returne
8320: 64 20 6c 69 73 74 2e 0a 23 0a 70 72 6f 63 20 65  d list..#.proc e
8330: 78 65 63 73 71 6c 32 20 7b 73 71 6c 7d 20 7b 0a  xecsql2 {sql} {.
8340: 20 20 73 65 74 20 72 65 73 75 6c 74 20 7b 7d 0a    set result {}.
8350: 20 20 64 62 20 65 76 61 6c 20 24 73 71 6c 20 64    db eval $sql d
8360: 61 74 61 20 7b 0a 20 20 20 20 66 6f 72 65 61 63  ata {.    foreac
8370: 68 20 66 20 24 64 61 74 61 28 2a 29 20 7b 0a 20  h f $data(*) {. 
8380: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 72 65 73       lappend res
8390: 75 6c 74 20 24 66 20 24 64 61 74 61 28 24 66 29  ult $f $data($f)
83a0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74  .    }.  }.  ret
83b0: 75 72 6e 20 24 72 65 73 75 6c 74 0a 7d 0a 0a 23  urn $result.}..#
83c0: 20 55 73 65 20 61 20 74 65 6d 70 6f 72 61 72 79   Use a temporary
83d0: 20 69 6e 2d 6d 65 6d 6f 72 79 20 64 61 74 61 62   in-memory datab
83e0: 61 73 65 20 74 6f 20 65 78 65 63 75 74 65 20 53  ase to execute S
83f0: 51 4c 20 73 74 61 74 65 6d 65 6e 74 73 0a 23 0a  QL statements.#.
8400: 70 72 6f 63 20 6d 65 6d 64 62 73 71 6c 20 7b 73  proc memdbsql {s
8410: 71 6c 7d 20 7b 0a 20 20 73 71 6c 69 74 65 33 20  ql} {.  sqlite3 
8420: 6d 65 6d 64 62 20 3a 6d 65 6d 6f 72 79 3a 0a 20  memdb :memory:. 
8430: 20 73 65 74 20 72 65 73 75 6c 74 20 5b 6d 65 6d   set result [mem
8440: 64 62 20 65 76 61 6c 20 24 73 71 6c 5d 0a 20 20  db eval $sql].  
8450: 6d 65 6d 64 62 20 63 6c 6f 73 65 0a 20 20 72 65  memdb close.  re
8460: 74 75 72 6e 20 24 72 65 73 75 6c 74 0a 7d 0a 0a  turn $result.}..
8470: 23 20 55 73 65 20 74 68 65 20 6e 6f 6e 2d 63 61  # Use the non-ca
8480: 6c 6c 62 61 63 6b 20 41 50 49 20 74 6f 20 65 78  llback API to ex
8490: 65 63 75 74 65 20 6d 75 6c 74 69 70 6c 65 20 53  ecute multiple S
84a0: 51 4c 20 73 74 61 74 65 6d 65 6e 74 73 0a 23 0a  QL statements.#.
84b0: 70 72 6f 63 20 73 74 65 70 73 71 6c 20 7b 64 62  proc stepsql {db
84c0: 70 74 72 20 73 71 6c 7d 20 7b 0a 20 20 73 65 74  ptr sql} {.  set
84d0: 20 73 71 6c 20 5b 73 74 72 69 6e 67 20 74 72 69   sql [string tri
84e0: 6d 20 24 73 71 6c 5d 0a 20 20 73 65 74 20 72 20  m $sql].  set r 
84f0: 30 0a 20 20 77 68 69 6c 65 20 7b 5b 73 74 72 69  0.  while {[stri
8500: 6e 67 20 6c 65 6e 67 74 68 20 24 73 71 6c 5d 3e  ng length $sql]>
8510: 30 7d 20 7b 0a 20 20 20 20 69 66 20 7b 5b 63 61  0} {.    if {[ca
8520: 74 63 68 20 7b 73 71 6c 69 74 65 33 5f 70 72 65  tch {sqlite3_pre
8530: 70 61 72 65 20 24 64 62 70 74 72 20 24 73 71 6c  pare $dbptr $sql
8540: 20 2d 31 20 73 71 6c 74 61 69 6c 7d 20 76 6d 5d   -1 sqltail} vm]
8550: 7d 20 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e  } {.      return
8560: 20 5b 6c 69 73 74 20 31 20 24 76 6d 5d 0a 20 20   [list 1 $vm].  
8570: 20 20 7d 0a 20 20 20 20 73 65 74 20 73 71 6c 20    }.    set sql 
8580: 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24 73 71  [string trim $sq
8590: 6c 74 61 69 6c 5d 0a 23 20 20 20 20 77 68 69 6c  ltail].#    whil
85a0: 65 20 7b 5b 73 71 6c 69 74 65 5f 73 74 65 70 20  e {[sqlite_step 
85b0: 24 76 6d 20 4e 20 56 41 4c 20 43 4f 4c 5d 3d 3d  $vm N VAL COL]==
85c0: 22 53 51 4c 49 54 45 5f 52 4f 57 22 7d 20 7b 0a  "SQLITE_ROW"} {.
85d0: 23 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 76  #      foreach v
85e0: 20 24 56 41 4c 20 7b 6c 61 70 70 65 6e 64 20 72   $VAL {lappend r
85f0: 20 24 76 7d 0a 23 20 20 20 20 7d 0a 20 20 20 20   $v}.#    }.    
8600: 77 68 69 6c 65 20 7b 5b 73 71 6c 69 74 65 33 5f  while {[sqlite3_
8610: 73 74 65 70 20 24 76 6d 5d 3d 3d 22 53 51 4c 49  step $vm]=="SQLI
8620: 54 45 5f 52 4f 57 22 7d 20 7b 0a 20 20 20 20 20  TE_ROW"} {.     
8630: 20 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b   for {set i 0} {
8640: 24 69 3c 5b 73 71 6c 69 74 65 33 5f 64 61 74 61  $i<[sqlite3_data
8650: 5f 63 6f 75 6e 74 20 24 76 6d 5d 7d 20 7b 69 6e  _count $vm]} {in
8660: 63 72 20 69 7d 20 7b 0a 20 20 20 20 20 20 20 20  cr i} {.        
8670: 6c 61 70 70 65 6e 64 20 72 20 5b 73 71 6c 69 74  lappend r [sqlit
8680: 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 20 24  e3_column_text $
8690: 76 6d 20 24 69 5d 0a 20 20 20 20 20 20 7d 0a 20  vm $i].      }. 
86a0: 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 5b 63 61     }.    if {[ca
86b0: 74 63 68 20 7b 73 71 6c 69 74 65 33 5f 66 69 6e  tch {sqlite3_fin
86c0: 61 6c 69 7a 65 20 24 76 6d 7d 20 65 72 72 6d 73  alize $vm} errms
86d0: 67 5d 7d 20 7b 0a 20 20 20 20 20 20 72 65 74 75  g]} {.      retu
86e0: 72 6e 20 5b 6c 69 73 74 20 31 20 24 65 72 72 6d  rn [list 1 $errm
86f0: 73 67 5d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20  sg].    }.  }.  
8700: 72 65 74 75 72 6e 20 24 72 0a 7d 0a 0a 23 20 44  return $r.}..# D
8710: 6f 20 61 6e 20 69 6e 74 65 67 72 69 74 79 20 63  o an integrity c
8720: 68 65 63 6b 20 6f 66 20 74 68 65 20 65 6e 74 69  heck of the enti
8730: 72 65 20 64 61 74 61 62 61 73 65 0a 23 0a 70 72  re database.#.pr
8740: 6f 63 20 69 6e 74 65 67 72 69 74 79 5f 63 68 65  oc integrity_che
8750: 63 6b 20 7b 6e 61 6d 65 20 7b 64 62 20 64 62 7d  ck {name {db db}
8760: 7d 20 7b 0a 20 20 69 66 63 61 70 61 62 6c 65 20  } {.  ifcapable 
8770: 69 6e 74 65 67 72 69 74 79 63 6b 20 7b 0a 20 20  integrityck {.  
8780: 20 20 64 6f 5f 74 65 73 74 20 24 6e 61 6d 65 20    do_test $name 
8790: 5b 6c 69 73 74 20 65 78 65 63 73 71 6c 20 7b 50  [list execsql {P
87a0: 52 41 47 4d 41 20 69 6e 74 65 67 72 69 74 79 5f  RAGMA integrity_
87b0: 63 68 65 63 6b 7d 20 24 64 62 5d 20 7b 6f 6b 7d  check} $db] {ok}
87c0: 0a 20 20 7d 0a 7d 0a 0a 23 20 43 68 65 63 6b 20  .  }.}..# Check 
87d0: 74 68 65 20 65 78 74 65 6e 64 65 64 20 65 72 72  the extended err
87e0: 6f 72 20 63 6f 64 65 0a 23 0a 70 72 6f 63 20 76  or code.#.proc v
87f0: 65 72 69 66 79 5f 65 78 5f 65 72 72 63 6f 64 65  erify_ex_errcode
8800: 20 7b 6e 61 6d 65 20 65 78 70 65 63 74 65 64 20   {name expected 
8810: 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 64 6f 5f  {db db}} {.  do_
8820: 74 65 73 74 20 24 6e 61 6d 65 20 5b 6c 69 73 74  test $name [list
8830: 20 73 71 6c 69 74 65 33 5f 65 78 74 65 6e 64 65   sqlite3_extende
8840: 64 5f 65 72 72 63 6f 64 65 20 24 64 62 5d 20 24  d_errcode $db] $
8850: 65 78 70 65 63 74 65 64 0a 7d 0a 0a 0a 23 20 52  expected.}...# R
8860: 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 74 68  eturn true if th
8870: 65 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 20  e SQL statement 
8880: 70 61 73 73 65 64 20 61 73 20 74 68 65 20 73 65  passed as the se
8890: 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20 75 73  cond argument us
88a0: 65 73 20 61 0a 23 20 73 74 61 74 65 6d 65 6e 74  es a.# statement
88b0: 20 74 72 61 6e 73 61 63 74 69 6f 6e 2e 0a 23 0a   transaction..#.
88c0: 70 72 6f 63 20 73 71 6c 5f 75 73 65 73 5f 73 74  proc sql_uses_st
88d0: 6d 74 20 7b 64 62 20 73 71 6c 7d 20 7b 0a 20 20  mt {db sql} {.  
88e0: 73 65 74 20 73 74 6d 74 20 5b 73 71 6c 69 74 65  set stmt [sqlite
88f0: 33 5f 70 72 65 70 61 72 65 20 24 64 62 20 24 73  3_prepare $db $s
8900: 71 6c 20 2d 31 20 64 75 6d 6d 79 5d 0a 20 20 73  ql -1 dummy].  s
8910: 65 74 20 75 73 65 73 20 5b 75 73 65 73 5f 73 74  et uses [uses_st
8920: 6d 74 5f 6a 6f 75 72 6e 61 6c 20 24 73 74 6d 74  mt_journal $stmt
8930: 5d 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6e 61  ].  sqlite3_fina
8940: 6c 69 7a 65 20 24 73 74 6d 74 0a 20 20 72 65 74  lize $stmt.  ret
8950: 75 72 6e 20 24 75 73 65 73 0a 7d 0a 0a 70 72 6f  urn $uses.}..pro
8960: 63 20 66 69 78 5f 69 66 63 61 70 61 62 6c 65 5f  c fix_ifcapable_
8970: 65 78 70 72 20 7b 65 78 70 72 7d 20 7b 0a 20 20  expr {expr} {.  
8980: 73 65 74 20 72 65 74 20 22 22 0a 20 20 73 65 74  set ret "".  set
8990: 20 73 74 61 74 65 20 30 0a 20 20 66 6f 72 20 7b   state 0.  for {
89a0: 73 65 74 20 69 20 30 7d 20 7b 24 69 20 3c 20 5b  set i 0} {$i < [
89b0: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 65  string length $e
89c0: 78 70 72 5d 7d 20 7b 69 6e 63 72 20 69 7d 20 7b  xpr]} {incr i} {
89d0: 0a 20 20 20 20 73 65 74 20 63 68 61 72 20 5b 73  .    set char [s
89e0: 74 72 69 6e 67 20 72 61 6e 67 65 20 24 65 78 70  tring range $exp
89f0: 72 20 24 69 20 24 69 5d 0a 20 20 20 20 73 65 74  r $i $i].    set
8a00: 20 6e 65 77 73 74 61 74 65 20 5b 65 78 70 72 20   newstate [expr 
8a10: 7b 5b 73 74 72 69 6e 67 20 69 73 20 61 6c 6e 75  {[string is alnu
8a20: 6d 20 24 63 68 61 72 5d 20 7c 7c 20 24 63 68 61  m $char] || $cha
8a30: 72 20 65 71 20 22 5f 22 7d 5d 0a 20 20 20 20 69  r eq "_"}].    i
8a40: 66 20 7b 24 6e 65 77 73 74 61 74 65 20 26 26 20  f {$newstate && 
8a50: 21 24 73 74 61 74 65 7d 20 7b 0a 20 20 20 20 20  !$state} {.     
8a60: 20 61 70 70 65 6e 64 20 72 65 74 20 7b 24 3a 3a   append ret {$::
8a70: 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 28 7d  sqlite_options(}
8a80: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 21  .    }.    if {!
8a90: 24 6e 65 77 73 74 61 74 65 20 26 26 20 24 73 74  $newstate && $st
8aa0: 61 74 65 7d 20 7b 0a 20 20 20 20 20 20 61 70 70  ate} {.      app
8ab0: 65 6e 64 20 72 65 74 20 29 0a 20 20 20 20 7d 0a  end ret ).    }.
8ac0: 20 20 20 20 61 70 70 65 6e 64 20 72 65 74 20 24      append ret $
8ad0: 63 68 61 72 0a 20 20 20 20 73 65 74 20 73 74 61  char.    set sta
8ae0: 74 65 20 24 6e 65 77 73 74 61 74 65 0a 20 20 7d  te $newstate.  }
8af0: 0a 20 20 69 66 20 7b 24 73 74 61 74 65 7d 20 7b  .  if {$state} {
8b00: 61 70 70 65 6e 64 20 72 65 74 20 29 7d 0a 20 20  append ret )}.  
8b10: 72 65 74 75 72 6e 20 24 72 65 74 0a 7d 0a 0a 23  return $ret.}..#
8b20: 20 52 65 74 75 72 6e 73 20 6e 6f 6e 2d 7a 65 72   Returns non-zer
8b30: 6f 20 69 66 20 74 68 65 20 63 61 70 61 62 69 6c  o if the capabil
8b40: 69 74 69 65 73 20 61 72 65 20 70 72 65 73 65 6e  ities are presen
8b50: 74 3b 20 7a 65 72 6f 20 6f 74 68 65 72 77 69 73  t; zero otherwis
8b60: 65 2e 0a 23 0a 70 72 6f 63 20 63 61 70 61 62 6c  e..#.proc capabl
8b70: 65 20 7b 65 78 70 72 7d 20 7b 0a 20 20 73 65 74  e {expr} {.  set
8b80: 20 65 20 5b 66 69 78 5f 69 66 63 61 70 61 62 6c   e [fix_ifcapabl
8b90: 65 5f 65 78 70 72 20 24 65 78 70 72 5d 3b 20 72  e_expr $expr]; r
8ba0: 65 74 75 72 6e 20 5b 65 78 70 72 20 28 24 65 29  eturn [expr ($e)
8bb0: 5d 0a 7d 0a 0a 23 20 45 76 61 6c 75 61 74 65 20  ].}..# Evaluate 
8bc0: 61 20 62 6f 6f 6c 65 61 6e 20 65 78 70 72 65 73  a boolean expres
8bd0: 73 69 6f 6e 20 6f 66 20 63 61 70 61 62 69 6c 69  sion of capabili
8be0: 74 69 65 73 2e 20 20 49 66 20 74 72 75 65 2c 20  ties.  If true, 
8bf0: 65 78 65 63 75 74 65 20 74 68 65 0a 23 20 63 6f  execute the.# co
8c00: 64 65 2e 20 20 4f 6d 69 74 20 74 68 65 20 63 6f  de.  Omit the co
8c10: 64 65 20 69 66 20 66 61 6c 73 65 2e 0a 23 0a 70  de if false..#.p
8c20: 72 6f 63 20 69 66 63 61 70 61 62 6c 65 20 7b 65  roc ifcapable {e
8c30: 78 70 72 20 63 6f 64 65 20 7b 65 6c 73 65 20 22  xpr code {else "
8c40: 22 7d 20 7b 65 6c 73 65 63 6f 64 65 20 22 22 7d  "} {elsecode ""}
8c50: 7d 20 7b 0a 20 20 23 72 65 67 73 75 62 20 2d 61  } {.  #regsub -a
8c60: 6c 6c 20 7b 5b 61 2d 7a 5f 30 2d 39 5d 2b 7d 20  ll {[a-z_0-9]+} 
8c70: 24 65 78 70 72 20 7b 24 3a 3a 73 71 6c 69 74 65  $expr {$::sqlite
8c80: 5f 6f 70 74 69 6f 6e 73 28 26 29 7d 20 65 32 0a  _options(&)} e2.
8c90: 20 20 73 65 74 20 65 32 20 5b 66 69 78 5f 69 66    set e2 [fix_if
8ca0: 63 61 70 61 62 6c 65 5f 65 78 70 72 20 24 65 78  capable_expr $ex
8cb0: 70 72 5d 0a 20 20 69 66 20 28 24 65 32 29 20 7b  pr].  if ($e2) {
8cc0: 0a 20 20 20 20 73 65 74 20 63 20 5b 63 61 74 63  .    set c [catc
8cd0: 68 20 7b 75 70 6c 65 76 65 6c 20 31 20 24 63 6f  h {uplevel 1 $co
8ce0: 64 65 7d 20 72 5d 0a 20 20 7d 20 65 6c 73 65 20  de} r].  } else 
8cf0: 7b 0a 20 20 20 20 73 65 74 20 63 20 5b 63 61 74  {.    set c [cat
8d00: 63 68 20 7b 75 70 6c 65 76 65 6c 20 31 20 24 65  ch {uplevel 1 $e
8d10: 6c 73 65 63 6f 64 65 7d 20 72 5d 0a 20 20 7d 0a  lsecode} r].  }.
8d20: 20 20 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 24    return -code $
8d30: 63 20 24 72 0a 7d 0a 0a 23 20 54 68 69 73 20 70  c $r.}..# This p
8d40: 72 6f 63 20 65 78 65 63 73 20 61 20 73 65 70 65  roc execs a sepe
8d50: 72 61 74 65 20 70 72 6f 63 65 73 73 20 74 68 61  rate process tha
8d60: 74 20 63 72 61 73 68 65 73 20 6d 69 64 77 61 79  t crashes midway
8d70: 20 74 68 72 6f 75 67 68 20 65 78 65 63 75 74 69   through executi
8d80: 6e 67 0a 23 20 74 68 65 20 53 51 4c 20 73 63 72  ng.# the SQL scr
8d90: 69 70 74 20 24 73 71 6c 20 6f 6e 20 64 61 74 61  ipt $sql on data
8da0: 62 61 73 65 20 74 65 73 74 2e 64 62 2e 0a 23 0a  base test.db..#.
8db0: 23 20 54 68 65 20 63 72 61 73 68 20 6f 63 63 75  # The crash occu
8dc0: 72 73 20 64 75 72 69 6e 67 20 61 20 73 79 6e 63  rs during a sync
8dd0: 28 29 20 6f 66 20 66 69 6c 65 20 24 63 72 61 73  () of file $cras
8de0: 68 66 69 6c 65 2e 20 57 68 65 6e 20 74 68 65 20  hfile. When the 
8df0: 63 72 61 73 68 0a 23 20 6f 63 63 75 72 73 20 61  crash.# occurs a
8e00: 20 72 61 6e 64 6f 6d 20 73 75 62 73 65 74 20 6f   random subset o
8e10: 66 20 61 6c 6c 20 75 6e 73 79 6e 63 65 64 20 77  f all unsynced w
8e20: 72 69 74 65 73 20 6d 61 64 65 20 62 79 20 74 68  rites made by th
8e30: 65 20 70 72 6f 63 65 73 73 20 61 72 65 0a 23 20  e process are.# 
8e40: 77 72 69 74 74 65 6e 20 69 6e 74 6f 20 74 68 65  written into the
8e50: 20 66 69 6c 65 73 20 6f 6e 20 64 69 73 6b 2e 20   files on disk. 
8e60: 41 72 67 75 6d 65 6e 74 20 24 63 72 61 73 68 64  Argument $crashd
8e70: 65 6c 61 79 20 69 6e 64 69 63 61 74 65 73 20 74  elay indicates t
8e80: 68 65 0a 23 20 6e 75 6d 62 65 72 20 6f 66 20 66  he.# number of f
8e90: 69 6c 65 20 73 79 6e 63 73 20 74 6f 20 77 61 69  ile syncs to wai
8ea0: 74 20 62 65 66 6f 72 65 20 63 72 61 73 68 69 6e  t before crashin
8eb0: 67 2e 0a 23 0a 23 20 54 68 65 20 72 65 74 75 72  g..#.# The retur
8ec0: 6e 20 76 61 6c 75 65 20 69 73 20 61 20 6c 69 73  n value is a lis
8ed0: 74 20 6f 66 20 74 77 6f 20 65 6c 65 6d 65 6e 74  t of two element
8ee0: 73 2e 20 54 68 65 20 66 69 72 73 74 20 65 6c 65  s. The first ele
8ef0: 6d 65 6e 74 20 69 73 20 61 0a 23 20 62 6f 6f 6c  ment is a.# bool
8f00: 65 61 6e 2c 20 69 6e 64 69 63 61 74 69 6e 67 20  ean, indicating 
8f10: 77 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 74  whether or not t
8f20: 68 65 20 70 72 6f 63 65 73 73 20 61 63 74 75 61  he process actua
8f30: 6c 6c 79 20 63 72 61 73 68 65 64 20 6f 72 0a 23  lly crashed or.#
8f40: 20 72 65 70 6f 72 74 65 64 20 73 6f 6d 65 20 6f   reported some o
8f50: 74 68 65 72 20 65 72 72 6f 72 2e 20 54 68 65 20  ther error. The 
8f60: 73 65 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 20 69  second element i
8f70: 6e 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 6c  n the returned l
8f80: 69 73 74 20 69 73 20 74 68 65 0a 23 20 65 72 72  ist is the.# err
8f90: 6f 72 20 6d 65 73 73 61 67 65 2e 20 54 68 69 73  or message. This
8fa0: 20 69 73 20 22 63 68 69 6c 64 20 70 72 6f 63 65   is "child proce
8fb0: 73 73 20 65 78 69 74 65 64 20 61 62 6e 6f 72 6d  ss exited abnorm
8fc0: 61 6c 6c 79 22 20 69 66 20 74 68 65 20 63 72 61  ally" if the cra
8fd0: 73 68 0a 23 20 6f 63 63 75 72 72 65 64 2e 0a 23  sh.# occurred..#
8fe0: 0a 23 20 20 20 63 72 61 73 68 73 71 6c 20 2d 64  .#   crashsql -d
8ff0: 65 6c 61 79 20 43 52 41 53 48 44 45 4c 41 59 20  elay CRASHDELAY 
9000: 2d 66 69 6c 65 20 43 52 41 53 48 46 49 4c 45 20  -file CRASHFILE 
9010: 3f 2d 62 6c 6f 63 6b 73 69 7a 65 20 42 4c 4f 43  ?-blocksize BLOC
9020: 4b 53 49 5a 45 3f 20 24 73 71 6c 0a 23 0a 70 72  KSIZE? $sql.#.pr
9030: 6f 63 20 63 72 61 73 68 73 71 6c 20 7b 61 72 67  oc crashsql {arg
9040: 73 7d 20 7b 0a 0a 20 20 73 65 74 20 62 6c 6f 63  s} {..  set bloc
9050: 6b 73 69 7a 65 20 22 22 0a 20 20 73 65 74 20 63  ksize "".  set c
9060: 72 61 73 68 64 65 6c 61 79 20 31 0a 20 20 73 65  rashdelay 1.  se
9070: 74 20 70 72 6e 67 73 65 65 64 20 30 0a 20 20 73  t prngseed 0.  s
9080: 65 74 20 6f 70 65 6e 64 62 20 7b 20 73 71 6c 69  et opendb { sqli
9090: 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 20 2d  te3 db test.db -
90a0: 76 66 73 20 63 72 61 73 68 20 7d 0a 20 20 73 65  vfs crash }.  se
90b0: 74 20 74 63 6c 62 6f 64 79 20 7b 7d 0a 20 20 73  t tclbody {}.  s
90c0: 65 74 20 63 72 61 73 68 66 69 6c 65 20 22 22 0a  et crashfile "".
90d0: 20 20 73 65 74 20 64 63 20 22 22 0a 20 20 73 65    set dc "".  se
90e0: 74 20 73 71 6c 20 5b 6c 69 6e 64 65 78 20 24 61  t sql [lindex $a
90f0: 72 67 73 20 65 6e 64 5d 0a 0a 20 20 66 6f 72 20  rgs end]..  for 
9100: 7b 73 65 74 20 69 69 20 30 7d 20 7b 24 69 69 20  {set ii 0} {$ii 
9110: 3c 20 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 73  < [llength $args
9120: 5d 2d 31 7d 20 7b 69 6e 63 72 20 69 69 20 32 7d  ]-1} {incr ii 2}
9130: 20 7b 0a 20 20 20 20 73 65 74 20 7a 20 5b 6c 69   {.    set z [li
9140: 6e 64 65 78 20 24 61 72 67 73 20 24 69 69 5d 0a  ndex $args $ii].
9150: 20 20 20 20 73 65 74 20 6e 20 5b 73 74 72 69 6e      set n [strin
9160: 67 20 6c 65 6e 67 74 68 20 24 7a 5d 0a 20 20 20  g length $z].   
9170: 20 73 65 74 20 7a 32 20 5b 6c 69 6e 64 65 78 20   set z2 [lindex 
9180: 24 61 72 67 73 20 5b 65 78 70 72 20 24 69 69 2b  $args [expr $ii+
9190: 31 5d 5d 0a 0a 20 20 20 20 69 66 20 20 20 20 20  1]]..    if     
91a0: 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e 67  {$n>1 && [string
91b0: 20 66 69 72 73 74 20 24 7a 20 2d 64 65 6c 61 79   first $z -delay
91c0: 5d 3d 3d 30 7d 20 20 20 20 20 7b 73 65 74 20 63  ]==0}     {set c
91d0: 72 61 73 68 64 65 6c 61 79 20 24 7a 32 7d 20 5c  rashdelay $z2} \
91e0: 0a 20 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e  .    elseif {$n>
91f0: 31 20 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72  1 && [string fir
9200: 73 74 20 24 7a 20 2d 6f 70 65 6e 64 62 5d 3d 3d  st $z -opendb]==
9210: 30 7d 20 20 20 20 7b 73 65 74 20 6f 70 65 6e 64  0}    {set opend
9220: 62 20 24 7a 32 7d 20 5c 0a 20 20 20 20 65 6c 73  b $z2} \.    els
9230: 65 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74  eif {$n>1 && [st
9240: 72 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d 73  ring first $z -s
9250: 65 65 64 5d 3d 3d 30 7d 20 20 20 20 20 20 7b 73  eed]==0}      {s
9260: 65 74 20 70 72 6e 67 73 65 65 64 20 24 7a 32 7d  et prngseed $z2}
9270: 20 5c 0a 20 20 20 20 65 6c 73 65 69 66 20 7b 24   \.    elseif {$
9280: 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e 67 20 66  n>1 && [string f
9290: 69 72 73 74 20 24 7a 20 2d 66 69 6c 65 5d 3d 3d  irst $z -file]==
92a0: 30 7d 20 20 20 20 20 20 7b 73 65 74 20 63 72 61  0}      {set cra
92b0: 73 68 66 69 6c 65 20 24 7a 32 7d 20 20 5c 0a 20  shfile $z2}  \. 
92c0: 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 20     elseif {$n>1 
92d0: 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74  && [string first
92e0: 20 24 7a 20 2d 74 63 6c 62 6f 64 79 5d 3d 3d 30   $z -tclbody]==0
92f0: 7d 20 20 20 7b 73 65 74 20 74 63 6c 62 6f 64 79  }   {set tclbody
9300: 20 24 7a 32 7d 20 20 5c 0a 20 20 20 20 65 6c 73   $z2}  \.    els
9310: 65 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74  eif {$n>1 && [st
9320: 72 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d 62  ring first $z -b
9330: 6c 6f 63 6b 73 69 7a 65 5d 3d 3d 30 7d 20 7b 73  locksize]==0} {s
9340: 65 74 20 62 6c 6f 63 6b 73 69 7a 65 20 22 2d 73  et blocksize "-s
9350: 20 24 7a 32 22 20 7d 20 5c 0a 20 20 20 20 65 6c   $z2" } \.    el
9360: 73 65 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73  seif {$n>1 && [s
9370: 74 72 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d  tring first $z -
9380: 63 68 61 72 61 63 74 65 72 69 73 74 69 63 73 5d  characteristics]
9390: 3d 3d 30 7d 20 7b 73 65 74 20 64 63 20 22 2d 63  ==0} {set dc "-c
93a0: 20 7b 24 7a 32 7d 22 20 7d 20 5c 0a 20 20 20 20   {$z2}" } \.    
93b0: 65 6c 73 65 20 20 20 7b 20 65 72 72 6f 72 20 22  else   { error "
93c0: 55 6e 72 65 63 6f 67 6e 69 7a 65 64 20 6f 70 74  Unrecognized opt
93d0: 69 6f 6e 3a 20 24 7a 22 20 7d 0a 20 20 7d 0a 0a  ion: $z" }.  }..
93e0: 20 20 69 66 20 7b 24 63 72 61 73 68 66 69 6c 65    if {$crashfile
93f0: 20 65 71 20 22 22 7d 20 7b 0a 20 20 20 20 65 72   eq ""} {.    er
9400: 72 6f 72 20 22 43 6f 6d 70 75 6c 73 6f 72 79 20  ror "Compulsory 
9410: 6f 70 74 69 6f 6e 20 2d 66 69 6c 65 20 6d 69 73  option -file mis
9420: 73 69 6e 67 22 0a 20 20 7d 0a 0a 20 20 23 20 24  sing".  }..  # $
9430: 63 72 61 73 68 66 69 6c 65 20 67 65 74 73 20 63  crashfile gets c
9440: 6f 6d 70 61 72 65 64 20 74 6f 20 74 68 65 20 6e  ompared to the n
9450: 61 74 69 76 65 20 66 69 6c 65 6e 61 6d 65 20 69  ative filename i
9460: 6e 0a 20 20 23 20 63 66 53 79 6e 63 28 29 2c 20  n.  # cfSync(), 
9470: 77 68 69 63 68 20 63 61 6e 20 62 65 20 64 69 66  which can be dif
9480: 66 65 72 65 6e 74 20 74 68 65 6e 20 77 68 61 74  ferent then what
9490: 20 54 43 4c 20 75 73 65 73 20 62 79 0a 20 20 23   TCL uses by.  #
94a0: 20 64 65 66 61 75 6c 74 2c 20 73 6f 20 68 65 72   default, so her
94b0: 65 20 77 65 20 66 6f 72 63 65 20 69 74 20 74 6f  e we force it to
94c0: 20 74 68 65 20 22 6e 61 74 69 76 65 6e 61 6d 65   the "nativename
94d0: 22 20 66 6f 72 6d 61 74 2e 0a 20 20 73 65 74 20  " format..  set 
94e0: 63 66 69 6c 65 20 5b 73 74 72 69 6e 67 20 6d 61  cfile [string ma
94f0: 70 20 7b 5c 5c 20 5c 5c 5c 5c 7d 20 5b 66 69 6c  p {\\ \\\\} [fil
9500: 65 20 6e 61 74 69 76 65 6e 61 6d 65 20 5b 66 69  e nativename [fi
9510: 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 5f 70 77 64  le join [get_pwd
9520: 5d 20 24 63 72 61 73 68 66 69 6c 65 5d 5d 5d 0a  ] $crashfile]]].
9530: 0a 20 20 73 65 74 20 66 20 5b 6f 70 65 6e 20 63  .  set f [open c
9540: 72 61 73 68 2e 74 63 6c 20 77 5d 0a 20 20 70 75  rash.tcl w].  pu
9550: 74 73 20 24 66 20 22 73 71 6c 69 74 65 33 5f 63  ts $f "sqlite3_c
9560: 72 61 73 68 5f 65 6e 61 62 6c 65 20 31 22 0a 20  rash_enable 1". 
9570: 20 70 75 74 73 20 24 66 20 22 73 71 6c 69 74 65   puts $f "sqlite
9580: 33 5f 63 72 61 73 68 70 61 72 61 6d 73 20 24 62  3_crashparams $b
9590: 6c 6f 63 6b 73 69 7a 65 20 24 64 63 20 24 63 72  locksize $dc $cr
95a0: 61 73 68 64 65 6c 61 79 20 24 63 66 69 6c 65 22  ashdelay $cfile"
95b0: 0a 20 20 70 75 74 73 20 24 66 20 22 73 71 6c 69  .  puts $f "sqli
95c0: 74 65 33 5f 74 65 73 74 5f 63 6f 6e 74 72 6f 6c  te3_test_control
95d0: 5f 70 65 6e 64 69 6e 67 5f 62 79 74 65 20 24 3a  _pending_byte $:
95e0: 3a 73 71 6c 69 74 65 5f 70 65 6e 64 69 6e 67 5f  :sqlite_pending_
95f0: 62 79 74 65 22 0a 20 20 70 75 74 73 20 24 66 20  byte".  puts $f 
9600: 24 6f 70 65 6e 64 62 20 0a 0a 20 20 23 20 54 68  $opendb ..  # Th
9610: 69 73 20 62 6c 6f 63 6b 20 73 65 74 73 20 74 68  is block sets th
9620: 65 20 63 61 63 68 65 20 73 69 7a 65 20 6f 66 20  e cache size of 
9630: 74 68 65 20 6d 61 69 6e 20 64 61 74 61 62 61 73  the main databas
9640: 65 20 74 6f 20 31 30 0a 20 20 23 20 70 61 67 65  e to 10.  # page
9650: 73 2e 20 54 68 69 73 20 69 73 20 64 6f 6e 65 20  s. This is done 
9660: 69 6e 20 63 61 73 65 20 74 68 65 20 62 75 69 6c  in case the buil
9670: 64 20 69 73 20 63 6f 6e 66 69 67 75 72 65 64 20  d is configured 
9680: 74 6f 20 6f 6d 69 74 0a 20 20 23 20 22 50 52 41  to omit.  # "PRA
9690: 47 4d 41 20 63 61 63 68 65 5f 73 69 7a 65 22 2e  GMA cache_size".
96a0: 0a 20 20 70 75 74 73 20 24 66 20 7b 64 62 20 65  .  puts $f {db e
96b0: 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52  val {SELECT * FR
96c0: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
96d0: 3b 7d 7d 0a 20 20 70 75 74 73 20 24 66 20 7b 73  ;}}.  puts $f {s
96e0: 65 74 20 62 74 20 5b 62 74 72 65 65 5f 66 72 6f  et bt [btree_fro
96f0: 6d 5f 64 62 20 64 62 5d 7d 0a 20 20 70 75 74 73  m_db db]}.  puts
9700: 20 24 66 20 7b 62 74 72 65 65 5f 73 65 74 5f 63   $f {btree_set_c
9710: 61 63 68 65 5f 73 69 7a 65 20 24 62 74 20 31 30  ache_size $bt 10
9720: 7d 0a 0a 20 20 69 66 20 7b 24 70 72 6e 67 73 65  }..  if {$prngse
9730: 65 64 7d 20 7b 0a 20 20 20 20 73 65 74 20 73 65  ed} {.    set se
9740: 65 64 20 5b 65 78 70 72 20 7b 24 70 72 6e 67 73  ed [expr {$prngs
9750: 65 65 64 25 31 30 30 30 37 2b 31 7d 5d 0a 20 20  eed%10007+1}].  
9760: 20 20 23 20 70 75 74 73 20 73 65 65 64 3d 24 73    # puts seed=$s
9770: 65 65 64 0a 20 20 20 20 70 75 74 73 20 24 66 20  eed.    puts $f 
9780: 22 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54  "db eval {SELECT
9790: 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 24 73 65 65   randomblob($see
97a0: 64 29 7d 22 0a 20 20 7d 0a 0a 20 20 69 66 20 7b  d)}".  }..  if {
97b0: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $
97c0: 74 63 6c 62 6f 64 79 5d 3e 30 7d 20 7b 0a 20 20  tclbody]>0} {.  
97d0: 20 20 70 75 74 73 20 24 66 20 24 74 63 6c 62 6f    puts $f $tclbo
97e0: 64 79 0a 20 20 7d 0a 20 20 69 66 20 7b 5b 73 74  dy.  }.  if {[st
97f0: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 73 71 6c  ring length $sql
9800: 5d 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73 20  ]>0} {.    puts 
9810: 24 66 20 22 64 62 20 65 76 61 6c 20 7b 22 0a 20  $f "db eval {". 
9820: 20 20 20 70 75 74 73 20 24 66 20 20 20 22 24 73     puts $f   "$s
9830: 71 6c 22 0a 20 20 20 20 70 75 74 73 20 24 66 20  ql".    puts $f 
9840: 22 7d 22 0a 20 20 7d 0a 20 20 63 6c 6f 73 65 20  "}".  }.  close 
9850: 24 66 0a 20 20 73 65 74 20 72 20 5b 63 61 74 63  $f.  set r [catc
9860: 68 20 7b 0a 20 20 20 20 65 78 65 63 20 5b 69 6e  h {.    exec [in
9870: 66 6f 20 6e 61 6d 65 6f 66 65 78 65 63 5d 20 63  fo nameofexec] c
9880: 72 61 73 68 2e 74 63 6c 20 3e 40 73 74 64 6f 75  rash.tcl >@stdou
9890: 74 0a 20 20 7d 20 6d 73 67 5d 0a 0a 20 20 23 20  t.  } msg]..  # 
98a0: 57 69 6e 64 6f 77 73 2f 41 63 74 69 76 65 53 74  Windows/ActiveSt
98b0: 61 74 65 20 54 43 4c 20 72 65 74 75 72 6e 73 20  ate TCL returns 
98c0: 61 20 73 6c 69 67 68 74 6c 79 20 64 69 66 66 65  a slightly diffe
98d0: 72 65 6e 74 0a 20 20 23 20 65 72 72 6f 72 20 6d  rent.  # error m
98e0: 65 73 73 61 67 65 2e 20 20 57 65 20 6d 61 70 20  essage.  We map 
98f0: 74 68 61 74 20 74 6f 20 74 68 65 20 65 78 70 65  that to the expe
9900: 63 74 65 64 20 6d 65 73 73 61 67 65 0a 20 20 23  cted message.  #
9910: 20 73 6f 20 74 68 61 74 20 77 65 20 64 6f 6e 27   so that we don'
9920: 74 20 68 61 76 65 20 74 6f 20 63 68 61 6e 67 65  t have to change
9930: 20 61 6c 6c 20 6f 66 20 74 68 65 20 74 65 73 74   all of the test
9940: 0a 20 20 23 20 63 61 73 65 73 2e 0a 20 20 69 66  .  # cases..  if
9950: 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72   {$::tcl_platfor
9960: 6d 28 70 6c 61 74 66 6f 72 6d 29 3d 3d 22 77 69  m(platform)=="wi
9970: 6e 64 6f 77 73 22 7d 20 7b 0a 20 20 20 20 69 66  ndows"} {.    if
9980: 20 7b 24 6d 73 67 3d 3d 22 63 68 69 6c 64 20 6b   {$msg=="child k
9990: 69 6c 6c 65 64 3a 20 75 6e 6b 6e 6f 77 6e 20 73  illed: unknown s
99a0: 69 67 6e 61 6c 22 7d 20 7b 0a 20 20 20 20 20 20  ignal"} {.      
99b0: 73 65 74 20 6d 73 67 20 22 63 68 69 6c 64 20 70  set msg "child p
99c0: 72 6f 63 65 73 73 20 65 78 69 74 65 64 20 61 62  rocess exited ab
99d0: 6e 6f 72 6d 61 6c 6c 79 22 0a 20 20 20 20 7d 0a  normally".    }.
99e0: 20 20 7d 0a 0a 20 20 6c 61 70 70 65 6e 64 20 72    }..  lappend r
99f0: 20 24 6d 73 67 0a 7d 0a 0a 70 72 6f 63 20 72 75   $msg.}..proc ru
9a00: 6e 5f 69 6f 65 72 72 5f 70 72 65 70 20 7b 7d 20  n_ioerr_prep {} 
9a10: 7b 0a 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65  {.  set ::sqlite
9a20: 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e  _io_error_pendin
9a30: 67 20 30 0a 20 20 63 61 74 63 68 20 7b 64 62 20  g 0.  catch {db 
9a40: 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68 20 7b  close}.  catch {
9a50: 64 62 32 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74  db2 close}.  cat
9a60: 63 68 20 7b 66 6f 72 63 65 64 65 6c 65 74 65 20  ch {forcedelete 
9a70: 74 65 73 74 2e 64 62 7d 0a 20 20 63 61 74 63 68  test.db}.  catch
9a80: 20 7b 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65   {forcedelete te
9a90: 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c 7d 0a 20  st.db-journal}. 
9aa0: 20 63 61 74 63 68 20 7b 66 6f 72 63 65 64 65 6c   catch {forcedel
9ab0: 65 74 65 20 74 65 73 74 32 2e 64 62 7d 0a 20 20  ete test2.db}.  
9ac0: 63 61 74 63 68 20 7b 66 6f 72 63 65 64 65 6c 65  catch {forcedele
9ad0: 74 65 20 74 65 73 74 32 2e 64 62 2d 6a 6f 75 72  te test2.db-jour
9ae0: 6e 61 6c 7d 0a 20 20 73 65 74 20 3a 3a 44 42 20  nal}.  set ::DB 
9af0: 5b 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74  [sqlite3 db test
9b00: 2e 64 62 3b 20 73 71 6c 69 74 65 33 5f 63 6f 6e  .db; sqlite3_con
9b10: 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20  nection_pointer 
9b20: 64 62 5d 0a 20 20 73 71 6c 69 74 65 33 5f 65 78  db].  sqlite3_ex
9b30: 74 65 6e 64 65 64 5f 72 65 73 75 6c 74 5f 63 6f  tended_result_co
9b40: 64 65 73 20 24 3a 3a 44 42 20 24 3a 3a 69 6f 65  des $::DB $::ioe
9b50: 72 72 6f 70 74 73 28 2d 65 72 63 29 0a 20 20 69  rropts(-erc).  i
9b60: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
9b70: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 74 63 6c  ::ioerropts(-tcl
9b80: 70 72 65 70 29 5d 7d 20 7b 0a 20 20 20 20 65 76  prep)]} {.    ev
9b90: 61 6c 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28  al $::ioerropts(
9ba0: 2d 74 63 6c 70 72 65 70 29 0a 20 20 7d 0a 20 20  -tclprep).  }.  
9bb0: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
9bc0: 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73 71   ::ioerropts(-sq
9bd0: 6c 70 72 65 70 29 5d 7d 20 7b 0a 20 20 20 20 65  lprep)]} {.    e
9be0: 78 65 63 73 71 6c 20 24 3a 3a 69 6f 65 72 72 6f  xecsql $::ioerro
9bf0: 70 74 73 28 2d 73 71 6c 70 72 65 70 29 0a 20 20  pts(-sqlprep).  
9c00: 7d 0a 20 20 65 78 70 72 20 30 0a 7d 0a 0a 23 20  }.  expr 0.}..# 
9c10: 55 73 61 67 65 3a 20 64 6f 5f 69 6f 65 72 72 5f  Usage: do_ioerr_
9c20: 74 65 73 74 20 3c 74 65 73 74 20 6e 75 6d 62 65  test <test numbe
9c30: 72 3e 20 3c 6f 70 74 69 6f 6e 73 2e 2e 2e 3e 0a  r> <options...>.
9c40: 23 0a 23 20 54 68 69 73 20 70 72 6f 63 20 69 73  #.# This proc is
9c50: 20 75 73 65 64 20 74 6f 20 69 6d 70 6c 65 6d 65   used to impleme
9c60: 6e 74 20 74 65 73 74 20 63 61 73 65 73 20 74 68  nt test cases th
9c70: 61 74 20 63 68 65 63 6b 20 74 68 61 74 20 49 4f  at check that IO
9c80: 20 65 72 72 6f 72 73 0a 23 20 61 72 65 20 63 6f   errors.# are co
9c90: 72 72 65 63 74 6c 79 20 68 61 6e 64 6c 65 64 2e  rrectly handled.
9ca0: 20 54 68 65 20 66 69 72 73 74 20 61 72 67 75 6d   The first argum
9cb0: 65 6e 74 2c 20 3c 74 65 73 74 20 6e 75 6d 62 65  ent, <test numbe
9cc0: 72 3e 2c 20 69 73 20 61 6e 20 69 6e 74 65 67 65  r>, is an intege
9cd0: 72 0a 23 20 75 73 65 64 20 74 6f 20 6e 61 6d 65  r.# used to name
9ce0: 20 74 68 65 20 74 65 73 74 73 20 65 78 65 63 75   the tests execu
9cf0: 74 65 64 20 62 79 20 74 68 69 73 20 70 72 6f 63  ted by this proc
9d00: 2e 20 4f 70 74 69 6f 6e 73 20 61 72 65 20 61 73  . Options are as
9d10: 20 66 6f 6c 6c 6f 77 73 3a 0a 23 0a 23 20 20 20   follows:.#.#   
9d20: 20 20 2d 74 63 6c 70 72 65 70 20 20 20 20 20 20    -tclprep      
9d30: 20 20 20 20 54 43 4c 20 73 63 72 69 70 74 20 74      TCL script t
9d40: 6f 20 72 75 6e 20 74 6f 20 70 72 65 70 61 72 65  o run to prepare
9d50: 20 74 65 73 74 2e 0a 23 20 20 20 20 20 2d 73 71   test..#     -sq
9d60: 6c 70 72 65 70 20 20 20 20 20 20 20 20 20 20 53  lprep          S
9d70: 51 4c 20 73 63 72 69 70 74 20 74 6f 20 72 75 6e  QL script to run
9d80: 20 74 6f 20 70 72 65 70 61 72 65 20 74 65 73 74   to prepare test
9d90: 2e 0a 23 20 20 20 20 20 2d 74 63 6c 62 6f 64 79  ..#     -tclbody
9da0: 20 20 20 20 20 20 20 20 20 20 54 43 4c 20 73 63            TCL sc
9db0: 72 69 70 74 20 74 6f 20 72 75 6e 20 77 69 74 68  ript to run with
9dc0: 20 49 4f 20 65 72 72 6f 72 20 73 69 6d 75 6c 61   IO error simula
9dd0: 74 69 6f 6e 2e 0a 23 20 20 20 20 20 2d 73 71 6c  tion..#     -sql
9de0: 62 6f 64 79 20 20 20 20 20 20 20 20 20 20 54 43  body          TC
9df0: 4c 20 73 63 72 69 70 74 20 74 6f 20 72 75 6e 20  L script to run 
9e00: 77 69 74 68 20 49 4f 20 65 72 72 6f 72 20 73 69  with IO error si
9e10: 6d 75 6c 61 74 69 6f 6e 2e 0a 23 20 20 20 20 20  mulation..#     
9e20: 2d 65 78 63 6c 75 64 65 20 20 20 20 20 20 20 20  -exclude        
9e30: 20 20 4c 69 73 74 20 6f 66 20 27 4e 27 20 76 61    List of 'N' va
9e40: 6c 75 65 73 20 6e 6f 74 20 74 6f 20 74 65 73 74  lues not to test
9e50: 2e 0a 23 20 20 20 20 20 2d 65 72 63 20 20 20 20  ..#     -erc    
9e60: 20 20 20 20 20 20 20 20 20 20 55 73 65 20 65 78            Use ex
9e70: 74 65 6e 64 65 64 20 72 65 73 75 6c 74 20 63 6f  tended result co
9e80: 64 65 73 0a 23 20 20 20 20 20 2d 70 65 72 73 69  des.#     -persi
9e90: 73 74 20 20 20 20 20 20 20 20 20 20 4d 61 6b 65  st          Make
9ea0: 20 73 69 6d 75 6c 61 74 65 64 20 49 2f 4f 20 65   simulated I/O e
9eb0: 72 72 6f 72 73 20 70 65 72 73 69 73 74 65 6e 74  rrors persistent
9ec0: 0a 23 20 20 20 20 20 2d 73 74 61 72 74 20 20 20  .#     -start   
9ed0: 20 20 20 20 20 20 20 20 20 56 61 6c 75 65 20 6f           Value o
9ee0: 66 20 27 4e 27 20 74 6f 20 62 65 67 69 6e 20 77  f 'N' to begin w
9ef0: 69 74 68 20 28 64 65 66 61 75 6c 74 20 31 29 0a  ith (default 1).
9f00: 23 0a 23 20 20 20 20 20 2d 63 6b 73 75 6d 20 20  #.#     -cksum  
9f10: 20 20 20 20 20 20 20 20 20 20 42 6f 6f 6c 65 61            Boolea
9f20: 6e 2e 20 49 66 20 74 72 75 65 2c 20 74 65 73 74  n. If true, test
9f30: 20 74 68 61 74 20 74 68 65 20 64 61 74 61 62 61   that the databa
9f40: 73 65 20 64 6f 65 73 0a 23 20 20 20 20 20 20 20  se does.#       
9f50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9f60: 6e 6f 74 20 63 68 61 6e 67 65 20 64 75 72 69 6e  not change durin
9f70: 67 20 74 68 65 20 65 78 65 63 75 74 69 6f 6e 20  g the execution 
9f80: 6f 66 20 74 68 65 20 74 65 73 74 20 63 61 73 65  of the test case
9f90: 2e 0a 23 0a 70 72 6f 63 20 64 6f 5f 69 6f 65 72  ..#.proc do_ioer
9fa0: 72 5f 74 65 73 74 20 7b 74 65 73 74 6e 61 6d 65  r_test {testname
9fb0: 20 61 72 67 73 7d 20 7b 0a 0a 20 20 73 65 74 20   args} {..  set 
9fc0: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73 74 61  ::ioerropts(-sta
9fd0: 72 74 29 20 31 0a 20 20 73 65 74 20 3a 3a 69 6f  rt) 1.  set ::io
9fe0: 65 72 72 6f 70 74 73 28 2d 63 6b 73 75 6d 29 20  erropts(-cksum) 
9ff0: 30 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f  0.  set ::ioerro
a000: 70 74 73 28 2d 65 72 63 29 20 30 0a 20 20 73 65  pts(-erc) 0.  se
a010: 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63  t ::ioerropts(-c
a020: 6f 75 6e 74 29 20 31 30 30 30 30 30 30 30 30 0a  ount) 100000000.
a030: 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74    set ::ioerropt
a040: 73 28 2d 70 65 72 73 69 73 74 29 20 31 0a 20 20  s(-persist) 1.  
a050: 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28  set ::ioerropts(
a060: 2d 63 6b 72 65 66 63 6f 75 6e 74 29 20 30 0a 20  -ckrefcount) 0. 
a070: 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73   set ::ioerropts
a080: 28 2d 72 65 73 74 6f 72 65 70 72 6e 67 29 20 31  (-restoreprng) 1
a090: 0a 20 20 61 72 72 61 79 20 73 65 74 20 3a 3a 69  .  array set ::i
a0a0: 6f 65 72 72 6f 70 74 73 20 24 61 72 67 73 0a 0a  oerropts $args..
a0b0: 20 20 23 20 54 45 4d 50 4f 52 41 52 59 3a 20 46    # TEMPORARY: F
a0c0: 6f 72 20 33 2e 35 2e 39 2c 20 64 69 73 61 62 6c  or 3.5.9, disabl
a0d0: 65 20 74 65 73 74 69 6e 67 20 6f 66 20 65 78 74  e testing of ext
a0e0: 65 6e 64 65 64 20 72 65 73 75 6c 74 20 63 6f 64  ended result cod
a0f0: 65 73 2e 20 54 68 65 72 65 20 61 72 65 0a 20 20  es. There are.  
a100: 23 20 61 20 63 6f 75 70 6c 65 20 6f 66 20 6f 62  # a couple of ob
a110: 73 63 75 72 65 20 49 4f 20 65 72 72 6f 72 73 20  scure IO errors 
a120: 74 68 61 74 20 64 6f 20 6e 6f 74 20 72 65 74 75  that do not retu
a130: 72 6e 20 74 68 65 6d 2e 0a 20 20 73 65 74 20 3a  rn them..  set :
a140: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 65 72 63 29  :ioerropts(-erc)
a150: 20 30 0a 0a 20 20 23 20 43 72 65 61 74 65 20 61   0..  # Create a
a160: 20 73 69 6e 67 6c 65 20 54 43 4c 20 73 63 72 69   single TCL scri
a170: 70 74 20 66 72 6f 6d 20 74 68 65 20 54 43 4c 20  pt from the TCL 
a180: 61 6e 64 20 53 51 4c 20 73 70 65 63 69 66 69 65  and SQL specifie
a190: 64 0a 20 20 23 20 61 73 20 74 68 65 20 62 6f 64  d.  # as the bod
a1a0: 79 20 6f 66 20 74 68 65 20 74 65 73 74 2e 0a 20  y of the test.. 
a1b0: 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 72 62 6f   set ::ioerrorbo
a1c0: 64 79 20 7b 7d 0a 20 20 69 66 20 7b 5b 69 6e 66  dy {}.  if {[inf
a1d0: 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72  o exists ::ioerr
a1e0: 6f 70 74 73 28 2d 74 63 6c 62 6f 64 79 29 5d 7d  opts(-tclbody)]}
a1f0: 20 7b 0a 20 20 20 20 61 70 70 65 6e 64 20 3a 3a   {.    append ::
a200: 69 6f 65 72 72 6f 72 62 6f 64 79 20 22 24 3a 3a  ioerrorbody "$::
a210: 69 6f 65 72 72 6f 70 74 73 28 2d 74 63 6c 62 6f  ioerropts(-tclbo
a220: 64 79 29 5c 6e 22 0a 20 20 7d 0a 20 20 69 66 20  dy)\n".  }.  if 
a230: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
a240: 69 6f 65 72 72 6f 70 74 73 28 2d 73 71 6c 62 6f  ioerropts(-sqlbo
a250: 64 79 29 5d 7d 20 7b 0a 20 20 20 20 61 70 70 65  dy)]} {.    appe
a260: 6e 64 20 3a 3a 69 6f 65 72 72 6f 72 62 6f 64 79  nd ::ioerrorbody
a270: 20 22 64 62 20 65 76 61 6c 20 7b 24 3a 3a 69 6f   "db eval {$::io
a280: 65 72 72 6f 70 74 73 28 2d 73 71 6c 62 6f 64 79  erropts(-sqlbody
a290: 29 7d 22 0a 20 20 7d 0a 0a 20 20 73 61 76 65 5f  )}".  }..  save_
a2a0: 70 72 6e 67 5f 73 74 61 74 65 0a 20 20 69 66 20  prng_state.  if 
a2b0: 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63  {$::ioerropts(-c
a2c0: 6b 73 75 6d 29 7d 20 7b 0a 20 20 20 20 72 75 6e  ksum)} {.    run
a2d0: 5f 69 6f 65 72 72 5f 70 72 65 70 0a 20 20 20 20  _ioerr_prep.    
a2e0: 65 76 61 6c 20 24 3a 3a 69 6f 65 72 72 6f 72 62  eval $::ioerrorb
a2f0: 6f 64 79 0a 20 20 20 20 73 65 74 20 3a 3a 67 6f  ody.    set ::go
a300: 6f 64 63 6b 73 75 6d 20 5b 63 6b 73 75 6d 5d 0a  odcksum [cksum].
a310: 20 20 7d 0a 0a 20 20 73 65 74 20 3a 3a 67 6f 20    }..  set ::go 
a320: 31 0a 20 20 23 72 65 73 65 74 5f 70 72 6e 67 5f  1.  #reset_prng_
a330: 73 74 61 74 65 0a 20 20 66 6f 72 20 7b 73 65 74  state.  for {set
a340: 20 6e 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28   n $::ioerropts(
a350: 2d 73 74 61 72 74 29 7d 20 7b 24 3a 3a 67 6f 7d  -start)} {$::go}
a360: 20 7b 69 6e 63 72 20 6e 7d 20 7b 0a 20 20 20 20   {incr n} {.    
a370: 73 65 74 20 3a 3a 54 4e 20 24 6e 0a 20 20 20 20  set ::TN $n.    
a380: 69 6e 63 72 20 3a 3a 69 6f 65 72 72 6f 70 74 73  incr ::ioerropts
a390: 28 2d 63 6f 75 6e 74 29 20 2d 31 0a 20 20 20 20  (-count) -1.    
a3a0: 69 66 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73  if {$::ioerropts
a3b0: 28 2d 63 6f 75 6e 74 29 3c 30 7d 20 62 72 65 61  (-count)<0} brea
a3c0: 6b 0a 0a 20 20 20 20 23 20 53 6b 69 70 20 74 68  k..    # Skip th
a3d0: 69 73 20 49 4f 20 65 72 72 6f 72 20 69 66 20 69  is IO error if i
a3e0: 74 20 77 61 73 20 73 70 65 63 69 66 69 65 64 20  t was specified 
a3f0: 77 69 74 68 20 74 68 65 20 22 2d 65 78 63 6c 75  with the "-exclu
a400: 64 65 22 20 6f 70 74 69 6f 6e 2e 0a 20 20 20 20  de" option..    
a410: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
a420: 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 65 78   ::ioerropts(-ex
a430: 63 6c 75 64 65 29 5d 7d 20 7b 0a 20 20 20 20 20  clude)]} {.     
a440: 20 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 24 3a   if {[lsearch $:
a450: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 65 78 63 6c  :ioerropts(-excl
a460: 75 64 65 29 20 24 6e 5d 21 3d 2d 31 7d 20 63 6f  ude) $n]!=-1} co
a470: 6e 74 69 6e 75 65 0a 20 20 20 20 7d 0a 20 20 20  ntinue.    }.   
a480: 20 69 66 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74   if {$::ioerropt
a490: 73 28 2d 72 65 73 74 6f 72 65 70 72 6e 67 29 7d  s(-restoreprng)}
a4a0: 20 7b 0a 20 20 20 20 20 20 72 65 73 74 6f 72 65   {.      restore
a4b0: 5f 70 72 6e 67 5f 73 74 61 74 65 0a 20 20 20 20  _prng_state.    
a4c0: 7d 0a 0a 20 20 20 20 23 20 44 65 6c 65 74 65 20  }..    # Delete 
a4d0: 74 68 65 20 66 69 6c 65 73 20 74 65 73 74 2e 64  the files test.d
a4e0: 62 20 61 6e 64 20 74 65 73 74 32 2e 64 62 2c 20  b and test2.db, 
a4f0: 74 68 65 6e 20 65 78 65 63 75 74 65 20 74 68 65  then execute the
a500: 20 54 43 4c 20 61 6e 64 0a 20 20 20 20 23 20 53   TCL and.    # S
a510: 51 4c 20 28 69 6e 20 74 68 61 74 20 6f 72 64 65  QL (in that orde
a520: 72 29 20 74 6f 20 70 72 65 70 61 72 65 20 66 6f  r) to prepare fo
a530: 72 20 74 68 65 20 74 65 73 74 20 63 61 73 65 2e  r the test case.
a540: 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65  .    do_test $te
a550: 73 74 6e 61 6d 65 2e 24 6e 2e 31 20 7b 0a 20 20  stname.$n.1 {.  
a560: 20 20 20 20 72 75 6e 5f 69 6f 65 72 72 5f 70 72      run_ioerr_pr
a570: 65 70 0a 20 20 20 20 7d 20 7b 30 7d 0a 0a 20 20  ep.    } {0}..  
a580: 20 20 23 20 52 65 61 64 20 74 68 65 20 27 63 68    # Read the 'ch
a590: 65 63 6b 73 75 6d 27 20 6f 66 20 74 68 65 20 64  ecksum' of the d
a5a0: 61 74 61 62 61 73 65 2e 0a 20 20 20 20 69 66 20  atabase..    if 
a5b0: 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63  {$::ioerropts(-c
a5c0: 6b 73 75 6d 29 7d 20 7b 0a 20 20 20 20 20 20 73  ksum)} {.      s
a5d0: 65 74 20 3a 3a 63 68 65 63 6b 73 75 6d 20 5b 63  et ::checksum [c
a5e0: 6b 73 75 6d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20  ksum].    }..   
a5f0: 20 23 20 53 65 74 20 74 68 65 20 4e 74 68 20 49   # Set the Nth I
a600: 4f 20 65 72 72 6f 72 20 74 6f 20 66 61 69 6c 2e  O error to fail.
a610: 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65  .    do_test $te
a620: 73 74 6e 61 6d 65 2e 24 6e 2e 32 20 5b 73 75 62  stname.$n.2 [sub
a630: 73 74 20 7b 0a 20 20 20 20 20 20 73 65 74 20 3a  st {.      set :
a640: 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72  :sqlite_io_error
a650: 5f 70 65 72 73 69 73 74 20 24 3a 3a 69 6f 65 72  _persist $::ioer
a660: 72 6f 70 74 73 28 2d 70 65 72 73 69 73 74 29 0a  ropts(-persist).
a670: 20 20 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69        set ::sqli
a680: 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e 64  te_io_error_pend
a690: 69 6e 67 20 24 6e 0a 20 20 20 20 7d 5d 20 24 6e  ing $n.    }] $n
a6a0: 0a 0a 20 20 20 20 23 20 45 78 65 63 75 74 65 20  ..    # Execute 
a6b0: 74 68 65 20 54 43 4c 20 73 63 72 69 70 74 20 63  the TCL script c
a6c0: 72 65 61 74 65 64 20 66 6f 72 20 74 68 65 20 62  reated for the b
a6d0: 6f 64 79 20 6f 66 20 74 68 69 73 20 74 65 73 74  ody of this test
a6e0: 2e 20 49 66 0a 20 20 20 20 23 20 61 74 20 6c 65  . If.    # at le
a6f0: 61 73 74 20 4e 20 49 4f 20 6f 70 65 72 61 74 69  ast N IO operati
a700: 6f 6e 73 20 70 65 72 66 6f 72 6d 65 64 20 62 79  ons performed by
a710: 20 53 51 4c 69 74 65 20 61 73 20 61 20 72 65 73   SQLite as a res
a720: 75 6c 74 20 6f 66 0a 20 20 20 20 23 20 74 68 65  ult of.    # the
a730: 20 73 63 72 69 70 74 2c 20 74 68 65 20 4e 74 68   script, the Nth
a740: 20 77 69 6c 6c 20 66 61 69 6c 2e 0a 20 20 20 20   will fail..    
a750: 64 6f 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d  do_test $testnam
a760: 65 2e 24 6e 2e 33 20 7b 0a 20 20 20 20 20 20 73  e.$n.3 {.      s
a770: 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65  et ::sqlite_io_e
a780: 72 72 6f 72 5f 68 69 74 20 30 0a 20 20 20 20 20  rror_hit 0.     
a790: 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f   set ::sqlite_io
a7a0: 5f 65 72 72 6f 72 5f 68 61 72 64 68 69 74 20 30  _error_hardhit 0
a7b0: 0a 20 20 20 20 20 20 73 65 74 20 72 20 5b 63 61  .      set r [ca
a7c0: 74 63 68 20 24 3a 3a 69 6f 65 72 72 6f 72 62 6f  tch $::ioerrorbo
a7d0: 64 79 20 6d 73 67 5d 0a 20 20 20 20 20 20 73 65  dy msg].      se
a7e0: 74 20 3a 3a 65 72 72 73 65 65 6e 20 24 72 0a 20  t ::errseen $r. 
a7f0: 20 20 20 20 20 73 65 74 20 72 63 20 5b 73 71 6c       set rc [sql
a800: 69 74 65 33 5f 65 72 72 63 6f 64 65 20 24 3a 3a  ite3_errcode $::
a810: 44 42 5d 0a 20 20 20 20 20 20 69 66 20 7b 24 3a  DB].      if {$:
a820: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 65 72 63 29  :ioerropts(-erc)
a830: 7d 20 7b 0a 20 20 20 20 20 20 20 20 23 20 49 66  } {.        # If
a840: 20 77 65 20 61 72 65 20 69 6e 20 65 78 74 65 6e   we are in exten
a850: 64 65 64 20 72 65 73 75 6c 74 20 63 6f 64 65 20  ded result code 
a860: 6d 6f 64 65 2c 20 6d 61 6b 65 20 73 75 72 65 20  mode, make sure 
a870: 61 6c 6c 20 6f 66 20 74 68 65 0a 20 20 20 20 20  all of the.     
a880: 20 20 20 23 20 49 4f 45 52 52 73 20 77 65 20 67     # IOERRs we g
a890: 65 74 20 62 61 63 6b 20 72 65 61 6c 6c 79 20 64  et back really d
a8a0: 6f 20 68 61 76 65 20 74 68 65 69 72 20 65 78 74  o have their ext
a8b0: 65 6e 64 65 64 20 63 6f 64 65 20 76 61 6c 75 65  ended code value
a8c0: 73 2e 0a 20 20 20 20 20 20 20 20 23 20 49 66 20  s..        # If 
a8d0: 61 6e 20 65 78 74 65 6e 64 65 64 20 72 65 73 75  an extended resu
a8e0: 6c 74 20 63 6f 64 65 20 69 73 20 72 65 74 75 72  lt code is retur
a8f0: 6e 65 64 2c 20 74 68 65 20 73 71 6c 69 74 65 33  ned, the sqlite3
a900: 5f 65 72 72 63 6f 64 65 0a 20 20 20 20 20 20 20  _errcode.       
a910: 20 23 20 54 43 4c 63 6f 6d 6d 61 6e 64 20 77 69   # TCLcommand wi
a920: 6c 6c 20 72 65 74 75 72 6e 20 61 20 73 74 72 69  ll return a stri
a930: 6e 67 20 6f 66 20 74 68 65 20 66 6f 72 6d 3a 20  ng of the form: 
a940: 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 2b 6e 6e   SQLITE_IOERR+nn
a950: 6e 6e 0a 20 20 20 20 20 20 20 20 23 20 77 68 65  nn.        # whe
a960: 72 65 20 6e 6e 6e 6e 20 69 73 20 61 20 6e 75 6d  re nnnn is a num
a970: 62 65 72 0a 20 20 20 20 20 20 20 20 69 66 20 7b  ber.        if {
a980: 5b 72 65 67 65 78 70 20 7b 5e 53 51 4c 49 54 45  [regexp {^SQLITE
a990: 5f 49 4f 45 52 52 7d 20 24 72 63 5d 20 26 26 20  _IOERR} $rc] && 
a9a0: 21 5b 72 65 67 65 78 70 20 7b 49 4f 45 52 52 5c  ![regexp {IOERR\
a9b0: 2b 5c 64 7d 20 24 72 63 5d 7d 20 7b 0a 20 20 20  +\d} $rc]} {.   
a9c0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 72         return $r
a9d0: 63 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  c.        }.    
a9e0: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20    } else {.     
a9f0: 20 20 20 23 20 49 66 20 77 65 20 61 72 65 20 6e     # If we are n
aa00: 6f 74 20 69 6e 20 65 78 74 65 6e 64 65 64 20 72  ot in extended r
aa10: 65 73 75 6c 74 20 63 6f 64 65 20 6d 6f 64 65 2c  esult code mode,
aa20: 20 6d 61 6b 65 20 73 75 72 65 20 6e 6f 0a 20 20   make sure no.  
aa30: 20 20 20 20 20 20 23 20 65 78 74 65 6e 64 65 64        # extended
aa40: 20 65 72 72 6f 72 20 63 6f 64 65 73 20 61 72 65   error codes are
aa50: 20 72 65 74 75 72 6e 65 64 2e 0a 20 20 20 20 20   returned..     
aa60: 20 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20 7b     if {[regexp {
aa70: 5c 2b 5c 64 7d 20 24 72 63 5d 7d 20 7b 0a 20 20  \+\d} $rc]} {.  
aa80: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24          return $
aa90: 72 63 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20  rc.        }.   
aaa0: 20 20 20 7d 0a 20 20 20 20 20 20 23 20 54 68 65     }.      # The
aab0: 20 74 65 73 74 20 72 65 70 65 61 74 73 20 61 73   test repeats as
aac0: 20 6c 6f 6e 67 20 61 73 20 24 3a 3a 67 6f 20 69   long as $::go i
aad0: 73 20 6e 6f 6e 2d 7a 65 72 6f 2e 20 20 24 3a 3a  s non-zero.  $::
aae0: 67 6f 20 73 74 61 72 74 73 20 6f 75 74 0a 20 20  go starts out.  
aaf0: 20 20 20 20 23 20 61 73 20 31 2e 20 20 57 68 65      # as 1.  Whe
ab00: 6e 20 61 20 74 65 73 74 20 72 75 6e 73 20 74 6f  n a test runs to
ab10: 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 77 69 74 68   completion with
ab20: 6f 75 74 20 68 69 74 74 69 6e 67 20 61 6e 20 49  out hitting an I
ab30: 2f 4f 0a 20 20 20 20 20 20 23 20 65 72 72 6f 72  /O.      # error
ab40: 2c 20 74 68 61 74 20 6d 65 61 6e 73 20 74 68 65  , that means the
ab50: 72 65 20 69 73 20 6e 6f 20 70 6f 69 6e 74 20 69  re is no point i
ab60: 6e 20 63 6f 6e 74 69 6e 75 69 6e 67 20 77 69 74  n continuing wit
ab70: 68 20 74 68 69 73 20 74 65 73 74 0a 20 20 20 20  h this test.    
ab80: 20 20 23 20 63 61 73 65 20 73 6f 20 73 65 74 20    # case so set 
ab90: 24 3a 3a 67 6f 20 74 6f 20 7a 65 72 6f 2e 0a 20  $::go to zero.. 
aba0: 20 20 20 20 20 23 0a 20 20 20 20 20 20 69 66 20       #.      if 
abb0: 7b 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72  {$::sqlite_io_er
abc0: 72 6f 72 5f 70 65 6e 64 69 6e 67 3e 30 7d 20 7b  ror_pending>0} {
abd0: 0a 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 67  .        set ::g
abe0: 6f 20 30 0a 20 20 20 20 20 20 20 20 73 65 74 20  o 0.        set 
abf0: 71 20 30 0a 20 20 20 20 20 20 20 20 73 65 74 20  q 0.        set 
ac00: 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f  ::sqlite_io_erro
ac10: 72 5f 70 65 6e 64 69 6e 67 20 30 0a 20 20 20 20  r_pending 0.    
ac20: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20    } else {.     
ac30: 20 20 20 73 65 74 20 71 20 31 0a 20 20 20 20 20     set q 1.     
ac40: 20 7d 0a 0a 20 20 20 20 20 20 73 65 74 20 73 20   }..      set s 
ac50: 5b 65 78 70 72 20 24 3a 3a 73 71 6c 69 74 65 5f  [expr $::sqlite_
ac60: 69 6f 5f 65 72 72 6f 72 5f 68 69 74 3d 3d 30 5d  io_error_hit==0]
ac70: 0a 20 20 20 20 20 20 69 66 20 7b 24 3a 3a 73 71  .      if {$::sq
ac80: 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 69  lite_io_error_hi
ac90: 74 3e 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65  t>$::sqlite_io_e
aca0: 72 72 6f 72 5f 68 61 72 64 68 69 74 20 26 26 20  rror_hardhit && 
acb0: 24 72 3d 3d 30 7d 20 7b 0a 20 20 20 20 20 20 20  $r==0} {.       
acc0: 20 73 65 74 20 72 20 31 0a 20 20 20 20 20 20 7d   set r 1.      }
acd0: 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 73 71 6c  .      set ::sql
ace0: 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 69 74  ite_io_error_hit
acf0: 20 30 0a 0a 20 20 20 20 20 20 23 20 4f 6e 65 20   0..      # One 
ad00: 6f 66 20 74 77 6f 20 74 68 69 6e 67 73 20 6d 75  of two things mu
ad10: 73 74 20 68 61 76 65 20 68 61 70 70 65 6e 65 64  st have happened
ad20: 2e 20 65 69 74 68 65 72 0a 20 20 20 20 20 20 23  . either.      #
ad30: 20 20 20 31 2e 20 20 57 65 20 6e 65 76 65 72 20     1.  We never 
ad40: 68 69 74 20 74 68 65 20 49 4f 20 65 72 72 6f 72  hit the IO error
ad50: 20 61 6e 64 20 74 68 65 20 53 51 4c 20 72 65 74   and the SQL ret
ad60: 75 72 6e 65 64 20 4f 4b 0a 20 20 20 20 20 20 23  urned OK.      #
ad70: 20 20 20 32 2e 20 20 41 6e 20 49 4f 20 65 72 72     2.  An IO err
ad80: 6f 72 20 77 61 73 20 68 69 74 20 61 6e 64 20 74  or was hit and t
ad90: 68 65 20 53 51 4c 20 66 61 69 6c 65 64 0a 20 20  he SQL failed.  
ada0: 20 20 20 20 23 0a 20 20 20 20 20 20 23 70 75 74      #.      #put
adb0: 73 20 22 73 3d 24 73 20 72 3d 24 72 20 71 3d 24  s "s=$s r=$r q=$
adc0: 71 22 0a 20 20 20 20 20 20 65 78 70 72 20 7b 20  q".      expr { 
add0: 28 24 73 20 26 26 20 21 24 72 20 26 26 20 21 24  ($s && !$r && !$
ade0: 71 29 20 7c 7c 20 28 21 24 73 20 26 26 20 24 72  q) || (!$s && $r
adf0: 20 26 26 20 24 71 29 20 7d 0a 20 20 20 20 7d 20   && $q) }.    } 
ae00: 7b 31 7d 0a 0a 20 20 20 20 73 65 74 20 3a 3a 73  {1}..    set ::s
ae10: 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68  qlite_io_error_h
ae20: 69 74 20 30 0a 20 20 20 20 73 65 74 20 3a 3a 73  it 0.    set ::s
ae30: 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70  qlite_io_error_p
ae40: 65 6e 64 69 6e 67 20 30 0a 0a 20 20 20 20 23 20  ending 0..    # 
ae50: 43 68 65 63 6b 20 74 68 61 74 20 6e 6f 20 70 61  Check that no pa
ae60: 67 65 20 72 65 66 65 72 65 6e 63 65 73 20 77 65  ge references we
ae70: 72 65 20 6c 65 61 6b 65 64 2e 20 54 68 65 72 65  re leaked. There
ae80: 20 73 68 6f 75 6c 64 20 62 65 0a 20 20 20 20 23   should be.    #
ae90: 20 61 20 73 69 6e 67 6c 65 20 72 65 66 65 72 65   a single refere
aea0: 6e 63 65 20 69 66 20 74 68 65 72 65 20 69 73 20  nce if there is 
aeb0: 73 74 69 6c 6c 20 61 6e 20 61 63 74 69 76 65 20  still an active 
aec0: 74 72 61 6e 73 61 63 74 69 6f 6e 2c 0a 20 20 20  transaction,.   
aed0: 20 23 20 6f 72 20 7a 65 72 6f 20 6f 74 68 65 72   # or zero other
aee0: 77 69 73 65 2e 0a 20 20 20 20 23 0a 20 20 20 20  wise..    #.    
aef0: 23 20 55 50 44 41 54 45 3a 20 49 66 20 74 68 65  # UPDATE: If the
af00: 20 49 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 73   IO error occurs
af10: 20 61 66 74 65 72 20 61 20 27 42 45 47 49 4e 27   after a 'BEGIN'
af20: 20 62 75 74 20 62 65 66 6f 72 65 20 61 6e 79 0a   but before any.
af30: 20 20 20 20 23 20 6c 6f 63 6b 73 20 61 72 65 20      # locks are 
af40: 65 73 74 61 62 6c 69 73 68 65 64 20 6f 6e 20 64  established on d
af50: 61 74 61 62 61 73 65 20 66 69 6c 65 73 20 28 69  atabase files (i
af60: 2e 65 2e 20 69 66 20 74 68 65 20 65 72 72 6f 72  .e. if the error
af70: 0a 20 20 20 20 23 20 6f 63 63 75 72 73 20 77 68  .    # occurs wh
af80: 69 6c 65 20 61 74 74 65 6d 70 74 69 6e 67 20 74  ile attempting t
af90: 6f 20 64 65 74 65 63 74 20 61 20 68 6f 74 2d 6a  o detect a hot-j
afa0: 6f 75 72 6e 61 6c 20 66 69 6c 65 29 2c 20 74 68  ournal file), th
afb0: 65 6e 0a 20 20 20 20 23 20 74 68 65 72 65 20 6d  en.    # there m
afc0: 61 79 20 30 20 70 61 67 65 20 72 65 66 65 72 65  ay 0 page refere
afd0: 6e 63 65 73 20 61 6e 64 20 61 6e 20 61 63 74 69  nces and an acti
afe0: 76 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 61  ve transaction a
aff0: 63 63 6f 72 64 69 6e 67 0a 20 20 20 20 23 20 74  ccording.    # t
b000: 6f 20 5b 73 71 6c 69 74 65 33 5f 67 65 74 5f 61  o [sqlite3_get_a
b010: 75 74 6f 63 6f 6d 6d 69 74 5d 2e 0a 20 20 20 20  utocommit]..    
b020: 23 0a 20 20 20 20 69 66 20 7b 24 3a 3a 67 6f 20  #.    if {$::go 
b030: 26 26 20 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f  && $::sqlite_io_
b040: 65 72 72 6f 72 5f 68 61 72 64 68 69 74 20 26 26  error_hardhit &&
b050: 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63   $::ioerropts(-c
b060: 6b 72 65 66 63 6f 75 6e 74 29 7d 20 7b 0a 20 20  krefcount)} {.  
b070: 20 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73      do_test $tes
b080: 74 6e 61 6d 65 2e 24 6e 2e 34 20 7b 0a 20 20 20  tname.$n.4 {.   
b090: 20 20 20 20 20 73 65 74 20 62 74 20 5b 62 74 72       set bt [btr
b0a0: 65 65 5f 66 72 6f 6d 5f 64 62 20 64 62 5d 0a 20  ee_from_db db]. 
b0b0: 20 20 20 20 20 20 20 64 62 5f 65 6e 74 65 72 20         db_enter 
b0c0: 64 62 0a 20 20 20 20 20 20 20 20 61 72 72 61 79  db.        array
b0d0: 20 73 65 74 20 73 74 61 74 73 20 5b 62 74 72 65   set stats [btre
b0e0: 65 5f 70 61 67 65 72 5f 73 74 61 74 73 20 24 62  e_pager_stats $b
b0f0: 74 5d 0a 20 20 20 20 20 20 20 20 64 62 5f 6c 65  t].        db_le
b100: 61 76 65 20 64 62 0a 20 20 20 20 20 20 20 20 73  ave db.        s
b110: 65 74 20 6e 52 65 66 20 24 73 74 61 74 73 28 72  et nRef $stats(r
b120: 65 66 29 0a 20 20 20 20 20 20 20 20 65 78 70 72  ef).        expr
b130: 20 7b 24 6e 52 65 66 20 3d 3d 20 30 20 7c 7c 20   {$nRef == 0 || 
b140: 28 5b 73 71 6c 69 74 65 33 5f 67 65 74 5f 61 75  ([sqlite3_get_au
b150: 74 6f 63 6f 6d 6d 69 74 20 64 62 5d 3d 3d 30 20  tocommit db]==0 
b160: 26 26 20 24 6e 52 65 66 20 3d 3d 20 31 29 7d 0a  && $nRef == 1)}.
b170: 20 20 20 20 20 20 7d 20 7b 31 7d 0a 20 20 20 20        } {1}.    
b180: 7d 0a 0a 20 20 20 20 23 20 49 66 20 74 68 65 72  }..    # If ther
b190: 65 20 69 73 20 61 6e 20 6f 70 65 6e 20 64 61 74  e is an open dat
b1a0: 61 62 61 73 65 20 68 61 6e 64 6c 65 20 61 6e 64  abase handle and
b1b0: 20 6e 6f 20 6f 70 65 6e 20 74 72 61 6e 73 61 63   no open transac
b1c0: 74 69 6f 6e 2c 0a 20 20 20 20 23 20 61 6e 64 20  tion,.    # and 
b1d0: 74 68 65 20 70 61 67 65 72 20 69 73 20 6e 6f 74  the pager is not
b1e0: 20 72 75 6e 6e 69 6e 67 20 69 6e 20 65 78 63 6c   running in excl
b1f0: 75 73 69 76 65 2d 6c 6f 63 6b 69 6e 67 20 6d 6f  usive-locking mo
b200: 64 65 2c 0a 20 20 20 20 23 20 63 68 65 63 6b 20  de,.    # check 
b210: 74 68 61 74 20 74 68 65 20 70 61 67 65 72 20 69  that the pager i
b220: 73 20 69 6e 20 22 75 6e 6c 6f 63 6b 65 64 22 20  s in "unlocked" 
b230: 73 74 61 74 65 2e 20 54 68 65 6f 72 65 74 69 63  state. Theoretic
b240: 61 6c 6c 79 2c 0a 20 20 20 20 23 20 69 66 20 61  ally,.    # if a
b250: 20 63 61 6c 6c 20 74 6f 20 78 55 6e 6c 6f 63 6b   call to xUnlock
b260: 28 29 20 66 61 69 6c 65 64 20 64 75 65 20 74 6f  () failed due to
b270: 20 61 6e 20 49 4f 20 65 72 72 6f 72 20 74 68 65   an IO error the
b280: 20 75 6e 64 65 72 6c 79 69 6e 67 0a 20 20 20 20   underlying.    
b290: 23 20 66 69 6c 65 20 6d 61 79 20 73 74 69 6c 6c  # file may still
b2a0: 20 62 65 20 6c 6f 63 6b 65 64 2e 0a 20 20 20 20   be locked..    
b2b0: 23 0a 20 20 20 20 69 66 63 61 70 61 62 6c 65 20  #.    ifcapable 
b2c0: 70 72 61 67 6d 61 20 7b 0a 20 20 20 20 20 20 69  pragma {.      i
b2d0: 66 20 7b 20 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e  f { [info comman
b2e0: 64 73 20 64 62 5d 20 6e 65 20 22 22 0a 20 20 20  ds db] ne "".   
b2f0: 20 20 20 20 20 26 26 20 24 3a 3a 69 6f 65 72 72       && $::ioerr
b300: 6f 70 74 73 28 2d 63 6b 72 65 66 63 6f 75 6e 74  opts(-ckrefcount
b310: 29 0a 20 20 20 20 20 20 20 20 26 26 20 5b 64 62  ).        && [db
b320: 20 6f 6e 65 20 7b 70 72 61 67 6d 61 20 6c 6f 63   one {pragma loc
b330: 6b 69 6e 67 5f 6d 6f 64 65 7d 5d 20 65 71 20 22  king_mode}] eq "
b340: 6e 6f 72 6d 61 6c 22 0a 20 20 20 20 20 20 20 20  normal".        
b350: 26 26 20 5b 73 71 6c 69 74 65 33 5f 67 65 74 5f  && [sqlite3_get_
b360: 61 75 74 6f 63 6f 6d 6d 69 74 20 64 62 5d 0a 20  autocommit db]. 
b370: 20 20 20 20 20 7d 20 7b 0a 20 20 20 20 20 20 20       } {.       
b380: 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74 6e 61   do_test $testna
b390: 6d 65 2e 24 6e 2e 35 20 7b 0a 20 20 20 20 20 20  me.$n.5 {.      
b3a0: 20 20 20 20 73 65 74 20 62 74 20 5b 62 74 72 65      set bt [btre
b3b0: 65 5f 66 72 6f 6d 5f 64 62 20 64 62 5d 0a 20 20  e_from_db db].  
b3c0: 20 20 20 20 20 20 20 20 64 62 5f 65 6e 74 65 72          db_enter
b3d0: 20 64 62 0a 20 20 20 20 20 20 20 20 20 20 61 72   db.          ar
b3e0: 72 61 79 20 73 65 74 20 73 74 61 74 73 20 5b 62  ray set stats [b
b3f0: 74 72 65 65 5f 70 61 67 65 72 5f 73 74 61 74 73  tree_pager_stats
b400: 20 24 62 74 5d 0a 20 20 20 20 20 20 20 20 20 20   $bt].          
b410: 64 62 5f 6c 65 61 76 65 20 64 62 0a 20 20 20 20  db_leave db.    
b420: 20 20 20 20 20 20 73 65 74 20 73 74 61 74 73 28        set stats(
b430: 73 74 61 74 65 29 0a 20 20 20 20 20 20 20 20 7d  state).        }
b440: 20 30 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d   0.      }.    }
b450: 0a 0a 20 20 20 20 23 20 49 66 20 61 6e 20 49 4f  ..    # If an IO
b460: 20 65 72 72 6f 72 20 6f 63 63 75 72 72 65 64 2c   error occurred,
b470: 20 74 68 65 6e 20 74 68 65 20 63 68 65 63 6b 73   then the checks
b480: 75 6d 20 6f 66 20 74 68 65 20 64 61 74 61 62 61  um of the databa
b490: 73 65 20 73 68 6f 75 6c 64 0a 20 20 20 20 23 20  se should.    # 
b4a0: 62 65 20 74 68 65 20 73 61 6d 65 20 61 73 20 62  be the same as b
b4b0: 65 66 6f 72 65 20 74 68 65 20 73 63 72 69 70 74  efore the script
b4c0: 20 74 68 61 74 20 63 61 75 73 65 64 20 74 68 65   that caused the
b4d0: 20 49 4f 20 65 72 72 6f 72 20 77 61 73 20 72 75   IO error was ru
b4e0: 6e 2e 0a 20 20 20 20 23 0a 20 20 20 20 69 66 20  n..    #.    if 
b4f0: 7b 24 3a 3a 67 6f 20 26 26 20 24 3a 3a 73 71 6c  {$::go && $::sql
b500: 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72  ite_io_error_har
b510: 64 68 69 74 20 26 26 20 24 3a 3a 69 6f 65 72 72  dhit && $::ioerr
b520: 6f 70 74 73 28 2d 63 6b 73 75 6d 29 7d 20 7b 0a  opts(-cksum)} {.
b530: 20 20 20 20 20 20 64 6f 5f 74 65 73 74 20 24 74        do_test $t
b540: 65 73 74 6e 61 6d 65 2e 24 6e 2e 36 20 7b 0a 20  estname.$n.6 {. 
b550: 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 64 62         catch {db
b560: 20 63 6c 6f 73 65 7d 0a 20 20 20 20 20 20 20 20   close}.        
b570: 63 61 74 63 68 20 7b 64 62 32 20 63 6c 6f 73 65  catch {db2 close
b580: 7d 0a 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a  }.        set ::
b590: 44 42 20 5b 73 71 6c 69 74 65 33 20 64 62 20 74  DB [sqlite3 db t
b5a0: 65 73 74 2e 64 62 3b 20 73 71 6c 69 74 65 33 5f  est.db; sqlite3_
b5b0: 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74  connection_point
b5c0: 65 72 20 64 62 5d 0a 20 20 20 20 20 20 20 20 73  er db].        s
b5d0: 65 74 20 6e 6f 77 63 6b 73 75 6d 20 5b 63 6b 73  et nowcksum [cks
b5e0: 75 6d 5d 0a 20 20 20 20 20 20 20 20 73 65 74 20  um].        set 
b5f0: 72 65 73 20 5b 65 78 70 72 20 7b 24 6e 6f 77 63  res [expr {$nowc
b600: 6b 73 75 6d 3d 3d 24 3a 3a 63 68 65 63 6b 73 75  ksum==$::checksu
b610: 6d 20 7c 7c 20 24 6e 6f 77 63 6b 73 75 6d 3d 3d  m || $nowcksum==
b620: 24 3a 3a 67 6f 6f 64 63 6b 73 75 6d 7d 5d 0a 20  $::goodcksum}]. 
b630: 20 20 20 20 20 20 20 69 66 20 7b 24 72 65 73 3d         if {$res=
b640: 3d 30 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20  =0} {.          
b650: 70 75 74 73 20 22 6e 6f 77 3d 24 6e 6f 77 63 6b  puts "now=$nowck
b660: 73 75 6d 22 0a 20 20 20 20 20 20 20 20 20 20 70  sum".          p
b670: 75 74 73 20 22 74 68 65 3d 24 3a 3a 63 68 65 63  uts "the=$::chec
b680: 6b 73 75 6d 22 0a 20 20 20 20 20 20 20 20 20 20  ksum".          
b690: 70 75 74 73 20 22 66 77 64 3d 24 3a 3a 67 6f 6f  puts "fwd=$::goo
b6a0: 64 63 6b 73 75 6d 22 0a 20 20 20 20 20 20 20 20  dcksum".        
b6b0: 7d 0a 20 20 20 20 20 20 20 20 73 65 74 20 72 65  }.        set re
b6c0: 73 0a 20 20 20 20 20 20 7d 20 31 0a 20 20 20 20  s.      } 1.    
b6d0: 7d 0a 0a 20 20 20 20 73 65 74 20 3a 3a 73 71 6c  }..    set ::sql
b6e0: 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72  ite_io_error_har
b6f0: 64 68 69 74 20 30 0a 20 20 20 20 73 65 74 20 3a  dhit 0.    set :
b700: 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72  :sqlite_io_error
b710: 5f 70 65 6e 64 69 6e 67 20 30 0a 20 20 20 20 69  _pending 0.    i
b720: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
b730: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6c 65  ::ioerropts(-cle
b740: 61 6e 75 70 29 5d 7d 20 7b 0a 20 20 20 20 20 20  anup)]} {.      
b750: 63 61 74 63 68 20 24 3a 3a 69 6f 65 72 72 6f 70  catch $::ioerrop
b760: 74 73 28 2d 63 6c 65 61 6e 75 70 29 0a 20 20 20  ts(-cleanup).   
b770: 20 7d 0a 20 20 7d 0a 20 20 73 65 74 20 3a 3a 73   }.  }.  set ::s
b780: 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70  qlite_io_error_p
b790: 65 6e 64 69 6e 67 20 30 0a 20 20 73 65 74 20 3a  ending 0.  set :
b7a0: 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72  :sqlite_io_error
b7b0: 5f 70 65 72 73 69 73 74 20 30 0a 20 20 75 6e 73  _persist 0.  uns
b7c0: 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 0a 7d  et ::ioerropts.}
b7d0: 0a 0a 23 20 52 65 74 75 72 6e 20 61 20 63 68 65  ..# Return a che
b7e0: 63 6b 73 75 6d 20 62 61 73 65 64 20 6f 6e 20 74  cksum based on t
b7f0: 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74  he contents of t
b800: 68 65 20 6d 61 69 6e 20 64 61 74 61 62 61 73 65  he main database
b810: 20 61 73 73 6f 63 69 61 74 65 64 0a 23 20 77 69   associated.# wi
b820: 74 68 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 24 64  th connection $d
b830: 62 0a 23 0a 70 72 6f 63 20 63 6b 73 75 6d 20 7b  b.#.proc cksum {
b840: 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 73 65 74  {db db}} {.  set
b850: 20 74 78 74 20 5b 24 64 62 20 65 76 61 6c 20 7b   txt [$db eval {
b860: 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 6e 61  .      SELECT na
b870: 6d 65 2c 20 74 79 70 65 2c 20 73 71 6c 20 46 52  me, type, sql FR
b880: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
b890: 20 6f 72 64 65 72 20 62 79 20 6e 61 6d 65 0a 20   order by name. 
b8a0: 20 7d 5d 5c 6e 0a 20 20 66 6f 72 65 61 63 68 20   }]\n.  foreach 
b8b0: 74 62 6c 20 5b 24 64 62 20 65 76 61 6c 20 7b 0a  tbl [$db eval {.
b8c0: 20 20 20 20 20 20 53 45 4c 45 43 54 20 6e 61 6d        SELECT nam
b8d0: 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61  e FROM sqlite_ma
b8e0: 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65 3d  ster WHERE type=
b8f0: 27 74 61 62 6c 65 27 20 6f 72 64 65 72 20 62 79  'table' order by
b900: 20 6e 61 6d 65 0a 20 20 7d 5d 20 7b 0a 20 20 20   name.  }] {.   
b910: 20 61 70 70 65 6e 64 20 74 78 74 20 5b 24 64 62   append txt [$db
b920: 20 65 76 61 6c 20 22 53 45 4c 45 43 54 20 2a 20   eval "SELECT * 
b930: 46 52 4f 4d 20 24 74 62 6c 22 5d 5c 6e 0a 20 20  FROM $tbl"]\n.  
b940: 7d 0a 20 20 66 6f 72 65 61 63 68 20 70 72 61 67  }.  foreach prag
b950: 20 7b 64 65 66 61 75 6c 74 5f 73 79 6e 63 68 72   {default_synchr
b960: 6f 6e 6f 75 73 20 64 65 66 61 75 6c 74 5f 63 61  onous default_ca
b970: 63 68 65 5f 73 69 7a 65 7d 20 7b 0a 20 20 20 20  che_size} {.    
b980: 61 70 70 65 6e 64 20 74 78 74 20 24 70 72 61 67  append txt $prag
b990: 2d 5b 24 64 62 20 65 76 61 6c 20 22 50 52 41 47  -[$db eval "PRAG
b9a0: 4d 41 20 24 70 72 61 67 22 5d 5c 6e 0a 20 20 7d  MA $prag"]\n.  }
b9b0: 0a 20 20 73 65 74 20 63 6b 73 75 6d 20 5b 73 74  .  set cksum [st
b9c0: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 74 78 74  ring length $txt
b9d0: 5d 2d 5b 6d 64 35 20 24 74 78 74 5d 0a 20 20 23  ]-[md5 $txt].  #
b9e0: 20 70 75 74 73 20 24 63 6b 73 75 6d 2d 5b 66 69   puts $cksum-[fi
b9f0: 6c 65 20 73 69 7a 65 20 74 65 73 74 2e 64 62 5d  le size test.db]
ba00: 0a 20 20 72 65 74 75 72 6e 20 24 63 6b 73 75 6d  .  return $cksum
ba10: 0a 7d 0a 0a 23 20 47 65 6e 65 72 61 74 65 20 61  .}..# Generate a
ba20: 20 63 68 65 63 6b 73 75 6d 20 62 61 73 65 64 20   checksum based 
ba30: 6f 6e 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20  on the contents 
ba40: 6f 66 20 74 68 65 20 6d 61 69 6e 20 61 6e 64 20  of the main and 
ba50: 74 65 6d 70 20 74 61 62 6c 65 73 0a 23 20 64 61  temp tables.# da
ba60: 74 61 62 61 73 65 20 24 64 62 2e 20 49 66 20 74  tabase $db. If t
ba70: 68 65 20 63 68 65 63 6b 73 75 6d 20 6f 66 20 74  he checksum of t
ba80: 77 6f 20 64 61 74 61 62 61 73 65 73 20 69 73 20  wo databases is 
ba90: 74 68 65 20 73 61 6d 65 2c 20 61 6e 64 20 74 68  the same, and th
baa0: 65 0a 23 20 69 6e 74 65 67 72 69 74 79 2d 63 68  e.# integrity-ch
bab0: 65 63 6b 20 70 61 73 73 65 73 20 66 6f 72 20 62  eck passes for b
bac0: 6f 74 68 2c 20 74 68 65 20 74 77 6f 20 64 61 74  oth, the two dat
bad0: 61 62 61 73 65 73 20 61 72 65 20 69 64 65 6e 74  abases are ident
bae0: 69 63 61 6c 2e 0a 23 0a 70 72 6f 63 20 61 6c 6c  ical..#.proc all
baf0: 63 6b 73 75 6d 20 7b 7b 64 62 20 64 62 7d 7d 20  cksum {{db db}} 
bb00: 7b 0a 20 20 73 65 74 20 72 65 74 20 5b 6c 69 73  {.  set ret [lis
bb10: 74 5d 0a 20 20 69 66 63 61 70 61 62 6c 65 20 74  t].  ifcapable t
bb20: 65 6d 70 64 62 20 7b 0a 20 20 20 20 73 65 74 20  empdb {.    set 
bb30: 73 71 6c 20 7b 0a 20 20 20 20 20 20 53 45 4c 45  sql {.      SELE
bb40: 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c  CT name FROM sql
bb50: 69 74 65 5f 6d 61 73 74 65 72 20 57 48 45 52 45  ite_master WHERE
bb60: 20 74 79 70 65 20 3d 20 27 74 61 62 6c 65 27 20   type = 'table' 
bb70: 55 4e 49 4f 4e 0a 20 20 20 20 20 20 53 45 4c 45  UNION.      SELE
bb80: 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c  CT name FROM sql
bb90: 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 20  ite_temp_master 
bba0: 57 48 45 52 45 20 74 79 70 65 20 3d 20 27 74 61  WHERE type = 'ta
bbb0: 62 6c 65 27 20 55 4e 49 4f 4e 0a 20 20 20 20 20  ble' UNION.     
bbc0: 20 53 45 4c 45 43 54 20 27 73 71 6c 69 74 65 5f   SELECT 'sqlite_
bbd0: 6d 61 73 74 65 72 27 20 55 4e 49 4f 4e 0a 20 20  master' UNION.  
bbe0: 20 20 20 20 53 45 4c 45 43 54 20 27 73 71 6c 69      SELECT 'sqli
bbf0: 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 27 20  te_temp_master' 
bc00: 4f 52 44 45 52 20 42 59 20 31 0a 20 20 20 20 7d  ORDER BY 1.    }
bc10: 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20  .  } else {.    
bc20: 73 65 74 20 73 71 6c 20 7b 0a 20 20 20 20 20 20  set sql {.      
bc30: 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d  SELECT name FROM
bc40: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 57   sqlite_master W
bc50: 48 45 52 45 20 74 79 70 65 20 3d 20 27 74 61 62  HERE type = 'tab
bc60: 6c 65 27 20 55 4e 49 4f 4e 0a 20 20 20 20 20 20  le' UNION.      
bc70: 53 45 4c 45 43 54 20 27 73 71 6c 69 74 65 5f 6d  SELECT 'sqlite_m
bc80: 61 73 74 65 72 27 20 4f 52 44 45 52 20 42 59 20  aster' ORDER BY 
bc90: 31 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 65  1.    }.  }.  se
bca0: 74 20 74 62 6c 6c 69 73 74 20 5b 24 64 62 20 65  t tbllist [$db e
bcb0: 76 61 6c 20 24 73 71 6c 5d 0a 20 20 73 65 74 20  val $sql].  set 
bcc0: 74 78 74 20 7b 7d 0a 20 20 66 6f 72 65 61 63 68  txt {}.  foreach
bcd0: 20 74 62 6c 20 24 74 62 6c 6c 69 73 74 20 7b 0a   tbl $tbllist {.
bce0: 20 20 20 20 61 70 70 65 6e 64 20 74 78 74 20 5b      append txt [
bcf0: 24 64 62 20 65 76 61 6c 20 22 53 45 4c 45 43 54  $db eval "SELECT
bd00: 20 2a 20 46 52 4f 4d 20 24 74 62 6c 22 5d 0a 20   * FROM $tbl"]. 
bd10: 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 70 72 61   }.  foreach pra
bd20: 67 20 7b 64 65 66 61 75 6c 74 5f 63 61 63 68 65  g {default_cache
bd30: 5f 73 69 7a 65 7d 20 7b 0a 20 20 20 20 61 70 70  _size} {.    app
bd40: 65 6e 64 20 74 78 74 20 24 70 72 61 67 2d 5b 24  end txt $prag-[$
bd50: 64 62 20 65 76 61 6c 20 22 50 52 41 47 4d 41 20  db eval "PRAGMA 
bd60: 24 70 72 61 67 22 5d 5c 6e 0a 20 20 7d 0a 20 20  $prag"]\n.  }.  
bd70: 23 20 70 75 74 73 20 74 78 74 3d 24 74 78 74 0a  # puts txt=$txt.
bd80: 20 20 72 65 74 75 72 6e 20 5b 6d 64 35 20 24 74    return [md5 $t
bd90: 78 74 5d 0a 7d 0a 0a 23 20 47 65 6e 65 72 61 74  xt].}..# Generat
bda0: 65 20 61 20 63 68 65 63 6b 73 75 6d 20 62 61 73  e a checksum bas
bdb0: 65 64 20 6f 6e 20 74 68 65 20 63 6f 6e 74 65 6e  ed on the conten
bdc0: 74 73 20 6f 66 20 61 20 73 69 6e 67 6c 65 20 64  ts of a single d
bdd0: 61 74 61 62 61 73 65 20 77 69 74 68 0a 23 20 61  atabase with.# a
bde0: 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 63   database connec
bdf0: 74 69 6f 6e 2e 20 20 54 68 65 20 6e 61 6d 65 20  tion.  The name 
be00: 6f 66 20 74 68 65 20 64 61 74 61 62 61 73 65 20  of the database 
be10: 69 73 20 24 64 62 6e 61 6d 65 2e 0a 23 20 45 78  is $dbname..# Ex
be20: 61 6d 70 6c 65 73 20 6f 66 20 24 64 62 6e 61 6d  amples of $dbnam
be30: 65 20 61 72 65 20 22 74 65 6d 70 22 20 6f 72 20  e are "temp" or 
be40: 22 6d 61 69 6e 22 2e 0a 23 0a 70 72 6f 63 20 64  "main"..#.proc d
be50: 62 63 6b 73 75 6d 20 7b 64 62 20 64 62 6e 61 6d  bcksum {db dbnam
be60: 65 7d 20 7b 0a 20 20 69 66 20 7b 24 64 62 6e 61  e} {.  if {$dbna
be70: 6d 65 3d 3d 22 74 65 6d 70 22 7d 20 7b 0a 20 20  me=="temp"} {.  
be80: 20 20 73 65 74 20 6d 61 73 74 65 72 20 73 71 6c    set master sql
be90: 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 0a  ite_temp_master.
bea0: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 73    } else {.    s
beb0: 65 74 20 6d 61 73 74 65 72 20 24 64 62 6e 61 6d  et master $dbnam
bec0: 65 2e 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 0a  e.sqlite_master.
bed0: 20 20 7d 0a 20 20 73 65 74 20 61 6c 6c 74 61 62    }.  set alltab
bee0: 20 5b 24 64 62 20 65 76 61 6c 20 22 53 45 4c 45   [$db eval "SELE
bef0: 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 24 6d 61  CT name FROM $ma
bf00: 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65 3d  ster WHERE type=
bf10: 27 74 61 62 6c 65 27 22 5d 0a 20 20 73 65 74 20  'table'"].  set 
bf20: 74 78 74 20 5b 24 64 62 20 65 76 61 6c 20 22 53  txt [$db eval "S
bf30: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 24 6d 61  ELECT * FROM $ma
bf40: 73 74 65 72 22 5d 5c 6e 0a 20 20 66 6f 72 65 61  ster"]\n.  forea
bf50: 63 68 20 74 61 62 20 24 61 6c 6c 74 61 62 20 7b  ch tab $alltab {
bf60: 0a 20 20 20 20 61 70 70 65 6e 64 20 74 78 74 20  .    append txt 
bf70: 5b 24 64 62 20 65 76 61 6c 20 22 53 45 4c 45 43  [$db eval "SELEC
bf80: 54 20 2a 20 46 52 4f 4d 20 24 64 62 6e 61 6d 65  T * FROM $dbname
bf90: 2e 24 74 61 62 22 5d 5c 6e 0a 20 20 7d 0a 20 20  .$tab"]\n.  }.  
bfa0: 72 65 74 75 72 6e 20 5b 6d 64 35 20 24 74 78 74  return [md5 $txt
bfb0: 5d 0a 7d 0a 0a 70 72 6f 63 20 6d 65 6d 64 65 62  ].}..proc memdeb
bfc0: 75 67 5f 6c 6f 67 5f 73 71 6c 20 7b 7b 66 69 6c  ug_log_sql {{fil
bfd0: 65 6e 61 6d 65 20 6d 61 6c 6c 6f 63 73 2e 73 71  ename mallocs.sq
bfe0: 6c 7d 7d 20 7b 0a 0a 20 20 73 65 74 20 64 61 74  l}} {..  set dat
bff0: 61 20 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65  a [sqlite3_memde
c000: 62 75 67 5f 6c 6f 67 20 64 75 6d 70 5d 0a 20 20  bug_log dump].  
c010: 73 65 74 20 6e 46 72 61 6d 65 20 5b 65 78 70 72  set nFrame [expr
c020: 20 5b 6c 6c 65 6e 67 74 68 20 5b 6c 69 6e 64 65   [llength [linde
c030: 78 20 24 64 61 74 61 20 30 5d 5d 2d 32 5d 0a 20  x $data 0]]-2]. 
c040: 20 69 66 20 7b 24 6e 46 72 61 6d 65 20 3c 20 30   if {$nFrame < 0
c050: 7d 20 7b 20 72 65 74 75 72 6e 20 22 22 20 7d 0a  } { return "" }.
c060: 0a 20 20 73 65 74 20 64 61 74 61 62 61 73 65 20  .  set database 
c070: 74 65 6d 70 0a 0a 20 20 73 65 74 20 74 62 6c 20  temp..  set tbl 
c080: 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 24 7b  "CREATE TABLE ${
c090: 64 61 74 61 62 61 73 65 7d 2e 6d 61 6c 6c 6f 63  database}.malloc
c0a0: 28 7a 54 65 73 74 2c 20 6e 43 61 6c 6c 2c 20 6e  (zTest, nCall, n
c0b0: 42 79 74 65 2c 20 6c 53 74 61 63 6b 29 3b 22 0a  Byte, lStack);".
c0c0: 0a 20 20 73 65 74 20 73 71 6c 20 22 22 0a 20 20  .  set sql "".  
c0d0: 66 6f 72 65 61 63 68 20 65 20 24 64 61 74 61 20  foreach e $data 
c0e0: 7b 0a 20 20 20 20 73 65 74 20 6e 43 61 6c 6c 20  {.    set nCall 
c0f0: 5b 6c 69 6e 64 65 78 20 24 65 20 30 5d 0a 20 20  [lindex $e 0].  
c100: 20 20 73 65 74 20 6e 42 79 74 65 20 5b 6c 69 6e    set nByte [lin
c110: 64 65 78 20 24 65 20 31 5d 0a 20 20 20 20 73 65  dex $e 1].    se
c120: 74 20 6c 53 74 61 63 6b 20 5b 6c 72 61 6e 67 65  t lStack [lrange
c130: 20 24 65 20 32 20 65 6e 64 5d 0a 20 20 20 20 61   $e 2 end].    a
c140: 70 70 65 6e 64 20 73 71 6c 20 22 49 4e 53 45 52  ppend sql "INSER
c150: 54 20 49 4e 54 4f 20 24 7b 64 61 74 61 62 61 73  T INTO ${databas
c160: 65 7d 2e 6d 61 6c 6c 6f 63 20 56 41 4c 55 45 53  e}.malloc VALUES
c170: 22 0a 20 20 20 20 61 70 70 65 6e 64 20 73 71 6c  ".    append sql
c180: 20 22 28 27 74 65 73 74 27 2c 20 24 6e 43 61 6c   "('test', $nCal
c190: 6c 2c 20 24 6e 42 79 74 65 2c 20 27 24 6c 53 74  l, $nByte, '$lSt
c1a0: 61 63 6b 27 29 3b 5c 6e 22 0a 20 20 20 20 66 6f  ack');\n".    fo
c1b0: 72 65 61 63 68 20 66 20 24 6c 53 74 61 63 6b 20  reach f $lStack 
c1c0: 7b 0a 20 20 20 20 20 20 73 65 74 20 66 72 61 6d  {.      set fram
c1d0: 65 73 28 24 66 29 20 31 0a 20 20 20 20 7d 0a 20  es($f) 1.    }. 
c1e0: 20 7d 0a 0a 20 20 73 65 74 20 74 62 6c 32 20 22   }..  set tbl2 "
c1f0: 43 52 45 41 54 45 20 54 41 42 4c 45 20 24 7b 64  CREATE TABLE ${d
c200: 61 74 61 62 61 73 65 7d 2e 66 72 61 6d 65 28 66  atabase}.frame(f
c210: 72 61 6d 65 20 49 4e 54 45 47 45 52 20 50 52 49  rame INTEGER PRI
c220: 4d 41 52 59 20 4b 45 59 2c 20 6c 69 6e 65 29 3b  MARY KEY, line);
c230: 5c 6e 22 0a 20 20 73 65 74 20 74 62 6c 33 20 22  \n".  set tbl3 "
c240: 43 52 45 41 54 45 20 54 41 42 4c 45 20 24 7b 64  CREATE TABLE ${d
c250: 61 74 61 62 61 73 65 7d 2e 66 69 6c 65 28 6e 61  atabase}.file(na
c260: 6d 65 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 20  me PRIMARY KEY, 
c270: 63 6f 6e 74 65 6e 74 29 3b 5c 6e 22 0a 0a 20 20  content);\n"..  
c280: 66 6f 72 65 61 63 68 20 66 20 5b 61 72 72 61 79  foreach f [array
c290: 20 6e 61 6d 65 73 20 66 72 61 6d 65 73 5d 20 7b   names frames] {
c2a0: 0a 20 20 20 20 73 65 74 20 61 64 64 72 20 5b 66  .    set addr [f
c2b0: 6f 72 6d 61 74 20 25 78 20 24 66 5d 0a 20 20 20  ormat %x $f].   
c2c0: 20 73 65 74 20 63 6d 64 20 22 61 64 64 72 32 6c   set cmd "addr2l
c2d0: 69 6e 65 20 2d 65 20 5b 69 6e 66 6f 20 6e 61 6d  ine -e [info nam
c2e0: 65 6f 66 65 78 65 63 5d 20 24 61 64 64 72 22 0a  eofexec] $addr".
c2f0: 20 20 20 20 73 65 74 20 6c 69 6e 65 20 5b 65 76      set line [ev
c300: 61 6c 20 65 78 65 63 20 24 63 6d 64 5d 0a 20 20  al exec $cmd].  
c310: 20 20 61 70 70 65 6e 64 20 73 71 6c 20 22 49 4e    append sql "IN
c320: 53 45 52 54 20 49 4e 54 4f 20 24 7b 64 61 74 61  SERT INTO ${data
c330: 62 61 73 65 7d 2e 66 72 61 6d 65 20 56 41 4c 55  base}.frame VALU
c340: 45 53 28 24 66 2c 20 27 24 6c 69 6e 65 27 29 3b  ES($f, '$line');
c350: 5c 6e 22 0a 0a 20 20 20 20 73 65 74 20 66 69 6c  \n"..    set fil
c360: 65 20 5b 6c 69 6e 64 65 78 20 5b 73 70 6c 69 74  e [lindex [split
c370: 20 24 6c 69 6e 65 20 3a 5d 20 30 5d 0a 20 20 20   $line :] 0].   
c380: 20 73 65 74 20 66 69 6c 65 73 28 24 66 69 6c 65   set files($file
c390: 29 20 31 0a 20 20 7d 0a 0a 20 20 66 6f 72 65 61  ) 1.  }..  forea
c3a0: 63 68 20 66 20 5b 61 72 72 61 79 20 6e 61 6d 65  ch f [array name
c3b0: 73 20 66 69 6c 65 73 5d 20 7b 0a 20 20 20 20 73  s files] {.    s
c3c0: 65 74 20 63 6f 6e 74 65 6e 74 73 20 22 22 0a 20  et contents "". 
c3d0: 20 20 20 63 61 74 63 68 20 7b 0a 20 20 20 20 20     catch {.     
c3e0: 20 73 65 74 20 66 64 20 5b 6f 70 65 6e 20 24 66   set fd [open $f
c3f0: 5d 0a 20 20 20 20 20 20 73 65 74 20 63 6f 6e 74  ].      set cont
c400: 65 6e 74 73 20 5b 72 65 61 64 20 24 66 64 5d 0a  ents [read $fd].
c410: 20 20 20 20 20 20 63 6c 6f 73 65 20 24 66 64 0a        close $fd.
c420: 20 20 20 20 7d 0a 20 20 20 20 73 65 74 20 63 6f      }.    set co
c430: 6e 74 65 6e 74 73 20 5b 73 74 72 69 6e 67 20 6d  ntents [string m
c440: 61 70 20 7b 27 20 27 27 7d 20 24 63 6f 6e 74 65  ap {' ''} $conte
c450: 6e 74 73 5d 0a 20 20 20 20 61 70 70 65 6e 64 20  nts].    append 
c460: 73 71 6c 20 22 49 4e 53 45 52 54 20 49 4e 54 4f  sql "INSERT INTO
c470: 20 24 7b 64 61 74 61 62 61 73 65 7d 2e 66 69 6c   ${database}.fil
c480: 65 20 56 41 4c 55 45 53 28 27 24 66 27 2c 20 27  e VALUES('$f', '
c490: 24 63 6f 6e 74 65 6e 74 73 27 29 3b 5c 6e 22 0a  $contents');\n".
c4a0: 20 20 7d 0a 0a 20 20 73 65 74 20 66 64 20 5b 6f    }..  set fd [o
c4b0: 70 65 6e 20 24 66 69 6c 65 6e 61 6d 65 20 77 5d  pen $filename w]
c4c0: 0a 20 20 70 75 74 73 20 24 66 64 20 22 42 45 47  .  puts $fd "BEG
c4d0: 49 4e 3b 20 24 7b 74 62 6c 7d 24 7b 74 62 6c 32  IN; ${tbl}${tbl2
c4e0: 7d 24 7b 74 62 6c 33 7d 24 7b 73 71 6c 7d 20 3b  }${tbl3}${sql} ;
c4f0: 20 43 4f 4d 4d 49 54 3b 22 0a 20 20 63 6c 6f 73   COMMIT;".  clos
c500: 65 20 24 66 64 0a 7d 0a 0a 23 20 44 72 6f 70 20  e $fd.}..# Drop 
c510: 61 6c 6c 20 74 61 62 6c 65 73 20 69 6e 20 64 61  all tables in da
c520: 74 61 62 61 73 65 20 5b 64 62 5d 0a 70 72 6f 63  tabase [db].proc
c530: 20 64 72 6f 70 5f 61 6c 6c 5f 74 61 62 6c 65 73   drop_all_tables
c540: 20 7b 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 69   {{db db}} {.  i
c550: 66 63 61 70 61 62 6c 65 20 74 72 69 67 67 65 72  fcapable trigger
c560: 26 26 66 6f 72 65 69 67 6e 6b 65 79 20 7b 0a 20  &&foreignkey {. 
c570: 20 20 20 73 65 74 20 70 6b 20 5b 24 64 62 20 6f     set pk [$db o
c580: 6e 65 20 22 50 52 41 47 4d 41 20 66 6f 72 65 69  ne "PRAGMA forei
c590: 67 6e 5f 6b 65 79 73 22 5d 0a 20 20 20 20 24 64  gn_keys"].    $d
c5a0: 62 20 65 76 61 6c 20 22 50 52 41 47 4d 41 20 66  b eval "PRAGMA f
c5b0: 6f 72 65 69 67 6e 5f 6b 65 79 73 20 3d 20 4f 46  oreign_keys = OF
c5c0: 46 22 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63 68  F".  }.  foreach
c5d0: 20 7b 69 64 78 20 6e 61 6d 65 20 66 69 6c 65 7d   {idx name file}
c5e0: 20 5b 64 62 20 65 76 61 6c 20 7b 50 52 41 47 4d   [db eval {PRAGM
c5f0: 41 20 64 61 74 61 62 61 73 65 5f 6c 69 73 74 7d  A database_list}
c600: 5d 20 7b 0a 20 20 20 20 69 66 20 7b 24 69 64 78  ] {.    if {$idx
c610: 3d 3d 31 7d 20 7b 0a 20 20 20 20 20 20 73 65 74  ==1} {.      set
c620: 20 6d 61 73 74 65 72 20 73 71 6c 69 74 65 5f 74   master sqlite_t
c630: 65 6d 70 5f 6d 61 73 74 65 72 0a 20 20 20 20 7d  emp_master.    }
c640: 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 73 65   else {.      se
c650: 74 20 6d 61 73 74 65 72 20 24 6e 61 6d 65 2e 73  t master $name.s
c660: 71 6c 69 74 65 5f 6d 61 73 74 65 72 0a 20 20 20  qlite_master.   
c670: 20 7d 0a 20 20 20 20 66 6f 72 65 61 63 68 20 7b   }.    foreach {
c680: 74 20 74 79 70 65 7d 20 5b 24 64 62 20 65 76 61  t type} [$db eva
c690: 6c 20 22 0a 20 20 20 20 20 20 53 45 4c 45 43 54  l ".      SELECT
c6a0: 20 6e 61 6d 65 2c 20 74 79 70 65 20 46 52 4f 4d   name, type FROM
c6b0: 20 24 6d 61 73 74 65 72 0a 20 20 20 20 20 20 57   $master.      W
c6c0: 48 45 52 45 20 74 79 70 65 20 49 4e 28 27 74 61  HERE type IN('ta
c6d0: 62 6c 65 27 2c 20 27 76 69 65 77 27 29 20 41 4e  ble', 'view') AN
c6e0: 44 20 6e 61 6d 65 20 4e 4f 54 20 4c 49 4b 45 20  D name NOT LIKE 
c6f0: 27 73 71 6c 69 74 65 58 5f 25 27 20 45 53 43 41  'sqliteX_%' ESCA
c700: 50 45 20 27 58 27 0a 20 20 20 20 22 5d 20 7b 0a  PE 'X'.    "] {.
c710: 20 20 20 20 20 20 24 64 62 20 65 76 61 6c 20 22        $db eval "
c720: 44 52 4f 50 20 24 74 79 70 65 20 5c 22 24 74 5c  DROP $type \"$t\
c730: 22 22 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69  "".    }.  }.  i
c740: 66 63 61 70 61 62 6c 65 20 74 72 69 67 67 65 72  fcapable trigger
c750: 26 26 66 6f 72 65 69 67 6e 6b 65 79 20 7b 0a 20  &&foreignkey {. 
c760: 20 20 20 24 64 62 20 65 76 61 6c 20 22 50 52 41     $db eval "PRA
c770: 47 4d 41 20 66 6f 72 65 69 67 6e 5f 6b 65 79 73  GMA foreign_keys
c780: 20 3d 20 24 70 6b 22 0a 20 20 7d 0a 7d 0a 0a 23   = $pk".  }.}..#
c790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c7a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c7b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c7c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c7d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 49 66 20 61  ---------.# If a
c7e0: 20 74 65 73 74 20 73 63 72 69 70 74 20 69 73 20   test script is 
c7f0: 65 78 65 63 75 74 65 64 20 77 69 74 68 20 67 6c  executed with gl
c800: 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 24 3a  obal variable $:
c810: 3a 47 28 70 65 72 6d 3a 6e 61 6d 65 29 20 73 65  :G(perm:name) se
c820: 74 20 74 6f 0a 23 20 22 77 61 6c 22 2c 20 74 68  t to.# "wal", th
c830: 65 6e 20 74 68 65 20 74 65 73 74 73 20 61 72 65  en the tests are
c840: 20 72 75 6e 20 69 6e 20 57 41 4c 20 6d 6f 64 65   run in WAL mode
c850: 2e 20 4f 74 68 65 72 77 69 73 65 2c 20 74 68 65  . Otherwise, the
c860: 79 20 73 68 6f 75 6c 64 20 62 65 20 72 75 6e 0a  y should be run.
c870: 23 20 69 6e 20 72 6f 6c 6c 62 61 63 6b 20 6d 6f  # in rollback mo
c880: 64 65 2e 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e  de. The followin
c890: 67 20 54 63 6c 20 70 72 6f 63 73 20 61 72 65 20  g Tcl procs are 
c8a0: 75 73 65 64 20 74 6f 20 6d 61 6b 65 20 74 68 69  used to make thi
c8b0: 73 20 6c 65 73 73 0a 23 20 69 6e 74 72 75 73 69  s less.# intrusi
c8c0: 76 65 3a 0a 23 0a 23 20 20 20 77 61 6c 5f 73 65  ve:.#.#   wal_se
c8d0: 74 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3f  t_journal_mode ?
c8e0: 44 42 3f 0a 23 0a 23 20 20 20 20 20 49 66 20 72  DB?.#.#     If r
c8f0: 75 6e 6e 69 6e 67 20 61 20 57 41 4c 20 74 65 73  unning a WAL tes
c900: 74 2c 20 65 78 65 63 75 74 65 20 22 50 52 41 47  t, execute "PRAG
c910: 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20  MA journal_mode 
c920: 3d 20 77 61 6c 22 20 75 73 69 6e 67 0a 23 20 20  = wal" using.#  
c930: 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 61     connection ha
c940: 6e 64 6c 65 20 44 42 2e 20 4f 74 68 65 72 77 69  ndle DB. Otherwi
c950: 73 65 2c 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64  se, this command
c960: 20 69 73 20 61 20 6e 6f 2d 6f 70 2e 0a 23 0a 23   is a no-op..#.#
c970: 20 20 20 77 61 6c 5f 63 68 65 63 6b 5f 6a 6f 75     wal_check_jou
c980: 72 6e 61 6c 5f 6d 6f 64 65 20 54 45 53 54 4e 41  rnal_mode TESTNA
c990: 4d 45 20 3f 44 42 3f 0a 23 0a 23 20 20 20 20 20  ME ?DB?.#.#     
c9a0: 49 66 20 72 75 6e 6e 69 6e 67 20 61 20 57 41 4c  If running a WAL
c9b0: 20 74 65 73 74 2c 20 65 78 65 63 75 74 65 20 61   test, execute a
c9c0: 20 74 65 73 74 73 20 63 61 73 65 20 74 68 61 74   tests case that
c9d0: 20 66 61 69 6c 73 20 69 66 20 74 68 65 20 6d 61   fails if the ma
c9e0: 69 6e 0a 23 20 20 20 20 20 64 61 74 61 62 61 73  in.#     databas
c9f0: 65 20 66 6f 72 20 63 6f 6e 6e 65 63 74 69 6f 6e  e for connection
ca00: 20 68 61 6e 64 6c 65 20 44 42 20 69 73 20 6e 6f   handle DB is no
ca10: 74 20 63 75 72 72 65 6e 74 6c 79 20 61 20 57 41  t currently a WA
ca20: 4c 20 64 61 74 61 62 61 73 65 2e 0a 23 20 20 20  L database..#   
ca30: 20 20 4f 74 68 65 72 77 69 73 65 20 28 69 66 20    Otherwise (if 
ca40: 6e 6f 74 20 72 75 6e 6e 69 6e 67 20 61 20 57 41  not running a WA
ca50: 4c 20 70 65 72 6d 75 74 61 74 69 6f 6e 29 20 74  L permutation) t
ca60: 68 69 73 20 69 73 20 61 20 6e 6f 2d 6f 70 2e 0a  his is a no-op..
ca70: 23 0a 23 20 20 20 77 61 6c 5f 69 73 5f 77 61 6c  #.#   wal_is_wal
ca80: 5f 6d 6f 64 65 0a 23 0a 23 20 20 20 20 20 52 65  _mode.#.#     Re
ca90: 74 75 72 6e 73 20 74 72 75 65 20 69 66 20 74 68  turns true if th
caa0: 69 73 20 74 65 73 74 20 73 68 6f 75 6c 64 20 62  is test should b
cab0: 65 20 72 75 6e 20 69 6e 20 57 41 4c 20 6d 6f 64  e run in WAL mod
cac0: 65 2e 20 46 61 6c 73 65 20 6f 74 68 65 72 77 69  e. False otherwi
cad0: 73 65 2e 0a 23 0a 70 72 6f 63 20 77 61 6c 5f 69  se..#.proc wal_i
cae0: 73 5f 77 61 6c 5f 6d 6f 64 65 20 7b 7d 20 7b 0a  s_wal_mode {} {.
caf0: 20 20 65 78 70 72 20 7b 5b 70 65 72 6d 75 74 61    expr {[permuta
cb00: 74 69 6f 6e 5d 20 65 71 20 22 77 61 6c 22 7d 0a  tion] eq "wal"}.
cb10: 7d 0a 70 72 6f 63 20 77 61 6c 5f 73 65 74 5f 6a  }.proc wal_set_j
cb20: 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 7b 7b 64 62  ournal_mode {{db
cb30: 20 64 62 7d 7d 20 7b 0a 20 20 69 66 20 7b 20 5b   db}} {.  if { [
cb40: 77 61 6c 5f 69 73 5f 77 61 6c 5f 6d 6f 64 65 5d  wal_is_wal_mode]
cb50: 20 7d 20 7b 0a 20 20 20 20 24 64 62 20 65 76 61   } {.    $db eva
cb60: 6c 20 22 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61  l "PRAGMA journa
cb70: 6c 5f 6d 6f 64 65 20 3d 20 57 41 4c 22 0a 20 20  l_mode = WAL".  
cb80: 7d 0a 7d 0a 70 72 6f 63 20 77 61 6c 5f 63 68 65  }.}.proc wal_che
cb90: 63 6b 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20  ck_journal_mode 
cba0: 7b 74 65 73 74 6e 61 6d 65 20 7b 64 62 20 64 62  {testname {db db
cbb0: 7d 7d 20 7b 0a 20 20 69 66 20 7b 20 5b 77 61 6c  }} {.  if { [wal
cbc0: 5f 69 73 5f 77 61 6c 5f 6d 6f 64 65 5d 20 7d 20  _is_wal_mode] } 
cbd0: 7b 0a 20 20 20 20 24 64 62 20 65 76 61 6c 20 7b  {.    $db eval {
cbe0: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73   SELECT * FROM s
cbf0: 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 7d 0a 20  qlite_master }. 
cc00: 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74     do_test $test
cc10: 6e 61 6d 65 20 5b 6c 69 73 74 20 24 64 62 20 65  name [list $db e
cc20: 76 61 6c 20 22 50 52 41 47 4d 41 20 6d 61 69 6e  val "PRAGMA main
cc30: 2e 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 22 5d 20  .journal_mode"] 
cc40: 7b 77 61 6c 7d 0a 20 20 7d 0a 7d 0a 0a 70 72 6f  {wal}.  }.}..pro
cc50: 63 20 70 65 72 6d 75 74 61 74 69 6f 6e 20 7b 7d  c permutation {}
cc60: 20 7b 0a 20 20 73 65 74 20 70 65 72 6d 20 22 22   {.  set perm ""
cc70: 0a 20 20 63 61 74 63 68 20 7b 73 65 74 20 70 65  .  catch {set pe
cc80: 72 6d 20 24 3a 3a 47 28 70 65 72 6d 3a 6e 61 6d  rm $::G(perm:nam
cc90: 65 29 7d 0a 20 20 73 65 74 20 70 65 72 6d 0a 7d  e)}.  set perm.}
cca0: 0a 70 72 6f 63 20 70 72 65 73 71 6c 20 7b 7d 20  .proc presql {} 
ccb0: 7b 0a 20 20 73 65 74 20 70 72 65 73 71 6c 20 22  {.  set presql "
ccc0: 22 0a 20 20 63 61 74 63 68 20 7b 73 65 74 20 70  ".  catch {set p
ccd0: 72 65 73 71 6c 20 24 3a 3a 47 28 70 65 72 6d 3a  resql $::G(perm:
cce0: 70 72 65 73 71 6c 29 7d 0a 20 20 73 65 74 20 70  presql)}.  set p
ccf0: 72 65 73 71 6c 0a 7d 0a 0a 23 2d 2d 2d 2d 2d 2d  resql.}..#------
cd00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cd10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cd20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cd30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cd40: 2d 2d 2d 0a 23 0a 70 72 6f 63 20 73 6c 61 76 65  ---.#.proc slave
cd50: 5f 74 65 73 74 5f 73 63 72 69 70 74 20 7b 73 63  _test_script {sc
cd60: 72 69 70 74 7d 20 7b 0a 0a 20 20 23 20 43 72 65  ript} {..  # Cre
cd70: 61 74 65 20 74 68 65 20 69 6e 74 65 72 70 72 65  ate the interpre
cd80: 74 65 72 20 75 73 65 64 20 74 6f 20 72 75 6e 20  ter used to run 
cd90: 74 68 65 20 74 65 73 74 20 73 63 72 69 70 74 2e  the test script.
cda0: 0a 20 20 69 6e 74 65 72 70 20 63 72 65 61 74 65  .  interp create
cdb0: 20 74 69 6e 74 65 72 70 0a 0a 20 20 23 20 50 6f   tinterp..  # Po
cdc0: 70 75 6c 61 74 65 20 73 6f 6d 65 20 67 6c 6f 62  pulate some glob
cdd0: 61 6c 20 76 61 72 69 61 62 6c 65 73 20 74 68 61  al variables tha
cde0: 74 20 74 65 73 74 65 72 2e 74 63 6c 20 65 78 70  t tester.tcl exp
cdf0: 65 63 74 73 20 74 6f 20 73 65 65 2e 0a 20 20 66  ects to see..  f
ce00: 6f 72 65 61 63 68 20 7b 76 61 72 20 76 61 6c 75  oreach {var valu
ce10: 65 7d 20 5b 6c 69 73 74 20 20 20 20 20 20 20 20  e} [list        
ce20: 20 20 20 20 20 20 5c 0a 20 20 20 20 3a 3a 61 72        \.    ::ar
ce30: 67 76 30 20 24 3a 3a 61 72 67 76 30 20 20 20 20  gv0 $::argv0    
ce40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
ce50: 20 5c 0a 20 20 20 20 3a 3a 61 72 67 76 20 20 7b   \.    ::argv  {
ce60: 7d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  }               
ce70: 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a 20 20              \.  
ce80: 20 20 3a 3a 53 4c 41 56 45 20 31 20 20 20 20 20    ::SLAVE 1     
ce90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
cea0: 20 20 20 20 20 20 20 5c 0a 20 20 5d 20 7b 0a 20         \.  ] {. 
ceb0: 20 20 20 69 6e 74 65 72 70 20 65 76 61 6c 20 74     interp eval t
cec0: 69 6e 74 65 72 70 20 5b 6c 69 73 74 20 73 65 74  interp [list set
ced0: 20 24 76 61 72 20 24 76 61 6c 75 65 5d 0a 20 20   $var $value].  
cee0: 7d 0a 0a 20 20 23 20 54 68 65 20 61 6c 69 61 73  }..  # The alias
cef0: 20 75 73 65 64 20 74 6f 20 61 63 63 65 73 73 20   used to access 
cf00: 74 68 65 20 67 6c 6f 62 61 6c 20 74 65 73 74 20  the global test 
cf10: 63 6f 75 6e 74 65 72 73 2e 0a 20 20 74 69 6e 74  counters..  tint
cf20: 65 72 70 20 61 6c 69 61 73 20 73 65 74 5f 74 65  erp alias set_te
cf30: 73 74 5f 63 6f 75 6e 74 65 72 20 73 65 74 5f 74  st_counter set_t
cf40: 65 73 74 5f 63 6f 75 6e 74 65 72 0a 0a 20 20 23  est_counter..  #
cf50: 20 53 65 74 20 75 70 20 74 68 65 20 3a 3a 63 6d   Set up the ::cm
cf60: 64 6c 69 6e 65 61 72 67 20 61 72 72 61 79 20 69  dlinearg array i
cf70: 6e 20 74 68 65 20 73 6c 61 76 65 2e 0a 20 20 69  n the slave..  i
cf80: 6e 74 65 72 70 20 65 76 61 6c 20 74 69 6e 74 65  nterp eval tinte
cf90: 72 70 20 5b 6c 69 73 74 20 61 72 72 61 79 20 73  rp [list array s
cfa0: 65 74 20 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 20  et ::cmdlinearg 
cfb0: 5b 61 72 72 61 79 20 67 65 74 20 3a 3a 63 6d 64  [array get ::cmd
cfc0: 6c 69 6e 65 61 72 67 5d 5d 0a 0a 20 20 23 20 53  linearg]]..  # S
cfd0: 65 74 20 75 70 20 74 68 65 20 3a 3a 47 20 61 72  et up the ::G ar
cfe0: 72 61 79 20 69 6e 20 74 68 65 20 73 6c 61 76 65  ray in the slave
cff0: 2e 0a 20 20 69 6e 74 65 72 70 20 65 76 61 6c 20  ..  interp eval 
d000: 74 69 6e 74 65 72 70 20 5b 6c 69 73 74 20 61 72  tinterp [list ar
d010: 72 61 79 20 73 65 74 20 3a 3a 47 20 5b 61 72 72  ray set ::G [arr
d020: 61 79 20 67 65 74 20 3a 3a 47 5d 5d 0a 0a 20 20  ay get ::G]]..  
d030: 23 20 4c 6f 61 64 20 74 68 65 20 76 61 72 69 6f  # Load the vario
d040: 75 73 20 74 65 73 74 20 69 6e 74 65 72 66 61 63  us test interfac
d050: 65 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 69  es implemented i
d060: 6e 20 43 2e 0a 20 20 6c 6f 61 64 5f 74 65 73 74  n C..  load_test
d070: 66 69 78 74 75 72 65 5f 65 78 74 65 6e 73 69 6f  fixture_extensio
d080: 6e 73 20 74 69 6e 74 65 72 70 0a 0a 20 20 23 20  ns tinterp..  # 
d090: 52 75 6e 20 74 68 65 20 74 65 73 74 20 73 63 72  Run the test scr
d0a0: 69 70 74 2e 0a 20 20 69 6e 74 65 72 70 20 65 76  ipt..  interp ev
d0b0: 61 6c 20 74 69 6e 74 65 72 70 20 24 73 63 72 69  al tinterp $scri
d0c0: 70 74 0a 0a 20 20 23 20 43 68 65 63 6b 20 69 66  pt..  # Check if
d0d0: 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72   the interpreter
d0e0: 20 63 61 6c 6c 20 5b 72 75 6e 5f 74 68 72 65 61   call [run_threa
d0f0: 64 5f 74 65 73 74 73 5d 0a 20 20 69 66 20 7b 20  d_tests].  if { 
d100: 5b 69 6e 74 65 72 70 20 65 76 61 6c 20 74 69 6e  [interp eval tin
d110: 74 65 72 70 20 7b 69 6e 66 6f 20 65 78 69 73 74  terp {info exist
d120: 73 20 3a 3a 72 75 6e 5f 74 68 72 65 61 64 5f 74  s ::run_thread_t
d130: 65 73 74 73 5f 63 61 6c 6c 65 64 7d 5d 20 7d 20  ests_called}] } 
d140: 7b 0a 20 20 20 20 73 65 74 20 3a 3a 72 75 6e 5f  {.    set ::run_
d150: 74 68 72 65 61 64 5f 74 65 73 74 73 5f 63 61 6c  thread_tests_cal
d160: 6c 65 64 20 31 0a 20 20 7d 0a 0a 20 20 23 20 44  led 1.  }..  # D
d170: 65 6c 65 74 65 20 74 68 65 20 69 6e 74 65 72 70  elete the interp
d180: 72 65 74 65 72 20 75 73 65 64 20 74 6f 20 72 75  reter used to ru
d190: 6e 20 74 68 65 20 74 65 73 74 20 73 63 72 69 70  n the test scrip
d1a0: 74 2e 0a 20 20 69 6e 74 65 72 70 20 64 65 6c 65  t..  interp dele
d1b0: 74 65 20 74 69 6e 74 65 72 70 0a 7d 0a 0a 70 72  te tinterp.}..pr
d1c0: 6f 63 20 73 6c 61 76 65 5f 74 65 73 74 5f 66 69  oc slave_test_fi
d1d0: 6c 65 20 7b 7a 46 69 6c 65 7d 20 7b 0a 20 20 73  le {zFile} {.  s
d1e0: 65 74 20 74 61 69 6c 20 5b 66 69 6c 65 20 74 61  et tail [file ta
d1f0: 69 6c 20 24 7a 46 69 6c 65 5d 0a 0a 20 20 69 66  il $zFile]..  if
d200: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
d210: 3a 47 28 73 74 61 72 74 3a 70 65 72 6d 75 74 61  :G(start:permuta
d220: 74 69 6f 6e 29 5d 7d 20 7b 0a 20 20 20 20 69 66  tion)]} {.    if
d230: 20 7b 5b 70 65 72 6d 75 74 61 74 69 6f 6e 5d 20   {[permutation] 
d240: 21 3d 20 24 3a 3a 47 28 73 74 61 72 74 3a 70 65  != $::G(start:pe
d250: 72 6d 75 74 61 74 69 6f 6e 29 7d 20 72 65 74 75  rmutation)} retu
d260: 72 6e 0a 20 20 20 20 75 6e 73 65 74 20 3a 3a 47  rn.    unset ::G
d270: 28 73 74 61 72 74 3a 70 65 72 6d 75 74 61 74 69  (start:permutati
d280: 6f 6e 29 0a 20 20 7d 0a 20 20 69 66 20 7b 5b 69  on).  }.  if {[i
d290: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 47 28 73  nfo exists ::G(s
d2a0: 74 61 72 74 3a 66 69 6c 65 29 5d 7d 20 7b 0a 20  tart:file)]} {. 
d2b0: 20 20 20 69 66 20 7b 24 74 61 69 6c 20 21 3d 20     if {$tail != 
d2c0: 24 3a 3a 47 28 73 74 61 72 74 3a 66 69 6c 65 29  $::G(start:file)
d2d0: 20 26 26 20 24 74 61 69 6c 21 3d 22 24 3a 3a 47   && $tail!="$::G
d2e0: 28 73 74 61 72 74 3a 66 69 6c 65 29 2e 74 65 73  (start:file).tes
d2f0: 74 22 7d 20 72 65 74 75 72 6e 0a 20 20 20 20 75  t"} return.    u
d300: 6e 73 65 74 20 3a 3a 47 28 73 74 61 72 74 3a 66  nset ::G(start:f
d310: 69 6c 65 29 0a 20 20 7d 0a 0a 20 20 23 20 52 65  ile).  }..  # Re
d320: 6d 65 6d 62 65 72 20 74 68 65 20 76 61 6c 75 65  member the value
d330: 20 6f 66 20 74 68 65 20 73 68 61 72 65 64 2d 63   of the shared-c
d340: 61 63 68 65 20 73 65 74 74 69 6e 67 2e 20 53 6f  ache setting. So
d350: 20 74 68 61 74 20 69 74 20 69 73 20 70 6f 73 73   that it is poss
d360: 69 62 6c 65 0a 20 20 23 20 74 6f 20 63 68 65 63  ible.  # to chec
d370: 6b 20 61 66 74 65 72 77 61 72 64 73 20 74 68 61  k afterwards tha
d380: 74 20 69 74 20 77 61 73 20 6e 6f 74 20 6d 6f 64  t it was not mod
d390: 69 66 69 65 64 20 62 79 20 74 68 65 20 74 65 73  ified by the tes
d3a0: 74 20 73 63 72 69 70 74 2e 0a 20 20 23 0a 20 20  t script..  #.  
d3b0: 69 66 63 61 70 61 62 6c 65 20 73 68 61 72 65 64  ifcapable shared
d3c0: 5f 63 61 63 68 65 20 7b 20 73 65 74 20 73 63 73  _cache { set scs
d3d0: 20 5b 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65   [sqlite3_enable
d3e0: 5f 73 68 61 72 65 64 5f 63 61 63 68 65 5d 20 7d  _shared_cache] }
d3f0: 0a 0a 20 20 23 20 52 75 6e 20 74 68 65 20 74 65  ..  # Run the te
d400: 73 74 20 73 63 72 69 70 74 20 69 6e 20 61 20 73  st script in a s
d410: 6c 61 76 65 20 69 6e 74 65 72 70 72 65 74 65 72  lave interpreter
d420: 2e 0a 20 20 23 0a 20 20 75 6e 73 65 74 20 2d 6e  ..  #.  unset -n
d430: 6f 63 6f 6d 70 6c 61 69 6e 20 3a 3a 72 75 6e 5f  ocomplain ::run_
d440: 74 68 72 65 61 64 5f 74 65 73 74 73 5f 63 61 6c  thread_tests_cal
d450: 6c 65 64 0a 20 20 72 65 73 65 74 5f 70 72 6e 67  led.  reset_prng
d460: 5f 73 74 61 74 65 0a 20 20 73 65 74 20 3a 3a 73  _state.  set ::s
d470: 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f  qlite_open_file_
d480: 63 6f 75 6e 74 20 30 0a 20 20 73 65 74 20 74 69  count 0.  set ti
d490: 6d 65 20 5b 74 69 6d 65 20 7b 20 73 6c 61 76 65  me [time { slave
d4a0: 5f 74 65 73 74 5f 73 63 72 69 70 74 20 5b 6c 69  _test_script [li
d4b0: 73 74 20 73 6f 75 72 63 65 20 24 7a 46 69 6c 65  st source $zFile
d4c0: 5d 20 7d 5d 0a 20 20 73 65 74 20 6d 73 20 5b 65  ] }].  set ms [e
d4d0: 78 70 72 20 5b 6c 69 6e 64 65 78 20 24 74 69 6d  xpr [lindex $tim
d4e0: 65 20 30 5d 20 2f 20 31 30 30 30 5d 0a 0a 20 20  e 0] / 1000]..  
d4f0: 23 20 54 65 73 74 20 74 68 61 74 20 61 6c 6c 20  # Test that all 
d500: 66 69 6c 65 73 20 6f 70 65 6e 65 64 20 62 79 20  files opened by 
d510: 74 68 65 20 74 65 73 74 20 73 63 72 69 70 74 20  the test script 
d520: 77 65 72 65 20 63 6c 6f 73 65 64 2e 20 4f 6d 69  were closed. Omi
d530: 74 20 74 68 69 73 0a 20 20 23 20 69 66 20 74 68  t this.  # if th
d540: 65 20 74 65 73 74 20 73 63 72 69 70 74 20 68 61  e test script ha
d550: 73 20 22 74 68 72 65 61 64 22 20 69 6e 20 69 74  s "thread" in it
d560: 73 20 6e 61 6d 65 2e 20 54 68 65 20 6f 70 65 6e  s name. The open
d570: 20 66 69 6c 65 20 63 6f 75 6e 74 65 72 0a 20 20   file counter.  
d580: 23 20 69 73 20 6e 6f 74 20 74 68 72 65 61 64 2d  # is not thread-
d590: 73 61 66 65 2e 0a 20 20 23 0a 20 20 69 66 20 7b  safe..  #.  if {
d5a0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 72  [info exists ::r
d5b0: 75 6e 5f 74 68 72 65 61 64 5f 74 65 73 74 73 5f  un_thread_tests_
d5c0: 63 61 6c 6c 65 64 5d 3d 3d 30 7d 20 7b 0a 20 20  called]==0} {.  
d5d0: 20 20 64 6f 5f 74 65 73 74 20 24 7b 74 61 69 6c    do_test ${tail
d5e0: 7d 2d 63 6c 6f 73 65 61 6c 6c 66 69 6c 65 73 20  }-closeallfiles 
d5f0: 7b 20 65 78 70 72 20 7b 24 3a 3a 73 71 6c 69 74  { expr {$::sqlit
d600: 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e  e_open_file_coun
d610: 74 3e 30 7d 20 7d 20 7b 30 7d 0a 20 20 7d 0a 20  t>0} } {0}.  }. 
d620: 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 6f 70   set ::sqlite_op
d630: 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 20 30 0a  en_file_count 0.
d640: 0a 20 20 23 20 54 65 73 74 20 74 68 61 74 20 74  .  # Test that t
d650: 68 65 20 67 6c 6f 62 61 6c 20 22 73 68 61 72 65  he global "share
d660: 64 2d 63 61 63 68 65 22 20 73 65 74 74 69 6e 67  d-cache" setting
d670: 20 77 61 73 20 6e 6f 74 20 61 6c 74 65 72 65 64   was not altered
d680: 20 62 79 0a 20 20 23 20 74 68 65 20 74 65 73 74   by.  # the test
d690: 20 73 63 72 69 70 74 2e 0a 20 20 23 0a 20 20 69   script..  #.  i
d6a0: 66 63 61 70 61 62 6c 65 20 73 68 61 72 65 64 5f  fcapable shared_
d6b0: 63 61 63 68 65 20 7b 0a 20 20 20 20 73 65 74 20  cache {.    set 
d6c0: 72 65 73 20 5b 65 78 70 72 20 7b 5b 73 71 6c 69  res [expr {[sqli
d6d0: 74 65 33 5f 65 6e 61 62 6c 65 5f 73 68 61 72 65  te3_enable_share
d6e0: 64 5f 63 61 63 68 65 5d 20 3d 3d 20 24 73 63 73  d_cache] == $scs
d6f0: 7d 5d 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 24  }].    do_test $
d700: 7b 74 61 69 6c 7d 2d 73 68 61 72 65 64 63 61 63  {tail}-sharedcac
d710: 68 65 73 65 74 74 69 6e 67 20 5b 6c 69 73 74 20  hesetting [list 
d720: 73 65 74 20 7b 7d 20 24 72 65 73 5d 20 31 0a 20  set {} $res] 1. 
d730: 20 7d 0a 0a 20 20 23 20 41 64 64 20 73 6f 6d 65   }..  # Add some
d740: 20 69 6e 66 6f 20 74 6f 20 74 68 65 20 6f 75 74   info to the out
d750: 70 75 74 2e 0a 20 20 23 0a 20 20 70 75 74 73 20  put..  #.  puts 
d760: 22 54 69 6d 65 3a 20 24 74 61 69 6c 20 24 6d 73  "Time: $tail $ms
d770: 20 6d 73 22 0a 20 20 73 68 6f 77 5f 6d 65 6d 73   ms".  show_mems
d780: 74 61 74 73 0a 7d 0a 0a 23 20 4f 70 65 6e 20 61  tats.}..# Open a
d790: 20 6e 65 77 20 63 6f 6e 6e 65 63 74 69 6f 6e 20   new connection 
d7a0: 6f 6e 20 64 61 74 61 62 61 73 65 20 74 65 73 74  on database test
d7b0: 2e 64 62 20 61 6e 64 20 65 78 65 63 75 74 65 20  .db and execute 
d7c0: 74 68 65 20 53 51 4c 20 73 63 72 69 70 74 0a 23  the SQL script.#
d7d0: 20 73 75 70 70 6c 69 65 64 20 61 73 20 61 6e 20   supplied as an 
d7e0: 61 72 67 75 6d 65 6e 74 2e 20 42 65 66 6f 72 65  argument. Before
d7f0: 20 72 65 74 75 72 6e 69 6e 67 2c 20 63 6c 6f 73   returning, clos
d800: 65 20 74 68 65 20 6e 65 77 20 63 6f 6e 65 63 74  e the new conect
d810: 69 6f 6e 20 61 6e 64 0a 23 20 72 65 73 74 6f 72  ion and.# restor
d820: 65 20 74 68 65 20 34 20 62 79 74 65 20 66 69 65  e the 4 byte fie
d830: 6c 64 73 20 73 74 61 72 74 69 6e 67 20 61 74 20  lds starting at 
d840: 68 65 61 64 65 72 20 6f 66 66 73 65 74 73 20 32  header offsets 2
d850: 38 2c 20 39 32 20 61 6e 64 20 39 36 0a 23 20 74  8, 92 and 96.# t
d860: 6f 20 74 68 65 20 76 61 6c 75 65 73 20 74 68 65  o the values the
d870: 79 20 68 65 6c 64 20 62 65 66 6f 72 65 20 74 68  y held before th
d880: 65 20 53 51 4c 20 77 61 73 20 65 78 65 63 75 74  e SQL was execut
d890: 65 64 2e 20 54 68 69 73 20 73 69 6d 75 6c 61 74  ed. This simulat
d8a0: 65 73 0a 23 20 61 20 77 72 69 74 65 20 62 79 20  es.# a write by 
d8b0: 61 20 70 72 65 2d 33 2e 37 2e 30 20 63 6c 69 65  a pre-3.7.0 clie
d8c0: 6e 74 2e 0a 23 0a 70 72 6f 63 20 73 71 6c 33 36  nt..#.proc sql36
d8d0: 32 33 31 20 7b 73 71 6c 7d 20 7b 0a 20 20 73 65  231 {sql} {.  se
d8e0: 74 20 42 20 5b 68 65 78 69 6f 5f 72 65 61 64 20  t B [hexio_read 
d8f0: 74 65 73 74 2e 64 62 20 39 32 20 38 5d 0a 20 20  test.db 92 8].  
d900: 73 65 74 20 41 20 5b 68 65 78 69 6f 5f 72 65 61  set A [hexio_rea
d910: 64 20 74 65 73 74 2e 64 62 20 32 38 20 34 5d 0a  d test.db 28 4].
d920: 20 20 73 71 6c 69 74 65 33 20 64 62 33 36 32 33    sqlite3 db3623
d930: 31 20 74 65 73 74 2e 64 62 0a 20 20 63 61 74 63  1 test.db.  catc
d940: 68 20 7b 20 64 62 33 36 32 33 31 20 66 75 6e 63  h { db36231 func
d950: 20 61 5f 73 74 72 69 6e 67 20 61 5f 73 74 72 69   a_string a_stri
d960: 6e 67 20 7d 0a 20 20 65 78 65 63 73 71 6c 20 24  ng }.  execsql $
d970: 73 71 6c 20 64 62 33 36 32 33 31 0a 20 20 64 62  sql db36231.  db
d980: 33 36 32 33 31 20 63 6c 6f 73 65 0a 20 20 68 65  36231 close.  he
d990: 78 69 6f 5f 77 72 69 74 65 20 74 65 73 74 2e 64  xio_write test.d
d9a0: 62 20 32 38 20 24 41 0a 20 20 68 65 78 69 6f 5f  b 28 $A.  hexio_
d9b0: 77 72 69 74 65 20 74 65 73 74 2e 64 62 20 39 32  write test.db 92
d9c0: 20 24 42 0a 20 20 72 65 74 75 72 6e 20 22 22 0a   $B.  return "".
d9d0: 7d 0a 0a 70 72 6f 63 20 64 62 5f 73 61 76 65 20  }..proc db_save 
d9e0: 7b 7d 20 7b 0a 20 20 66 6f 72 65 61 63 68 20 66  {} {.  foreach f
d9f0: 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61   [glob -nocompla
da00: 69 6e 20 73 76 5f 74 65 73 74 2e 64 62 2a 5d 20  in sv_test.db*] 
da10: 7b 20 66 6f 72 63 65 64 65 6c 65 74 65 20 24 66  { forcedelete $f
da20: 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 66 20 5b   }.  foreach f [
da30: 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  glob -nocomplain
da40: 20 74 65 73 74 2e 64 62 2a 5d 20 7b 0a 20 20 20   test.db*] {.   
da50: 20 73 65 74 20 66 32 20 22 73 76 5f 24 66 22 0a   set f2 "sv_$f".
da60: 20 20 20 20 66 6f 72 63 65 63 6f 70 79 20 24 66      forcecopy $f
da70: 20 24 66 32 0a 20 20 7d 0a 7d 0a 70 72 6f 63 20   $f2.  }.}.proc 
da80: 64 62 5f 73 61 76 65 5f 61 6e 64 5f 63 6c 6f 73  db_save_and_clos
da90: 65 20 7b 7d 20 7b 0a 20 20 64 62 5f 73 61 76 65  e {} {.  db_save
daa0: 0a 20 20 63 61 74 63 68 20 7b 20 64 62 20 63 6c  .  catch { db cl
dab0: 6f 73 65 20 7d 0a 20 20 72 65 74 75 72 6e 20 22  ose }.  return "
dac0: 22 0a 7d 0a 70 72 6f 63 20 64 62 5f 72 65 73 74  ".}.proc db_rest
dad0: 6f 72 65 20 7b 7d 20 7b 0a 20 20 66 6f 72 65 61  ore {} {.  forea
dae0: 63 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f  ch f [glob -noco
daf0: 6d 70 6c 61 69 6e 20 74 65 73 74 2e 64 62 2a 5d  mplain test.db*]
db00: 20 7b 20 66 6f 72 63 65 64 65 6c 65 74 65 20 24   { forcedelete $
db10: 66 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 66 32  f }.  foreach f2
db20: 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61   [glob -nocompla
db30: 69 6e 20 73 76 5f 74 65 73 74 2e 64 62 2a 5d 20  in sv_test.db*] 
db40: 7b 0a 20 20 20 20 73 65 74 20 66 20 5b 73 74 72  {.    set f [str
db50: 69 6e 67 20 72 61 6e 67 65 20 24 66 32 20 33 20  ing range $f2 3 
db60: 65 6e 64 5d 0a 20 20 20 20 66 6f 72 63 65 63 6f  end].    forceco
db70: 70 79 20 24 66 32 20 24 66 0a 20 20 7d 0a 7d 0a  py $f2 $f.  }.}.
db80: 70 72 6f 63 20 64 62 5f 72 65 73 74 6f 72 65 5f  proc db_restore_
db90: 61 6e 64 5f 72 65 6f 70 65 6e 20 7b 7b 64 62 66  and_reopen {{dbf
dba0: 69 6c 65 20 74 65 73 74 2e 64 62 7d 7d 20 7b 0a  ile test.db}} {.
dbb0: 20 20 63 61 74 63 68 20 7b 20 64 62 20 63 6c 6f    catch { db clo
dbc0: 73 65 20 7d 0a 20 20 64 62 5f 72 65 73 74 6f 72  se }.  db_restor
dbd0: 65 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20 24  e.  sqlite3 db $
dbe0: 64 62 66 69 6c 65 0a 7d 0a 70 72 6f 63 20 64 62  dbfile.}.proc db
dbf0: 5f 64 65 6c 65 74 65 5f 61 6e 64 5f 72 65 6f 70  _delete_and_reop
dc00: 65 6e 20 7b 7b 66 69 6c 65 20 74 65 73 74 2e 64  en {{file test.d
dc10: 62 7d 7d 20 7b 0a 20 20 63 61 74 63 68 20 7b 20  b}} {.  catch { 
dc20: 64 62 20 63 6c 6f 73 65 20 7d 0a 20 20 66 6f 72  db close }.  for
dc30: 65 61 63 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f  each f [glob -no
dc40: 63 6f 6d 70 6c 61 69 6e 20 74 65 73 74 2e 64 62  complain test.db
dc50: 2a 5d 20 7b 20 66 6f 72 63 65 64 65 6c 65 74 65  *] { forcedelete
dc60: 20 24 66 20 7d 0a 20 20 73 71 6c 69 74 65 33 20   $f }.  sqlite3 
dc70: 64 62 20 24 66 69 6c 65 0a 7d 0a 0a 23 20 49 66  db $file.}..# If
dc80: 20 74 68 65 20 6c 69 62 72 61 72 79 20 69 73 20   the library is 
dc90: 63 6f 6d 70 69 6c 65 64 20 77 69 74 68 20 74 68  compiled with th
dca0: 65 20 53 51 4c 49 54 45 5f 44 45 46 41 55 4c 54  e SQLITE_DEFAULT
dcb0: 5f 41 55 54 4f 56 41 43 55 55 4d 20 6d 61 63 72  _AUTOVACUUM macr
dcc0: 6f 20 73 65 74 0a 23 20 74 6f 20 6e 6f 6e 2d 7a  o set.# to non-z
dcd0: 65 72 6f 2c 20 74 68 65 6e 20 73 65 74 20 74 68  ero, then set th
dce0: 65 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c  e global variabl
dcf0: 65 20 24 41 55 54 4f 56 41 43 55 55 4d 20 74 6f  e $AUTOVACUUM to
dd00: 20 31 2e 0a 73 65 74 20 41 55 54 4f 56 41 43 55   1..set AUTOVACU
dd10: 55 4d 20 24 73 71 6c 69 74 65 5f 6f 70 74 69 6f  UM $sqlite_optio
dd20: 6e 73 28 64 65 66 61 75 6c 74 5f 61 75 74 6f 76  ns(default_autov
dd30: 61 63 75 75 6d 29 0a 0a 23 20 4d 61 6b 65 20 73  acuum)..# Make s
dd40: 75 72 65 20 74 68 65 20 46 54 53 20 65 6e 68 61  ure the FTS enha
dd50: 6e 63 65 64 20 71 75 65 72 79 20 73 79 6e 74 61  nced query synta
dd60: 78 20 69 73 20 64 69 73 61 62 6c 65 64 2e 0a 73  x is disabled..s
dd70: 65 74 20 73 71 6c 69 74 65 5f 66 74 73 33 5f 65  et sqlite_fts3_e
dd80: 6e 61 62 6c 65 5f 70 61 72 65 6e 74 68 65 73 65  nable_parenthese
dd90: 73 20 30 0a 0a 23 20 44 75 72 69 6e 67 20 74 65  s 0..# During te
dda0: 73 74 69 6e 67 2c 20 61 73 73 75 6d 65 20 74 68  sting, assume th
ddb0: 61 74 20 61 6c 6c 20 64 61 74 61 62 61 73 65 20  at all database 
ddc0: 66 69 6c 65 73 20 61 72 65 20 77 65 6c 6c 2d 66  files are well-f
ddd0: 6f 72 6d 65 64 2e 20 20 54 68 65 0a 23 20 66 65  ormed.  The.# fe
dde0: 77 20 74 65 73 74 20 63 61 73 65 73 20 74 68 61  w test cases tha
ddf0: 74 20 64 65 6c 69 62 65 72 61 74 65 6c 79 20 63  t deliberately c
de00: 6f 72 72 75 70 74 20 64 61 74 61 62 61 73 65 20  orrupt database 
de10: 66 69 6c 65 73 20 73 68 6f 75 6c 64 20 72 65 73  files should res
de20: 63 69 6e 64 20 0a 23 20 74 68 69 73 20 73 65 74  cind .# this set
de30: 74 69 6e 67 20 62 79 20 69 6e 76 6f 6b 69 6e 67  ting by invoking
de40: 20 22 64 61 74 61 62 61 73 65 5f 63 61 6e 5f 62   "database_can_b
de50: 65 5f 63 6f 72 72 75 70 74 22 0a 23 0a 64 61 74  e_corrupt".#.dat
de60: 61 62 61 73 65 5f 6e 65 76 65 72 5f 63 6f 72 72  abase_never_corr
de70: 75 70 74 0a 0a 73 6f 75 72 63 65 20 24 74 65 73  upt..source $tes
de80: 74 64 69 72 2f 74 68 72 65 61 64 5f 63 6f 6d 6d  tdir/thread_comm
de90: 6f 6e 2e 74 63 6c 0a 73 6f 75 72 63 65 20 24 74  on.tcl.source $t
dea0: 65 73 74 64 69 72 2f 6d 61 6c 6c 6f 63 5f 63 6f  estdir/malloc_co
deb0: 6d 6d 6f 6e 2e 74 63 6c 0a                       mmon.tcl.