/ Hex Artifact Content
Login

Artifact ed77454e6c7b40eb501db7e79d1c6fbfd3eebbff:


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 31  se}.  catch {db1
62c0: 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68 20   close}.  catch 
62d0: 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 20 20 63 61  {db2 close}.  ca
62e0: 74 63 68 20 7b 64 62 33 20 63 6c 6f 73 65 7d 0a  tch {db3 close}.
62f0: 20 20 69 66 20 7b 30 3d 3d 5b 69 6e 66 6f 20 65    if {0==[info e
6300: 78 69 73 74 73 20 3a 3a 53 4c 41 56 45 5d 7d 20  xists ::SLAVE]} 
6310: 7b 20 66 69 6e 61 6c 69 7a 65 5f 74 65 73 74 69  { finalize_testi
6320: 6e 67 20 7d 0a 7d 0a 70 72 6f 63 20 66 69 6e 61  ng }.}.proc fina
6330: 6c 69 7a 65 5f 74 65 73 74 69 6e 67 20 7b 7d 20  lize_testing {} 
6340: 7b 0a 20 20 67 6c 6f 62 61 6c 20 73 71 6c 69 74  {.  global sqlit
6350: 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e  e_open_file_coun
6360: 74 0a 0a 20 20 73 65 74 20 6f 6d 69 74 4c 69 73  t..  set omitLis
6370: 74 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e  t [set_test_coun
6380: 74 65 72 20 6f 6d 69 74 5f 6c 69 73 74 5d 0a 0a  ter omit_list]..
6390: 20 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73    catch {db clos
63a0: 65 7d 0a 20 20 63 61 74 63 68 20 7b 64 62 32 20  e}.  catch {db2 
63b0: 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68 20 7b  close}.  catch {
63c0: 64 62 33 20 63 6c 6f 73 65 7d 0a 0a 20 20 76 66  db3 close}..  vf
63d0: 73 5f 75 6e 6c 69 6e 6b 5f 74 65 73 74 0a 20 20  s_unlink_test.  
63e0: 73 71 6c 69 74 65 33 20 64 62 20 7b 7d 0a 20 20  sqlite3 db {}.  
63f0: 23 20 73 71 6c 69 74 65 33 5f 63 6c 65 61 72 5f  # sqlite3_clear_
6400: 74 73 64 5f 6d 65 6d 64 65 62 75 67 0a 20 20 64  tsd_memdebug.  d
6410: 62 20 63 6c 6f 73 65 0a 20 20 73 71 6c 69 74 65  b close.  sqlite
6420: 33 5f 72 65 73 65 74 5f 61 75 74 6f 5f 65 78 74  3_reset_auto_ext
6430: 65 6e 73 69 6f 6e 0a 0a 20 20 73 71 6c 69 74 65  ension..  sqlite
6440: 33 5f 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69  3_soft_heap_limi
6450: 74 20 30 0a 20 20 73 65 74 20 6e 54 65 73 74 20  t 0.  set nTest 
6460: 5b 69 6e 63 72 5f 6e 74 65 73 74 5d 0a 20 20 73  [incr_ntest].  s
6470: 65 74 20 6e 45 72 72 20 5b 73 65 74 5f 74 65 73  et nErr [set_tes
6480: 74 5f 63 6f 75 6e 74 65 72 20 65 72 72 6f 72 73  t_counter errors
6490: 5d 0a 0a 20 20 73 65 74 20 6e 4b 6e 6f 77 6e 20  ]..  set nKnown 
64a0: 30 0a 20 20 69 66 20 7b 5b 66 69 6c 65 20 72 65  0.  if {[file re
64b0: 61 64 61 62 6c 65 20 6b 6e 6f 77 6e 2d 70 72 6f  adable known-pro
64c0: 62 6c 65 6d 73 2e 74 78 74 5d 7d 20 7b 0a 20 20  blems.txt]} {.  
64d0: 20 20 73 65 74 20 66 64 20 5b 6f 70 65 6e 20 6b    set fd [open k
64e0: 6e 6f 77 6e 2d 70 72 6f 62 6c 65 6d 73 2e 74 78  nown-problems.tx
64f0: 74 5d 0a 20 20 20 20 73 65 74 20 63 6f 6e 74 65  t].    set conte
6500: 6e 74 20 5b 72 65 61 64 20 24 66 64 5d 0a 20 20  nt [read $fd].  
6510: 20 20 63 6c 6f 73 65 20 24 66 64 0a 20 20 20 20    close $fd.    
6520: 66 6f 72 65 61 63 68 20 78 20 24 63 6f 6e 74 65  foreach x $conte
6530: 6e 74 20 7b 73 65 74 20 6b 6e 6f 77 6e 5f 65 72  nt {set known_er
6540: 72 6f 72 28 24 78 29 20 31 7d 0a 20 20 20 20 66  ror($x) 1}.    f
6550: 6f 72 65 61 63 68 20 78 20 5b 73 65 74 5f 74 65  oreach x [set_te
6560: 73 74 5f 63 6f 75 6e 74 65 72 20 66 61 69 6c 5f  st_counter fail_
6570: 6c 69 73 74 5d 20 7b 0a 20 20 20 20 20 20 69 66  list] {.      if
6580: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 6b   {[info exists k
6590: 6e 6f 77 6e 5f 65 72 72 6f 72 28 24 78 29 5d 7d  nown_error($x)]}
65a0: 20 7b 69 6e 63 72 20 6e 4b 6e 6f 77 6e 7d 0a 20   {incr nKnown}. 
65b0: 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 20 7b 24     }.  }.  if {$
65c0: 6e 4b 6e 6f 77 6e 3e 30 7d 20 7b 0a 20 20 20 20  nKnown>0} {.    
65d0: 70 75 74 73 20 22 5b 65 78 70 72 20 7b 24 6e 45  puts "[expr {$nE
65e0: 72 72 2d 24 6e 4b 6e 6f 77 6e 7d 5d 20 6e 65 77  rr-$nKnown}] new
65f0: 20 65 72 72 6f 72 73 20 61 6e 64 20 24 6e 4b 6e   errors and $nKn
6600: 6f 77 6e 20 6b 6e 6f 77 6e 20 65 72 72 6f 72 73  own known errors
6610: 5c 0a 20 20 20 20 20 20 20 20 20 6f 75 74 20 6f  \.         out o
6620: 66 20 24 6e 54 65 73 74 20 74 65 73 74 73 22 0a  f $nTest tests".
6630: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 70    } else {.    p
6640: 75 74 73 20 22 24 6e 45 72 72 20 65 72 72 6f 72  uts "$nErr error
6650: 73 20 6f 75 74 20 6f 66 20 24 6e 54 65 73 74 20  s out of $nTest 
6660: 74 65 73 74 73 22 0a 20 20 7d 0a 20 20 69 66 20  tests".  }.  if 
6670: 7b 24 6e 45 72 72 3e 24 6e 4b 6e 6f 77 6e 7d 20  {$nErr>$nKnown} 
6680: 7b 0a 20 20 20 20 70 75 74 73 20 2d 6e 6f 6e 65  {.    puts -none
6690: 77 6c 69 6e 65 20 22 46 61 69 6c 75 72 65 73 20  wline "Failures 
66a0: 6f 6e 20 74 68 65 73 65 20 74 65 73 74 73 3a 22  on these tests:"
66b0: 0a 20 20 20 20 66 6f 72 65 61 63 68 20 78 20 5b  .    foreach x [
66c0: 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72  set_test_counter
66d0: 20 66 61 69 6c 5f 6c 69 73 74 5d 20 7b 0a 20 20   fail_list] {.  
66e0: 20 20 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65      if {![info e
66f0: 78 69 73 74 73 20 6b 6e 6f 77 6e 5f 65 72 72 6f  xists known_erro
6700: 72 28 24 78 29 5d 7d 20 7b 70 75 74 73 20 2d 6e  r($x)]} {puts -n
6710: 6f 6e 65 77 6c 69 6e 65 20 22 20 24 78 22 7d 0a  onewline " $x"}.
6720: 20 20 20 20 7d 0a 20 20 20 20 70 75 74 73 20 22      }.    puts "
6730: 22 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63 68 20  ".  }.  foreach 
6740: 77 61 72 6e 69 6e 67 20 5b 73 65 74 5f 74 65 73  warning [set_tes
6750: 74 5f 63 6f 75 6e 74 65 72 20 77 61 72 6e 5f 6c  t_counter warn_l
6760: 69 73 74 5d 20 7b 0a 20 20 20 20 70 75 74 73 20  ist] {.    puts 
6770: 22 57 61 72 6e 69 6e 67 3a 20 24 77 61 72 6e 69  "Warning: $warni
6780: 6e 67 22 0a 20 20 7d 0a 20 20 72 75 6e 5f 74 68  ng".  }.  run_th
6790: 72 65 61 64 5f 74 65 73 74 73 20 31 0a 20 20 69  read_tests 1.  i
67a0: 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 6f 6d 69  f {[llength $omi
67b0: 74 4c 69 73 74 5d 3e 30 7d 20 7b 0a 20 20 20 20  tList]>0} {.    
67c0: 70 75 74 73 20 22 4f 6d 69 74 74 65 64 20 74 65  puts "Omitted te
67d0: 73 74 20 63 61 73 65 73 3a 22 0a 20 20 20 20 73  st cases:".    s
67e0: 65 74 20 70 72 65 63 20 7b 7d 0a 20 20 20 20 66  et prec {}.    f
67f0: 6f 72 65 61 63 68 20 7b 72 65 63 7d 20 5b 6c 73  oreach {rec} [ls
6800: 6f 72 74 20 24 6f 6d 69 74 4c 69 73 74 5d 20 7b  ort $omitList] {
6810: 0a 20 20 20 20 20 20 69 66 20 7b 24 72 65 63 3d  .      if {$rec=
6820: 3d 24 70 72 65 63 7d 20 63 6f 6e 74 69 6e 75 65  =$prec} continue
6830: 0a 20 20 20 20 20 20 73 65 74 20 70 72 65 63 20  .      set prec 
6840: 24 72 65 63 0a 20 20 20 20 20 20 70 75 74 73 20  $rec.      puts 
6850: 5b 66 6f 72 6d 61 74 20 7b 20 20 25 2d 31 32 73  [format {  %-12s
6860: 20 25 73 7d 20 5b 6c 69 6e 64 65 78 20 24 72 65   %s} [lindex $re
6870: 63 20 30 5d 20 5b 6c 69 6e 64 65 78 20 24 72 65  c 0] [lindex $re
6880: 63 20 31 5d 5d 0a 20 20 20 20 7d 0a 20 20 7d 0a  c 1]].    }.  }.
6890: 20 20 69 66 20 7b 24 6e 45 72 72 3e 30 20 26 26    if {$nErr>0 &&
68a0: 20 21 5b 77 6f 72 6b 69 6e 67 5f 36 34 62 69 74   ![working_64bit
68b0: 5f 69 6e 74 5d 7d 20 7b 0a 20 20 20 20 70 75 74  _int]} {.    put
68c0: 73 20 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  s "*************
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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6900: 2a 2a 2a 2a 2a 22 0a 20 20 20 20 70 75 74 73 20  *****".    puts 
6910: 22 4e 2e 42 2e 3a 20 20 54 68 65 20 76 65 72 73  "N.B.:  The vers
6920: 69 6f 6e 20 6f 66 20 54 43 4c 20 74 68 61 74 20  ion of TCL that 
6930: 79 6f 75 20 75 73 65 64 20 74 6f 20 62 75 69 6c  you used to buil
6940: 64 20 74 68 69 73 20 74 65 73 74 20 68 61 72 6e  d this test harn
6950: 65 73 73 22 0a 20 20 20 20 70 75 74 73 20 22 69  ess".    puts "i
6960: 73 20 64 65 66 65 63 74 69 76 65 20 69 6e 20 74  s defective in t
6970: 68 61 74 20 69 74 20 64 6f 65 73 20 6e 6f 74 20  hat it does not 
6980: 73 75 70 70 6f 72 74 20 36 34 2d 62 69 74 20 69  support 64-bit i
6990: 6e 74 65 67 65 72 73 2e 20 20 53 6f 6d 65 20 6f  ntegers.  Some o
69a0: 72 22 0a 20 20 20 20 70 75 74 73 20 22 61 6c 6c  r".    puts "all
69b0: 20 6f 66 20 74 68 65 20 74 65 73 74 20 66 61 69   of the test fai
69c0: 6c 75 72 65 73 20 61 62 6f 76 65 20 6d 69 67 68  lures above migh
69d0: 74 20 62 65 20 61 20 72 65 73 75 6c 74 20 66 72  t be a result fr
69e0: 6f 6d 20 74 68 69 73 20 64 65 66 65 63 74 22 0a  om this defect".
69f0: 20 20 20 20 70 75 74 73 20 22 69 6e 20 79 6f 75      puts "in you
6a00: 72 20 54 43 4c 20 62 75 69 6c 64 2e 22 0a 20 20  r TCL build.".  
6a10: 20 20 70 75 74 73 20 22 2a 2a 2a 2a 2a 2a 2a 2a    puts "********
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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6a50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 0a 20 20 7d 0a  **********".  }.
6a60: 20 20 69 66 20 7b 24 3a 3a 63 6d 64 6c 69 6e 65    if {$::cmdline
6a70: 61 72 67 28 62 69 6e 61 72 79 6c 6f 67 29 7d 20  arg(binarylog)} 
6a80: 7b 0a 20 20 20 20 76 66 73 6c 6f 67 20 66 69 6e  {.    vfslog fin
6a90: 61 6c 69 7a 65 20 62 69 6e 61 72 79 6c 6f 67 0a  alize binarylog.
6aa0: 20 20 7d 0a 20 20 69 66 20 7b 24 73 71 6c 69 74    }.  if {$sqlit
6ab0: 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e  e_open_file_coun
6ac0: 74 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22 24  t} {.    puts "$
6ad0: 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65  sqlite_open_file
6ae0: 5f 63 6f 75 6e 74 20 66 69 6c 65 73 20 77 65 72  _count files wer
6af0: 65 20 6c 65 66 74 20 6f 70 65 6e 22 0a 20 20 20  e left open".   
6b00: 20 69 6e 63 72 20 6e 45 72 72 0a 20 20 7d 0a 20   incr nErr.  }. 
6b10: 20 69 66 20 7b 5b 6c 69 6e 64 65 78 20 5b 73 71   if {[lindex [sq
6b20: 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c  lite3_status SQL
6b30: 49 54 45 5f 53 54 41 54 55 53 5f 4d 41 4c 4c 4f  ITE_STATUS_MALLO
6b40: 43 5f 43 4f 55 4e 54 20 30 5d 20 31 5d 3e 30 20  C_COUNT 0] 1]>0 
6b50: 7c 7c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ||.             
6b60: 20 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79   [sqlite3_memory
6b70: 5f 75 73 65 64 5d 3e 30 7d 20 7b 0a 20 20 20 20  _used]>0} {.    
6b80: 70 75 74 73 20 22 55 6e 66 72 65 65 64 20 6d 65  puts "Unfreed me
6b90: 6d 6f 72 79 3a 20 5b 73 71 6c 69 74 65 33 5f 6d  mory: [sqlite3_m
6ba0: 65 6d 6f 72 79 5f 75 73 65 64 5d 20 62 79 74 65  emory_used] byte
6bb0: 73 20 69 6e 5c 0a 20 20 20 20 20 20 20 20 20 5b  s in\.         [
6bc0: 6c 69 6e 64 65 78 20 5b 73 71 6c 69 74 65 33 5f  lindex [sqlite3_
6bd0: 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54  status SQLITE_ST
6be0: 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f 43 4f 55 4e  ATUS_MALLOC_COUN
6bf0: 54 20 30 5d 20 31 5d 20 61 6c 6c 6f 63 61 74 69  T 0] 1] allocati
6c00: 6f 6e 73 22 0a 20 20 20 20 69 6e 63 72 20 6e 45  ons".    incr nE
6c10: 72 72 0a 20 20 20 20 69 66 63 61 70 61 62 6c 65  rr.    ifcapable
6c20: 20 6d 65 6d 64 65 62 75 67 7c 7c 6d 65 6d 35 7c   memdebug||mem5|
6c30: 7c 28 6d 65 6d 33 26 26 64 65 62 75 67 29 20 7b  |(mem3&&debug) {
6c40: 0a 20 20 20 20 20 20 70 75 74 73 20 22 57 72 69  .      puts "Wri
6c50: 74 69 6e 67 20 75 6e 66 72 65 65 64 20 6d 65 6d  ting unfreed mem
6c60: 6f 72 79 20 6c 6f 67 20 74 6f 20 5c 22 2e 2f 6d  ory log to \"./m
6c70: 65 6d 6c 65 61 6b 2e 74 78 74 5c 22 22 0a 20 20  emleak.txt\"".  
6c80: 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64      sqlite3_memd
6c90: 65 62 75 67 5f 64 75 6d 70 20 2e 2f 6d 65 6d 6c  ebug_dump ./meml
6ca0: 65 61 6b 2e 74 78 74 0a 20 20 20 20 7d 0a 20 20  eak.txt.    }.  
6cb0: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 70 75 74  } else {.    put
6cc0: 73 20 22 41 6c 6c 20 6d 65 6d 6f 72 79 20 61 6c  s "All memory al
6cd0: 6c 6f 63 61 74 69 6f 6e 73 20 66 72 65 65 64 20  locations freed 
6ce0: 2d 20 6e 6f 20 6c 65 61 6b 73 22 0a 20 20 20 20  - no leaks".    
6cf0: 69 66 63 61 70 61 62 6c 65 20 6d 65 6d 64 65 62  ifcapable memdeb
6d00: 75 67 7c 7c 6d 65 6d 35 20 7b 0a 20 20 20 20 20  ug||mem5 {.     
6d10: 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75   sqlite3_memdebu
6d20: 67 5f 64 75 6d 70 20 2e 2f 6d 65 6d 75 73 61 67  g_dump ./memusag
6d30: 65 2e 74 78 74 0a 20 20 20 20 7d 0a 20 20 7d 0a  e.txt.    }.  }.
6d40: 20 20 73 68 6f 77 5f 6d 65 6d 73 74 61 74 73 0a    show_memstats.
6d50: 20 20 70 75 74 73 20 22 4d 61 78 69 6d 75 6d 20    puts "Maximum 
6d60: 6d 65 6d 6f 72 79 20 75 73 61 67 65 3a 20 5b 73  memory usage: [s
6d70: 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 68 69  qlite3_memory_hi
6d80: 67 68 77 61 74 65 72 20 31 5d 20 62 79 74 65 73  ghwater 1] bytes
6d90: 22 0a 20 20 70 75 74 73 20 22 43 75 72 72 65 6e  ".  puts "Curren
6da0: 74 20 6d 65 6d 6f 72 79 20 75 73 61 67 65 3a 20  t memory usage: 
6db0: 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f  [sqlite3_memory_
6dc0: 68 69 67 68 77 61 74 65 72 5d 20 62 79 74 65 73  highwater] bytes
6dd0: 22 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 63 6f  ".  if {[info co
6de0: 6d 6d 61 6e 64 73 20 73 71 6c 69 74 65 33 5f 6d  mmands sqlite3_m
6df0: 65 6d 64 65 62 75 67 5f 6d 61 6c 6c 6f 63 5f 63  emdebug_malloc_c
6e00: 6f 75 6e 74 5d 20 6e 65 20 22 22 7d 20 7b 0a 20  ount] ne ""} {. 
6e10: 20 20 20 70 75 74 73 20 22 4e 75 6d 62 65 72 20     puts "Number 
6e20: 6f 66 20 6d 61 6c 6c 6f 63 28 29 20 20 3a 20 5b  of malloc()  : [
6e30: 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67  sqlite3_memdebug
6e40: 5f 6d 61 6c 6c 6f 63 5f 63 6f 75 6e 74 5d 20 63  _malloc_count] c
6e50: 61 6c 6c 73 22 0a 20 20 7d 0a 20 20 69 66 20 7b  alls".  }.  if {
6e60: 24 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61  $::cmdlinearg(ma
6e70: 6c 6c 6f 63 74 72 61 63 65 29 7d 20 7b 0a 20 20  lloctrace)} {.  
6e80: 20 20 70 75 74 73 20 22 57 72 69 74 69 6e 67 20    puts "Writing 
6e90: 6d 61 6c 6c 6f 63 73 2e 73 71 6c 2e 2e 2e 22 0a  mallocs.sql...".
6ea0: 20 20 20 20 6d 65 6d 64 65 62 75 67 5f 6c 6f 67      memdebug_log
6eb0: 5f 73 71 6c 0a 20 20 20 20 73 71 6c 69 74 65 33  _sql.    sqlite3
6ec0: 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 20 73 74  _memdebug_log st
6ed0: 6f 70 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 6d  op.    sqlite3_m
6ee0: 65 6d 64 65 62 75 67 5f 6c 6f 67 20 63 6c 65 61  emdebug_log clea
6ef0: 72 0a 0a 20 20 20 20 69 66 20 7b 5b 73 71 6c 69  r..    if {[sqli
6f00: 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 64 5d  te3_memory_used]
6f10: 3e 30 7d 20 7b 0a 20 20 20 20 20 20 70 75 74 73  >0} {.      puts
6f20: 20 22 57 72 69 74 69 6e 67 20 6c 65 61 6b 73 2e   "Writing leaks.
6f30: 73 71 6c 2e 2e 2e 22 0a 20 20 20 20 20 20 73 71  sql...".      sq
6f40: 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 6c  lite3_memdebug_l
6f50: 6f 67 20 73 79 6e 63 0a 20 20 20 20 20 20 6d 65  og sync.      me
6f60: 6d 64 65 62 75 67 5f 6c 6f 67 5f 73 71 6c 20 6c  mdebug_log_sql l
6f70: 65 61 6b 73 2e 73 71 6c 0a 20 20 20 20 7d 0a 20  eaks.sql.    }. 
6f80: 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 66 20 5b   }.  foreach f [
6f90: 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  glob -nocomplain
6fa0: 20 74 65 73 74 2e 64 62 2d 2a 2d 6a 6f 75 72 6e   test.db-*-journ
6fb0: 61 6c 5d 20 7b 0a 20 20 20 20 66 6f 72 63 65 64  al] {.    forced
6fc0: 65 6c 65 74 65 20 24 66 0a 20 20 7d 0a 20 20 66  elete $f.  }.  f
6fd0: 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f 62 20 2d  oreach f [glob -
6fe0: 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 73 74 2e  nocomplain test.
6ff0: 64 62 2d 6d 6a 2a 5d 20 7b 0a 20 20 20 20 66 6f  db-mj*] {.    fo
7000: 72 63 65 64 65 6c 65 74 65 20 24 66 0a 20 20 7d  rcedelete $f.  }
7010: 0a 20 20 65 78 69 74 20 5b 65 78 70 72 20 7b 24  .  exit [expr {$
7020: 6e 45 72 72 3e 30 7d 5d 0a 7d 0a 0a 23 20 44 69  nErr>0}].}..# Di
7030: 73 70 6c 61 79 20 6d 65 6d 6f 72 79 20 73 74 61  splay memory sta
7040: 74 69 73 74 69 63 73 20 66 6f 72 20 61 6e 61 6c  tistics for anal
7050: 79 73 69 73 20 61 6e 64 20 64 65 62 75 67 67 69  ysis and debuggi
7060: 6e 67 20 70 75 72 70 6f 73 65 73 2e 0a 23 0a 70  ng purposes..#.p
7070: 72 6f 63 20 73 68 6f 77 5f 6d 65 6d 73 74 61 74  roc show_memstat
7080: 73 20 7b 7d 20 7b 0a 20 20 73 65 74 20 78 20 5b  s {} {.  set x [
7090: 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53  sqlite3_status S
70a0: 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 4d 45 4d  QLITE_STATUS_MEM
70b0: 4f 52 59 5f 55 53 45 44 20 30 5d 0a 20 20 73 65  ORY_USED 0].  se
70c0: 74 20 79 20 5b 73 71 6c 69 74 65 33 5f 73 74 61  t y [sqlite3_sta
70d0: 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55  tus SQLITE_STATU
70e0: 53 5f 4d 41 4c 4c 4f 43 5f 53 49 5a 45 20 30 5d  S_MALLOC_SIZE 0]
70f0: 0a 20 20 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d  .  set val [form
7100: 61 74 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d 61  at {now %10d  ma
7110: 78 20 25 31 30 64 20 20 6d 61 78 2d 73 69 7a 65  x %10d  max-size
7120: 20 25 31 30 64 7d 20 5c 0a 20 20 20 20 20 20 20   %10d} \.       
7130: 20 20 20 20 20 20 20 5b 6c 69 6e 64 65 78 20 24         [lindex $
7140: 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 78 20  x 1] [lindex $x 
7150: 32 5d 20 5b 6c 69 6e 64 65 78 20 24 79 20 32 5d  2] [lindex $y 2]
7160: 5d 0a 20 20 70 75 74 73 20 22 4d 65 6d 6f 72 79  ].  puts "Memory
7170: 20 75 73 65 64 3a 20 20 20 20 20 20 20 20 20 20   used:          
7180: 24 76 61 6c 22 0a 20 20 73 65 74 20 78 20 5b 73  $val".  set x [s
7190: 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 51  qlite3_status SQ
71a0: 4c 49 54 45 5f 53 54 41 54 55 53 5f 4d 41 4c 4c  LITE_STATUS_MALL
71b0: 4f 43 5f 43 4f 55 4e 54 20 30 5d 0a 20 20 73 65  OC_COUNT 0].  se
71c0: 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b 6e  t val [format {n
71d0: 6f 77 20 25 31 30 64 20 20 6d 61 78 20 25 31 30  ow %10d  max %10
71e0: 64 7d 20 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d  d} [lindex $x 1]
71f0: 20 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 5d 0a   [lindex $x 2]].
7200: 20 20 70 75 74 73 20 22 41 6c 6c 6f 63 61 74 69    puts "Allocati
7210: 6f 6e 20 63 6f 75 6e 74 3a 20 20 20 20 20 24 76  on count:     $v
7220: 61 6c 22 0a 20 20 73 65 74 20 78 20 5b 73 71 6c  al".  set x [sql
7230: 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49  ite3_status SQLI
7240: 54 45 5f 53 54 41 54 55 53 5f 50 41 47 45 43 41  TE_STATUS_PAGECA
7250: 43 48 45 5f 55 53 45 44 20 30 5d 0a 20 20 73 65  CHE_USED 0].  se
7260: 74 20 79 20 5b 73 71 6c 69 74 65 33 5f 73 74 61  t y [sqlite3_sta
7270: 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55  tus SQLITE_STATU
7280: 53 5f 50 41 47 45 43 41 43 48 45 5f 53 49 5a 45  S_PAGECACHE_SIZE
7290: 20 30 5d 0a 20 20 73 65 74 20 76 61 6c 20 5b 66   0].  set val [f
72a0: 6f 72 6d 61 74 20 7b 6e 6f 77 20 25 31 30 64 20  ormat {now %10d 
72b0: 20 6d 61 78 20 25 31 30 64 20 20 6d 61 78 2d 73   max %10d  max-s
72c0: 69 7a 65 20 25 31 30 64 7d 20 5c 0a 20 20 20 20  ize %10d} \.    
72d0: 20 20 20 20 20 20 20 20 20 20 5b 6c 69 6e 64 65            [linde
72e0: 78 20 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20  x $x 1] [lindex 
72f0: 24 78 20 32 5d 20 5b 6c 69 6e 64 65 78 20 24 79  $x 2] [lindex $y
7300: 20 32 5d 5d 0a 20 20 70 75 74 73 20 22 50 61 67   2]].  puts "Pag
7310: 65 2d 63 61 63 68 65 20 75 73 65 64 3a 20 20 20  e-cache used:   
7320: 20 20 20 24 76 61 6c 22 0a 20 20 73 65 74 20 78     $val".  set x
7330: 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73   [sqlite3_status
7340: 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 50   SQLITE_STATUS_P
7350: 41 47 45 43 41 43 48 45 5f 4f 56 45 52 46 4c 4f  AGECACHE_OVERFLO
7360: 57 20 30 5d 0a 20 20 73 65 74 20 76 61 6c 20 5b  W 0].  set val [
7370: 66 6f 72 6d 61 74 20 7b 6e 6f 77 20 25 31 30 64  format {now %10d
7380: 20 20 6d 61 78 20 25 31 30 64 7d 20 5b 6c 69 6e    max %10d} [lin
7390: 64 65 78 20 24 78 20 31 5d 20 5b 6c 69 6e 64 65  dex $x 1] [linde
73a0: 78 20 24 78 20 32 5d 5d 0a 20 20 70 75 74 73 20  x $x 2]].  puts 
73b0: 22 50 61 67 65 2d 63 61 63 68 65 20 6f 76 65 72  "Page-cache over
73c0: 66 6c 6f 77 3a 20 20 24 76 61 6c 22 0a 20 20 73  flow:  $val".  s
73d0: 65 74 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74  et x [sqlite3_st
73e0: 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54  atus SQLITE_STAT
73f0: 55 53 5f 53 43 52 41 54 43 48 5f 55 53 45 44 20  US_SCRATCH_USED 
7400: 30 5d 0a 20 20 73 65 74 20 76 61 6c 20 5b 66 6f  0].  set val [fo
7410: 72 6d 61 74 20 7b 6e 6f 77 20 25 31 30 64 20 20  rmat {now %10d  
7420: 6d 61 78 20 25 31 30 64 7d 20 5b 6c 69 6e 64 65  max %10d} [linde
7430: 78 20 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20  x $x 1] [lindex 
7440: 24 78 20 32 5d 5d 0a 20 20 70 75 74 73 20 22 53  $x 2]].  puts "S
7450: 63 72 61 74 63 68 20 6d 65 6d 6f 72 79 20 75 73  cratch memory us
7460: 65 64 3a 20 20 24 76 61 6c 22 0a 20 20 73 65 74  ed:  $val".  set
7470: 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74   x [sqlite3_stat
7480: 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53  us SQLITE_STATUS
7490: 5f 53 43 52 41 54 43 48 5f 4f 56 45 52 46 4c 4f  _SCRATCH_OVERFLO
74a0: 57 20 30 5d 0a 20 20 73 65 74 20 79 20 5b 73 71  W 0].  set y [sq
74b0: 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c  lite3_status SQL
74c0: 49 54 45 5f 53 54 41 54 55 53 5f 53 43 52 41 54  ITE_STATUS_SCRAT
74d0: 43 48 5f 53 49 5a 45 20 30 5d 0a 20 20 73 65 74  CH_SIZE 0].  set
74e0: 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b 6e 6f   val [format {no
74f0: 77 20 25 31 30 64 20 20 6d 61 78 20 25 31 30 64  w %10d  max %10d
7500: 20 20 6d 61 78 2d 73 69 7a 65 20 25 31 30 64 7d    max-size %10d}
7510: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20   \.             
7520: 20 20 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d 20    [lindex $x 1] 
7530: 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 20 5b 6c  [lindex $x 2] [l
7540: 69 6e 64 65 78 20 24 79 20 32 5d 5d 0a 20 20 70  index $y 2]].  p
7550: 75 74 73 20 22 53 63 72 61 74 63 68 20 6f 76 65  uts "Scratch ove
7560: 72 66 6c 6f 77 3a 20 20 20 20 20 24 76 61 6c 22  rflow:     $val"
7570: 0a 20 20 69 66 63 61 70 61 62 6c 65 20 79 79 74  .  ifcapable yyt
7580: 72 61 63 6b 6d 61 78 73 74 61 63 6b 64 65 70 74  rackmaxstackdept
7590: 68 20 7b 0a 20 20 20 20 73 65 74 20 78 20 5b 73  h {.    set x [s
75a0: 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 51  qlite3_status SQ
75b0: 4c 49 54 45 5f 53 54 41 54 55 53 5f 50 41 52 53  LITE_STATUS_PARS
75c0: 45 52 5f 53 54 41 43 4b 20 30 5d 0a 20 20 20 20  ER_STACK 0].    
75d0: 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20  set val [format 
75e0: 7b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  {               
75f0: 6d 61 78 20 25 31 30 64 7d 20 5b 6c 69 6e 64 65  max %10d} [linde
7600: 78 20 24 78 20 32 5d 5d 0a 20 20 20 20 70 75 74  x $x 2]].    put
7610: 73 20 22 50 61 72 73 65 72 20 73 74 61 63 6b 20  s "Parser stack 
7620: 64 65 70 74 68 3a 20 20 20 20 24 76 61 6c 22 0a  depth:    $val".
7630: 20 20 7d 0a 7d 0a 0a 23 20 41 20 70 72 6f 63 65    }.}..# A proce
7640: 64 75 72 65 20 74 6f 20 65 78 65 63 75 74 65 20  dure to execute 
7650: 53 51 4c 0a 23 0a 70 72 6f 63 20 65 78 65 63 73  SQL.#.proc execs
7660: 71 6c 20 7b 73 71 6c 20 7b 64 62 20 64 62 7d 7d  ql {sql {db db}}
7670: 20 7b 0a 20 20 23 20 70 75 74 73 20 22 53 51 4c   {.  # puts "SQL
7680: 20 3d 20 24 73 71 6c 22 0a 20 20 75 70 6c 65 76   = $sql".  uplev
7690: 65 6c 20 5b 6c 69 73 74 20 24 64 62 20 65 76 61  el [list $db eva
76a0: 6c 20 24 73 71 6c 5d 0a 7d 0a 70 72 6f 63 20 65  l $sql].}.proc e
76b0: 78 65 63 73 71 6c 5f 74 69 6d 65 64 20 7b 73 71  xecsql_timed {sq
76c0: 6c 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 73  l {db db}} {.  s
76d0: 65 74 20 74 6d 20 5b 74 69 6d 65 20 7b 0a 20 20  et tm [time {.  
76e0: 20 20 73 65 74 20 78 20 5b 75 70 6c 65 76 65 6c    set x [uplevel
76f0: 20 5b 6c 69 73 74 20 24 64 62 20 65 76 61 6c 20   [list $db eval 
7700: 24 73 71 6c 5d 5d 0a 20 20 7d 20 31 5d 0a 20 20  $sql]].  } 1].  
7710: 73 65 74 20 74 6d 20 5b 6c 69 6e 64 65 78 20 24  set tm [lindex $
7720: 74 6d 20 30 5d 0a 20 20 70 75 74 73 20 2d 6e 6f  tm 0].  puts -no
7730: 6e 65 77 6c 69 6e 65 20 22 20 28 5b 65 78 70 72  newline " ([expr
7740: 20 7b 24 74 6d 2a 30 2e 30 30 31 7d 5d 6d 73 29   {$tm*0.001}]ms)
7750: 20 22 0a 20 20 73 65 74 20 78 0a 7d 0a 0a 23 20   ".  set x.}..# 
7760: 45 78 65 63 75 74 65 20 53 51 4c 20 61 6e 64 20  Execute SQL and 
7770: 63 61 74 63 68 20 65 78 63 65 70 74 69 6f 6e 73  catch exceptions
7780: 2e 0a 23 0a 70 72 6f 63 20 63 61 74 63 68 73 71  ..#.proc catchsq
7790: 6c 20 7b 73 71 6c 20 7b 64 62 20 64 62 7d 7d 20  l {sql {db db}} 
77a0: 7b 0a 20 20 23 20 70 75 74 73 20 22 53 51 4c 20  {.  # puts "SQL 
77b0: 3d 20 24 73 71 6c 22 0a 20 20 73 65 74 20 72 20  = $sql".  set r 
77c0: 5b 63 61 74 63 68 20 5b 6c 69 73 74 20 75 70 6c  [catch [list upl
77d0: 65 76 65 6c 20 5b 6c 69 73 74 20 24 64 62 20 65  evel [list $db e
77e0: 76 61 6c 20 24 73 71 6c 5d 5d 20 6d 73 67 5d 0a  val $sql]] msg].
77f0: 20 20 6c 61 70 70 65 6e 64 20 72 20 24 6d 73 67    lappend r $msg
7800: 0a 20 20 72 65 74 75 72 6e 20 24 72 0a 7d 0a 0a  .  return $r.}..
7810: 23 20 44 6f 20 61 6e 20 56 44 42 45 20 63 6f 64  # Do an VDBE cod
7820: 65 20 64 75 6d 70 20 6f 6e 20 74 68 65 20 53 51  e dump on the SQ
7830: 4c 20 67 69 76 65 6e 0a 23 0a 70 72 6f 63 20 65  L given.#.proc e
7840: 78 70 6c 61 69 6e 20 7b 73 71 6c 20 7b 64 62 20  xplain {sql {db 
7850: 64 62 7d 7d 20 7b 0a 20 20 70 75 74 73 20 22 22  db}} {.  puts ""
7860: 0a 20 20 70 75 74 73 20 22 61 64 64 72 20 20 6f  .  puts "addr  o
7870: 70 63 6f 64 65 20 20 20 20 20 20 20 20 70 31 20  pcode        p1 
7880: 20 20 20 20 20 70 32 20 20 20 20 20 20 70 33 20       p2      p3 
7890: 20 20 20 20 20 70 34 20 20 20 20 20 20 20 20 20       p4         
78a0: 20 20 20 20 20 20 70 35 20 20 23 22 0a 20 20 70        p5  #".  p
78b0: 75 74 73 20 22 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d  uts "----  -----
78c0: 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20  -------  ------ 
78d0: 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20   ------  ------ 
78e0: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ---------------
78f0: 20 20 2d 2d 20 20 2d 22 0a 20 20 24 64 62 20 65    --  -".  $db e
7900: 76 61 6c 20 22 65 78 70 6c 61 69 6e 20 24 73 71  val "explain $sq
7910: 6c 22 20 7b 7d 20 7b 0a 20 20 20 20 70 75 74 73  l" {} {.    puts
7920: 20 5b 66 6f 72 6d 61 74 20 7b 25 2d 34 64 20 20   [format {%-4d  
7930: 25 2d 31 32 2e 31 32 73 20 20 25 2d 36 64 20 20  %-12.12s  %-6d  
7940: 25 2d 36 64 20 20 25 2d 36 64 20 20 25 20 2d 31  %-6d  %-6d  % -1
7950: 37 73 20 25 73 20 20 25 73 7d 20 5c 0a 20 20 20  7s %s  %s} \.   
7960: 20 20 20 24 61 64 64 72 20 24 6f 70 63 6f 64 65     $addr $opcode
7970: 20 24 70 31 20 24 70 32 20 24 70 33 20 24 70 34   $p1 $p2 $p3 $p4
7980: 20 24 70 35 20 24 63 6f 6d 6d 65 6e 74 0a 20 20   $p5 $comment.  
7990: 20 20 5d 0a 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20    ].  }.}..proc 
79a0: 65 78 70 6c 61 69 6e 5f 69 20 7b 73 71 6c 20 7b  explain_i {sql {
79b0: 64 62 20 64 62 7d 7d 20 7b 0a 20 20 70 75 74 73  db db}} {.  puts
79c0: 20 22 22 0a 20 20 70 75 74 73 20 22 61 64 64 72   "".  puts "addr
79d0: 20 20 6f 70 63 6f 64 65 20 20 20 20 20 20 20 20    opcode        
79e0: 70 31 20 20 20 20 20 20 70 32 20 20 20 20 20 20  p1      p2      
79f0: 70 33 20 20 20 20 20 20 70 34 20 20 20 20 20 20  p3      p4      
7a00: 20 20 20 20 20 20 20 20 20 20 70 35 20 20 23 22            p5  #"
7a10: 0a 20 20 70 75 74 73 20 22 2d 2d 2d 2d 20 20 2d  .  puts "----  -
7a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d  -----------  ---
7a30: 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d  ---  ------  ---
7a40: 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ---  -----------
7a50: 2d 2d 2d 2d 2d 20 20 2d 2d 20 20 2d 22 0a 0a 0a  -----  --  -"...
7a60: 20 20 23 20 53 65 74 20 75 70 20 63 6f 6c 6f 72    # Set up color
7a70: 73 20 66 6f 72 20 74 68 65 20 64 69 66 66 65 72  s for the differ
7a80: 65 6e 74 20 6f 70 63 6f 64 65 73 2e 20 53 63 68  ent opcodes. Sch
7a90: 65 6d 65 20 69 73 20 61 73 20 66 6f 6c 6c 6f 77  eme is as follow
7aa0: 73 3a 0a 20 20 23 0a 20 20 23 20 20 20 52 65 64  s:.  #.  #   Red
7ab0: 3a 20 20 20 4f 70 63 6f 64 65 73 20 74 68 61 74  :   Opcodes that
7ac0: 20 77 72 69 74 65 20 74 6f 20 61 20 62 2d 74 72   write to a b-tr
7ad0: 65 65 2e 0a 20 20 23 20 20 20 42 6c 75 65 3a 20  ee..  #   Blue: 
7ae0: 20 4f 70 63 6f 64 65 73 20 74 68 61 74 20 72 65   Opcodes that re
7af0: 70 6f 73 69 74 69 6f 6e 20 6f 72 20 73 65 65 6b  position or seek
7b00: 20 61 20 63 75 72 73 6f 72 2e 20 0a 20 20 23 20   a cursor. .  # 
7b10: 20 20 47 72 65 65 6e 3a 20 54 68 65 20 52 65 73    Green: The Res
7b20: 75 6c 74 52 6f 77 20 6f 70 63 6f 64 65 2e 0a 20  ultRow opcode.. 
7b30: 20 23 0a 20 20 69 66 20 7b 20 5b 63 61 74 63 68   #.  if { [catch
7b40: 20 7b 66 63 6f 6e 66 69 67 75 72 65 20 73 74 64   {fconfigure std
7b50: 6f 75 74 20 2d 6d 6f 64 65 7d 5d 3d 3d 30 20 7d  out -mode}]==0 }
7b60: 20 7b 0a 20 20 20 20 73 65 74 20 52 20 22 5c 30   {.    set R "\0
7b70: 33 33 5c 5b 33 31 3b 31 6d 22 20 20 20 20 20 20  33\[31;1m"      
7b80: 20 20 3b 23 20 52 65 64 20 66 67 0a 20 20 20 20    ;# Red fg.    
7b90: 73 65 74 20 47 20 22 5c 30 33 33 5c 5b 33 32 3b  set G "\033\[32;
7ba0: 31 6d 22 20 20 20 20 20 20 20 20 3b 23 20 47 72  1m"        ;# Gr
7bb0: 65 65 6e 20 66 67 0a 20 20 20 20 73 65 74 20 42  een fg.    set B
7bc0: 20 22 5c 30 33 33 5c 5b 33 34 3b 31 6d 22 20 20   "\033\[34;1m"  
7bd0: 20 20 20 20 20 20 3b 23 20 52 65 64 20 66 67 0a        ;# Red fg.
7be0: 20 20 20 20 73 65 74 20 44 20 22 5c 30 33 33 5c      set D "\033\
7bf0: 5b 33 39 3b 30 6d 22 20 20 20 20 20 20 20 20 3b  [39;0m"        ;
7c00: 23 20 44 65 66 61 75 6c 74 20 66 67 0a 20 20 7d  # Default fg.  }
7c10: 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20   else {.    set 
7c20: 52 20 22 22 0a 20 20 20 20 73 65 74 20 47 20 22  R "".    set G "
7c30: 22 0a 20 20 20 20 73 65 74 20 42 20 22 22 0a 20  ".    set B "". 
7c40: 20 20 20 73 65 74 20 44 20 22 22 0a 20 20 7d 0a     set D "".  }.
7c50: 20 20 66 6f 72 65 61 63 68 20 6f 70 63 6f 64 65    foreach opcode
7c60: 20 7b 0a 20 20 20 20 20 20 53 65 65 6b 20 53 65   {.      Seek Se
7c70: 65 6b 47 65 20 53 65 65 6b 47 74 20 53 65 65 6b  ekGe SeekGt Seek
7c80: 4c 65 20 53 65 65 6b 4c 74 20 4e 6f 74 46 6f 75  Le SeekLt NotFou
7c90: 6e 64 20 4c 61 73 74 20 52 65 77 69 6e 64 0a 20  nd Last Rewind. 
7ca0: 20 20 20 20 20 4e 6f 43 6f 6e 66 6c 69 63 74 20       NoConflict 
7cb0: 4e 65 78 74 20 50 72 65 76 20 56 4e 65 78 74 20  Next Prev VNext 
7cc0: 56 50 72 65 76 20 56 46 69 6c 74 65 72 0a 20 20  VPrev VFilter.  
7cd0: 20 20 20 20 53 6f 72 74 65 72 53 6f 72 74 20 53      SorterSort S
7ce0: 6f 72 74 65 72 4e 65 78 74 0a 20 20 7d 20 7b 0a  orterNext.  } {.
7cf0: 20 20 20 20 73 65 74 20 63 6f 6c 6f 72 28 24 6f      set color($o
7d00: 70 63 6f 64 65 29 20 24 42 0a 20 20 7d 0a 20 20  pcode) $B.  }.  
7d10: 66 6f 72 65 61 63 68 20 6f 70 63 6f 64 65 20 7b  foreach opcode {
7d20: 52 65 73 75 6c 74 52 6f 77 7d 20 7b 0a 20 20 20  ResultRow} {.   
7d30: 20 73 65 74 20 63 6f 6c 6f 72 28 24 6f 70 63 6f   set color($opco
7d40: 64 65 29 20 24 47 0a 20 20 7d 0a 20 20 66 6f 72  de) $G.  }.  for
7d50: 65 61 63 68 20 6f 70 63 6f 64 65 20 7b 49 64 78  each opcode {Idx
7d60: 49 6e 73 65 72 74 20 49 6e 73 65 72 74 20 44 65  Insert Insert De
7d70: 6c 65 74 65 20 49 64 78 44 65 6c 65 74 65 7d 20  lete IdxDelete} 
7d80: 7b 0a 20 20 20 20 73 65 74 20 63 6f 6c 6f 72 28  {.    set color(
7d90: 24 6f 70 63 6f 64 65 29 20 24 52 0a 20 20 7d 0a  $opcode) $R.  }.
7da0: 0a 20 20 73 65 74 20 62 53 65 65 6e 47 6f 74 6f  .  set bSeenGoto
7db0: 20 30 0a 20 20 24 64 62 20 65 76 61 6c 20 22 65   0.  $db eval "e
7dc0: 78 70 6c 61 69 6e 20 24 73 71 6c 22 20 7b 7d 20  xplain $sql" {} 
7dd0: 7b 0a 20 20 20 20 73 65 74 20 78 28 24 61 64 64  {.    set x($add
7de0: 72 29 20 30 0a 20 20 20 20 73 65 74 20 6f 70 28  r) 0.    set op(
7df0: 24 61 64 64 72 29 20 24 6f 70 63 6f 64 65 0a 0a  $addr) $opcode..
7e00: 20 20 20 20 69 66 20 7b 24 6f 70 63 6f 64 65 20      if {$opcode 
7e10: 3d 3d 20 22 47 6f 74 6f 22 20 26 26 20 28 24 62  == "Goto" && ($b
7e20: 53 65 65 6e 47 6f 74 6f 3d 3d 30 20 7c 7c 20 28  SeenGoto==0 || (
7e30: 24 70 32 20 3e 20 24 61 64 64 72 2b 31 30 29 29  $p2 > $addr+10))
7e40: 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 6c 69  } {.      set li
7e50: 6e 65 62 72 65 61 6b 28 24 70 32 29 20 31 0a 20  nebreak($p2) 1. 
7e60: 20 20 20 20 20 73 65 74 20 62 53 65 65 6e 47 6f       set bSeenGo
7e70: 74 6f 20 31 0a 20 20 20 20 7d 0a 0a 20 20 20 20  to 1.    }..    
7e80: 69 66 20 7b 24 6f 70 63 6f 64 65 3d 3d 22 4e 65  if {$opcode=="Ne
7e90: 78 74 22 20 20 7c 7c 20 24 6f 70 63 6f 64 65 3d  xt"  || $opcode=
7ea0: 3d 22 50 72 65 76 22 20 0a 20 20 20 20 20 7c 7c  ="Prev" .     ||
7eb0: 20 24 6f 70 63 6f 64 65 3d 3d 22 56 4e 65 78 74   $opcode=="VNext
7ec0: 22 20 7c 7c 20 24 6f 70 63 6f 64 65 3d 3d 22 56  " || $opcode=="V
7ed0: 50 72 65 76 22 0a 20 20 20 20 20 7c 7c 20 24 6f  Prev".     || $o
7ee0: 70 63 6f 64 65 3d 3d 22 53 6f 72 74 65 72 4e 65  pcode=="SorterNe
7ef0: 78 74 22 0a 20 20 20 20 7d 20 7b 0a 20 20 20 20  xt".    } {.    
7f00: 20 20 66 6f 72 20 7b 73 65 74 20 69 20 24 70 32    for {set i $p2
7f10: 7d 20 7b 24 69 3c 24 61 64 64 72 7d 20 7b 69 6e  } {$i<$addr} {in
7f20: 63 72 20 69 7d 20 7b 0a 20 20 20 20 20 20 20 20  cr i} {.        
7f30: 69 6e 63 72 20 78 28 24 69 29 20 32 0a 20 20 20  incr x($i) 2.   
7f40: 20 20 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20     }.    }..    
7f50: 69 66 20 7b 24 6f 70 63 6f 64 65 20 3d 3d 20 22  if {$opcode == "
7f60: 47 6f 74 6f 22 20 26 26 20 24 70 32 3c 24 61 64  Goto" && $p2<$ad
7f70: 64 72 20 26 26 20 24 6f 70 28 24 70 32 29 3d 3d  dr && $op($p2)==
7f80: 22 59 69 65 6c 64 22 7d 20 7b 0a 20 20 20 20 20  "Yield"} {.     
7f90: 20 66 6f 72 20 7b 73 65 74 20 69 20 5b 65 78 70   for {set i [exp
7fa0: 72 20 24 70 32 2b 31 5d 7d 20 7b 24 69 3c 24 61  r $p2+1]} {$i<$a
7fb0: 64 64 72 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a  ddr} {incr i} {.
7fc0: 20 20 20 20 20 20 20 20 69 6e 63 72 20 78 28 24          incr x($
7fd0: 69 29 20 32 0a 20 20 20 20 20 20 7d 0a 20 20 20  i) 2.      }.   
7fe0: 20 7d 0a 0a 20 20 20 20 69 66 20 7b 24 6f 70 63   }..    if {$opc
7ff0: 6f 64 65 20 3d 3d 20 22 48 61 6c 74 22 20 26 26  ode == "Halt" &&
8000: 20 24 63 6f 6d 6d 65 6e 74 20 3d 3d 20 22 45 6e   $comment == "En
8010: 64 20 6f 66 20 63 6f 72 6f 75 74 69 6e 65 22 7d  d of coroutine"}
8020: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 6c 69 6e   {.      set lin
8030: 65 62 72 65 61 6b 28 5b 65 78 70 72 20 24 61 64  ebreak([expr $ad
8040: 64 72 2b 31 5d 29 20 31 0a 20 20 20 20 7d 0a 20  dr+1]) 1.    }. 
8050: 20 7d 0a 0a 20 20 24 64 62 20 65 76 61 6c 20 22   }..  $db eval "
8060: 65 78 70 6c 61 69 6e 20 24 73 71 6c 22 20 7b 7d  explain $sql" {}
8070: 20 7b 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f   {.    if {[info
8080: 20 65 78 69 73 74 73 20 6c 69 6e 65 62 72 65 61   exists linebrea
8090: 6b 28 24 61 64 64 72 29 5d 7d 20 7b 0a 20 20 20  k($addr)]} {.   
80a0: 20 20 20 70 75 74 73 20 22 22 0a 20 20 20 20 7d     puts "".    }
80b0: 0a 20 20 20 20 73 65 74 20 49 20 5b 73 74 72 69  .    set I [stri
80c0: 6e 67 20 72 65 70 65 61 74 20 22 20 22 20 24 78  ng repeat " " $x
80d0: 28 24 61 64 64 72 29 5d 0a 0a 20 20 20 20 73 65  ($addr)]..    se
80e0: 74 20 63 6f 6c 20 22 22 0a 20 20 20 20 63 61 74  t col "".    cat
80f0: 63 68 20 7b 20 73 65 74 20 63 6f 6c 20 24 63 6f  ch { set col $co
8100: 6c 6f 72 28 24 6f 70 63 6f 64 65 29 20 7d 0a 0a  lor($opcode) }..
8110: 20 20 20 20 70 75 74 73 20 5b 66 6f 72 6d 61 74      puts [format
8120: 20 7b 25 2d 34 64 20 20 25 73 25 73 25 2d 31 32   {%-4d  %s%s%-12
8130: 2e 31 32 73 25 73 20 20 25 2d 36 64 20 20 25 2d  .12s%s  %-6d  %-
8140: 36 64 20 20 25 2d 36 64 20 20 25 20 2d 31 37 73  6d  %-6d  % -17s
8150: 20 25 73 20 20 25 73 7d 20 5c 0a 20 20 20 20 20   %s  %s} \.     
8160: 20 24 61 64 64 72 20 24 49 20 24 63 6f 6c 20 24   $addr $I $col $
8170: 6f 70 63 6f 64 65 20 24 44 20 24 70 31 20 24 70  opcode $D $p1 $p
8180: 32 20 24 70 33 20 24 70 34 20 24 70 35 20 24 63  2 $p3 $p4 $p5 $c
8190: 6f 6d 6d 65 6e 74 0a 20 20 20 20 5d 0a 20 20 7d  omment.    ].  }
81a0: 0a 20 20 70 75 74 73 20 22 2d 2d 2d 2d 20 20 2d  .  puts "----  -
81b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d  -----------  ---
81c0: 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d  ---  ------  ---
81d0: 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ---  -----------
81e0: 2d 2d 2d 2d 2d 20 20 2d 2d 20 20 2d 22 0a 7d 0a  -----  --  -".}.
81f0: 0a 23 20 53 68 6f 77 20 74 68 65 20 56 44 42 45  .# Show the VDBE
8200: 20 70 72 6f 67 72 61 6d 20 66 6f 72 20 61 6e 20   program for an 
8210: 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 20 62 75  SQL statement bu
8220: 74 20 6f 6d 69 74 20 74 68 65 20 54 72 61 63 65  t omit the Trace
8230: 0a 23 20 6f 70 63 6f 64 65 20 61 74 20 74 68 65  .# opcode at the
8240: 20 62 65 67 69 6e 6e 69 6e 67 2e 20 20 54 68 69   beginning.  Thi
8250: 73 20 70 72 6f 63 65 64 75 72 65 20 63 61 6e 20  s procedure can 
8260: 62 65 20 75 73 65 64 20 74 6f 20 70 72 6f 76 65  be used to prove
8270: 0a 23 20 74 68 61 74 20 64 69 66 66 65 72 65 6e  .# that differen
8280: 74 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 73  t SQL statements
8290: 20 67 65 6e 65 72 61 74 65 20 65 78 61 63 74 6c   generate exactl
82a0: 79 20 74 68 65 20 73 61 6d 65 20 56 44 42 45 20  y the same VDBE 
82b0: 63 6f 64 65 2e 0a 23 0a 70 72 6f 63 20 65 78 70  code..#.proc exp
82c0: 6c 61 69 6e 5f 6e 6f 5f 74 72 61 63 65 20 7b 73  lain_no_trace {s
82d0: 71 6c 7d 20 7b 0a 20 20 73 65 74 20 74 72 20 5b  ql} {.  set tr [
82e0: 64 62 20 65 76 61 6c 20 22 45 58 50 4c 41 49 4e  db eval "EXPLAIN
82f0: 20 24 73 71 6c 22 5d 0a 20 20 72 65 74 75 72 6e   $sql"].  return
8300: 20 5b 6c 72 61 6e 67 65 20 24 74 72 20 37 20 65   [lrange $tr 7 e
8310: 6e 64 5d 0a 7d 0a 0a 23 20 41 6e 6f 74 68 65 72  nd].}..# Another
8320: 20 70 72 6f 63 65 64 75 72 65 20 74 6f 20 65 78   procedure to ex
8330: 65 63 75 74 65 20 53 51 4c 2e 20 20 54 68 69 73  ecute SQL.  This
8340: 20 6f 6e 65 20 69 6e 63 6c 75 64 65 73 20 74 68   one includes th
8350: 65 20 66 69 65 6c 64 0a 23 20 6e 61 6d 65 73 20  e field.# names 
8360: 69 6e 20 74 68 65 20 72 65 74 75 72 6e 65 64 20  in the returned 
8370: 6c 69 73 74 2e 0a 23 0a 70 72 6f 63 20 65 78 65  list..#.proc exe
8380: 63 73 71 6c 32 20 7b 73 71 6c 7d 20 7b 0a 20 20  csql2 {sql} {.  
8390: 73 65 74 20 72 65 73 75 6c 74 20 7b 7d 0a 20 20  set result {}.  
83a0: 64 62 20 65 76 61 6c 20 24 73 71 6c 20 64 61 74  db eval $sql dat
83b0: 61 20 7b 0a 20 20 20 20 66 6f 72 65 61 63 68 20  a {.    foreach 
83c0: 66 20 24 64 61 74 61 28 2a 29 20 7b 0a 20 20 20  f $data(*) {.   
83d0: 20 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c     lappend resul
83e0: 74 20 24 66 20 24 64 61 74 61 28 24 66 29 0a 20  t $f $data($f). 
83f0: 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72     }.  }.  retur
8400: 6e 20 24 72 65 73 75 6c 74 0a 7d 0a 0a 23 20 55  n $result.}..# U
8410: 73 65 20 61 20 74 65 6d 70 6f 72 61 72 79 20 69  se a temporary i
8420: 6e 2d 6d 65 6d 6f 72 79 20 64 61 74 61 62 61 73  n-memory databas
8430: 65 20 74 6f 20 65 78 65 63 75 74 65 20 53 51 4c  e to execute SQL
8440: 20 73 74 61 74 65 6d 65 6e 74 73 0a 23 0a 70 72   statements.#.pr
8450: 6f 63 20 6d 65 6d 64 62 73 71 6c 20 7b 73 71 6c  oc memdbsql {sql
8460: 7d 20 7b 0a 20 20 73 71 6c 69 74 65 33 20 6d 65  } {.  sqlite3 me
8470: 6d 64 62 20 3a 6d 65 6d 6f 72 79 3a 0a 20 20 73  mdb :memory:.  s
8480: 65 74 20 72 65 73 75 6c 74 20 5b 6d 65 6d 64 62  et result [memdb
8490: 20 65 76 61 6c 20 24 73 71 6c 5d 0a 20 20 6d 65   eval $sql].  me
84a0: 6d 64 62 20 63 6c 6f 73 65 0a 20 20 72 65 74 75  mdb close.  retu
84b0: 72 6e 20 24 72 65 73 75 6c 74 0a 7d 0a 0a 23 20  rn $result.}..# 
84c0: 55 73 65 20 74 68 65 20 6e 6f 6e 2d 63 61 6c 6c  Use the non-call
84d0: 62 61 63 6b 20 41 50 49 20 74 6f 20 65 78 65 63  back API to exec
84e0: 75 74 65 20 6d 75 6c 74 69 70 6c 65 20 53 51 4c  ute multiple SQL
84f0: 20 73 74 61 74 65 6d 65 6e 74 73 0a 23 0a 70 72   statements.#.pr
8500: 6f 63 20 73 74 65 70 73 71 6c 20 7b 64 62 70 74  oc stepsql {dbpt
8510: 72 20 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20 73  r sql} {.  set s
8520: 71 6c 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20  ql [string trim 
8530: 24 73 71 6c 5d 0a 20 20 73 65 74 20 72 20 30 0a  $sql].  set r 0.
8540: 20 20 77 68 69 6c 65 20 7b 5b 73 74 72 69 6e 67    while {[string
8550: 20 6c 65 6e 67 74 68 20 24 73 71 6c 5d 3e 30 7d   length $sql]>0}
8560: 20 7b 0a 20 20 20 20 69 66 20 7b 5b 63 61 74 63   {.    if {[catc
8570: 68 20 7b 73 71 6c 69 74 65 33 5f 70 72 65 70 61  h {sqlite3_prepa
8580: 72 65 20 24 64 62 70 74 72 20 24 73 71 6c 20 2d  re $dbptr $sql -
8590: 31 20 73 71 6c 74 61 69 6c 7d 20 76 6d 5d 7d 20  1 sqltail} vm]} 
85a0: 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b  {.      return [
85b0: 6c 69 73 74 20 31 20 24 76 6d 5d 0a 20 20 20 20  list 1 $vm].    
85c0: 7d 0a 20 20 20 20 73 65 74 20 73 71 6c 20 5b 73  }.    set sql [s
85d0: 74 72 69 6e 67 20 74 72 69 6d 20 24 73 71 6c 74  tring trim $sqlt
85e0: 61 69 6c 5d 0a 23 20 20 20 20 77 68 69 6c 65 20  ail].#    while 
85f0: 7b 5b 73 71 6c 69 74 65 5f 73 74 65 70 20 24 76  {[sqlite_step $v
8600: 6d 20 4e 20 56 41 4c 20 43 4f 4c 5d 3d 3d 22 53  m N VAL COL]=="S
8610: 51 4c 49 54 45 5f 52 4f 57 22 7d 20 7b 0a 23 20  QLITE_ROW"} {.# 
8620: 20 20 20 20 20 66 6f 72 65 61 63 68 20 76 20 24       foreach v $
8630: 56 41 4c 20 7b 6c 61 70 70 65 6e 64 20 72 20 24  VAL {lappend r $
8640: 76 7d 0a 23 20 20 20 20 7d 0a 20 20 20 20 77 68  v}.#    }.    wh
8650: 69 6c 65 20 7b 5b 73 71 6c 69 74 65 33 5f 73 74  ile {[sqlite3_st
8660: 65 70 20 24 76 6d 5d 3d 3d 22 53 51 4c 49 54 45  ep $vm]=="SQLITE
8670: 5f 52 4f 57 22 7d 20 7b 0a 20 20 20 20 20 20 66  _ROW"} {.      f
8680: 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69  or {set i 0} {$i
8690: 3c 5b 73 71 6c 69 74 65 33 5f 64 61 74 61 5f 63  <[sqlite3_data_c
86a0: 6f 75 6e 74 20 24 76 6d 5d 7d 20 7b 69 6e 63 72  ount $vm]} {incr
86b0: 20 69 7d 20 7b 0a 20 20 20 20 20 20 20 20 6c 61   i} {.        la
86c0: 70 70 65 6e 64 20 72 20 5b 73 71 6c 69 74 65 33  ppend r [sqlite3
86d0: 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 20 24 76 6d  _column_text $vm
86e0: 20 24 69 5d 0a 20 20 20 20 20 20 7d 0a 20 20 20   $i].      }.   
86f0: 20 7d 0a 20 20 20 20 69 66 20 7b 5b 63 61 74 63   }.    if {[catc
8700: 68 20 7b 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c  h {sqlite3_final
8710: 69 7a 65 20 24 76 6d 7d 20 65 72 72 6d 73 67 5d  ize $vm} errmsg]
8720: 7d 20 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e  } {.      return
8730: 20 5b 6c 69 73 74 20 31 20 24 65 72 72 6d 73 67   [list 1 $errmsg
8740: 5d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65  ].    }.  }.  re
8750: 74 75 72 6e 20 24 72 0a 7d 0a 0a 23 20 44 6f 20  turn $r.}..# Do 
8760: 61 6e 20 69 6e 74 65 67 72 69 74 79 20 63 68 65  an integrity che
8770: 63 6b 20 6f 66 20 74 68 65 20 65 6e 74 69 72 65  ck of the entire
8780: 20 64 61 74 61 62 61 73 65 0a 23 0a 70 72 6f 63   database.#.proc
8790: 20 69 6e 74 65 67 72 69 74 79 5f 63 68 65 63 6b   integrity_check
87a0: 20 7b 6e 61 6d 65 20 7b 64 62 20 64 62 7d 7d 20   {name {db db}} 
87b0: 7b 0a 20 20 69 66 63 61 70 61 62 6c 65 20 69 6e  {.  ifcapable in
87c0: 74 65 67 72 69 74 79 63 6b 20 7b 0a 20 20 20 20  tegrityck {.    
87d0: 64 6f 5f 74 65 73 74 20 24 6e 61 6d 65 20 5b 6c  do_test $name [l
87e0: 69 73 74 20 65 78 65 63 73 71 6c 20 7b 50 52 41  ist execsql {PRA
87f0: 47 4d 41 20 69 6e 74 65 67 72 69 74 79 5f 63 68  GMA integrity_ch
8800: 65 63 6b 7d 20 24 64 62 5d 20 7b 6f 6b 7d 0a 20  eck} $db] {ok}. 
8810: 20 7d 0a 7d 0a 0a 23 20 43 68 65 63 6b 20 74 68   }.}..# Check th
8820: 65 20 65 78 74 65 6e 64 65 64 20 65 72 72 6f 72  e extended error
8830: 20 63 6f 64 65 0a 23 0a 70 72 6f 63 20 76 65 72   code.#.proc ver
8840: 69 66 79 5f 65 78 5f 65 72 72 63 6f 64 65 20 7b  ify_ex_errcode {
8850: 6e 61 6d 65 20 65 78 70 65 63 74 65 64 20 7b 64  name expected {d
8860: 62 20 64 62 7d 7d 20 7b 0a 20 20 64 6f 5f 74 65  b db}} {.  do_te
8870: 73 74 20 24 6e 61 6d 65 20 5b 6c 69 73 74 20 73  st $name [list s
8880: 71 6c 69 74 65 33 5f 65 78 74 65 6e 64 65 64 5f  qlite3_extended_
8890: 65 72 72 63 6f 64 65 20 24 64 62 5d 20 24 65 78  errcode $db] $ex
88a0: 70 65 63 74 65 64 0a 7d 0a 0a 0a 23 20 52 65 74  pected.}...# Ret
88b0: 75 72 6e 20 74 72 75 65 20 69 66 20 74 68 65 20  urn true if the 
88c0: 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 20 70 61  SQL statement pa
88d0: 73 73 65 64 20 61 73 20 74 68 65 20 73 65 63 6f  ssed as the seco
88e0: 6e 64 20 61 72 67 75 6d 65 6e 74 20 75 73 65 73  nd argument uses
88f0: 20 61 0a 23 20 73 74 61 74 65 6d 65 6e 74 20 74   a.# statement t
8900: 72 61 6e 73 61 63 74 69 6f 6e 2e 0a 23 0a 70 72  ransaction..#.pr
8910: 6f 63 20 73 71 6c 5f 75 73 65 73 5f 73 74 6d 74  oc sql_uses_stmt
8920: 20 7b 64 62 20 73 71 6c 7d 20 7b 0a 20 20 73 65   {db sql} {.  se
8930: 74 20 73 74 6d 74 20 5b 73 71 6c 69 74 65 33 5f  t stmt [sqlite3_
8940: 70 72 65 70 61 72 65 20 24 64 62 20 24 73 71 6c  prepare $db $sql
8950: 20 2d 31 20 64 75 6d 6d 79 5d 0a 20 20 73 65 74   -1 dummy].  set
8960: 20 75 73 65 73 20 5b 75 73 65 73 5f 73 74 6d 74   uses [uses_stmt
8970: 5f 6a 6f 75 72 6e 61 6c 20 24 73 74 6d 74 5d 0a  _journal $stmt].
8980: 20 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69    sqlite3_finali
8990: 7a 65 20 24 73 74 6d 74 0a 20 20 72 65 74 75 72  ze $stmt.  retur
89a0: 6e 20 24 75 73 65 73 0a 7d 0a 0a 70 72 6f 63 20  n $uses.}..proc 
89b0: 66 69 78 5f 69 66 63 61 70 61 62 6c 65 5f 65 78  fix_ifcapable_ex
89c0: 70 72 20 7b 65 78 70 72 7d 20 7b 0a 20 20 73 65  pr {expr} {.  se
89d0: 74 20 72 65 74 20 22 22 0a 20 20 73 65 74 20 73  t ret "".  set s
89e0: 74 61 74 65 20 30 0a 20 20 66 6f 72 20 7b 73 65  tate 0.  for {se
89f0: 74 20 69 20 30 7d 20 7b 24 69 20 3c 20 5b 73 74  t i 0} {$i < [st
8a00: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 65 78 70  ring length $exp
8a10: 72 5d 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20  r]} {incr i} {. 
8a20: 20 20 20 73 65 74 20 63 68 61 72 20 5b 73 74 72     set char [str
8a30: 69 6e 67 20 72 61 6e 67 65 20 24 65 78 70 72 20  ing range $expr 
8a40: 24 69 20 24 69 5d 0a 20 20 20 20 73 65 74 20 6e  $i $i].    set n
8a50: 65 77 73 74 61 74 65 20 5b 65 78 70 72 20 7b 5b  ewstate [expr {[
8a60: 73 74 72 69 6e 67 20 69 73 20 61 6c 6e 75 6d 20  string is alnum 
8a70: 24 63 68 61 72 5d 20 7c 7c 20 24 63 68 61 72 20  $char] || $char 
8a80: 65 71 20 22 5f 22 7d 5d 0a 20 20 20 20 69 66 20  eq "_"}].    if 
8a90: 7b 24 6e 65 77 73 74 61 74 65 20 26 26 20 21 24  {$newstate && !$
8aa0: 73 74 61 74 65 7d 20 7b 0a 20 20 20 20 20 20 61  state} {.      a
8ab0: 70 70 65 6e 64 20 72 65 74 20 7b 24 3a 3a 73 71  ppend ret {$::sq
8ac0: 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 28 7d 0a 20  lite_options(}. 
8ad0: 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 21 24 6e     }.    if {!$n
8ae0: 65 77 73 74 61 74 65 20 26 26 20 24 73 74 61 74  ewstate && $stat
8af0: 65 7d 20 7b 0a 20 20 20 20 20 20 61 70 70 65 6e  e} {.      appen
8b00: 64 20 72 65 74 20 29 0a 20 20 20 20 7d 0a 20 20  d ret ).    }.  
8b10: 20 20 61 70 70 65 6e 64 20 72 65 74 20 24 63 68    append ret $ch
8b20: 61 72 0a 20 20 20 20 73 65 74 20 73 74 61 74 65  ar.    set state
8b30: 20 24 6e 65 77 73 74 61 74 65 0a 20 20 7d 0a 20   $newstate.  }. 
8b40: 20 69 66 20 7b 24 73 74 61 74 65 7d 20 7b 61 70   if {$state} {ap
8b50: 70 65 6e 64 20 72 65 74 20 29 7d 0a 20 20 72 65  pend ret )}.  re
8b60: 74 75 72 6e 20 24 72 65 74 0a 7d 0a 0a 23 20 52  turn $ret.}..# R
8b70: 65 74 75 72 6e 73 20 6e 6f 6e 2d 7a 65 72 6f 20  eturns non-zero 
8b80: 69 66 20 74 68 65 20 63 61 70 61 62 69 6c 69 74  if the capabilit
8b90: 69 65 73 20 61 72 65 20 70 72 65 73 65 6e 74 3b  ies are present;
8ba0: 20 7a 65 72 6f 20 6f 74 68 65 72 77 69 73 65 2e   zero otherwise.
8bb0: 0a 23 0a 70 72 6f 63 20 63 61 70 61 62 6c 65 20  .#.proc capable 
8bc0: 7b 65 78 70 72 7d 20 7b 0a 20 20 73 65 74 20 65  {expr} {.  set e
8bd0: 20 5b 66 69 78 5f 69 66 63 61 70 61 62 6c 65 5f   [fix_ifcapable_
8be0: 65 78 70 72 20 24 65 78 70 72 5d 3b 20 72 65 74  expr $expr]; ret
8bf0: 75 72 6e 20 5b 65 78 70 72 20 28 24 65 29 5d 0a  urn [expr ($e)].
8c00: 7d 0a 0a 23 20 45 76 61 6c 75 61 74 65 20 61 20  }..# Evaluate a 
8c10: 62 6f 6f 6c 65 61 6e 20 65 78 70 72 65 73 73 69  boolean expressi
8c20: 6f 6e 20 6f 66 20 63 61 70 61 62 69 6c 69 74 69  on of capabiliti
8c30: 65 73 2e 20 20 49 66 20 74 72 75 65 2c 20 65 78  es.  If true, ex
8c40: 65 63 75 74 65 20 74 68 65 0a 23 20 63 6f 64 65  ecute the.# code
8c50: 2e 20 20 4f 6d 69 74 20 74 68 65 20 63 6f 64 65  .  Omit the code
8c60: 20 69 66 20 66 61 6c 73 65 2e 0a 23 0a 70 72 6f   if false..#.pro
8c70: 63 20 69 66 63 61 70 61 62 6c 65 20 7b 65 78 70  c ifcapable {exp
8c80: 72 20 63 6f 64 65 20 7b 65 6c 73 65 20 22 22 7d  r code {else ""}
8c90: 20 7b 65 6c 73 65 63 6f 64 65 20 22 22 7d 7d 20   {elsecode ""}} 
8ca0: 7b 0a 20 20 23 72 65 67 73 75 62 20 2d 61 6c 6c  {.  #regsub -all
8cb0: 20 7b 5b 61 2d 7a 5f 30 2d 39 5d 2b 7d 20 24 65   {[a-z_0-9]+} $e
8cc0: 78 70 72 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 6f  xpr {$::sqlite_o
8cd0: 70 74 69 6f 6e 73 28 26 29 7d 20 65 32 0a 20 20  ptions(&)} e2.  
8ce0: 73 65 74 20 65 32 20 5b 66 69 78 5f 69 66 63 61  set e2 [fix_ifca
8cf0: 70 61 62 6c 65 5f 65 78 70 72 20 24 65 78 70 72  pable_expr $expr
8d00: 5d 0a 20 20 69 66 20 28 24 65 32 29 20 7b 0a 20  ].  if ($e2) {. 
8d10: 20 20 20 73 65 74 20 63 20 5b 63 61 74 63 68 20     set c [catch 
8d20: 7b 75 70 6c 65 76 65 6c 20 31 20 24 63 6f 64 65  {uplevel 1 $code
8d30: 7d 20 72 5d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a  } r].  } else {.
8d40: 20 20 20 20 73 65 74 20 63 20 5b 63 61 74 63 68      set c [catch
8d50: 20 7b 75 70 6c 65 76 65 6c 20 31 20 24 65 6c 73   {uplevel 1 $els
8d60: 65 63 6f 64 65 7d 20 72 5d 0a 20 20 7d 0a 20 20  ecode} r].  }.  
8d70: 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 24 63 20  return -code $c 
8d80: 24 72 0a 7d 0a 0a 23 20 54 68 69 73 20 70 72 6f  $r.}..# This pro
8d90: 63 20 65 78 65 63 73 20 61 20 73 65 70 65 72 61  c execs a sepera
8da0: 74 65 20 70 72 6f 63 65 73 73 20 74 68 61 74 20  te process that 
8db0: 63 72 61 73 68 65 73 20 6d 69 64 77 61 79 20 74  crashes midway t
8dc0: 68 72 6f 75 67 68 20 65 78 65 63 75 74 69 6e 67  hrough executing
8dd0: 0a 23 20 74 68 65 20 53 51 4c 20 73 63 72 69 70  .# the SQL scrip
8de0: 74 20 24 73 71 6c 20 6f 6e 20 64 61 74 61 62 61  t $sql on databa
8df0: 73 65 20 74 65 73 74 2e 64 62 2e 0a 23 0a 23 20  se test.db..#.# 
8e00: 54 68 65 20 63 72 61 73 68 20 6f 63 63 75 72 73  The crash occurs
8e10: 20 64 75 72 69 6e 67 20 61 20 73 79 6e 63 28 29   during a sync()
8e20: 20 6f 66 20 66 69 6c 65 20 24 63 72 61 73 68 66   of file $crashf
8e30: 69 6c 65 2e 20 57 68 65 6e 20 74 68 65 20 63 72  ile. When the cr
8e40: 61 73 68 0a 23 20 6f 63 63 75 72 73 20 61 20 72  ash.# occurs a r
8e50: 61 6e 64 6f 6d 20 73 75 62 73 65 74 20 6f 66 20  andom subset of 
8e60: 61 6c 6c 20 75 6e 73 79 6e 63 65 64 20 77 72 69  all unsynced wri
8e70: 74 65 73 20 6d 61 64 65 20 62 79 20 74 68 65 20  tes made by the 
8e80: 70 72 6f 63 65 73 73 20 61 72 65 0a 23 20 77 72  process are.# wr
8e90: 69 74 74 65 6e 20 69 6e 74 6f 20 74 68 65 20 66  itten into the f
8ea0: 69 6c 65 73 20 6f 6e 20 64 69 73 6b 2e 20 41 72  iles on disk. Ar
8eb0: 67 75 6d 65 6e 74 20 24 63 72 61 73 68 64 65 6c  gument $crashdel
8ec0: 61 79 20 69 6e 64 69 63 61 74 65 73 20 74 68 65  ay indicates the
8ed0: 0a 23 20 6e 75 6d 62 65 72 20 6f 66 20 66 69 6c  .# number of fil
8ee0: 65 20 73 79 6e 63 73 20 74 6f 20 77 61 69 74 20  e syncs to wait 
8ef0: 62 65 66 6f 72 65 20 63 72 61 73 68 69 6e 67 2e  before crashing.
8f00: 0a 23 0a 23 20 54 68 65 20 72 65 74 75 72 6e 20  .#.# The return 
8f10: 76 61 6c 75 65 20 69 73 20 61 20 6c 69 73 74 20  value is a list 
8f20: 6f 66 20 74 77 6f 20 65 6c 65 6d 65 6e 74 73 2e  of two elements.
8f30: 20 54 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65   The first eleme
8f40: 6e 74 20 69 73 20 61 0a 23 20 62 6f 6f 6c 65 61  nt is a.# boolea
8f50: 6e 2c 20 69 6e 64 69 63 61 74 69 6e 67 20 77 68  n, indicating wh
8f60: 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 68 65  ether or not the
8f70: 20 70 72 6f 63 65 73 73 20 61 63 74 75 61 6c 6c   process actuall
8f80: 79 20 63 72 61 73 68 65 64 20 6f 72 0a 23 20 72  y crashed or.# r
8f90: 65 70 6f 72 74 65 64 20 73 6f 6d 65 20 6f 74 68  eported some oth
8fa0: 65 72 20 65 72 72 6f 72 2e 20 54 68 65 20 73 65  er error. The se
8fb0: 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 20 69 6e 20  cond element in 
8fc0: 74 68 65 20 72 65 74 75 72 6e 65 64 20 6c 69 73  the returned lis
8fd0: 74 20 69 73 20 74 68 65 0a 23 20 65 72 72 6f 72  t is the.# error
8fe0: 20 6d 65 73 73 61 67 65 2e 20 54 68 69 73 20 69   message. This i
8ff0: 73 20 22 63 68 69 6c 64 20 70 72 6f 63 65 73 73  s "child process
9000: 20 65 78 69 74 65 64 20 61 62 6e 6f 72 6d 61 6c   exited abnormal
9010: 6c 79 22 20 69 66 20 74 68 65 20 63 72 61 73 68  ly" if the crash
9020: 0a 23 20 6f 63 63 75 72 72 65 64 2e 0a 23 0a 23  .# occurred..#.#
9030: 20 20 20 63 72 61 73 68 73 71 6c 20 2d 64 65 6c     crashsql -del
9040: 61 79 20 43 52 41 53 48 44 45 4c 41 59 20 2d 66  ay CRASHDELAY -f
9050: 69 6c 65 20 43 52 41 53 48 46 49 4c 45 20 3f 2d  ile CRASHFILE ?-
9060: 62 6c 6f 63 6b 73 69 7a 65 20 42 4c 4f 43 4b 53  blocksize BLOCKS
9070: 49 5a 45 3f 20 24 73 71 6c 0a 23 0a 70 72 6f 63  IZE? $sql.#.proc
9080: 20 63 72 61 73 68 73 71 6c 20 7b 61 72 67 73 7d   crashsql {args}
9090: 20 7b 0a 0a 20 20 73 65 74 20 62 6c 6f 63 6b 73   {..  set blocks
90a0: 69 7a 65 20 22 22 0a 20 20 73 65 74 20 63 72 61  ize "".  set cra
90b0: 73 68 64 65 6c 61 79 20 31 0a 20 20 73 65 74 20  shdelay 1.  set 
90c0: 70 72 6e 67 73 65 65 64 20 30 0a 20 20 73 65 74  prngseed 0.  set
90d0: 20 6f 70 65 6e 64 62 20 7b 20 73 71 6c 69 74 65   opendb { sqlite
90e0: 33 20 64 62 20 74 65 73 74 2e 64 62 20 2d 76 66  3 db test.db -vf
90f0: 73 20 63 72 61 73 68 20 7d 0a 20 20 73 65 74 20  s crash }.  set 
9100: 74 63 6c 62 6f 64 79 20 7b 7d 0a 20 20 73 65 74  tclbody {}.  set
9110: 20 63 72 61 73 68 66 69 6c 65 20 22 22 0a 20 20   crashfile "".  
9120: 73 65 74 20 64 63 20 22 22 0a 20 20 73 65 74 20  set dc "".  set 
9130: 73 71 6c 20 5b 6c 69 6e 64 65 78 20 24 61 72 67  sql [lindex $arg
9140: 73 20 65 6e 64 5d 0a 0a 20 20 66 6f 72 20 7b 73  s end]..  for {s
9150: 65 74 20 69 69 20 30 7d 20 7b 24 69 69 20 3c 20  et ii 0} {$ii < 
9160: 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 73 5d 2d  [llength $args]-
9170: 31 7d 20 7b 69 6e 63 72 20 69 69 20 32 7d 20 7b  1} {incr ii 2} {
9180: 0a 20 20 20 20 73 65 74 20 7a 20 5b 6c 69 6e 64  .    set z [lind
9190: 65 78 20 24 61 72 67 73 20 24 69 69 5d 0a 20 20  ex $args $ii].  
91a0: 20 20 73 65 74 20 6e 20 5b 73 74 72 69 6e 67 20    set n [string 
91b0: 6c 65 6e 67 74 68 20 24 7a 5d 0a 20 20 20 20 73  length $z].    s
91c0: 65 74 20 7a 32 20 5b 6c 69 6e 64 65 78 20 24 61  et z2 [lindex $a
91d0: 72 67 73 20 5b 65 78 70 72 20 24 69 69 2b 31 5d  rgs [expr $ii+1]
91e0: 5d 0a 0a 20 20 20 20 69 66 20 20 20 20 20 7b 24  ]..    if     {$
91f0: 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e 67 20 66  n>1 && [string f
9200: 69 72 73 74 20 24 7a 20 2d 64 65 6c 61 79 5d 3d  irst $z -delay]=
9210: 3d 30 7d 20 20 20 20 20 7b 73 65 74 20 63 72 61  =0}     {set cra
9220: 73 68 64 65 6c 61 79 20 24 7a 32 7d 20 5c 0a 20  shdelay $z2} \. 
9230: 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 20     elseif {$n>1 
9240: 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74  && [string first
9250: 20 24 7a 20 2d 6f 70 65 6e 64 62 5d 3d 3d 30 7d   $z -opendb]==0}
9260: 20 20 20 20 7b 73 65 74 20 6f 70 65 6e 64 62 20      {set opendb 
9270: 24 7a 32 7d 20 5c 0a 20 20 20 20 65 6c 73 65 69  $z2} \.    elsei
9280: 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72 69  f {$n>1 && [stri
9290: 6e 67 20 66 69 72 73 74 20 24 7a 20 2d 73 65 65  ng first $z -see
92a0: 64 5d 3d 3d 30 7d 20 20 20 20 20 20 7b 73 65 74  d]==0}      {set
92b0: 20 70 72 6e 67 73 65 65 64 20 24 7a 32 7d 20 5c   prngseed $z2} \
92c0: 0a 20 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e  .    elseif {$n>
92d0: 31 20 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72  1 && [string fir
92e0: 73 74 20 24 7a 20 2d 66 69 6c 65 5d 3d 3d 30 7d  st $z -file]==0}
92f0: 20 20 20 20 20 20 7b 73 65 74 20 63 72 61 73 68        {set crash
9300: 66 69 6c 65 20 24 7a 32 7d 20 20 5c 0a 20 20 20  file $z2}  \.   
9310: 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 20 26 26   elseif {$n>1 &&
9320: 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20 24   [string first $
9330: 7a 20 2d 74 63 6c 62 6f 64 79 5d 3d 3d 30 7d 20  z -tclbody]==0} 
9340: 20 20 7b 73 65 74 20 74 63 6c 62 6f 64 79 20 24    {set tclbody $
9350: 7a 32 7d 20 20 5c 0a 20 20 20 20 65 6c 73 65 69  z2}  \.    elsei
9360: 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72 69  f {$n>1 && [stri
9370: 6e 67 20 66 69 72 73 74 20 24 7a 20 2d 62 6c 6f  ng first $z -blo
9380: 63 6b 73 69 7a 65 5d 3d 3d 30 7d 20 7b 73 65 74  cksize]==0} {set
9390: 20 62 6c 6f 63 6b 73 69 7a 65 20 22 2d 73 20 24   blocksize "-s $
93a0: 7a 32 22 20 7d 20 5c 0a 20 20 20 20 65 6c 73 65  z2" } \.    else
93b0: 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72  if {$n>1 && [str
93c0: 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d 63 68  ing first $z -ch
93d0: 61 72 61 63 74 65 72 69 73 74 69 63 73 5d 3d 3d  aracteristics]==
93e0: 30 7d 20 7b 73 65 74 20 64 63 20 22 2d 63 20 7b  0} {set dc "-c {
93f0: 24 7a 32 7d 22 20 7d 20 5c 0a 20 20 20 20 65 6c  $z2}" } \.    el
9400: 73 65 20 20 20 7b 20 65 72 72 6f 72 20 22 55 6e  se   { error "Un
9410: 72 65 63 6f 67 6e 69 7a 65 64 20 6f 70 74 69 6f  recognized optio
9420: 6e 3a 20 24 7a 22 20 7d 0a 20 20 7d 0a 0a 20 20  n: $z" }.  }..  
9430: 69 66 20 7b 24 63 72 61 73 68 66 69 6c 65 20 65  if {$crashfile e
9440: 71 20 22 22 7d 20 7b 0a 20 20 20 20 65 72 72 6f  q ""} {.    erro
9450: 72 20 22 43 6f 6d 70 75 6c 73 6f 72 79 20 6f 70  r "Compulsory op
9460: 74 69 6f 6e 20 2d 66 69 6c 65 20 6d 69 73 73 69  tion -file missi
9470: 6e 67 22 0a 20 20 7d 0a 0a 20 20 23 20 24 63 72  ng".  }..  # $cr
9480: 61 73 68 66 69 6c 65 20 67 65 74 73 20 63 6f 6d  ashfile gets com
9490: 70 61 72 65 64 20 74 6f 20 74 68 65 20 6e 61 74  pared to the nat
94a0: 69 76 65 20 66 69 6c 65 6e 61 6d 65 20 69 6e 0a  ive filename in.
94b0: 20 20 23 20 63 66 53 79 6e 63 28 29 2c 20 77 68    # cfSync(), wh
94c0: 69 63 68 20 63 61 6e 20 62 65 20 64 69 66 66 65  ich can be diffe
94d0: 72 65 6e 74 20 74 68 65 6e 20 77 68 61 74 20 54  rent then what T
94e0: 43 4c 20 75 73 65 73 20 62 79 0a 20 20 23 20 64  CL uses by.  # d
94f0: 65 66 61 75 6c 74 2c 20 73 6f 20 68 65 72 65 20  efault, so here 
9500: 77 65 20 66 6f 72 63 65 20 69 74 20 74 6f 20 74  we force it to t
9510: 68 65 20 22 6e 61 74 69 76 65 6e 61 6d 65 22 20  he "nativename" 
9520: 66 6f 72 6d 61 74 2e 0a 20 20 73 65 74 20 63 66  format..  set cf
9530: 69 6c 65 20 5b 73 74 72 69 6e 67 20 6d 61 70 20  ile [string map 
9540: 7b 5c 5c 20 5c 5c 5c 5c 7d 20 5b 66 69 6c 65 20  {\\ \\\\} [file 
9550: 6e 61 74 69 76 65 6e 61 6d 65 20 5b 66 69 6c 65  nativename [file
9560: 20 6a 6f 69 6e 20 5b 67 65 74 5f 70 77 64 5d 20   join [get_pwd] 
9570: 24 63 72 61 73 68 66 69 6c 65 5d 5d 5d 0a 0a 20  $crashfile]]].. 
9580: 20 73 65 74 20 66 20 5b 6f 70 65 6e 20 63 72 61   set f [open cra
9590: 73 68 2e 74 63 6c 20 77 5d 0a 20 20 70 75 74 73  sh.tcl w].  puts
95a0: 20 24 66 20 22 73 71 6c 69 74 65 33 5f 63 72 61   $f "sqlite3_cra
95b0: 73 68 5f 65 6e 61 62 6c 65 20 31 22 0a 20 20 70  sh_enable 1".  p
95c0: 75 74 73 20 24 66 20 22 73 71 6c 69 74 65 33 5f  uts $f "sqlite3_
95d0: 63 72 61 73 68 70 61 72 61 6d 73 20 24 62 6c 6f  crashparams $blo
95e0: 63 6b 73 69 7a 65 20 24 64 63 20 24 63 72 61 73  cksize $dc $cras
95f0: 68 64 65 6c 61 79 20 24 63 66 69 6c 65 22 0a 20  hdelay $cfile". 
9600: 20 70 75 74 73 20 24 66 20 22 73 71 6c 69 74 65   puts $f "sqlite
9610: 33 5f 74 65 73 74 5f 63 6f 6e 74 72 6f 6c 5f 70  3_test_control_p
9620: 65 6e 64 69 6e 67 5f 62 79 74 65 20 24 3a 3a 73  ending_byte $::s
9630: 71 6c 69 74 65 5f 70 65 6e 64 69 6e 67 5f 62 79  qlite_pending_by
9640: 74 65 22 0a 20 20 70 75 74 73 20 24 66 20 24 6f  te".  puts $f $o
9650: 70 65 6e 64 62 20 0a 0a 20 20 23 20 54 68 69 73  pendb ..  # This
9660: 20 62 6c 6f 63 6b 20 73 65 74 73 20 74 68 65 20   block sets the 
9670: 63 61 63 68 65 20 73 69 7a 65 20 6f 66 20 74 68  cache size of th
9680: 65 20 6d 61 69 6e 20 64 61 74 61 62 61 73 65 20  e main database 
9690: 74 6f 20 31 30 0a 20 20 23 20 70 61 67 65 73 2e  to 10.  # pages.
96a0: 20 54 68 69 73 20 69 73 20 64 6f 6e 65 20 69 6e   This is done in
96b0: 20 63 61 73 65 20 74 68 65 20 62 75 69 6c 64 20   case the build 
96c0: 69 73 20 63 6f 6e 66 69 67 75 72 65 64 20 74 6f  is configured to
96d0: 20 6f 6d 69 74 0a 20 20 23 20 22 50 52 41 47 4d   omit.  # "PRAGM
96e0: 41 20 63 61 63 68 65 5f 73 69 7a 65 22 2e 0a 20  A cache_size".. 
96f0: 20 70 75 74 73 20 24 66 20 7b 64 62 20 65 76 61   puts $f {db eva
9700: 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  l {SELECT * FROM
9710: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 3b 7d   sqlite_master;}
9720: 7d 0a 20 20 70 75 74 73 20 24 66 20 7b 73 65 74  }.  puts $f {set
9730: 20 62 74 20 5b 62 74 72 65 65 5f 66 72 6f 6d 5f   bt [btree_from_
9740: 64 62 20 64 62 5d 7d 0a 20 20 70 75 74 73 20 24  db db]}.  puts $
9750: 66 20 7b 62 74 72 65 65 5f 73 65 74 5f 63 61 63  f {btree_set_cac
9760: 68 65 5f 73 69 7a 65 20 24 62 74 20 31 30 7d 0a  he_size $bt 10}.
9770: 0a 20 20 69 66 20 7b 24 70 72 6e 67 73 65 65 64  .  if {$prngseed
9780: 7d 20 7b 0a 20 20 20 20 73 65 74 20 73 65 65 64  } {.    set seed
9790: 20 5b 65 78 70 72 20 7b 24 70 72 6e 67 73 65 65   [expr {$prngsee
97a0: 64 25 31 30 30 30 37 2b 31 7d 5d 0a 20 20 20 20  d%10007+1}].    
97b0: 23 20 70 75 74 73 20 73 65 65 64 3d 24 73 65 65  # puts seed=$see
97c0: 64 0a 20 20 20 20 70 75 74 73 20 24 66 20 22 64  d.    puts $f "d
97d0: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 72  b eval {SELECT r
97e0: 61 6e 64 6f 6d 62 6c 6f 62 28 24 73 65 65 64 29  andomblob($seed)
97f0: 7d 22 0a 20 20 7d 0a 0a 20 20 69 66 20 7b 5b 73  }".  }..  if {[s
9800: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 74 63  tring length $tc
9810: 6c 62 6f 64 79 5d 3e 30 7d 20 7b 0a 20 20 20 20  lbody]>0} {.    
9820: 70 75 74 73 20 24 66 20 24 74 63 6c 62 6f 64 79  puts $f $tclbody
9830: 0a 20 20 7d 0a 20 20 69 66 20 7b 5b 73 74 72 69  .  }.  if {[stri
9840: 6e 67 20 6c 65 6e 67 74 68 20 24 73 71 6c 5d 3e  ng length $sql]>
9850: 30 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 24 66  0} {.    puts $f
9860: 20 22 64 62 20 65 76 61 6c 20 7b 22 0a 20 20 20   "db eval {".   
9870: 20 70 75 74 73 20 24 66 20 20 20 22 24 73 71 6c   puts $f   "$sql
9880: 22 0a 20 20 20 20 70 75 74 73 20 24 66 20 22 7d  ".    puts $f "}
9890: 22 0a 20 20 7d 0a 20 20 63 6c 6f 73 65 20 24 66  ".  }.  close $f
98a0: 0a 20 20 73 65 74 20 72 20 5b 63 61 74 63 68 20  .  set r [catch 
98b0: 7b 0a 20 20 20 20 65 78 65 63 20 5b 69 6e 66 6f  {.    exec [info
98c0: 20 6e 61 6d 65 6f 66 65 78 65 63 5d 20 63 72 61   nameofexec] cra
98d0: 73 68 2e 74 63 6c 20 3e 40 73 74 64 6f 75 74 0a  sh.tcl >@stdout.
98e0: 20 20 7d 20 6d 73 67 5d 0a 0a 20 20 23 20 57 69    } msg]..  # Wi
98f0: 6e 64 6f 77 73 2f 41 63 74 69 76 65 53 74 61 74  ndows/ActiveStat
9900: 65 20 54 43 4c 20 72 65 74 75 72 6e 73 20 61 20  e TCL returns a 
9910: 73 6c 69 67 68 74 6c 79 20 64 69 66 66 65 72 65  slightly differe
9920: 6e 74 0a 20 20 23 20 65 72 72 6f 72 20 6d 65 73  nt.  # error mes
9930: 73 61 67 65 2e 20 20 57 65 20 6d 61 70 20 74 68  sage.  We map th
9940: 61 74 20 74 6f 20 74 68 65 20 65 78 70 65 63 74  at to the expect
9950: 65 64 20 6d 65 73 73 61 67 65 0a 20 20 23 20 73  ed message.  # s
9960: 6f 20 74 68 61 74 20 77 65 20 64 6f 6e 27 74 20  o that we don't 
9970: 68 61 76 65 20 74 6f 20 63 68 61 6e 67 65 20 61  have to change a
9980: 6c 6c 20 6f 66 20 74 68 65 20 74 65 73 74 0a 20  ll of the test. 
9990: 20 23 20 63 61 73 65 73 2e 0a 20 20 69 66 20 7b   # cases..  if {
99a0: 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28  $::tcl_platform(
99b0: 70 6c 61 74 66 6f 72 6d 29 3d 3d 22 77 69 6e 64  platform)=="wind
99c0: 6f 77 73 22 7d 20 7b 0a 20 20 20 20 69 66 20 7b  ows"} {.    if {
99d0: 24 6d 73 67 3d 3d 22 63 68 69 6c 64 20 6b 69 6c  $msg=="child kil
99e0: 6c 65 64 3a 20 75 6e 6b 6e 6f 77 6e 20 73 69 67  led: unknown sig
99f0: 6e 61 6c 22 7d 20 7b 0a 20 20 20 20 20 20 73 65  nal"} {.      se
9a00: 74 20 6d 73 67 20 22 63 68 69 6c 64 20 70 72 6f  t msg "child pro
9a10: 63 65 73 73 20 65 78 69 74 65 64 20 61 62 6e 6f  cess exited abno
9a20: 72 6d 61 6c 6c 79 22 0a 20 20 20 20 7d 0a 20 20  rmally".    }.  
9a30: 7d 0a 0a 20 20 6c 61 70 70 65 6e 64 20 72 20 24  }..  lappend r $
9a40: 6d 73 67 0a 7d 0a 0a 70 72 6f 63 20 72 75 6e 5f  msg.}..proc run_
9a50: 69 6f 65 72 72 5f 70 72 65 70 20 7b 7d 20 7b 0a  ioerr_prep {} {.
9a60: 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69    set ::sqlite_i
9a70: 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20  o_error_pending 
9a80: 30 0a 20 20 63 61 74 63 68 20 7b 64 62 20 63 6c  0.  catch {db cl
9a90: 6f 73 65 7d 0a 20 20 63 61 74 63 68 20 7b 64 62  ose}.  catch {db
9aa0: 32 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68  2 close}.  catch
9ab0: 20 7b 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65   {forcedelete te
9ac0: 73 74 2e 64 62 7d 0a 20 20 63 61 74 63 68 20 7b  st.db}.  catch {
9ad0: 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73 74  forcedelete test
9ae0: 2e 64 62 2d 6a 6f 75 72 6e 61 6c 7d 0a 20 20 63  .db-journal}.  c
9af0: 61 74 63 68 20 7b 66 6f 72 63 65 64 65 6c 65 74  atch {forcedelet
9b00: 65 20 74 65 73 74 32 2e 64 62 7d 0a 20 20 63 61  e test2.db}.  ca
9b10: 74 63 68 20 7b 66 6f 72 63 65 64 65 6c 65 74 65  tch {forcedelete
9b20: 20 74 65 73 74 32 2e 64 62 2d 6a 6f 75 72 6e 61   test2.db-journa
9b30: 6c 7d 0a 20 20 73 65 74 20 3a 3a 44 42 20 5b 73  l}.  set ::DB [s
9b40: 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64  qlite3 db test.d
9b50: 62 3b 20 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65  b; sqlite3_conne
9b60: 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62  ction_pointer db
9b70: 5d 0a 20 20 73 71 6c 69 74 65 33 5f 65 78 74 65  ].  sqlite3_exte
9b80: 6e 64 65 64 5f 72 65 73 75 6c 74 5f 63 6f 64 65  nded_result_code
9b90: 73 20 24 3a 3a 44 42 20 24 3a 3a 69 6f 65 72 72  s $::DB $::ioerr
9ba0: 6f 70 74 73 28 2d 65 72 63 29 0a 20 20 69 66 20  opts(-erc).  if 
9bb0: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
9bc0: 69 6f 65 72 72 6f 70 74 73 28 2d 74 63 6c 70 72  ioerropts(-tclpr
9bd0: 65 70 29 5d 7d 20 7b 0a 20 20 20 20 65 76 61 6c  ep)]} {.    eval
9be0: 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 74   $::ioerropts(-t
9bf0: 63 6c 70 72 65 70 29 0a 20 20 7d 0a 20 20 69 66  clprep).  }.  if
9c00: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
9c10: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73 71 6c 70  :ioerropts(-sqlp
9c20: 72 65 70 29 5d 7d 20 7b 0a 20 20 20 20 65 78 65  rep)]} {.    exe
9c30: 63 73 71 6c 20 24 3a 3a 69 6f 65 72 72 6f 70 74  csql $::ioerropt
9c40: 73 28 2d 73 71 6c 70 72 65 70 29 0a 20 20 7d 0a  s(-sqlprep).  }.
9c50: 20 20 65 78 70 72 20 30 0a 7d 0a 0a 23 20 55 73    expr 0.}..# Us
9c60: 61 67 65 3a 20 64 6f 5f 69 6f 65 72 72 5f 74 65  age: do_ioerr_te
9c70: 73 74 20 3c 74 65 73 74 20 6e 75 6d 62 65 72 3e  st <test number>
9c80: 20 3c 6f 70 74 69 6f 6e 73 2e 2e 2e 3e 0a 23 0a   <options...>.#.
9c90: 23 20 54 68 69 73 20 70 72 6f 63 20 69 73 20 75  # This proc is u
9ca0: 73 65 64 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74  sed to implement
9cb0: 20 74 65 73 74 20 63 61 73 65 73 20 74 68 61 74   test cases that
9cc0: 20 63 68 65 63 6b 20 74 68 61 74 20 49 4f 20 65   check that IO e
9cd0: 72 72 6f 72 73 0a 23 20 61 72 65 20 63 6f 72 72  rrors.# are corr
9ce0: 65 63 74 6c 79 20 68 61 6e 64 6c 65 64 2e 20 54  ectly handled. T
9cf0: 68 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e  he first argumen
9d00: 74 2c 20 3c 74 65 73 74 20 6e 75 6d 62 65 72 3e  t, <test number>
9d10: 2c 20 69 73 20 61 6e 20 69 6e 74 65 67 65 72 0a  , is an integer.
9d20: 23 20 75 73 65 64 20 74 6f 20 6e 61 6d 65 20 74  # used to name t
9d30: 68 65 20 74 65 73 74 73 20 65 78 65 63 75 74 65  he tests execute
9d40: 64 20 62 79 20 74 68 69 73 20 70 72 6f 63 2e 20  d by this proc. 
9d50: 4f 70 74 69 6f 6e 73 20 61 72 65 20 61 73 20 66  Options are as f
9d60: 6f 6c 6c 6f 77 73 3a 0a 23 0a 23 20 20 20 20 20  ollows:.#.#     
9d70: 2d 74 63 6c 70 72 65 70 20 20 20 20 20 20 20 20  -tclprep        
9d80: 20 20 54 43 4c 20 73 63 72 69 70 74 20 74 6f 20    TCL script to 
9d90: 72 75 6e 20 74 6f 20 70 72 65 70 61 72 65 20 74  run to prepare t
9da0: 65 73 74 2e 0a 23 20 20 20 20 20 2d 73 71 6c 70  est..#     -sqlp
9db0: 72 65 70 20 20 20 20 20 20 20 20 20 20 53 51 4c  rep          SQL
9dc0: 20 73 63 72 69 70 74 20 74 6f 20 72 75 6e 20 74   script to run t
9dd0: 6f 20 70 72 65 70 61 72 65 20 74 65 73 74 2e 0a  o prepare test..
9de0: 23 20 20 20 20 20 2d 74 63 6c 62 6f 64 79 20 20  #     -tclbody  
9df0: 20 20 20 20 20 20 20 20 54 43 4c 20 73 63 72 69          TCL scri
9e00: 70 74 20 74 6f 20 72 75 6e 20 77 69 74 68 20 49  pt to run with I
9e10: 4f 20 65 72 72 6f 72 20 73 69 6d 75 6c 61 74 69  O error simulati
9e20: 6f 6e 2e 0a 23 20 20 20 20 20 2d 73 71 6c 62 6f  on..#     -sqlbo
9e30: 64 79 20 20 20 20 20 20 20 20 20 20 54 43 4c 20  dy          TCL 
9e40: 73 63 72 69 70 74 20 74 6f 20 72 75 6e 20 77 69  script to run wi
9e50: 74 68 20 49 4f 20 65 72 72 6f 72 20 73 69 6d 75  th IO error simu
9e60: 6c 61 74 69 6f 6e 2e 0a 23 20 20 20 20 20 2d 65  lation..#     -e
9e70: 78 63 6c 75 64 65 20 20 20 20 20 20 20 20 20 20  xclude          
9e80: 4c 69 73 74 20 6f 66 20 27 4e 27 20 76 61 6c 75  List of 'N' valu
9e90: 65 73 20 6e 6f 74 20 74 6f 20 74 65 73 74 2e 0a  es not to test..
9ea0: 23 20 20 20 20 20 2d 65 72 63 20 20 20 20 20 20  #     -erc      
9eb0: 20 20 20 20 20 20 20 20 55 73 65 20 65 78 74 65          Use exte
9ec0: 6e 64 65 64 20 72 65 73 75 6c 74 20 63 6f 64 65  nded result code
9ed0: 73 0a 23 20 20 20 20 20 2d 70 65 72 73 69 73 74  s.#     -persist
9ee0: 20 20 20 20 20 20 20 20 20 20 4d 61 6b 65 20 73            Make s
9ef0: 69 6d 75 6c 61 74 65 64 20 49 2f 4f 20 65 72 72  imulated I/O err
9f00: 6f 72 73 20 70 65 72 73 69 73 74 65 6e 74 0a 23  ors persistent.#
9f10: 20 20 20 20 20 2d 73 74 61 72 74 20 20 20 20 20       -start     
9f20: 20 20 20 20 20 20 20 56 61 6c 75 65 20 6f 66 20         Value of 
9f30: 27 4e 27 20 74 6f 20 62 65 67 69 6e 20 77 69 74  'N' to begin wit
9f40: 68 20 28 64 65 66 61 75 6c 74 20 31 29 0a 23 0a  h (default 1).#.
9f50: 23 20 20 20 20 20 2d 63 6b 73 75 6d 20 20 20 20  #     -cksum    
9f60: 20 20 20 20 20 20 20 20 42 6f 6f 6c 65 61 6e 2e          Boolean.
9f70: 20 49 66 20 74 72 75 65 2c 20 74 65 73 74 20 74   If true, test t
9f80: 68 61 74 20 74 68 65 20 64 61 74 61 62 61 73 65  hat the database
9f90: 20 64 6f 65 73 0a 23 20 20 20 20 20 20 20 20 20   does.#         
9fa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f                no
9fb0: 74 20 63 68 61 6e 67 65 20 64 75 72 69 6e 67 20  t change during 
9fc0: 74 68 65 20 65 78 65 63 75 74 69 6f 6e 20 6f 66  the execution of
9fd0: 20 74 68 65 20 74 65 73 74 20 63 61 73 65 2e 0a   the test case..
9fe0: 23 0a 70 72 6f 63 20 64 6f 5f 69 6f 65 72 72 5f  #.proc do_ioerr_
9ff0: 74 65 73 74 20 7b 74 65 73 74 6e 61 6d 65 20 61  test {testname a
a000: 72 67 73 7d 20 7b 0a 0a 20 20 73 65 74 20 3a 3a  rgs} {..  set ::
a010: 69 6f 65 72 72 6f 70 74 73 28 2d 73 74 61 72 74  ioerropts(-start
a020: 29 20 31 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72  ) 1.  set ::ioer
a030: 72 6f 70 74 73 28 2d 63 6b 73 75 6d 29 20 30 0a  ropts(-cksum) 0.
a040: 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74    set ::ioerropt
a050: 73 28 2d 65 72 63 29 20 30 0a 20 20 73 65 74 20  s(-erc) 0.  set 
a060: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6f 75  ::ioerropts(-cou
a070: 6e 74 29 20 31 30 30 30 30 30 30 30 30 0a 20 20  nt) 100000000.  
a080: 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28  set ::ioerropts(
a090: 2d 70 65 72 73 69 73 74 29 20 31 0a 20 20 73 65  -persist) 1.  se
a0a0: 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63  t ::ioerropts(-c
a0b0: 6b 72 65 66 63 6f 75 6e 74 29 20 30 0a 20 20 73  krefcount) 0.  s
a0c0: 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d  et ::ioerropts(-
a0d0: 72 65 73 74 6f 72 65 70 72 6e 67 29 20 31 0a 20  restoreprng) 1. 
a0e0: 20 61 72 72 61 79 20 73 65 74 20 3a 3a 69 6f 65   array set ::ioe
a0f0: 72 72 6f 70 74 73 20 24 61 72 67 73 0a 0a 20 20  rropts $args..  
a100: 23 20 54 45 4d 50 4f 52 41 52 59 3a 20 46 6f 72  # TEMPORARY: For
a110: 20 33 2e 35 2e 39 2c 20 64 69 73 61 62 6c 65 20   3.5.9, disable 
a120: 74 65 73 74 69 6e 67 20 6f 66 20 65 78 74 65 6e  testing of exten
a130: 64 65 64 20 72 65 73 75 6c 74 20 63 6f 64 65 73  ded result codes
a140: 2e 20 54 68 65 72 65 20 61 72 65 0a 20 20 23 20  . There are.  # 
a150: 61 20 63 6f 75 70 6c 65 20 6f 66 20 6f 62 73 63  a couple of obsc
a160: 75 72 65 20 49 4f 20 65 72 72 6f 72 73 20 74 68  ure IO errors th
a170: 61 74 20 64 6f 20 6e 6f 74 20 72 65 74 75 72 6e  at do not return
a180: 20 74 68 65 6d 2e 0a 20 20 73 65 74 20 3a 3a 69   them..  set ::i
a190: 6f 65 72 72 6f 70 74 73 28 2d 65 72 63 29 20 30  oerropts(-erc) 0
a1a0: 0a 0a 20 20 23 20 43 72 65 61 74 65 20 61 20 73  ..  # Create a s
a1b0: 69 6e 67 6c 65 20 54 43 4c 20 73 63 72 69 70 74  ingle TCL script
a1c0: 20 66 72 6f 6d 20 74 68 65 20 54 43 4c 20 61 6e   from the TCL an
a1d0: 64 20 53 51 4c 20 73 70 65 63 69 66 69 65 64 0a  d SQL specified.
a1e0: 20 20 23 20 61 73 20 74 68 65 20 62 6f 64 79 20    # as the body 
a1f0: 6f 66 20 74 68 65 20 74 65 73 74 2e 0a 20 20 73  of the test..  s
a200: 65 74 20 3a 3a 69 6f 65 72 72 6f 72 62 6f 64 79  et ::ioerrorbody
a210: 20 7b 7d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20   {}.  if {[info 
a220: 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70  exists ::ioerrop
a230: 74 73 28 2d 74 63 6c 62 6f 64 79 29 5d 7d 20 7b  ts(-tclbody)]} {
a240: 0a 20 20 20 20 61 70 70 65 6e 64 20 3a 3a 69 6f  .    append ::io
a250: 65 72 72 6f 72 62 6f 64 79 20 22 24 3a 3a 69 6f  errorbody "$::io
a260: 65 72 72 6f 70 74 73 28 2d 74 63 6c 62 6f 64 79  erropts(-tclbody
a270: 29 5c 6e 22 0a 20 20 7d 0a 20 20 69 66 20 7b 5b  )\n".  }.  if {[
a280: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f  info exists ::io
a290: 65 72 72 6f 70 74 73 28 2d 73 71 6c 62 6f 64 79  erropts(-sqlbody
a2a0: 29 5d 7d 20 7b 0a 20 20 20 20 61 70 70 65 6e 64  )]} {.    append
a2b0: 20 3a 3a 69 6f 65 72 72 6f 72 62 6f 64 79 20 22   ::ioerrorbody "
a2c0: 64 62 20 65 76 61 6c 20 7b 24 3a 3a 69 6f 65 72  db eval {$::ioer
a2d0: 72 6f 70 74 73 28 2d 73 71 6c 62 6f 64 79 29 7d  ropts(-sqlbody)}
a2e0: 22 0a 20 20 7d 0a 0a 20 20 73 61 76 65 5f 70 72  ".  }..  save_pr
a2f0: 6e 67 5f 73 74 61 74 65 0a 20 20 69 66 20 7b 24  ng_state.  if {$
a300: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 73  ::ioerropts(-cks
a310: 75 6d 29 7d 20 7b 0a 20 20 20 20 72 75 6e 5f 69  um)} {.    run_i
a320: 6f 65 72 72 5f 70 72 65 70 0a 20 20 20 20 65 76  oerr_prep.    ev
a330: 61 6c 20 24 3a 3a 69 6f 65 72 72 6f 72 62 6f 64  al $::ioerrorbod
a340: 79 0a 20 20 20 20 73 65 74 20 3a 3a 67 6f 6f 64  y.    set ::good
a350: 63 6b 73 75 6d 20 5b 63 6b 73 75 6d 5d 0a 20 20  cksum [cksum].  
a360: 7d 0a 0a 20 20 73 65 74 20 3a 3a 67 6f 20 31 0a  }..  set ::go 1.
a370: 20 20 23 72 65 73 65 74 5f 70 72 6e 67 5f 73 74    #reset_prng_st
a380: 61 74 65 0a 20 20 66 6f 72 20 7b 73 65 74 20 6e  ate.  for {set n
a390: 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73   $::ioerropts(-s
a3a0: 74 61 72 74 29 7d 20 7b 24 3a 3a 67 6f 7d 20 7b  tart)} {$::go} {
a3b0: 69 6e 63 72 20 6e 7d 20 7b 0a 20 20 20 20 73 65  incr n} {.    se
a3c0: 74 20 3a 3a 54 4e 20 24 6e 0a 20 20 20 20 69 6e  t ::TN $n.    in
a3d0: 63 72 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d  cr ::ioerropts(-
a3e0: 63 6f 75 6e 74 29 20 2d 31 0a 20 20 20 20 69 66  count) -1.    if
a3f0: 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d   {$::ioerropts(-
a400: 63 6f 75 6e 74 29 3c 30 7d 20 62 72 65 61 6b 0a  count)<0} break.
a410: 0a 20 20 20 20 23 20 53 6b 69 70 20 74 68 69 73  .    # Skip this
a420: 20 49 4f 20 65 72 72 6f 72 20 69 66 20 69 74 20   IO error if it 
a430: 77 61 73 20 73 70 65 63 69 66 69 65 64 20 77 69  was specified wi
a440: 74 68 20 74 68 65 20 22 2d 65 78 63 6c 75 64 65  th the "-exclude
a450: 22 20 6f 70 74 69 6f 6e 2e 0a 20 20 20 20 69 66  " option..    if
a460: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
a470: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 65 78 63 6c  :ioerropts(-excl
a480: 75 64 65 29 5d 7d 20 7b 0a 20 20 20 20 20 20 69  ude)]} {.      i
a490: 66 20 7b 5b 6c 73 65 61 72 63 68 20 24 3a 3a 69  f {[lsearch $::i
a4a0: 6f 65 72 72 6f 70 74 73 28 2d 65 78 63 6c 75 64  oerropts(-exclud
a4b0: 65 29 20 24 6e 5d 21 3d 2d 31 7d 20 63 6f 6e 74  e) $n]!=-1} cont
a4c0: 69 6e 75 65 0a 20 20 20 20 7d 0a 20 20 20 20 69  inue.    }.    i
a4d0: 66 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28  f {$::ioerropts(
a4e0: 2d 72 65 73 74 6f 72 65 70 72 6e 67 29 7d 20 7b  -restoreprng)} {
a4f0: 0a 20 20 20 20 20 20 72 65 73 74 6f 72 65 5f 70  .      restore_p
a500: 72 6e 67 5f 73 74 61 74 65 0a 20 20 20 20 7d 0a  rng_state.    }.
a510: 0a 20 20 20 20 23 20 44 65 6c 65 74 65 20 74 68  .    # Delete th
a520: 65 20 66 69 6c 65 73 20 74 65 73 74 2e 64 62 20  e files test.db 
a530: 61 6e 64 20 74 65 73 74 32 2e 64 62 2c 20 74 68  and test2.db, th
a540: 65 6e 20 65 78 65 63 75 74 65 20 74 68 65 20 54  en execute the T
a550: 43 4c 20 61 6e 64 0a 20 20 20 20 23 20 53 51 4c  CL and.    # SQL
a560: 20 28 69 6e 20 74 68 61 74 20 6f 72 64 65 72 29   (in that order)
a570: 20 74 6f 20 70 72 65 70 61 72 65 20 66 6f 72 20   to prepare for 
a580: 74 68 65 20 74 65 73 74 20 63 61 73 65 2e 0a 20  the test case.. 
a590: 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74     do_test $test
a5a0: 6e 61 6d 65 2e 24 6e 2e 31 20 7b 0a 20 20 20 20  name.$n.1 {.    
a5b0: 20 20 72 75 6e 5f 69 6f 65 72 72 5f 70 72 65 70    run_ioerr_prep
a5c0: 0a 20 20 20 20 7d 20 7b 30 7d 0a 0a 20 20 20 20  .    } {0}..    
a5d0: 23 20 52 65 61 64 20 74 68 65 20 27 63 68 65 63  # Read the 'chec
a5e0: 6b 73 75 6d 27 20 6f 66 20 74 68 65 20 64 61 74  ksum' of the dat
a5f0: 61 62 61 73 65 2e 0a 20 20 20 20 69 66 20 7b 24  abase..    if {$
a600: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 73  ::ioerropts(-cks
a610: 75 6d 29 7d 20 7b 0a 20 20 20 20 20 20 73 65 74  um)} {.      set
a620: 20 3a 3a 63 68 65 63 6b 73 75 6d 20 5b 63 6b 73   ::checksum [cks
a630: 75 6d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23  um].    }..    #
a640: 20 53 65 74 20 74 68 65 20 4e 74 68 20 49 4f 20   Set the Nth IO 
a650: 65 72 72 6f 72 20 74 6f 20 66 61 69 6c 2e 0a 20  error to fail.. 
a660: 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74     do_test $test
a670: 6e 61 6d 65 2e 24 6e 2e 32 20 5b 73 75 62 73 74  name.$n.2 [subst
a680: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 73   {.      set ::s
a690: 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70  qlite_io_error_p
a6a0: 65 72 73 69 73 74 20 24 3a 3a 69 6f 65 72 72 6f  ersist $::ioerro
a6b0: 70 74 73 28 2d 70 65 72 73 69 73 74 29 0a 20 20  pts(-persist).  
a6c0: 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65      set ::sqlite
a6d0: 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e  _io_error_pendin
a6e0: 67 20 24 6e 0a 20 20 20 20 7d 5d 20 24 6e 0a 0a  g $n.    }] $n..
a6f0: 20 20 20 20 23 20 45 78 65 63 75 74 65 20 74 68      # Execute th
a700: 65 20 54 43 4c 20 73 63 72 69 70 74 20 63 72 65  e TCL script cre
a710: 61 74 65 64 20 66 6f 72 20 74 68 65 20 62 6f 64  ated for the bod
a720: 79 20 6f 66 20 74 68 69 73 20 74 65 73 74 2e 20  y of this test. 
a730: 49 66 0a 20 20 20 20 23 20 61 74 20 6c 65 61 73  If.    # at leas
a740: 74 20 4e 20 49 4f 20 6f 70 65 72 61 74 69 6f 6e  t N IO operation
a750: 73 20 70 65 72 66 6f 72 6d 65 64 20 62 79 20 53  s performed by S
a760: 51 4c 69 74 65 20 61 73 20 61 20 72 65 73 75 6c  QLite as a resul
a770: 74 20 6f 66 0a 20 20 20 20 23 20 74 68 65 20 73  t of.    # the s
a780: 63 72 69 70 74 2c 20 74 68 65 20 4e 74 68 20 77  cript, the Nth w
a790: 69 6c 6c 20 66 61 69 6c 2e 0a 20 20 20 20 64 6f  ill fail..    do
a7a0: 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e  _test $testname.
a7b0: 24 6e 2e 33 20 7b 0a 20 20 20 20 20 20 73 65 74  $n.3 {.      set
a7c0: 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72   ::sqlite_io_err
a7d0: 6f 72 5f 68 69 74 20 30 0a 20 20 20 20 20 20 73  or_hit 0.      s
a7e0: 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65  et ::sqlite_io_e
a7f0: 72 72 6f 72 5f 68 61 72 64 68 69 74 20 30 0a 20  rror_hardhit 0. 
a800: 20 20 20 20 20 73 65 74 20 72 20 5b 63 61 74 63       set r [catc
a810: 68 20 24 3a 3a 69 6f 65 72 72 6f 72 62 6f 64 79  h $::ioerrorbody
a820: 20 6d 73 67 5d 0a 20 20 20 20 20 20 73 65 74 20   msg].      set 
a830: 3a 3a 65 72 72 73 65 65 6e 20 24 72 0a 20 20 20  ::errseen $r.   
a840: 20 20 20 73 65 74 20 72 63 20 5b 73 71 6c 69 74     set rc [sqlit
a850: 65 33 5f 65 72 72 63 6f 64 65 20 24 3a 3a 44 42  e3_errcode $::DB
a860: 5d 0a 20 20 20 20 20 20 69 66 20 7b 24 3a 3a 69  ].      if {$::i
a870: 6f 65 72 72 6f 70 74 73 28 2d 65 72 63 29 7d 20  oerropts(-erc)} 
a880: 7b 0a 20 20 20 20 20 20 20 20 23 20 49 66 20 77  {.        # If w
a890: 65 20 61 72 65 20 69 6e 20 65 78 74 65 6e 64 65  e are in extende
a8a0: 64 20 72 65 73 75 6c 74 20 63 6f 64 65 20 6d 6f  d result code mo
a8b0: 64 65 2c 20 6d 61 6b 65 20 73 75 72 65 20 61 6c  de, make sure al
a8c0: 6c 20 6f 66 20 74 68 65 0a 20 20 20 20 20 20 20  l of the.       
a8d0: 20 23 20 49 4f 45 52 52 73 20 77 65 20 67 65 74   # IOERRs we get
a8e0: 20 62 61 63 6b 20 72 65 61 6c 6c 79 20 64 6f 20   back really do 
a8f0: 68 61 76 65 20 74 68 65 69 72 20 65 78 74 65 6e  have their exten
a900: 64 65 64 20 63 6f 64 65 20 76 61 6c 75 65 73 2e  ded code values.
a910: 0a 20 20 20 20 20 20 20 20 23 20 49 66 20 61 6e  .        # If an
a920: 20 65 78 74 65 6e 64 65 64 20 72 65 73 75 6c 74   extended result
a930: 20 63 6f 64 65 20 69 73 20 72 65 74 75 72 6e 65   code is returne
a940: 64 2c 20 74 68 65 20 73 71 6c 69 74 65 33 5f 65  d, the sqlite3_e
a950: 72 72 63 6f 64 65 0a 20 20 20 20 20 20 20 20 23  rrcode.        #
a960: 20 54 43 4c 63 6f 6d 6d 61 6e 64 20 77 69 6c 6c   TCLcommand will
a970: 20 72 65 74 75 72 6e 20 61 20 73 74 72 69 6e 67   return a string
a980: 20 6f 66 20 74 68 65 20 66 6f 72 6d 3a 20 20 53   of the form:  S
a990: 51 4c 49 54 45 5f 49 4f 45 52 52 2b 6e 6e 6e 6e  QLITE_IOERR+nnnn
a9a0: 0a 20 20 20 20 20 20 20 20 23 20 77 68 65 72 65  .        # where
a9b0: 20 6e 6e 6e 6e 20 69 73 20 61 20 6e 75 6d 62 65   nnnn is a numbe
a9c0: 72 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 72  r.        if {[r
a9d0: 65 67 65 78 70 20 7b 5e 53 51 4c 49 54 45 5f 49  egexp {^SQLITE_I
a9e0: 4f 45 52 52 7d 20 24 72 63 5d 20 26 26 20 21 5b  OERR} $rc] && ![
a9f0: 72 65 67 65 78 70 20 7b 49 4f 45 52 52 5c 2b 5c  regexp {IOERR\+\
aa00: 64 7d 20 24 72 63 5d 7d 20 7b 0a 20 20 20 20 20  d} $rc]} {.     
aa10: 20 20 20 20 20 72 65 74 75 72 6e 20 24 72 63 0a       return $rc.
aa20: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
aa30: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20  } else {.       
aa40: 20 23 20 49 66 20 77 65 20 61 72 65 20 6e 6f 74   # If we are not
aa50: 20 69 6e 20 65 78 74 65 6e 64 65 64 20 72 65 73   in extended res
aa60: 75 6c 74 20 63 6f 64 65 20 6d 6f 64 65 2c 20 6d  ult code mode, m
aa70: 61 6b 65 20 73 75 72 65 20 6e 6f 0a 20 20 20 20  ake sure no.    
aa80: 20 20 20 20 23 20 65 78 74 65 6e 64 65 64 20 65      # extended e
aa90: 72 72 6f 72 20 63 6f 64 65 73 20 61 72 65 20 72  rror codes are r
aaa0: 65 74 75 72 6e 65 64 2e 0a 20 20 20 20 20 20 20  eturned..       
aab0: 20 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 5c 2b   if {[regexp {\+
aac0: 5c 64 7d 20 24 72 63 5d 7d 20 7b 0a 20 20 20 20  \d} $rc]} {.    
aad0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 72 63        return $rc
aae0: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
aaf0: 20 7d 0a 20 20 20 20 20 20 23 20 54 68 65 20 74   }.      # The t
ab00: 65 73 74 20 72 65 70 65 61 74 73 20 61 73 20 6c  est repeats as l
ab10: 6f 6e 67 20 61 73 20 24 3a 3a 67 6f 20 69 73 20  ong as $::go is 
ab20: 6e 6f 6e 2d 7a 65 72 6f 2e 20 20 24 3a 3a 67 6f  non-zero.  $::go
ab30: 20 73 74 61 72 74 73 20 6f 75 74 0a 20 20 20 20   starts out.    
ab40: 20 20 23 20 61 73 20 31 2e 20 20 57 68 65 6e 20    # as 1.  When 
ab50: 61 20 74 65 73 74 20 72 75 6e 73 20 74 6f 20 63  a test runs to c
ab60: 6f 6d 70 6c 65 74 69 6f 6e 20 77 69 74 68 6f 75  ompletion withou
ab70: 74 20 68 69 74 74 69 6e 67 20 61 6e 20 49 2f 4f  t hitting an I/O
ab80: 0a 20 20 20 20 20 20 23 20 65 72 72 6f 72 2c 20  .      # error, 
ab90: 74 68 61 74 20 6d 65 61 6e 73 20 74 68 65 72 65  that means there
aba0: 20 69 73 20 6e 6f 20 70 6f 69 6e 74 20 69 6e 20   is no point in 
abb0: 63 6f 6e 74 69 6e 75 69 6e 67 20 77 69 74 68 20  continuing with 
abc0: 74 68 69 73 20 74 65 73 74 0a 20 20 20 20 20 20  this test.      
abd0: 23 20 63 61 73 65 20 73 6f 20 73 65 74 20 24 3a  # case so set $:
abe0: 3a 67 6f 20 74 6f 20 7a 65 72 6f 2e 0a 20 20 20  :go to zero..   
abf0: 20 20 20 23 0a 20 20 20 20 20 20 69 66 20 7b 24     #.      if {$
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 3e 30 7d 20 7b 0a 20  r_pending>0} {. 
ac20: 20 20 20 20 20 20 20 73 65 74 20 3a 3a 67 6f 20         set ::go 
ac30: 30 0a 20 20 20 20 20 20 20 20 73 65 74 20 71 20  0.        set q 
ac40: 30 0a 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a  0.        set ::
ac50: 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f  sqlite_io_error_
ac60: 70 65 6e 64 69 6e 67 20 30 0a 20 20 20 20 20 20  pending 0.      
ac70: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20  } else {.       
ac80: 20 73 65 74 20 71 20 31 0a 20 20 20 20 20 20 7d   set q 1.      }
ac90: 0a 0a 20 20 20 20 20 20 73 65 74 20 73 20 5b 65  ..      set s [e
aca0: 78 70 72 20 24 3a 3a 73 71 6c 69 74 65 5f 69 6f  xpr $::sqlite_io
acb0: 5f 65 72 72 6f 72 5f 68 69 74 3d 3d 30 5d 0a 20  _error_hit==0]. 
acc0: 20 20 20 20 20 69 66 20 7b 24 3a 3a 73 71 6c 69       if {$::sqli
acd0: 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 69 74 3e  te_io_error_hit>
ace0: 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72  $::sqlite_io_err
acf0: 6f 72 5f 68 61 72 64 68 69 74 20 26 26 20 24 72  or_hardhit && $r
ad00: 3d 3d 30 7d 20 7b 0a 20 20 20 20 20 20 20 20 73  ==0} {.        s
ad10: 65 74 20 72 20 31 0a 20 20 20 20 20 20 7d 0a 20  et r 1.      }. 
ad20: 20 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74       set ::sqlit
ad30: 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 69 74 20 30  e_io_error_hit 0
ad40: 0a 0a 20 20 20 20 20 20 23 20 4f 6e 65 20 6f 66  ..      # One of
ad50: 20 74 77 6f 20 74 68 69 6e 67 73 20 6d 75 73 74   two things must
ad60: 20 68 61 76 65 20 68 61 70 70 65 6e 65 64 2e 20   have happened. 
ad70: 65 69 74 68 65 72 0a 20 20 20 20 20 20 23 20 20  either.      #  
ad80: 20 31 2e 20 20 57 65 20 6e 65 76 65 72 20 68 69   1.  We never hi
ad90: 74 20 74 68 65 20 49 4f 20 65 72 72 6f 72 20 61  t the IO error a
ada0: 6e 64 20 74 68 65 20 53 51 4c 20 72 65 74 75 72  nd the SQL retur
adb0: 6e 65 64 20 4f 4b 0a 20 20 20 20 20 20 23 20 20  ned OK.      #  
adc0: 20 32 2e 20 20 41 6e 20 49 4f 20 65 72 72 6f 72   2.  An IO error
add0: 20 77 61 73 20 68 69 74 20 61 6e 64 20 74 68 65   was hit and the
ade0: 20 53 51 4c 20 66 61 69 6c 65 64 0a 20 20 20 20   SQL failed.    
adf0: 20 20 23 0a 20 20 20 20 20 20 23 70 75 74 73 20    #.      #puts 
ae00: 22 73 3d 24 73 20 72 3d 24 72 20 71 3d 24 71 22  "s=$s r=$r q=$q"
ae10: 0a 20 20 20 20 20 20 65 78 70 72 20 7b 20 28 24  .      expr { ($
ae20: 73 20 26 26 20 21 24 72 20 26 26 20 21 24 71 29  s && !$r && !$q)
ae30: 20 7c 7c 20 28 21 24 73 20 26 26 20 24 72 20 26   || (!$s && $r &
ae40: 26 20 24 71 29 20 7d 0a 20 20 20 20 7d 20 7b 31  & $q) }.    } {1
ae50: 7d 0a 0a 20 20 20 20 73 65 74 20 3a 3a 73 71 6c  }..    set ::sql
ae60: 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 69 74  ite_io_error_hit
ae70: 20 30 0a 20 20 20 20 73 65 74 20 3a 3a 73 71 6c   0.    set ::sql
ae80: 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e  ite_io_error_pen
ae90: 64 69 6e 67 20 30 0a 0a 20 20 20 20 23 20 43 68  ding 0..    # Ch
aea0: 65 63 6b 20 74 68 61 74 20 6e 6f 20 70 61 67 65  eck that no page
aeb0: 20 72 65 66 65 72 65 6e 63 65 73 20 77 65 72 65   references were
aec0: 20 6c 65 61 6b 65 64 2e 20 54 68 65 72 65 20 73   leaked. There s
aed0: 68 6f 75 6c 64 20 62 65 0a 20 20 20 20 23 20 61  hould be.    # a
aee0: 20 73 69 6e 67 6c 65 20 72 65 66 65 72 65 6e 63   single referenc
aef0: 65 20 69 66 20 74 68 65 72 65 20 69 73 20 73 74  e if there is st
af00: 69 6c 6c 20 61 6e 20 61 63 74 69 76 65 20 74 72  ill an active tr
af10: 61 6e 73 61 63 74 69 6f 6e 2c 0a 20 20 20 20 23  ansaction,.    #
af20: 20 6f 72 20 7a 65 72 6f 20 6f 74 68 65 72 77 69   or zero otherwi
af30: 73 65 2e 0a 20 20 20 20 23 0a 20 20 20 20 23 20  se..    #.    # 
af40: 55 50 44 41 54 45 3a 20 49 66 20 74 68 65 20 49  UPDATE: If the I
af50: 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 73 20 61  O error occurs a
af60: 66 74 65 72 20 61 20 27 42 45 47 49 4e 27 20 62  fter a 'BEGIN' b
af70: 75 74 20 62 65 66 6f 72 65 20 61 6e 79 0a 20 20  ut before any.  
af80: 20 20 23 20 6c 6f 63 6b 73 20 61 72 65 20 65 73    # locks are es
af90: 74 61 62 6c 69 73 68 65 64 20 6f 6e 20 64 61 74  tablished on dat
afa0: 61 62 61 73 65 20 66 69 6c 65 73 20 28 69 2e 65  abase files (i.e
afb0: 2e 20 69 66 20 74 68 65 20 65 72 72 6f 72 0a 20  . if the error. 
afc0: 20 20 20 23 20 6f 63 63 75 72 73 20 77 68 69 6c     # occurs whil
afd0: 65 20 61 74 74 65 6d 70 74 69 6e 67 20 74 6f 20  e attempting to 
afe0: 64 65 74 65 63 74 20 61 20 68 6f 74 2d 6a 6f 75  detect a hot-jou
aff0: 72 6e 61 6c 20 66 69 6c 65 29 2c 20 74 68 65 6e  rnal file), then
b000: 0a 20 20 20 20 23 20 74 68 65 72 65 20 6d 61 79  .    # there may
b010: 20 30 20 70 61 67 65 20 72 65 66 65 72 65 6e 63   0 page referenc
b020: 65 73 20 61 6e 64 20 61 6e 20 61 63 74 69 76 65  es and an active
b030: 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 61 63 63   transaction acc
b040: 6f 72 64 69 6e 67 0a 20 20 20 20 23 20 74 6f 20  ording.    # to 
b050: 5b 73 71 6c 69 74 65 33 5f 67 65 74 5f 61 75 74  [sqlite3_get_aut
b060: 6f 63 6f 6d 6d 69 74 5d 2e 0a 20 20 20 20 23 0a  ocommit]..    #.
b070: 20 20 20 20 69 66 20 7b 24 3a 3a 67 6f 20 26 26      if {$::go &&
b080: 20 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72   $::sqlite_io_er
b090: 72 6f 72 5f 68 61 72 64 68 69 74 20 26 26 20 24  ror_hardhit && $
b0a0: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 72  ::ioerropts(-ckr
b0b0: 65 66 63 6f 75 6e 74 29 7d 20 7b 0a 20 20 20 20  efcount)} {.    
b0c0: 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74 6e    do_test $testn
b0d0: 61 6d 65 2e 24 6e 2e 34 20 7b 0a 20 20 20 20 20  ame.$n.4 {.     
b0e0: 20 20 20 73 65 74 20 62 74 20 5b 62 74 72 65 65     set bt [btree
b0f0: 5f 66 72 6f 6d 5f 64 62 20 64 62 5d 0a 20 20 20  _from_db db].   
b100: 20 20 20 20 20 64 62 5f 65 6e 74 65 72 20 64 62       db_enter db
b110: 0a 20 20 20 20 20 20 20 20 61 72 72 61 79 20 73  .        array s
b120: 65 74 20 73 74 61 74 73 20 5b 62 74 72 65 65 5f  et stats [btree_
b130: 70 61 67 65 72 5f 73 74 61 74 73 20 24 62 74 5d  pager_stats $bt]
b140: 0a 20 20 20 20 20 20 20 20 64 62 5f 6c 65 61 76  .        db_leav
b150: 65 20 64 62 0a 20 20 20 20 20 20 20 20 73 65 74  e db.        set
b160: 20 6e 52 65 66 20 24 73 74 61 74 73 28 72 65 66   nRef $stats(ref
b170: 29 0a 20 20 20 20 20 20 20 20 65 78 70 72 20 7b  ).        expr {
b180: 24 6e 52 65 66 20 3d 3d 20 30 20 7c 7c 20 28 5b  $nRef == 0 || ([
b190: 73 71 6c 69 74 65 33 5f 67 65 74 5f 61 75 74 6f  sqlite3_get_auto
b1a0: 63 6f 6d 6d 69 74 20 64 62 5d 3d 3d 30 20 26 26  commit db]==0 &&
b1b0: 20 24 6e 52 65 66 20 3d 3d 20 31 29 7d 0a 20 20   $nRef == 1)}.  
b1c0: 20 20 20 20 7d 20 7b 31 7d 0a 20 20 20 20 7d 0a      } {1}.    }.
b1d0: 0a 20 20 20 20 23 20 49 66 20 74 68 65 72 65 20  .    # If there 
b1e0: 69 73 20 61 6e 20 6f 70 65 6e 20 64 61 74 61 62  is an open datab
b1f0: 61 73 65 20 68 61 6e 64 6c 65 20 61 6e 64 20 6e  ase handle and n
b200: 6f 20 6f 70 65 6e 20 74 72 61 6e 73 61 63 74 69  o open transacti
b210: 6f 6e 2c 0a 20 20 20 20 23 20 61 6e 64 20 74 68  on,.    # and th
b220: 65 20 70 61 67 65 72 20 69 73 20 6e 6f 74 20 72  e pager is not r
b230: 75 6e 6e 69 6e 67 20 69 6e 20 65 78 63 6c 75 73  unning in exclus
b240: 69 76 65 2d 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65  ive-locking mode
b250: 2c 0a 20 20 20 20 23 20 63 68 65 63 6b 20 74 68  ,.    # check th
b260: 61 74 20 74 68 65 20 70 61 67 65 72 20 69 73 20  at the pager is 
b270: 69 6e 20 22 75 6e 6c 6f 63 6b 65 64 22 20 73 74  in "unlocked" st
b280: 61 74 65 2e 20 54 68 65 6f 72 65 74 69 63 61 6c  ate. Theoretical
b290: 6c 79 2c 0a 20 20 20 20 23 20 69 66 20 61 20 63  ly,.    # if a c
b2a0: 61 6c 6c 20 74 6f 20 78 55 6e 6c 6f 63 6b 28 29  all to xUnlock()
b2b0: 20 66 61 69 6c 65 64 20 64 75 65 20 74 6f 20 61   failed due to a
b2c0: 6e 20 49 4f 20 65 72 72 6f 72 20 74 68 65 20 75  n IO error the u
b2d0: 6e 64 65 72 6c 79 69 6e 67 0a 20 20 20 20 23 20  nderlying.    # 
b2e0: 66 69 6c 65 20 6d 61 79 20 73 74 69 6c 6c 20 62  file may still b
b2f0: 65 20 6c 6f 63 6b 65 64 2e 0a 20 20 20 20 23 0a  e locked..    #.
b300: 20 20 20 20 69 66 63 61 70 61 62 6c 65 20 70 72      ifcapable pr
b310: 61 67 6d 61 20 7b 0a 20 20 20 20 20 20 69 66 20  agma {.      if 
b320: 7b 20 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73  { [info commands
b330: 20 64 62 5d 20 6e 65 20 22 22 0a 20 20 20 20 20   db] ne "".     
b340: 20 20 20 26 26 20 24 3a 3a 69 6f 65 72 72 6f 70     && $::ioerrop
b350: 74 73 28 2d 63 6b 72 65 66 63 6f 75 6e 74 29 0a  ts(-ckrefcount).
b360: 20 20 20 20 20 20 20 20 26 26 20 5b 64 62 20 6f          && [db o
b370: 6e 65 20 7b 70 72 61 67 6d 61 20 6c 6f 63 6b 69  ne {pragma locki
b380: 6e 67 5f 6d 6f 64 65 7d 5d 20 65 71 20 22 6e 6f  ng_mode}] eq "no
b390: 72 6d 61 6c 22 0a 20 20 20 20 20 20 20 20 26 26  rmal".        &&
b3a0: 20 5b 73 71 6c 69 74 65 33 5f 67 65 74 5f 61 75   [sqlite3_get_au
b3b0: 74 6f 63 6f 6d 6d 69 74 20 64 62 5d 0a 20 20 20  tocommit db].   
b3c0: 20 20 20 7d 20 7b 0a 20 20 20 20 20 20 20 20 64     } {.        d
b3d0: 6f 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65  o_test $testname
b3e0: 2e 24 6e 2e 35 20 7b 0a 20 20 20 20 20 20 20 20  .$n.5 {.        
b3f0: 20 20 73 65 74 20 62 74 20 5b 62 74 72 65 65 5f    set bt [btree_
b400: 66 72 6f 6d 5f 64 62 20 64 62 5d 0a 20 20 20 20  from_db db].    
b410: 20 20 20 20 20 20 64 62 5f 65 6e 74 65 72 20 64        db_enter d
b420: 62 0a 20 20 20 20 20 20 20 20 20 20 61 72 72 61  b.          arra
b430: 79 20 73 65 74 20 73 74 61 74 73 20 5b 62 74 72  y set stats [btr
b440: 65 65 5f 70 61 67 65 72 5f 73 74 61 74 73 20 24  ee_pager_stats $
b450: 62 74 5d 0a 20 20 20 20 20 20 20 20 20 20 64 62  bt].          db
b460: 5f 6c 65 61 76 65 20 64 62 0a 20 20 20 20 20 20  _leave db.      
b470: 20 20 20 20 73 65 74 20 73 74 61 74 73 28 73 74      set stats(st
b480: 61 74 65 29 0a 20 20 20 20 20 20 20 20 7d 20 30  ate).        } 0
b490: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 0a  .      }.    }..
b4a0: 20 20 20 20 23 20 49 66 20 61 6e 20 49 4f 20 65      # If an IO e
b4b0: 72 72 6f 72 20 6f 63 63 75 72 72 65 64 2c 20 74  rror occurred, t
b4c0: 68 65 6e 20 74 68 65 20 63 68 65 63 6b 73 75 6d  hen the checksum
b4d0: 20 6f 66 20 74 68 65 20 64 61 74 61 62 61 73 65   of the database
b4e0: 20 73 68 6f 75 6c 64 0a 20 20 20 20 23 20 62 65   should.    # be
b4f0: 20 74 68 65 20 73 61 6d 65 20 61 73 20 62 65 66   the same as bef
b500: 6f 72 65 20 74 68 65 20 73 63 72 69 70 74 20 74  ore the script t
b510: 68 61 74 20 63 61 75 73 65 64 20 74 68 65 20 49  hat caused the I
b520: 4f 20 65 72 72 6f 72 20 77 61 73 20 72 75 6e 2e  O error was run.
b530: 0a 20 20 20 20 23 0a 20 20 20 20 69 66 20 7b 24  .    #.    if {$
b540: 3a 3a 67 6f 20 26 26 20 24 3a 3a 73 71 6c 69 74  ::go && $::sqlit
b550: 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72 64 68  e_io_error_hardh
b560: 69 74 20 26 26 20 24 3a 3a 69 6f 65 72 72 6f 70  it && $::ioerrop
b570: 74 73 28 2d 63 6b 73 75 6d 29 7d 20 7b 0a 20 20  ts(-cksum)} {.  
b580: 20 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73      do_test $tes
b590: 74 6e 61 6d 65 2e 24 6e 2e 36 20 7b 0a 20 20 20  tname.$n.6 {.   
b5a0: 20 20 20 20 20 63 61 74 63 68 20 7b 64 62 20 63       catch {db c
b5b0: 6c 6f 73 65 7d 0a 20 20 20 20 20 20 20 20 63 61  lose}.        ca
b5c0: 74 63 68 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a  tch {db2 close}.
b5d0: 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 44 42          set ::DB
b5e0: 20 5b 73 71 6c 69 74 65 33 20 64 62 20 74 65 73   [sqlite3 db tes
b5f0: 74 2e 64 62 3b 20 73 71 6c 69 74 65 33 5f 63 6f  t.db; sqlite3_co
b600: 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72  nnection_pointer
b610: 20 64 62 5d 0a 20 20 20 20 20 20 20 20 73 65 74   db].        set
b620: 20 6e 6f 77 63 6b 73 75 6d 20 5b 63 6b 73 75 6d   nowcksum [cksum
b630: 5d 0a 20 20 20 20 20 20 20 20 73 65 74 20 72 65  ].        set re
b640: 73 20 5b 65 78 70 72 20 7b 24 6e 6f 77 63 6b 73  s [expr {$nowcks
b650: 75 6d 3d 3d 24 3a 3a 63 68 65 63 6b 73 75 6d 20  um==$::checksum 
b660: 7c 7c 20 24 6e 6f 77 63 6b 73 75 6d 3d 3d 24 3a  || $nowcksum==$:
b670: 3a 67 6f 6f 64 63 6b 73 75 6d 7d 5d 0a 20 20 20  :goodcksum}].   
b680: 20 20 20 20 20 69 66 20 7b 24 72 65 73 3d 3d 30       if {$res==0
b690: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 70 75  } {.          pu
b6a0: 74 73 20 22 6e 6f 77 3d 24 6e 6f 77 63 6b 73 75  ts "now=$nowcksu
b6b0: 6d 22 0a 20 20 20 20 20 20 20 20 20 20 70 75 74  m".          put
b6c0: 73 20 22 74 68 65 3d 24 3a 3a 63 68 65 63 6b 73  s "the=$::checks
b6d0: 75 6d 22 0a 20 20 20 20 20 20 20 20 20 20 70 75  um".          pu
b6e0: 74 73 20 22 66 77 64 3d 24 3a 3a 67 6f 6f 64 63  ts "fwd=$::goodc
b6f0: 6b 73 75 6d 22 0a 20 20 20 20 20 20 20 20 7d 0a  ksum".        }.
b700: 20 20 20 20 20 20 20 20 73 65 74 20 72 65 73 0a          set res.
b710: 20 20 20 20 20 20 7d 20 31 0a 20 20 20 20 7d 0a        } 1.    }.
b720: 0a 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74  .    set ::sqlit
b730: 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72 64 68  e_io_error_hardh
b740: 69 74 20 30 0a 20 20 20 20 73 65 74 20 3a 3a 73  it 0.    set ::s
b750: 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70  qlite_io_error_p
b760: 65 6e 64 69 6e 67 20 30 0a 20 20 20 20 69 66 20  ending 0.    if 
b770: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
b780: 69 6f 65 72 72 6f 70 74 73 28 2d 63 6c 65 61 6e  ioerropts(-clean
b790: 75 70 29 5d 7d 20 7b 0a 20 20 20 20 20 20 63 61  up)]} {.      ca
b7a0: 74 63 68 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73  tch $::ioerropts
b7b0: 28 2d 63 6c 65 61 6e 75 70 29 0a 20 20 20 20 7d  (-cleanup).    }
b7c0: 0a 20 20 7d 0a 20 20 73 65 74 20 3a 3a 73 71 6c  .  }.  set ::sql
b7d0: 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e  ite_io_error_pen
b7e0: 64 69 6e 67 20 30 0a 20 20 73 65 74 20 3a 3a 73  ding 0.  set ::s
b7f0: 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70  qlite_io_error_p
b800: 65 72 73 69 73 74 20 30 0a 20 20 75 6e 73 65 74  ersist 0.  unset
b810: 20 3a 3a 69 6f 65 72 72 6f 70 74 73 0a 7d 0a 0a   ::ioerropts.}..
b820: 23 20 52 65 74 75 72 6e 20 61 20 63 68 65 63 6b  # Return a check
b830: 73 75 6d 20 62 61 73 65 64 20 6f 6e 20 74 68 65  sum based on the
b840: 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65   contents of the
b850: 20 6d 61 69 6e 20 64 61 74 61 62 61 73 65 20 61   main database a
b860: 73 73 6f 63 69 61 74 65 64 0a 23 20 77 69 74 68  ssociated.# with
b870: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 24 64 62 0a   connection $db.
b880: 23 0a 70 72 6f 63 20 63 6b 73 75 6d 20 7b 7b 64  #.proc cksum {{d
b890: 62 20 64 62 7d 7d 20 7b 0a 20 20 73 65 74 20 74  b db}} {.  set t
b8a0: 78 74 20 5b 24 64 62 20 65 76 61 6c 20 7b 0a 20  xt [$db eval {. 
b8b0: 20 20 20 20 20 53 45 4c 45 43 54 20 6e 61 6d 65       SELECT name
b8c0: 2c 20 74 79 70 65 2c 20 73 71 6c 20 46 52 4f 4d  , type, sql FROM
b8d0: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 6f   sqlite_master o
b8e0: 72 64 65 72 20 62 79 20 6e 61 6d 65 0a 20 20 7d  rder by name.  }
b8f0: 5d 5c 6e 0a 20 20 66 6f 72 65 61 63 68 20 74 62  ]\n.  foreach tb
b900: 6c 20 5b 24 64 62 20 65 76 61 6c 20 7b 0a 20 20  l [$db eval {.  
b910: 20 20 20 20 53 45 4c 45 43 54 20 6e 61 6d 65 20      SELECT name 
b920: 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74  FROM sqlite_mast
b930: 65 72 20 57 48 45 52 45 20 74 79 70 65 3d 27 74  er WHERE type='t
b940: 61 62 6c 65 27 20 6f 72 64 65 72 20 62 79 20 6e  able' order by n
b950: 61 6d 65 0a 20 20 7d 5d 20 7b 0a 20 20 20 20 61  ame.  }] {.    a
b960: 70 70 65 6e 64 20 74 78 74 20 5b 24 64 62 20 65  ppend txt [$db e
b970: 76 61 6c 20 22 53 45 4c 45 43 54 20 2a 20 46 52  val "SELECT * FR
b980: 4f 4d 20 24 74 62 6c 22 5d 5c 6e 0a 20 20 7d 0a  OM $tbl"]\n.  }.
b990: 20 20 66 6f 72 65 61 63 68 20 70 72 61 67 20 7b    foreach prag {
b9a0: 64 65 66 61 75 6c 74 5f 73 79 6e 63 68 72 6f 6e  default_synchron
b9b0: 6f 75 73 20 64 65 66 61 75 6c 74 5f 63 61 63 68  ous default_cach
b9c0: 65 5f 73 69 7a 65 7d 20 7b 0a 20 20 20 20 61 70  e_size} {.    ap
b9d0: 70 65 6e 64 20 74 78 74 20 24 70 72 61 67 2d 5b  pend txt $prag-[
b9e0: 24 64 62 20 65 76 61 6c 20 22 50 52 41 47 4d 41  $db eval "PRAGMA
b9f0: 20 24 70 72 61 67 22 5d 5c 6e 0a 20 20 7d 0a 20   $prag"]\n.  }. 
ba00: 20 73 65 74 20 63 6b 73 75 6d 20 5b 73 74 72 69   set cksum [stri
ba10: 6e 67 20 6c 65 6e 67 74 68 20 24 74 78 74 5d 2d  ng length $txt]-
ba20: 5b 6d 64 35 20 24 74 78 74 5d 0a 20 20 23 20 70  [md5 $txt].  # p
ba30: 75 74 73 20 24 63 6b 73 75 6d 2d 5b 66 69 6c 65  uts $cksum-[file
ba40: 20 73 69 7a 65 20 74 65 73 74 2e 64 62 5d 0a 20   size test.db]. 
ba50: 20 72 65 74 75 72 6e 20 24 63 6b 73 75 6d 0a 7d   return $cksum.}
ba60: 0a 0a 23 20 47 65 6e 65 72 61 74 65 20 61 20 63  ..# Generate a c
ba70: 68 65 63 6b 73 75 6d 20 62 61 73 65 64 20 6f 6e  hecksum based on
ba80: 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66   the contents of
ba90: 20 74 68 65 20 6d 61 69 6e 20 61 6e 64 20 74 65   the main and te
baa0: 6d 70 20 74 61 62 6c 65 73 0a 23 20 64 61 74 61  mp tables.# data
bab0: 62 61 73 65 20 24 64 62 2e 20 49 66 20 74 68 65  base $db. If the
bac0: 20 63 68 65 63 6b 73 75 6d 20 6f 66 20 74 77 6f   checksum of two
bad0: 20 64 61 74 61 62 61 73 65 73 20 69 73 20 74 68   databases is th
bae0: 65 20 73 61 6d 65 2c 20 61 6e 64 20 74 68 65 0a  e same, and the.
baf0: 23 20 69 6e 74 65 67 72 69 74 79 2d 63 68 65 63  # integrity-chec
bb00: 6b 20 70 61 73 73 65 73 20 66 6f 72 20 62 6f 74  k passes for bot
bb10: 68 2c 20 74 68 65 20 74 77 6f 20 64 61 74 61 62  h, the two datab
bb20: 61 73 65 73 20 61 72 65 20 69 64 65 6e 74 69 63  ases are identic
bb30: 61 6c 2e 0a 23 0a 70 72 6f 63 20 61 6c 6c 63 6b  al..#.proc allck
bb40: 73 75 6d 20 7b 7b 64 62 20 64 62 7d 7d 20 7b 0a  sum {{db db}} {.
bb50: 20 20 73 65 74 20 72 65 74 20 5b 6c 69 73 74 5d    set ret [list]
bb60: 0a 20 20 69 66 63 61 70 61 62 6c 65 20 74 65 6d  .  ifcapable tem
bb70: 70 64 62 20 7b 0a 20 20 20 20 73 65 74 20 73 71  pdb {.    set sq
bb80: 6c 20 7b 0a 20 20 20 20 20 20 53 45 4c 45 43 54  l {.      SELECT
bb90: 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74   name FROM sqlit
bba0: 65 5f 6d 61 73 74 65 72 20 57 48 45 52 45 20 74  e_master WHERE t
bbb0: 79 70 65 20 3d 20 27 74 61 62 6c 65 27 20 55 4e  ype = 'table' UN
bbc0: 49 4f 4e 0a 20 20 20 20 20 20 53 45 4c 45 43 54  ION.      SELECT
bbd0: 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74   name FROM sqlit
bbe0: 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 20 57 48  e_temp_master WH
bbf0: 45 52 45 20 74 79 70 65 20 3d 20 27 74 61 62 6c  ERE type = 'tabl
bc00: 65 27 20 55 4e 49 4f 4e 0a 20 20 20 20 20 20 53  e' UNION.      S
bc10: 45 4c 45 43 54 20 27 73 71 6c 69 74 65 5f 6d 61  ELECT 'sqlite_ma
bc20: 73 74 65 72 27 20 55 4e 49 4f 4e 0a 20 20 20 20  ster' UNION.    
bc30: 20 20 53 45 4c 45 43 54 20 27 73 71 6c 69 74 65    SELECT 'sqlite
bc40: 5f 74 65 6d 70 5f 6d 61 73 74 65 72 27 20 4f 52  _temp_master' OR
bc50: 44 45 52 20 42 59 20 31 0a 20 20 20 20 7d 0a 20  DER BY 1.    }. 
bc60: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65   } else {.    se
bc70: 74 20 73 71 6c 20 7b 0a 20 20 20 20 20 20 53 45  t sql {.      SE
bc80: 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73  LECT name FROM s
bc90: 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 57 48 45  qlite_master WHE
bca0: 52 45 20 74 79 70 65 20 3d 20 27 74 61 62 6c 65  RE type = 'table
bcb0: 27 20 55 4e 49 4f 4e 0a 20 20 20 20 20 20 53 45  ' UNION.      SE
bcc0: 4c 45 43 54 20 27 73 71 6c 69 74 65 5f 6d 61 73  LECT 'sqlite_mas
bcd0: 74 65 72 27 20 4f 52 44 45 52 20 42 59 20 31 0a  ter' ORDER BY 1.
bce0: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 65 74 20      }.  }.  set 
bcf0: 74 62 6c 6c 69 73 74 20 5b 24 64 62 20 65 76 61  tbllist [$db eva
bd00: 6c 20 24 73 71 6c 5d 0a 20 20 73 65 74 20 74 78  l $sql].  set tx
bd10: 74 20 7b 7d 0a 20 20 66 6f 72 65 61 63 68 20 74  t {}.  foreach t
bd20: 62 6c 20 24 74 62 6c 6c 69 73 74 20 7b 0a 20 20  bl $tbllist {.  
bd30: 20 20 61 70 70 65 6e 64 20 74 78 74 20 5b 24 64    append txt [$d
bd40: 62 20 65 76 61 6c 20 22 53 45 4c 45 43 54 20 2a  b eval "SELECT *
bd50: 20 46 52 4f 4d 20 24 74 62 6c 22 5d 0a 20 20 7d   FROM $tbl"].  }
bd60: 0a 20 20 66 6f 72 65 61 63 68 20 70 72 61 67 20  .  foreach prag 
bd70: 7b 64 65 66 61 75 6c 74 5f 63 61 63 68 65 5f 73  {default_cache_s
bd80: 69 7a 65 7d 20 7b 0a 20 20 20 20 61 70 70 65 6e  ize} {.    appen
bd90: 64 20 74 78 74 20 24 70 72 61 67 2d 5b 24 64 62  d txt $prag-[$db
bda0: 20 65 76 61 6c 20 22 50 52 41 47 4d 41 20 24 70   eval "PRAGMA $p
bdb0: 72 61 67 22 5d 5c 6e 0a 20 20 7d 0a 20 20 23 20  rag"]\n.  }.  # 
bdc0: 70 75 74 73 20 74 78 74 3d 24 74 78 74 0a 20 20  puts txt=$txt.  
bdd0: 72 65 74 75 72 6e 20 5b 6d 64 35 20 24 74 78 74  return [md5 $txt
bde0: 5d 0a 7d 0a 0a 23 20 47 65 6e 65 72 61 74 65 20  ].}..# Generate 
bdf0: 61 20 63 68 65 63 6b 73 75 6d 20 62 61 73 65 64  a checksum based
be00: 20 6f 6e 20 74 68 65 20 63 6f 6e 74 65 6e 74 73   on the contents
be10: 20 6f 66 20 61 20 73 69 6e 67 6c 65 20 64 61 74   of a single dat
be20: 61 62 61 73 65 20 77 69 74 68 0a 23 20 61 20 64  abase with.# a d
be30: 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69  atabase connecti
be40: 6f 6e 2e 20 20 54 68 65 20 6e 61 6d 65 20 6f 66  on.  The name of
be50: 20 74 68 65 20 64 61 74 61 62 61 73 65 20 69 73   the database is
be60: 20 24 64 62 6e 61 6d 65 2e 0a 23 20 45 78 61 6d   $dbname..# Exam
be70: 70 6c 65 73 20 6f 66 20 24 64 62 6e 61 6d 65 20  ples of $dbname 
be80: 61 72 65 20 22 74 65 6d 70 22 20 6f 72 20 22 6d  are "temp" or "m
be90: 61 69 6e 22 2e 0a 23 0a 70 72 6f 63 20 64 62 63  ain"..#.proc dbc
bea0: 6b 73 75 6d 20 7b 64 62 20 64 62 6e 61 6d 65 7d  ksum {db dbname}
beb0: 20 7b 0a 20 20 69 66 20 7b 24 64 62 6e 61 6d 65   {.  if {$dbname
bec0: 3d 3d 22 74 65 6d 70 22 7d 20 7b 0a 20 20 20 20  =="temp"} {.    
bed0: 73 65 74 20 6d 61 73 74 65 72 20 73 71 6c 69 74  set master sqlit
bee0: 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 0a 20 20  e_temp_master.  
bef0: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65 74  } else {.    set
bf00: 20 6d 61 73 74 65 72 20 24 64 62 6e 61 6d 65 2e   master $dbname.
bf10: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 0a 20 20  sqlite_master.  
bf20: 7d 0a 20 20 73 65 74 20 61 6c 6c 74 61 62 20 5b  }.  set alltab [
bf30: 24 64 62 20 65 76 61 6c 20 22 53 45 4c 45 43 54  $db eval "SELECT
bf40: 20 6e 61 6d 65 20 46 52 4f 4d 20 24 6d 61 73 74   name FROM $mast
bf50: 65 72 20 57 48 45 52 45 20 74 79 70 65 3d 27 74  er WHERE type='t
bf60: 61 62 6c 65 27 22 5d 0a 20 20 73 65 74 20 74 78  able'"].  set tx
bf70: 74 20 5b 24 64 62 20 65 76 61 6c 20 22 53 45 4c  t [$db eval "SEL
bf80: 45 43 54 20 2a 20 46 52 4f 4d 20 24 6d 61 73 74  ECT * FROM $mast
bf90: 65 72 22 5d 5c 6e 0a 20 20 66 6f 72 65 61 63 68  er"]\n.  foreach
bfa0: 20 74 61 62 20 24 61 6c 6c 74 61 62 20 7b 0a 20   tab $alltab {. 
bfb0: 20 20 20 61 70 70 65 6e 64 20 74 78 74 20 5b 24     append txt [$
bfc0: 64 62 20 65 76 61 6c 20 22 53 45 4c 45 43 54 20  db eval "SELECT 
bfd0: 2a 20 46 52 4f 4d 20 24 64 62 6e 61 6d 65 2e 24  * FROM $dbname.$
bfe0: 74 61 62 22 5d 5c 6e 0a 20 20 7d 0a 20 20 72 65  tab"]\n.  }.  re
bff0: 74 75 72 6e 20 5b 6d 64 35 20 24 74 78 74 5d 0a  turn [md5 $txt].
c000: 7d 0a 0a 70 72 6f 63 20 6d 65 6d 64 65 62 75 67  }..proc memdebug
c010: 5f 6c 6f 67 5f 73 71 6c 20 7b 7b 66 69 6c 65 6e  _log_sql {{filen
c020: 61 6d 65 20 6d 61 6c 6c 6f 63 73 2e 73 71 6c 7d  ame mallocs.sql}
c030: 7d 20 7b 0a 0a 20 20 73 65 74 20 64 61 74 61 20  } {..  set data 
c040: 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75  [sqlite3_memdebu
c050: 67 5f 6c 6f 67 20 64 75 6d 70 5d 0a 20 20 73 65  g_log dump].  se
c060: 74 20 6e 46 72 61 6d 65 20 5b 65 78 70 72 20 5b  t nFrame [expr [
c070: 6c 6c 65 6e 67 74 68 20 5b 6c 69 6e 64 65 78 20  llength [lindex 
c080: 24 64 61 74 61 20 30 5d 5d 2d 32 5d 0a 20 20 69  $data 0]]-2].  i
c090: 66 20 7b 24 6e 46 72 61 6d 65 20 3c 20 30 7d 20  f {$nFrame < 0} 
c0a0: 7b 20 72 65 74 75 72 6e 20 22 22 20 7d 0a 0a 20  { return "" }.. 
c0b0: 20 73 65 74 20 64 61 74 61 62 61 73 65 20 74 65   set database te
c0c0: 6d 70 0a 0a 20 20 73 65 74 20 74 62 6c 20 22 43  mp..  set tbl "C
c0d0: 52 45 41 54 45 20 54 41 42 4c 45 20 24 7b 64 61  REATE TABLE ${da
c0e0: 74 61 62 61 73 65 7d 2e 6d 61 6c 6c 6f 63 28 7a  tabase}.malloc(z
c0f0: 54 65 73 74 2c 20 6e 43 61 6c 6c 2c 20 6e 42 79  Test, nCall, nBy
c100: 74 65 2c 20 6c 53 74 61 63 6b 29 3b 22 0a 0a 20  te, lStack);".. 
c110: 20 73 65 74 20 73 71 6c 20 22 22 0a 20 20 66 6f   set sql "".  fo
c120: 72 65 61 63 68 20 65 20 24 64 61 74 61 20 7b 0a  reach e $data {.
c130: 20 20 20 20 73 65 74 20 6e 43 61 6c 6c 20 5b 6c      set nCall [l
c140: 69 6e 64 65 78 20 24 65 20 30 5d 0a 20 20 20 20  index $e 0].    
c150: 73 65 74 20 6e 42 79 74 65 20 5b 6c 69 6e 64 65  set nByte [linde
c160: 78 20 24 65 20 31 5d 0a 20 20 20 20 73 65 74 20  x $e 1].    set 
c170: 6c 53 74 61 63 6b 20 5b 6c 72 61 6e 67 65 20 24  lStack [lrange $
c180: 65 20 32 20 65 6e 64 5d 0a 20 20 20 20 61 70 70  e 2 end].    app
c190: 65 6e 64 20 73 71 6c 20 22 49 4e 53 45 52 54 20  end sql "INSERT 
c1a0: 49 4e 54 4f 20 24 7b 64 61 74 61 62 61 73 65 7d  INTO ${database}
c1b0: 2e 6d 61 6c 6c 6f 63 20 56 41 4c 55 45 53 22 0a  .malloc VALUES".
c1c0: 20 20 20 20 61 70 70 65 6e 64 20 73 71 6c 20 22      append sql "
c1d0: 28 27 74 65 73 74 27 2c 20 24 6e 43 61 6c 6c 2c  ('test', $nCall,
c1e0: 20 24 6e 42 79 74 65 2c 20 27 24 6c 53 74 61 63   $nByte, '$lStac
c1f0: 6b 27 29 3b 5c 6e 22 0a 20 20 20 20 66 6f 72 65  k');\n".    fore
c200: 61 63 68 20 66 20 24 6c 53 74 61 63 6b 20 7b 0a  ach f $lStack {.
c210: 20 20 20 20 20 20 73 65 74 20 66 72 61 6d 65 73        set frames
c220: 28 24 66 29 20 31 0a 20 20 20 20 7d 0a 20 20 7d  ($f) 1.    }.  }
c230: 0a 0a 20 20 73 65 74 20 74 62 6c 32 20 22 43 52  ..  set tbl2 "CR
c240: 45 41 54 45 20 54 41 42 4c 45 20 24 7b 64 61 74  EATE TABLE ${dat
c250: 61 62 61 73 65 7d 2e 66 72 61 6d 65 28 66 72 61  abase}.frame(fra
c260: 6d 65 20 49 4e 54 45 47 45 52 20 50 52 49 4d 41  me INTEGER PRIMA
c270: 52 59 20 4b 45 59 2c 20 6c 69 6e 65 29 3b 5c 6e  RY KEY, line);\n
c280: 22 0a 20 20 73 65 74 20 74 62 6c 33 20 22 43 52  ".  set tbl3 "CR
c290: 45 41 54 45 20 54 41 42 4c 45 20 24 7b 64 61 74  EATE TABLE ${dat
c2a0: 61 62 61 73 65 7d 2e 66 69 6c 65 28 6e 61 6d 65  abase}.file(name
c2b0: 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 63 6f   PRIMARY KEY, co
c2c0: 6e 74 65 6e 74 29 3b 5c 6e 22 0a 0a 20 20 66 6f  ntent);\n"..  fo
c2d0: 72 65 61 63 68 20 66 20 5b 61 72 72 61 79 20 6e  reach f [array n
c2e0: 61 6d 65 73 20 66 72 61 6d 65 73 5d 20 7b 0a 20  ames frames] {. 
c2f0: 20 20 20 73 65 74 20 61 64 64 72 20 5b 66 6f 72     set addr [for
c300: 6d 61 74 20 25 78 20 24 66 5d 0a 20 20 20 20 73  mat %x $f].    s
c310: 65 74 20 63 6d 64 20 22 61 64 64 72 32 6c 69 6e  et cmd "addr2lin
c320: 65 20 2d 65 20 5b 69 6e 66 6f 20 6e 61 6d 65 6f  e -e [info nameo
c330: 66 65 78 65 63 5d 20 24 61 64 64 72 22 0a 20 20  fexec] $addr".  
c340: 20 20 73 65 74 20 6c 69 6e 65 20 5b 65 76 61 6c    set line [eval
c350: 20 65 78 65 63 20 24 63 6d 64 5d 0a 20 20 20 20   exec $cmd].    
c360: 61 70 70 65 6e 64 20 73 71 6c 20 22 49 4e 53 45  append sql "INSE
c370: 52 54 20 49 4e 54 4f 20 24 7b 64 61 74 61 62 61  RT INTO ${databa
c380: 73 65 7d 2e 66 72 61 6d 65 20 56 41 4c 55 45 53  se}.frame VALUES
c390: 28 24 66 2c 20 27 24 6c 69 6e 65 27 29 3b 5c 6e  ($f, '$line');\n
c3a0: 22 0a 0a 20 20 20 20 73 65 74 20 66 69 6c 65 20  "..    set file 
c3b0: 5b 6c 69 6e 64 65 78 20 5b 73 70 6c 69 74 20 24  [lindex [split $
c3c0: 6c 69 6e 65 20 3a 5d 20 30 5d 0a 20 20 20 20 73  line :] 0].    s
c3d0: 65 74 20 66 69 6c 65 73 28 24 66 69 6c 65 29 20  et files($file) 
c3e0: 31 0a 20 20 7d 0a 0a 20 20 66 6f 72 65 61 63 68  1.  }..  foreach
c3f0: 20 66 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20   f [array names 
c400: 66 69 6c 65 73 5d 20 7b 0a 20 20 20 20 73 65 74  files] {.    set
c410: 20 63 6f 6e 74 65 6e 74 73 20 22 22 0a 20 20 20   contents "".   
c420: 20 63 61 74 63 68 20 7b 0a 20 20 20 20 20 20 73   catch {.      s
c430: 65 74 20 66 64 20 5b 6f 70 65 6e 20 24 66 5d 0a  et fd [open $f].
c440: 20 20 20 20 20 20 73 65 74 20 63 6f 6e 74 65 6e        set conten
c450: 74 73 20 5b 72 65 61 64 20 24 66 64 5d 0a 20 20  ts [read $fd].  
c460: 20 20 20 20 63 6c 6f 73 65 20 24 66 64 0a 20 20      close $fd.  
c470: 20 20 7d 0a 20 20 20 20 73 65 74 20 63 6f 6e 74    }.    set cont
c480: 65 6e 74 73 20 5b 73 74 72 69 6e 67 20 6d 61 70  ents [string map
c490: 20 7b 27 20 27 27 7d 20 24 63 6f 6e 74 65 6e 74   {' ''} $content
c4a0: 73 5d 0a 20 20 20 20 61 70 70 65 6e 64 20 73 71  s].    append sq
c4b0: 6c 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 24  l "INSERT INTO $
c4c0: 7b 64 61 74 61 62 61 73 65 7d 2e 66 69 6c 65 20  {database}.file 
c4d0: 56 41 4c 55 45 53 28 27 24 66 27 2c 20 27 24 63  VALUES('$f', '$c
c4e0: 6f 6e 74 65 6e 74 73 27 29 3b 5c 6e 22 0a 20 20  ontents');\n".  
c4f0: 7d 0a 0a 20 20 73 65 74 20 66 64 20 5b 6f 70 65  }..  set fd [ope
c500: 6e 20 24 66 69 6c 65 6e 61 6d 65 20 77 5d 0a 20  n $filename w]. 
c510: 20 70 75 74 73 20 24 66 64 20 22 42 45 47 49 4e   puts $fd "BEGIN
c520: 3b 20 24 7b 74 62 6c 7d 24 7b 74 62 6c 32 7d 24  ; ${tbl}${tbl2}$
c530: 7b 74 62 6c 33 7d 24 7b 73 71 6c 7d 20 3b 20 43  {tbl3}${sql} ; C
c540: 4f 4d 4d 49 54 3b 22 0a 20 20 63 6c 6f 73 65 20  OMMIT;".  close 
c550: 24 66 64 0a 7d 0a 0a 23 20 44 72 6f 70 20 61 6c  $fd.}..# Drop al
c560: 6c 20 74 61 62 6c 65 73 20 69 6e 20 64 61 74 61  l tables in data
c570: 62 61 73 65 20 5b 64 62 5d 0a 70 72 6f 63 20 64  base [db].proc d
c580: 72 6f 70 5f 61 6c 6c 5f 74 61 62 6c 65 73 20 7b  rop_all_tables {
c590: 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 69 66 63  {db db}} {.  ifc
c5a0: 61 70 61 62 6c 65 20 74 72 69 67 67 65 72 26 26  apable trigger&&
c5b0: 66 6f 72 65 69 67 6e 6b 65 79 20 7b 0a 20 20 20  foreignkey {.   
c5c0: 20 73 65 74 20 70 6b 20 5b 24 64 62 20 6f 6e 65   set pk [$db one
c5d0: 20 22 50 52 41 47 4d 41 20 66 6f 72 65 69 67 6e   "PRAGMA foreign
c5e0: 5f 6b 65 79 73 22 5d 0a 20 20 20 20 24 64 62 20  _keys"].    $db 
c5f0: 65 76 61 6c 20 22 50 52 41 47 4d 41 20 66 6f 72  eval "PRAGMA for
c600: 65 69 67 6e 5f 6b 65 79 73 20 3d 20 4f 46 46 22  eign_keys = OFF"
c610: 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 7b  .  }.  foreach {
c620: 69 64 78 20 6e 61 6d 65 20 66 69 6c 65 7d 20 5b  idx name file} [
c630: 64 62 20 65 76 61 6c 20 7b 50 52 41 47 4d 41 20  db eval {PRAGMA 
c640: 64 61 74 61 62 61 73 65 5f 6c 69 73 74 7d 5d 20  database_list}] 
c650: 7b 0a 20 20 20 20 69 66 20 7b 24 69 64 78 3d 3d  {.    if {$idx==
c660: 31 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 6d  1} {.      set m
c670: 61 73 74 65 72 20 73 71 6c 69 74 65 5f 74 65 6d  aster sqlite_tem
c680: 70 5f 6d 61 73 74 65 72 0a 20 20 20 20 7d 20 65  p_master.    } e
c690: 6c 73 65 20 7b 0a 20 20 20 20 20 20 73 65 74 20  lse {.      set 
c6a0: 6d 61 73 74 65 72 20 24 6e 61 6d 65 2e 73 71 6c  master $name.sql
c6b0: 69 74 65 5f 6d 61 73 74 65 72 0a 20 20 20 20 7d  ite_master.    }
c6c0: 0a 20 20 20 20 66 6f 72 65 61 63 68 20 7b 74 20  .    foreach {t 
c6d0: 74 79 70 65 7d 20 5b 24 64 62 20 65 76 61 6c 20  type} [$db eval 
c6e0: 22 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 6e  ".      SELECT n
c6f0: 61 6d 65 2c 20 74 79 70 65 20 46 52 4f 4d 20 24  ame, type FROM $
c700: 6d 61 73 74 65 72 0a 20 20 20 20 20 20 57 48 45  master.      WHE
c710: 52 45 20 74 79 70 65 20 49 4e 28 27 74 61 62 6c  RE type IN('tabl
c720: 65 27 2c 20 27 76 69 65 77 27 29 20 41 4e 44 20  e', 'view') AND 
c730: 6e 61 6d 65 20 4e 4f 54 20 4c 49 4b 45 20 27 73  name NOT LIKE 's
c740: 71 6c 69 74 65 58 5f 25 27 20 45 53 43 41 50 45  qliteX_%' ESCAPE
c750: 20 27 58 27 0a 20 20 20 20 22 5d 20 7b 0a 20 20   'X'.    "] {.  
c760: 20 20 20 20 24 64 62 20 65 76 61 6c 20 22 44 52      $db eval "DR
c770: 4f 50 20 24 74 79 70 65 20 5c 22 24 74 5c 22 22  OP $type \"$t\""
c780: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 63  .    }.  }.  ifc
c790: 61 70 61 62 6c 65 20 74 72 69 67 67 65 72 26 26  apable trigger&&
c7a0: 66 6f 72 65 69 67 6e 6b 65 79 20 7b 0a 20 20 20  foreignkey {.   
c7b0: 20 24 64 62 20 65 76 61 6c 20 22 50 52 41 47 4d   $db eval "PRAGM
c7c0: 41 20 66 6f 72 65 69 67 6e 5f 6b 65 79 73 20 3d  A foreign_keys =
c7d0: 20 24 70 6b 22 0a 20 20 7d 0a 7d 0a 0a 23 2d 2d   $pk".  }.}..#--
c7e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c7f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c820: 2d 2d 2d 2d 2d 2d 2d 0a 23 20 49 66 20 61 20 74  -------.# If a t
c830: 65 73 74 20 73 63 72 69 70 74 20 69 73 20 65 78  est script is ex
c840: 65 63 75 74 65 64 20 77 69 74 68 20 67 6c 6f 62  ecuted with glob
c850: 61 6c 20 76 61 72 69 61 62 6c 65 20 24 3a 3a 47  al variable $::G
c860: 28 70 65 72 6d 3a 6e 61 6d 65 29 20 73 65 74 20  (perm:name) set 
c870: 74 6f 0a 23 20 22 77 61 6c 22 2c 20 74 68 65 6e  to.# "wal", then
c880: 20 74 68 65 20 74 65 73 74 73 20 61 72 65 20 72   the tests are r
c890: 75 6e 20 69 6e 20 57 41 4c 20 6d 6f 64 65 2e 20  un in WAL mode. 
c8a0: 4f 74 68 65 72 77 69 73 65 2c 20 74 68 65 79 20  Otherwise, they 
c8b0: 73 68 6f 75 6c 64 20 62 65 20 72 75 6e 0a 23 20  should be run.# 
c8c0: 69 6e 20 72 6f 6c 6c 62 61 63 6b 20 6d 6f 64 65  in rollback mode
c8d0: 2e 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20  . The following 
c8e0: 54 63 6c 20 70 72 6f 63 73 20 61 72 65 20 75 73  Tcl procs are us
c8f0: 65 64 20 74 6f 20 6d 61 6b 65 20 74 68 69 73 20  ed to make this 
c900: 6c 65 73 73 0a 23 20 69 6e 74 72 75 73 69 76 65  less.# intrusive
c910: 3a 0a 23 0a 23 20 20 20 77 61 6c 5f 73 65 74 5f  :.#.#   wal_set_
c920: 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3f 44 42  journal_mode ?DB
c930: 3f 0a 23 0a 23 20 20 20 20 20 49 66 20 72 75 6e  ?.#.#     If run
c940: 6e 69 6e 67 20 61 20 57 41 4c 20 74 65 73 74 2c  ning a WAL test,
c950: 20 65 78 65 63 75 74 65 20 22 50 52 41 47 4d 41   execute "PRAGMA
c960: 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20   journal_mode = 
c970: 77 61 6c 22 20 75 73 69 6e 67 0a 23 20 20 20 20  wal" using.#    
c980: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 6e 64   connection hand
c990: 6c 65 20 44 42 2e 20 4f 74 68 65 72 77 69 73 65  le DB. Otherwise
c9a0: 2c 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69  , this command i
c9b0: 73 20 61 20 6e 6f 2d 6f 70 2e 0a 23 0a 23 20 20  s a no-op..#.#  
c9c0: 20 77 61 6c 5f 63 68 65 63 6b 5f 6a 6f 75 72 6e   wal_check_journ
c9d0: 61 6c 5f 6d 6f 64 65 20 54 45 53 54 4e 41 4d 45  al_mode TESTNAME
c9e0: 20 3f 44 42 3f 0a 23 0a 23 20 20 20 20 20 49 66   ?DB?.#.#     If
c9f0: 20 72 75 6e 6e 69 6e 67 20 61 20 57 41 4c 20 74   running a WAL t
ca00: 65 73 74 2c 20 65 78 65 63 75 74 65 20 61 20 74  est, execute a t
ca10: 65 73 74 73 20 63 61 73 65 20 74 68 61 74 20 66  ests case that f
ca20: 61 69 6c 73 20 69 66 20 74 68 65 20 6d 61 69 6e  ails if the main
ca30: 0a 23 20 20 20 20 20 64 61 74 61 62 61 73 65 20  .#     database 
ca40: 66 6f 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68  for connection h
ca50: 61 6e 64 6c 65 20 44 42 20 69 73 20 6e 6f 74 20  andle DB is not 
ca60: 63 75 72 72 65 6e 74 6c 79 20 61 20 57 41 4c 20  currently a WAL 
ca70: 64 61 74 61 62 61 73 65 2e 0a 23 20 20 20 20 20  database..#     
ca80: 4f 74 68 65 72 77 69 73 65 20 28 69 66 20 6e 6f  Otherwise (if no
ca90: 74 20 72 75 6e 6e 69 6e 67 20 61 20 57 41 4c 20  t running a WAL 
caa0: 70 65 72 6d 75 74 61 74 69 6f 6e 29 20 74 68 69  permutation) thi
cab0: 73 20 69 73 20 61 20 6e 6f 2d 6f 70 2e 0a 23 0a  s is a no-op..#.
cac0: 23 20 20 20 77 61 6c 5f 69 73 5f 77 61 6c 5f 6d  #   wal_is_wal_m
cad0: 6f 64 65 0a 23 0a 23 20 20 20 20 20 52 65 74 75  ode.#.#     Retu
cae0: 72 6e 73 20 74 72 75 65 20 69 66 20 74 68 69 73  rns true if this
caf0: 20 74 65 73 74 20 73 68 6f 75 6c 64 20 62 65 20   test should be 
cb00: 72 75 6e 20 69 6e 20 57 41 4c 20 6d 6f 64 65 2e  run in WAL mode.
cb10: 20 46 61 6c 73 65 20 6f 74 68 65 72 77 69 73 65   False otherwise
cb20: 2e 0a 23 0a 70 72 6f 63 20 77 61 6c 5f 69 73 5f  ..#.proc wal_is_
cb30: 77 61 6c 5f 6d 6f 64 65 20 7b 7d 20 7b 0a 20 20  wal_mode {} {.  
cb40: 65 78 70 72 20 7b 5b 70 65 72 6d 75 74 61 74 69  expr {[permutati
cb50: 6f 6e 5d 20 65 71 20 22 77 61 6c 22 7d 0a 7d 0a  on] eq "wal"}.}.
cb60: 70 72 6f 63 20 77 61 6c 5f 73 65 74 5f 6a 6f 75  proc wal_set_jou
cb70: 72 6e 61 6c 5f 6d 6f 64 65 20 7b 7b 64 62 20 64  rnal_mode {{db d
cb80: 62 7d 7d 20 7b 0a 20 20 69 66 20 7b 20 5b 77 61  b}} {.  if { [wa
cb90: 6c 5f 69 73 5f 77 61 6c 5f 6d 6f 64 65 5d 20 7d  l_is_wal_mode] }
cba0: 20 7b 0a 20 20 20 20 24 64 62 20 65 76 61 6c 20   {.    $db eval 
cbb0: 22 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f  "PRAGMA journal_
cbc0: 6d 6f 64 65 20 3d 20 57 41 4c 22 0a 20 20 7d 0a  mode = WAL".  }.
cbd0: 7d 0a 70 72 6f 63 20 77 61 6c 5f 63 68 65 63 6b  }.proc wal_check
cbe0: 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 7b 74  _journal_mode {t
cbf0: 65 73 74 6e 61 6d 65 20 7b 64 62 20 64 62 7d 7d  estname {db db}}
cc00: 20 7b 0a 20 20 69 66 20 7b 20 5b 77 61 6c 5f 69   {.  if { [wal_i
cc10: 73 5f 77 61 6c 5f 6d 6f 64 65 5d 20 7d 20 7b 0a  s_wal_mode] } {.
cc20: 20 20 20 20 24 64 62 20 65 76 61 6c 20 7b 20 53      $db eval { S
cc30: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73 71 6c  ELECT * FROM sql
cc40: 69 74 65 5f 6d 61 73 74 65 72 20 7d 0a 20 20 20  ite_master }.   
cc50: 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74 6e 61   do_test $testna
cc60: 6d 65 20 5b 6c 69 73 74 20 24 64 62 20 65 76 61  me [list $db eva
cc70: 6c 20 22 50 52 41 47 4d 41 20 6d 61 69 6e 2e 6a  l "PRAGMA main.j
cc80: 6f 75 72 6e 61 6c 5f 6d 6f 64 65 22 5d 20 7b 77  ournal_mode"] {w
cc90: 61 6c 7d 0a 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20  al}.  }.}..proc 
cca0: 70 65 72 6d 75 74 61 74 69 6f 6e 20 7b 7d 20 7b  permutation {} {
ccb0: 0a 20 20 73 65 74 20 70 65 72 6d 20 22 22 0a 20  .  set perm "". 
ccc0: 20 63 61 74 63 68 20 7b 73 65 74 20 70 65 72 6d   catch {set perm
ccd0: 20 24 3a 3a 47 28 70 65 72 6d 3a 6e 61 6d 65 29   $::G(perm:name)
cce0: 7d 0a 20 20 73 65 74 20 70 65 72 6d 0a 7d 0a 70  }.  set perm.}.p
ccf0: 72 6f 63 20 70 72 65 73 71 6c 20 7b 7d 20 7b 0a  roc presql {} {.
cd00: 20 20 73 65 74 20 70 72 65 73 71 6c 20 22 22 0a    set presql "".
cd10: 20 20 63 61 74 63 68 20 7b 73 65 74 20 70 72 65    catch {set pre
cd20: 73 71 6c 20 24 3a 3a 47 28 70 65 72 6d 3a 70 72  sql $::G(perm:pr
cd30: 65 73 71 6c 29 7d 0a 20 20 73 65 74 20 70 72 65  esql)}.  set pre
cd40: 73 71 6c 0a 7d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d  sql.}..#--------
cd50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cd60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cd70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cd80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cd90: 2d 0a 23 0a 70 72 6f 63 20 73 6c 61 76 65 5f 74  -.#.proc slave_t
cda0: 65 73 74 5f 73 63 72 69 70 74 20 7b 73 63 72 69  est_script {scri
cdb0: 70 74 7d 20 7b 0a 0a 20 20 23 20 43 72 65 61 74  pt} {..  # Creat
cdc0: 65 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65  e the interprete
cdd0: 72 20 75 73 65 64 20 74 6f 20 72 75 6e 20 74 68  r used to run th
cde0: 65 20 74 65 73 74 20 73 63 72 69 70 74 2e 0a 20  e test script.. 
cdf0: 20 69 6e 74 65 72 70 20 63 72 65 61 74 65 20 74   interp create t
ce00: 69 6e 74 65 72 70 0a 0a 20 20 23 20 50 6f 70 75  interp..  # Popu
ce10: 6c 61 74 65 20 73 6f 6d 65 20 67 6c 6f 62 61 6c  late some global
ce20: 20 76 61 72 69 61 62 6c 65 73 20 74 68 61 74 20   variables that 
ce30: 74 65 73 74 65 72 2e 74 63 6c 20 65 78 70 65 63  tester.tcl expec
ce40: 74 73 20 74 6f 20 73 65 65 2e 0a 20 20 66 6f 72  ts to see..  for
ce50: 65 61 63 68 20 7b 76 61 72 20 76 61 6c 75 65 7d  each {var value}
ce60: 20 5b 6c 69 73 74 20 20 20 20 20 20 20 20 20 20   [list          
ce70: 20 20 20 20 5c 0a 20 20 20 20 3a 3a 61 72 67 76      \.    ::argv
ce80: 30 20 24 3a 3a 61 72 67 76 30 20 20 20 20 20 20  0 $::argv0      
ce90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c                 \
cea0: 0a 20 20 20 20 3a 3a 61 72 67 76 20 20 7b 7d 20  .    ::argv  {} 
ceb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
cec0: 20 20 20 20 20 20 20 20 20 20 5c 0a 20 20 20 20            \.    
ced0: 3a 3a 53 4c 41 56 45 20 31 20 20 20 20 20 20 20  ::SLAVE 1       
cee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
cef0: 20 20 20 20 20 5c 0a 20 20 5d 20 7b 0a 20 20 20       \.  ] {.   
cf00: 20 69 6e 74 65 72 70 20 65 76 61 6c 20 74 69 6e   interp eval tin
cf10: 74 65 72 70 20 5b 6c 69 73 74 20 73 65 74 20 24  terp [list set $
cf20: 76 61 72 20 24 76 61 6c 75 65 5d 0a 20 20 7d 0a  var $value].  }.
cf30: 0a 20 20 23 20 54 68 65 20 61 6c 69 61 73 20 75  .  # The alias u
cf40: 73 65 64 20 74 6f 20 61 63 63 65 73 73 20 74 68  sed to access th
cf50: 65 20 67 6c 6f 62 61 6c 20 74 65 73 74 20 63 6f  e global test co
cf60: 75 6e 74 65 72 73 2e 0a 20 20 74 69 6e 74 65 72  unters..  tinter
cf70: 70 20 61 6c 69 61 73 20 73 65 74 5f 74 65 73 74  p alias set_test
cf80: 5f 63 6f 75 6e 74 65 72 20 73 65 74 5f 74 65 73  _counter set_tes
cf90: 74 5f 63 6f 75 6e 74 65 72 0a 0a 20 20 23 20 53  t_counter..  # S
cfa0: 65 74 20 75 70 20 74 68 65 20 3a 3a 63 6d 64 6c  et up the ::cmdl
cfb0: 69 6e 65 61 72 67 20 61 72 72 61 79 20 69 6e 20  inearg array in 
cfc0: 74 68 65 20 73 6c 61 76 65 2e 0a 20 20 69 6e 74  the slave..  int
cfd0: 65 72 70 20 65 76 61 6c 20 74 69 6e 74 65 72 70  erp eval tinterp
cfe0: 20 5b 6c 69 73 74 20 61 72 72 61 79 20 73 65 74   [list array set
cff0: 20 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 20 5b 61   ::cmdlinearg [a
d000: 72 72 61 79 20 67 65 74 20 3a 3a 63 6d 64 6c 69  rray get ::cmdli
d010: 6e 65 61 72 67 5d 5d 0a 0a 20 20 23 20 53 65 74  nearg]]..  # Set
d020: 20 75 70 20 74 68 65 20 3a 3a 47 20 61 72 72 61   up the ::G arra
d030: 79 20 69 6e 20 74 68 65 20 73 6c 61 76 65 2e 0a  y in the slave..
d040: 20 20 69 6e 74 65 72 70 20 65 76 61 6c 20 74 69    interp eval ti
d050: 6e 74 65 72 70 20 5b 6c 69 73 74 20 61 72 72 61  nterp [list arra
d060: 79 20 73 65 74 20 3a 3a 47 20 5b 61 72 72 61 79  y set ::G [array
d070: 20 67 65 74 20 3a 3a 47 5d 5d 0a 0a 20 20 23 20   get ::G]]..  # 
d080: 4c 6f 61 64 20 74 68 65 20 76 61 72 69 6f 75 73  Load the various
d090: 20 74 65 73 74 20 69 6e 74 65 72 66 61 63 65 73   test interfaces
d0a0: 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 69 6e 20   implemented in 
d0b0: 43 2e 0a 20 20 6c 6f 61 64 5f 74 65 73 74 66 69  C..  load_testfi
d0c0: 78 74 75 72 65 5f 65 78 74 65 6e 73 69 6f 6e 73  xture_extensions
d0d0: 20 74 69 6e 74 65 72 70 0a 0a 20 20 23 20 52 75   tinterp..  # Ru
d0e0: 6e 20 74 68 65 20 74 65 73 74 20 73 63 72 69 70  n the test scrip
d0f0: 74 2e 0a 20 20 69 6e 74 65 72 70 20 65 76 61 6c  t..  interp eval
d100: 20 74 69 6e 74 65 72 70 20 24 73 63 72 69 70 74   tinterp $script
d110: 0a 0a 20 20 23 20 43 68 65 63 6b 20 69 66 20 74  ..  # Check if t
d120: 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 20 63  he interpreter c
d130: 61 6c 6c 20 5b 72 75 6e 5f 74 68 72 65 61 64 5f  all [run_thread_
d140: 74 65 73 74 73 5d 0a 20 20 69 66 20 7b 20 5b 69  tests].  if { [i
d150: 6e 74 65 72 70 20 65 76 61 6c 20 74 69 6e 74 65  nterp eval tinte
d160: 72 70 20 7b 69 6e 66 6f 20 65 78 69 73 74 73 20  rp {info exists 
d170: 3a 3a 72 75 6e 5f 74 68 72 65 61 64 5f 74 65 73  ::run_thread_tes
d180: 74 73 5f 63 61 6c 6c 65 64 7d 5d 20 7d 20 7b 0a  ts_called}] } {.
d190: 20 20 20 20 73 65 74 20 3a 3a 72 75 6e 5f 74 68      set ::run_th
d1a0: 72 65 61 64 5f 74 65 73 74 73 5f 63 61 6c 6c 65  read_tests_calle
d1b0: 64 20 31 0a 20 20 7d 0a 0a 20 20 23 20 44 65 6c  d 1.  }..  # Del
d1c0: 65 74 65 20 74 68 65 20 69 6e 74 65 72 70 72 65  ete the interpre
d1d0: 74 65 72 20 75 73 65 64 20 74 6f 20 72 75 6e 20  ter used to run 
d1e0: 74 68 65 20 74 65 73 74 20 73 63 72 69 70 74 2e  the test script.
d1f0: 0a 20 20 69 6e 74 65 72 70 20 64 65 6c 65 74 65  .  interp delete
d200: 20 74 69 6e 74 65 72 70 0a 7d 0a 0a 70 72 6f 63   tinterp.}..proc
d210: 20 73 6c 61 76 65 5f 74 65 73 74 5f 66 69 6c 65   slave_test_file
d220: 20 7b 7a 46 69 6c 65 7d 20 7b 0a 20 20 73 65 74   {zFile} {.  set
d230: 20 74 61 69 6c 20 5b 66 69 6c 65 20 74 61 69 6c   tail [file tail
d240: 20 24 7a 46 69 6c 65 5d 0a 0a 20 20 69 66 20 7b   $zFile]..  if {
d250: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 47  [info exists ::G
d260: 28 73 74 61 72 74 3a 70 65 72 6d 75 74 61 74 69  (start:permutati
d270: 6f 6e 29 5d 7d 20 7b 0a 20 20 20 20 69 66 20 7b  on)]} {.    if {
d280: 5b 70 65 72 6d 75 74 61 74 69 6f 6e 5d 20 21 3d  [permutation] !=
d290: 20 24 3a 3a 47 28 73 74 61 72 74 3a 70 65 72 6d   $::G(start:perm
d2a0: 75 74 61 74 69 6f 6e 29 7d 20 72 65 74 75 72 6e  utation)} return
d2b0: 0a 20 20 20 20 75 6e 73 65 74 20 3a 3a 47 28 73  .    unset ::G(s
d2c0: 74 61 72 74 3a 70 65 72 6d 75 74 61 74 69 6f 6e  tart:permutation
d2d0: 29 0a 20 20 7d 0a 20 20 69 66 20 7b 5b 69 6e 66  ).  }.  if {[inf
d2e0: 6f 20 65 78 69 73 74 73 20 3a 3a 47 28 73 74 61  o exists ::G(sta
d2f0: 72 74 3a 66 69 6c 65 29 5d 7d 20 7b 0a 20 20 20  rt:file)]} {.   
d300: 20 69 66 20 7b 24 74 61 69 6c 20 21 3d 20 24 3a   if {$tail != $:
d310: 3a 47 28 73 74 61 72 74 3a 66 69 6c 65 29 20 26  :G(start:file) &
d320: 26 20 24 74 61 69 6c 21 3d 22 24 3a 3a 47 28 73  & $tail!="$::G(s
d330: 74 61 72 74 3a 66 69 6c 65 29 2e 74 65 73 74 22  tart:file).test"
d340: 7d 20 72 65 74 75 72 6e 0a 20 20 20 20 75 6e 73  } return.    uns
d350: 65 74 20 3a 3a 47 28 73 74 61 72 74 3a 66 69 6c  et ::G(start:fil
d360: 65 29 0a 20 20 7d 0a 0a 20 20 23 20 52 65 6d 65  e).  }..  # Reme
d370: 6d 62 65 72 20 74 68 65 20 76 61 6c 75 65 20 6f  mber the value o
d380: 66 20 74 68 65 20 73 68 61 72 65 64 2d 63 61 63  f the shared-cac
d390: 68 65 20 73 65 74 74 69 6e 67 2e 20 53 6f 20 74  he setting. So t
d3a0: 68 61 74 20 69 74 20 69 73 20 70 6f 73 73 69 62  hat it is possib
d3b0: 6c 65 0a 20 20 23 20 74 6f 20 63 68 65 63 6b 20  le.  # to check 
d3c0: 61 66 74 65 72 77 61 72 64 73 20 74 68 61 74 20  afterwards that 
d3d0: 69 74 20 77 61 73 20 6e 6f 74 20 6d 6f 64 69 66  it was not modif
d3e0: 69 65 64 20 62 79 20 74 68 65 20 74 65 73 74 20  ied by the test 
d3f0: 73 63 72 69 70 74 2e 0a 20 20 23 0a 20 20 69 66  script..  #.  if
d400: 63 61 70 61 62 6c 65 20 73 68 61 72 65 64 5f 63  capable shared_c
d410: 61 63 68 65 20 7b 20 73 65 74 20 73 63 73 20 5b  ache { set scs [
d420: 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 73  sqlite3_enable_s
d430: 68 61 72 65 64 5f 63 61 63 68 65 5d 20 7d 0a 0a  hared_cache] }..
d440: 20 20 23 20 52 75 6e 20 74 68 65 20 74 65 73 74    # Run the test
d450: 20 73 63 72 69 70 74 20 69 6e 20 61 20 73 6c 61   script in a sla
d460: 76 65 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a  ve interpreter..
d470: 20 20 23 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63    #.  unset -noc
d480: 6f 6d 70 6c 61 69 6e 20 3a 3a 72 75 6e 5f 74 68  omplain ::run_th
d490: 72 65 61 64 5f 74 65 73 74 73 5f 63 61 6c 6c 65  read_tests_calle
d4a0: 64 0a 20 20 72 65 73 65 74 5f 70 72 6e 67 5f 73  d.  reset_prng_s
d4b0: 74 61 74 65 0a 20 20 73 65 74 20 3a 3a 73 71 6c  tate.  set ::sql
d4c0: 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f  ite_open_file_co
d4d0: 75 6e 74 20 30 0a 20 20 73 65 74 20 74 69 6d 65  unt 0.  set time
d4e0: 20 5b 74 69 6d 65 20 7b 20 73 6c 61 76 65 5f 74   [time { slave_t
d4f0: 65 73 74 5f 73 63 72 69 70 74 20 5b 6c 69 73 74  est_script [list
d500: 20 73 6f 75 72 63 65 20 24 7a 46 69 6c 65 5d 20   source $zFile] 
d510: 7d 5d 0a 20 20 73 65 74 20 6d 73 20 5b 65 78 70  }].  set ms [exp
d520: 72 20 5b 6c 69 6e 64 65 78 20 24 74 69 6d 65 20  r [lindex $time 
d530: 30 5d 20 2f 20 31 30 30 30 5d 0a 0a 20 20 23 20  0] / 1000]..  # 
d540: 54 65 73 74 20 74 68 61 74 20 61 6c 6c 20 66 69  Test that all fi
d550: 6c 65 73 20 6f 70 65 6e 65 64 20 62 79 20 74 68  les opened by th
d560: 65 20 74 65 73 74 20 73 63 72 69 70 74 20 77 65  e test script we
d570: 72 65 20 63 6c 6f 73 65 64 2e 20 4f 6d 69 74 20  re closed. Omit 
d580: 74 68 69 73 0a 20 20 23 20 69 66 20 74 68 65 20  this.  # if the 
d590: 74 65 73 74 20 73 63 72 69 70 74 20 68 61 73 20  test script has 
d5a0: 22 74 68 72 65 61 64 22 20 69 6e 20 69 74 73 20  "thread" in its 
d5b0: 6e 61 6d 65 2e 20 54 68 65 20 6f 70 65 6e 20 66  name. The open f
d5c0: 69 6c 65 20 63 6f 75 6e 74 65 72 0a 20 20 23 20  ile counter.  # 
d5d0: 69 73 20 6e 6f 74 20 74 68 72 65 61 64 2d 73 61  is not thread-sa
d5e0: 66 65 2e 0a 20 20 23 0a 20 20 69 66 20 7b 5b 69  fe..  #.  if {[i
d5f0: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 72 75 6e  nfo exists ::run
d600: 5f 74 68 72 65 61 64 5f 74 65 73 74 73 5f 63 61  _thread_tests_ca
d610: 6c 6c 65 64 5d 3d 3d 30 7d 20 7b 0a 20 20 20 20  lled]==0} {.    
d620: 64 6f 5f 74 65 73 74 20 24 7b 74 61 69 6c 7d 2d  do_test ${tail}-
d630: 63 6c 6f 73 65 61 6c 6c 66 69 6c 65 73 20 7b 20  closeallfiles { 
d640: 65 78 70 72 20 7b 24 3a 3a 73 71 6c 69 74 65 5f  expr {$::sqlite_
d650: 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 3e  open_file_count>
d660: 30 7d 20 7d 20 7b 30 7d 0a 20 20 7d 0a 20 20 73  0} } {0}.  }.  s
d670: 65 74 20 3a 3a 73 71 6c 69 74 65 5f 6f 70 65 6e  et ::sqlite_open
d680: 5f 66 69 6c 65 5f 63 6f 75 6e 74 20 30 0a 0a 20  _file_count 0.. 
d690: 20 23 20 54 65 73 74 20 74 68 61 74 20 74 68 65   # Test that the
d6a0: 20 67 6c 6f 62 61 6c 20 22 73 68 61 72 65 64 2d   global "shared-
d6b0: 63 61 63 68 65 22 20 73 65 74 74 69 6e 67 20 77  cache" setting w
d6c0: 61 73 20 6e 6f 74 20 61 6c 74 65 72 65 64 20 62  as not altered b
d6d0: 79 0a 20 20 23 20 74 68 65 20 74 65 73 74 20 73  y.  # the test s
d6e0: 63 72 69 70 74 2e 0a 20 20 23 0a 20 20 69 66 63  cript..  #.  ifc
d6f0: 61 70 61 62 6c 65 20 73 68 61 72 65 64 5f 63 61  apable shared_ca
d700: 63 68 65 20 7b 0a 20 20 20 20 73 65 74 20 72 65  che {.    set re
d710: 73 20 5b 65 78 70 72 20 7b 5b 73 71 6c 69 74 65  s [expr {[sqlite
d720: 33 5f 65 6e 61 62 6c 65 5f 73 68 61 72 65 64 5f  3_enable_shared_
d730: 63 61 63 68 65 5d 20 3d 3d 20 24 73 63 73 7d 5d  cache] == $scs}]
d740: 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 24 7b 74  .    do_test ${t
d750: 61 69 6c 7d 2d 73 68 61 72 65 64 63 61 63 68 65  ail}-sharedcache
d760: 73 65 74 74 69 6e 67 20 5b 6c 69 73 74 20 73 65  setting [list se
d770: 74 20 7b 7d 20 24 72 65 73 5d 20 31 0a 20 20 7d  t {} $res] 1.  }
d780: 0a 0a 20 20 23 20 41 64 64 20 73 6f 6d 65 20 69  ..  # Add some i
d790: 6e 66 6f 20 74 6f 20 74 68 65 20 6f 75 74 70 75  nfo to the outpu
d7a0: 74 2e 0a 20 20 23 0a 20 20 70 75 74 73 20 22 54  t..  #.  puts "T
d7b0: 69 6d 65 3a 20 24 74 61 69 6c 20 24 6d 73 20 6d  ime: $tail $ms m
d7c0: 73 22 0a 20 20 73 68 6f 77 5f 6d 65 6d 73 74 61  s".  show_memsta
d7d0: 74 73 0a 7d 0a 0a 23 20 4f 70 65 6e 20 61 20 6e  ts.}..# Open a n
d7e0: 65 77 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6f 6e  ew connection on
d7f0: 20 64 61 74 61 62 61 73 65 20 74 65 73 74 2e 64   database test.d
d800: 62 20 61 6e 64 20 65 78 65 63 75 74 65 20 74 68  b and execute th
d810: 65 20 53 51 4c 20 73 63 72 69 70 74 0a 23 20 73  e SQL script.# s
d820: 75 70 70 6c 69 65 64 20 61 73 20 61 6e 20 61 72  upplied as an ar
d830: 67 75 6d 65 6e 74 2e 20 42 65 66 6f 72 65 20 72  gument. Before r
d840: 65 74 75 72 6e 69 6e 67 2c 20 63 6c 6f 73 65 20  eturning, close 
d850: 74 68 65 20 6e 65 77 20 63 6f 6e 65 63 74 69 6f  the new conectio
d860: 6e 20 61 6e 64 0a 23 20 72 65 73 74 6f 72 65 20  n and.# restore 
d870: 74 68 65 20 34 20 62 79 74 65 20 66 69 65 6c 64  the 4 byte field
d880: 73 20 73 74 61 72 74 69 6e 67 20 61 74 20 68 65  s starting at he
d890: 61 64 65 72 20 6f 66 66 73 65 74 73 20 32 38 2c  ader offsets 28,
d8a0: 20 39 32 20 61 6e 64 20 39 36 0a 23 20 74 6f 20   92 and 96.# to 
d8b0: 74 68 65 20 76 61 6c 75 65 73 20 74 68 65 79 20  the values they 
d8c0: 68 65 6c 64 20 62 65 66 6f 72 65 20 74 68 65 20  held before the 
d8d0: 53 51 4c 20 77 61 73 20 65 78 65 63 75 74 65 64  SQL was executed
d8e0: 2e 20 54 68 69 73 20 73 69 6d 75 6c 61 74 65 73  . This simulates
d8f0: 0a 23 20 61 20 77 72 69 74 65 20 62 79 20 61 20  .# a write by a 
d900: 70 72 65 2d 33 2e 37 2e 30 20 63 6c 69 65 6e 74  pre-3.7.0 client
d910: 2e 0a 23 0a 70 72 6f 63 20 73 71 6c 33 36 32 33  ..#.proc sql3623
d920: 31 20 7b 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20  1 {sql} {.  set 
d930: 42 20 5b 68 65 78 69 6f 5f 72 65 61 64 20 74 65  B [hexio_read te
d940: 73 74 2e 64 62 20 39 32 20 38 5d 0a 20 20 73 65  st.db 92 8].  se
d950: 74 20 41 20 5b 68 65 78 69 6f 5f 72 65 61 64 20  t A [hexio_read 
d960: 74 65 73 74 2e 64 62 20 32 38 20 34 5d 0a 20 20  test.db 28 4].  
d970: 73 71 6c 69 74 65 33 20 64 62 33 36 32 33 31 20  sqlite3 db36231 
d980: 74 65 73 74 2e 64 62 0a 20 20 63 61 74 63 68 20  test.db.  catch 
d990: 7b 20 64 62 33 36 32 33 31 20 66 75 6e 63 20 61  { db36231 func a
d9a0: 5f 73 74 72 69 6e 67 20 61 5f 73 74 72 69 6e 67  _string a_string
d9b0: 20 7d 0a 20 20 65 78 65 63 73 71 6c 20 24 73 71   }.  execsql $sq
d9c0: 6c 20 64 62 33 36 32 33 31 0a 20 20 64 62 33 36  l db36231.  db36
d9d0: 32 33 31 20 63 6c 6f 73 65 0a 20 20 68 65 78 69  231 close.  hexi
d9e0: 6f 5f 77 72 69 74 65 20 74 65 73 74 2e 64 62 20  o_write test.db 
d9f0: 32 38 20 24 41 0a 20 20 68 65 78 69 6f 5f 77 72  28 $A.  hexio_wr
da00: 69 74 65 20 74 65 73 74 2e 64 62 20 39 32 20 24  ite test.db 92 $
da10: 42 0a 20 20 72 65 74 75 72 6e 20 22 22 0a 7d 0a  B.  return "".}.
da20: 0a 70 72 6f 63 20 64 62 5f 73 61 76 65 20 7b 7d  .proc db_save {}
da30: 20 7b 0a 20 20 66 6f 72 65 61 63 68 20 66 20 5b   {.  foreach f [
da40: 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  glob -nocomplain
da50: 20 73 76 5f 74 65 73 74 2e 64 62 2a 5d 20 7b 20   sv_test.db*] { 
da60: 66 6f 72 63 65 64 65 6c 65 74 65 20 24 66 20 7d  forcedelete $f }
da70: 0a 20 20 66 6f 72 65 61 63 68 20 66 20 5b 67 6c  .  foreach f [gl
da80: 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74  ob -nocomplain t
da90: 65 73 74 2e 64 62 2a 5d 20 7b 0a 20 20 20 20 73  est.db*] {.    s
daa0: 65 74 20 66 32 20 22 73 76 5f 24 66 22 0a 20 20  et f2 "sv_$f".  
dab0: 20 20 66 6f 72 63 65 63 6f 70 79 20 24 66 20 24    forcecopy $f $
dac0: 66 32 0a 20 20 7d 0a 7d 0a 70 72 6f 63 20 64 62  f2.  }.}.proc db
dad0: 5f 73 61 76 65 5f 61 6e 64 5f 63 6c 6f 73 65 20  _save_and_close 
dae0: 7b 7d 20 7b 0a 20 20 64 62 5f 73 61 76 65 0a 20  {} {.  db_save. 
daf0: 20 63 61 74 63 68 20 7b 20 64 62 20 63 6c 6f 73   catch { db clos
db00: 65 20 7d 0a 20 20 72 65 74 75 72 6e 20 22 22 0a  e }.  return "".
db10: 7d 0a 70 72 6f 63 20 64 62 5f 72 65 73 74 6f 72  }.proc db_restor
db20: 65 20 7b 7d 20 7b 0a 20 20 66 6f 72 65 61 63 68  e {} {.  foreach
db30: 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70   f [glob -nocomp
db40: 6c 61 69 6e 20 74 65 73 74 2e 64 62 2a 5d 20 7b  lain test.db*] {
db50: 20 66 6f 72 63 65 64 65 6c 65 74 65 20 24 66 20   forcedelete $f 
db60: 7d 0a 20 20 66 6f 72 65 61 63 68 20 66 32 20 5b  }.  foreach f2 [
db70: 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  glob -nocomplain
db80: 20 73 76 5f 74 65 73 74 2e 64 62 2a 5d 20 7b 0a   sv_test.db*] {.
db90: 20 20 20 20 73 65 74 20 66 20 5b 73 74 72 69 6e      set f [strin
dba0: 67 20 72 61 6e 67 65 20 24 66 32 20 33 20 65 6e  g range $f2 3 en
dbb0: 64 5d 0a 20 20 20 20 66 6f 72 63 65 63 6f 70 79  d].    forcecopy
dbc0: 20 24 66 32 20 24 66 0a 20 20 7d 0a 7d 0a 70 72   $f2 $f.  }.}.pr
dbd0: 6f 63 20 64 62 5f 72 65 73 74 6f 72 65 5f 61 6e  oc db_restore_an
dbe0: 64 5f 72 65 6f 70 65 6e 20 7b 7b 64 62 66 69 6c  d_reopen {{dbfil
dbf0: 65 20 74 65 73 74 2e 64 62 7d 7d 20 7b 0a 20 20  e test.db}} {.  
dc00: 63 61 74 63 68 20 7b 20 64 62 20 63 6c 6f 73 65  catch { db close
dc10: 20 7d 0a 20 20 64 62 5f 72 65 73 74 6f 72 65 0a   }.  db_restore.
dc20: 20 20 73 71 6c 69 74 65 33 20 64 62 20 24 64 62    sqlite3 db $db
dc30: 66 69 6c 65 0a 7d 0a 70 72 6f 63 20 64 62 5f 64  file.}.proc db_d
dc40: 65 6c 65 74 65 5f 61 6e 64 5f 72 65 6f 70 65 6e  elete_and_reopen
dc50: 20 7b 7b 66 69 6c 65 20 74 65 73 74 2e 64 62 7d   {{file test.db}
dc60: 7d 20 7b 0a 20 20 63 61 74 63 68 20 7b 20 64 62  } {.  catch { db
dc70: 20 63 6c 6f 73 65 20 7d 0a 20 20 66 6f 72 65 61   close }.  forea
dc80: 63 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f  ch f [glob -noco
dc90: 6d 70 6c 61 69 6e 20 74 65 73 74 2e 64 62 2a 5d  mplain test.db*]
dca0: 20 7b 20 66 6f 72 63 65 64 65 6c 65 74 65 20 24   { forcedelete $
dcb0: 66 20 7d 0a 20 20 73 71 6c 69 74 65 33 20 64 62  f }.  sqlite3 db
dcc0: 20 24 66 69 6c 65 0a 7d 0a 0a 23 20 49 66 20 74   $file.}..# If t
dcd0: 68 65 20 6c 69 62 72 61 72 79 20 69 73 20 63 6f  he library is co
dce0: 6d 70 69 6c 65 64 20 77 69 74 68 20 74 68 65 20  mpiled with the 
dcf0: 53 51 4c 49 54 45 5f 44 45 46 41 55 4c 54 5f 41  SQLITE_DEFAULT_A
dd00: 55 54 4f 56 41 43 55 55 4d 20 6d 61 63 72 6f 20  UTOVACUUM macro 
dd10: 73 65 74 0a 23 20 74 6f 20 6e 6f 6e 2d 7a 65 72  set.# to non-zer
dd20: 6f 2c 20 74 68 65 6e 20 73 65 74 20 74 68 65 20  o, then set the 
dd30: 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20  global variable 
dd40: 24 41 55 54 4f 56 41 43 55 55 4d 20 74 6f 20 31  $AUTOVACUUM to 1
dd50: 2e 0a 73 65 74 20 41 55 54 4f 56 41 43 55 55 4d  ..set AUTOVACUUM
dd60: 20 24 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73   $sqlite_options
dd70: 28 64 65 66 61 75 6c 74 5f 61 75 74 6f 76 61 63  (default_autovac
dd80: 75 75 6d 29 0a 0a 23 20 4d 61 6b 65 20 73 75 72  uum)..# Make sur
dd90: 65 20 74 68 65 20 46 54 53 20 65 6e 68 61 6e 63  e the FTS enhanc
dda0: 65 64 20 71 75 65 72 79 20 73 79 6e 74 61 78 20  ed query syntax 
ddb0: 69 73 20 64 69 73 61 62 6c 65 64 2e 0a 73 65 74  is disabled..set
ddc0: 20 73 71 6c 69 74 65 5f 66 74 73 33 5f 65 6e 61   sqlite_fts3_ena
ddd0: 62 6c 65 5f 70 61 72 65 6e 74 68 65 73 65 73 20  ble_parentheses 
dde0: 30 0a 0a 23 20 44 75 72 69 6e 67 20 74 65 73 74  0..# During test
ddf0: 69 6e 67 2c 20 61 73 73 75 6d 65 20 74 68 61 74  ing, assume that
de00: 20 61 6c 6c 20 64 61 74 61 62 61 73 65 20 66 69   all database fi
de10: 6c 65 73 20 61 72 65 20 77 65 6c 6c 2d 66 6f 72  les are well-for
de20: 6d 65 64 2e 20 20 54 68 65 0a 23 20 66 65 77 20  med.  The.# few 
de30: 74 65 73 74 20 63 61 73 65 73 20 74 68 61 74 20  test cases that 
de40: 64 65 6c 69 62 65 72 61 74 65 6c 79 20 63 6f 72  deliberately cor
de50: 72 75 70 74 20 64 61 74 61 62 61 73 65 20 66 69  rupt database fi
de60: 6c 65 73 20 73 68 6f 75 6c 64 20 72 65 73 63 69  les should resci
de70: 6e 64 20 0a 23 20 74 68 69 73 20 73 65 74 74 69  nd .# this setti
de80: 6e 67 20 62 79 20 69 6e 76 6f 6b 69 6e 67 20 22  ng by invoking "
de90: 64 61 74 61 62 61 73 65 5f 63 61 6e 5f 62 65 5f  database_can_be_
dea0: 63 6f 72 72 75 70 74 22 0a 23 0a 64 61 74 61 62  corrupt".#.datab
deb0: 61 73 65 5f 6e 65 76 65 72 5f 63 6f 72 72 75 70  ase_never_corrup
dec0: 74 0a 0a 73 6f 75 72 63 65 20 24 74 65 73 74 64  t..source $testd
ded0: 69 72 2f 74 68 72 65 61 64 5f 63 6f 6d 6d 6f 6e  ir/thread_common
dee0: 2e 74 63 6c 0a 73 6f 75 72 63 65 20 24 74 65 73  .tcl.source $tes
def0: 74 64 69 72 2f 6d 61 6c 6c 6f 63 5f 63 6f 6d 6d  tdir/malloc_comm
df00: 6f 6e 2e 74 63 6c 0a                             on.tcl.