/ Hex Artifact Content
Login

Artifact 9bd04481b8b0ef1f2049ad01f28e175ee9a14f7b:


0000: 23 20 32 30 30 31 20 53 65 70 74 65 6d 62 65 72  # 2001 September
0010: 20 31 35 0a 23 0a 23 20 54 68 65 20 61 75 74 68   15.#.# The auth
0020: 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70  or disclaims cop
0030: 79 72 69 67 68 74 20 74 6f 20 74 68 69 73 20 73  yright to this s
0040: 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20  ource code.  In 
0050: 70 6c 61 63 65 20 6f 66 0a 23 20 61 20 6c 65 67  place of.# a leg
0060: 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 65 20  al notice, here 
0070: 69 73 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a 23  is a blessing:.#
0080: 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 64 6f  .#    May you do
0090: 20 67 6f 6f 64 20 61 6e 64 20 6e 6f 74 20 65 76   good and not ev
00a0: 69 6c 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75  il..#    May you
00b0: 20 66 69 6e 64 20 66 6f 72 67 69 76 65 6e 65 73   find forgivenes
00c0: 73 20 66 6f 72 20 79 6f 75 72 73 65 6c 66 20 61  s for yourself a
00d0: 6e 64 20 66 6f 72 67 69 76 65 20 6f 74 68 65 72  nd forgive other
00e0: 73 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20  s..#    May you 
00f0: 73 68 61 72 65 20 66 72 65 65 6c 79 2c 20 6e 65  share freely, ne
0100: 76 65 72 20 74 61 6b 69 6e 67 20 6d 6f 72 65 20  ver taking more 
0110: 74 68 61 6e 20 79 6f 75 20 67 69 76 65 2e 0a 23  than you give..#
0120: 0a 23 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  .#**************
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 23 20 54 68 69 73  *********.# This
0170: 20 66 69 6c 65 20 69 6d 70 6c 65 6d 65 6e 74 73   file implements
0180: 20 73 6f 6d 65 20 63 6f 6d 6d 6f 6e 20 54 43 4c   some common TCL
0190: 20 72 6f 75 74 69 6e 65 73 20 75 73 65 64 20 66   routines used f
01a0: 6f 72 20 72 65 67 72 65 73 73 69 6f 6e 0a 23 20  or regression.# 
01b0: 74 65 73 74 69 6e 67 20 74 68 65 20 53 51 4c 69  testing the SQLi
01c0: 74 65 20 6c 69 62 72 61 72 79 0a 23 0a 23 20 24  te library.#.# $
01d0: 49 64 3a 20 74 65 73 74 65 72 2e 74 63 6c 2c 76  Id: tester.tcl,v
01e0: 20 31 2e 31 34 33 20 32 30 30 39 2f 30 34 2f 30   1.143 2009/04/0
01f0: 39 20 30 31 3a 32 33 3a 34 39 20 64 72 68 20 45  9 01:23:49 drh E
0200: 78 70 20 24 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d  xp $..#---------
0210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0250: 0a 23 20 54 68 65 20 63 6f 6d 6d 61 6e 64 73 20  .# The commands 
0260: 70 72 6f 76 69 64 65 64 20 62 79 20 74 68 65 20  provided by the 
0270: 63 6f 64 65 20 69 6e 20 74 68 69 73 20 66 69 6c  code in this fil
0280: 65 20 74 6f 20 68 65 6c 70 20 77 69 74 68 20 63  e to help with c
0290: 72 65 61 74 69 6e 67 0a 23 20 74 65 73 74 20 63  reating.# test c
02a0: 61 73 65 73 20 61 72 65 20 61 73 20 66 6f 6c 6c  ases are as foll
02b0: 6f 77 73 3a 0a 23 0a 23 20 43 6f 6d 6d 61 6e 64  ows:.#.# Command
02c0: 73 20 74 6f 20 6d 61 6e 69 70 75 6c 61 74 65 20  s to manipulate 
02d0: 74 68 65 20 64 62 20 61 6e 64 20 74 68 65 20 66  the db and the f
02e0: 69 6c 65 2d 73 79 73 74 65 6d 20 61 74 20 61 20  ile-system at a 
02f0: 68 69 67 68 20 6c 65 76 65 6c 3a 0a 23 0a 23 20  high level:.#.# 
0300: 20 20 20 20 20 69 73 5f 72 65 6c 61 74 69 76 65       is_relative
0310: 5f 66 69 6c 65 0a 23 20 20 20 20 20 20 74 65 73  _file.#      tes
0320: 74 5f 70 77 64 0a 23 20 20 20 20 20 20 67 65 74  t_pwd.#      get
0330: 5f 70 77 64 0a 23 20 20 20 20 20 20 63 6f 70 79  _pwd.#      copy
0340: 5f 66 69 6c 65 20 20 20 20 20 20 20 20 20 20 20  _file           
0350: 20 20 20 46 52 4f 4d 20 54 4f 0a 23 20 20 20 20     FROM TO.#    
0360: 20 20 64 65 6c 65 74 65 5f 66 69 6c 65 20 20 20    delete_file   
0370: 20 20 20 20 20 20 20 20 20 46 49 4c 45 4e 41 4d           FILENAM
0380: 45 0a 23 20 20 20 20 20 20 64 72 6f 70 5f 61 6c  E.#      drop_al
0390: 6c 5f 74 61 62 6c 65 73 20 20 20 20 20 20 20 20  l_tables        
03a0: 3f 44 42 3f 0a 23 20 20 20 20 20 20 66 6f 72 63  ?DB?.#      forc
03b0: 65 63 6f 70 79 20 20 20 20 20 20 20 20 20 20 20  ecopy           
03c0: 20 20 20 46 52 4f 4d 20 54 4f 0a 23 20 20 20 20     FROM TO.#    
03d0: 20 20 66 6f 72 63 65 64 65 6c 65 74 65 20 20 20    forcedelete   
03e0: 20 20 20 20 20 20 20 20 20 46 49 4c 45 4e 41 4d           FILENAM
03f0: 45 0a 23 0a 23 20 54 65 73 74 20 74 68 65 20 63  E.#.# Test the c
0400: 61 70 61 62 69 6c 69 74 79 20 6f 66 20 74 68 65  apability of the
0410: 20 53 51 4c 69 74 65 20 76 65 72 73 69 6f 6e 20   SQLite version 
0420: 62 75 69 6c 74 20 69 6e 74 6f 20 74 68 65 20 69  built into the i
0430: 6e 74 65 72 70 72 65 74 65 72 20 74 6f 0a 23 20  nterpreter to.# 
0440: 64 65 74 65 72 6d 69 6e 65 20 69 66 20 61 20 73  determine if a s
0450: 70 65 63 69 66 69 63 20 74 65 73 74 20 63 61 6e  pecific test can
0460: 20 62 65 20 72 75 6e 3a 0a 23 0a 23 20 20 20 20   be run:.#.#    
0470: 20 20 63 61 70 61 62 6c 65 20 20 20 20 20 20 20    capable       
0480: 20 20 20 20 20 20 20 20 20 45 58 50 52 0a 23 20           EXPR.# 
0490: 20 20 20 20 20 69 66 63 61 70 61 62 6c 65 20 20       ifcapable  
04a0: 20 20 20 20 20 20 20 20 20 20 20 20 45 58 50 52              EXPR
04b0: 0a 23 0a 23 20 43 61 6c 75 6c 61 74 65 20 63 68  .#.# Calulate ch
04c0: 65 63 6b 73 75 6d 73 20 62 61 73 65 64 20 6f 6e  ecksums based on
04d0: 20 64 61 74 61 62 61 73 65 20 63 6f 6e 74 65 6e   database conten
04e0: 74 73 3a 0a 23 0a 23 20 20 20 20 20 20 64 62 63  ts:.#.#      dbc
04f0: 6b 73 75 6d 20 20 20 20 20 20 20 20 20 20 20 20  ksum            
0500: 20 20 20 20 44 42 20 44 42 4e 41 4d 45 0a 23 20      DB DBNAME.# 
0510: 20 20 20 20 20 61 6c 6c 63 6b 73 75 6d 20 20 20       allcksum   
0520: 20 20 20 20 20 20 20 20 20 20 20 20 3f 44 42 3f              ?DB?
0530: 0a 23 20 20 20 20 20 20 63 6b 73 75 6d 20 20 20  .#      cksum   
0540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3f                 ?
0550: 44 42 3f 0a 23 0a 23 20 43 6f 6d 6d 61 6e 64 73  DB?.#.# Commands
0560: 20 74 6f 20 65 78 65 63 75 74 65 2f 65 78 70 6c   to execute/expl
0570: 61 69 6e 20 53 51 4c 20 73 74 61 74 65 6d 65 6e  ain SQL statemen
0580: 74 73 3a 0a 23 0a 23 20 20 20 20 20 20 6d 65 6d  ts:.#.#      mem
0590: 64 62 73 71 6c 20 20 20 20 20 20 20 20 20 20 20  dbsql           
05a0: 20 20 20 20 53 51 4c 0a 23 20 20 20 20 20 20 73      SQL.#      s
05b0: 74 65 70 73 71 6c 20 20 20 20 20 20 20 20 20 20  tepsql          
05c0: 20 20 20 20 20 20 44 42 20 53 51 4c 0a 23 20 20        DB SQL.#  
05d0: 20 20 20 20 65 78 65 63 73 71 6c 32 20 20 20 20      execsql2    
05e0: 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 0a 23             SQL.#
05f0: 20 20 20 20 20 20 65 78 70 6c 61 69 6e 5f 6e 6f        explain_no
0600: 5f 74 72 61 63 65 20 20 20 20 20 20 20 53 51 4c  _trace       SQL
0610: 0a 23 20 20 20 20 20 20 65 78 70 6c 61 69 6e 20  .#      explain 
0620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53                 S
0630: 51 4c 20 3f 44 42 3f 0a 23 20 20 20 20 20 20 63  QL ?DB?.#      c
0640: 61 74 63 68 73 71 6c 20 20 20 20 20 20 20 20 20  atchsql         
0650: 20 20 20 20 20 20 53 51 4c 20 3f 44 42 3f 0a 23        SQL ?DB?.#
0660: 20 20 20 20 20 20 65 78 65 63 73 71 6c 20 20 20        execsql   
0670: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51 4c               SQL
0680: 20 3f 44 42 3f 0a 23 0a 23 20 43 6f 6d 6d 61 6e   ?DB?.#.# Comman
0690: 64 73 20 74 6f 20 72 75 6e 20 74 65 73 74 20 63  ds to run test c
06a0: 61 73 65 73 3a 0a 23 0a 23 20 20 20 20 20 20 64  ases:.#.#      d
06b0: 6f 5f 69 6f 65 72 72 5f 74 65 73 74 20 20 20 20  o_ioerr_test    
06c0: 20 20 20 20 20 20 54 45 53 54 4e 41 4d 45 20 41        TESTNAME A
06d0: 52 47 53 2e 2e 2e 0a 23 20 20 20 20 20 20 63 72  RGS....#      cr
06e0: 61 73 68 73 71 6c 20 20 20 20 20 20 20 20 20 20  ashsql          
06f0: 20 20 20 20 20 41 52 47 53 2e 2e 2e 0a 23 20 20       ARGS....#  
0700: 20 20 20 20 69 6e 74 65 67 72 69 74 79 5f 63 68      integrity_ch
0710: 65 63 6b 20 20 20 20 20 20 20 20 54 45 53 54 4e  eck        TESTN
0720: 41 4d 45 20 3f 44 42 3f 0a 23 20 20 20 20 20 20  AME ?DB?.#      
0730: 76 65 72 69 66 79 5f 65 78 5f 65 72 72 63 6f 64  verify_ex_errcod
0740: 65 20 20 20 20 20 20 54 45 53 54 4e 41 4d 45 20  e      TESTNAME 
0750: 45 58 50 45 43 54 45 44 20 3f 44 42 3f 0a 23 20  EXPECTED ?DB?.# 
0760: 20 20 20 20 20 64 6f 5f 74 65 73 74 20 20 20 20       do_test    
0770: 20 20 20 20 20 20 20 20 20 20 20 20 54 45 53 54              TEST
0780: 4e 41 4d 45 20 53 43 52 49 50 54 20 45 58 50 45  NAME SCRIPT EXPE
0790: 43 54 45 44 0a 23 20 20 20 20 20 20 64 6f 5f 65  CTED.#      do_e
07a0: 78 65 63 73 71 6c 5f 74 65 73 74 20 20 20 20 20  xecsql_test     
07b0: 20 20 20 54 45 53 54 4e 41 4d 45 20 53 51 4c 20     TESTNAME SQL 
07c0: 45 58 50 45 43 54 45 44 0a 23 20 20 20 20 20 20  EXPECTED.#      
07d0: 64 6f 5f 63 61 74 63 68 73 71 6c 5f 74 65 73 74  do_catchsql_test
07e0: 20 20 20 20 20 20 20 54 45 53 54 4e 41 4d 45 20         TESTNAME 
07f0: 53 51 4c 20 45 58 50 45 43 54 45 44 0a 23 20 20  SQL EXPECTED.#  
0800: 20 20 20 20 64 6f 5f 74 69 6d 65 64 5f 65 78 65      do_timed_exe
0810: 63 73 71 6c 5f 74 65 73 74 20 20 54 45 53 54 4e  csql_test  TESTN
0820: 41 4d 45 20 53 51 4c 20 45 58 50 45 43 54 45 44  AME SQL EXPECTED
0830: 0a 23 0a 23 20 43 6f 6d 6d 61 6e 64 73 20 70 72  .#.# Commands pr
0840: 6f 76 69 64 69 6e 67 20 61 20 6c 6f 77 65 72 20  oviding a lower 
0850: 6c 65 76 65 6c 20 69 6e 74 65 72 66 61 63 65 20  level interface 
0860: 74 6f 20 74 68 65 20 67 6c 6f 62 61 6c 20 74 65  to the global te
0870: 73 74 20 63 6f 75 6e 74 65 72 73 3a 0a 23 0a 23  st counters:.#.#
0880: 20 20 20 20 20 20 73 65 74 5f 74 65 73 74 5f 63        set_test_c
0890: 6f 75 6e 74 65 72 20 20 20 20 20 20 20 43 4f 55  ounter       COU
08a0: 4e 54 45 52 20 3f 56 41 4c 55 45 3f 0a 23 20 20  NTER ?VALUE?.#  
08b0: 20 20 20 20 6f 6d 69 74 5f 74 65 73 74 20 20 20      omit_test   
08c0: 20 20 20 20 20 20 20 20 20 20 20 54 45 53 54 4e             TESTN
08d0: 41 4d 45 20 52 45 41 53 4f 4e 20 3f 41 50 50 45  AME REASON ?APPE
08e0: 4e 44 3f 0a 23 20 20 20 20 20 20 66 61 69 6c 5f  ND?.#      fail_
08f0: 74 65 73 74 20 20 20 20 20 20 20 20 20 20 20 20  test            
0900: 20 20 54 45 53 54 4e 41 4d 45 0a 23 20 20 20 20    TESTNAME.#    
0910: 20 20 69 6e 63 72 5f 6e 74 65 73 74 0a 23 0a 23    incr_ntest.#.#
0920: 20 43 6f 6d 6d 61 6e 64 20 72 75 6e 20 61 74 20   Command run at 
0930: 74 68 65 20 65 6e 64 20 6f 66 20 65 61 63 68 20  the end of each 
0940: 74 65 73 74 20 66 69 6c 65 3a 0a 23 0a 23 20 20  test file:.#.#  
0950: 20 20 20 20 66 69 6e 69 73 68 5f 74 65 73 74 0a      finish_test.
0960: 23 0a 23 20 43 6f 6d 6d 61 6e 64 73 20 74 6f 20  #.# Commands to 
0970: 68 65 6c 70 20 63 72 65 61 74 65 20 74 65 73 74  help create test
0980: 20 66 69 6c 65 73 20 74 68 61 74 20 72 75 6e 20   files that run 
0990: 77 69 74 68 20 74 68 65 20 22 57 41 4c 22 20 61  with the "WAL" a
09a0: 6e 64 20 6f 74 68 65 72 0a 23 20 70 65 72 6d 75  nd other.# permu
09b0: 74 61 74 69 6f 6e 73 20 28 73 65 65 20 66 69 6c  tations (see fil
09c0: 65 20 70 65 72 6d 75 74 61 74 69 6f 6e 73 2e 74  e permutations.t
09d0: 65 73 74 29 3a 0a 23 0a 23 20 20 20 20 20 20 77  est):.#.#      w
09e0: 61 6c 5f 69 73 5f 77 61 6c 5f 6d 6f 64 65 0a 23  al_is_wal_mode.#
09f0: 20 20 20 20 20 20 77 61 6c 5f 73 65 74 5f 6a 6f        wal_set_jo
0a00: 75 72 6e 61 6c 5f 6d 6f 64 65 20 20 20 3f 44 42  urnal_mode   ?DB
0a10: 3f 0a 23 20 20 20 20 20 20 77 61 6c 5f 63 68 65  ?.#      wal_che
0a20: 63 6b 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20  ck_journal_mode 
0a30: 54 45 53 54 4e 41 4d 45 3f 44 42 3f 0a 23 20 20  TESTNAME?DB?.#  
0a40: 20 20 20 20 70 65 72 6d 75 74 61 74 69 6f 6e 0a      permutation.
0a50: 23 20 20 20 20 20 20 70 72 65 73 71 6c 0a 23 0a  #      presql.#.
0a60: 0a 23 20 53 65 74 20 74 68 65 20 70 72 65 63 69  .# Set the preci
0a70: 73 69 6f 6e 20 6f 66 20 46 50 20 61 72 69 74 68  sion of FP arith
0a80: 6d 61 74 69 63 20 75 73 65 64 20 62 79 20 74 68  matic used by th
0a90: 65 20 69 6e 74 65 72 70 72 65 74 65 72 2e 20 41  e interpreter. A
0aa0: 6e 64 0a 23 20 63 6f 6e 66 69 67 75 72 65 20 53  nd.# configure S
0ab0: 51 4c 69 74 65 20 74 6f 20 74 61 6b 65 20 64 61  QLite to take da
0ac0: 74 61 62 61 73 65 20 66 69 6c 65 20 6c 6f 63 6b  tabase file lock
0ad0: 73 20 6f 6e 20 74 68 65 20 70 61 67 65 20 74 68  s on the page th
0ae0: 61 74 20 62 65 67 69 6e 73 0a 23 20 36 34 4b 42  at begins.# 64KB
0af0: 20 69 6e 74 6f 20 74 68 65 20 64 61 74 61 62 61   into the databa
0b00: 73 65 20 66 69 6c 65 20 69 6e 73 74 65 61 64 20  se file instead 
0b10: 6f 66 20 74 68 65 20 6f 6e 65 20 31 47 42 20 69  of the one 1GB i
0b20: 6e 2e 20 54 68 69 73 20 6d 65 61 6e 73 0a 23 20  n. This means.# 
0b30: 74 68 65 20 63 6f 64 65 20 74 68 61 74 20 68 61  the code that ha
0b40: 6e 64 6c 65 73 20 74 68 61 74 20 73 70 65 63 69  ndles that speci
0b50: 61 6c 20 63 61 73 65 20 63 61 6e 20 62 65 20 74  al case can be t
0b60: 65 73 74 65 64 20 77 69 74 68 6f 75 74 20 63 72  ested without cr
0b70: 65 61 74 69 6e 67 0a 23 20 76 65 72 79 20 6c 61  eating.# very la
0b80: 72 67 65 20 64 61 74 61 62 61 73 65 20 66 69 6c  rge database fil
0b90: 65 73 2e 0a 23 0a 73 65 74 20 74 63 6c 5f 70 72  es..#.set tcl_pr
0ba0: 65 63 69 73 69 6f 6e 20 31 35 0a 73 71 6c 69 74  ecision 15.sqlit
0bb0: 65 33 5f 74 65 73 74 5f 63 6f 6e 74 72 6f 6c 5f  e3_test_control_
0bc0: 70 65 6e 64 69 6e 67 5f 62 79 74 65 20 30 78 30  pending_byte 0x0
0bd0: 30 31 30 30 30 30 0a 0a 0a 23 20 49 66 20 74 68  010000...# If th
0be0: 65 20 70 61 67 65 72 20 63 6f 64 65 63 20 69 73  e pager codec is
0bf0: 20 61 76 61 69 6c 61 62 6c 65 2c 20 63 72 65 61   available, crea
0c00: 74 65 20 61 20 77 72 61 70 70 65 72 20 66 6f 72  te a wrapper for
0c10: 20 74 68 65 20 5b 73 71 6c 69 74 65 33 5d 0a 23   the [sqlite3].#
0c20: 20 63 6f 6d 6d 61 6e 64 20 74 68 61 74 20 61 70   command that ap
0c30: 70 65 6e 64 73 20 22 2d 6b 65 79 20 7b 78 79 7a  pends "-key {xyz
0c40: 7a 79 7d 22 20 74 6f 20 74 68 65 20 63 6f 6d 6d  zy}" to the comm
0c50: 61 6e 64 20 6c 69 6e 65 2e 20 69 2e 65 2e 20 74  and line. i.e. t
0c60: 68 69 73 3a 0a 23 0a 23 20 20 20 20 20 73 71 6c  his:.#.#     sql
0c70: 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a  ite3 db test.db.
0c80: 23 0a 23 20 62 65 63 6f 6d 65 73 0a 23 0a 23 20  #.# becomes.#.# 
0c90: 20 20 20 20 73 71 6c 69 74 65 33 20 64 62 20 74      sqlite3 db t
0ca0: 65 73 74 2e 64 62 20 2d 6b 65 79 20 7b 78 79 7a  est.db -key {xyz
0cb0: 7a 79 7d 0a 23 0a 69 66 20 7b 5b 69 6e 66 6f 20  zy}.#.if {[info 
0cc0: 63 6f 6d 6d 61 6e 64 20 73 71 6c 69 74 65 5f 6f  command sqlite_o
0cd0: 72 69 67 5d 3d 3d 22 22 7d 20 7b 0a 20 20 72 65  rig]==""} {.  re
0ce0: 6e 61 6d 65 20 73 71 6c 69 74 65 33 20 73 71 6c  name sqlite3 sql
0cf0: 69 74 65 5f 6f 72 69 67 0a 20 20 70 72 6f 63 20  ite_orig.  proc 
0d00: 73 71 6c 69 74 65 33 20 7b 61 72 67 73 7d 20 7b  sqlite3 {args} {
0d10: 0a 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74  .    if {[llengt
0d20: 68 20 24 61 72 67 73 5d 3e 3d 32 20 26 26 20 5b  h $args]>=2 && [
0d30: 73 74 72 69 6e 67 20 69 6e 64 65 78 20 5b 6c 69  string index [li
0d40: 6e 64 65 78 20 24 61 72 67 73 20 30 5d 20 30 5d  ndex $args 0] 0]
0d50: 21 3d 22 2d 22 7d 20 7b 0a 20 20 20 20 20 20 23  !="-"} {.      #
0d60: 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73   This command is
0d70: 20 6f 70 65 6e 69 6e 67 20 61 20 6e 65 77 20 64   opening a new d
0d80: 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69  atabase connecti
0d90: 6f 6e 2e 0a 20 20 20 20 20 20 23 0a 20 20 20 20  on..      #.    
0da0: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73    if {[info exis
0db0: 74 73 20 3a 3a 47 28 70 65 72 6d 3a 73 71 6c 69  ts ::G(perm:sqli
0dc0: 74 65 33 5f 61 72 67 73 29 5d 7d 20 7b 0a 20 20  te3_args)]} {.  
0dd0: 20 20 20 20 20 20 73 65 74 20 61 72 67 73 20 5b        set args [
0de0: 63 6f 6e 63 61 74 20 24 61 72 67 73 20 24 3a 3a  concat $args $::
0df0: 47 28 70 65 72 6d 3a 73 71 6c 69 74 65 33 5f 61  G(perm:sqlite3_a
0e00: 72 67 73 29 5d 0a 20 20 20 20 20 20 7d 0a 20 20  rgs)].      }.  
0e10: 20 20 20 20 69 66 20 7b 5b 73 71 6c 69 74 65 5f      if {[sqlite_
0e20: 6f 72 69 67 20 2d 68 61 73 2d 63 6f 64 65 63 5d  orig -has-codec]
0e30: 20 26 26 20 21 5b 69 6e 66 6f 20 65 78 69 73 74   && ![info exist
0e40: 73 20 3a 3a 64 6f 5f 6e 6f 74 5f 75 73 65 5f 63  s ::do_not_use_c
0e50: 6f 64 65 63 5d 7d 20 7b 0a 20 20 20 20 20 20 20  odec]} {.       
0e60: 20 6c 61 70 70 65 6e 64 20 61 72 67 73 20 2d 6b   lappend args -k
0e70: 65 79 20 7b 78 79 7a 7a 79 7d 0a 20 20 20 20 20  ey {xyzzy}.     
0e80: 20 7d 0a 0a 20 20 20 20 20 20 73 65 74 20 72 65   }..      set re
0e90: 73 20 5b 75 70 6c 65 76 65 6c 20 31 20 73 71 6c  s [uplevel 1 sql
0ea0: 69 74 65 5f 6f 72 69 67 20 24 61 72 67 73 5d 0a  ite_orig $args].
0eb0: 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20        if {[info 
0ec0: 65 78 69 73 74 73 20 3a 3a 47 28 70 65 72 6d 3a  exists ::G(perm:
0ed0: 70 72 65 73 71 6c 29 5d 7d 20 7b 0a 20 20 20 20  presql)]} {.    
0ee0: 20 20 20 20 5b 6c 69 6e 64 65 78 20 24 61 72 67      [lindex $arg
0ef0: 73 20 30 5d 20 65 76 61 6c 20 24 3a 3a 47 28 70  s 0] eval $::G(p
0f00: 65 72 6d 3a 70 72 65 73 71 6c 29 0a 20 20 20 20  erm:presql).    
0f10: 20 20 7d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69    }.      if {[i
0f20: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 47 28 70  nfo exists ::G(p
0f30: 65 72 6d 3a 64 62 63 6f 6e 66 69 67 29 5d 7d 20  erm:dbconfig)]} 
0f40: 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a  {.        set ::
0f50: 64 62 68 61 6e 64 6c 65 20 5b 6c 69 6e 64 65 78  dbhandle [lindex
0f60: 20 24 61 72 67 73 20 30 5d 0a 20 20 20 20 20 20   $args 0].      
0f70: 20 20 75 70 6c 65 76 65 6c 20 23 30 20 24 3a 3a    uplevel #0 $::
0f80: 47 28 70 65 72 6d 3a 64 62 63 6f 6e 66 69 67 29  G(perm:dbconfig)
0f90: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 73  .      }.      s
0fa0: 65 74 20 72 65 73 0a 20 20 20 20 7d 20 65 6c 73  et res.    } els
0fb0: 65 20 7b 0a 20 20 20 20 20 20 23 20 54 68 69 73  e {.      # This
0fc0: 20 63 6f 6d 6d 61 6e 64 20 69 73 20 6e 6f 74 20   command is not 
0fd0: 6f 70 65 6e 69 6e 67 20 61 20 6e 65 77 20 64 61  opening a new da
0fe0: 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f  tabase connectio
0ff0: 6e 2e 20 50 61 73 73 20 74 68 65 0a 20 20 20 20  n. Pass the.    
1000: 20 20 23 20 61 72 67 75 6d 65 6e 74 73 20 74 68    # arguments th
1010: 72 6f 75 67 68 20 74 6f 20 74 68 65 20 43 20 69  rough to the C i
1020: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 73  mplementation as
1030: 20 74 68 65 20 61 72 65 2e 0a 20 20 20 20 20 20   the are..      
1040: 23 0a 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20  #.      uplevel 
1050: 31 20 73 71 6c 69 74 65 5f 6f 72 69 67 20 24 61  1 sqlite_orig $a
1060: 72 67 73 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a  rgs.    }.  }.}.
1070: 0a 70 72 6f 63 20 67 65 74 46 69 6c 65 52 65 74  .proc getFileRet
1080: 72 69 65 73 20 7b 7d 20 7b 0a 20 20 69 66 20 7b  ries {} {.  if {
1090: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  ![info exists ::
10a0: 47 28 66 69 6c 65 2d 72 65 74 72 69 65 73 29 5d  G(file-retries)]
10b0: 7d 20 7b 0a 20 20 20 20 23 0a 20 20 20 20 23 20  } {.    #.    # 
10c0: 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20 74 68 65  NOTE: Return the
10d0: 20 64 65 66 61 75 6c 74 20 6e 75 6d 62 65 72 20   default number 
10e0: 6f 66 20 72 65 74 72 69 65 73 20 66 6f 72 20 5b  of retries for [
10f0: 66 69 6c 65 5d 20 6f 70 65 72 61 74 69 6f 6e 73  file] operations
1100: 2e 20 20 41 0a 20 20 20 20 23 20 20 20 20 20 20  .  A.    #      
1110: 20 76 61 6c 75 65 20 6f 66 20 7a 65 72 6f 20 6f   value of zero o
1120: 72 20 6c 65 73 73 20 68 65 72 65 20 6d 65 61 6e  r less here mean
1130: 73 20 22 64 69 73 61 62 6c 65 64 22 2e 0a 20 20  s "disabled"..  
1140: 20 20 23 0a 20 20 20 20 72 65 74 75 72 6e 20 5b    #.    return [
1150: 65 78 70 72 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61  expr {$::tcl_pla
1160: 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 20  tform(platform) 
1170: 65 71 20 22 77 69 6e 64 6f 77 73 22 20 3f 20 35  eq "windows" ? 5
1180: 30 20 3a 20 30 7d 5d 0a 20 20 7d 0a 20 20 72 65  0 : 0}].  }.  re
1190: 74 75 72 6e 20 24 3a 3a 47 28 66 69 6c 65 2d 72  turn $::G(file-r
11a0: 65 74 72 69 65 73 29 0a 7d 0a 0a 70 72 6f 63 20  etries).}..proc 
11b0: 67 65 74 46 69 6c 65 52 65 74 72 79 44 65 6c 61  getFileRetryDela
11c0: 79 20 7b 7d 20 7b 0a 20 20 69 66 20 7b 21 5b 69  y {} {.  if {![i
11d0: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 47 28 66  nfo exists ::G(f
11e0: 69 6c 65 2d 72 65 74 72 79 2d 64 65 6c 61 79 29  ile-retry-delay)
11f0: 5d 7d 20 7b 0a 20 20 20 20 23 0a 20 20 20 20 23  ]} {.    #.    #
1200: 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20 74 68   NOTE: Return th
1210: 65 20 64 65 66 61 75 6c 74 20 6e 75 6d 62 65 72  e default number
1220: 20 6f 66 20 6d 69 6c 6c 69 73 65 63 6f 6e 64 73   of milliseconds
1230: 20 74 6f 20 77 61 69 74 20 77 68 65 6e 20 72 65   to wait when re
1240: 74 72 79 69 6e 67 0a 20 20 20 20 23 20 20 20 20  trying.    #    
1250: 20 20 20 66 61 69 6c 65 64 20 5b 66 69 6c 65 5d     failed [file]
1260: 20 6f 70 65 72 61 74 69 6f 6e 73 2e 20 20 41 20   operations.  A 
1270: 76 61 6c 75 65 20 6f 66 20 7a 65 72 6f 20 6f 72  value of zero or
1280: 20 6c 65 73 73 20 6d 65 61 6e 73 20 22 64 6f 20   less means "do 
1290: 6e 6f 74 0a 20 20 20 20 23 20 20 20 20 20 20 20  not.    #       
12a0: 77 61 69 74 22 2e 0a 20 20 20 20 23 0a 20 20 20  wait"..    #.   
12b0: 20 72 65 74 75 72 6e 20 31 30 30 3b 20 23 20 54   return 100; # T
12c0: 4f 44 4f 3a 20 47 6f 6f 64 20 64 65 66 61 75 6c  ODO: Good defaul
12d0: 74 3f 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  t?.  }.  return 
12e0: 24 3a 3a 47 28 66 69 6c 65 2d 72 65 74 72 79 2d  $::G(file-retry-
12f0: 64 65 6c 61 79 29 0a 7d 0a 0a 23 20 52 65 74 75  delay).}..# Retu
1300: 72 6e 20 74 68 65 20 73 74 72 69 6e 67 20 72 65  rn the string re
1310: 70 72 65 73 65 6e 74 69 6e 67 20 74 68 65 20 6e  presenting the n
1320: 61 6d 65 20 6f 66 20 74 68 65 20 63 75 72 72 65  ame of the curre
1330: 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 20 20 4f  nt directory.  O
1340: 6e 0a 23 20 57 69 6e 64 6f 77 73 2c 20 74 68 65  n.# Windows, the
1350: 20 72 65 73 75 6c 74 20 69 73 20 22 6e 6f 72 6d   result is "norm
1360: 61 6c 69 7a 65 64 22 20 74 6f 20 77 68 61 74 65  alized" to whate
1370: 76 65 72 20 6f 75 72 20 70 61 72 65 6e 74 20 63  ver our parent c
1380: 6f 6d 6d 61 6e 64 20 73 68 65 6c 6c 0a 23 20 69  ommand shell.# i
1390: 73 20 75 73 69 6e 67 20 74 6f 20 70 72 65 76 65  s using to preve
13a0: 6e 74 20 63 61 73 65 2d 6d 69 73 6d 61 74 63 68  nt case-mismatch
13b0: 20 69 73 73 75 65 73 2e 0a 23 0a 70 72 6f 63 20   issues..#.proc 
13c0: 67 65 74 5f 70 77 64 20 7b 7d 20 7b 0a 20 20 69  get_pwd {} {.  i
13d0: 66 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f  f {$::tcl_platfo
13e0: 72 6d 28 70 6c 61 74 66 6f 72 6d 29 20 65 71 20  rm(platform) eq 
13f0: 22 77 69 6e 64 6f 77 73 22 7d 20 7b 0a 20 20 20  "windows"} {.   
1400: 20 23 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 43   #.    # NOTE: C
1410: 61 6e 6e 6f 74 20 75 73 65 20 5b 66 69 6c 65 20  annot use [file 
1420: 6e 6f 72 6d 61 6c 69 7a 65 5d 20 68 65 72 65 20  normalize] here 
1430: 62 65 63 61 75 73 65 20 69 74 20 77 6f 75 6c 64  because it would
1440: 20 61 6c 74 65 72 20 74 68 65 0a 20 20 20 20 23   alter the.    #
1450: 20 20 20 20 20 20 20 63 61 73 65 20 6f 66 20 74         case of t
1460: 68 65 20 72 65 73 75 6c 74 20 74 6f 20 77 68 61  he result to wha
1470: 74 20 54 63 6c 20 63 6f 6e 73 69 64 65 72 73 20  t Tcl considers 
1480: 63 61 6e 6f 6e 69 63 61 6c 2c 20 77 68 69 63 68  canonical, which
1490: 20 77 6f 75 6c 64 0a 20 20 20 20 23 20 20 20 20   would.    #    
14a0: 20 20 20 64 65 66 65 61 74 20 74 68 65 20 70 75     defeat the pu
14b0: 72 70 6f 73 65 20 6f 66 20 74 68 69 73 20 70 72  rpose of this pr
14c0: 6f 63 65 64 75 72 65 2e 0a 20 20 20 20 23 0a 20  ocedure..    #. 
14d0: 20 20 20 72 65 74 75 72 6e 20 5b 73 74 72 69 6e     return [strin
14e0: 67 20 6d 61 70 20 5b 6c 69 73 74 20 5c 5c 20 2f  g map [list \\ /
14f0: 5d 20 5c 0a 20 20 20 20 20 20 20 20 5b 73 74 72  ] \.        [str
1500: 69 6e 67 20 74 72 69 6d 20 5b 65 78 65 63 20 2d  ing trim [exec -
1510: 2d 20 24 3a 3a 65 6e 76 28 43 6f 6d 53 70 65 63  - $::env(ComSpec
1520: 29 20 2f 63 20 65 63 68 6f 20 25 43 44 25 5d 5d  ) /c echo %CD%]]
1530: 5d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20  ].  } else {.   
1540: 20 72 65 74 75 72 6e 20 5b 70 77 64 5d 0a 20 20   return [pwd].  
1550: 7d 0a 7d 0a 0a 23 20 43 6f 70 79 20 66 69 6c 65  }.}..# Copy file
1560: 20 24 66 72 6f 6d 20 69 6e 74 6f 20 24 74 6f 2e   $from into $to.
1570: 20 54 68 69 73 20 69 73 20 75 73 65 64 20 62 65   This is used be
1580: 63 61 75 73 65 20 73 6f 6d 65 20 76 65 72 73 69  cause some versi
1590: 6f 6e 73 20 6f 66 0a 23 20 54 43 4c 20 66 6f 72  ons of.# TCL for
15a0: 20 77 69 6e 64 6f 77 73 20 28 6e 6f 74 61 62 6c   windows (notabl
15b0: 79 20 74 68 65 20 38 2e 34 2e 31 20 62 69 6e 61  y the 8.4.1 bina
15c0: 72 79 20 70 61 63 6b 61 67 65 20 73 68 69 70 70  ry package shipp
15d0: 65 64 20 77 69 74 68 20 74 68 65 0a 23 20 63 75  ed with the.# cu
15e0: 72 72 65 6e 74 20 6d 69 6e 67 77 20 72 65 6c 65  rrent mingw rele
15f0: 61 73 65 29 20 68 61 76 65 20 61 20 62 72 6f 6b  ase) have a brok
1600: 65 6e 20 22 66 69 6c 65 20 63 6f 70 79 22 20 63  en "file copy" c
1610: 6f 6d 6d 61 6e 64 2e 0a 23 0a 70 72 6f 63 20 63  ommand..#.proc c
1620: 6f 70 79 5f 66 69 6c 65 20 7b 66 72 6f 6d 20 74  opy_file {from t
1630: 6f 7d 20 7b 0a 20 20 64 6f 5f 63 6f 70 79 5f 66  o} {.  do_copy_f
1640: 69 6c 65 20 66 61 6c 73 65 20 24 66 72 6f 6d 20  ile false $from 
1650: 24 74 6f 0a 7d 0a 0a 70 72 6f 63 20 66 6f 72 63  $to.}..proc forc
1660: 65 63 6f 70 79 20 7b 66 72 6f 6d 20 74 6f 7d 20  ecopy {from to} 
1670: 7b 0a 20 20 64 6f 5f 63 6f 70 79 5f 66 69 6c 65  {.  do_copy_file
1680: 20 74 72 75 65 20 24 66 72 6f 6d 20 24 74 6f 0a   true $from $to.
1690: 7d 0a 0a 70 72 6f 63 20 64 6f 5f 63 6f 70 79 5f  }..proc do_copy_
16a0: 66 69 6c 65 20 7b 66 6f 72 63 65 20 66 72 6f 6d  file {force from
16b0: 20 74 6f 7d 20 7b 0a 20 20 73 65 74 20 6e 52 65   to} {.  set nRe
16c0: 74 72 79 20 5b 67 65 74 46 69 6c 65 52 65 74 72  try [getFileRetr
16d0: 69 65 73 5d 20 20 20 20 20 3b 23 20 4d 61 78 69  ies]     ;# Maxi
16e0: 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 72 65  mum number of re
16f0: 74 72 69 65 73 2e 0a 20 20 73 65 74 20 6e 44 65  tries..  set nDe
1700: 6c 61 79 20 5b 67 65 74 46 69 6c 65 52 65 74 72  lay [getFileRetr
1710: 79 44 65 6c 61 79 5d 20 20 3b 23 20 44 65 6c 61  yDelay]  ;# Dela
1720: 79 20 69 6e 20 6d 73 20 62 65 66 6f 72 65 20 72  y in ms before r
1730: 65 74 72 79 69 6e 67 2e 0a 0a 20 20 23 20 4f 6e  etrying...  # On
1740: 20 77 69 6e 64 6f 77 73 2c 20 73 6f 6d 65 74 69   windows, someti
1750: 6d 65 73 20 65 76 65 6e 20 61 20 5b 66 69 6c 65  mes even a [file
1760: 20 63 6f 70 79 20 2d 66 6f 72 63 65 5d 20 63 61   copy -force] ca
1770: 6e 20 66 61 69 6c 2e 20 54 68 65 20 63 61 75 73  n fail. The caus
1780: 65 20 69 73 0a 20 20 23 20 75 73 75 61 6c 6c 79  e is.  # usually
1790: 20 22 74 61 67 2d 61 6c 6f 6e 67 73 22 20 2d 20   "tag-alongs" - 
17a0: 70 72 6f 67 72 61 6d 73 20 6c 69 6b 65 20 61 6e  programs like an
17b0: 74 69 2d 76 69 72 75 73 20 73 6f 66 74 77 61 72  ti-virus softwar
17c0: 65 2c 20 61 75 74 6f 6d 61 74 69 63 20 62 61 63  e, automatic bac
17d0: 6b 75 70 0a 20 20 23 20 74 6f 6f 6c 73 20 61 6e  kup.  # tools an
17e0: 64 20 76 61 72 69 6f 75 73 20 65 78 70 6c 6f 72  d various explor
17f0: 65 72 20 65 78 74 65 6e 73 69 6f 6e 73 20 74 68  er extensions th
1800: 61 74 20 6b 65 65 70 20 61 20 66 69 6c 65 20 6f  at keep a file o
1810: 70 65 6e 20 61 20 6c 69 74 74 6c 65 20 6c 6f 6e  pen a little lon
1820: 67 65 72 0a 20 20 23 20 74 68 61 6e 20 77 65 20  ger.  # than we 
1830: 65 78 70 65 63 74 2c 20 63 61 75 73 69 6e 67 20  expect, causing 
1840: 74 68 65 20 64 65 6c 65 74 65 20 74 6f 20 66 61  the delete to fa
1850: 69 6c 2e 0a 20 20 23 0a 20 20 23 20 54 68 65 20  il..  #.  # The 
1860: 73 6f 6c 75 74 69 6f 6e 20 69 73 20 74 6f 20 77  solution is to w
1870: 61 69 74 20 61 20 73 68 6f 72 74 20 61 6d 6f 75  ait a short amou
1880: 6e 74 20 6f 66 20 74 69 6d 65 20 62 65 66 6f 72  nt of time befor
1890: 65 20 72 65 74 72 79 69 6e 67 20 74 68 65 20 63  e retrying the c
18a0: 6f 70 79 2e 0a 20 20 23 0a 20 20 69 66 20 7b 24  opy..  #.  if {$
18b0: 6e 52 65 74 72 79 20 3e 20 30 7d 20 7b 0a 20 20  nRetry > 0} {.  
18c0: 20 20 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20    for {set i 0} 
18d0: 7b 24 69 3c 24 6e 52 65 74 72 79 7d 20 7b 69 6e  {$i<$nRetry} {in
18e0: 63 72 20 69 7d 20 7b 0a 20 20 20 20 20 20 73 65  cr i} {.      se
18f0: 74 20 72 63 20 5b 63 61 74 63 68 20 7b 0a 20 20  t rc [catch {.  
1900: 20 20 20 20 20 20 69 66 20 7b 24 66 6f 72 63 65        if {$force
1910: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 66 69  } {.          fi
1920: 6c 65 20 63 6f 70 79 20 2d 66 6f 72 63 65 20 24  le copy -force $
1930: 66 72 6f 6d 20 24 74 6f 0a 20 20 20 20 20 20 20  from $to.       
1940: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20   } else {.      
1950: 20 20 20 20 66 69 6c 65 20 63 6f 70 79 20 24 66      file copy $f
1960: 72 6f 6d 20 24 74 6f 0a 20 20 20 20 20 20 20 20  rom $to.        
1970: 7d 0a 20 20 20 20 20 20 7d 20 6d 73 67 5d 0a 20  }.      } msg]. 
1980: 20 20 20 20 20 69 66 20 7b 24 72 63 3d 3d 30 7d       if {$rc==0}
1990: 20 62 72 65 61 6b 0a 20 20 20 20 20 20 69 66 20   break.      if 
19a0: 7b 24 6e 44 65 6c 61 79 20 3e 20 30 7d 20 7b 20  {$nDelay > 0} { 
19b0: 61 66 74 65 72 20 24 6e 44 65 6c 61 79 20 7d 0a  after $nDelay }.
19c0: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 24 72      }.    if {$r
19d0: 63 7d 20 7b 20 65 72 72 6f 72 20 24 6d 73 67 20  c} { error $msg 
19e0: 7d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20  }.  } else {.   
19f0: 20 69 66 20 7b 24 66 6f 72 63 65 7d 20 7b 0a 20   if {$force} {. 
1a00: 20 20 20 20 20 66 69 6c 65 20 63 6f 70 79 20 2d       file copy -
1a10: 66 6f 72 63 65 20 24 66 72 6f 6d 20 24 74 6f 0a  force $from $to.
1a20: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20      } else {.   
1a30: 20 20 20 66 69 6c 65 20 63 6f 70 79 20 24 66 72     file copy $fr
1a40: 6f 6d 20 24 74 6f 0a 20 20 20 20 7d 0a 20 20 7d  om $to.    }.  }
1a50: 0a 7d 0a 0a 23 20 43 68 65 63 6b 20 69 66 20 61  .}..# Check if a
1a60: 20 66 69 6c 65 20 6e 61 6d 65 20 69 73 20 72 65   file name is re
1a70: 6c 61 74 69 76 65 0a 23 0a 70 72 6f 63 20 69 73  lative.#.proc is
1a80: 5f 72 65 6c 61 74 69 76 65 5f 66 69 6c 65 20 7b  _relative_file {
1a90: 20 66 69 6c 65 20 7d 20 7b 0a 20 20 72 65 74 75   file } {.  retu
1aa0: 72 6e 20 5b 65 78 70 72 20 7b 5b 66 69 6c 65 20  rn [expr {[file 
1ab0: 70 61 74 68 74 79 70 65 20 24 66 69 6c 65 5d 20  pathtype $file] 
1ac0: 21 3d 20 22 61 62 73 6f 6c 75 74 65 22 7d 5d 0a  != "absolute"}].
1ad0: 7d 0a 0a 23 20 49 66 20 74 68 65 20 56 46 53 20  }..# If the VFS 
1ae0: 73 75 70 70 6f 72 74 73 20 75 73 69 6e 67 20 74  supports using t
1af0: 68 65 20 63 75 72 72 65 6e 74 20 64 69 72 65 63  he current direc
1b00: 74 6f 72 79 2c 20 72 65 74 75 72 6e 73 20 5b 70  tory, returns [p
1b10: 77 64 5d 3b 0a 23 20 6f 74 68 65 72 77 69 73 65  wd];.# otherwise
1b20: 2c 20 69 74 20 72 65 74 75 72 6e 73 20 6f 6e 6c  , it returns onl
1b30: 79 20 74 68 65 20 70 72 6f 76 69 64 65 64 20 73  y the provided s
1b40: 75 66 66 69 78 20 73 74 72 69 6e 67 20 28 77 68  uffix string (wh
1b50: 69 63 68 20 69 73 0a 23 20 65 6d 70 74 79 20 62  ich is.# empty b
1b60: 79 20 64 65 66 61 75 6c 74 29 2e 0a 23 0a 70 72  y default)..#.pr
1b70: 6f 63 20 74 65 73 74 5f 70 77 64 20 7b 20 61 72  oc test_pwd { ar
1b80: 67 73 20 7d 20 7b 0a 20 20 69 66 20 7b 5b 6c 6c  gs } {.  if {[ll
1b90: 65 6e 67 74 68 20 24 61 72 67 73 5d 20 3e 20 30  ength $args] > 0
1ba0: 7d 20 7b 0a 20 20 20 20 73 65 74 20 73 75 66 66  } {.    set suff
1bb0: 69 78 31 20 5b 6c 69 6e 64 65 78 20 24 61 72 67  ix1 [lindex $arg
1bc0: 73 20 30 5d 0a 20 20 20 20 69 66 20 7b 5b 6c 6c  s 0].    if {[ll
1bd0: 65 6e 67 74 68 20 24 61 72 67 73 5d 20 3e 20 31  ength $args] > 1
1be0: 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 73 75  } {.      set su
1bf0: 66 66 69 78 32 20 5b 6c 69 6e 64 65 78 20 24 61  ffix2 [lindex $a
1c00: 72 67 73 20 31 5d 0a 20 20 20 20 7d 20 65 6c 73  rgs 1].    } els
1c10: 65 20 7b 0a 20 20 20 20 20 20 73 65 74 20 73 75  e {.      set su
1c20: 66 66 69 78 32 20 24 73 75 66 66 69 78 31 0a 20  ffix2 $suffix1. 
1c30: 20 20 20 7d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a     }.  } else {.
1c40: 20 20 20 20 73 65 74 20 73 75 66 66 69 78 31 20      set suffix1 
1c50: 22 22 3b 20 73 65 74 20 73 75 66 66 69 78 32 20  ""; set suffix2 
1c60: 22 22 0a 20 20 7d 0a 20 20 69 66 63 61 70 61 62  "".  }.  ifcapab
1c70: 6c 65 20 63 75 72 64 69 72 20 7b 0a 20 20 20 20  le curdir {.    
1c80: 72 65 74 75 72 6e 20 22 5b 67 65 74 5f 70 77 64  return "[get_pwd
1c90: 5d 24 73 75 66 66 69 78 31 22 0a 20 20 7d 20 65  ]$suffix1".  } e
1ca0: 6c 73 65 20 7b 0a 20 20 20 20 72 65 74 75 72 6e  lse {.    return
1cb0: 20 24 73 75 66 66 69 78 32 0a 20 20 7d 0a 7d 0a   $suffix2.  }.}.
1cc0: 0a 23 20 44 65 6c 65 74 65 20 61 20 66 69 6c 65  .# Delete a file
1cd0: 20 6f 72 20 64 69 72 65 63 74 6f 72 79 0a 23 0a   or directory.#.
1ce0: 70 72 6f 63 20 64 65 6c 65 74 65 5f 66 69 6c 65  proc delete_file
1cf0: 20 7b 61 72 67 73 7d 20 7b 0a 20 20 64 6f 5f 64   {args} {.  do_d
1d00: 65 6c 65 74 65 5f 66 69 6c 65 20 66 61 6c 73 65  elete_file false
1d10: 20 7b 2a 7d 24 61 72 67 73 0a 7d 0a 0a 70 72 6f   {*}$args.}..pro
1d20: 63 20 66 6f 72 63 65 64 65 6c 65 74 65 20 7b 61  c forcedelete {a
1d30: 72 67 73 7d 20 7b 0a 20 20 64 6f 5f 64 65 6c 65  rgs} {.  do_dele
1d40: 74 65 5f 66 69 6c 65 20 74 72 75 65 20 7b 2a 7d  te_file true {*}
1d50: 24 61 72 67 73 0a 7d 0a 0a 70 72 6f 63 20 64 6f  $args.}..proc do
1d60: 5f 64 65 6c 65 74 65 5f 66 69 6c 65 20 7b 66 6f  _delete_file {fo
1d70: 72 63 65 20 61 72 67 73 7d 20 7b 0a 20 20 73 65  rce args} {.  se
1d80: 74 20 6e 52 65 74 72 79 20 5b 67 65 74 46 69 6c  t nRetry [getFil
1d90: 65 52 65 74 72 69 65 73 5d 20 20 20 20 20 3b 23  eRetries]     ;#
1da0: 20 4d 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20   Maximum number 
1db0: 6f 66 20 72 65 74 72 69 65 73 2e 0a 20 20 73 65  of retries..  se
1dc0: 74 20 6e 44 65 6c 61 79 20 5b 67 65 74 46 69 6c  t nDelay [getFil
1dd0: 65 52 65 74 72 79 44 65 6c 61 79 5d 20 20 3b 23  eRetryDelay]  ;#
1de0: 20 44 65 6c 61 79 20 69 6e 20 6d 73 20 62 65 66   Delay in ms bef
1df0: 6f 72 65 20 72 65 74 72 79 69 6e 67 2e 0a 0a 20  ore retrying... 
1e00: 20 66 6f 72 65 61 63 68 20 66 69 6c 65 6e 61 6d   foreach filenam
1e10: 65 20 24 61 72 67 73 20 7b 0a 20 20 20 20 23 20  e $args {.    # 
1e20: 4f 6e 20 77 69 6e 64 6f 77 73 2c 20 73 6f 6d 65  On windows, some
1e30: 74 69 6d 65 73 20 65 76 65 6e 20 61 20 5b 66 69  times even a [fi
1e40: 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65  le delete -force
1e50: 5d 20 63 61 6e 20 66 61 69 6c 20 6a 75 73 74 20  ] can fail just 
1e60: 61 66 74 65 72 0a 20 20 20 20 23 20 61 20 66 69  after.    # a fi
1e70: 6c 65 20 69 73 20 63 6c 6f 73 65 64 2e 20 54 68  le is closed. Th
1e80: 65 20 63 61 75 73 65 20 69 73 20 75 73 75 61 6c  e cause is usual
1e90: 6c 79 20 22 74 61 67 2d 61 6c 6f 6e 67 73 22 20  ly "tag-alongs" 
1ea0: 2d 20 70 72 6f 67 72 61 6d 73 20 6c 69 6b 65 0a  - programs like.
1eb0: 20 20 20 20 23 20 61 6e 74 69 2d 76 69 72 75 73      # anti-virus
1ec0: 20 73 6f 66 74 77 61 72 65 2c 20 61 75 74 6f 6d   software, autom
1ed0: 61 74 69 63 20 62 61 63 6b 75 70 20 74 6f 6f 6c  atic backup tool
1ee0: 73 20 61 6e 64 20 76 61 72 69 6f 75 73 20 65 78  s and various ex
1ef0: 70 6c 6f 72 65 72 0a 20 20 20 20 23 20 65 78 74  plorer.    # ext
1f00: 65 6e 73 69 6f 6e 73 20 74 68 61 74 20 6b 65 65  ensions that kee
1f10: 70 20 61 20 66 69 6c 65 20 6f 70 65 6e 20 61 20  p a file open a 
1f20: 6c 69 74 74 6c 65 20 6c 6f 6e 67 65 72 20 74 68  little longer th
1f30: 61 6e 20 77 65 20 65 78 70 65 63 74 2c 20 63 61  an we expect, ca
1f40: 75 73 69 6e 67 0a 20 20 20 20 23 20 74 68 65 20  using.    # the 
1f50: 64 65 6c 65 74 65 20 74 6f 20 66 61 69 6c 2e 0a  delete to fail..
1f60: 20 20 20 20 23 0a 20 20 20 20 23 20 54 68 65 20      #.    # The 
1f70: 73 6f 6c 75 74 69 6f 6e 20 69 73 20 74 6f 20 77  solution is to w
1f80: 61 69 74 20 61 20 73 68 6f 72 74 20 61 6d 6f 75  ait a short amou
1f90: 6e 74 20 6f 66 20 74 69 6d 65 20 62 65 66 6f 72  nt of time befor
1fa0: 65 20 72 65 74 72 79 69 6e 67 20 74 68 65 0a 20  e retrying the. 
1fb0: 20 20 20 23 20 64 65 6c 65 74 65 2e 0a 20 20 20     # delete..   
1fc0: 20 23 0a 20 20 20 20 69 66 20 7b 24 6e 52 65 74   #.    if {$nRet
1fd0: 72 79 20 3e 20 30 7d 20 7b 0a 20 20 20 20 20 20  ry > 0} {.      
1fe0: 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24  for {set i 0} {$
1ff0: 69 3c 24 6e 52 65 74 72 79 7d 20 7b 69 6e 63 72  i<$nRetry} {incr
2000: 20 69 7d 20 7b 0a 20 20 20 20 20 20 20 20 73 65   i} {.        se
2010: 74 20 72 63 20 5b 63 61 74 63 68 20 7b 0a 20 20  t rc [catch {.  
2020: 20 20 20 20 20 20 20 20 69 66 20 7b 24 66 6f 72          if {$for
2030: 63 65 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20  ce} {.          
2040: 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66    file delete -f
2050: 6f 72 63 65 20 24 66 69 6c 65 6e 61 6d 65 0a 20  orce $filename. 
2060: 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20           } else 
2070: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 69  {.            fi
2080: 6c 65 20 64 65 6c 65 74 65 20 24 66 69 6c 65 6e  le delete $filen
2090: 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 7d 0a  ame.          }.
20a0: 20 20 20 20 20 20 20 20 7d 20 6d 73 67 5d 0a 20          } msg]. 
20b0: 20 20 20 20 20 20 20 69 66 20 7b 24 72 63 3d 3d         if {$rc==
20c0: 30 7d 20 62 72 65 61 6b 0a 20 20 20 20 20 20 20  0} break.       
20d0: 20 69 66 20 7b 24 6e 44 65 6c 61 79 20 3e 20 30   if {$nDelay > 0
20e0: 7d 20 7b 20 61 66 74 65 72 20 24 6e 44 65 6c 61  } { after $nDela
20f0: 79 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  y }.      }.    
2100: 20 20 69 66 20 7b 24 72 63 7d 20 7b 20 65 72 72    if {$rc} { err
2110: 6f 72 20 24 6d 73 67 20 7d 0a 20 20 20 20 7d 20  or $msg }.    } 
2120: 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 69 66 20  else {.      if 
2130: 7b 24 66 6f 72 63 65 7d 20 7b 0a 20 20 20 20 20  {$force} {.     
2140: 20 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2d     file delete -
2150: 66 6f 72 63 65 20 24 66 69 6c 65 6e 61 6d 65 0a  force $filename.
2160: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20        } else {. 
2170: 20 20 20 20 20 20 20 66 69 6c 65 20 64 65 6c 65         file dele
2180: 74 65 20 24 66 69 6c 65 6e 61 6d 65 0a 20 20 20  te $filename.   
2190: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d     }.    }.  }.}
21a0: 0a 0a 69 66 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61  ..if {$::tcl_pla
21b0: 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 20  tform(platform) 
21c0: 65 71 20 22 77 69 6e 64 6f 77 73 22 7d 20 7b 0a  eq "windows"} {.
21d0: 20 20 70 72 6f 63 20 64 6f 5f 72 65 6d 6f 76 65    proc do_remove
21e0: 5f 77 69 6e 33 32 5f 64 69 72 20 7b 61 72 67 73  _win32_dir {args
21f0: 7d 20 7b 0a 20 20 20 20 73 65 74 20 6e 52 65 74  } {.    set nRet
2200: 72 79 20 5b 67 65 74 46 69 6c 65 52 65 74 72 69  ry [getFileRetri
2210: 65 73 5d 20 20 20 20 20 3b 23 20 4d 61 78 69 6d  es]     ;# Maxim
2220: 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 72 65 74  um number of ret
2230: 72 69 65 73 2e 0a 20 20 20 20 73 65 74 20 6e 44  ries..    set nD
2240: 65 6c 61 79 20 5b 67 65 74 46 69 6c 65 52 65 74  elay [getFileRet
2250: 72 79 44 65 6c 61 79 5d 20 20 3b 23 20 44 65 6c  ryDelay]  ;# Del
2260: 61 79 20 69 6e 20 6d 73 20 62 65 66 6f 72 65 20  ay in ms before 
2270: 72 65 74 72 79 69 6e 67 2e 0a 0a 20 20 20 20 66  retrying...    f
2280: 6f 72 65 61 63 68 20 64 69 72 4e 61 6d 65 20 24  oreach dirName $
2290: 61 72 67 73 20 7b 0a 20 20 20 20 20 20 23 20 4f  args {.      # O
22a0: 6e 20 77 69 6e 64 6f 77 73 2c 20 73 6f 6d 65 74  n windows, somet
22b0: 69 6d 65 73 20 65 76 65 6e 20 61 20 5b 72 65 6d  imes even a [rem
22c0: 6f 76 65 5f 77 69 6e 33 32 5f 64 69 72 5d 20 63  ove_win32_dir] c
22d0: 61 6e 20 66 61 69 6c 20 6a 75 73 74 20 61 66 74  an fail just aft
22e0: 65 72 0a 20 20 20 20 20 20 23 20 61 20 64 69 72  er.      # a dir
22f0: 65 63 74 6f 72 79 20 69 73 20 65 6d 70 74 69 65  ectory is emptie
2300: 64 2e 20 54 68 65 20 63 61 75 73 65 20 69 73 20  d. The cause is 
2310: 75 73 75 61 6c 6c 79 20 22 74 61 67 2d 61 6c 6f  usually "tag-alo
2320: 6e 67 73 22 20 2d 20 70 72 6f 67 72 61 6d 73 0a  ngs" - programs.
2330: 20 20 20 20 20 20 23 20 6c 69 6b 65 20 61 6e 74        # like ant
2340: 69 2d 76 69 72 75 73 20 73 6f 66 74 77 61 72 65  i-virus software
2350: 2c 20 61 75 74 6f 6d 61 74 69 63 20 62 61 63 6b  , automatic back
2360: 75 70 20 74 6f 6f 6c 73 20 61 6e 64 20 76 61 72  up tools and var
2370: 69 6f 75 73 20 65 78 70 6c 6f 72 65 72 0a 20 20  ious explorer.  
2380: 20 20 20 20 23 20 65 78 74 65 6e 73 69 6f 6e 73      # extensions
2390: 20 74 68 61 74 20 6b 65 65 70 20 61 20 66 69 6c   that keep a fil
23a0: 65 20 6f 70 65 6e 20 61 20 6c 69 74 74 6c 65 20  e open a little 
23b0: 6c 6f 6e 67 65 72 20 74 68 61 6e 20 77 65 20 65  longer than we e
23c0: 78 70 65 63 74 2c 0a 20 20 20 20 20 20 23 20 63  xpect,.      # c
23d0: 61 75 73 69 6e 67 20 74 68 65 20 64 65 6c 65 74  ausing the delet
23e0: 65 20 74 6f 20 66 61 69 6c 2e 0a 20 20 20 20 20  e to fail..     
23f0: 20 23 0a 20 20 20 20 20 20 23 20 54 68 65 20 73   #.      # The s
2400: 6f 6c 75 74 69 6f 6e 20 69 73 20 74 6f 20 77 61  olution is to wa
2410: 69 74 20 61 20 73 68 6f 72 74 20 61 6d 6f 75 6e  it a short amoun
2420: 74 20 6f 66 20 74 69 6d 65 20 62 65 66 6f 72 65  t of time before
2430: 20 72 65 74 72 79 69 6e 67 20 74 68 65 0a 20 20   retrying the.  
2440: 20 20 20 20 23 20 72 65 6d 6f 76 61 6c 2e 0a 20      # removal.. 
2450: 20 20 20 20 20 23 0a 20 20 20 20 20 20 69 66 20       #.      if 
2460: 7b 24 6e 52 65 74 72 79 20 3e 20 30 7d 20 7b 0a  {$nRetry > 0} {.
2470: 20 20 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74          for {set
2480: 20 69 20 30 7d 20 7b 24 69 20 3c 20 24 6e 52 65   i 0} {$i < $nRe
2490: 74 72 79 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a  try} {incr i} {.
24a0: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 72 63            set rc
24b0: 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 20 20   [catch {.      
24c0: 20 20 20 20 20 20 72 65 6d 6f 76 65 5f 77 69 6e        remove_win
24d0: 33 32 5f 64 69 72 20 24 64 69 72 4e 61 6d 65 0a  32_dir $dirName.
24e0: 20 20 20 20 20 20 20 20 20 20 7d 20 6d 73 67 5d            } msg]
24f0: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 24  .          if {$
2500: 72 63 20 3d 3d 20 30 7d 20 62 72 65 61 6b 0a 20  rc == 0} break. 
2510: 20 20 20 20 20 20 20 20 20 69 66 20 7b 24 6e 44           if {$nD
2520: 65 6c 61 79 20 3e 20 30 7d 20 7b 20 61 66 74 65  elay > 0} { afte
2530: 72 20 24 6e 44 65 6c 61 79 20 7d 0a 20 20 20 20  r $nDelay }.    
2540: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66      }.        if
2550: 20 7b 24 72 63 7d 20 7b 20 65 72 72 6f 72 20 24   {$rc} { error $
2560: 6d 73 67 20 7d 0a 20 20 20 20 20 20 7d 20 65 6c  msg }.      } el
2570: 73 65 20 7b 0a 20 20 20 20 20 20 20 20 72 65 6d  se {.        rem
2580: 6f 76 65 5f 77 69 6e 33 32 5f 64 69 72 20 24 64  ove_win32_dir $d
2590: 69 72 4e 61 6d 65 0a 20 20 20 20 20 20 7d 0a 20  irName.      }. 
25a0: 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 70 72 6f 63     }.  }..  proc
25b0: 20 64 6f 5f 64 65 6c 65 74 65 5f 77 69 6e 33 32   do_delete_win32
25c0: 5f 66 69 6c 65 20 7b 61 72 67 73 7d 20 7b 0a 20  _file {args} {. 
25d0: 20 20 20 73 65 74 20 6e 52 65 74 72 79 20 5b 67     set nRetry [g
25e0: 65 74 46 69 6c 65 52 65 74 72 69 65 73 5d 20 20  etFileRetries]  
25f0: 20 20 20 3b 23 20 4d 61 78 69 6d 75 6d 20 6e 75     ;# Maximum nu
2600: 6d 62 65 72 20 6f 66 20 72 65 74 72 69 65 73 2e  mber of retries.
2610: 0a 20 20 20 20 73 65 74 20 6e 44 65 6c 61 79 20  .    set nDelay 
2620: 5b 67 65 74 46 69 6c 65 52 65 74 72 79 44 65 6c  [getFileRetryDel
2630: 61 79 5d 20 20 3b 23 20 44 65 6c 61 79 20 69 6e  ay]  ;# Delay in
2640: 20 6d 73 20 62 65 66 6f 72 65 20 72 65 74 72 79   ms before retry
2650: 69 6e 67 2e 0a 0a 20 20 20 20 66 6f 72 65 61 63  ing...    foreac
2660: 68 20 66 69 6c 65 4e 61 6d 65 20 24 61 72 67 73  h fileName $args
2670: 20 7b 0a 20 20 20 20 20 20 23 20 4f 6e 20 77 69   {.      # On wi
2680: 6e 64 6f 77 73 2c 20 73 6f 6d 65 74 69 6d 65 73  ndows, sometimes
2690: 20 65 76 65 6e 20 61 20 5b 64 65 6c 65 74 65 5f   even a [delete_
26a0: 77 69 6e 33 32 5f 66 69 6c 65 5d 20 63 61 6e 20  win32_file] can 
26b0: 66 61 69 6c 20 6a 75 73 74 20 61 66 74 65 72 0a  fail just after.
26c0: 20 20 20 20 20 20 23 20 61 20 66 69 6c 65 20 69        # a file i
26d0: 73 20 63 6c 6f 73 65 64 2e 20 54 68 65 20 63 61  s closed. The ca
26e0: 75 73 65 20 69 73 20 75 73 75 61 6c 6c 79 20 22  use is usually "
26f0: 74 61 67 2d 61 6c 6f 6e 67 73 22 20 2d 20 70 72  tag-alongs" - pr
2700: 6f 67 72 61 6d 73 20 6c 69 6b 65 0a 20 20 20 20  ograms like.    
2710: 20 20 23 20 61 6e 74 69 2d 76 69 72 75 73 20 73    # anti-virus s
2720: 6f 66 74 77 61 72 65 2c 20 61 75 74 6f 6d 61 74  oftware, automat
2730: 69 63 20 62 61 63 6b 75 70 20 74 6f 6f 6c 73 20  ic backup tools 
2740: 61 6e 64 20 76 61 72 69 6f 75 73 20 65 78 70 6c  and various expl
2750: 6f 72 65 72 0a 20 20 20 20 20 20 23 20 65 78 74  orer.      # ext
2760: 65 6e 73 69 6f 6e 73 20 74 68 61 74 20 6b 65 65  ensions that kee
2770: 70 20 61 20 66 69 6c 65 20 6f 70 65 6e 20 61 20  p a file open a 
2780: 6c 69 74 74 6c 65 20 6c 6f 6e 67 65 72 20 74 68  little longer th
2790: 61 6e 20 77 65 20 65 78 70 65 63 74 2c 0a 20 20  an we expect,.  
27a0: 20 20 20 20 23 20 63 61 75 73 69 6e 67 20 74 68      # causing th
27b0: 65 20 64 65 6c 65 74 65 20 74 6f 20 66 61 69 6c  e delete to fail
27c0: 2e 0a 20 20 20 20 20 20 23 0a 20 20 20 20 20 20  ..      #.      
27d0: 23 20 54 68 65 20 73 6f 6c 75 74 69 6f 6e 20 69  # The solution i
27e0: 73 20 74 6f 20 77 61 69 74 20 61 20 73 68 6f 72  s to wait a shor
27f0: 74 20 61 6d 6f 75 6e 74 20 6f 66 20 74 69 6d 65  t amount of time
2800: 20 62 65 66 6f 72 65 20 72 65 74 72 79 69 6e 67   before retrying
2810: 20 74 68 65 0a 20 20 20 20 20 20 23 20 64 65 6c   the.      # del
2820: 65 74 65 2e 0a 20 20 20 20 20 20 23 0a 20 20 20  ete..      #.   
2830: 20 20 20 69 66 20 7b 24 6e 52 65 74 72 79 20 3e     if {$nRetry >
2840: 20 30 7d 20 7b 0a 20 20 20 20 20 20 20 20 66 6f   0} {.        fo
2850: 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 20  r {set i 0} {$i 
2860: 3c 20 24 6e 52 65 74 72 79 7d 20 7b 69 6e 63 72  < $nRetry} {incr
2870: 20 69 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20   i} {.          
2880: 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b 0a  set rc [catch {.
2890: 20 20 20 20 20 20 20 20 20 20 20 20 64 65 6c 65              dele
28a0: 74 65 5f 77 69 6e 33 32 5f 66 69 6c 65 20 24 66  te_win32_file $f
28b0: 69 6c 65 4e 61 6d 65 0a 20 20 20 20 20 20 20 20  ileName.        
28c0: 20 20 7d 20 6d 73 67 5d 0a 20 20 20 20 20 20 20    } msg].       
28d0: 20 20 20 69 66 20 7b 24 72 63 20 3d 3d 20 30 7d     if {$rc == 0}
28e0: 20 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 20   break.         
28f0: 20 69 66 20 7b 24 6e 44 65 6c 61 79 20 3e 20 30   if {$nDelay > 0
2900: 7d 20 7b 20 61 66 74 65 72 20 24 6e 44 65 6c 61  } { after $nDela
2910: 79 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  y }.        }.  
2920: 20 20 20 20 20 20 69 66 20 7b 24 72 63 7d 20 7b        if {$rc} {
2930: 20 65 72 72 6f 72 20 24 6d 73 67 20 7d 0a 20 20   error $msg }.  
2940: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20      } else {.   
2950: 20 20 20 20 20 64 65 6c 65 74 65 5f 77 69 6e 33       delete_win3
2960: 32 5f 66 69 6c 65 20 24 66 69 6c 65 4e 61 6d 65  2_file $fileName
2970: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20  .      }.    }. 
2980: 20 7d 0a 7d 0a 0a 70 72 6f 63 20 65 78 65 63 70   }.}..proc execp
2990: 72 65 73 71 6c 20 7b 68 61 6e 64 6c 65 20 61 72  resql {handle ar
29a0: 67 73 7d 20 7b 0a 20 20 74 72 61 63 65 20 72 65  gs} {.  trace re
29b0: 6d 6f 76 65 20 65 78 65 63 75 74 69 6f 6e 20 24  move execution $
29c0: 68 61 6e 64 6c 65 20 65 6e 74 65 72 20 5b 6c 69  handle enter [li
29d0: 73 74 20 65 78 65 63 70 72 65 73 71 6c 20 24 68  st execpresql $h
29e0: 61 6e 64 6c 65 5d 0a 20 20 69 66 20 7b 5b 69 6e  andle].  if {[in
29f0: 66 6f 20 65 78 69 73 74 73 20 3a 3a 47 28 70 65  fo exists ::G(pe
2a00: 72 6d 3a 70 72 65 73 71 6c 29 5d 7d 20 7b 0a 20  rm:presql)]} {. 
2a10: 20 20 20 24 68 61 6e 64 6c 65 20 65 76 61 6c 20     $handle eval 
2a20: 24 3a 3a 47 28 70 65 72 6d 3a 70 72 65 73 71 6c  $::G(perm:presql
2a30: 29 0a 20 20 7d 0a 7d 0a 0a 23 20 54 68 69 73 20  ).  }.}..# This 
2a40: 63 6f 6d 6d 61 6e 64 20 73 68 6f 75 6c 64 20 62  command should b
2a50: 65 20 63 61 6c 6c 65 64 20 61 66 74 65 72 20 6c  e called after l
2a60: 6f 61 64 69 6e 67 20 74 65 73 74 65 72 2e 74 63  oading tester.tc
2a70: 6c 20 66 72 6f 6d 20 77 69 74 68 69 6e 0a 23 20  l from within.# 
2a80: 61 6c 6c 20 74 65 73 74 20 73 63 72 69 70 74 73  all test scripts
2a90: 20 74 68 61 74 20 61 72 65 20 69 6e 63 6f 6d 70   that are incomp
2aa0: 61 74 69 62 6c 65 20 77 69 74 68 20 65 6e 63 72  atible with encr
2ab0: 79 70 74 69 6f 6e 20 63 6f 64 65 63 73 2e 0a 23  yption codecs..#
2ac0: 0a 70 72 6f 63 20 64 6f 5f 6e 6f 74 5f 75 73 65  .proc do_not_use
2ad0: 5f 63 6f 64 65 63 20 7b 7d 20 7b 0a 20 20 73 65  _codec {} {.  se
2ae0: 74 20 3a 3a 64 6f 5f 6e 6f 74 5f 75 73 65 5f 63  t ::do_not_use_c
2af0: 6f 64 65 63 20 31 0a 20 20 72 65 73 65 74 5f 64  odec 1.  reset_d
2b00: 62 0a 7d 0a 0a 23 20 54 68 65 20 66 6f 6c 6c 6f  b.}..# The follo
2b10: 77 69 6e 67 20 62 6c 6f 63 6b 20 6f 6e 6c 79 20  wing block only 
2b20: 72 75 6e 73 20 74 68 65 20 66 69 72 73 74 20 74  runs the first t
2b30: 69 6d 65 20 74 68 69 73 20 66 69 6c 65 20 69 73  ime this file is
2b40: 20 73 6f 75 72 63 65 64 2e 20 49 74 0a 23 20 64   sourced. It.# d
2b50: 6f 65 73 20 6e 6f 74 20 72 75 6e 20 69 6e 20 73  oes not run in s
2b60: 6c 61 76 65 20 69 6e 74 65 72 70 72 65 74 65 72  lave interpreter
2b70: 73 20 28 73 69 6e 63 65 20 74 68 65 20 3a 3a 63  s (since the ::c
2b80: 6d 64 6c 69 6e 65 61 72 67 20 61 72 72 61 79 20  mdlinearg array 
2b90: 69 73 0a 23 20 70 6f 70 75 6c 61 74 65 64 20 62  is.# populated b
2ba0: 65 66 6f 72 65 20 74 68 65 20 74 65 73 74 20 73  efore the test s
2bb0: 63 72 69 70 74 20 69 73 20 72 75 6e 20 69 6e 20  cript is run in 
2bc0: 73 6c 61 76 65 20 69 6e 74 65 72 70 72 65 74 65  slave interprete
2bd0: 72 73 29 2e 0a 23 0a 69 66 20 7b 5b 69 6e 66 6f  rs)..#.if {[info
2be0: 20 65 78 69 73 74 73 20 63 6d 64 6c 69 6e 65 61   exists cmdlinea
2bf0: 72 67 5d 3d 3d 30 7d 20 7b 0a 0a 20 20 23 20 50  rg]==0} {..  # P
2c00: 61 72 73 65 20 61 6e 79 20 6f 70 74 69 6f 6e 73  arse any options
2c10: 20 73 70 65 63 69 66 69 65 64 20 69 6e 20 74 68   specified in th
2c20: 65 20 24 61 72 67 76 20 61 72 72 61 79 2e 20 54  e $argv array. T
2c30: 68 69 73 20 73 63 72 69 70 74 20 61 63 63 65 70  his script accep
2c40: 74 73 20 74 68 65 0a 20 20 23 20 66 6f 6c 6c 6f  ts the.  # follo
2c50: 77 69 6e 67 20 6f 70 74 69 6f 6e 73 3a 0a 20 20  wing options:.  
2c60: 23 0a 20 20 23 20 20 20 2d 2d 70 61 75 73 65 0a  #.  #   --pause.
2c70: 20 20 23 20 20 20 2d 2d 73 6f 66 74 2d 68 65 61    #   --soft-hea
2c80: 70 2d 6c 69 6d 69 74 3d 4e 4e 0a 20 20 23 20 20  p-limit=NN.  #  
2c90: 20 2d 2d 6d 61 78 65 72 72 6f 72 3d 4e 4e 0a 20   --maxerror=NN. 
2ca0: 20 23 20 20 20 2d 2d 6d 61 6c 6c 6f 63 74 72 61   #   --malloctra
2cb0: 63 65 3d 4e 0a 20 20 23 20 20 20 2d 2d 62 61 63  ce=N.  #   --bac
2cc0: 6b 74 72 61 63 65 3d 4e 0a 20 20 23 20 20 20 2d  ktrace=N.  #   -
2cd0: 2d 62 69 6e 61 72 79 6c 6f 67 3d 4e 0a 20 20 23  -binarylog=N.  #
2ce0: 20 20 20 2d 2d 73 6f 61 6b 3d 4e 0a 20 20 23 20     --soak=N.  # 
2cf0: 20 20 2d 2d 66 69 6c 65 2d 72 65 74 72 69 65 73    --file-retries
2d00: 3d 4e 0a 20 20 23 20 20 20 2d 2d 66 69 6c 65 2d  =N.  #   --file-
2d10: 72 65 74 72 79 2d 64 65 6c 61 79 3d 4e 0a 20 20  retry-delay=N.  
2d20: 23 20 20 20 2d 2d 73 74 61 72 74 3d 5b 24 70 65  #   --start=[$pe
2d30: 72 6d 75 74 61 74 69 6f 6e 3a 5d 24 74 65 73 74  rmutation:]$test
2d40: 66 69 6c 65 0a 20 20 23 20 20 20 2d 2d 6d 61 74  file.  #   --mat
2d50: 63 68 3d 24 70 61 74 74 65 72 6e 0a 20 20 23 0a  ch=$pattern.  #.
2d60: 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67    set cmdlinearg
2d70: 28 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74  (soft-heap-limit
2d80: 29 20 20 20 20 30 0a 20 20 73 65 74 20 63 6d 64  )    0.  set cmd
2d90: 6c 69 6e 65 61 72 67 28 6d 61 78 65 72 72 6f 72  linearg(maxerror
2da0: 29 20 20 20 20 20 20 20 20 31 30 30 30 0a 20 20  )        1000.  
2db0: 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 6d  set cmdlinearg(m
2dc0: 61 6c 6c 6f 63 74 72 61 63 65 29 20 20 20 20 20  alloctrace)     
2dd0: 20 20 20 30 0a 20 20 73 65 74 20 63 6d 64 6c 69     0.  set cmdli
2de0: 6e 65 61 72 67 28 62 61 63 6b 74 72 61 63 65 29  nearg(backtrace)
2df0: 20 20 20 20 20 20 20 20 20 31 30 0a 20 20 73 65           10.  se
2e00: 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 62 69 6e  t cmdlinearg(bin
2e10: 61 72 79 6c 6f 67 29 20 20 20 20 20 20 20 20 20  arylog)         
2e20: 20 30 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e 65   0.  set cmdline
2e30: 61 72 67 28 73 6f 61 6b 29 20 20 20 20 20 20 20  arg(soak)       
2e40: 20 20 20 20 20 20 20 20 30 0a 20 20 73 65 74 20          0.  set 
2e50: 63 6d 64 6c 69 6e 65 61 72 67 28 66 69 6c 65 2d  cmdlinearg(file-
2e60: 72 65 74 72 69 65 73 29 20 20 20 20 20 20 20 30  retries)       0
2e70: 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72  .  set cmdlinear
2e80: 67 28 66 69 6c 65 2d 72 65 74 72 79 2d 64 65 6c  g(file-retry-del
2e90: 61 79 29 20 20 20 30 0a 20 20 73 65 74 20 63 6d  ay)   0.  set cm
2ea0: 64 6c 69 6e 65 61 72 67 28 73 74 61 72 74 29 20  dlinearg(start) 
2eb0: 20 20 20 20 20 20 20 20 20 20 20 20 22 22 0a 20              "". 
2ec0: 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 28   set cmdlinearg(
2ed0: 6d 61 74 63 68 29 20 20 20 20 20 20 20 20 20 20  match)          
2ee0: 20 20 20 22 22 0a 0a 20 20 73 65 74 20 6c 65 66     ""..  set lef
2ef0: 74 6f 76 65 72 20 5b 6c 69 73 74 5d 0a 20 20 66  tover [list].  f
2f00: 6f 72 65 61 63 68 20 61 20 24 61 72 67 76 20 7b  oreach a $argv {
2f10: 0a 20 20 20 20 73 77 69 74 63 68 20 2d 72 65 67  .    switch -reg
2f20: 65 78 70 20 2d 2d 20 24 61 20 7b 0a 20 20 20 20  exp -- $a {.    
2f30: 20 20 7b 5e 2d 2b 70 61 75 73 65 24 7d 20 7b 0a    {^-+pause$} {.
2f40: 20 20 20 20 20 20 20 20 23 20 57 61 69 74 20 66          # Wait f
2f50: 6f 72 20 75 73 65 72 20 69 6e 70 75 74 20 62 65  or user input be
2f60: 66 6f 72 65 20 63 6f 6e 74 69 6e 75 69 6e 67 2e  fore continuing.
2f70: 20 54 68 69 73 20 69 73 20 74 6f 20 67 69 76 65   This is to give
2f80: 20 74 68 65 20 75 73 65 72 20 61 6e 0a 20 20 20   the user an.   
2f90: 20 20 20 20 20 23 20 6f 70 70 6f 72 74 75 6e 69       # opportuni
2fa0: 74 79 20 74 6f 20 63 6f 6e 6e 65 63 74 20 70 72  ty to connect pr
2fb0: 6f 66 69 6c 69 6e 67 20 74 6f 6f 6c 73 20 74 6f  ofiling tools to
2fc0: 20 74 68 65 20 70 72 6f 63 65 73 73 2e 0a 20 20   the process..  
2fd0: 20 20 20 20 20 20 70 75 74 73 20 2d 6e 6f 6e 65        puts -none
2fe0: 77 6c 69 6e 65 20 22 50 72 65 73 73 20 52 45 54  wline "Press RET
2ff0: 55 52 4e 20 74 6f 20 62 65 67 69 6e 2e 2e 2e 22  URN to begin..."
3000: 0a 20 20 20 20 20 20 20 20 66 6c 75 73 68 20 73  .        flush s
3010: 74 64 6f 75 74 0a 20 20 20 20 20 20 20 20 67 65  tdout.        ge
3020: 74 73 20 73 74 64 69 6e 0a 20 20 20 20 20 20 7d  ts stdin.      }
3030: 0a 20 20 20 20 20 20 7b 5e 2d 2b 73 6f 66 74 2d  .      {^-+soft-
3040: 68 65 61 70 2d 6c 69 6d 69 74 3d 2e 2b 24 7d 20  heap-limit=.+$} 
3050: 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61 63  {.        foreac
3060: 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65  h {dummy cmdline
3070: 61 72 67 28 73 6f 66 74 2d 68 65 61 70 2d 6c 69  arg(soft-heap-li
3080: 6d 69 74 29 7d 20 5b 73 70 6c 69 74 20 24 61 20  mit)} [split $a 
3090: 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20 20 20 7d  =] break.      }
30a0: 0a 20 20 20 20 20 20 7b 5e 2d 2b 6d 61 78 65 72  .      {^-+maxer
30b0: 72 6f 72 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20  ror=.+$} {.     
30c0: 20 20 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d     foreach {dumm
30d0: 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 78  y cmdlinearg(max
30e0: 65 72 72 6f 72 29 7d 20 5b 73 70 6c 69 74 20 24  error)} [split $
30f0: 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20 20  a =] break.     
3100: 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 6d 61 6c   }.      {^-+mal
3110: 6c 6f 63 74 72 61 63 65 3d 2e 2b 24 7d 20 7b 0a  loctrace=.+$} {.
3120: 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20          foreach 
3130: 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72  {dummy cmdlinear
3140: 67 28 6d 61 6c 6c 6f 63 74 72 61 63 65 29 7d 20  g(malloctrace)} 
3150: 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20 62 72 65  [split $a =] bre
3160: 61 6b 0a 20 20 20 20 20 20 20 20 69 66 20 7b 24  ak.        if {$
3170: 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 6c 6c 6f  cmdlinearg(mallo
3180: 63 74 72 61 63 65 29 7d 20 7b 0a 20 20 20 20 20  ctrace)} {.     
3190: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d       sqlite3_mem
31a0: 64 65 62 75 67 5f 6c 6f 67 20 73 74 61 72 74 0a  debug_log start.
31b0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
31c0: 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 62 61 63 6b  }.      {^-+back
31d0: 74 72 61 63 65 3d 2e 2b 24 7d 20 7b 0a 20 20 20  trace=.+$} {.   
31e0: 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64 75       foreach {du
31f0: 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 62  mmy cmdlinearg(b
3200: 61 63 6b 74 72 61 63 65 29 7d 20 5b 73 70 6c 69  acktrace)} [spli
3210: 74 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20  t $a =] break.  
3220: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65        sqlite3_me
3230: 6d 64 65 62 75 67 5f 62 61 63 6b 74 72 61 63 65  mdebug_backtrace
3240: 20 24 76 61 6c 75 65 0a 20 20 20 20 20 20 7d 0a   $value.      }.
3250: 20 20 20 20 20 20 7b 5e 2d 2b 62 69 6e 61 72 79        {^-+binary
3260: 6c 6f 67 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20  log=.+$} {.     
3270: 20 20 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d     foreach {dumm
3280: 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 62 69 6e  y cmdlinearg(bin
3290: 61 72 79 6c 6f 67 29 7d 20 5b 73 70 6c 69 74 20  arylog)} [split 
32a0: 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20  $a =] break.    
32b0: 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 73 6f    }.      {^-+so
32c0: 61 6b 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20  ak=.+$} {.      
32d0: 20 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79    foreach {dummy
32e0: 20 63 6d 64 6c 69 6e 65 61 72 67 28 73 6f 61 6b   cmdlinearg(soak
32f0: 29 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20  )} [split $a =] 
3300: 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 73 65  break.        se
3310: 74 20 3a 3a 47 28 69 73 73 6f 61 6b 29 20 24 63  t ::G(issoak) $c
3320: 6d 64 6c 69 6e 65 61 72 67 28 73 6f 61 6b 29 0a  mdlinearg(soak).
3330: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e        }.      {^
3340: 2d 2b 66 69 6c 65 2d 72 65 74 72 69 65 73 3d 2e  -+file-retries=.
3350: 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20 20 66 6f  +$} {.        fo
3360: 72 65 61 63 68 20 7b 64 75 6d 6d 79 20 63 6d 64  reach {dummy cmd
3370: 6c 69 6e 65 61 72 67 28 66 69 6c 65 2d 72 65 74  linearg(file-ret
3380: 72 69 65 73 29 7d 20 5b 73 70 6c 69 74 20 24 61  ries)} [split $a
3390: 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20 20 20   =] break.      
33a0: 20 20 73 65 74 20 3a 3a 47 28 66 69 6c 65 2d 72    set ::G(file-r
33b0: 65 74 72 69 65 73 29 20 24 63 6d 64 6c 69 6e 65  etries) $cmdline
33c0: 61 72 67 28 66 69 6c 65 2d 72 65 74 72 69 65 73  arg(file-retries
33d0: 29 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  ).      }.      
33e0: 7b 5e 2d 2b 66 69 6c 65 2d 72 65 74 72 79 2d 64  {^-+file-retry-d
33f0: 65 6c 61 79 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20  elay=.+$} {.    
3400: 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64 75 6d      foreach {dum
3410: 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 66 69  my cmdlinearg(fi
3420: 6c 65 2d 72 65 74 72 79 2d 64 65 6c 61 79 29 7d  le-retry-delay)}
3430: 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20 62 72   [split $a =] br
3440: 65 61 6b 0a 20 20 20 20 20 20 20 20 73 65 74 20  eak.        set 
3450: 3a 3a 47 28 66 69 6c 65 2d 72 65 74 72 79 2d 64  ::G(file-retry-d
3460: 65 6c 61 79 29 20 24 63 6d 64 6c 69 6e 65 61 72  elay) $cmdlinear
3470: 67 28 66 69 6c 65 2d 72 65 74 72 79 2d 64 65 6c  g(file-retry-del
3480: 61 79 29 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  ay).      }.    
3490: 20 20 7b 5e 2d 2b 73 74 61 72 74 3d 2e 2b 24 7d    {^-+start=.+$}
34a0: 20 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61   {.        forea
34b0: 63 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e  ch {dummy cmdlin
34c0: 65 61 72 67 28 73 74 61 72 74 29 7d 20 5b 73 70  earg(start)} [sp
34d0: 6c 69 74 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a  lit $a =] break.
34e0: 0a 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 47  .        set ::G
34f0: 28 73 74 61 72 74 3a 66 69 6c 65 29 20 24 63 6d  (start:file) $cm
3500: 64 6c 69 6e 65 61 72 67 28 73 74 61 72 74 29 0a  dlinearg(start).
3510: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 72 65 67          if {[reg
3520: 65 78 70 20 7b 28 2e 2a 29 3a 28 2e 2a 29 7d 20  exp {(.*):(.*)} 
3530: 24 63 6d 64 6c 69 6e 65 61 72 67 28 73 74 61 72  $cmdlinearg(star
3540: 74 29 20 2d 3e 20 73 2e 70 65 72 6d 20 73 2e 66  t) -> s.perm s.f
3550: 69 6c 65 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20  ile]} {.        
3560: 20 20 73 65 74 20 3a 3a 47 28 73 74 61 72 74 3a    set ::G(start:
3570: 70 65 72 6d 75 74 61 74 69 6f 6e 29 20 24 7b 73  permutation) ${s
3580: 2e 70 65 72 6d 7d 0a 20 20 20 20 20 20 20 20 20  .perm}.         
3590: 20 73 65 74 20 3a 3a 47 28 73 74 61 72 74 3a 66   set ::G(start:f
35a0: 69 6c 65 29 20 20 20 20 20 20 20 20 24 7b 73 2e  ile)        ${s.
35b0: 66 69 6c 65 7d 0a 20 20 20 20 20 20 20 20 7d 0a  file}.        }.
35c0: 20 20 20 20 20 20 20 20 69 66 20 7b 24 3a 3a 47          if {$::G
35d0: 28 73 74 61 72 74 3a 66 69 6c 65 29 20 3d 3d 20  (start:file) == 
35e0: 22 22 7d 20 7b 75 6e 73 65 74 20 3a 3a 47 28 73  ""} {unset ::G(s
35f0: 74 61 72 74 3a 66 69 6c 65 29 7d 0a 20 20 20 20  tart:file)}.    
3600: 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 6d 61    }.      {^-+ma
3610: 74 63 68 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20  tch=.+$} {.     
3620: 20 20 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d     foreach {dumm
3630: 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 74  y cmdlinearg(mat
3640: 63 68 29 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d  ch)} [split $a =
3650: 5d 20 62 72 65 61 6b 0a 0a 20 20 20 20 20 20 20  ] break..       
3660: 20 73 65 74 20 3a 3a 47 28 6d 61 74 63 68 29 20   set ::G(match) 
3670: 24 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 74 63  $cmdlinearg(matc
3680: 68 29 0a 20 20 20 20 20 20 20 20 69 66 20 7b 24  h).        if {$
3690: 3a 3a 47 28 6d 61 74 63 68 29 20 3d 3d 20 22 22  ::G(match) == ""
36a0: 7d 20 7b 75 6e 73 65 74 20 3a 3a 47 28 6d 61 74  } {unset ::G(mat
36b0: 63 68 29 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20  ch)}.      }.   
36c0: 20 20 20 64 65 66 61 75 6c 74 20 7b 0a 20 20 20     default {.   
36d0: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 6c 65 66       lappend lef
36e0: 74 6f 76 65 72 20 24 61 0a 20 20 20 20 20 20 7d  tover $a.      }
36f0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 65 74  .    }.  }.  set
3700: 20 61 72 67 76 20 24 6c 65 66 74 6f 76 65 72 0a   argv $leftover.
3710: 0a 20 20 23 20 49 6e 73 74 61 6c 6c 20 74 68 65  .  # Install the
3720: 20 6d 61 6c 6c 6f 63 20 6c 61 79 65 72 20 75 73   malloc layer us
3730: 65 64 20 74 6f 20 69 6e 6a 65 63 74 20 4f 4f 4d  ed to inject OOM
3740: 20 65 72 72 6f 72 73 2e 20 41 6e 64 20 74 68 65   errors. And the
3750: 20 27 61 75 74 6f 6d 61 74 69 63 27 0a 20 20 23   'automatic'.  #
3760: 20 65 78 74 65 6e 73 69 6f 6e 73 2e 20 54 68 69   extensions. Thi
3770: 73 20 6f 6e 6c 79 20 6e 65 65 64 73 20 74 6f 20  s only needs to 
3780: 62 65 20 64 6f 6e 65 20 6f 6e 63 65 20 66 6f 72  be done once for
3790: 20 74 68 65 20 70 72 6f 63 65 73 73 2e 0a 20 20   the process..  
37a0: 23 0a 20 20 73 71 6c 69 74 65 33 5f 73 68 75 74  #.  sqlite3_shut
37b0: 64 6f 77 6e 0a 20 20 69 6e 73 74 61 6c 6c 5f 6d  down.  install_m
37c0: 61 6c 6c 6f 63 5f 66 61 75 6c 74 73 69 6d 20 31  alloc_faultsim 1
37d0: 0a 20 20 73 71 6c 69 74 65 33 5f 69 6e 69 74 69  .  sqlite3_initi
37e0: 61 6c 69 7a 65 0a 20 20 61 75 74 6f 69 6e 73 74  alize.  autoinst
37f0: 61 6c 6c 5f 74 65 73 74 5f 66 75 6e 63 74 69 6f  all_test_functio
3800: 6e 73 0a 0a 20 20 23 20 49 66 20 74 68 65 20 2d  ns..  # If the -
3810: 2d 62 69 6e 61 72 79 6c 6f 67 20 6f 70 74 69 6f  -binarylog optio
3820: 6e 20 77 61 73 20 73 70 65 63 69 66 69 65 64 2c  n was specified,
3830: 20 63 72 65 61 74 65 20 74 68 65 20 6c 6f 67 67   create the logg
3840: 69 6e 67 20 56 46 53 2e 20 54 68 69 73 0a 20 20  ing VFS. This.  
3850: 23 20 63 61 6c 6c 20 69 6e 73 74 61 6c 6c 73 20  # call installs 
3860: 74 68 65 20 6e 65 77 20 56 46 53 20 61 73 20 74  the new VFS as t
3870: 68 65 20 64 65 66 61 75 6c 74 20 66 6f 72 20 61  he default for a
3880: 6c 6c 20 53 51 4c 69 74 65 20 63 6f 6e 6e 65 63  ll SQLite connec
3890: 74 69 6f 6e 73 2e 0a 20 20 23 0a 20 20 69 66 20  tions..  #.  if 
38a0: 7b 24 63 6d 64 6c 69 6e 65 61 72 67 28 62 69 6e  {$cmdlinearg(bin
38b0: 61 72 79 6c 6f 67 29 7d 20 7b 0a 20 20 20 20 76  arylog)} {.    v
38c0: 66 73 6c 6f 67 20 6e 65 77 20 62 69 6e 61 72 79  fslog new binary
38d0: 6c 6f 67 20 7b 7d 20 76 66 73 6c 6f 67 2e 62 69  log {} vfslog.bi
38e0: 6e 0a 20 20 7d 0a 0a 20 20 23 20 53 65 74 20 74  n.  }..  # Set t
38f0: 68 65 20 62 61 63 6b 74 72 61 63 65 20 64 65 70  he backtrace dep
3900: 74 68 2c 20 69 66 20 6d 61 6c 6c 6f 63 20 74 72  th, if malloc tr
3910: 61 63 69 6e 67 20 69 73 20 65 6e 61 62 6c 65 64  acing is enabled
3920: 2e 0a 20 20 23 0a 20 20 69 66 20 7b 24 63 6d 64  ..  #.  if {$cmd
3930: 6c 69 6e 65 61 72 67 28 6d 61 6c 6c 6f 63 74 72  linearg(malloctr
3940: 61 63 65 29 7d 20 7b 0a 20 20 20 20 73 71 6c 69  ace)} {.    sqli
3950: 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 62 61 63  te3_memdebug_bac
3960: 6b 74 72 61 63 65 20 24 63 6d 64 6c 69 6e 65 61  ktrace $cmdlinea
3970: 72 67 28 62 61 63 6b 74 72 61 63 65 29 0a 20 20  rg(backtrace).  
3980: 7d 0a 7d 0a 0a 23 20 55 70 64 61 74 65 20 74 68  }.}..# Update th
3990: 65 20 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69  e soft-heap-limi
39a0: 74 20 65 61 63 68 20 74 69 6d 65 20 74 68 69 73  t each time this
39b0: 20 73 63 72 69 70 74 20 69 73 20 72 75 6e 2e 20   script is run. 
39c0: 49 6e 20 74 68 61 74 0a 23 20 77 61 79 20 69 66  In that.# way if
39d0: 20 61 6e 20 69 6e 64 69 76 69 64 75 61 6c 20 74   an individual t
39e0: 65 73 74 20 66 69 6c 65 20 63 68 61 6e 67 65 73  est file changes
39f0: 20 74 68 65 20 73 6f 66 74 2d 68 65 61 70 2d 6c   the soft-heap-l
3a00: 69 6d 69 74 2c 20 69 74 0a 23 20 77 69 6c 6c 20  imit, it.# will 
3a10: 62 65 20 72 65 73 65 74 20 61 74 20 74 68 65 20  be reset at the 
3a20: 73 74 61 72 74 20 6f 66 20 74 68 65 20 6e 65 78  start of the nex
3a30: 74 20 74 65 73 74 20 66 69 6c 65 2e 0a 23 0a 73  t test file..#.s
3a40: 71 6c 69 74 65 33 5f 73 6f 66 74 5f 68 65 61 70  qlite3_soft_heap
3a50: 5f 6c 69 6d 69 74 20 24 63 6d 64 6c 69 6e 65 61  _limit $cmdlinea
3a60: 72 67 28 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d  rg(soft-heap-lim
3a70: 69 74 29 0a 0a 23 20 43 72 65 61 74 65 20 61 20  it)..# Create a 
3a80: 74 65 73 74 20 64 61 74 61 62 61 73 65 0a 23 0a  test database.#.
3a90: 70 72 6f 63 20 72 65 73 65 74 5f 64 62 20 7b 7d  proc reset_db {}
3aa0: 20 7b 0a 20 20 63 61 74 63 68 20 7b 64 62 20 63   {.  catch {db c
3ab0: 6c 6f 73 65 7d 0a 20 20 66 6f 72 63 65 64 65 6c  lose}.  forcedel
3ac0: 65 74 65 20 74 65 73 74 2e 64 62 0a 20 20 66 6f  ete test.db.  fo
3ad0: 72 63 65 64 65 6c 65 74 65 20 74 65 73 74 2e 64  rcedelete test.d
3ae0: 62 2d 6a 6f 75 72 6e 61 6c 0a 20 20 66 6f 72 63  b-journal.  forc
3af0: 65 64 65 6c 65 74 65 20 74 65 73 74 2e 64 62 2d  edelete test.db-
3b00: 77 61 6c 0a 20 20 73 71 6c 69 74 65 33 20 64 62  wal.  sqlite3 db
3b10: 20 2e 2f 74 65 73 74 2e 64 62 0a 20 20 73 65 74   ./test.db.  set
3b20: 20 3a 3a 44 42 20 5b 73 71 6c 69 74 65 33 5f 63   ::DB [sqlite3_c
3b30: 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65  onnection_pointe
3b40: 72 20 64 62 5d 0a 20 20 69 66 20 7b 5b 69 6e 66  r db].  if {[inf
3b50: 6f 20 65 78 69 73 74 73 20 3a 3a 53 45 54 55 50  o exists ::SETUP
3b60: 5f 53 51 4c 5d 7d 20 7b 0a 20 20 20 20 64 62 20  _SQL]} {.    db 
3b70: 65 76 61 6c 20 24 3a 3a 53 45 54 55 50 5f 53 51  eval $::SETUP_SQ
3b80: 4c 0a 20 20 7d 0a 7d 0a 72 65 73 65 74 5f 64 62  L.  }.}.reset_db
3b90: 0a 0a 23 20 41 62 6f 72 74 20 65 61 72 6c 79 20  ..# Abort early 
3ba0: 69 66 20 74 68 69 73 20 73 63 72 69 70 74 20 68  if this script h
3bb0: 61 73 20 62 65 65 6e 20 72 75 6e 20 62 65 66 6f  as been run befo
3bc0: 72 65 2e 0a 23 0a 69 66 20 7b 5b 69 6e 66 6f 20  re..#.if {[info 
3bd0: 65 78 69 73 74 73 20 54 43 28 63 6f 75 6e 74 29  exists TC(count)
3be0: 5d 7d 20 72 65 74 75 72 6e 0a 0a 23 20 4d 61 6b  ]} return..# Mak
3bf0: 65 20 73 75 72 65 20 6d 65 6d 6f 72 79 20 73 74  e sure memory st
3c00: 61 74 69 73 74 69 63 73 20 61 72 65 20 65 6e 61  atistics are ena
3c10: 62 6c 65 64 2e 0a 23 0a 73 71 6c 69 74 65 33 5f  bled..#.sqlite3_
3c20: 63 6f 6e 66 69 67 5f 6d 65 6d 73 74 61 74 75 73  config_memstatus
3c30: 20 31 0a 0a 23 20 49 6e 69 74 69 61 6c 69 7a 65   1..# Initialize
3c40: 20 74 68 65 20 74 65 73 74 20 63 6f 75 6e 74 65   the test counte
3c50: 72 73 20 61 6e 64 20 73 65 74 20 75 70 20 63 6f  rs and set up co
3c60: 6d 6d 61 6e 64 73 20 74 6f 20 61 63 63 65 73 73  mmands to access
3c70: 20 74 68 65 6d 2e 0a 23 20 4f 72 2c 20 69 66 20   them..# Or, if 
3c80: 74 68 69 73 20 69 73 20 61 20 73 6c 61 76 65 20  this is a slave 
3c90: 69 6e 74 65 72 70 72 65 74 65 72 2c 20 73 65 74  interpreter, set
3ca0: 20 75 70 20 61 6c 69 61 73 65 73 20 74 6f 20 77   up aliases to w
3cb0: 72 69 74 65 20 74 68 65 0a 23 20 63 6f 75 6e 74  rite the.# count
3cc0: 65 72 73 20 69 6e 20 74 68 65 20 70 61 72 65 6e  ers in the paren
3cd0: 74 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 23  t interpreter..#
3ce0: 0a 69 66 20 7b 30 3d 3d 5b 69 6e 66 6f 20 65 78  .if {0==[info ex
3cf0: 69 73 74 73 20 3a 3a 53 4c 41 56 45 5d 7d 20 7b  ists ::SLAVE]} {
3d00: 0a 20 20 73 65 74 20 54 43 28 65 72 72 6f 72 73  .  set TC(errors
3d10: 29 20 20 20 20 30 0a 20 20 73 65 74 20 54 43 28  )    0.  set TC(
3d20: 63 6f 75 6e 74 29 20 20 20 20 20 30 0a 20 20 73  count)     0.  s
3d30: 65 74 20 54 43 28 66 61 69 6c 5f 6c 69 73 74 29  et TC(fail_list)
3d40: 20 5b 6c 69 73 74 5d 0a 20 20 73 65 74 20 54 43   [list].  set TC
3d50: 28 6f 6d 69 74 5f 6c 69 73 74 29 20 5b 6c 69 73  (omit_list) [lis
3d60: 74 5d 0a 20 20 73 65 74 20 54 43 28 77 61 72 6e  t].  set TC(warn
3d70: 5f 6c 69 73 74 29 20 5b 6c 69 73 74 5d 0a 0a 20  _list) [list].. 
3d80: 20 70 72 6f 63 20 73 65 74 5f 74 65 73 74 5f 63   proc set_test_c
3d90: 6f 75 6e 74 65 72 20 7b 63 6f 75 6e 74 65 72 20  ounter {counter 
3da0: 61 72 67 73 7d 20 7b 0a 20 20 20 20 69 66 20 7b  args} {.    if {
3db0: 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 73 5d 7d  [llength $args]}
3dc0: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 54   {.      set ::T
3dd0: 43 28 24 63 6f 75 6e 74 65 72 29 20 5b 6c 69 6e  C($counter) [lin
3de0: 64 65 78 20 24 61 72 67 73 20 30 5d 0a 20 20 20  dex $args 0].   
3df0: 20 7d 0a 20 20 20 20 73 65 74 20 3a 3a 54 43 28   }.    set ::TC(
3e00: 24 63 6f 75 6e 74 65 72 29 0a 20 20 7d 0a 7d 0a  $counter).  }.}.
3e10: 0a 23 20 52 65 63 6f 72 64 20 74 68 65 20 66 61  .# Record the fa
3e20: 63 74 20 74 68 61 74 20 61 20 73 65 71 75 65 6e  ct that a sequen
3e30: 63 65 20 6f 66 20 74 65 73 74 73 20 77 65 72 65  ce of tests were
3e40: 20 6f 6d 69 74 74 65 64 2e 0a 23 0a 70 72 6f 63   omitted..#.proc
3e50: 20 6f 6d 69 74 5f 74 65 73 74 20 7b 6e 61 6d 65   omit_test {name
3e60: 20 72 65 61 73 6f 6e 20 7b 61 70 70 65 6e 64 20   reason {append 
3e70: 31 7d 7d 20 7b 0a 20 20 73 65 74 20 6f 6d 69 74  1}} {.  set omit
3e80: 4c 69 73 74 20 5b 73 65 74 5f 74 65 73 74 5f 63  List [set_test_c
3e90: 6f 75 6e 74 65 72 20 6f 6d 69 74 5f 6c 69 73 74  ounter omit_list
3ea0: 5d 0a 20 20 69 66 20 7b 24 61 70 70 65 6e 64 7d  ].  if {$append}
3eb0: 20 7b 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 6f   {.    lappend o
3ec0: 6d 69 74 4c 69 73 74 20 5b 6c 69 73 74 20 24 6e  mitList [list $n
3ed0: 61 6d 65 20 24 72 65 61 73 6f 6e 5d 0a 20 20 7d  ame $reason].  }
3ee0: 0a 20 20 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e  .  set_test_coun
3ef0: 74 65 72 20 6f 6d 69 74 5f 6c 69 73 74 20 24 6f  ter omit_list $o
3f00: 6d 69 74 4c 69 73 74 0a 7d 0a 0a 23 20 52 65 63  mitList.}..# Rec
3f10: 6f 72 64 20 74 68 65 20 66 61 63 74 20 74 68 61  ord the fact tha
3f20: 74 20 61 20 74 65 73 74 20 66 61 69 6c 65 64 2e  t a test failed.
3f30: 0a 23 0a 70 72 6f 63 20 66 61 69 6c 5f 74 65 73  .#.proc fail_tes
3f40: 74 20 7b 6e 61 6d 65 7d 20 7b 0a 20 20 73 65 74  t {name} {.  set
3f50: 20 66 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f 75   f [set_test_cou
3f60: 6e 74 65 72 20 66 61 69 6c 5f 6c 69 73 74 5d 0a  nter fail_list].
3f70: 20 20 6c 61 70 70 65 6e 64 20 66 20 24 6e 61 6d    lappend f $nam
3f80: 65 0a 20 20 73 65 74 5f 74 65 73 74 5f 63 6f 75  e.  set_test_cou
3f90: 6e 74 65 72 20 66 61 69 6c 5f 6c 69 73 74 20 24  nter fail_list $
3fa0: 66 0a 20 20 73 65 74 5f 74 65 73 74 5f 63 6f 75  f.  set_test_cou
3fb0: 6e 74 65 72 20 65 72 72 6f 72 73 20 5b 65 78 70  nter errors [exp
3fc0: 72 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e  r [set_test_coun
3fd0: 74 65 72 20 65 72 72 6f 72 73 5d 20 2b 20 31 5d  ter errors] + 1]
3fe0: 0a 0a 20 20 73 65 74 20 6e 46 61 69 6c 20 5b 73  ..  set nFail [s
3ff0: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20  et_test_counter 
4000: 65 72 72 6f 72 73 5d 0a 20 20 69 66 20 7b 24 6e  errors].  if {$n
4010: 46 61 69 6c 3e 3d 24 3a 3a 63 6d 64 6c 69 6e 65  Fail>=$::cmdline
4020: 61 72 67 28 6d 61 78 65 72 72 6f 72 29 7d 20 7b  arg(maxerror)} {
4030: 0a 20 20 20 20 70 75 74 73 20 22 2a 2a 2a 20 47  .    puts "*** G
4040: 69 76 69 6e 67 20 75 70 2e 2e 2e 22 0a 20 20 20  iving up...".   
4050: 20 66 69 6e 61 6c 69 7a 65 5f 74 65 73 74 69 6e   finalize_testin
4060: 67 0a 20 20 7d 0a 7d 0a 0a 23 20 52 65 6d 65 6d  g.  }.}..# Remem
4070: 62 65 72 20 61 20 77 61 72 6e 69 6e 67 20 6d 65  ber a warning me
4080: 73 73 61 67 65 20 74 6f 20 62 65 20 64 69 73 70  ssage to be disp
4090: 6c 61 79 65 64 20 61 74 20 74 68 65 20 63 6f 6e  layed at the con
40a0: 63 6c 75 73 69 6f 6e 20 6f 66 20 61 6c 6c 20 74  clusion of all t
40b0: 65 73 74 69 6e 67 0a 23 0a 70 72 6f 63 20 77 61  esting.#.proc wa
40c0: 72 6e 69 6e 67 20 7b 6d 73 67 20 7b 61 70 70 65  rning {msg {appe
40d0: 6e 64 20 31 7d 7d 20 7b 0a 20 20 70 75 74 73 20  nd 1}} {.  puts 
40e0: 22 57 61 72 6e 69 6e 67 3a 20 24 6d 73 67 22 0a  "Warning: $msg".
40f0: 20 20 73 65 74 20 77 61 72 6e 4c 69 73 74 20 5b    set warnList [
4100: 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72  set_test_counter
4110: 20 77 61 72 6e 5f 6c 69 73 74 5d 0a 20 20 69 66   warn_list].  if
4120: 20 7b 24 61 70 70 65 6e 64 7d 20 7b 0a 20 20 20   {$append} {.   
4130: 20 6c 61 70 70 65 6e 64 20 77 61 72 6e 4c 69 73   lappend warnLis
4140: 74 20 24 6d 73 67 0a 20 20 7d 0a 20 20 73 65 74  t $msg.  }.  set
4150: 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 77 61  _test_counter wa
4160: 72 6e 5f 6c 69 73 74 20 24 77 61 72 6e 4c 69 73  rn_list $warnLis
4170: 74 0a 7d 0a 0a 0a 23 20 49 6e 63 72 65 6d 65 6e  t.}...# Incremen
4180: 74 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20  t the number of 
4190: 74 65 73 74 73 20 72 75 6e 0a 23 0a 70 72 6f 63  tests run.#.proc
41a0: 20 69 6e 63 72 5f 6e 74 65 73 74 20 7b 7d 20 7b   incr_ntest {} {
41b0: 0a 20 20 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e  .  set_test_coun
41c0: 74 65 72 20 63 6f 75 6e 74 20 5b 65 78 70 72 20  ter count [expr 
41d0: 5b 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65  [set_test_counte
41e0: 72 20 63 6f 75 6e 74 5d 20 2b 20 31 5d 0a 7d 0a  r count] + 1].}.
41f0: 0a 0a 23 20 49 6e 76 6f 6b 65 20 74 68 65 20 64  ..# Invoke the d
4200: 6f 5f 74 65 73 74 20 70 72 6f 63 65 64 75 72 65  o_test procedure
4210: 20 74 6f 20 72 75 6e 20 61 20 73 69 6e 67 6c 65   to run a single
4220: 20 74 65 73 74 0a 23 0a 70 72 6f 63 20 64 6f 5f   test.#.proc do_
4230: 74 65 73 74 20 7b 6e 61 6d 65 20 63 6d 64 20 65  test {name cmd e
4240: 78 70 65 63 74 65 64 7d 20 7b 0a 20 20 67 6c 6f  xpected} {.  glo
4250: 62 61 6c 20 61 72 67 76 20 63 6d 64 6c 69 6e 65  bal argv cmdline
4260: 61 72 67 0a 0a 20 20 66 69 78 5f 74 65 73 74 6e  arg..  fix_testn
4270: 61 6d 65 20 6e 61 6d 65 0a 0a 20 20 73 71 6c 69  ame name..  sqli
4280: 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 73 65 74  te3_memdebug_set
4290: 74 69 74 6c 65 20 24 6e 61 6d 65 0a 0a 23 20 20  title $name..#  
42a0: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72  if {[llength $ar
42b0: 67 76 5d 3d 3d 30 7d 20 7b 0a 23 20 20 20 20 73  gv]==0} {.#    s
42c0: 65 74 20 67 6f 20 31 0a 23 20 20 7d 20 65 6c 73  et go 1.#  } els
42d0: 65 20 7b 0a 23 20 20 20 20 73 65 74 20 67 6f 20  e {.#    set go 
42e0: 30 0a 23 20 20 20 20 66 6f 72 65 61 63 68 20 70  0.#    foreach p
42f0: 61 74 74 65 72 6e 20 24 61 72 67 76 20 7b 0a 23  attern $argv {.#
4300: 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e        if {[strin
4310: 67 20 6d 61 74 63 68 20 24 70 61 74 74 65 72 6e  g match $pattern
4320: 20 24 6e 61 6d 65 5d 7d 20 7b 0a 23 20 20 20 20   $name]} {.#    
4330: 20 20 20 20 73 65 74 20 67 6f 20 31 0a 23 20 20      set go 1.#  
4340: 20 20 20 20 20 20 62 72 65 61 6b 0a 23 20 20 20        break.#   
4350: 20 20 20 7d 0a 23 20 20 20 20 7d 0a 23 20 20 7d     }.#    }.#  }
4360: 0a 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78  ..  if {[info ex
4370: 69 73 74 73 20 3a 3a 47 28 70 65 72 6d 3a 70 72  ists ::G(perm:pr
4380: 65 66 69 78 29 5d 7d 20 7b 0a 20 20 20 20 73 65  efix)]} {.    se
4390: 74 20 6e 61 6d 65 20 22 24 3a 3a 47 28 70 65 72  t name "$::G(per
43a0: 6d 3a 70 72 65 66 69 78 29 24 6e 61 6d 65 22 0a  m:prefix)$name".
43b0: 20 20 7d 0a 0a 20 20 69 6e 63 72 5f 6e 74 65 73    }..  incr_ntes
43c0: 74 0a 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c  t.  puts -nonewl
43d0: 69 6e 65 20 24 6e 61 6d 65 2e 2e 2e 0a 20 20 66  ine $name....  f
43e0: 6c 75 73 68 20 73 74 64 6f 75 74 0a 0a 20 20 69  lush stdout..  i
43f0: 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73  f {![info exists
4400: 20 3a 3a 47 28 6d 61 74 63 68 29 5d 20 7c 7c 20   ::G(match)] || 
4410: 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 20 24 3a  [string match $:
4420: 3a 47 28 6d 61 74 63 68 29 20 24 6e 61 6d 65 5d  :G(match) $name]
4430: 7d 20 7b 0a 20 20 20 20 69 66 20 7b 5b 63 61 74  } {.    if {[cat
4440: 63 68 20 7b 75 70 6c 65 76 65 6c 20 23 30 20 22  ch {uplevel #0 "
4450: 24 63 6d 64 3b 5c 6e 22 7d 20 72 65 73 75 6c 74  $cmd;\n"} result
4460: 5d 7d 20 7b 0a 20 20 20 20 20 20 70 75 74 73 20  ]} {.      puts 
4470: 22 5c 6e 45 72 72 6f 72 3a 20 24 72 65 73 75 6c  "\nError: $resul
4480: 74 22 0a 20 20 20 20 20 20 66 61 69 6c 5f 74 65  t".      fail_te
4490: 73 74 20 24 6e 61 6d 65 0a 20 20 20 20 7d 20 65  st $name.    } e
44a0: 6c 73 65 20 7b 0a 20 20 20 20 20 20 69 66 20 7b  lse {.      if {
44b0: 5b 72 65 67 65 78 70 20 7b 5e 7e 3f 2f 2e 2a 2f  [regexp {^~?/.*/
44c0: 24 7d 20 24 65 78 70 65 63 74 65 64 5d 7d 20 7b  $} $expected]} {
44d0: 0a 20 20 20 20 20 20 20 20 23 20 22 65 78 70 65  .        # "expe
44e0: 63 74 65 64 22 20 69 73 20 6f 66 20 74 68 65 20  cted" is of the 
44f0: 66 6f 72 6d 20 22 2f 50 41 54 54 45 52 4e 2f 22  form "/PATTERN/"
4500: 20 74 68 65 6e 20 74 68 65 20 72 65 73 75 6c 74   then the result
4510: 20 69 66 20 63 6f 72 72 65 63 74 20 69 66 0a 20   if correct if. 
4520: 20 20 20 20 20 20 20 23 20 72 65 67 75 6c 61 72         # regular
4530: 20 65 78 70 72 65 73 73 69 6f 6e 20 50 41 54 54   expression PATT
4540: 45 52 4e 20 6d 61 74 63 68 65 73 20 74 68 65 20  ERN matches the 
4550: 72 65 73 75 6c 74 2e 20 20 22 7e 2f 50 41 54 54  result.  "~/PATT
4560: 45 52 4e 2f 22 20 6d 65 61 6e 73 0a 20 20 20 20  ERN/" means.    
4570: 20 20 20 20 23 20 74 68 65 20 72 65 67 75 6c 61      # the regula
4580: 72 20 65 78 70 72 65 73 73 69 6f 6e 20 6d 75 73  r expression mus
4590: 74 20 6e 6f 74 20 6d 61 74 63 68 2e 0a 20 20 20  t not match..   
45a0: 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67       if {[string
45b0: 20 69 6e 64 65 78 20 24 65 78 70 65 63 74 65 64   index $expected
45c0: 20 30 5d 3d 3d 22 7e 22 7d 20 7b 0a 20 20 20 20   0]=="~"} {.    
45d0: 20 20 20 20 20 20 73 65 74 20 72 65 20 5b 73 74        set re [st
45e0: 72 69 6e 67 20 72 61 6e 67 65 20 24 65 78 70 65  ring range $expe
45f0: 63 74 65 64 20 32 20 65 6e 64 2d 31 5d 0a 20 20  cted 2 end-1].  
4600: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72          if {[str
4610: 69 6e 67 20 69 6e 64 65 78 20 24 72 65 20 30 5d  ing index $re 0]
4620: 3d 3d 22 2a 22 7d 20 7b 0a 20 20 20 20 20 20 20  =="*"} {.       
4630: 20 20 20 20 20 23 20 49 66 20 74 68 65 20 72 65       # If the re
4640: 67 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e  gular expression
4650: 20 62 65 67 69 6e 73 20 77 69 74 68 20 2a 20 74   begins with * t
4660: 68 65 6e 20 74 72 65 61 74 20 69 74 20 61 73 20  hen treat it as 
4670: 61 20 67 6c 6f 62 20 69 6e 73 74 65 61 64 0a 20  a glob instead. 
4680: 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20 6f             set o
4690: 6b 20 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 20  k [string match 
46a0: 24 72 65 20 24 72 65 73 75 6c 74 5d 0a 20 20 20  $re $result].   
46b0: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a         } else {.
46c0: 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20              set 
46d0: 72 65 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 7b  re [string map {
46e0: 23 20 7b 5b 2d 30 2d 39 2e 5d 2b 7d 7d 20 24 72  # {[-0-9.]+}} $r
46f0: 65 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 73  e].            s
4700: 65 74 20 6f 6b 20 5b 72 65 67 65 78 70 20 24 72  et ok [regexp $r
4710: 65 20 24 72 65 73 75 6c 74 5d 0a 20 20 20 20 20  e $result].     
4720: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20       }.         
4730: 20 73 65 74 20 6f 6b 20 5b 65 78 70 72 20 7b 21   set ok [expr {!
4740: 24 6f 6b 7d 5d 0a 20 20 20 20 20 20 20 20 7d 20  $ok}].        } 
4750: 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 20  else {.         
4760: 20 73 65 74 20 72 65 20 5b 73 74 72 69 6e 67 20   set re [string 
4770: 72 61 6e 67 65 20 24 65 78 70 65 63 74 65 64 20  range $expected 
4780: 31 20 65 6e 64 2d 31 5d 0a 20 20 20 20 20 20 20  1 end-1].       
4790: 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 69     if {[string i
47a0: 6e 64 65 78 20 24 72 65 20 30 5d 3d 3d 22 2a 22  ndex $re 0]=="*"
47b0: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  } {.            
47c0: 23 20 49 66 20 74 68 65 20 72 65 67 75 6c 61 72  # If the regular
47d0: 20 65 78 70 72 65 73 73 69 6f 6e 20 62 65 67 69   expression begi
47e0: 6e 73 20 77 69 74 68 20 2a 20 74 68 65 6e 20 74  ns with * then t
47f0: 72 65 61 74 20 69 74 20 61 73 20 61 20 67 6c 6f  reat it as a glo
4800: 62 20 69 6e 73 74 65 61 64 0a 20 20 20 20 20 20  b instead.      
4810: 20 20 20 20 20 20 73 65 74 20 6f 6b 20 5b 73 74        set ok [st
4820: 72 69 6e 67 20 6d 61 74 63 68 20 24 72 65 20 24  ring match $re $
4830: 72 65 73 75 6c 74 5d 0a 20 20 20 20 20 20 20 20  result].        
4840: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20    } else {.     
4850: 20 20 20 20 20 20 20 73 65 74 20 72 65 20 5b 73         set re [s
4860: 74 72 69 6e 67 20 6d 61 70 20 7b 23 20 7b 5b 2d  tring map {# {[-
4870: 30 2d 39 2e 5d 2b 7d 7d 20 24 72 65 5d 0a 20 20  0-9.]+}} $re].  
4880: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 6f 6b            set ok
4890: 20 5b 72 65 67 65 78 70 20 24 72 65 20 24 72 65   [regexp $re $re
48a0: 73 75 6c 74 5d 0a 20 20 20 20 20 20 20 20 20 20  sult].          
48b0: 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  }.        }.    
48c0: 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 72 65 67    } elseif {[reg
48d0: 65 78 70 20 7b 5e 7e 3f 5c 2a 2e 2a 5c 2a 24 7d  exp {^~?\*.*\*$}
48e0: 20 24 65 78 70 65 63 74 65 64 5d 7d 20 7b 0a 20   $expected]} {. 
48f0: 20 20 20 20 20 20 20 23 20 22 65 78 70 65 63 74         # "expect
4900: 65 64 22 20 69 73 20 6f 66 20 74 68 65 20 66 6f  ed" is of the fo
4910: 72 6d 20 22 2a 47 4c 4f 42 2a 22 20 74 68 65 6e  rm "*GLOB*" then
4920: 20 74 68 65 20 72 65 73 75 6c 74 20 69 66 20 63   the result if c
4930: 6f 72 72 65 63 74 20 69 66 0a 20 20 20 20 20 20  orrect if.      
4940: 20 20 23 20 67 6c 6f 62 20 70 61 74 74 65 72 6e    # glob pattern
4950: 20 47 4c 4f 42 20 6d 61 74 63 68 65 73 20 74 68   GLOB matches th
4960: 65 20 72 65 73 75 6c 74 2e 20 20 22 7e 2f 47 4c  e result.  "~/GL
4970: 4f 42 2f 22 20 6d 65 61 6e 73 0a 20 20 20 20 20  OB/" means.     
4980: 20 20 20 23 20 74 68 65 20 67 6c 6f 62 20 6d 75     # the glob mu
4990: 73 74 20 6e 6f 74 20 6d 61 74 63 68 2e 0a 20 20  st not match..  
49a0: 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e        if {[strin
49b0: 67 20 69 6e 64 65 78 20 24 65 78 70 65 63 74 65  g index $expecte
49c0: 64 20 30 5d 3d 3d 22 7e 22 7d 20 7b 0a 20 20 20  d 0]=="~"} {.   
49d0: 20 20 20 20 20 20 20 73 65 74 20 65 20 5b 73 74         set e [st
49e0: 72 69 6e 67 20 72 61 6e 67 65 20 24 65 78 70 65  ring range $expe
49f0: 63 74 65 64 20 31 20 65 6e 64 5d 0a 20 20 20 20  cted 1 end].    
4a00: 20 20 20 20 20 20 73 65 74 20 6f 6b 20 5b 65 78        set ok [ex
4a10: 70 72 20 7b 21 5b 73 74 72 69 6e 67 20 6d 61 74  pr {![string mat
4a20: 63 68 20 24 65 20 24 72 65 73 75 6c 74 5d 7d 5d  ch $e $result]}]
4a30: 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20  .        } else 
4a40: 7b 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20  {.          set 
4a50: 6f 6b 20 5b 73 74 72 69 6e 67 20 6d 61 74 63 68  ok [string match
4a60: 20 24 65 78 70 65 63 74 65 64 20 24 72 65 73 75   $expected $resu
4a70: 6c 74 5d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  lt].        }.  
4a80: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20      } else {.   
4a90: 20 20 20 20 20 73 65 74 20 6f 6b 20 5b 65 78 70       set ok [exp
4aa0: 72 20 7b 5b 73 74 72 69 6e 67 20 63 6f 6d 70 61  r {[string compa
4ab0: 72 65 20 24 72 65 73 75 6c 74 20 24 65 78 70 65  re $result $expe
4ac0: 63 74 65 64 5d 3d 3d 30 7d 5d 0a 20 20 20 20 20  cted]==0}].     
4ad0: 20 7d 0a 20 20 20 20 20 20 69 66 20 7b 21 24 6f   }.      if {!$o
4ae0: 6b 7d 20 7b 0a 20 20 20 20 20 20 20 20 23 20 69  k} {.        # i
4af0: 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73  f {![info exists
4b00: 20 3a 3a 74 65 73 74 70 72 65 66 69 78 5d 20 7c   ::testprefix] |
4b10: 7c 20 24 3a 3a 74 65 73 74 70 72 65 66 69 78 20  | $::testprefix 
4b20: 65 71 20 22 22 7d 20 7b 0a 20 20 20 20 20 20 20  eq ""} {.       
4b30: 20 23 20 20 20 65 72 72 6f 72 20 22 6e 6f 20 74   #   error "no t
4b40: 65 73 74 20 70 72 65 66 69 78 22 0a 20 20 20 20  est prefix".    
4b50: 20 20 20 20 23 20 7d 0a 20 20 20 20 20 20 20 20      # }.        
4b60: 70 75 74 73 20 22 5c 6e 45 78 70 65 63 74 65 64  puts "\nExpected
4b70: 3a 20 5c 5b 24 65 78 70 65 63 74 65 64 5c 5d 5c  : \[$expected\]\
4b80: 6e 20 20 20 20 20 47 6f 74 3a 20 5c 5b 24 72 65  n     Got: \[$re
4b90: 73 75 6c 74 5c 5d 22 0a 20 20 20 20 20 20 20 20  sult\]".        
4ba0: 66 61 69 6c 5f 74 65 73 74 20 24 6e 61 6d 65 0a  fail_test $name.
4bb0: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20        } else {. 
4bc0: 20 20 20 20 20 20 20 70 75 74 73 20 22 20 4f 6b         puts " Ok
4bd0: 22 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a  ".      }.    }.
4be0: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 70    } else {.    p
4bf0: 75 74 73 20 22 20 4f 6d 69 74 74 65 64 22 0a 20  uts " Omitted". 
4c00: 20 20 20 6f 6d 69 74 5f 74 65 73 74 20 24 6e 61     omit_test $na
4c10: 6d 65 20 22 70 61 74 74 65 72 6e 20 6d 69 73 6d  me "pattern mism
4c20: 61 74 63 68 22 20 30 0a 20 20 7d 0a 20 20 66 6c  atch" 0.  }.  fl
4c30: 75 73 68 20 73 74 64 6f 75 74 0a 7d 0a 0a 70 72  ush stdout.}..pr
4c40: 6f 63 20 63 61 74 63 68 63 6d 64 20 7b 64 62 20  oc catchcmd {db 
4c50: 7b 63 6d 64 20 22 22 7d 7d 20 7b 0a 20 20 67 6c  {cmd ""}} {.  gl
4c60: 6f 62 61 6c 20 43 4c 49 0a 20 20 73 65 74 20 6f  obal CLI.  set o
4c70: 75 74 20 5b 6f 70 65 6e 20 63 6d 64 73 2e 74 78  ut [open cmds.tx
4c80: 74 20 77 5d 0a 20 20 70 75 74 73 20 24 6f 75 74  t w].  puts $out
4c90: 20 24 63 6d 64 0a 20 20 63 6c 6f 73 65 20 24 6f   $cmd.  close $o
4ca0: 75 74 0a 20 20 73 65 74 20 6c 69 6e 65 20 22 65  ut.  set line "e
4cb0: 78 65 63 20 24 43 4c 49 20 24 64 62 20 3c 20 63  xec $CLI $db < c
4cc0: 6d 64 73 2e 74 78 74 22 0a 20 20 73 65 74 20 72  mds.txt".  set r
4cd0: 63 20 5b 63 61 74 63 68 20 7b 20 65 76 61 6c 20  c [catch { eval 
4ce0: 24 6c 69 6e 65 20 7d 20 6d 73 67 5d 0a 20 20 6c  $line } msg].  l
4cf0: 69 73 74 20 24 72 63 20 24 6d 73 67 0a 7d 0a 0a  ist $rc $msg.}..
4d00: 70 72 6f 63 20 66 69 6c 65 70 61 74 68 5f 6e 6f  proc filepath_no
4d10: 72 6d 61 6c 69 7a 65 20 7b 70 7d 20 7b 0a 20 20  rmalize {p} {.  
4d20: 23 20 74 65 73 74 20 63 61 73 65 73 20 73 68 6f  # test cases sho
4d30: 75 6c 64 20 62 65 20 77 72 69 74 74 65 6e 20 74  uld be written t
4d40: 6f 20 61 73 73 75 6d 65 20 22 75 6e 69 78 22 2d  o assume "unix"-
4d50: 6c 69 6b 65 20 66 69 6c 65 20 70 61 74 68 73 0a  like file paths.
4d60: 20 20 69 66 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61    if {$::tcl_pla
4d70: 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 21  tform(platform)!
4d80: 3d 22 75 6e 69 78 22 7d 20 7b 0a 20 20 20 20 23  ="unix"} {.    #
4d90: 20 6c 72 65 76 65 72 73 65 2a 32 20 61 73 20 61   lreverse*2 as a
4da0: 20 68 61 63 6b 20 74 6f 20 72 65 6d 6f 76 65 20   hack to remove 
4db0: 61 6e 79 20 75 6e 6e 65 65 64 65 64 20 7b 7d 20  any unneeded {} 
4dc0: 61 66 74 65 72 20 74 68 65 20 73 74 72 69 6e 67  after the string
4dd0: 20 6d 61 70 0a 20 20 20 20 6c 72 65 76 65 72 73   map.    lrevers
4de0: 65 20 5b 6c 72 65 76 65 72 73 65 20 5b 73 74 72  e [lreverse [str
4df0: 69 6e 67 20 6d 61 70 20 7b 5c 5c 20 2f 7d 20 5b  ing map {\\ /} [
4e00: 72 65 67 73 75 62 20 2d 6e 6f 63 61 73 65 20 2d  regsub -nocase -
4e10: 61 6c 6c 20 7b 5b 61 2d 7a 5d 3a 5b 2f 5c 5c 5d  all {[a-z]:[/\\]
4e20: 2b 7d 20 24 70 20 7b 2f 7d 5d 5d 5d 0a 20 20 7d  +} $p {/}]]].  }
4e30: 20 7b 0a 20 20 20 20 73 65 74 20 70 0a 20 20 7d   {.    set p.  }
4e40: 0a 7d 0a 70 72 6f 63 20 64 6f 5f 66 69 6c 65 70  .}.proc do_filep
4e50: 61 74 68 5f 74 65 73 74 20 7b 6e 61 6d 65 20 63  ath_test {name c
4e60: 6d 64 20 65 78 70 65 63 74 65 64 7d 20 7b 0a 20  md expected} {. 
4e70: 20 75 70 6c 65 76 65 6c 20 5b 6c 69 73 74 20 64   uplevel [list d
4e80: 6f 5f 74 65 73 74 20 24 6e 61 6d 65 20 5b 0a 20  o_test $name [. 
4e90: 20 20 20 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d     subst -nocomm
4ea0: 61 6e 64 73 20 7b 20 66 69 6c 65 70 61 74 68 5f  ands { filepath_
4eb0: 6e 6f 72 6d 61 6c 69 7a 65 20 5b 20 24 63 6d 64  normalize [ $cmd
4ec0: 20 5d 20 7d 0a 20 20 5d 20 5b 66 69 6c 65 70 61   ] }.  ] [filepa
4ed0: 74 68 5f 6e 6f 72 6d 61 6c 69 7a 65 20 24 65 78  th_normalize $ex
4ee0: 70 65 63 74 65 64 5d 5d 0a 7d 0a 0a 70 72 6f 63  pected]].}..proc
4ef0: 20 72 65 61 6c 6e 75 6d 5f 6e 6f 72 6d 61 6c 69   realnum_normali
4f00: 7a 65 20 7b 72 7d 20 7b 0a 20 20 23 20 64 69 66  ze {r} {.  # dif
4f10: 66 65 72 65 6e 74 20 54 43 4c 20 76 65 72 73 69  ferent TCL versi
4f20: 6f 6e 73 20 64 69 73 70 6c 61 79 20 66 6c 6f 61  ons display floa
4f30: 74 69 6e 67 20 70 6f 69 6e 74 20 76 61 6c 75 65  ting point value
4f40: 73 20 64 69 66 66 65 72 65 6e 74 6c 79 2e 0a 20  s differently.. 
4f50: 20 73 74 72 69 6e 67 20 6d 61 70 20 7b 31 2e 23   string map {1.#
4f60: 49 4e 46 20 69 6e 66 20 49 6e 66 20 69 6e 66 20  INF inf Inf inf 
4f70: 2e 30 65 20 65 7d 20 5b 72 65 67 73 75 62 20 2d  .0e e} [regsub -
4f80: 61 6c 6c 20 7b 28 65 5b 2b 2d 5d 29 30 2b 7d 20  all {(e[+-])0+} 
4f90: 24 72 20 7b 5c 31 7d 5d 0a 7d 0a 70 72 6f 63 20  $r {\1}].}.proc 
4fa0: 64 6f 5f 72 65 61 6c 6e 75 6d 5f 74 65 73 74 20  do_realnum_test 
4fb0: 7b 6e 61 6d 65 20 63 6d 64 20 65 78 70 65 63 74  {name cmd expect
4fc0: 65 64 7d 20 7b 0a 20 20 75 70 6c 65 76 65 6c 20  ed} {.  uplevel 
4fd0: 5b 6c 69 73 74 20 64 6f 5f 74 65 73 74 20 24 6e  [list do_test $n
4fe0: 61 6d 65 20 5b 0a 20 20 20 20 73 75 62 73 74 20  ame [.    subst 
4ff0: 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 7b 20 72 65  -nocommands { re
5000: 61 6c 6e 75 6d 5f 6e 6f 72 6d 61 6c 69 7a 65 20  alnum_normalize 
5010: 5b 20 24 63 6d 64 20 5d 20 7d 0a 20 20 5d 20 5b  [ $cmd ] }.  ] [
5020: 72 65 61 6c 6e 75 6d 5f 6e 6f 72 6d 61 6c 69 7a  realnum_normaliz
5030: 65 20 24 65 78 70 65 63 74 65 64 5d 5d 0a 7d 0a  e $expected]].}.
5040: 0a 70 72 6f 63 20 66 69 78 5f 74 65 73 74 6e 61  .proc fix_testna
5050: 6d 65 20 7b 76 61 72 6e 61 6d 65 7d 20 7b 0a 20  me {varname} {. 
5060: 20 75 70 76 61 72 20 24 76 61 72 6e 61 6d 65 20   upvar $varname 
5070: 74 65 73 74 6e 61 6d 65 0a 20 20 69 66 20 7b 5b  testname.  if {[
5080: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 65  info exists ::te
5090: 73 74 70 72 65 66 69 78 5d 0a 20 20 20 26 26 20  stprefix].   && 
50a0: 5b 73 74 72 69 6e 67 20 69 73 20 64 69 67 69 74  [string is digit
50b0: 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24   [string range $
50c0: 74 65 73 74 6e 61 6d 65 20 30 20 30 5d 5d 0a 20  testname 0 0]]. 
50d0: 20 7d 20 7b 0a 20 20 20 20 73 65 74 20 74 65 73   } {.    set tes
50e0: 74 6e 61 6d 65 20 22 24 7b 3a 3a 74 65 73 74 70  tname "${::testp
50f0: 72 65 66 69 78 7d 2d 24 74 65 73 74 6e 61 6d 65  refix}-$testname
5100: 22 0a 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20 64 6f  ".  }.}..proc do
5110: 5f 65 78 65 63 73 71 6c 5f 74 65 73 74 20 7b 74  _execsql_test {t
5120: 65 73 74 6e 61 6d 65 20 73 71 6c 20 7b 72 65 73  estname sql {res
5130: 75 6c 74 20 7b 7d 7d 7d 20 7b 0a 20 20 66 69 78  ult {}}} {.  fix
5140: 5f 74 65 73 74 6e 61 6d 65 20 74 65 73 74 6e 61  _testname testna
5150: 6d 65 0a 20 20 75 70 6c 65 76 65 6c 20 64 6f 5f  me.  uplevel do_
5160: 74 65 73 74 20 5b 6c 69 73 74 20 24 74 65 73 74  test [list $test
5170: 6e 61 6d 65 5d 20 5b 6c 69 73 74 20 22 65 78 65  name] [list "exe
5180: 63 73 71 6c 20 7b 24 73 71 6c 7d 22 5d 20 5b 6c  csql {$sql}"] [l
5190: 69 73 74 20 5b 6c 69 73 74 20 7b 2a 7d 24 72 65  ist [list {*}$re
51a0: 73 75 6c 74 5d 5d 0a 7d 0a 70 72 6f 63 20 64 6f  sult]].}.proc do
51b0: 5f 63 61 74 63 68 73 71 6c 5f 74 65 73 74 20 7b  _catchsql_test {
51c0: 74 65 73 74 6e 61 6d 65 20 73 71 6c 20 72 65 73  testname sql res
51d0: 75 6c 74 7d 20 7b 0a 20 20 66 69 78 5f 74 65 73  ult} {.  fix_tes
51e0: 74 6e 61 6d 65 20 74 65 73 74 6e 61 6d 65 0a 20  tname testname. 
51f0: 20 75 70 6c 65 76 65 6c 20 64 6f 5f 74 65 73 74   uplevel do_test
5200: 20 5b 6c 69 73 74 20 24 74 65 73 74 6e 61 6d 65   [list $testname
5210: 5d 20 5b 6c 69 73 74 20 22 63 61 74 63 68 73 71  ] [list "catchsq
5220: 6c 20 7b 24 73 71 6c 7d 22 5d 20 5b 6c 69 73 74  l {$sql}"] [list
5230: 20 24 72 65 73 75 6c 74 5d 0a 7d 0a 70 72 6f 63   $result].}.proc
5240: 20 64 6f 5f 74 69 6d 65 64 5f 65 78 65 63 73 71   do_timed_execsq
5250: 6c 5f 74 65 73 74 20 7b 74 65 73 74 6e 61 6d 65  l_test {testname
5260: 20 73 71 6c 20 7b 72 65 73 75 6c 74 20 7b 7d 7d   sql {result {}}
5270: 7d 20 7b 0a 20 20 66 69 78 5f 74 65 73 74 6e 61  } {.  fix_testna
5280: 6d 65 20 74 65 73 74 6e 61 6d 65 0a 20 20 75 70  me testname.  up
5290: 6c 65 76 65 6c 20 64 6f 5f 74 65 73 74 20 5b 6c  level do_test [l
52a0: 69 73 74 20 24 74 65 73 74 6e 61 6d 65 5d 20 5b  ist $testname] [
52b0: 6c 69 73 74 20 22 65 78 65 63 73 71 6c 5f 74 69  list "execsql_ti
52c0: 6d 65 64 20 7b 24 73 71 6c 7d 22 5d 5c 0a 20 20  med {$sql}"]\.  
52d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
52e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
52f0: 20 5b 6c 69 73 74 20 5b 6c 69 73 74 20 7b 2a 7d   [list [list {*}
5300: 24 72 65 73 75 6c 74 5d 5d 0a 7d 0a 70 72 6f 63  $result]].}.proc
5310: 20 64 6f 5f 65 71 70 5f 74 65 73 74 20 7b 6e 61   do_eqp_test {na
5320: 6d 65 20 73 71 6c 20 72 65 73 7d 20 7b 0a 20 20  me sql res} {.  
5330: 75 70 6c 65 76 65 6c 20 64 6f 5f 65 78 65 63 73  uplevel do_execs
5340: 71 6c 5f 74 65 73 74 20 24 6e 61 6d 65 20 5b 6c  ql_test $name [l
5350: 69 73 74 20 22 45 58 50 4c 41 49 4e 20 51 55 45  ist "EXPLAIN QUE
5360: 52 59 20 50 4c 41 4e 20 24 73 71 6c 22 5d 20 5b  RY PLAN $sql"] [
5370: 6c 69 73 74 20 24 72 65 73 5d 0a 7d 0a 0a 23 2d  list $res].}..#-
5380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
53a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
53b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
53c0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 20 20 55 73 61  --------.#   Usa
53d0: 67 65 3a 20 64 6f 5f 73 65 6c 65 63 74 5f 74 65  ge: do_select_te
53e0: 73 74 73 20 50 52 45 46 49 58 20 3f 53 57 49 54  sts PREFIX ?SWIT
53f0: 43 48 45 53 3f 20 54 45 53 54 4c 49 53 54 0a 23  CHES? TESTLIST.#
5400: 0a 23 20 57 68 65 72 65 20 73 77 69 74 63 68 65  .# Where switche
5410: 73 20 61 72 65 3a 0a 23 0a 23 20 20 20 2d 65 72  s are:.#.#   -er
5420: 72 6f 72 66 6f 72 6d 61 74 20 46 4d 54 53 54 52  rorformat FMTSTR
5430: 49 4e 47 0a 23 20 20 20 2d 63 6f 75 6e 74 0a 23  ING.#   -count.#
5440: 20 20 20 2d 71 75 65 72 79 20 53 51 4c 0a 23 20     -query SQL.# 
5450: 20 20 2d 74 63 6c 71 75 65 72 79 20 54 43 4c 0a    -tclquery TCL.
5460: 23 20 20 20 2d 72 65 70 61 69 72 20 54 43 4c 0a  #   -repair TCL.
5470: 23 0a 70 72 6f 63 20 64 6f 5f 73 65 6c 65 63 74  #.proc do_select
5480: 5f 74 65 73 74 73 20 7b 70 72 65 66 69 78 20 61  _tests {prefix a
5490: 72 67 73 7d 20 7b 0a 0a 20 20 73 65 74 20 74 65  rgs} {..  set te
54a0: 73 74 6c 69 73 74 20 5b 6c 69 6e 64 65 78 20 24  stlist [lindex $
54b0: 61 72 67 73 20 65 6e 64 5d 0a 20 20 73 65 74 20  args end].  set 
54c0: 73 77 69 74 63 68 65 73 20 5b 6c 72 61 6e 67 65  switches [lrange
54d0: 20 24 61 72 67 73 20 30 20 65 6e 64 2d 31 5d 0a   $args 0 end-1].
54e0: 0a 20 20 73 65 74 20 65 72 72 66 6d 74 20 22 22  .  set errfmt ""
54f0: 0a 20 20 73 65 74 20 63 6f 75 6e 74 6f 6e 6c 79  .  set countonly
5500: 20 30 0a 20 20 73 65 74 20 74 63 6c 71 75 65 72   0.  set tclquer
5510: 79 20 22 22 0a 20 20 73 65 74 20 72 65 70 61 69  y "".  set repai
5520: 72 20 22 22 0a 0a 20 20 66 6f 72 20 7b 73 65 74  r ""..  for {set
5530: 20 69 20 30 7d 20 7b 24 69 20 3c 20 5b 6c 6c 65   i 0} {$i < [lle
5540: 6e 67 74 68 20 24 73 77 69 74 63 68 65 73 5d 7d  ngth $switches]}
5550: 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20   {incr i} {.    
5560: 73 65 74 20 73 20 5b 6c 69 6e 64 65 78 20 24 73  set s [lindex $s
5570: 77 69 74 63 68 65 73 20 24 69 5d 0a 20 20 20 20  witches $i].    
5580: 73 65 74 20 6e 20 5b 73 74 72 69 6e 67 20 6c 65  set n [string le
5590: 6e 67 74 68 20 24 73 5d 0a 20 20 20 20 69 66 20  ngth $s].    if 
55a0: 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e  {$n>=2 && [strin
55b0: 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68 20  g equal -length 
55c0: 24 6e 20 24 73 20 22 2d 71 75 65 72 79 22 5d 7d  $n $s "-query"]}
55d0: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 74 63 6c   {.      set tcl
55e0: 71 75 65 72 79 20 5b 6c 69 73 74 20 65 78 65 63  query [list exec
55f0: 73 71 6c 20 5b 6c 69 6e 64 65 78 20 24 73 77 69  sql [lindex $swi
5600: 74 63 68 65 73 20 5b 69 6e 63 72 20 69 5d 5d 5d  tches [incr i]]]
5610: 0a 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24  .    } elseif {$
5620: 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e 67 20  n>=2 && [string 
5630: 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24 6e  equal -length $n
5640: 20 24 73 20 22 2d 74 63 6c 71 75 65 72 79 22 5d   $s "-tclquery"]
5650: 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 74 63  } {.      set tc
5660: 6c 71 75 65 72 79 20 5b 6c 69 6e 64 65 78 20 24  lquery [lindex $
5670: 73 77 69 74 63 68 65 73 20 5b 69 6e 63 72 20 69  switches [incr i
5680: 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66 20  ]].    } elseif 
5690: 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e  {$n>=2 && [strin
56a0: 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68 20  g equal -length 
56b0: 24 6e 20 24 73 20 22 2d 65 72 72 6f 72 66 6f 72  $n $s "-errorfor
56c0: 6d 61 74 22 5d 7d 20 7b 0a 20 20 20 20 20 20 73  mat"]} {.      s
56d0: 65 74 20 65 72 72 66 6d 74 20 5b 6c 69 6e 64 65  et errfmt [linde
56e0: 78 20 24 73 77 69 74 63 68 65 73 20 5b 69 6e 63  x $switches [inc
56f0: 72 20 69 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65  r i]].    } else
5700: 69 66 20 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74  if {$n>=2 && [st
5710: 72 69 6e 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67  ring equal -leng
5720: 74 68 20 24 6e 20 24 73 20 22 2d 72 65 70 61 69  th $n $s "-repai
5730: 72 22 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74  r"]} {.      set
5740: 20 72 65 70 61 69 72 20 5b 6c 69 6e 64 65 78 20   repair [lindex 
5750: 24 73 77 69 74 63 68 65 73 20 5b 69 6e 63 72 20  $switches [incr 
5760: 69 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66  i]].    } elseif
5770: 20 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69   {$n>=2 && [stri
5780: 6e 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68  ng equal -length
5790: 20 24 6e 20 24 73 20 22 2d 63 6f 75 6e 74 22 5d   $n $s "-count"]
57a0: 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 63 6f  } {.      set co
57b0: 75 6e 74 6f 6e 6c 79 20 31 0a 20 20 20 20 7d 20  untonly 1.    } 
57c0: 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 65 72 72  else {.      err
57d0: 6f 72 20 22 75 6e 6b 6e 6f 77 6e 20 73 77 69 74  or "unknown swit
57e0: 63 68 3a 20 24 73 22 0a 20 20 20 20 7d 0a 20 20  ch: $s".    }.  
57f0: 7d 0a 0a 20 20 69 66 20 7b 24 63 6f 75 6e 74 6f  }..  if {$counto
5800: 6e 6c 79 20 26 26 20 24 65 72 72 66 6d 74 21 3d  nly && $errfmt!=
5810: 22 22 7d 20 7b 0a 20 20 20 20 65 72 72 6f 72 20  ""} {.    error 
5820: 22 43 61 6e 6e 6f 74 20 75 73 65 20 2d 63 6f 75  "Cannot use -cou
5830: 6e 74 20 61 6e 64 20 2d 65 72 72 6f 72 66 6f 72  nt and -errorfor
5840: 6d 61 74 20 74 6f 67 65 74 68 65 72 22 0a 20 20  mat together".  
5850: 7d 0a 20 20 73 65 74 20 6e 54 65 73 74 6c 69 73  }.  set nTestlis
5860: 74 20 5b 6c 6c 65 6e 67 74 68 20 24 74 65 73 74  t [llength $test
5870: 6c 69 73 74 5d 0a 20 20 69 66 20 7b 24 6e 54 65  list].  if {$nTe
5880: 73 74 6c 69 73 74 25 33 20 7c 7c 20 24 6e 54 65  stlist%3 || $nTe
5890: 73 74 6c 69 73 74 3d 3d 30 20 7d 20 7b 0a 20 20  stlist==0 } {.  
58a0: 20 20 65 72 72 6f 72 20 22 53 45 4c 45 43 54 20    error "SELECT 
58b0: 74 65 73 74 20 6c 69 73 74 20 63 6f 6e 74 61 69  test list contai
58c0: 6e 73 20 5b 6c 6c 65 6e 67 74 68 20 24 74 65 73  ns [llength $tes
58d0: 74 6c 69 73 74 5d 20 65 6c 65 6d 65 6e 74 73 22  tlist] elements"
58e0: 0a 20 20 7d 0a 0a 20 20 65 76 61 6c 20 24 72 65  .  }..  eval $re
58f0: 70 61 69 72 0a 20 20 66 6f 72 65 61 63 68 20 7b  pair.  foreach {
5900: 74 6e 20 73 71 6c 20 72 65 73 7d 20 24 74 65 73  tn sql res} $tes
5910: 74 6c 69 73 74 20 7b 0a 20 20 20 20 69 66 20 7b  tlist {.    if {
5920: 24 74 63 6c 71 75 65 72 79 20 21 3d 20 22 22 7d  $tclquery != ""}
5930: 20 7b 0a 20 20 20 20 20 20 65 78 65 63 73 71 6c   {.      execsql
5940: 20 24 73 71 6c 0a 20 20 20 20 20 20 75 70 6c 65   $sql.      uple
5950: 76 65 6c 20 64 6f 5f 74 65 73 74 20 24 7b 70 72  vel do_test ${pr
5960: 65 66 69 78 7d 2e 24 74 6e 20 5b 6c 69 73 74 20  efix}.$tn [list 
5970: 24 74 63 6c 71 75 65 72 79 5d 20 5b 6c 69 73 74  $tclquery] [list
5980: 20 5b 6c 69 73 74 20 7b 2a 7d 24 72 65 73 5d 5d   [list {*}$res]]
5990: 0a 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24  .    } elseif {$
59a0: 63 6f 75 6e 74 6f 6e 6c 79 7d 20 7b 0a 20 20 20  countonly} {.   
59b0: 20 20 20 73 65 74 20 6e 52 6f 77 20 30 0a 20 20     set nRow 0.  
59c0: 20 20 20 20 64 62 20 65 76 61 6c 20 24 73 71 6c      db eval $sql
59d0: 20 7b 69 6e 63 72 20 6e 52 6f 77 7d 0a 20 20 20   {incr nRow}.   
59e0: 20 20 20 75 70 6c 65 76 65 6c 20 64 6f 5f 74 65     uplevel do_te
59f0: 73 74 20 24 7b 70 72 65 66 69 78 7d 2e 24 74 6e  st ${prefix}.$tn
5a00: 20 5b 6c 69 73 74 20 5b 6c 69 73 74 20 73 65 74   [list [list set
5a10: 20 7b 7d 20 24 6e 52 6f 77 5d 5d 20 5b 6c 69 73   {} $nRow]] [lis
5a20: 74 20 24 72 65 73 5d 0a 20 20 20 20 7d 20 65 6c  t $res].    } el
5a30: 73 65 69 66 20 7b 24 65 72 72 66 6d 74 3d 3d 22  seif {$errfmt=="
5a40: 22 7d 20 7b 0a 20 20 20 20 20 20 75 70 6c 65 76  "} {.      uplev
5a50: 65 6c 20 64 6f 5f 65 78 65 63 73 71 6c 5f 74 65  el do_execsql_te
5a60: 73 74 20 24 7b 70 72 65 66 69 78 7d 2e 24 7b 74  st ${prefix}.${t
5a70: 6e 7d 20 5b 6c 69 73 74 20 24 73 71 6c 5d 20 5b  n} [list $sql] [
5a80: 6c 69 73 74 20 5b 6c 69 73 74 20 7b 2a 7d 24 72  list [list {*}$r
5a90: 65 73 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65 20  es]].    } else 
5aa0: 7b 0a 20 20 20 20 20 20 73 65 74 20 72 65 73 20  {.      set res 
5ab0: 5b 6c 69 73 74 20 31 20 5b 73 74 72 69 6e 67 20  [list 1 [string 
5ac0: 74 72 69 6d 20 5b 66 6f 72 6d 61 74 20 24 65 72  trim [format $er
5ad0: 72 66 6d 74 20 7b 2a 7d 24 72 65 73 5d 5d 5d 0a  rfmt {*}$res]]].
5ae0: 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20 64 6f        uplevel do
5af0: 5f 63 61 74 63 68 73 71 6c 5f 74 65 73 74 20 24  _catchsql_test $
5b00: 7b 70 72 65 66 69 78 7d 2e 24 7b 74 6e 7d 20 5b  {prefix}.${tn} [
5b10: 6c 69 73 74 20 24 73 71 6c 5d 20 5b 6c 69 73 74  list $sql] [list
5b20: 20 24 72 65 73 5d 0a 20 20 20 20 7d 0a 20 20 20   $res].    }.   
5b30: 20 65 76 61 6c 20 24 72 65 70 61 69 72 0a 20 20   eval $repair.  
5b40: 7d 0a 0a 7d 0a 0a 70 72 6f 63 20 64 65 6c 65 74  }..}..proc delet
5b50: 65 5f 61 6c 6c 5f 64 61 74 61 20 7b 7d 20 7b 0a  e_all_data {} {.
5b60: 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43    db eval {SELEC
5b70: 54 20 74 62 6c 5f 6e 61 6d 65 20 41 53 20 74 20  T tbl_name AS t 
5b80: 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74  FROM sqlite_mast
5b90: 65 72 20 57 48 45 52 45 20 74 79 70 65 20 3d 20  er WHERE type = 
5ba0: 27 74 61 62 6c 65 27 7d 20 7b 0a 20 20 20 20 64  'table'} {.    d
5bb0: 62 20 65 76 61 6c 20 22 44 45 4c 45 54 45 20 46  b eval "DELETE F
5bc0: 52 4f 4d 20 27 5b 73 74 72 69 6e 67 20 6d 61 70  ROM '[string map
5bd0: 20 7b 27 20 27 27 7d 20 24 74 5d 27 22 0a 20 20   {' ''} $t]'".  
5be0: 7d 0a 7d 0a 0a 23 20 52 75 6e 20 61 6e 20 53 51  }.}..# Run an SQ
5bf0: 4c 20 73 63 72 69 70 74 2e 0a 23 20 52 65 74 75  L script..# Retu
5c00: 72 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66  rn the number of
5c10: 20 6d 69 63 72 6f 73 65 63 6f 6e 64 73 20 70 65   microseconds pe
5c20: 72 20 73 74 61 74 65 6d 65 6e 74 2e 0a 23 0a 70  r statement..#.p
5c30: 72 6f 63 20 73 70 65 65 64 5f 74 72 69 61 6c 20  roc speed_trial 
5c40: 7b 6e 61 6d 65 20 6e 75 6d 73 74 6d 74 20 75 6e  {name numstmt un
5c50: 69 74 73 20 73 71 6c 7d 20 7b 0a 20 20 70 75 74  its sql} {.  put
5c60: 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 5b 66 6f  s -nonewline [fo
5c70: 72 6d 61 74 20 7b 25 2d 32 31 2e 32 31 73 20 7d  rmat {%-21.21s }
5c80: 20 24 6e 61 6d 65 2e 2e 2e 5d 0a 20 20 66 6c 75   $name...].  flu
5c90: 73 68 20 73 74 64 6f 75 74 0a 20 20 73 65 74 20  sh stdout.  set 
5ca0: 73 70 65 65 64 20 5b 74 69 6d 65 20 7b 73 71 6c  speed [time {sql
5cb0: 69 74 65 33 5f 65 78 65 63 5f 6e 72 20 64 62 20  ite3_exec_nr db 
5cc0: 24 73 71 6c 7d 5d 0a 20 20 73 65 74 20 74 6d 20  $sql}].  set tm 
5cd0: 5b 6c 69 6e 64 65 78 20 24 73 70 65 65 64 20 30  [lindex $speed 0
5ce0: 5d 0a 20 20 69 66 20 7b 24 74 6d 20 3d 3d 20 30  ].  if {$tm == 0
5cf0: 7d 20 7b 0a 20 20 20 20 73 65 74 20 72 61 74 65  } {.    set rate
5d00: 20 5b 66 6f 72 6d 61 74 20 25 32 30 73 20 22 6d   [format %20s "m
5d10: 61 6e 79 22 5d 0a 20 20 7d 20 65 6c 73 65 20 7b  any"].  } else {
5d20: 0a 20 20 20 20 73 65 74 20 72 61 74 65 20 5b 66  .    set rate [f
5d30: 6f 72 6d 61 74 20 25 32 30 2e 35 66 20 5b 65 78  ormat %20.5f [ex
5d40: 70 72 20 7b 31 30 30 30 30 30 30 2e 30 2a 24 6e  pr {1000000.0*$n
5d50: 75 6d 73 74 6d 74 2f 24 74 6d 7d 5d 5d 0a 20 20  umstmt/$tm}]].  
5d60: 7d 0a 20 20 73 65 74 20 75 32 20 24 75 6e 69 74  }.  set u2 $unit
5d70: 73 2f 73 0a 20 20 70 75 74 73 20 5b 66 6f 72 6d  s/s.  puts [form
5d80: 61 74 20 7b 25 31 32 64 20 75 53 20 25 73 20 25  at {%12d uS %s %
5d90: 73 7d 20 24 74 6d 20 24 72 61 74 65 20 24 75 32  s} $tm $rate $u2
5da0: 5d 0a 20 20 67 6c 6f 62 61 6c 20 74 6f 74 61 6c  ].  global total
5db0: 5f 74 69 6d 65 0a 20 20 73 65 74 20 74 6f 74 61  _time.  set tota
5dc0: 6c 5f 74 69 6d 65 20 5b 65 78 70 72 20 7b 24 74  l_time [expr {$t
5dd0: 6f 74 61 6c 5f 74 69 6d 65 2b 24 74 6d 7d 5d 0a  otal_time+$tm}].
5de0: 20 20 6c 61 70 70 65 6e 64 20 3a 3a 73 70 65 65    lappend ::spee
5df0: 64 5f 74 72 69 61 6c 5f 74 69 6d 65 73 20 24 6e  d_trial_times $n
5e00: 61 6d 65 20 24 74 6d 0a 7d 0a 70 72 6f 63 20 73  ame $tm.}.proc s
5e10: 70 65 65 64 5f 74 72 69 61 6c 5f 74 63 6c 20 7b  peed_trial_tcl {
5e20: 6e 61 6d 65 20 6e 75 6d 73 74 6d 74 20 75 6e 69  name numstmt uni
5e30: 74 73 20 73 63 72 69 70 74 7d 20 7b 0a 20 20 70  ts script} {.  p
5e40: 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 5b  uts -nonewline [
5e50: 66 6f 72 6d 61 74 20 7b 25 2d 32 31 2e 32 31 73  format {%-21.21s
5e60: 20 7d 20 24 6e 61 6d 65 2e 2e 2e 5d 0a 20 20 66   } $name...].  f
5e70: 6c 75 73 68 20 73 74 64 6f 75 74 0a 20 20 73 65  lush stdout.  se
5e80: 74 20 73 70 65 65 64 20 5b 74 69 6d 65 20 7b 65  t speed [time {e
5e90: 76 61 6c 20 24 73 63 72 69 70 74 7d 5d 0a 20 20  val $script}].  
5ea0: 73 65 74 20 74 6d 20 5b 6c 69 6e 64 65 78 20 24  set tm [lindex $
5eb0: 73 70 65 65 64 20 30 5d 0a 20 20 69 66 20 7b 24  speed 0].  if {$
5ec0: 74 6d 20 3d 3d 20 30 7d 20 7b 0a 20 20 20 20 73  tm == 0} {.    s
5ed0: 65 74 20 72 61 74 65 20 5b 66 6f 72 6d 61 74 20  et rate [format 
5ee0: 25 32 30 73 20 22 6d 61 6e 79 22 5d 0a 20 20 7d  %20s "many"].  }
5ef0: 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20   else {.    set 
5f00: 72 61 74 65 20 5b 66 6f 72 6d 61 74 20 25 32 30  rate [format %20
5f10: 2e 35 66 20 5b 65 78 70 72 20 7b 31 30 30 30 30  .5f [expr {10000
5f20: 30 30 2e 30 2a 24 6e 75 6d 73 74 6d 74 2f 24 74  00.0*$numstmt/$t
5f30: 6d 7d 5d 5d 0a 20 20 7d 0a 20 20 73 65 74 20 75  m}]].  }.  set u
5f40: 32 20 24 75 6e 69 74 73 2f 73 0a 20 20 70 75 74  2 $units/s.  put
5f50: 73 20 5b 66 6f 72 6d 61 74 20 7b 25 31 32 64 20  s [format {%12d 
5f60: 75 53 20 25 73 20 25 73 7d 20 24 74 6d 20 24 72  uS %s %s} $tm $r
5f70: 61 74 65 20 24 75 32 5d 0a 20 20 67 6c 6f 62 61  ate $u2].  globa
5f80: 6c 20 74 6f 74 61 6c 5f 74 69 6d 65 0a 20 20 73  l total_time.  s
5f90: 65 74 20 74 6f 74 61 6c 5f 74 69 6d 65 20 5b 65  et total_time [e
5fa0: 78 70 72 20 7b 24 74 6f 74 61 6c 5f 74 69 6d 65  xpr {$total_time
5fb0: 2b 24 74 6d 7d 5d 0a 20 20 6c 61 70 70 65 6e 64  +$tm}].  lappend
5fc0: 20 3a 3a 73 70 65 65 64 5f 74 72 69 61 6c 5f 74   ::speed_trial_t
5fd0: 69 6d 65 73 20 24 6e 61 6d 65 20 24 74 6d 0a 7d  imes $name $tm.}
5fe0: 0a 70 72 6f 63 20 73 70 65 65 64 5f 74 72 69 61  .proc speed_tria
5ff0: 6c 5f 69 6e 69 74 20 7b 6e 61 6d 65 7d 20 7b 0a  l_init {name} {.
6000: 20 20 67 6c 6f 62 61 6c 20 74 6f 74 61 6c 5f 74    global total_t
6010: 69 6d 65 0a 20 20 73 65 74 20 74 6f 74 61 6c 5f  ime.  set total_
6020: 74 69 6d 65 20 30 0a 20 20 73 65 74 20 3a 3a 73  time 0.  set ::s
6030: 70 65 65 64 5f 74 72 69 61 6c 5f 74 69 6d 65 73  peed_trial_times
6040: 20 5b 6c 69 73 74 5d 0a 20 20 73 71 6c 69 74 65   [list].  sqlite
6050: 33 20 76 65 72 73 64 62 20 3a 6d 65 6d 6f 72 79  3 versdb :memory
6060: 3a 0a 20 20 73 65 74 20 76 65 72 73 20 5b 76 65  :.  set vers [ve
6070: 72 73 64 62 20 6f 6e 65 20 7b 53 45 4c 45 43 54  rsdb one {SELECT
6080: 20 73 71 6c 69 74 65 5f 73 6f 75 72 63 65 5f 69   sqlite_source_i
6090: 64 28 29 7d 5d 0a 20 20 76 65 72 73 64 62 20 63  d()}].  versdb c
60a0: 6c 6f 73 65 0a 20 20 70 75 74 73 20 22 53 51 4c  lose.  puts "SQL
60b0: 69 74 65 20 24 76 65 72 73 22 0a 7d 0a 70 72 6f  ite $vers".}.pro
60c0: 63 20 73 70 65 65 64 5f 74 72 69 61 6c 5f 73 75  c speed_trial_su
60d0: 6d 6d 61 72 79 20 7b 6e 61 6d 65 7d 20 7b 0a 20  mmary {name} {. 
60e0: 20 67 6c 6f 62 61 6c 20 74 6f 74 61 6c 5f 74 69   global total_ti
60f0: 6d 65 0a 20 20 70 75 74 73 20 5b 66 6f 72 6d 61  me.  puts [forma
6100: 74 20 7b 25 2d 32 31 2e 32 31 73 20 25 31 32 64  t {%-21.21s %12d
6110: 20 75 53 20 54 4f 54 41 4c 7d 20 24 6e 61 6d 65   uS TOTAL} $name
6120: 20 24 74 6f 74 61 6c 5f 74 69 6d 65 5d 0a 0a 20   $total_time].. 
6130: 20 69 66 20 7b 20 30 20 7d 20 7b 0a 20 20 20 20   if { 0 } {.    
6140: 73 71 6c 69 74 65 33 20 76 65 72 73 64 62 20 3a  sqlite3 versdb :
6150: 6d 65 6d 6f 72 79 3a 0a 20 20 20 20 73 65 74 20  memory:.    set 
6160: 76 65 72 73 20 5b 6c 69 6e 64 65 78 20 5b 76 65  vers [lindex [ve
6170: 72 73 64 62 20 6f 6e 65 20 7b 53 45 4c 45 43 54  rsdb one {SELECT
6180: 20 73 71 6c 69 74 65 5f 73 6f 75 72 63 65 5f 69   sqlite_source_i
6190: 64 28 29 7d 5d 20 30 5d 0a 20 20 20 20 76 65 72  d()}] 0].    ver
61a0: 73 64 62 20 63 6c 6f 73 65 0a 20 20 20 20 70 75  sdb close.    pu
61b0: 74 73 20 22 43 52 45 41 54 45 20 54 41 42 4c 45  ts "CREATE TABLE
61c0: 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20 74   IF NOT EXISTS t
61d0: 69 6d 65 28 76 65 72 73 69 6f 6e 2c 20 73 63 72  ime(version, scr
61e0: 69 70 74 2c 20 74 65 73 74 2c 20 75 73 29 3b 22  ipt, test, us);"
61f0: 0a 20 20 20 20 66 6f 72 65 61 63 68 20 7b 74 65  .    foreach {te
6200: 73 74 20 75 73 7d 20 24 3a 3a 73 70 65 65 64 5f  st us} $::speed_
6210: 74 72 69 61 6c 5f 74 69 6d 65 73 20 7b 0a 20 20  trial_times {.  
6220: 20 20 20 20 70 75 74 73 20 22 49 4e 53 45 52 54      puts "INSERT
6230: 20 49 4e 54 4f 20 74 69 6d 65 20 56 41 4c 55 45   INTO time VALUE
6240: 53 28 27 24 76 65 72 73 27 2c 20 27 24 6e 61 6d  S('$vers', '$nam
6250: 65 27 2c 20 27 24 74 65 73 74 27 2c 20 24 75 73  e', '$test', $us
6260: 29 3b 22 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a  );".    }.  }.}.
6270: 0a 23 20 52 75 6e 20 74 68 69 73 20 72 6f 75 74  .# Run this rout
6280: 69 6e 65 20 6c 61 73 74 0a 23 0a 70 72 6f 63 20  ine last.#.proc 
6290: 66 69 6e 69 73 68 5f 74 65 73 74 20 7b 7d 20 7b  finish_test {} {
62a0: 0a 20 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f  .  catch {db clo
62b0: 73 65 7d 0a 20 20 63 61 74 63 68 20 7b 64 62 32  se}.  catch {db2
62c0: 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68 20   close}.  catch 
62d0: 7b 64 62 33 20 63 6c 6f 73 65 7d 0a 20 20 69 66  {db3 close}.  if
62e0: 20 7b 30 3d 3d 5b 69 6e 66 6f 20 65 78 69 73 74   {0==[info exist
62f0: 73 20 3a 3a 53 4c 41 56 45 5d 7d 20 7b 20 66 69  s ::SLAVE]} { fi
6300: 6e 61 6c 69 7a 65 5f 74 65 73 74 69 6e 67 20 7d  nalize_testing }
6310: 0a 7d 0a 70 72 6f 63 20 66 69 6e 61 6c 69 7a 65  .}.proc finalize
6320: 5f 74 65 73 74 69 6e 67 20 7b 7d 20 7b 0a 20 20  _testing {} {.  
6330: 67 6c 6f 62 61 6c 20 73 71 6c 69 74 65 5f 6f 70  global sqlite_op
6340: 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 0a 0a 20  en_file_count.. 
6350: 20 73 65 74 20 6f 6d 69 74 4c 69 73 74 20 5b 73   set omitList [s
6360: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20  et_test_counter 
6370: 6f 6d 69 74 5f 6c 69 73 74 5d 0a 0a 20 20 63 61  omit_list]..  ca
6380: 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 20  tch {db close}. 
6390: 20 63 61 74 63 68 20 7b 64 62 32 20 63 6c 6f 73   catch {db2 clos
63a0: 65 7d 0a 20 20 63 61 74 63 68 20 7b 64 62 33 20  e}.  catch {db3 
63b0: 63 6c 6f 73 65 7d 0a 0a 20 20 76 66 73 5f 75 6e  close}..  vfs_un
63c0: 6c 69 6e 6b 5f 74 65 73 74 0a 20 20 73 71 6c 69  link_test.  sqli
63d0: 74 65 33 20 64 62 20 7b 7d 0a 20 20 23 20 73 71  te3 db {}.  # sq
63e0: 6c 69 74 65 33 5f 63 6c 65 61 72 5f 74 73 64 5f  lite3_clear_tsd_
63f0: 6d 65 6d 64 65 62 75 67 0a 20 20 64 62 20 63 6c  memdebug.  db cl
6400: 6f 73 65 0a 20 20 73 71 6c 69 74 65 33 5f 72 65  ose.  sqlite3_re
6410: 73 65 74 5f 61 75 74 6f 5f 65 78 74 65 6e 73 69  set_auto_extensi
6420: 6f 6e 0a 0a 20 20 73 71 6c 69 74 65 33 5f 73 6f  on..  sqlite3_so
6430: 66 74 5f 68 65 61 70 5f 6c 69 6d 69 74 20 30 0a  ft_heap_limit 0.
6440: 20 20 73 65 74 20 6e 54 65 73 74 20 5b 69 6e 63    set nTest [inc
6450: 72 5f 6e 74 65 73 74 5d 0a 20 20 73 65 74 20 6e  r_ntest].  set n
6460: 45 72 72 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f  Err [set_test_co
6470: 75 6e 74 65 72 20 65 72 72 6f 72 73 5d 0a 0a 20  unter errors].. 
6480: 20 73 65 74 20 6e 4b 6e 6f 77 6e 20 30 0a 20 20   set nKnown 0.  
6490: 69 66 20 7b 5b 66 69 6c 65 20 72 65 61 64 61 62  if {[file readab
64a0: 6c 65 20 6b 6e 6f 77 6e 2d 70 72 6f 62 6c 65 6d  le known-problem
64b0: 73 2e 74 78 74 5d 7d 20 7b 0a 20 20 20 20 73 65  s.txt]} {.    se
64c0: 74 20 66 64 20 5b 6f 70 65 6e 20 6b 6e 6f 77 6e  t fd [open known
64d0: 2d 70 72 6f 62 6c 65 6d 73 2e 74 78 74 5d 0a 20  -problems.txt]. 
64e0: 20 20 20 73 65 74 20 63 6f 6e 74 65 6e 74 20 5b     set content [
64f0: 72 65 61 64 20 24 66 64 5d 0a 20 20 20 20 63 6c  read $fd].    cl
6500: 6f 73 65 20 24 66 64 0a 20 20 20 20 66 6f 72 65  ose $fd.    fore
6510: 61 63 68 20 78 20 24 63 6f 6e 74 65 6e 74 20 7b  ach x $content {
6520: 73 65 74 20 6b 6e 6f 77 6e 5f 65 72 72 6f 72 28  set known_error(
6530: 24 78 29 20 31 7d 0a 20 20 20 20 66 6f 72 65 61  $x) 1}.    forea
6540: 63 68 20 78 20 5b 73 65 74 5f 74 65 73 74 5f 63  ch x [set_test_c
6550: 6f 75 6e 74 65 72 20 66 61 69 6c 5f 6c 69 73 74  ounter fail_list
6560: 5d 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 5b 69  ] {.      if {[i
6570: 6e 66 6f 20 65 78 69 73 74 73 20 6b 6e 6f 77 6e  nfo exists known
6580: 5f 65 72 72 6f 72 28 24 78 29 5d 7d 20 7b 69 6e  _error($x)]} {in
6590: 63 72 20 6e 4b 6e 6f 77 6e 7d 0a 20 20 20 20 7d  cr nKnown}.    }
65a0: 0a 20 20 7d 0a 20 20 69 66 20 7b 24 6e 4b 6e 6f  .  }.  if {$nKno
65b0: 77 6e 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73  wn>0} {.    puts
65c0: 20 22 5b 65 78 70 72 20 7b 24 6e 45 72 72 2d 24   "[expr {$nErr-$
65d0: 6e 4b 6e 6f 77 6e 7d 5d 20 6e 65 77 20 65 72 72  nKnown}] new err
65e0: 6f 72 73 20 61 6e 64 20 24 6e 4b 6e 6f 77 6e 20  ors and $nKnown 
65f0: 6b 6e 6f 77 6e 20 65 72 72 6f 72 73 5c 0a 20 20  known errors\.  
6600: 20 20 20 20 20 20 20 6f 75 74 20 6f 66 20 24 6e         out of $n
6610: 54 65 73 74 20 74 65 73 74 73 22 0a 20 20 7d 20  Test tests".  } 
6620: 65 6c 73 65 20 7b 0a 20 20 20 20 70 75 74 73 20  else {.    puts 
6630: 22 24 6e 45 72 72 20 65 72 72 6f 72 73 20 6f 75  "$nErr errors ou
6640: 74 20 6f 66 20 24 6e 54 65 73 74 20 74 65 73 74  t of $nTest test
6650: 73 22 0a 20 20 7d 0a 20 20 69 66 20 7b 24 6e 45  s".  }.  if {$nE
6660: 72 72 3e 24 6e 4b 6e 6f 77 6e 7d 20 7b 0a 20 20  rr>$nKnown} {.  
6670: 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e    puts -nonewlin
6680: 65 20 22 46 61 69 6c 75 72 65 73 20 6f 6e 20 74  e "Failures on t
6690: 68 65 73 65 20 74 65 73 74 73 3a 22 0a 20 20 20  hese tests:".   
66a0: 20 66 6f 72 65 61 63 68 20 78 20 5b 73 65 74 5f   foreach x [set_
66b0: 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 66 61 69  test_counter fai
66c0: 6c 5f 6c 69 73 74 5d 20 7b 0a 20 20 20 20 20 20  l_list] {.      
66d0: 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74  if {![info exist
66e0: 73 20 6b 6e 6f 77 6e 5f 65 72 72 6f 72 28 24 78  s known_error($x
66f0: 29 5d 7d 20 7b 70 75 74 73 20 2d 6e 6f 6e 65 77  )]} {puts -nonew
6700: 6c 69 6e 65 20 22 20 24 78 22 7d 0a 20 20 20 20  line " $x"}.    
6710: 7d 0a 20 20 20 20 70 75 74 73 20 22 22 0a 20 20  }.    puts "".  
6720: 7d 0a 20 20 66 6f 72 65 61 63 68 20 77 61 72 6e  }.  foreach warn
6730: 69 6e 67 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f  ing [set_test_co
6740: 75 6e 74 65 72 20 77 61 72 6e 5f 6c 69 73 74 5d  unter warn_list]
6750: 20 7b 0a 20 20 20 20 70 75 74 73 20 22 57 61 72   {.    puts "War
6760: 6e 69 6e 67 3a 20 24 77 61 72 6e 69 6e 67 22 0a  ning: $warning".
6770: 20 20 7d 0a 20 20 72 75 6e 5f 74 68 72 65 61 64    }.  run_thread
6780: 5f 74 65 73 74 73 20 31 0a 20 20 69 66 20 7b 5b  _tests 1.  if {[
6790: 6c 6c 65 6e 67 74 68 20 24 6f 6d 69 74 4c 69 73  llength $omitLis
67a0: 74 5d 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73  t]>0} {.    puts
67b0: 20 22 4f 6d 69 74 74 65 64 20 74 65 73 74 20 63   "Omitted test c
67c0: 61 73 65 73 3a 22 0a 20 20 20 20 73 65 74 20 70  ases:".    set p
67d0: 72 65 63 20 7b 7d 0a 20 20 20 20 66 6f 72 65 61  rec {}.    forea
67e0: 63 68 20 7b 72 65 63 7d 20 5b 6c 73 6f 72 74 20  ch {rec} [lsort 
67f0: 24 6f 6d 69 74 4c 69 73 74 5d 20 7b 0a 20 20 20  $omitList] {.   
6800: 20 20 20 69 66 20 7b 24 72 65 63 3d 3d 24 70 72     if {$rec==$pr
6810: 65 63 7d 20 63 6f 6e 74 69 6e 75 65 0a 20 20 20  ec} continue.   
6820: 20 20 20 73 65 74 20 70 72 65 63 20 24 72 65 63     set prec $rec
6830: 0a 20 20 20 20 20 20 70 75 74 73 20 5b 66 6f 72  .      puts [for
6840: 6d 61 74 20 7b 20 20 25 2d 31 32 73 20 25 73 7d  mat {  %-12s %s}
6850: 20 5b 6c 69 6e 64 65 78 20 24 72 65 63 20 30 5d   [lindex $rec 0]
6860: 20 5b 6c 69 6e 64 65 78 20 24 72 65 63 20 31 5d   [lindex $rec 1]
6870: 5d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66  ].    }.  }.  if
6880: 20 7b 24 6e 45 72 72 3e 30 20 26 26 20 21 5b 77   {$nErr>0 && ![w
6890: 6f 72 6b 69 6e 67 5f 36 34 62 69 74 5f 69 6e 74  orking_64bit_int
68a0: 5d 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22 2a  ]} {.    puts "*
68b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
68c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
68d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
68e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
68f0: 2a 22 0a 20 20 20 20 70 75 74 73 20 22 4e 2e 42  *".    puts "N.B
6900: 2e 3a 20 20 54 68 65 20 76 65 72 73 69 6f 6e 20  .:  The version 
6910: 6f 66 20 54 43 4c 20 74 68 61 74 20 79 6f 75 20  of TCL that you 
6920: 75 73 65 64 20 74 6f 20 62 75 69 6c 64 20 74 68  used to build th
6930: 69 73 20 74 65 73 74 20 68 61 72 6e 65 73 73 22  is test harness"
6940: 0a 20 20 20 20 70 75 74 73 20 22 69 73 20 64 65  .    puts "is de
6950: 66 65 63 74 69 76 65 20 69 6e 20 74 68 61 74 20  fective in that 
6960: 69 74 20 64 6f 65 73 20 6e 6f 74 20 73 75 70 70  it does not supp
6970: 6f 72 74 20 36 34 2d 62 69 74 20 69 6e 74 65 67  ort 64-bit integ
6980: 65 72 73 2e 20 20 53 6f 6d 65 20 6f 72 22 0a 20  ers.  Some or". 
6990: 20 20 20 70 75 74 73 20 22 61 6c 6c 20 6f 66 20     puts "all of 
69a0: 74 68 65 20 74 65 73 74 20 66 61 69 6c 75 72 65  the test failure
69b0: 73 20 61 62 6f 76 65 20 6d 69 67 68 74 20 62 65  s above might be
69c0: 20 61 20 72 65 73 75 6c 74 20 66 72 6f 6d 20 74   a result from t
69d0: 68 69 73 20 64 65 66 65 63 74 22 0a 20 20 20 20  his defect".    
69e0: 70 75 74 73 20 22 69 6e 20 79 6f 75 72 20 54 43  puts "in your TC
69f0: 4c 20 62 75 69 6c 64 2e 22 0a 20 20 20 20 70 75  L build.".    pu
6a00: 74 73 20 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ts "************
6a10: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6a20: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6a30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6a40: 2a 2a 2a 2a 2a 2a 22 0a 20 20 7d 0a 20 20 69 66  ******".  }.  if
6a50: 20 7b 24 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 28   {$::cmdlinearg(
6a60: 62 69 6e 61 72 79 6c 6f 67 29 7d 20 7b 0a 20 20  binarylog)} {.  
6a70: 20 20 76 66 73 6c 6f 67 20 66 69 6e 61 6c 69 7a    vfslog finaliz
6a80: 65 20 62 69 6e 61 72 79 6c 6f 67 0a 20 20 7d 0a  e binarylog.  }.
6a90: 20 20 69 66 20 7b 24 73 71 6c 69 74 65 5f 6f 70    if {$sqlite_op
6aa0: 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 7d 20 7b  en_file_count} {
6ab0: 0a 20 20 20 20 70 75 74 73 20 22 24 73 71 6c 69  .    puts "$sqli
6ac0: 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75  te_open_file_cou
6ad0: 6e 74 20 66 69 6c 65 73 20 77 65 72 65 20 6c 65  nt files were le
6ae0: 66 74 20 6f 70 65 6e 22 0a 20 20 20 20 69 6e 63  ft open".    inc
6af0: 72 20 6e 45 72 72 0a 20 20 7d 0a 20 20 69 66 20  r nErr.  }.  if 
6b00: 7b 5b 6c 69 6e 64 65 78 20 5b 73 71 6c 69 74 65  {[lindex [sqlite
6b10: 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f  3_status SQLITE_
6b20: 53 54 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f 43 4f  STATUS_MALLOC_CO
6b30: 55 4e 54 20 30 5d 20 31 5d 3e 30 20 7c 7c 0a 20  UNT 0] 1]>0 ||. 
6b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 73 71               [sq
6b50: 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73 65  lite3_memory_use
6b60: 64 5d 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73  d]>0} {.    puts
6b70: 20 22 55 6e 66 72 65 65 64 20 6d 65 6d 6f 72 79   "Unfreed memory
6b80: 3a 20 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72  : [sqlite3_memor
6b90: 79 5f 75 73 65 64 5d 20 62 79 74 65 73 20 69 6e  y_used] bytes in
6ba0: 5c 0a 20 20 20 20 20 20 20 20 20 5b 6c 69 6e 64  \.         [lind
6bb0: 65 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74  ex [sqlite3_stat
6bc0: 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53  us SQLITE_STATUS
6bd0: 5f 4d 41 4c 4c 4f 43 5f 43 4f 55 4e 54 20 30 5d  _MALLOC_COUNT 0]
6be0: 20 31 5d 20 61 6c 6c 6f 63 61 74 69 6f 6e 73 22   1] allocations"
6bf0: 0a 20 20 20 20 69 6e 63 72 20 6e 45 72 72 0a 20  .    incr nErr. 
6c00: 20 20 20 69 66 63 61 70 61 62 6c 65 20 6d 65 6d     ifcapable mem
6c10: 64 65 62 75 67 7c 7c 6d 65 6d 35 7c 7c 28 6d 65  debug||mem5||(me
6c20: 6d 33 26 26 64 65 62 75 67 29 20 7b 0a 20 20 20  m3&&debug) {.   
6c30: 20 20 20 70 75 74 73 20 22 57 72 69 74 69 6e 67     puts "Writing
6c40: 20 75 6e 66 72 65 65 64 20 6d 65 6d 6f 72 79 20   unfreed memory 
6c50: 6c 6f 67 20 74 6f 20 5c 22 2e 2f 6d 65 6d 6c 65  log to \"./memle
6c60: 61 6b 2e 74 78 74 5c 22 22 0a 20 20 20 20 20 20  ak.txt\"".      
6c70: 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67  sqlite3_memdebug
6c80: 5f 64 75 6d 70 20 2e 2f 6d 65 6d 6c 65 61 6b 2e  _dump ./memleak.
6c90: 74 78 74 0a 20 20 20 20 7d 0a 20 20 7d 20 65 6c  txt.    }.  } el
6ca0: 73 65 20 7b 0a 20 20 20 20 70 75 74 73 20 22 41  se {.    puts "A
6cb0: 6c 6c 20 6d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61  ll memory alloca
6cc0: 74 69 6f 6e 73 20 66 72 65 65 64 20 2d 20 6e 6f  tions freed - no
6cd0: 20 6c 65 61 6b 73 22 0a 20 20 20 20 69 66 63 61   leaks".    ifca
6ce0: 70 61 62 6c 65 20 6d 65 6d 64 65 62 75 67 7c 7c  pable memdebug||
6cf0: 6d 65 6d 35 20 7b 0a 20 20 20 20 20 20 73 71 6c  mem5 {.      sql
6d00: 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 64 75  ite3_memdebug_du
6d10: 6d 70 20 2e 2f 6d 65 6d 75 73 61 67 65 2e 74 78  mp ./memusage.tx
6d20: 74 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 68  t.    }.  }.  sh
6d30: 6f 77 5f 6d 65 6d 73 74 61 74 73 0a 20 20 70 75  ow_memstats.  pu
6d40: 74 73 20 22 4d 61 78 69 6d 75 6d 20 6d 65 6d 6f  ts "Maximum memo
6d50: 72 79 20 75 73 61 67 65 3a 20 5b 73 71 6c 69 74  ry usage: [sqlit
6d60: 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 61  e3_memory_highwa
6d70: 74 65 72 20 31 5d 20 62 79 74 65 73 22 0a 20 20  ter 1] bytes".  
6d80: 70 75 74 73 20 22 43 75 72 72 65 6e 74 20 6d 65  puts "Current me
6d90: 6d 6f 72 79 20 75 73 61 67 65 3a 20 5b 73 71 6c  mory usage: [sql
6da0: 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68  ite3_memory_high
6db0: 77 61 74 65 72 5d 20 62 79 74 65 73 22 0a 20 20  water] bytes".  
6dc0: 69 66 20 7b 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e  if {[info comman
6dd0: 64 73 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65  ds sqlite3_memde
6de0: 62 75 67 5f 6d 61 6c 6c 6f 63 5f 63 6f 75 6e 74  bug_malloc_count
6df0: 5d 20 6e 65 20 22 22 7d 20 7b 0a 20 20 20 20 70  ] ne ""} {.    p
6e00: 75 74 73 20 22 4e 75 6d 62 65 72 20 6f 66 20 6d  uts "Number of m
6e10: 61 6c 6c 6f 63 28 29 20 20 3a 20 5b 73 71 6c 69  alloc()  : [sqli
6e20: 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 6d 61 6c  te3_memdebug_mal
6e30: 6c 6f 63 5f 63 6f 75 6e 74 5d 20 63 61 6c 6c 73  loc_count] calls
6e40: 22 0a 20 20 7d 0a 20 20 69 66 20 7b 24 3a 3a 63  ".  }.  if {$::c
6e50: 6d 64 6c 69 6e 65 61 72 67 28 6d 61 6c 6c 6f 63  mdlinearg(malloc
6e60: 74 72 61 63 65 29 7d 20 7b 0a 20 20 20 20 70 75  trace)} {.    pu
6e70: 74 73 20 22 57 72 69 74 69 6e 67 20 6d 61 6c 6c  ts "Writing mall
6e80: 6f 63 73 2e 73 71 6c 2e 2e 2e 22 0a 20 20 20 20  ocs.sql...".    
6e90: 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 5f 73 71 6c  memdebug_log_sql
6ea0: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d  .    sqlite3_mem
6eb0: 64 65 62 75 67 5f 6c 6f 67 20 73 74 6f 70 0a 20  debug_log stop. 
6ec0: 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65     sqlite3_memde
6ed0: 62 75 67 5f 6c 6f 67 20 63 6c 65 61 72 0a 0a 20  bug_log clear.. 
6ee0: 20 20 20 69 66 20 7b 5b 73 71 6c 69 74 65 33 5f     if {[sqlite3_
6ef0: 6d 65 6d 6f 72 79 5f 75 73 65 64 5d 3e 30 7d 20  memory_used]>0} 
6f00: 7b 0a 20 20 20 20 20 20 70 75 74 73 20 22 57 72  {.      puts "Wr
6f10: 69 74 69 6e 67 20 6c 65 61 6b 73 2e 73 71 6c 2e  iting leaks.sql.
6f20: 2e 2e 22 0a 20 20 20 20 20 20 73 71 6c 69 74 65  ..".      sqlite
6f30: 33 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 20 73  3_memdebug_log s
6f40: 79 6e 63 0a 20 20 20 20 20 20 6d 65 6d 64 65 62  ync.      memdeb
6f50: 75 67 5f 6c 6f 67 5f 73 71 6c 20 6c 65 61 6b 73  ug_log_sql leaks
6f60: 2e 73 71 6c 0a 20 20 20 20 7d 0a 20 20 7d 0a 20  .sql.    }.  }. 
6f70: 20 66 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f 62   foreach f [glob
6f80: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 73   -nocomplain tes
6f90: 74 2e 64 62 2d 2a 2d 6a 6f 75 72 6e 61 6c 5d 20  t.db-*-journal] 
6fa0: 7b 0a 20 20 20 20 66 6f 72 63 65 64 65 6c 65 74  {.    forcedelet
6fb0: 65 20 24 66 0a 20 20 7d 0a 20 20 66 6f 72 65 61  e $f.  }.  forea
6fc0: 63 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f  ch f [glob -noco
6fd0: 6d 70 6c 61 69 6e 20 74 65 73 74 2e 64 62 2d 6d  mplain test.db-m
6fe0: 6a 2a 5d 20 7b 0a 20 20 20 20 66 6f 72 63 65 64  j*] {.    forced
6ff0: 65 6c 65 74 65 20 24 66 0a 20 20 7d 0a 20 20 65  elete $f.  }.  e
7000: 78 69 74 20 5b 65 78 70 72 20 7b 24 6e 45 72 72  xit [expr {$nErr
7010: 3e 30 7d 5d 0a 7d 0a 0a 23 20 44 69 73 70 6c 61  >0}].}..# Displa
7020: 79 20 6d 65 6d 6f 72 79 20 73 74 61 74 69 73 74  y memory statist
7030: 69 63 73 20 66 6f 72 20 61 6e 61 6c 79 73 69 73  ics for analysis
7040: 20 61 6e 64 20 64 65 62 75 67 67 69 6e 67 20 70   and debugging p
7050: 75 72 70 6f 73 65 73 2e 0a 23 0a 70 72 6f 63 20  urposes..#.proc 
7060: 73 68 6f 77 5f 6d 65 6d 73 74 61 74 73 20 7b 7d  show_memstats {}
7070: 20 7b 0a 20 20 73 65 74 20 78 20 5b 73 71 6c 69   {.  set x [sqli
7080: 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54  te3_status SQLIT
7090: 45 5f 53 54 41 54 55 53 5f 4d 45 4d 4f 52 59 5f  E_STATUS_MEMORY_
70a0: 55 53 45 44 20 30 5d 0a 20 20 73 65 74 20 79 20  USED 0].  set y 
70b0: 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20  [sqlite3_status 
70c0: 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 4d 41  SQLITE_STATUS_MA
70d0: 4c 4c 4f 43 5f 53 49 5a 45 20 30 5d 0a 20 20 73  LLOC_SIZE 0].  s
70e0: 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b  et val [format {
70f0: 6e 6f 77 20 25 31 30 64 20 20 6d 61 78 20 25 31  now %10d  max %1
7100: 30 64 20 20 6d 61 78 2d 73 69 7a 65 20 25 31 30  0d  max-size %10
7110: 64 7d 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20  d} \.           
7120: 20 20 20 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d     [lindex $x 1]
7130: 20 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 20 5b   [lindex $x 2] [
7140: 6c 69 6e 64 65 78 20 24 79 20 32 5d 5d 0a 20 20  lindex $y 2]].  
7150: 70 75 74 73 20 22 4d 65 6d 6f 72 79 20 75 73 65  puts "Memory use
7160: 64 3a 20 20 20 20 20 20 20 20 20 20 24 76 61 6c  d:          $val
7170: 22 0a 20 20 73 65 74 20 78 20 5b 73 71 6c 69 74  ".  set x [sqlit
7180: 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45  e3_status SQLITE
7190: 5f 53 54 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f 43  _STATUS_MALLOC_C
71a0: 4f 55 4e 54 20 30 5d 0a 20 20 73 65 74 20 76 61  OUNT 0].  set va
71b0: 6c 20 5b 66 6f 72 6d 61 74 20 7b 6e 6f 77 20 25  l [format {now %
71c0: 31 30 64 20 20 6d 61 78 20 25 31 30 64 7d 20 5b  10d  max %10d} [
71d0: 6c 69 6e 64 65 78 20 24 78 20 31 5d 20 5b 6c 69  lindex $x 1] [li
71e0: 6e 64 65 78 20 24 78 20 32 5d 5d 0a 20 20 70 75  ndex $x 2]].  pu
71f0: 74 73 20 22 41 6c 6c 6f 63 61 74 69 6f 6e 20 63  ts "Allocation c
7200: 6f 75 6e 74 3a 20 20 20 20 20 24 76 61 6c 22 0a  ount:     $val".
7210: 20 20 73 65 74 20 78 20 5b 73 71 6c 69 74 65 33    set x [sqlite3
7220: 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53  _status SQLITE_S
7230: 54 41 54 55 53 5f 50 41 47 45 43 41 43 48 45 5f  TATUS_PAGECACHE_
7240: 55 53 45 44 20 30 5d 0a 20 20 73 65 74 20 79 20  USED 0].  set y 
7250: 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20  [sqlite3_status 
7260: 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 50 41  SQLITE_STATUS_PA
7270: 47 45 43 41 43 48 45 5f 53 49 5a 45 20 30 5d 0a  GECACHE_SIZE 0].
7280: 20 20 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61    set val [forma
7290: 74 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d 61 78  t {now %10d  max
72a0: 20 25 31 30 64 20 20 6d 61 78 2d 73 69 7a 65 20   %10d  max-size 
72b0: 25 31 30 64 7d 20 5c 0a 20 20 20 20 20 20 20 20  %10d} \.        
72c0: 20 20 20 20 20 20 5b 6c 69 6e 64 65 78 20 24 78        [lindex $x
72d0: 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 78 20 32   1] [lindex $x 2
72e0: 5d 20 5b 6c 69 6e 64 65 78 20 24 79 20 32 5d 5d  ] [lindex $y 2]]
72f0: 0a 20 20 70 75 74 73 20 22 50 61 67 65 2d 63 61  .  puts "Page-ca
7300: 63 68 65 20 75 73 65 64 3a 20 20 20 20 20 20 24  che used:      $
7310: 76 61 6c 22 0a 20 20 73 65 74 20 78 20 5b 73 71  val".  set x [sq
7320: 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c  lite3_status SQL
7330: 49 54 45 5f 53 54 41 54 55 53 5f 50 41 47 45 43  ITE_STATUS_PAGEC
7340: 41 43 48 45 5f 4f 56 45 52 46 4c 4f 57 20 30 5d  ACHE_OVERFLOW 0]
7350: 0a 20 20 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d  .  set val [form
7360: 61 74 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d 61  at {now %10d  ma
7370: 78 20 25 31 30 64 7d 20 5b 6c 69 6e 64 65 78 20  x %10d} [lindex 
7380: 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 78  $x 1] [lindex $x
7390: 20 32 5d 5d 0a 20 20 70 75 74 73 20 22 50 61 67   2]].  puts "Pag
73a0: 65 2d 63 61 63 68 65 20 6f 76 65 72 66 6c 6f 77  e-cache overflow
73b0: 3a 20 20 24 76 61 6c 22 0a 20 20 73 65 74 20 78  :  $val".  set x
73c0: 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73   [sqlite3_status
73d0: 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 53   SQLITE_STATUS_S
73e0: 43 52 41 54 43 48 5f 55 53 45 44 20 30 5d 0a 20  CRATCH_USED 0]. 
73f0: 20 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74   set val [format
7400: 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d 61 78 20   {now %10d  max 
7410: 25 31 30 64 7d 20 5b 6c 69 6e 64 65 78 20 24 78  %10d} [lindex $x
7420: 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 78 20 32   1] [lindex $x 2
7430: 5d 5d 0a 20 20 70 75 74 73 20 22 53 63 72 61 74  ]].  puts "Scrat
7440: 63 68 20 6d 65 6d 6f 72 79 20 75 73 65 64 3a 20  ch memory used: 
7450: 20 24 76 61 6c 22 0a 20 20 73 65 74 20 78 20 5b   $val".  set x [
7460: 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53  sqlite3_status S
7470: 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 53 43 52  QLITE_STATUS_SCR
7480: 41 54 43 48 5f 4f 56 45 52 46 4c 4f 57 20 30 5d  ATCH_OVERFLOW 0]
7490: 0a 20 20 73 65 74 20 79 20 5b 73 71 6c 69 74 65  .  set y [sqlite
74a0: 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f  3_status SQLITE_
74b0: 53 54 41 54 55 53 5f 53 43 52 41 54 43 48 5f 53  STATUS_SCRATCH_S
74c0: 49 5a 45 20 30 5d 0a 20 20 73 65 74 20 76 61 6c  IZE 0].  set val
74d0: 20 5b 66 6f 72 6d 61 74 20 7b 6e 6f 77 20 25 31   [format {now %1
74e0: 30 64 20 20 6d 61 78 20 25 31 30 64 20 20 6d 61  0d  max %10d  ma
74f0: 78 2d 73 69 7a 65 20 25 31 30 64 7d 20 5c 0a 20  x-size %10d} \. 
7500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 6c                [l
7510: 69 6e 64 65 78 20 24 78 20 31 5d 20 5b 6c 69 6e  index $x 1] [lin
7520: 64 65 78 20 24 78 20 32 5d 20 5b 6c 69 6e 64 65  dex $x 2] [linde
7530: 78 20 24 79 20 32 5d 5d 0a 20 20 70 75 74 73 20  x $y 2]].  puts 
7540: 22 53 63 72 61 74 63 68 20 6f 76 65 72 66 6c 6f  "Scratch overflo
7550: 77 3a 20 20 20 20 20 24 76 61 6c 22 0a 20 20 69  w:     $val".  i
7560: 66 63 61 70 61 62 6c 65 20 79 79 74 72 61 63 6b  fcapable yytrack
7570: 6d 61 78 73 74 61 63 6b 64 65 70 74 68 20 7b 0a  maxstackdepth {.
7580: 20 20 20 20 73 65 74 20 78 20 5b 73 71 6c 69 74      set x [sqlit
7590: 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45  e3_status SQLITE
75a0: 5f 53 54 41 54 55 53 5f 50 41 52 53 45 52 5f 53  _STATUS_PARSER_S
75b0: 54 41 43 4b 20 30 5d 0a 20 20 20 20 73 65 74 20  TACK 0].    set 
75c0: 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b 20 20 20  val [format {   
75d0: 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 20              max 
75e0: 25 31 30 64 7d 20 5b 6c 69 6e 64 65 78 20 24 78  %10d} [lindex $x
75f0: 20 32 5d 5d 0a 20 20 20 20 70 75 74 73 20 22 50   2]].    puts "P
7600: 61 72 73 65 72 20 73 74 61 63 6b 20 64 65 70 74  arser stack dept
7610: 68 3a 20 20 20 20 24 76 61 6c 22 0a 20 20 7d 0a  h:    $val".  }.
7620: 7d 0a 0a 23 20 41 20 70 72 6f 63 65 64 75 72 65  }..# A procedure
7630: 20 74 6f 20 65 78 65 63 75 74 65 20 53 51 4c 0a   to execute SQL.
7640: 23 0a 70 72 6f 63 20 65 78 65 63 73 71 6c 20 7b  #.proc execsql {
7650: 73 71 6c 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20  sql {db db}} {. 
7660: 20 23 20 70 75 74 73 20 22 53 51 4c 20 3d 20 24   # puts "SQL = $
7670: 73 71 6c 22 0a 20 20 75 70 6c 65 76 65 6c 20 5b  sql".  uplevel [
7680: 6c 69 73 74 20 24 64 62 20 65 76 61 6c 20 24 73  list $db eval $s
7690: 71 6c 5d 0a 7d 0a 70 72 6f 63 20 65 78 65 63 73  ql].}.proc execs
76a0: 71 6c 5f 74 69 6d 65 64 20 7b 73 71 6c 20 7b 64  ql_timed {sql {d
76b0: 62 20 64 62 7d 7d 20 7b 0a 20 20 73 65 74 20 74  b db}} {.  set t
76c0: 6d 20 5b 74 69 6d 65 20 7b 0a 20 20 20 20 73 65  m [time {.    se
76d0: 74 20 78 20 5b 75 70 6c 65 76 65 6c 20 5b 6c 69  t x [uplevel [li
76e0: 73 74 20 24 64 62 20 65 76 61 6c 20 24 73 71 6c  st $db eval $sql
76f0: 5d 5d 0a 20 20 7d 20 31 5d 0a 20 20 73 65 74 20  ]].  } 1].  set 
7700: 74 6d 20 5b 6c 69 6e 64 65 78 20 24 74 6d 20 30  tm [lindex $tm 0
7710: 5d 0a 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c  ].  puts -nonewl
7720: 69 6e 65 20 22 20 28 5b 65 78 70 72 20 7b 24 74  ine " ([expr {$t
7730: 6d 2a 30 2e 30 30 31 7d 5d 6d 73 29 20 22 0a 20  m*0.001}]ms) ". 
7740: 20 73 65 74 20 78 0a 7d 0a 0a 23 20 45 78 65 63   set x.}..# Exec
7750: 75 74 65 20 53 51 4c 20 61 6e 64 20 63 61 74 63  ute SQL and catc
7760: 68 20 65 78 63 65 70 74 69 6f 6e 73 2e 0a 23 0a  h exceptions..#.
7770: 70 72 6f 63 20 63 61 74 63 68 73 71 6c 20 7b 73  proc catchsql {s
7780: 71 6c 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20  ql {db db}} {.  
7790: 23 20 70 75 74 73 20 22 53 51 4c 20 3d 20 24 73  # puts "SQL = $s
77a0: 71 6c 22 0a 20 20 73 65 74 20 72 20 5b 63 61 74  ql".  set r [cat
77b0: 63 68 20 5b 6c 69 73 74 20 75 70 6c 65 76 65 6c  ch [list uplevel
77c0: 20 5b 6c 69 73 74 20 24 64 62 20 65 76 61 6c 20   [list $db eval 
77d0: 24 73 71 6c 5d 5d 20 6d 73 67 5d 0a 20 20 6c 61  $sql]] msg].  la
77e0: 70 70 65 6e 64 20 72 20 24 6d 73 67 0a 20 20 72  ppend r $msg.  r
77f0: 65 74 75 72 6e 20 24 72 0a 7d 0a 0a 23 20 44 6f  eturn $r.}..# Do
7800: 20 61 6e 20 56 44 42 45 20 63 6f 64 65 20 64 75   an VDBE code du
7810: 6d 70 20 6f 6e 20 74 68 65 20 53 51 4c 20 67 69  mp on the SQL gi
7820: 76 65 6e 0a 23 0a 70 72 6f 63 20 65 78 70 6c 61  ven.#.proc expla
7830: 69 6e 20 7b 73 71 6c 20 7b 64 62 20 64 62 7d 7d  in {sql {db db}}
7840: 20 7b 0a 20 20 70 75 74 73 20 22 22 0a 20 20 70   {.  puts "".  p
7850: 75 74 73 20 22 61 64 64 72 20 20 6f 70 63 6f 64  uts "addr  opcod
7860: 65 20 20 20 20 20 20 20 20 70 31 20 20 20 20 20  e        p1     
7870: 20 70 32 20 20 20 20 20 20 70 33 20 20 20 20 20   p2      p3     
7880: 20 70 34 20 20 20 20 20 20 20 20 20 20 20 20 20   p4             
7890: 20 20 70 35 20 20 23 22 0a 20 20 70 75 74 73 20    p5  #".  puts 
78a0: 22 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d  "----  ---------
78b0: 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d  ---  ------  ---
78c0: 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d  ---  ------  ---
78d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d  ------------  --
78e0: 20 20 2d 22 0a 20 20 24 64 62 20 65 76 61 6c 20    -".  $db eval 
78f0: 22 65 78 70 6c 61 69 6e 20 24 73 71 6c 22 20 7b  "explain $sql" {
7900: 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 5b 66 6f  } {.    puts [fo
7910: 72 6d 61 74 20 7b 25 2d 34 64 20 20 25 2d 31 32  rmat {%-4d  %-12
7920: 2e 31 32 73 20 20 25 2d 36 64 20 20 25 2d 36 64  .12s  %-6d  %-6d
7930: 20 20 25 2d 36 64 20 20 25 20 2d 31 37 73 20 25    %-6d  % -17s %
7940: 73 20 20 25 73 7d 20 5c 0a 20 20 20 20 20 20 24  s  %s} \.      $
7950: 61 64 64 72 20 24 6f 70 63 6f 64 65 20 24 70 31  addr $opcode $p1
7960: 20 24 70 32 20 24 70 33 20 24 70 34 20 24 70 35   $p2 $p3 $p4 $p5
7970: 20 24 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 5d 0a   $comment.    ].
7980: 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20 65 78 70 6c    }.}..proc expl
7990: 61 69 6e 5f 69 20 7b 73 71 6c 20 7b 64 62 20 64  ain_i {sql {db d
79a0: 62 7d 7d 20 7b 0a 20 20 70 75 74 73 20 22 22 0a  b}} {.  puts "".
79b0: 20 20 70 75 74 73 20 22 61 64 64 72 20 20 6f 70    puts "addr  op
79c0: 63 6f 64 65 20 20 20 20 20 20 20 20 70 31 20 20  code        p1  
79d0: 20 20 20 20 70 32 20 20 20 20 20 20 70 33 20 20      p2      p3  
79e0: 20 20 20 20 70 34 20 20 20 20 20 20 20 20 20 20      p4          
79f0: 20 20 20 20 20 20 70 35 20 20 23 22 0a 20 20 70        p5  #".  p
7a00: 75 74 73 20 22 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d  uts "----  -----
7a10: 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20  -------  ------ 
7a20: 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20   ------  ------ 
7a30: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ---------------
7a40: 2d 20 20 2d 2d 20 20 2d 22 0a 0a 0a 20 20 23 20  -  --  -"...  # 
7a50: 53 65 74 20 75 70 20 63 6f 6c 6f 72 73 20 66 6f  Set up colors fo
7a60: 72 20 74 68 65 20 64 69 66 66 65 72 65 6e 74 20  r the different 
7a70: 6f 70 63 6f 64 65 73 2e 20 53 63 68 65 6d 65 20  opcodes. Scheme 
7a80: 69 73 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 20  is as follows:. 
7a90: 20 23 0a 20 20 23 20 20 20 52 65 64 3a 20 20 20   #.  #   Red:   
7aa0: 4f 70 63 6f 64 65 73 20 74 68 61 74 20 77 72 69  Opcodes that wri
7ab0: 74 65 20 74 6f 20 61 20 62 2d 74 72 65 65 2e 0a  te to a b-tree..
7ac0: 20 20 23 20 20 20 42 6c 75 65 3a 20 20 4f 70 63    #   Blue:  Opc
7ad0: 6f 64 65 73 20 74 68 61 74 20 72 65 70 6f 73 69  odes that reposi
7ae0: 74 69 6f 6e 20 6f 72 20 73 65 65 6b 20 61 20 63  tion or seek a c
7af0: 75 72 73 6f 72 2e 20 0a 20 20 23 20 20 20 47 72  ursor. .  #   Gr
7b00: 65 65 6e 3a 20 54 68 65 20 52 65 73 75 6c 74 52  een: The ResultR
7b10: 6f 77 20 6f 70 63 6f 64 65 2e 0a 20 20 23 0a 20  ow opcode..  #. 
7b20: 20 73 65 74 20 52 20 22 5c 30 33 33 5c 5b 33 31   set R "\033\[31
7b30: 3b 31 6d 22 20 20 20 20 20 20 20 20 3b 23 20 52  ;1m"        ;# R
7b40: 65 64 20 66 67 0a 20 20 73 65 74 20 47 20 22 5c  ed fg.  set G "\
7b50: 30 33 33 5c 5b 33 32 3b 31 6d 22 20 20 20 20 20  033\[32;1m"     
7b60: 20 20 20 3b 23 20 47 72 65 65 6e 20 66 67 0a 20     ;# Green fg. 
7b70: 20 73 65 74 20 42 20 22 5c 30 33 33 5c 5b 33 34   set B "\033\[34
7b80: 3b 31 6d 22 20 20 20 20 20 20 20 20 3b 23 20 52  ;1m"        ;# R
7b90: 65 64 20 66 67 0a 20 20 73 65 74 20 44 20 22 5c  ed fg.  set D "\
7ba0: 30 33 33 5c 5b 33 39 3b 30 6d 22 20 20 20 20 20  033\[39;0m"     
7bb0: 20 20 20 3b 23 20 44 65 66 61 75 6c 74 20 66 67     ;# Default fg
7bc0: 0a 20 20 66 6f 72 65 61 63 68 20 6f 70 63 6f 64  .  foreach opcod
7bd0: 65 20 7b 0a 20 20 20 20 20 20 53 65 65 6b 20 53  e {.      Seek S
7be0: 65 65 6b 47 65 20 53 65 65 6b 47 74 20 53 65 65  eekGe SeekGt See
7bf0: 6b 4c 65 20 53 65 65 6b 4c 74 20 4e 6f 74 46 6f  kLe SeekLt NotFo
7c00: 75 6e 64 20 4c 61 73 74 20 52 65 77 69 6e 64 0a  und Last Rewind.
7c10: 20 20 20 20 20 20 4e 6f 43 6f 6e 66 6c 69 63 74        NoConflict
7c20: 20 4e 65 78 74 20 50 72 65 76 20 56 4e 65 78 74   Next Prev VNext
7c30: 20 56 50 72 65 76 20 56 46 69 6c 74 65 72 0a 20   VPrev VFilter. 
7c40: 20 7d 20 7b 0a 20 20 20 20 73 65 74 20 63 6f 6c   } {.    set col
7c50: 6f 72 28 24 6f 70 63 6f 64 65 29 20 24 42 0a 20  or($opcode) $B. 
7c60: 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 6f 70 63   }.  foreach opc
7c70: 6f 64 65 20 7b 52 65 73 75 6c 74 52 6f 77 7d 20  ode {ResultRow} 
7c80: 7b 0a 20 20 20 20 73 65 74 20 63 6f 6c 6f 72 28  {.    set color(
7c90: 24 6f 70 63 6f 64 65 29 20 24 47 0a 20 20 7d 0a  $opcode) $G.  }.
7ca0: 20 20 66 6f 72 65 61 63 68 20 6f 70 63 6f 64 65    foreach opcode
7cb0: 20 7b 49 64 78 49 6e 73 65 72 74 20 49 6e 73 65   {IdxInsert Inse
7cc0: 72 74 20 44 65 6c 65 74 65 20 49 64 78 44 65 6c  rt Delete IdxDel
7cd0: 65 74 65 7d 20 7b 0a 20 20 20 20 73 65 74 20 63  ete} {.    set c
7ce0: 6f 6c 6f 72 28 24 6f 70 63 6f 64 65 29 20 24 52  olor($opcode) $R
7cf0: 0a 20 20 7d 0a 0a 20 20 73 65 74 20 62 53 65 65  .  }..  set bSee
7d00: 6e 47 6f 74 6f 20 30 0a 20 20 24 64 62 20 65 76  nGoto 0.  $db ev
7d10: 61 6c 20 22 65 78 70 6c 61 69 6e 20 24 73 71 6c  al "explain $sql
7d20: 22 20 7b 7d 20 7b 0a 20 20 20 20 73 65 74 20 78  " {} {.    set x
7d30: 28 24 61 64 64 72 29 20 30 0a 20 20 20 20 73 65  ($addr) 0.    se
7d40: 74 20 6f 70 28 24 61 64 64 72 29 20 24 6f 70 63  t op($addr) $opc
7d50: 6f 64 65 0a 0a 20 20 20 20 69 66 20 7b 24 6f 70  ode..    if {$op
7d60: 63 6f 64 65 20 3d 3d 20 22 47 6f 74 6f 22 20 26  code == "Goto" &
7d70: 26 20 28 24 62 53 65 65 6e 47 6f 74 6f 3d 3d 30  & ($bSeenGoto==0
7d80: 20 7c 7c 20 28 24 70 32 20 3e 20 24 61 64 64 72   || ($p2 > $addr
7d90: 2b 31 30 29 29 7d 20 7b 0a 20 20 20 20 20 20 73  +10))} {.      s
7da0: 65 74 20 6c 69 6e 65 62 72 65 61 6b 28 24 70 32  et linebreak($p2
7db0: 29 20 31 0a 20 20 20 20 20 20 73 65 74 20 62 53  ) 1.      set bS
7dc0: 65 65 6e 47 6f 74 6f 20 31 0a 20 20 20 20 7d 0a  eenGoto 1.    }.
7dd0: 0a 20 20 20 20 69 66 20 7b 24 6f 70 63 6f 64 65  .    if {$opcode
7de0: 3d 3d 22 4e 65 78 74 22 20 20 7c 7c 20 24 6f 70  =="Next"  || $op
7df0: 63 6f 64 65 3d 3d 22 50 72 65 76 22 20 0a 20 20  code=="Prev" .  
7e00: 20 20 20 7c 7c 20 24 6f 70 63 6f 64 65 3d 3d 22     || $opcode=="
7e10: 56 4e 65 78 74 22 20 7c 7c 20 24 6f 70 63 6f 64  VNext" || $opcod
7e20: 65 3d 3d 22 56 50 72 65 76 22 0a 20 20 20 20 7d  e=="VPrev".    }
7e30: 20 7b 0a 20 20 20 20 20 20 66 6f 72 20 7b 73 65   {.      for {se
7e40: 74 20 69 20 24 70 32 7d 20 7b 24 69 3c 24 61 64  t i $p2} {$i<$ad
7e50: 64 72 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20  dr} {incr i} {. 
7e60: 20 20 20 20 20 20 20 69 6e 63 72 20 78 28 24 69         incr x($i
7e70: 29 20 32 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  ) 2.      }.    
7e80: 7d 0a 0a 20 20 20 20 69 66 20 7b 24 6f 70 63 6f  }..    if {$opco
7e90: 64 65 20 3d 3d 20 22 47 6f 74 6f 22 20 26 26 20  de == "Goto" && 
7ea0: 24 70 32 3c 24 61 64 64 72 20 26 26 20 24 6f 70  $p2<$addr && $op
7eb0: 28 24 70 32 29 3d 3d 22 59 69 65 6c 64 22 7d 20  ($p2)=="Yield"} 
7ec0: 7b 0a 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74  {.      for {set
7ed0: 20 69 20 5b 65 78 70 72 20 24 70 32 2b 31 5d 7d   i [expr $p2+1]}
7ee0: 20 7b 24 69 3c 24 61 64 64 72 7d 20 7b 69 6e 63   {$i<$addr} {inc
7ef0: 72 20 69 7d 20 7b 0a 20 20 20 20 20 20 20 20 69  r i} {.        i
7f00: 6e 63 72 20 78 28 24 69 29 20 32 0a 20 20 20 20  ncr x($i) 2.    
7f10: 20 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69    }.    }..    i
7f20: 66 20 7b 24 6f 70 63 6f 64 65 20 3d 3d 20 22 48  f {$opcode == "H
7f30: 61 6c 74 22 20 26 26 20 24 63 6f 6d 6d 65 6e 74  alt" && $comment
7f40: 20 3d 3d 20 22 45 6e 64 20 6f 66 20 63 6f 72 6f   == "End of coro
7f50: 75 74 69 6e 65 22 7d 20 7b 0a 20 20 20 20 20 20  utine"} {.      
7f60: 73 65 74 20 6c 69 6e 65 62 72 65 61 6b 28 5b 65  set linebreak([e
7f70: 78 70 72 20 24 61 64 64 72 2b 31 5d 29 20 31 0a  xpr $addr+1]) 1.
7f80: 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 24 64 62      }.  }..  $db
7f90: 20 65 76 61 6c 20 22 65 78 70 6c 61 69 6e 20 24   eval "explain $
7fa0: 73 71 6c 22 20 7b 7d 20 7b 0a 20 20 20 20 69 66  sql" {} {.    if
7fb0: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 6c   {[info exists l
7fc0: 69 6e 65 62 72 65 61 6b 28 24 61 64 64 72 29 5d  inebreak($addr)]
7fd0: 7d 20 7b 0a 20 20 20 20 20 20 70 75 74 73 20 22  } {.      puts "
7fe0: 22 0a 20 20 20 20 7d 0a 20 20 20 20 73 65 74 20  ".    }.    set 
7ff0: 49 20 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74  I [string repeat
8000: 20 22 20 22 20 24 78 28 24 61 64 64 72 29 5d 0a   " " $x($addr)].
8010: 0a 20 20 20 20 73 65 74 20 63 6f 6c 20 22 22 0a  .    set col "".
8020: 20 20 20 20 63 61 74 63 68 20 7b 20 73 65 74 20      catch { set 
8030: 63 6f 6c 20 24 63 6f 6c 6f 72 28 24 6f 70 63 6f  col $color($opco
8040: 64 65 29 20 7d 0a 0a 20 20 20 20 70 75 74 73 20  de) }..    puts 
8050: 5b 66 6f 72 6d 61 74 20 7b 25 2d 34 64 20 20 25  [format {%-4d  %
8060: 73 25 73 25 2d 31 32 2e 31 32 73 25 73 20 20 25  s%s%-12.12s%s  %
8070: 2d 36 64 20 20 25 2d 36 64 20 20 25 2d 36 64 20  -6d  %-6d  %-6d 
8080: 20 25 20 2d 31 37 73 20 25 73 20 20 25 73 7d 20   % -17s %s  %s} 
8090: 5c 0a 20 20 20 20 20 20 24 61 64 64 72 20 24 49  \.      $addr $I
80a0: 20 24 63 6f 6c 20 24 6f 70 63 6f 64 65 20 24 44   $col $opcode $D
80b0: 20 24 70 31 20 24 70 32 20 24 70 33 20 24 70 34   $p1 $p2 $p3 $p4
80c0: 20 24 70 35 20 24 63 6f 6d 6d 65 6e 74 0a 20 20   $p5 $comment.  
80d0: 20 20 5d 0a 20 20 7d 0a 20 20 70 75 74 73 20 22    ].  }.  puts "
80e0: 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----  ----------
80f0: 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d  --  ------  ----
8100: 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d  --  ------  ----
8110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d  ------------  --
8120: 20 20 2d 22 0a 7d 0a 0a 23 20 53 68 6f 77 20 74    -".}..# Show t
8130: 68 65 20 56 44 42 45 20 70 72 6f 67 72 61 6d 20  he VDBE program 
8140: 66 6f 72 20 61 6e 20 53 51 4c 20 73 74 61 74 65  for an SQL state
8150: 6d 65 6e 74 20 62 75 74 20 6f 6d 69 74 20 74 68  ment but omit th
8160: 65 20 54 72 61 63 65 0a 23 20 6f 70 63 6f 64 65  e Trace.# opcode
8170: 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e   at the beginnin
8180: 67 2e 20 20 54 68 69 73 20 70 72 6f 63 65 64 75  g.  This procedu
8190: 72 65 20 63 61 6e 20 62 65 20 75 73 65 64 20 74  re can be used t
81a0: 6f 20 70 72 6f 76 65 0a 23 20 74 68 61 74 20 64  o prove.# that d
81b0: 69 66 66 65 72 65 6e 74 20 53 51 4c 20 73 74 61  ifferent SQL sta
81c0: 74 65 6d 65 6e 74 73 20 67 65 6e 65 72 61 74 65  tements generate
81d0: 20 65 78 61 63 74 6c 79 20 74 68 65 20 73 61 6d   exactly the sam
81e0: 65 20 56 44 42 45 20 63 6f 64 65 2e 0a 23 0a 70  e VDBE code..#.p
81f0: 72 6f 63 20 65 78 70 6c 61 69 6e 5f 6e 6f 5f 74  roc explain_no_t
8200: 72 61 63 65 20 7b 73 71 6c 7d 20 7b 0a 20 20 73  race {sql} {.  s
8210: 65 74 20 74 72 20 5b 64 62 20 65 76 61 6c 20 22  et tr [db eval "
8220: 45 58 50 4c 41 49 4e 20 24 73 71 6c 22 5d 0a 20  EXPLAIN $sql"]. 
8230: 20 72 65 74 75 72 6e 20 5b 6c 72 61 6e 67 65 20   return [lrange 
8240: 24 74 72 20 37 20 65 6e 64 5d 0a 7d 0a 0a 23 20  $tr 7 end].}..# 
8250: 41 6e 6f 74 68 65 72 20 70 72 6f 63 65 64 75 72  Another procedur
8260: 65 20 74 6f 20 65 78 65 63 75 74 65 20 53 51 4c  e to execute SQL
8270: 2e 20 20 54 68 69 73 20 6f 6e 65 20 69 6e 63 6c  .  This one incl
8280: 75 64 65 73 20 74 68 65 20 66 69 65 6c 64 0a 23  udes the field.#
8290: 20 6e 61 6d 65 73 20 69 6e 20 74 68 65 20 72 65   names in the re
82a0: 74 75 72 6e 65 64 20 6c 69 73 74 2e 0a 23 0a 70  turned list..#.p
82b0: 72 6f 63 20 65 78 65 63 73 71 6c 32 20 7b 73 71  roc execsql2 {sq
82c0: 6c 7d 20 7b 0a 20 20 73 65 74 20 72 65 73 75 6c  l} {.  set resul
82d0: 74 20 7b 7d 0a 20 20 64 62 20 65 76 61 6c 20 24  t {}.  db eval $
82e0: 73 71 6c 20 64 61 74 61 20 7b 0a 20 20 20 20 66  sql data {.    f
82f0: 6f 72 65 61 63 68 20 66 20 24 64 61 74 61 28 2a  oreach f $data(*
8300: 29 20 7b 0a 20 20 20 20 20 20 6c 61 70 70 65 6e  ) {.      lappen
8310: 64 20 72 65 73 75 6c 74 20 24 66 20 24 64 61 74  d result $f $dat
8320: 61 28 24 66 29 0a 20 20 20 20 7d 0a 20 20 7d 0a  a($f).    }.  }.
8330: 20 20 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74    return $result
8340: 0a 7d 0a 0a 23 20 55 73 65 20 61 20 74 65 6d 70  .}..# Use a temp
8350: 6f 72 61 72 79 20 69 6e 2d 6d 65 6d 6f 72 79 20  orary in-memory 
8360: 64 61 74 61 62 61 73 65 20 74 6f 20 65 78 65 63  database to exec
8370: 75 74 65 20 53 51 4c 20 73 74 61 74 65 6d 65 6e  ute SQL statemen
8380: 74 73 0a 23 0a 70 72 6f 63 20 6d 65 6d 64 62 73  ts.#.proc memdbs
8390: 71 6c 20 7b 73 71 6c 7d 20 7b 0a 20 20 73 71 6c  ql {sql} {.  sql
83a0: 69 74 65 33 20 6d 65 6d 64 62 20 3a 6d 65 6d 6f  ite3 memdb :memo
83b0: 72 79 3a 0a 20 20 73 65 74 20 72 65 73 75 6c 74  ry:.  set result
83c0: 20 5b 6d 65 6d 64 62 20 65 76 61 6c 20 24 73 71   [memdb eval $sq
83d0: 6c 5d 0a 20 20 6d 65 6d 64 62 20 63 6c 6f 73 65  l].  memdb close
83e0: 0a 20 20 72 65 74 75 72 6e 20 24 72 65 73 75 6c  .  return $resul
83f0: 74 0a 7d 0a 0a 23 20 55 73 65 20 74 68 65 20 6e  t.}..# Use the n
8400: 6f 6e 2d 63 61 6c 6c 62 61 63 6b 20 41 50 49 20  on-callback API 
8410: 74 6f 20 65 78 65 63 75 74 65 20 6d 75 6c 74 69  to execute multi
8420: 70 6c 65 20 53 51 4c 20 73 74 61 74 65 6d 65 6e  ple SQL statemen
8430: 74 73 0a 23 0a 70 72 6f 63 20 73 74 65 70 73 71  ts.#.proc stepsq
8440: 6c 20 7b 64 62 70 74 72 20 73 71 6c 7d 20 7b 0a  l {dbptr sql} {.
8450: 20 20 73 65 74 20 73 71 6c 20 5b 73 74 72 69 6e    set sql [strin
8460: 67 20 74 72 69 6d 20 24 73 71 6c 5d 0a 20 20 73  g trim $sql].  s
8470: 65 74 20 72 20 30 0a 20 20 77 68 69 6c 65 20 7b  et r 0.  while {
8480: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $
8490: 73 71 6c 5d 3e 30 7d 20 7b 0a 20 20 20 20 69 66  sql]>0} {.    if
84a0: 20 7b 5b 63 61 74 63 68 20 7b 73 71 6c 69 74 65   {[catch {sqlite
84b0: 33 5f 70 72 65 70 61 72 65 20 24 64 62 70 74 72  3_prepare $dbptr
84c0: 20 24 73 71 6c 20 2d 31 20 73 71 6c 74 61 69 6c   $sql -1 sqltail
84d0: 7d 20 76 6d 5d 7d 20 7b 0a 20 20 20 20 20 20 72  } vm]} {.      r
84e0: 65 74 75 72 6e 20 5b 6c 69 73 74 20 31 20 24 76  eturn [list 1 $v
84f0: 6d 5d 0a 20 20 20 20 7d 0a 20 20 20 20 73 65 74  m].    }.    set
8500: 20 73 71 6c 20 5b 73 74 72 69 6e 67 20 74 72 69   sql [string tri
8510: 6d 20 24 73 71 6c 74 61 69 6c 5d 0a 23 20 20 20  m $sqltail].#   
8520: 20 77 68 69 6c 65 20 7b 5b 73 71 6c 69 74 65 5f   while {[sqlite_
8530: 73 74 65 70 20 24 76 6d 20 4e 20 56 41 4c 20 43  step $vm N VAL C
8540: 4f 4c 5d 3d 3d 22 53 51 4c 49 54 45 5f 52 4f 57  OL]=="SQLITE_ROW
8550: 22 7d 20 7b 0a 23 20 20 20 20 20 20 66 6f 72 65  "} {.#      fore
8560: 61 63 68 20 76 20 24 56 41 4c 20 7b 6c 61 70 70  ach v $VAL {lapp
8570: 65 6e 64 20 72 20 24 76 7d 0a 23 20 20 20 20 7d  end r $v}.#    }
8580: 0a 20 20 20 20 77 68 69 6c 65 20 7b 5b 73 71 6c  .    while {[sql
8590: 69 74 65 33 5f 73 74 65 70 20 24 76 6d 5d 3d 3d  ite3_step $vm]==
85a0: 22 53 51 4c 49 54 45 5f 52 4f 57 22 7d 20 7b 0a  "SQLITE_ROW"} {.
85b0: 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69        for {set i
85c0: 20 30 7d 20 7b 24 69 3c 5b 73 71 6c 69 74 65 33   0} {$i<[sqlite3
85d0: 5f 64 61 74 61 5f 63 6f 75 6e 74 20 24 76 6d 5d  _data_count $vm]
85e0: 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20  } {incr i} {.   
85f0: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 72 20 5b       lappend r [
8600: 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74  sqlite3_column_t
8610: 65 78 74 20 24 76 6d 20 24 69 5d 0a 20 20 20 20  ext $vm $i].    
8620: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66    }.    }.    if
8630: 20 7b 5b 63 61 74 63 68 20 7b 73 71 6c 69 74 65   {[catch {sqlite
8640: 33 5f 66 69 6e 61 6c 69 7a 65 20 24 76 6d 7d 20  3_finalize $vm} 
8650: 65 72 72 6d 73 67 5d 7d 20 7b 0a 20 20 20 20 20  errmsg]} {.     
8660: 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 20 31 20   return [list 1 
8670: 24 65 72 72 6d 73 67 5d 0a 20 20 20 20 7d 0a 20  $errmsg].    }. 
8680: 20 7d 0a 20 20 72 65 74 75 72 6e 20 24 72 0a 7d   }.  return $r.}
8690: 0a 0a 23 20 44 6f 20 61 6e 20 69 6e 74 65 67 72  ..# Do an integr
86a0: 69 74 79 20 63 68 65 63 6b 20 6f 66 20 74 68 65  ity check of the
86b0: 20 65 6e 74 69 72 65 20 64 61 74 61 62 61 73 65   entire database
86c0: 0a 23 0a 70 72 6f 63 20 69 6e 74 65 67 72 69 74  .#.proc integrit
86d0: 79 5f 63 68 65 63 6b 20 7b 6e 61 6d 65 20 7b 64  y_check {name {d
86e0: 62 20 64 62 7d 7d 20 7b 0a 20 20 69 66 63 61 70  b db}} {.  ifcap
86f0: 61 62 6c 65 20 69 6e 74 65 67 72 69 74 79 63 6b  able integrityck
8700: 20 7b 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 24   {.    do_test $
8710: 6e 61 6d 65 20 5b 6c 69 73 74 20 65 78 65 63 73  name [list execs
8720: 71 6c 20 7b 50 52 41 47 4d 41 20 69 6e 74 65 67  ql {PRAGMA integ
8730: 72 69 74 79 5f 63 68 65 63 6b 7d 20 24 64 62 5d  rity_check} $db]
8740: 20 7b 6f 6b 7d 0a 20 20 7d 0a 7d 0a 0a 23 20 43   {ok}.  }.}..# C
8750: 68 65 63 6b 20 74 68 65 20 65 78 74 65 6e 64 65  heck the extende
8760: 64 20 65 72 72 6f 72 20 63 6f 64 65 0a 23 0a 70  d error code.#.p
8770: 72 6f 63 20 76 65 72 69 66 79 5f 65 78 5f 65 72  roc verify_ex_er
8780: 72 63 6f 64 65 20 7b 6e 61 6d 65 20 65 78 70 65  rcode {name expe
8790: 63 74 65 64 20 7b 64 62 20 64 62 7d 7d 20 7b 0a  cted {db db}} {.
87a0: 20 20 64 6f 5f 74 65 73 74 20 24 6e 61 6d 65 20    do_test $name 
87b0: 5b 6c 69 73 74 20 73 71 6c 69 74 65 33 5f 65 78  [list sqlite3_ex
87c0: 74 65 6e 64 65 64 5f 65 72 72 63 6f 64 65 20 24  tended_errcode $
87d0: 64 62 5d 20 24 65 78 70 65 63 74 65 64 0a 7d 0a  db] $expected.}.
87e0: 0a 0a 23 20 52 65 74 75 72 6e 20 74 72 75 65 20  ..# Return true 
87f0: 69 66 20 74 68 65 20 53 51 4c 20 73 74 61 74 65  if the SQL state
8800: 6d 65 6e 74 20 70 61 73 73 65 64 20 61 73 20 74  ment passed as t
8810: 68 65 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65  he second argume
8820: 6e 74 20 75 73 65 73 20 61 0a 23 20 73 74 61 74  nt uses a.# stat
8830: 65 6d 65 6e 74 20 74 72 61 6e 73 61 63 74 69 6f  ement transactio
8840: 6e 2e 0a 23 0a 70 72 6f 63 20 73 71 6c 5f 75 73  n..#.proc sql_us
8850: 65 73 5f 73 74 6d 74 20 7b 64 62 20 73 71 6c 7d  es_stmt {db sql}
8860: 20 7b 0a 20 20 73 65 74 20 73 74 6d 74 20 5b 73   {.  set stmt [s
8870: 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 20 24  qlite3_prepare $
8880: 64 62 20 24 73 71 6c 20 2d 31 20 64 75 6d 6d 79  db $sql -1 dummy
8890: 5d 0a 20 20 73 65 74 20 75 73 65 73 20 5b 75 73  ].  set uses [us
88a0: 65 73 5f 73 74 6d 74 5f 6a 6f 75 72 6e 61 6c 20  es_stmt_journal 
88b0: 24 73 74 6d 74 5d 0a 20 20 73 71 6c 69 74 65 33  $stmt].  sqlite3
88c0: 5f 66 69 6e 61 6c 69 7a 65 20 24 73 74 6d 74 0a  _finalize $stmt.
88d0: 20 20 72 65 74 75 72 6e 20 24 75 73 65 73 0a 7d    return $uses.}
88e0: 0a 0a 70 72 6f 63 20 66 69 78 5f 69 66 63 61 70  ..proc fix_ifcap
88f0: 61 62 6c 65 5f 65 78 70 72 20 7b 65 78 70 72 7d  able_expr {expr}
8900: 20 7b 0a 20 20 73 65 74 20 72 65 74 20 22 22 0a   {.  set ret "".
8910: 20 20 73 65 74 20 73 74 61 74 65 20 30 0a 20 20    set state 0.  
8920: 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24  for {set i 0} {$
8930: 69 20 3c 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67  i < [string leng
8940: 74 68 20 24 65 78 70 72 5d 7d 20 7b 69 6e 63 72  th $expr]} {incr
8950: 20 69 7d 20 7b 0a 20 20 20 20 73 65 74 20 63 68   i} {.    set ch
8960: 61 72 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65  ar [string range
8970: 20 24 65 78 70 72 20 24 69 20 24 69 5d 0a 20 20   $expr $i $i].  
8980: 20 20 73 65 74 20 6e 65 77 73 74 61 74 65 20 5b    set newstate [
8990: 65 78 70 72 20 7b 5b 73 74 72 69 6e 67 20 69 73  expr {[string is
89a0: 20 61 6c 6e 75 6d 20 24 63 68 61 72 5d 20 7c 7c   alnum $char] ||
89b0: 20 24 63 68 61 72 20 65 71 20 22 5f 22 7d 5d 0a   $char eq "_"}].
89c0: 20 20 20 20 69 66 20 7b 24 6e 65 77 73 74 61 74      if {$newstat
89d0: 65 20 26 26 20 21 24 73 74 61 74 65 7d 20 7b 0a  e && !$state} {.
89e0: 20 20 20 20 20 20 61 70 70 65 6e 64 20 72 65 74        append ret
89f0: 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 6f 70 74 69   {$::sqlite_opti
8a00: 6f 6e 73 28 7d 0a 20 20 20 20 7d 0a 20 20 20 20  ons(}.    }.    
8a10: 69 66 20 7b 21 24 6e 65 77 73 74 61 74 65 20 26  if {!$newstate &
8a20: 26 20 24 73 74 61 74 65 7d 20 7b 0a 20 20 20 20  & $state} {.    
8a30: 20 20 61 70 70 65 6e 64 20 72 65 74 20 29 0a 20    append ret ). 
8a40: 20 20 20 7d 0a 20 20 20 20 61 70 70 65 6e 64 20     }.    append 
8a50: 72 65 74 20 24 63 68 61 72 0a 20 20 20 20 73 65  ret $char.    se
8a60: 74 20 73 74 61 74 65 20 24 6e 65 77 73 74 61 74  t state $newstat
8a70: 65 0a 20 20 7d 0a 20 20 69 66 20 7b 24 73 74 61  e.  }.  if {$sta
8a80: 74 65 7d 20 7b 61 70 70 65 6e 64 20 72 65 74 20  te} {append ret 
8a90: 29 7d 0a 20 20 72 65 74 75 72 6e 20 24 72 65 74  )}.  return $ret
8aa0: 0a 7d 0a 0a 23 20 52 65 74 75 72 6e 73 20 6e 6f  .}..# Returns no
8ab0: 6e 2d 7a 65 72 6f 20 69 66 20 74 68 65 20 63 61  n-zero if the ca
8ac0: 70 61 62 69 6c 69 74 69 65 73 20 61 72 65 20 70  pabilities are p
8ad0: 72 65 73 65 6e 74 3b 20 7a 65 72 6f 20 6f 74 68  resent; zero oth
8ae0: 65 72 77 69 73 65 2e 0a 23 0a 70 72 6f 63 20 63  erwise..#.proc c
8af0: 61 70 61 62 6c 65 20 7b 65 78 70 72 7d 20 7b 0a  apable {expr} {.
8b00: 20 20 73 65 74 20 65 20 5b 66 69 78 5f 69 66 63    set e [fix_ifc
8b10: 61 70 61 62 6c 65 5f 65 78 70 72 20 24 65 78 70  apable_expr $exp
8b20: 72 5d 3b 20 72 65 74 75 72 6e 20 5b 65 78 70 72  r]; return [expr
8b30: 20 28 24 65 29 5d 0a 7d 0a 0a 23 20 45 76 61 6c   ($e)].}..# Eval
8b40: 75 61 74 65 20 61 20 62 6f 6f 6c 65 61 6e 20 65  uate a boolean e
8b50: 78 70 72 65 73 73 69 6f 6e 20 6f 66 20 63 61 70  xpression of cap
8b60: 61 62 69 6c 69 74 69 65 73 2e 20 20 49 66 20 74  abilities.  If t
8b70: 72 75 65 2c 20 65 78 65 63 75 74 65 20 74 68 65  rue, execute the
8b80: 0a 23 20 63 6f 64 65 2e 20 20 4f 6d 69 74 20 74  .# code.  Omit t
8b90: 68 65 20 63 6f 64 65 20 69 66 20 66 61 6c 73 65  he code if false
8ba0: 2e 0a 23 0a 70 72 6f 63 20 69 66 63 61 70 61 62  ..#.proc ifcapab
8bb0: 6c 65 20 7b 65 78 70 72 20 63 6f 64 65 20 7b 65  le {expr code {e
8bc0: 6c 73 65 20 22 22 7d 20 7b 65 6c 73 65 63 6f 64  lse ""} {elsecod
8bd0: 65 20 22 22 7d 7d 20 7b 0a 20 20 23 72 65 67 73  e ""}} {.  #regs
8be0: 75 62 20 2d 61 6c 6c 20 7b 5b 61 2d 7a 5f 30 2d  ub -all {[a-z_0-
8bf0: 39 5d 2b 7d 20 24 65 78 70 72 20 7b 24 3a 3a 73  9]+} $expr {$::s
8c00: 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 28 26 29  qlite_options(&)
8c10: 7d 20 65 32 0a 20 20 73 65 74 20 65 32 20 5b 66  } e2.  set e2 [f
8c20: 69 78 5f 69 66 63 61 70 61 62 6c 65 5f 65 78 70  ix_ifcapable_exp
8c30: 72 20 24 65 78 70 72 5d 0a 20 20 69 66 20 28 24  r $expr].  if ($
8c40: 65 32 29 20 7b 0a 20 20 20 20 73 65 74 20 63 20  e2) {.    set c 
8c50: 5b 63 61 74 63 68 20 7b 75 70 6c 65 76 65 6c 20  [catch {uplevel 
8c60: 31 20 24 63 6f 64 65 7d 20 72 5d 0a 20 20 7d 20  1 $code} r].  } 
8c70: 65 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20 63  else {.    set c
8c80: 20 5b 63 61 74 63 68 20 7b 75 70 6c 65 76 65 6c   [catch {uplevel
8c90: 20 31 20 24 65 6c 73 65 63 6f 64 65 7d 20 72 5d   1 $elsecode} r]
8ca0: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 2d 63  .  }.  return -c
8cb0: 6f 64 65 20 24 63 20 24 72 0a 7d 0a 0a 23 20 54  ode $c $r.}..# T
8cc0: 68 69 73 20 70 72 6f 63 20 65 78 65 63 73 20 61  his proc execs a
8cd0: 20 73 65 70 65 72 61 74 65 20 70 72 6f 63 65 73   seperate proces
8ce0: 73 20 74 68 61 74 20 63 72 61 73 68 65 73 20 6d  s that crashes m
8cf0: 69 64 77 61 79 20 74 68 72 6f 75 67 68 20 65 78  idway through ex
8d00: 65 63 75 74 69 6e 67 0a 23 20 74 68 65 20 53 51  ecuting.# the SQ
8d10: 4c 20 73 63 72 69 70 74 20 24 73 71 6c 20 6f 6e  L script $sql on
8d20: 20 64 61 74 61 62 61 73 65 20 74 65 73 74 2e 64   database test.d
8d30: 62 2e 0a 23 0a 23 20 54 68 65 20 63 72 61 73 68  b..#.# The crash
8d40: 20 6f 63 63 75 72 73 20 64 75 72 69 6e 67 20 61   occurs during a
8d50: 20 73 79 6e 63 28 29 20 6f 66 20 66 69 6c 65 20   sync() of file 
8d60: 24 63 72 61 73 68 66 69 6c 65 2e 20 57 68 65 6e  $crashfile. When
8d70: 20 74 68 65 20 63 72 61 73 68 0a 23 20 6f 63 63   the crash.# occ
8d80: 75 72 73 20 61 20 72 61 6e 64 6f 6d 20 73 75 62  urs a random sub
8d90: 73 65 74 20 6f 66 20 61 6c 6c 20 75 6e 73 79 6e  set of all unsyn
8da0: 63 65 64 20 77 72 69 74 65 73 20 6d 61 64 65 20  ced writes made 
8db0: 62 79 20 74 68 65 20 70 72 6f 63 65 73 73 20 61  by the process a
8dc0: 72 65 0a 23 20 77 72 69 74 74 65 6e 20 69 6e 74  re.# written int
8dd0: 6f 20 74 68 65 20 66 69 6c 65 73 20 6f 6e 20 64  o the files on d
8de0: 69 73 6b 2e 20 41 72 67 75 6d 65 6e 74 20 24 63  isk. Argument $c
8df0: 72 61 73 68 64 65 6c 61 79 20 69 6e 64 69 63 61  rashdelay indica
8e00: 74 65 73 20 74 68 65 0a 23 20 6e 75 6d 62 65 72  tes the.# number
8e10: 20 6f 66 20 66 69 6c 65 20 73 79 6e 63 73 20 74   of file syncs t
8e20: 6f 20 77 61 69 74 20 62 65 66 6f 72 65 20 63 72  o wait before cr
8e30: 61 73 68 69 6e 67 2e 0a 23 0a 23 20 54 68 65 20  ashing..#.# The 
8e40: 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20  return value is 
8e50: 61 20 6c 69 73 74 20 6f 66 20 74 77 6f 20 65 6c  a list of two el
8e60: 65 6d 65 6e 74 73 2e 20 54 68 65 20 66 69 72 73  ements. The firs
8e70: 74 20 65 6c 65 6d 65 6e 74 20 69 73 20 61 0a 23  t element is a.#
8e80: 20 62 6f 6f 6c 65 61 6e 2c 20 69 6e 64 69 63 61   boolean, indica
8e90: 74 69 6e 67 20 77 68 65 74 68 65 72 20 6f 72 20  ting whether or 
8ea0: 6e 6f 74 20 74 68 65 20 70 72 6f 63 65 73 73 20  not the process 
8eb0: 61 63 74 75 61 6c 6c 79 20 63 72 61 73 68 65 64  actually crashed
8ec0: 20 6f 72 0a 23 20 72 65 70 6f 72 74 65 64 20 73   or.# reported s
8ed0: 6f 6d 65 20 6f 74 68 65 72 20 65 72 72 6f 72 2e  ome other error.
8ee0: 20 54 68 65 20 73 65 63 6f 6e 64 20 65 6c 65 6d   The second elem
8ef0: 65 6e 74 20 69 6e 20 74 68 65 20 72 65 74 75 72  ent in the retur
8f00: 6e 65 64 20 6c 69 73 74 20 69 73 20 74 68 65 0a  ned list is the.
8f10: 23 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2e  # error message.
8f20: 20 54 68 69 73 20 69 73 20 22 63 68 69 6c 64 20   This is "child 
8f30: 70 72 6f 63 65 73 73 20 65 78 69 74 65 64 20 61  process exited a
8f40: 62 6e 6f 72 6d 61 6c 6c 79 22 20 69 66 20 74 68  bnormally" if th
8f50: 65 20 63 72 61 73 68 0a 23 20 6f 63 63 75 72 72  e crash.# occurr
8f60: 65 64 2e 0a 23 0a 23 20 20 20 63 72 61 73 68 73  ed..#.#   crashs
8f70: 71 6c 20 2d 64 65 6c 61 79 20 43 52 41 53 48 44  ql -delay CRASHD
8f80: 45 4c 41 59 20 2d 66 69 6c 65 20 43 52 41 53 48  ELAY -file CRASH
8f90: 46 49 4c 45 20 3f 2d 62 6c 6f 63 6b 73 69 7a 65  FILE ?-blocksize
8fa0: 20 42 4c 4f 43 4b 53 49 5a 45 3f 20 24 73 71 6c   BLOCKSIZE? $sql
8fb0: 0a 23 0a 70 72 6f 63 20 63 72 61 73 68 73 71 6c  .#.proc crashsql
8fc0: 20 7b 61 72 67 73 7d 20 7b 0a 0a 20 20 73 65 74   {args} {..  set
8fd0: 20 62 6c 6f 63 6b 73 69 7a 65 20 22 22 0a 20 20   blocksize "".  
8fe0: 73 65 74 20 63 72 61 73 68 64 65 6c 61 79 20 31  set crashdelay 1
8ff0: 0a 20 20 73 65 74 20 70 72 6e 67 73 65 65 64 20  .  set prngseed 
9000: 30 0a 20 20 73 65 74 20 6f 70 65 6e 64 62 20 7b  0.  set opendb {
9010: 20 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74   sqlite3 db test
9020: 2e 64 62 20 2d 76 66 73 20 63 72 61 73 68 20 7d  .db -vfs crash }
9030: 0a 20 20 73 65 74 20 74 63 6c 62 6f 64 79 20 7b  .  set tclbody {
9040: 7d 0a 20 20 73 65 74 20 63 72 61 73 68 66 69 6c  }.  set crashfil
9050: 65 20 22 22 0a 20 20 73 65 74 20 64 63 20 22 22  e "".  set dc ""
9060: 0a 20 20 73 65 74 20 73 71 6c 20 5b 6c 69 6e 64  .  set sql [lind
9070: 65 78 20 24 61 72 67 73 20 65 6e 64 5d 0a 0a 20  ex $args end].. 
9080: 20 66 6f 72 20 7b 73 65 74 20 69 69 20 30 7d 20   for {set ii 0} 
9090: 7b 24 69 69 20 3c 20 5b 6c 6c 65 6e 67 74 68 20  {$ii < [llength 
90a0: 24 61 72 67 73 5d 2d 31 7d 20 7b 69 6e 63 72 20  $args]-1} {incr 
90b0: 69 69 20 32 7d 20 7b 0a 20 20 20 20 73 65 74 20  ii 2} {.    set 
90c0: 7a 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20  z [lindex $args 
90d0: 24 69 69 5d 0a 20 20 20 20 73 65 74 20 6e 20 5b  $ii].    set n [
90e0: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 7a  string length $z
90f0: 5d 0a 20 20 20 20 73 65 74 20 7a 32 20 5b 6c 69  ].    set z2 [li
9100: 6e 64 65 78 20 24 61 72 67 73 20 5b 65 78 70 72  ndex $args [expr
9110: 20 24 69 69 2b 31 5d 5d 0a 0a 20 20 20 20 69 66   $ii+1]]..    if
9120: 20 20 20 20 20 7b 24 6e 3e 31 20 26 26 20 5b 73       {$n>1 && [s
9130: 74 72 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d  tring first $z -
9140: 64 65 6c 61 79 5d 3d 3d 30 7d 20 20 20 20 20 7b  delay]==0}     {
9150: 73 65 74 20 63 72 61 73 68 64 65 6c 61 79 20 24  set crashdelay $
9160: 7a 32 7d 20 5c 0a 20 20 20 20 65 6c 73 65 69 66  z2} \.    elseif
9170: 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e   {$n>1 && [strin
9180: 67 20 66 69 72 73 74 20 24 7a 20 2d 6f 70 65 6e  g first $z -open
9190: 64 62 5d 3d 3d 30 7d 20 20 20 20 7b 73 65 74 20  db]==0}    {set 
91a0: 6f 70 65 6e 64 62 20 24 7a 32 7d 20 5c 0a 20 20  opendb $z2} \.  
91b0: 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 20 26    elseif {$n>1 &
91c0: 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20  & [string first 
91d0: 24 7a 20 2d 73 65 65 64 5d 3d 3d 30 7d 20 20 20  $z -seed]==0}   
91e0: 20 20 20 7b 73 65 74 20 70 72 6e 67 73 65 65 64     {set prngseed
91f0: 20 24 7a 32 7d 20 5c 0a 20 20 20 20 65 6c 73 65   $z2} \.    else
9200: 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72  if {$n>1 && [str
9210: 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d 66 69  ing first $z -fi
9220: 6c 65 5d 3d 3d 30 7d 20 20 20 20 20 20 7b 73 65  le]==0}      {se
9230: 74 20 63 72 61 73 68 66 69 6c 65 20 24 7a 32 7d  t crashfile $z2}
9240: 20 20 5c 0a 20 20 20 20 65 6c 73 65 69 66 20 7b    \.    elseif {
9250: 24 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e 67 20  $n>1 && [string 
9260: 66 69 72 73 74 20 24 7a 20 2d 74 63 6c 62 6f 64  first $z -tclbod
9270: 79 5d 3d 3d 30 7d 20 20 20 7b 73 65 74 20 74 63  y]==0}   {set tc
9280: 6c 62 6f 64 79 20 24 7a 32 7d 20 20 5c 0a 20 20  lbody $z2}  \.  
9290: 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 20 26    elseif {$n>1 &
92a0: 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20  & [string first 
92b0: 24 7a 20 2d 62 6c 6f 63 6b 73 69 7a 65 5d 3d 3d  $z -blocksize]==
92c0: 30 7d 20 7b 73 65 74 20 62 6c 6f 63 6b 73 69 7a  0} {set blocksiz
92d0: 65 20 22 2d 73 20 24 7a 32 22 20 7d 20 5c 0a 20  e "-s $z2" } \. 
92e0: 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 20     elseif {$n>1 
92f0: 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74  && [string first
9300: 20 24 7a 20 2d 63 68 61 72 61 63 74 65 72 69 73   $z -characteris
9310: 74 69 63 73 5d 3d 3d 30 7d 20 7b 73 65 74 20 64  tics]==0} {set d
9320: 63 20 22 2d 63 20 7b 24 7a 32 7d 22 20 7d 20 5c  c "-c {$z2}" } \
9330: 0a 20 20 20 20 65 6c 73 65 20 20 20 7b 20 65 72  .    else   { er
9340: 72 6f 72 20 22 55 6e 72 65 63 6f 67 6e 69 7a 65  ror "Unrecognize
9350: 64 20 6f 70 74 69 6f 6e 3a 20 24 7a 22 20 7d 0a  d option: $z" }.
9360: 20 20 7d 0a 0a 20 20 69 66 20 7b 24 63 72 61 73    }..  if {$cras
9370: 68 66 69 6c 65 20 65 71 20 22 22 7d 20 7b 0a 20  hfile eq ""} {. 
9380: 20 20 20 65 72 72 6f 72 20 22 43 6f 6d 70 75 6c     error "Compul
9390: 73 6f 72 79 20 6f 70 74 69 6f 6e 20 2d 66 69 6c  sory option -fil
93a0: 65 20 6d 69 73 73 69 6e 67 22 0a 20 20 7d 0a 0a  e missing".  }..
93b0: 20 20 23 20 24 63 72 61 73 68 66 69 6c 65 20 67    # $crashfile g
93c0: 65 74 73 20 63 6f 6d 70 61 72 65 64 20 74 6f 20  ets compared to 
93d0: 74 68 65 20 6e 61 74 69 76 65 20 66 69 6c 65 6e  the native filen
93e0: 61 6d 65 20 69 6e 0a 20 20 23 20 63 66 53 79 6e  ame in.  # cfSyn
93f0: 63 28 29 2c 20 77 68 69 63 68 20 63 61 6e 20 62  c(), which can b
9400: 65 20 64 69 66 66 65 72 65 6e 74 20 74 68 65 6e  e different then
9410: 20 77 68 61 74 20 54 43 4c 20 75 73 65 73 20 62   what TCL uses b
9420: 79 0a 20 20 23 20 64 65 66 61 75 6c 74 2c 20 73  y.  # default, s
9430: 6f 20 68 65 72 65 20 77 65 20 66 6f 72 63 65 20  o here we force 
9440: 69 74 20 74 6f 20 74 68 65 20 22 6e 61 74 69 76  it to the "nativ
9450: 65 6e 61 6d 65 22 20 66 6f 72 6d 61 74 2e 0a 20  ename" format.. 
9460: 20 73 65 74 20 63 66 69 6c 65 20 5b 73 74 72 69   set cfile [stri
9470: 6e 67 20 6d 61 70 20 7b 5c 5c 20 5c 5c 5c 5c 7d  ng map {\\ \\\\}
9480: 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 6e 61 6d   [file nativenam
9490: 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65  e [file join [ge
94a0: 74 5f 70 77 64 5d 20 24 63 72 61 73 68 66 69 6c  t_pwd] $crashfil
94b0: 65 5d 5d 5d 0a 0a 20 20 73 65 74 20 66 20 5b 6f  e]]]..  set f [o
94c0: 70 65 6e 20 63 72 61 73 68 2e 74 63 6c 20 77 5d  pen crash.tcl w]
94d0: 0a 20 20 70 75 74 73 20 24 66 20 22 73 71 6c 69  .  puts $f "sqli
94e0: 74 65 33 5f 63 72 61 73 68 5f 65 6e 61 62 6c 65  te3_crash_enable
94f0: 20 31 22 0a 20 20 70 75 74 73 20 24 66 20 22 73   1".  puts $f "s
9500: 71 6c 69 74 65 33 5f 63 72 61 73 68 70 61 72 61  qlite3_crashpara
9510: 6d 73 20 24 62 6c 6f 63 6b 73 69 7a 65 20 24 64  ms $blocksize $d
9520: 63 20 24 63 72 61 73 68 64 65 6c 61 79 20 24 63  c $crashdelay $c
9530: 66 69 6c 65 22 0a 20 20 70 75 74 73 20 24 66 20  file".  puts $f 
9540: 22 73 71 6c 69 74 65 33 5f 74 65 73 74 5f 63 6f  "sqlite3_test_co
9550: 6e 74 72 6f 6c 5f 70 65 6e 64 69 6e 67 5f 62 79  ntrol_pending_by
9560: 74 65 20 24 3a 3a 73 71 6c 69 74 65 5f 70 65 6e  te $::sqlite_pen
9570: 64 69 6e 67 5f 62 79 74 65 22 0a 20 20 70 75 74  ding_byte".  put
9580: 73 20 24 66 20 24 6f 70 65 6e 64 62 20 0a 0a 20  s $f $opendb .. 
9590: 20 23 20 54 68 69 73 20 62 6c 6f 63 6b 20 73 65   # This block se
95a0: 74 73 20 74 68 65 20 63 61 63 68 65 20 73 69 7a  ts the cache siz
95b0: 65 20 6f 66 20 74 68 65 20 6d 61 69 6e 20 64 61  e of the main da
95c0: 74 61 62 61 73 65 20 74 6f 20 31 30 0a 20 20 23  tabase to 10.  #
95d0: 20 70 61 67 65 73 2e 20 54 68 69 73 20 69 73 20   pages. This is 
95e0: 64 6f 6e 65 20 69 6e 20 63 61 73 65 20 74 68 65  done in case the
95f0: 20 62 75 69 6c 64 20 69 73 20 63 6f 6e 66 69 67   build is config
9600: 75 72 65 64 20 74 6f 20 6f 6d 69 74 0a 20 20 23  ured to omit.  #
9610: 20 22 50 52 41 47 4d 41 20 63 61 63 68 65 5f 73   "PRAGMA cache_s
9620: 69 7a 65 22 2e 0a 20 20 70 75 74 73 20 24 66 20  ize"..  puts $f 
9630: 7b 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54  {db eval {SELECT
9640: 20 2a 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d   * FROM sqlite_m
9650: 61 73 74 65 72 3b 7d 7d 0a 20 20 70 75 74 73 20  aster;}}.  puts 
9660: 24 66 20 7b 73 65 74 20 62 74 20 5b 62 74 72 65  $f {set bt [btre
9670: 65 5f 66 72 6f 6d 5f 64 62 20 64 62 5d 7d 0a 20  e_from_db db]}. 
9680: 20 70 75 74 73 20 24 66 20 7b 62 74 72 65 65 5f   puts $f {btree_
9690: 73 65 74 5f 63 61 63 68 65 5f 73 69 7a 65 20 24  set_cache_size $
96a0: 62 74 20 31 30 7d 0a 0a 20 20 69 66 20 7b 24 70  bt 10}..  if {$p
96b0: 72 6e 67 73 65 65 64 7d 20 7b 0a 20 20 20 20 73  rngseed} {.    s
96c0: 65 74 20 73 65 65 64 20 5b 65 78 70 72 20 7b 24  et seed [expr {$
96d0: 70 72 6e 67 73 65 65 64 25 31 30 30 30 37 2b 31  prngseed%10007+1
96e0: 7d 5d 0a 20 20 20 20 23 20 70 75 74 73 20 73 65  }].    # puts se
96f0: 65 64 3d 24 73 65 65 64 0a 20 20 20 20 70 75 74  ed=$seed.    put
9700: 73 20 24 66 20 22 64 62 20 65 76 61 6c 20 7b 53  s $f "db eval {S
9710: 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62  ELECT randomblob
9720: 28 24 73 65 65 64 29 7d 22 0a 20 20 7d 0a 0a 20  ($seed)}".  }.. 
9730: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e   if {[string len
9740: 67 74 68 20 24 74 63 6c 62 6f 64 79 5d 3e 30 7d  gth $tclbody]>0}
9750: 20 7b 0a 20 20 20 20 70 75 74 73 20 24 66 20 24   {.    puts $f $
9760: 74 63 6c 62 6f 64 79 0a 20 20 7d 0a 20 20 69 66  tclbody.  }.  if
9770: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68   {[string length
9780: 20 24 73 71 6c 5d 3e 30 7d 20 7b 0a 20 20 20 20   $sql]>0} {.    
9790: 70 75 74 73 20 24 66 20 22 64 62 20 65 76 61 6c  puts $f "db eval
97a0: 20 7b 22 0a 20 20 20 20 70 75 74 73 20 24 66 20   {".    puts $f 
97b0: 20 20 22 24 73 71 6c 22 0a 20 20 20 20 70 75 74    "$sql".    put
97c0: 73 20 24 66 20 22 7d 22 0a 20 20 7d 0a 20 20 63  s $f "}".  }.  c
97d0: 6c 6f 73 65 20 24 66 0a 20 20 73 65 74 20 72 20  lose $f.  set r 
97e0: 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 65 78 65  [catch {.    exe
97f0: 63 20 5b 69 6e 66 6f 20 6e 61 6d 65 6f 66 65 78  c [info nameofex
9800: 65 63 5d 20 63 72 61 73 68 2e 74 63 6c 20 3e 40  ec] crash.tcl >@
9810: 73 74 64 6f 75 74 0a 20 20 7d 20 6d 73 67 5d 0a  stdout.  } msg].
9820: 0a 20 20 23 20 57 69 6e 64 6f 77 73 2f 41 63 74  .  # Windows/Act
9830: 69 76 65 53 74 61 74 65 20 54 43 4c 20 72 65 74  iveState TCL ret
9840: 75 72 6e 73 20 61 20 73 6c 69 67 68 74 6c 79 20  urns a slightly 
9850: 64 69 66 66 65 72 65 6e 74 0a 20 20 23 20 65 72  different.  # er
9860: 72 6f 72 20 6d 65 73 73 61 67 65 2e 20 20 57 65  ror message.  We
9870: 20 6d 61 70 20 74 68 61 74 20 74 6f 20 74 68 65   map that to the
9880: 20 65 78 70 65 63 74 65 64 20 6d 65 73 73 61 67   expected messag
9890: 65 0a 20 20 23 20 73 6f 20 74 68 61 74 20 77 65  e.  # so that we
98a0: 20 64 6f 6e 27 74 20 68 61 76 65 20 74 6f 20 63   don't have to c
98b0: 68 61 6e 67 65 20 61 6c 6c 20 6f 66 20 74 68 65  hange all of the
98c0: 20 74 65 73 74 0a 20 20 23 20 63 61 73 65 73 2e   test.  # cases.
98d0: 0a 20 20 69 66 20 7b 24 3a 3a 74 63 6c 5f 70 6c  .  if {$::tcl_pl
98e0: 61 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29  atform(platform)
98f0: 3d 3d 22 77 69 6e 64 6f 77 73 22 7d 20 7b 0a 20  =="windows"} {. 
9900: 20 20 20 69 66 20 7b 24 6d 73 67 3d 3d 22 63 68     if {$msg=="ch
9910: 69 6c 64 20 6b 69 6c 6c 65 64 3a 20 75 6e 6b 6e  ild killed: unkn
9920: 6f 77 6e 20 73 69 67 6e 61 6c 22 7d 20 7b 0a 20  own signal"} {. 
9930: 20 20 20 20 20 73 65 74 20 6d 73 67 20 22 63 68       set msg "ch
9940: 69 6c 64 20 70 72 6f 63 65 73 73 20 65 78 69 74  ild process exit
9950: 65 64 20 61 62 6e 6f 72 6d 61 6c 6c 79 22 0a 20  ed abnormally". 
9960: 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 6c 61 70 70     }.  }..  lapp
9970: 65 6e 64 20 72 20 24 6d 73 67 0a 7d 0a 0a 70 72  end r $msg.}..pr
9980: 6f 63 20 72 75 6e 5f 69 6f 65 72 72 5f 70 72 65  oc run_ioerr_pre
9990: 70 20 7b 7d 20 7b 0a 20 20 73 65 74 20 3a 3a 73  p {} {.  set ::s
99a0: 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70  qlite_io_error_p
99b0: 65 6e 64 69 6e 67 20 30 0a 20 20 63 61 74 63 68  ending 0.  catch
99c0: 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 20 20 63 61   {db close}.  ca
99d0: 74 63 68 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a  tch {db2 close}.
99e0: 20 20 63 61 74 63 68 20 7b 66 6f 72 63 65 64 65    catch {forcede
99f0: 6c 65 74 65 20 74 65 73 74 2e 64 62 7d 0a 20 20  lete test.db}.  
9a00: 63 61 74 63 68 20 7b 66 6f 72 63 65 64 65 6c 65  catch {forcedele
9a10: 74 65 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72 6e  te test.db-journ
9a20: 61 6c 7d 0a 20 20 63 61 74 63 68 20 7b 66 6f 72  al}.  catch {for
9a30: 63 65 64 65 6c 65 74 65 20 74 65 73 74 32 2e 64  cedelete test2.d
9a40: 62 7d 0a 20 20 63 61 74 63 68 20 7b 66 6f 72 63  b}.  catch {forc
9a50: 65 64 65 6c 65 74 65 20 74 65 73 74 32 2e 64 62  edelete test2.db
9a60: 2d 6a 6f 75 72 6e 61 6c 7d 0a 20 20 73 65 74 20  -journal}.  set 
9a70: 3a 3a 44 42 20 5b 73 71 6c 69 74 65 33 20 64 62  ::DB [sqlite3 db
9a80: 20 74 65 73 74 2e 64 62 3b 20 73 71 6c 69 74 65   test.db; sqlite
9a90: 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69  3_connection_poi
9aa0: 6e 74 65 72 20 64 62 5d 0a 20 20 73 71 6c 69 74  nter db].  sqlit
9ab0: 65 33 5f 65 78 74 65 6e 64 65 64 5f 72 65 73 75  e3_extended_resu
9ac0: 6c 74 5f 63 6f 64 65 73 20 24 3a 3a 44 42 20 24  lt_codes $::DB $
9ad0: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 65 72 63  ::ioerropts(-erc
9ae0: 29 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78  ).  if {[info ex
9af0: 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74 73  ists ::ioerropts
9b00: 28 2d 74 63 6c 70 72 65 70 29 5d 7d 20 7b 0a 20  (-tclprep)]} {. 
9b10: 20 20 20 65 76 61 6c 20 24 3a 3a 69 6f 65 72 72     eval $::ioerr
9b20: 6f 70 74 73 28 2d 74 63 6c 70 72 65 70 29 0a 20  opts(-tclprep). 
9b30: 20 7d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65   }.  if {[info e
9b40: 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74  xists ::ioerropt
9b50: 73 28 2d 73 71 6c 70 72 65 70 29 5d 7d 20 7b 0a  s(-sqlprep)]} {.
9b60: 20 20 20 20 65 78 65 63 73 71 6c 20 24 3a 3a 69      execsql $::i
9b70: 6f 65 72 72 6f 70 74 73 28 2d 73 71 6c 70 72 65  oerropts(-sqlpre
9b80: 70 29 0a 20 20 7d 0a 20 20 65 78 70 72 20 30 0a  p).  }.  expr 0.
9b90: 7d 0a 0a 23 20 55 73 61 67 65 3a 20 64 6f 5f 69  }..# Usage: do_i
9ba0: 6f 65 72 72 5f 74 65 73 74 20 3c 74 65 73 74 20  oerr_test <test 
9bb0: 6e 75 6d 62 65 72 3e 20 3c 6f 70 74 69 6f 6e 73  number> <options
9bc0: 2e 2e 2e 3e 0a 23 0a 23 20 54 68 69 73 20 70 72  ...>.#.# This pr
9bd0: 6f 63 20 69 73 20 75 73 65 64 20 74 6f 20 69 6d  oc is used to im
9be0: 70 6c 65 6d 65 6e 74 20 74 65 73 74 20 63 61 73  plement test cas
9bf0: 65 73 20 74 68 61 74 20 63 68 65 63 6b 20 74 68  es that check th
9c00: 61 74 20 49 4f 20 65 72 72 6f 72 73 0a 23 20 61  at IO errors.# a
9c10: 72 65 20 63 6f 72 72 65 63 74 6c 79 20 68 61 6e  re correctly han
9c20: 64 6c 65 64 2e 20 54 68 65 20 66 69 72 73 74 20  dled. The first 
9c30: 61 72 67 75 6d 65 6e 74 2c 20 3c 74 65 73 74 20  argument, <test 
9c40: 6e 75 6d 62 65 72 3e 2c 20 69 73 20 61 6e 20 69  number>, is an i
9c50: 6e 74 65 67 65 72 0a 23 20 75 73 65 64 20 74 6f  nteger.# used to
9c60: 20 6e 61 6d 65 20 74 68 65 20 74 65 73 74 73 20   name the tests 
9c70: 65 78 65 63 75 74 65 64 20 62 79 20 74 68 69 73  executed by this
9c80: 20 70 72 6f 63 2e 20 4f 70 74 69 6f 6e 73 20 61   proc. Options a
9c90: 72 65 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 23  re as follows:.#
9ca0: 0a 23 20 20 20 20 20 2d 74 63 6c 70 72 65 70 20  .#     -tclprep 
9cb0: 20 20 20 20 20 20 20 20 20 54 43 4c 20 73 63 72           TCL scr
9cc0: 69 70 74 20 74 6f 20 72 75 6e 20 74 6f 20 70 72  ipt to run to pr
9cd0: 65 70 61 72 65 20 74 65 73 74 2e 0a 23 20 20 20  epare test..#   
9ce0: 20 20 2d 73 71 6c 70 72 65 70 20 20 20 20 20 20    -sqlprep      
9cf0: 20 20 20 20 53 51 4c 20 73 63 72 69 70 74 20 74      SQL script t
9d00: 6f 20 72 75 6e 20 74 6f 20 70 72 65 70 61 72 65  o run to prepare
9d10: 20 74 65 73 74 2e 0a 23 20 20 20 20 20 2d 74 63   test..#     -tc
9d20: 6c 62 6f 64 79 20 20 20 20 20 20 20 20 20 20 54  lbody          T
9d30: 43 4c 20 73 63 72 69 70 74 20 74 6f 20 72 75 6e  CL script to run
9d40: 20 77 69 74 68 20 49 4f 20 65 72 72 6f 72 20 73   with IO error s
9d50: 69 6d 75 6c 61 74 69 6f 6e 2e 0a 23 20 20 20 20  imulation..#    
9d60: 20 2d 73 71 6c 62 6f 64 79 20 20 20 20 20 20 20   -sqlbody       
9d70: 20 20 20 54 43 4c 20 73 63 72 69 70 74 20 74 6f     TCL script to
9d80: 20 72 75 6e 20 77 69 74 68 20 49 4f 20 65 72 72   run with IO err
9d90: 6f 72 20 73 69 6d 75 6c 61 74 69 6f 6e 2e 0a 23  or simulation..#
9da0: 20 20 20 20 20 2d 65 78 63 6c 75 64 65 20 20 20       -exclude   
9db0: 20 20 20 20 20 20 20 4c 69 73 74 20 6f 66 20 27         List of '
9dc0: 4e 27 20 76 61 6c 75 65 73 20 6e 6f 74 20 74 6f  N' values not to
9dd0: 20 74 65 73 74 2e 0a 23 20 20 20 20 20 2d 65 72   test..#     -er
9de0: 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55  c              U
9df0: 73 65 20 65 78 74 65 6e 64 65 64 20 72 65 73 75  se extended resu
9e00: 6c 74 20 63 6f 64 65 73 0a 23 20 20 20 20 20 2d  lt codes.#     -
9e10: 70 65 72 73 69 73 74 20 20 20 20 20 20 20 20 20  persist         
9e20: 20 4d 61 6b 65 20 73 69 6d 75 6c 61 74 65 64 20   Make simulated 
9e30: 49 2f 4f 20 65 72 72 6f 72 73 20 70 65 72 73 69  I/O errors persi
9e40: 73 74 65 6e 74 0a 23 20 20 20 20 20 2d 73 74 61  stent.#     -sta
9e50: 72 74 20 20 20 20 20 20 20 20 20 20 20 20 56 61  rt            Va
9e60: 6c 75 65 20 6f 66 20 27 4e 27 20 74 6f 20 62 65  lue of 'N' to be
9e70: 67 69 6e 20 77 69 74 68 20 28 64 65 66 61 75 6c  gin with (defaul
9e80: 74 20 31 29 0a 23 0a 23 20 20 20 20 20 2d 63 6b  t 1).#.#     -ck
9e90: 73 75 6d 20 20 20 20 20 20 20 20 20 20 20 20 42  sum            B
9ea0: 6f 6f 6c 65 61 6e 2e 20 49 66 20 74 72 75 65 2c  oolean. If true,
9eb0: 20 74 65 73 74 20 74 68 61 74 20 74 68 65 20 64   test that the d
9ec0: 61 74 61 62 61 73 65 20 64 6f 65 73 0a 23 20 20  atabase does.#  
9ed0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9ee0: 20 20 20 20 20 6e 6f 74 20 63 68 61 6e 67 65 20       not change 
9ef0: 64 75 72 69 6e 67 20 74 68 65 20 65 78 65 63 75  during the execu
9f00: 74 69 6f 6e 20 6f 66 20 74 68 65 20 74 65 73 74  tion of the test
9f10: 20 63 61 73 65 2e 0a 23 0a 70 72 6f 63 20 64 6f   case..#.proc do
9f20: 5f 69 6f 65 72 72 5f 74 65 73 74 20 7b 74 65 73  _ioerr_test {tes
9f30: 74 6e 61 6d 65 20 61 72 67 73 7d 20 7b 0a 0a 20  tname args} {.. 
9f40: 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73   set ::ioerropts
9f50: 28 2d 73 74 61 72 74 29 20 31 0a 20 20 73 65 74  (-start) 1.  set
9f60: 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b   ::ioerropts(-ck
9f70: 73 75 6d 29 20 30 0a 20 20 73 65 74 20 3a 3a 69  sum) 0.  set ::i
9f80: 6f 65 72 72 6f 70 74 73 28 2d 65 72 63 29 20 30  oerropts(-erc) 0
9f90: 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70  .  set ::ioerrop
9fa0: 74 73 28 2d 63 6f 75 6e 74 29 20 31 30 30 30 30  ts(-count) 10000
9fb0: 30 30 30 30 0a 20 20 73 65 74 20 3a 3a 69 6f 65  0000.  set ::ioe
9fc0: 72 72 6f 70 74 73 28 2d 70 65 72 73 69 73 74 29  rropts(-persist)
9fd0: 20 31 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 72   1.  set ::ioerr
9fe0: 6f 70 74 73 28 2d 63 6b 72 65 66 63 6f 75 6e 74  opts(-ckrefcount
9ff0: 29 20 30 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72  ) 0.  set ::ioer
a000: 72 6f 70 74 73 28 2d 72 65 73 74 6f 72 65 70 72  ropts(-restorepr
a010: 6e 67 29 20 31 0a 20 20 61 72 72 61 79 20 73 65  ng) 1.  array se
a020: 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 20 24 61  t ::ioerropts $a
a030: 72 67 73 0a 0a 20 20 23 20 54 45 4d 50 4f 52 41  rgs..  # TEMPORA
a040: 52 59 3a 20 46 6f 72 20 33 2e 35 2e 39 2c 20 64  RY: For 3.5.9, d
a050: 69 73 61 62 6c 65 20 74 65 73 74 69 6e 67 20 6f  isable testing o
a060: 66 20 65 78 74 65 6e 64 65 64 20 72 65 73 75 6c  f extended resul
a070: 74 20 63 6f 64 65 73 2e 20 54 68 65 72 65 20 61  t codes. There a
a080: 72 65 0a 20 20 23 20 61 20 63 6f 75 70 6c 65 20  re.  # a couple 
a090: 6f 66 20 6f 62 73 63 75 72 65 20 49 4f 20 65 72  of obscure IO er
a0a0: 72 6f 72 73 20 74 68 61 74 20 64 6f 20 6e 6f 74  rors that do not
a0b0: 20 72 65 74 75 72 6e 20 74 68 65 6d 2e 0a 20 20   return them..  
a0c0: 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28  set ::ioerropts(
a0d0: 2d 65 72 63 29 20 30 0a 0a 20 20 23 20 43 72 65  -erc) 0..  # Cre
a0e0: 61 74 65 20 61 20 73 69 6e 67 6c 65 20 54 43 4c  ate a single TCL
a0f0: 20 73 63 72 69 70 74 20 66 72 6f 6d 20 74 68 65   script from the
a100: 20 54 43 4c 20 61 6e 64 20 53 51 4c 20 73 70 65   TCL and SQL spe
a110: 63 69 66 69 65 64 0a 20 20 23 20 61 73 20 74 68  cified.  # as th
a120: 65 20 62 6f 64 79 20 6f 66 20 74 68 65 20 74 65  e body of the te
a130: 73 74 2e 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72  st..  set ::ioer
a140: 72 6f 72 62 6f 64 79 20 7b 7d 0a 20 20 69 66 20  rorbody {}.  if 
a150: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
a160: 69 6f 65 72 72 6f 70 74 73 28 2d 74 63 6c 62 6f  ioerropts(-tclbo
a170: 64 79 29 5d 7d 20 7b 0a 20 20 20 20 61 70 70 65  dy)]} {.    appe
a180: 6e 64 20 3a 3a 69 6f 65 72 72 6f 72 62 6f 64 79  nd ::ioerrorbody
a190: 20 22 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d   "$::ioerropts(-
a1a0: 74 63 6c 62 6f 64 79 29 5c 6e 22 0a 20 20 7d 0a  tclbody)\n".  }.
a1b0: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73    if {[info exis
a1c0: 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d  ts ::ioerropts(-
a1d0: 73 71 6c 62 6f 64 79 29 5d 7d 20 7b 0a 20 20 20  sqlbody)]} {.   
a1e0: 20 61 70 70 65 6e 64 20 3a 3a 69 6f 65 72 72 6f   append ::ioerro
a1f0: 72 62 6f 64 79 20 22 64 62 20 65 76 61 6c 20 7b  rbody "db eval {
a200: 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73 71  $::ioerropts(-sq
a210: 6c 62 6f 64 79 29 7d 22 0a 20 20 7d 0a 0a 20 20  lbody)}".  }..  
a220: 73 61 76 65 5f 70 72 6e 67 5f 73 74 61 74 65 0a  save_prng_state.
a230: 20 20 69 66 20 7b 24 3a 3a 69 6f 65 72 72 6f 70    if {$::ioerrop
a240: 74 73 28 2d 63 6b 73 75 6d 29 7d 20 7b 0a 20 20  ts(-cksum)} {.  
a250: 20 20 72 75 6e 5f 69 6f 65 72 72 5f 70 72 65 70    run_ioerr_prep
a260: 0a 20 20 20 20 65 76 61 6c 20 24 3a 3a 69 6f 65  .    eval $::ioe
a270: 72 72 6f 72 62 6f 64 79 0a 20 20 20 20 73 65 74  rrorbody.    set
a280: 20 3a 3a 67 6f 6f 64 63 6b 73 75 6d 20 5b 63 6b   ::goodcksum [ck
a290: 73 75 6d 5d 0a 20 20 7d 0a 0a 20 20 73 65 74 20  sum].  }..  set 
a2a0: 3a 3a 67 6f 20 31 0a 20 20 23 72 65 73 65 74 5f  ::go 1.  #reset_
a2b0: 70 72 6e 67 5f 73 74 61 74 65 0a 20 20 66 6f 72  prng_state.  for
a2c0: 20 7b 73 65 74 20 6e 20 24 3a 3a 69 6f 65 72 72   {set n $::ioerr
a2d0: 6f 70 74 73 28 2d 73 74 61 72 74 29 7d 20 7b 24  opts(-start)} {$
a2e0: 3a 3a 67 6f 7d 20 7b 69 6e 63 72 20 6e 7d 20 7b  ::go} {incr n} {
a2f0: 0a 20 20 20 20 73 65 74 20 3a 3a 54 4e 20 24 6e  .    set ::TN $n
a300: 0a 20 20 20 20 69 6e 63 72 20 3a 3a 69 6f 65 72  .    incr ::ioer
a310: 72 6f 70 74 73 28 2d 63 6f 75 6e 74 29 20 2d 31  ropts(-count) -1
a320: 0a 20 20 20 20 69 66 20 7b 24 3a 3a 69 6f 65 72  .    if {$::ioer
a330: 72 6f 70 74 73 28 2d 63 6f 75 6e 74 29 3c 30 7d  ropts(-count)<0}
a340: 20 62 72 65 61 6b 0a 0a 20 20 20 20 23 20 53 6b   break..    # Sk
a350: 69 70 20 74 68 69 73 20 49 4f 20 65 72 72 6f 72  ip this IO error
a360: 20 69 66 20 69 74 20 77 61 73 20 73 70 65 63 69   if it was speci
a370: 66 69 65 64 20 77 69 74 68 20 74 68 65 20 22 2d  fied with the "-
a380: 65 78 63 6c 75 64 65 22 20 6f 70 74 69 6f 6e 2e  exclude" option.
a390: 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65  .    if {[info e
a3a0: 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74  xists ::ioerropt
a3b0: 73 28 2d 65 78 63 6c 75 64 65 29 5d 7d 20 7b 0a  s(-exclude)]} {.
a3c0: 20 20 20 20 20 20 69 66 20 7b 5b 6c 73 65 61 72        if {[lsear
a3d0: 63 68 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28  ch $::ioerropts(
a3e0: 2d 65 78 63 6c 75 64 65 29 20 24 6e 5d 21 3d 2d  -exclude) $n]!=-
a3f0: 31 7d 20 63 6f 6e 74 69 6e 75 65 0a 20 20 20 20  1} continue.    
a400: 7d 0a 20 20 20 20 69 66 20 7b 24 3a 3a 69 6f 65  }.    if {$::ioe
a410: 72 72 6f 70 74 73 28 2d 72 65 73 74 6f 72 65 70  rropts(-restorep
a420: 72 6e 67 29 7d 20 7b 0a 20 20 20 20 20 20 72 65  rng)} {.      re
a430: 73 74 6f 72 65 5f 70 72 6e 67 5f 73 74 61 74 65  store_prng_state
a440: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 44 65  .    }..    # De
a450: 6c 65 74 65 20 74 68 65 20 66 69 6c 65 73 20 74  lete the files t
a460: 65 73 74 2e 64 62 20 61 6e 64 20 74 65 73 74 32  est.db and test2
a470: 2e 64 62 2c 20 74 68 65 6e 20 65 78 65 63 75 74  .db, then execut
a480: 65 20 74 68 65 20 54 43 4c 20 61 6e 64 0a 20 20  e the TCL and.  
a490: 20 20 23 20 53 51 4c 20 28 69 6e 20 74 68 61 74    # SQL (in that
a4a0: 20 6f 72 64 65 72 29 20 74 6f 20 70 72 65 70 61   order) to prepa
a4b0: 72 65 20 66 6f 72 20 74 68 65 20 74 65 73 74 20  re for the test 
a4c0: 63 61 73 65 2e 0a 20 20 20 20 64 6f 5f 74 65 73  case..    do_tes
a4d0: 74 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e 2e 31  t $testname.$n.1
a4e0: 20 7b 0a 20 20 20 20 20 20 72 75 6e 5f 69 6f 65   {.      run_ioe
a4f0: 72 72 5f 70 72 65 70 0a 20 20 20 20 7d 20 7b 30  rr_prep.    } {0
a500: 7d 0a 0a 20 20 20 20 23 20 52 65 61 64 20 74 68  }..    # Read th
a510: 65 20 27 63 68 65 63 6b 73 75 6d 27 20 6f 66 20  e 'checksum' of 
a520: 74 68 65 20 64 61 74 61 62 61 73 65 2e 0a 20 20  the database..  
a530: 20 20 69 66 20 7b 24 3a 3a 69 6f 65 72 72 6f 70    if {$::ioerrop
a540: 74 73 28 2d 63 6b 73 75 6d 29 7d 20 7b 0a 20 20  ts(-cksum)} {.  
a550: 20 20 20 20 73 65 74 20 3a 3a 63 68 65 63 6b 73      set ::checks
a560: 75 6d 20 5b 63 6b 73 75 6d 5d 0a 20 20 20 20 7d  um [cksum].    }
a570: 0a 0a 20 20 20 20 23 20 53 65 74 20 74 68 65 20  ..    # Set the 
a580: 4e 74 68 20 49 4f 20 65 72 72 6f 72 20 74 6f 20  Nth IO error to 
a590: 66 61 69 6c 2e 0a 20 20 20 20 64 6f 5f 74 65 73  fail..    do_tes
a5a0: 74 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e 2e 32  t $testname.$n.2
a5b0: 20 5b 73 75 62 73 74 20 7b 0a 20 20 20 20 20 20   [subst {.      
a5c0: 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f  set ::sqlite_io_
a5d0: 65 72 72 6f 72 5f 70 65 72 73 69 73 74 20 24 3a  error_persist $:
a5e0: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 70 65 72 73  :ioerropts(-pers
a5f0: 69 73 74 29 0a 20 20 20 20 20 20 73 65 74 20 3a  ist).      set :
a600: 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72  :sqlite_io_error
a610: 5f 70 65 6e 64 69 6e 67 20 24 6e 0a 20 20 20 20  _pending $n.    
a620: 7d 5d 20 24 6e 0a 0a 20 20 20 20 23 20 45 78 65  }] $n..    # Exe
a630: 63 75 74 65 20 74 68 65 20 54 43 4c 20 73 63 72  cute the TCL scr
a640: 69 70 74 20 63 72 65 61 74 65 64 20 66 6f 72 20  ipt created for 
a650: 74 68 65 20 62 6f 64 79 20 6f 66 20 74 68 69 73  the body of this
a660: 20 74 65 73 74 2e 20 49 66 0a 20 20 20 20 23 20   test. If.    # 
a670: 61 74 20 6c 65 61 73 74 20 4e 20 49 4f 20 6f 70  at least N IO op
a680: 65 72 61 74 69 6f 6e 73 20 70 65 72 66 6f 72 6d  erations perform
a690: 65 64 20 62 79 20 53 51 4c 69 74 65 20 61 73 20  ed by SQLite as 
a6a0: 61 20 72 65 73 75 6c 74 20 6f 66 0a 20 20 20 20  a result of.    
a6b0: 23 20 74 68 65 20 73 63 72 69 70 74 2c 20 74 68  # the script, th
a6c0: 65 20 4e 74 68 20 77 69 6c 6c 20 66 61 69 6c 2e  e Nth will fail.
a6d0: 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65  .    do_test $te
a6e0: 73 74 6e 61 6d 65 2e 24 6e 2e 33 20 7b 0a 20 20  stname.$n.3 {.  
a6f0: 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65      set ::sqlite
a700: 5f 69 6f 5f 65 72 72 6f 72 5f 68 69 74 20 30 0a  _io_error_hit 0.
a710: 20 20 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69        set ::sqli
a720: 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72 64  te_io_error_hard
a730: 68 69 74 20 30 0a 20 20 20 20 20 20 73 65 74 20  hit 0.      set 
a740: 72 20 5b 63 61 74 63 68 20 24 3a 3a 69 6f 65 72  r [catch $::ioer
a750: 72 6f 72 62 6f 64 79 20 6d 73 67 5d 0a 20 20 20  rorbody msg].   
a760: 20 20 20 73 65 74 20 3a 3a 65 72 72 73 65 65 6e     set ::errseen
a770: 20 24 72 0a 20 20 20 20 20 20 73 65 74 20 72 63   $r.      set rc
a780: 20 5b 73 71 6c 69 74 65 33 5f 65 72 72 63 6f 64   [sqlite3_errcod
a790: 65 20 24 3a 3a 44 42 5d 0a 20 20 20 20 20 20 69  e $::DB].      i
a7a0: 66 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28  f {$::ioerropts(
a7b0: 2d 65 72 63 29 7d 20 7b 0a 20 20 20 20 20 20 20  -erc)} {.       
a7c0: 20 23 20 49 66 20 77 65 20 61 72 65 20 69 6e 20   # If we are in 
a7d0: 65 78 74 65 6e 64 65 64 20 72 65 73 75 6c 74 20  extended result 
a7e0: 63 6f 64 65 20 6d 6f 64 65 2c 20 6d 61 6b 65 20  code mode, make 
a7f0: 73 75 72 65 20 61 6c 6c 20 6f 66 20 74 68 65 0a  sure all of the.
a800: 20 20 20 20 20 20 20 20 23 20 49 4f 45 52 52 73          # IOERRs
a810: 20 77 65 20 67 65 74 20 62 61 63 6b 20 72 65 61   we get back rea
a820: 6c 6c 79 20 64 6f 20 68 61 76 65 20 74 68 65 69  lly do have thei
a830: 72 20 65 78 74 65 6e 64 65 64 20 63 6f 64 65 20  r extended code 
a840: 76 61 6c 75 65 73 2e 0a 20 20 20 20 20 20 20 20  values..        
a850: 23 20 49 66 20 61 6e 20 65 78 74 65 6e 64 65 64  # If an extended
a860: 20 72 65 73 75 6c 74 20 63 6f 64 65 20 69 73 20   result code is 
a870: 72 65 74 75 72 6e 65 64 2c 20 74 68 65 20 73 71  returned, the sq
a880: 6c 69 74 65 33 5f 65 72 72 63 6f 64 65 0a 20 20  lite3_errcode.  
a890: 20 20 20 20 20 20 23 20 54 43 4c 63 6f 6d 6d 61        # TCLcomma
a8a0: 6e 64 20 77 69 6c 6c 20 72 65 74 75 72 6e 20 61  nd will return a
a8b0: 20 73 74 72 69 6e 67 20 6f 66 20 74 68 65 20 66   string of the f
a8c0: 6f 72 6d 3a 20 20 53 51 4c 49 54 45 5f 49 4f 45  orm:  SQLITE_IOE
a8d0: 52 52 2b 6e 6e 6e 6e 0a 20 20 20 20 20 20 20 20  RR+nnnn.        
a8e0: 23 20 77 68 65 72 65 20 6e 6e 6e 6e 20 69 73 20  # where nnnn is 
a8f0: 61 20 6e 75 6d 62 65 72 0a 20 20 20 20 20 20 20  a number.       
a900: 20 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 5e 53   if {[regexp {^S
a910: 51 4c 49 54 45 5f 49 4f 45 52 52 7d 20 24 72 63  QLITE_IOERR} $rc
a920: 5d 20 26 26 20 21 5b 72 65 67 65 78 70 20 7b 49  ] && ![regexp {I
a930: 4f 45 52 52 5c 2b 5c 64 7d 20 24 72 63 5d 7d 20  OERR\+\d} $rc]} 
a940: 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75  {.          retu
a950: 72 6e 20 24 72 63 0a 20 20 20 20 20 20 20 20 7d  rn $rc.        }
a960: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a  .      } else {.
a970: 20 20 20 20 20 20 20 20 23 20 49 66 20 77 65 20          # If we 
a980: 61 72 65 20 6e 6f 74 20 69 6e 20 65 78 74 65 6e  are not in exten
a990: 64 65 64 20 72 65 73 75 6c 74 20 63 6f 64 65 20  ded result code 
a9a0: 6d 6f 64 65 2c 20 6d 61 6b 65 20 73 75 72 65 20  mode, make sure 
a9b0: 6e 6f 0a 20 20 20 20 20 20 20 20 23 20 65 78 74  no.        # ext
a9c0: 65 6e 64 65 64 20 65 72 72 6f 72 20 63 6f 64 65  ended error code
a9d0: 73 20 61 72 65 20 72 65 74 75 72 6e 65 64 2e 0a  s are returned..
a9e0: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 72 65 67          if {[reg
a9f0: 65 78 70 20 7b 5c 2b 5c 64 7d 20 24 72 63 5d 7d  exp {\+\d} $rc]}
aa00: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74   {.          ret
aa10: 75 72 6e 20 24 72 63 0a 20 20 20 20 20 20 20 20  urn $rc.        
aa20: 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  }.      }.      
aa30: 23 20 54 68 65 20 74 65 73 74 20 72 65 70 65 61  # The test repea
aa40: 74 73 20 61 73 20 6c 6f 6e 67 20 61 73 20 24 3a  ts as long as $:
aa50: 3a 67 6f 20 69 73 20 6e 6f 6e 2d 7a 65 72 6f 2e  :go is non-zero.
aa60: 20 20 24 3a 3a 67 6f 20 73 74 61 72 74 73 20 6f    $::go starts o
aa70: 75 74 0a 20 20 20 20 20 20 23 20 61 73 20 31 2e  ut.      # as 1.
aa80: 20 20 57 68 65 6e 20 61 20 74 65 73 74 20 72 75    When a test ru
aa90: 6e 73 20 74 6f 20 63 6f 6d 70 6c 65 74 69 6f 6e  ns to completion
aaa0: 20 77 69 74 68 6f 75 74 20 68 69 74 74 69 6e 67   without hitting
aab0: 20 61 6e 20 49 2f 4f 0a 20 20 20 20 20 20 23 20   an I/O.      # 
aac0: 65 72 72 6f 72 2c 20 74 68 61 74 20 6d 65 61 6e  error, that mean
aad0: 73 20 74 68 65 72 65 20 69 73 20 6e 6f 20 70 6f  s there is no po
aae0: 69 6e 74 20 69 6e 20 63 6f 6e 74 69 6e 75 69 6e  int in continuin
aaf0: 67 20 77 69 74 68 20 74 68 69 73 20 74 65 73 74  g with this test
ab00: 0a 20 20 20 20 20 20 23 20 63 61 73 65 20 73 6f  .      # case so
ab10: 20 73 65 74 20 24 3a 3a 67 6f 20 74 6f 20 7a 65   set $::go to ze
ab20: 72 6f 2e 0a 20 20 20 20 20 20 23 0a 20 20 20 20  ro..      #.    
ab30: 20 20 69 66 20 7b 24 3a 3a 73 71 6c 69 74 65 5f    if {$::sqlite_
ab40: 69 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67  io_error_pending
ab50: 3e 30 7d 20 7b 0a 20 20 20 20 20 20 20 20 73 65  >0} {.        se
ab60: 74 20 3a 3a 67 6f 20 30 0a 20 20 20 20 20 20 20  t ::go 0.       
ab70: 20 73 65 74 20 71 20 30 0a 20 20 20 20 20 20 20   set q 0.       
ab80: 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f   set ::sqlite_io
ab90: 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30  _error_pending 0
aba0: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a  .      } else {.
abb0: 20 20 20 20 20 20 20 20 73 65 74 20 71 20 31 0a          set q 1.
abc0: 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 73        }..      s
abd0: 65 74 20 73 20 5b 65 78 70 72 20 24 3a 3a 73 71  et s [expr $::sq
abe0: 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 69  lite_io_error_hi
abf0: 74 3d 3d 30 5d 0a 20 20 20 20 20 20 69 66 20 7b  t==0].      if {
ac00: 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72  $::sqlite_io_err
ac10: 6f 72 5f 68 69 74 3e 24 3a 3a 73 71 6c 69 74 65  or_hit>$::sqlite
ac20: 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72 64 68 69  _io_error_hardhi
ac30: 74 20 26 26 20 24 72 3d 3d 30 7d 20 7b 0a 20 20  t && $r==0} {.  
ac40: 20 20 20 20 20 20 73 65 74 20 72 20 31 0a 20 20        set r 1.  
ac50: 20 20 20 20 7d 0a 20 20 20 20 20 20 73 65 74 20      }.      set 
ac60: 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f  ::sqlite_io_erro
ac70: 72 5f 68 69 74 20 30 0a 0a 20 20 20 20 20 20 23  r_hit 0..      #
ac80: 20 4f 6e 65 20 6f 66 20 74 77 6f 20 74 68 69 6e   One of two thin
ac90: 67 73 20 6d 75 73 74 20 68 61 76 65 20 68 61 70  gs must have hap
aca0: 70 65 6e 65 64 2e 20 65 69 74 68 65 72 0a 20 20  pened. either.  
acb0: 20 20 20 20 23 20 20 20 31 2e 20 20 57 65 20 6e      #   1.  We n
acc0: 65 76 65 72 20 68 69 74 20 74 68 65 20 49 4f 20  ever hit the IO 
acd0: 65 72 72 6f 72 20 61 6e 64 20 74 68 65 20 53 51  error and the SQ
ace0: 4c 20 72 65 74 75 72 6e 65 64 20 4f 4b 0a 20 20  L returned OK.  
acf0: 20 20 20 20 23 20 20 20 32 2e 20 20 41 6e 20 49      #   2.  An I
ad00: 4f 20 65 72 72 6f 72 20 77 61 73 20 68 69 74 20  O error was hit 
ad10: 61 6e 64 20 74 68 65 20 53 51 4c 20 66 61 69 6c  and the SQL fail
ad20: 65 64 0a 20 20 20 20 20 20 23 0a 20 20 20 20 20  ed.      #.     
ad30: 20 23 70 75 74 73 20 22 73 3d 24 73 20 72 3d 24   #puts "s=$s r=$
ad40: 72 20 71 3d 24 71 22 0a 20 20 20 20 20 20 65 78  r q=$q".      ex
ad50: 70 72 20 7b 20 28 24 73 20 26 26 20 21 24 72 20  pr { ($s && !$r 
ad60: 26 26 20 21 24 71 29 20 7c 7c 20 28 21 24 73 20  && !$q) || (!$s 
ad70: 26 26 20 24 72 20 26 26 20 24 71 29 20 7d 0a 20  && $r && $q) }. 
ad80: 20 20 20 7d 20 7b 31 7d 0a 0a 20 20 20 20 73 65     } {1}..    se
ad90: 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72  t ::sqlite_io_er
ada0: 72 6f 72 5f 68 69 74 20 30 0a 20 20 20 20 73 65  ror_hit 0.    se
adb0: 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72  t ::sqlite_io_er
adc0: 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a 0a 20  ror_pending 0.. 
add0: 20 20 20 23 20 43 68 65 63 6b 20 74 68 61 74 20     # Check that 
ade0: 6e 6f 20 70 61 67 65 20 72 65 66 65 72 65 6e 63  no page referenc
adf0: 65 73 20 77 65 72 65 20 6c 65 61 6b 65 64 2e 20  es were leaked. 
ae00: 54 68 65 72 65 20 73 68 6f 75 6c 64 20 62 65 0a  There should be.
ae10: 20 20 20 20 23 20 61 20 73 69 6e 67 6c 65 20 72      # a single r
ae20: 65 66 65 72 65 6e 63 65 20 69 66 20 74 68 65 72  eference if ther
ae30: 65 20 69 73 20 73 74 69 6c 6c 20 61 6e 20 61 63  e is still an ac
ae40: 74 69 76 65 20 74 72 61 6e 73 61 63 74 69 6f 6e  tive transaction
ae50: 2c 0a 20 20 20 20 23 20 6f 72 20 7a 65 72 6f 20  ,.    # or zero 
ae60: 6f 74 68 65 72 77 69 73 65 2e 0a 20 20 20 20 23  otherwise..    #
ae70: 0a 20 20 20 20 23 20 55 50 44 41 54 45 3a 20 49  .    # UPDATE: I
ae80: 66 20 74 68 65 20 49 4f 20 65 72 72 6f 72 20 6f  f the IO error o
ae90: 63 63 75 72 73 20 61 66 74 65 72 20 61 20 27 42  ccurs after a 'B
aea0: 45 47 49 4e 27 20 62 75 74 20 62 65 66 6f 72 65  EGIN' but before
aeb0: 20 61 6e 79 0a 20 20 20 20 23 20 6c 6f 63 6b 73   any.    # locks
aec0: 20 61 72 65 20 65 73 74 61 62 6c 69 73 68 65 64   are established
aed0: 20 6f 6e 20 64 61 74 61 62 61 73 65 20 66 69 6c   on database fil
aee0: 65 73 20 28 69 2e 65 2e 20 69 66 20 74 68 65 20  es (i.e. if the 
aef0: 65 72 72 6f 72 0a 20 20 20 20 23 20 6f 63 63 75  error.    # occu
af00: 72 73 20 77 68 69 6c 65 20 61 74 74 65 6d 70 74  rs while attempt
af10: 69 6e 67 20 74 6f 20 64 65 74 65 63 74 20 61 20  ing to detect a 
af20: 68 6f 74 2d 6a 6f 75 72 6e 61 6c 20 66 69 6c 65  hot-journal file
af30: 29 2c 20 74 68 65 6e 0a 20 20 20 20 23 20 74 68  ), then.    # th
af40: 65 72 65 20 6d 61 79 20 30 20 70 61 67 65 20 72  ere may 0 page r
af50: 65 66 65 72 65 6e 63 65 73 20 61 6e 64 20 61 6e  eferences and an
af60: 20 61 63 74 69 76 65 20 74 72 61 6e 73 61 63 74   active transact
af70: 69 6f 6e 20 61 63 63 6f 72 64 69 6e 67 0a 20 20  ion according.  
af80: 20 20 23 20 74 6f 20 5b 73 71 6c 69 74 65 33 5f    # to [sqlite3_
af90: 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 5d 2e  get_autocommit].
afa0: 0a 20 20 20 20 23 0a 20 20 20 20 69 66 20 7b 24  .    #.    if {$
afb0: 3a 3a 67 6f 20 26 26 20 24 3a 3a 73 71 6c 69 74  ::go && $::sqlit
afc0: 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72 64 68  e_io_error_hardh
afd0: 69 74 20 26 26 20 24 3a 3a 69 6f 65 72 72 6f 70  it && $::ioerrop
afe0: 74 73 28 2d 63 6b 72 65 66 63 6f 75 6e 74 29 7d  ts(-ckrefcount)}
aff0: 20 7b 0a 20 20 20 20 20 20 64 6f 5f 74 65 73 74   {.      do_test
b000: 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e 2e 34 20   $testname.$n.4 
b010: 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 62 74  {.        set bt
b020: 20 5b 62 74 72 65 65 5f 66 72 6f 6d 5f 64 62 20   [btree_from_db 
b030: 64 62 5d 0a 20 20 20 20 20 20 20 20 64 62 5f 65  db].        db_e
b040: 6e 74 65 72 20 64 62 0a 20 20 20 20 20 20 20 20  nter db.        
b050: 61 72 72 61 79 20 73 65 74 20 73 74 61 74 73 20  array set stats 
b060: 5b 62 74 72 65 65 5f 70 61 67 65 72 5f 73 74 61  [btree_pager_sta
b070: 74 73 20 24 62 74 5d 0a 20 20 20 20 20 20 20 20  ts $bt].        
b080: 64 62 5f 6c 65 61 76 65 20 64 62 0a 20 20 20 20  db_leave db.    
b090: 20 20 20 20 73 65 74 20 6e 52 65 66 20 24 73 74      set nRef $st
b0a0: 61 74 73 28 72 65 66 29 0a 20 20 20 20 20 20 20  ats(ref).       
b0b0: 20 65 78 70 72 20 7b 24 6e 52 65 66 20 3d 3d 20   expr {$nRef == 
b0c0: 30 20 7c 7c 20 28 5b 73 71 6c 69 74 65 33 5f 67  0 || ([sqlite3_g
b0d0: 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 20 64 62  et_autocommit db
b0e0: 5d 3d 3d 30 20 26 26 20 24 6e 52 65 66 20 3d 3d  ]==0 && $nRef ==
b0f0: 20 31 29 7d 0a 20 20 20 20 20 20 7d 20 7b 31 7d   1)}.      } {1}
b100: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 49 66  .    }..    # If
b110: 20 74 68 65 72 65 20 69 73 20 61 6e 20 6f 70 65   there is an ope
b120: 6e 20 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c  n database handl
b130: 65 20 61 6e 64 20 6e 6f 20 6f 70 65 6e 20 74 72  e and no open tr
b140: 61 6e 73 61 63 74 69 6f 6e 2c 0a 20 20 20 20 23  ansaction,.    #
b150: 20 61 6e 64 20 74 68 65 20 70 61 67 65 72 20 69   and the pager i
b160: 73 20 6e 6f 74 20 72 75 6e 6e 69 6e 67 20 69 6e  s not running in
b170: 20 65 78 63 6c 75 73 69 76 65 2d 6c 6f 63 6b 69   exclusive-locki
b180: 6e 67 20 6d 6f 64 65 2c 0a 20 20 20 20 23 20 63  ng mode,.    # c
b190: 68 65 63 6b 20 74 68 61 74 20 74 68 65 20 70 61  heck that the pa
b1a0: 67 65 72 20 69 73 20 69 6e 20 22 75 6e 6c 6f 63  ger is in "unloc
b1b0: 6b 65 64 22 20 73 74 61 74 65 2e 20 54 68 65 6f  ked" state. Theo
b1c0: 72 65 74 69 63 61 6c 6c 79 2c 0a 20 20 20 20 23  retically,.    #
b1d0: 20 69 66 20 61 20 63 61 6c 6c 20 74 6f 20 78 55   if a call to xU
b1e0: 6e 6c 6f 63 6b 28 29 20 66 61 69 6c 65 64 20 64  nlock() failed d
b1f0: 75 65 20 74 6f 20 61 6e 20 49 4f 20 65 72 72 6f  ue to an IO erro
b200: 72 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67  r the underlying
b210: 0a 20 20 20 20 23 20 66 69 6c 65 20 6d 61 79 20  .    # file may 
b220: 73 74 69 6c 6c 20 62 65 20 6c 6f 63 6b 65 64 2e  still be locked.
b230: 0a 20 20 20 20 23 0a 20 20 20 20 69 66 63 61 70  .    #.    ifcap
b240: 61 62 6c 65 20 70 72 61 67 6d 61 20 7b 0a 20 20  able pragma {.  
b250: 20 20 20 20 69 66 20 7b 20 5b 69 6e 66 6f 20 63      if { [info c
b260: 6f 6d 6d 61 6e 64 73 20 64 62 5d 20 6e 65 20 22  ommands db] ne "
b270: 22 0a 20 20 20 20 20 20 20 20 26 26 20 24 3a 3a  ".        && $::
b280: 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 72 65 66  ioerropts(-ckref
b290: 63 6f 75 6e 74 29 0a 20 20 20 20 20 20 20 20 26  count).        &
b2a0: 26 20 5b 64 62 20 6f 6e 65 20 7b 70 72 61 67 6d  & [db one {pragm
b2b0: 61 20 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 7d 5d  a locking_mode}]
b2c0: 20 65 71 20 22 6e 6f 72 6d 61 6c 22 0a 20 20 20   eq "normal".   
b2d0: 20 20 20 20 20 26 26 20 5b 73 71 6c 69 74 65 33       && [sqlite3
b2e0: 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 20  _get_autocommit 
b2f0: 64 62 5d 0a 20 20 20 20 20 20 7d 20 7b 0a 20 20  db].      } {.  
b300: 20 20 20 20 20 20 64 6f 5f 74 65 73 74 20 24 74        do_test $t
b310: 65 73 74 6e 61 6d 65 2e 24 6e 2e 35 20 7b 0a 20  estname.$n.5 {. 
b320: 20 20 20 20 20 20 20 20 20 73 65 74 20 62 74 20           set bt 
b330: 5b 62 74 72 65 65 5f 66 72 6f 6d 5f 64 62 20 64  [btree_from_db d
b340: 62 5d 0a 20 20 20 20 20 20 20 20 20 20 64 62 5f  b].          db_
b350: 65 6e 74 65 72 20 64 62 0a 20 20 20 20 20 20 20  enter db.       
b360: 20 20 20 61 72 72 61 79 20 73 65 74 20 73 74 61     array set sta
b370: 74 73 20 5b 62 74 72 65 65 5f 70 61 67 65 72 5f  ts [btree_pager_
b380: 73 74 61 74 73 20 24 62 74 5d 0a 20 20 20 20 20  stats $bt].     
b390: 20 20 20 20 20 64 62 5f 6c 65 61 76 65 20 64 62       db_leave db
b3a0: 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20 73  .          set s
b3b0: 74 61 74 73 28 73 74 61 74 65 29 0a 20 20 20 20  tats(state).    
b3c0: 20 20 20 20 7d 20 30 0a 20 20 20 20 20 20 7d 0a      } 0.      }.
b3d0: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 49 66 20      }..    # If 
b3e0: 61 6e 20 49 4f 20 65 72 72 6f 72 20 6f 63 63 75  an IO error occu
b3f0: 72 72 65 64 2c 20 74 68 65 6e 20 74 68 65 20 63  rred, then the c
b400: 68 65 63 6b 73 75 6d 20 6f 66 20 74 68 65 20 64  hecksum of the d
b410: 61 74 61 62 61 73 65 20 73 68 6f 75 6c 64 0a 20  atabase should. 
b420: 20 20 20 23 20 62 65 20 74 68 65 20 73 61 6d 65     # be the same
b430: 20 61 73 20 62 65 66 6f 72 65 20 74 68 65 20 73   as before the s
b440: 63 72 69 70 74 20 74 68 61 74 20 63 61 75 73 65  cript that cause
b450: 64 20 74 68 65 20 49 4f 20 65 72 72 6f 72 20 77  d the IO error w
b460: 61 73 20 72 75 6e 2e 0a 20 20 20 20 23 0a 20 20  as run..    #.  
b470: 20 20 69 66 20 7b 24 3a 3a 67 6f 20 26 26 20 24    if {$::go && $
b480: 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f  ::sqlite_io_erro
b490: 72 5f 68 61 72 64 68 69 74 20 26 26 20 24 3a 3a  r_hardhit && $::
b4a0: 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 73 75 6d  ioerropts(-cksum
b4b0: 29 7d 20 7b 0a 20 20 20 20 20 20 64 6f 5f 74 65  )} {.      do_te
b4c0: 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e 2e  st $testname.$n.
b4d0: 36 20 7b 0a 20 20 20 20 20 20 20 20 63 61 74 63  6 {.        catc
b4e0: 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 20 20 20  h {db close}.   
b4f0: 20 20 20 20 20 63 61 74 63 68 20 7b 64 62 32 20       catch {db2 
b500: 63 6c 6f 73 65 7d 0a 20 20 20 20 20 20 20 20 73  close}.        s
b510: 65 74 20 3a 3a 44 42 20 5b 73 71 6c 69 74 65 33  et ::DB [sqlite3
b520: 20 64 62 20 74 65 73 74 2e 64 62 3b 20 73 71 6c   db test.db; sql
b530: 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f  ite3_connection_
b540: 70 6f 69 6e 74 65 72 20 64 62 5d 0a 20 20 20 20  pointer db].    
b550: 20 20 20 20 73 65 74 20 6e 6f 77 63 6b 73 75 6d      set nowcksum
b560: 20 5b 63 6b 73 75 6d 5d 0a 20 20 20 20 20 20 20   [cksum].       
b570: 20 73 65 74 20 72 65 73 20 5b 65 78 70 72 20 7b   set res [expr {
b580: 24 6e 6f 77 63 6b 73 75 6d 3d 3d 24 3a 3a 63 68  $nowcksum==$::ch
b590: 65 63 6b 73 75 6d 20 7c 7c 20 24 6e 6f 77 63 6b  ecksum || $nowck
b5a0: 73 75 6d 3d 3d 24 3a 3a 67 6f 6f 64 63 6b 73 75  sum==$::goodcksu
b5b0: 6d 7d 5d 0a 20 20 20 20 20 20 20 20 69 66 20 7b  m}].        if {
b5c0: 24 72 65 73 3d 3d 30 7d 20 7b 0a 20 20 20 20 20  $res==0} {.     
b5d0: 20 20 20 20 20 70 75 74 73 20 22 6e 6f 77 3d 24       puts "now=$
b5e0: 6e 6f 77 63 6b 73 75 6d 22 0a 20 20 20 20 20 20  nowcksum".      
b5f0: 20 20 20 20 70 75 74 73 20 22 74 68 65 3d 24 3a      puts "the=$:
b600: 3a 63 68 65 63 6b 73 75 6d 22 0a 20 20 20 20 20  :checksum".     
b610: 20 20 20 20 20 70 75 74 73 20 22 66 77 64 3d 24       puts "fwd=$
b620: 3a 3a 67 6f 6f 64 63 6b 73 75 6d 22 0a 20 20 20  ::goodcksum".   
b630: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 73       }.        s
b640: 65 74 20 72 65 73 0a 20 20 20 20 20 20 7d 20 31  et res.      } 1
b650: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 65 74 20  .    }..    set 
b660: 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f  ::sqlite_io_erro
b670: 72 5f 68 61 72 64 68 69 74 20 30 0a 20 20 20 20  r_hardhit 0.    
b680: 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f  set ::sqlite_io_
b690: 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a  error_pending 0.
b6a0: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78      if {[info ex
b6b0: 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74 73  ists ::ioerropts
b6c0: 28 2d 63 6c 65 61 6e 75 70 29 5d 7d 20 7b 0a 20  (-cleanup)]} {. 
b6d0: 20 20 20 20 20 63 61 74 63 68 20 24 3a 3a 69 6f       catch $::io
b6e0: 65 72 72 6f 70 74 73 28 2d 63 6c 65 61 6e 75 70  erropts(-cleanup
b6f0: 29 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 65  ).    }.  }.  se
b700: 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72  t ::sqlite_io_er
b710: 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a 20 20  ror_pending 0.  
b720: 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f  set ::sqlite_io_
b730: 65 72 72 6f 72 5f 70 65 72 73 69 73 74 20 30 0a  error_persist 0.
b740: 20 20 75 6e 73 65 74 20 3a 3a 69 6f 65 72 72 6f    unset ::ioerro
b750: 70 74 73 0a 7d 0a 0a 23 20 52 65 74 75 72 6e 20  pts.}..# Return 
b760: 61 20 63 68 65 63 6b 73 75 6d 20 62 61 73 65 64  a checksum based
b770: 20 6f 6e 20 74 68 65 20 63 6f 6e 74 65 6e 74 73   on the contents
b780: 20 6f 66 20 74 68 65 20 6d 61 69 6e 20 64 61 74   of the main dat
b790: 61 62 61 73 65 20 61 73 73 6f 63 69 61 74 65 64  abase associated
b7a0: 0a 23 20 77 69 74 68 20 63 6f 6e 6e 65 63 74 69  .# with connecti
b7b0: 6f 6e 20 24 64 62 0a 23 0a 70 72 6f 63 20 63 6b  on $db.#.proc ck
b7c0: 73 75 6d 20 7b 7b 64 62 20 64 62 7d 7d 20 7b 0a  sum {{db db}} {.
b7d0: 20 20 73 65 74 20 74 78 74 20 5b 24 64 62 20 65    set txt [$db e
b7e0: 76 61 6c 20 7b 0a 20 20 20 20 20 20 53 45 4c 45  val {.      SELE
b7f0: 43 54 20 6e 61 6d 65 2c 20 74 79 70 65 2c 20 73  CT name, type, s
b800: 71 6c 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d  ql FROM sqlite_m
b810: 61 73 74 65 72 20 6f 72 64 65 72 20 62 79 20 6e  aster order by n
b820: 61 6d 65 0a 20 20 7d 5d 5c 6e 0a 20 20 66 6f 72  ame.  }]\n.  for
b830: 65 61 63 68 20 74 62 6c 20 5b 24 64 62 20 65 76  each tbl [$db ev
b840: 61 6c 20 7b 0a 20 20 20 20 20 20 53 45 4c 45 43  al {.      SELEC
b850: 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69  T name FROM sqli
b860: 74 65 5f 6d 61 73 74 65 72 20 57 48 45 52 45 20  te_master WHERE 
b870: 74 79 70 65 3d 27 74 61 62 6c 65 27 20 6f 72 64  type='table' ord
b880: 65 72 20 62 79 20 6e 61 6d 65 0a 20 20 7d 5d 20  er by name.  }] 
b890: 7b 0a 20 20 20 20 61 70 70 65 6e 64 20 74 78 74  {.    append txt
b8a0: 20 5b 24 64 62 20 65 76 61 6c 20 22 53 45 4c 45   [$db eval "SELE
b8b0: 43 54 20 2a 20 46 52 4f 4d 20 24 74 62 6c 22 5d  CT * FROM $tbl"]
b8c0: 5c 6e 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63 68  \n.  }.  foreach
b8d0: 20 70 72 61 67 20 7b 64 65 66 61 75 6c 74 5f 73   prag {default_s
b8e0: 79 6e 63 68 72 6f 6e 6f 75 73 20 64 65 66 61 75  ynchronous defau
b8f0: 6c 74 5f 63 61 63 68 65 5f 73 69 7a 65 7d 20 7b  lt_cache_size} {
b900: 0a 20 20 20 20 61 70 70 65 6e 64 20 74 78 74 20  .    append txt 
b910: 24 70 72 61 67 2d 5b 24 64 62 20 65 76 61 6c 20  $prag-[$db eval 
b920: 22 50 52 41 47 4d 41 20 24 70 72 61 67 22 5d 5c  "PRAGMA $prag"]\
b930: 6e 0a 20 20 7d 0a 20 20 73 65 74 20 63 6b 73 75  n.  }.  set cksu
b940: 6d 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68  m [string length
b950: 20 24 74 78 74 5d 2d 5b 6d 64 35 20 24 74 78 74   $txt]-[md5 $txt
b960: 5d 0a 20 20 23 20 70 75 74 73 20 24 63 6b 73 75  ].  # puts $cksu
b970: 6d 2d 5b 66 69 6c 65 20 73 69 7a 65 20 74 65 73  m-[file size tes
b980: 74 2e 64 62 5d 0a 20 20 72 65 74 75 72 6e 20 24  t.db].  return $
b990: 63 6b 73 75 6d 0a 7d 0a 0a 23 20 47 65 6e 65 72  cksum.}..# Gener
b9a0: 61 74 65 20 61 20 63 68 65 63 6b 73 75 6d 20 62  ate a checksum b
b9b0: 61 73 65 64 20 6f 6e 20 74 68 65 20 63 6f 6e 74  ased on the cont
b9c0: 65 6e 74 73 20 6f 66 20 74 68 65 20 6d 61 69 6e  ents of the main
b9d0: 20 61 6e 64 20 74 65 6d 70 20 74 61 62 6c 65 73   and temp tables
b9e0: 0a 23 20 64 61 74 61 62 61 73 65 20 24 64 62 2e  .# database $db.
b9f0: 20 49 66 20 74 68 65 20 63 68 65 63 6b 73 75 6d   If the checksum
ba00: 20 6f 66 20 74 77 6f 20 64 61 74 61 62 61 73 65   of two database
ba10: 73 20 69 73 20 74 68 65 20 73 61 6d 65 2c 20 61  s is the same, a
ba20: 6e 64 20 74 68 65 0a 23 20 69 6e 74 65 67 72 69  nd the.# integri
ba30: 74 79 2d 63 68 65 63 6b 20 70 61 73 73 65 73 20  ty-check passes 
ba40: 66 6f 72 20 62 6f 74 68 2c 20 74 68 65 20 74 77  for both, the tw
ba50: 6f 20 64 61 74 61 62 61 73 65 73 20 61 72 65 20  o databases are 
ba60: 69 64 65 6e 74 69 63 61 6c 2e 0a 23 0a 70 72 6f  identical..#.pro
ba70: 63 20 61 6c 6c 63 6b 73 75 6d 20 7b 7b 64 62 20  c allcksum {{db 
ba80: 64 62 7d 7d 20 7b 0a 20 20 73 65 74 20 72 65 74  db}} {.  set ret
ba90: 20 5b 6c 69 73 74 5d 0a 20 20 69 66 63 61 70 61   [list].  ifcapa
baa0: 62 6c 65 20 74 65 6d 70 64 62 20 7b 0a 20 20 20  ble tempdb {.   
bab0: 20 73 65 74 20 73 71 6c 20 7b 0a 20 20 20 20 20   set sql {.     
bac0: 20 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f   SELECT name FRO
bad0: 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20  M sqlite_master 
bae0: 57 48 45 52 45 20 74 79 70 65 20 3d 20 27 74 61  WHERE type = 'ta
baf0: 62 6c 65 27 20 55 4e 49 4f 4e 0a 20 20 20 20 20  ble' UNION.     
bb00: 20 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f   SELECT name FRO
bb10: 4d 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61  M sqlite_temp_ma
bb20: 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65 20  ster WHERE type 
bb30: 3d 20 27 74 61 62 6c 65 27 20 55 4e 49 4f 4e 0a  = 'table' UNION.
bb40: 20 20 20 20 20 20 53 45 4c 45 43 54 20 27 73 71        SELECT 'sq
bb50: 6c 69 74 65 5f 6d 61 73 74 65 72 27 20 55 4e 49  lite_master' UNI
bb60: 4f 4e 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20  ON.      SELECT 
bb70: 27 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73  'sqlite_temp_mas
bb80: 74 65 72 27 20 4f 52 44 45 52 20 42 59 20 31 0a  ter' ORDER BY 1.
bb90: 20 20 20 20 7d 0a 20 20 7d 20 65 6c 73 65 20 7b      }.  } else {
bba0: 0a 20 20 20 20 73 65 74 20 73 71 6c 20 7b 0a 20  .    set sql {. 
bbb0: 20 20 20 20 20 53 45 4c 45 43 54 20 6e 61 6d 65       SELECT name
bbc0: 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73   FROM sqlite_mas
bbd0: 74 65 72 20 57 48 45 52 45 20 74 79 70 65 20 3d  ter WHERE type =
bbe0: 20 27 74 61 62 6c 65 27 20 55 4e 49 4f 4e 0a 20   'table' UNION. 
bbf0: 20 20 20 20 20 53 45 4c 45 43 54 20 27 73 71 6c       SELECT 'sql
bc00: 69 74 65 5f 6d 61 73 74 65 72 27 20 4f 52 44 45  ite_master' ORDE
bc10: 52 20 42 59 20 31 0a 20 20 20 20 7d 0a 20 20 7d  R BY 1.    }.  }
bc20: 0a 20 20 73 65 74 20 74 62 6c 6c 69 73 74 20 5b  .  set tbllist [
bc30: 24 64 62 20 65 76 61 6c 20 24 73 71 6c 5d 0a 20  $db eval $sql]. 
bc40: 20 73 65 74 20 74 78 74 20 7b 7d 0a 20 20 66 6f   set txt {}.  fo
bc50: 72 65 61 63 68 20 74 62 6c 20 24 74 62 6c 6c 69  reach tbl $tblli
bc60: 73 74 20 7b 0a 20 20 20 20 61 70 70 65 6e 64 20  st {.    append 
bc70: 74 78 74 20 5b 24 64 62 20 65 76 61 6c 20 22 53  txt [$db eval "S
bc80: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 24 74 62  ELECT * FROM $tb
bc90: 6c 22 5d 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63  l"].  }.  foreac
bca0: 68 20 70 72 61 67 20 7b 64 65 66 61 75 6c 74 5f  h prag {default_
bcb0: 63 61 63 68 65 5f 73 69 7a 65 7d 20 7b 0a 20 20  cache_size} {.  
bcc0: 20 20 61 70 70 65 6e 64 20 74 78 74 20 24 70 72    append txt $pr
bcd0: 61 67 2d 5b 24 64 62 20 65 76 61 6c 20 22 50 52  ag-[$db eval "PR
bce0: 41 47 4d 41 20 24 70 72 61 67 22 5d 5c 6e 0a 20  AGMA $prag"]\n. 
bcf0: 20 7d 0a 20 20 23 20 70 75 74 73 20 74 78 74 3d   }.  # puts txt=
bd00: 24 74 78 74 0a 20 20 72 65 74 75 72 6e 20 5b 6d  $txt.  return [m
bd10: 64 35 20 24 74 78 74 5d 0a 7d 0a 0a 23 20 47 65  d5 $txt].}..# Ge
bd20: 6e 65 72 61 74 65 20 61 20 63 68 65 63 6b 73 75  nerate a checksu
bd30: 6d 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 63  m based on the c
bd40: 6f 6e 74 65 6e 74 73 20 6f 66 20 61 20 73 69 6e  ontents of a sin
bd50: 67 6c 65 20 64 61 74 61 62 61 73 65 20 77 69 74  gle database wit
bd60: 68 0a 23 20 61 20 64 61 74 61 62 61 73 65 20 63  h.# a database c
bd70: 6f 6e 6e 65 63 74 69 6f 6e 2e 20 20 54 68 65 20  onnection.  The 
bd80: 6e 61 6d 65 20 6f 66 20 74 68 65 20 64 61 74 61  name of the data
bd90: 62 61 73 65 20 69 73 20 24 64 62 6e 61 6d 65 2e  base is $dbname.
bda0: 0a 23 20 45 78 61 6d 70 6c 65 73 20 6f 66 20 24  .# Examples of $
bdb0: 64 62 6e 61 6d 65 20 61 72 65 20 22 74 65 6d 70  dbname are "temp
bdc0: 22 20 6f 72 20 22 6d 61 69 6e 22 2e 0a 23 0a 70  " or "main"..#.p
bdd0: 72 6f 63 20 64 62 63 6b 73 75 6d 20 7b 64 62 20  roc dbcksum {db 
bde0: 64 62 6e 61 6d 65 7d 20 7b 0a 20 20 69 66 20 7b  dbname} {.  if {
bdf0: 24 64 62 6e 61 6d 65 3d 3d 22 74 65 6d 70 22 7d  $dbname=="temp"}
be00: 20 7b 0a 20 20 20 20 73 65 74 20 6d 61 73 74 65   {.    set maste
be10: 72 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61  r sqlite_temp_ma
be20: 73 74 65 72 0a 20 20 7d 20 65 6c 73 65 20 7b 0a  ster.  } else {.
be30: 20 20 20 20 73 65 74 20 6d 61 73 74 65 72 20 24      set master $
be40: 64 62 6e 61 6d 65 2e 73 71 6c 69 74 65 5f 6d 61  dbname.sqlite_ma
be50: 73 74 65 72 0a 20 20 7d 0a 20 20 73 65 74 20 61  ster.  }.  set a
be60: 6c 6c 74 61 62 20 5b 24 64 62 20 65 76 61 6c 20  lltab [$db eval 
be70: 22 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f  "SELECT name FRO
be80: 4d 20 24 6d 61 73 74 65 72 20 57 48 45 52 45 20  M $master WHERE 
be90: 74 79 70 65 3d 27 74 61 62 6c 65 27 22 5d 0a 20  type='table'"]. 
bea0: 20 73 65 74 20 74 78 74 20 5b 24 64 62 20 65 76   set txt [$db ev
beb0: 61 6c 20 22 53 45 4c 45 43 54 20 2a 20 46 52 4f  al "SELECT * FRO
bec0: 4d 20 24 6d 61 73 74 65 72 22 5d 5c 6e 0a 20 20  M $master"]\n.  
bed0: 66 6f 72 65 61 63 68 20 74 61 62 20 24 61 6c 6c  foreach tab $all
bee0: 74 61 62 20 7b 0a 20 20 20 20 61 70 70 65 6e 64  tab {.    append
bef0: 20 74 78 74 20 5b 24 64 62 20 65 76 61 6c 20 22   txt [$db eval "
bf00: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 24 64  SELECT * FROM $d
bf10: 62 6e 61 6d 65 2e 24 74 61 62 22 5d 5c 6e 0a 20  bname.$tab"]\n. 
bf20: 20 7d 0a 20 20 72 65 74 75 72 6e 20 5b 6d 64 35   }.  return [md5
bf30: 20 24 74 78 74 5d 0a 7d 0a 0a 70 72 6f 63 20 6d   $txt].}..proc m
bf40: 65 6d 64 65 62 75 67 5f 6c 6f 67 5f 73 71 6c 20  emdebug_log_sql 
bf50: 7b 7b 66 69 6c 65 6e 61 6d 65 20 6d 61 6c 6c 6f  {{filename mallo
bf60: 63 73 2e 73 71 6c 7d 7d 20 7b 0a 0a 20 20 73 65  cs.sql}} {..  se
bf70: 74 20 64 61 74 61 20 5b 73 71 6c 69 74 65 33 5f  t data [sqlite3_
bf80: 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 20 64 75 6d  memdebug_log dum
bf90: 70 5d 0a 20 20 73 65 74 20 6e 46 72 61 6d 65 20  p].  set nFrame 
bfa0: 5b 65 78 70 72 20 5b 6c 6c 65 6e 67 74 68 20 5b  [expr [llength [
bfb0: 6c 69 6e 64 65 78 20 24 64 61 74 61 20 30 5d 5d  lindex $data 0]]
bfc0: 2d 32 5d 0a 20 20 69 66 20 7b 24 6e 46 72 61 6d  -2].  if {$nFram
bfd0: 65 20 3c 20 30 7d 20 7b 20 72 65 74 75 72 6e 20  e < 0} { return 
bfe0: 22 22 20 7d 0a 0a 20 20 73 65 74 20 64 61 74 61  "" }..  set data
bff0: 62 61 73 65 20 74 65 6d 70 0a 0a 20 20 73 65 74  base temp..  set
c000: 20 74 62 6c 20 22 43 52 45 41 54 45 20 54 41 42   tbl "CREATE TAB
c010: 4c 45 20 24 7b 64 61 74 61 62 61 73 65 7d 2e 6d  LE ${database}.m
c020: 61 6c 6c 6f 63 28 7a 54 65 73 74 2c 20 6e 43 61  alloc(zTest, nCa
c030: 6c 6c 2c 20 6e 42 79 74 65 2c 20 6c 53 74 61 63  ll, nByte, lStac
c040: 6b 29 3b 22 0a 0a 20 20 73 65 74 20 73 71 6c 20  k);"..  set sql 
c050: 22 22 0a 20 20 66 6f 72 65 61 63 68 20 65 20 24  "".  foreach e $
c060: 64 61 74 61 20 7b 0a 20 20 20 20 73 65 74 20 6e  data {.    set n
c070: 43 61 6c 6c 20 5b 6c 69 6e 64 65 78 20 24 65 20  Call [lindex $e 
c080: 30 5d 0a 20 20 20 20 73 65 74 20 6e 42 79 74 65  0].    set nByte
c090: 20 5b 6c 69 6e 64 65 78 20 24 65 20 31 5d 0a 20   [lindex $e 1]. 
c0a0: 20 20 20 73 65 74 20 6c 53 74 61 63 6b 20 5b 6c     set lStack [l
c0b0: 72 61 6e 67 65 20 24 65 20 32 20 65 6e 64 5d 0a  range $e 2 end].
c0c0: 20 20 20 20 61 70 70 65 6e 64 20 73 71 6c 20 22      append sql "
c0d0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 24 7b 64 61  INSERT INTO ${da
c0e0: 74 61 62 61 73 65 7d 2e 6d 61 6c 6c 6f 63 20 56  tabase}.malloc V
c0f0: 41 4c 55 45 53 22 0a 20 20 20 20 61 70 70 65 6e  ALUES".    appen
c100: 64 20 73 71 6c 20 22 28 27 74 65 73 74 27 2c 20  d sql "('test', 
c110: 24 6e 43 61 6c 6c 2c 20 24 6e 42 79 74 65 2c 20  $nCall, $nByte, 
c120: 27 24 6c 53 74 61 63 6b 27 29 3b 5c 6e 22 0a 20  '$lStack');\n". 
c130: 20 20 20 66 6f 72 65 61 63 68 20 66 20 24 6c 53     foreach f $lS
c140: 74 61 63 6b 20 7b 0a 20 20 20 20 20 20 73 65 74  tack {.      set
c150: 20 66 72 61 6d 65 73 28 24 66 29 20 31 0a 20 20   frames($f) 1.  
c160: 20 20 7d 0a 20 20 7d 0a 0a 20 20 73 65 74 20 74    }.  }..  set t
c170: 62 6c 32 20 22 43 52 45 41 54 45 20 54 41 42 4c  bl2 "CREATE TABL
c180: 45 20 24 7b 64 61 74 61 62 61 73 65 7d 2e 66 72  E ${database}.fr
c190: 61 6d 65 28 66 72 61 6d 65 20 49 4e 54 45 47 45  ame(frame INTEGE
c1a0: 52 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 6c  R PRIMARY KEY, l
c1b0: 69 6e 65 29 3b 5c 6e 22 0a 20 20 73 65 74 20 74  ine);\n".  set t
c1c0: 62 6c 33 20 22 43 52 45 41 54 45 20 54 41 42 4c  bl3 "CREATE TABL
c1d0: 45 20 24 7b 64 61 74 61 62 61 73 65 7d 2e 66 69  E ${database}.fi
c1e0: 6c 65 28 6e 61 6d 65 20 50 52 49 4d 41 52 59 20  le(name PRIMARY 
c1f0: 4b 45 59 2c 20 63 6f 6e 74 65 6e 74 29 3b 5c 6e  KEY, content);\n
c200: 22 0a 0a 20 20 66 6f 72 65 61 63 68 20 66 20 5b  "..  foreach f [
c210: 61 72 72 61 79 20 6e 61 6d 65 73 20 66 72 61 6d  array names fram
c220: 65 73 5d 20 7b 0a 20 20 20 20 73 65 74 20 61 64  es] {.    set ad
c230: 64 72 20 5b 66 6f 72 6d 61 74 20 25 78 20 24 66  dr [format %x $f
c240: 5d 0a 20 20 20 20 73 65 74 20 63 6d 64 20 22 61  ].    set cmd "a
c250: 64 64 72 32 6c 69 6e 65 20 2d 65 20 5b 69 6e 66  ddr2line -e [inf
c260: 6f 20 6e 61 6d 65 6f 66 65 78 65 63 5d 20 24 61  o nameofexec] $a
c270: 64 64 72 22 0a 20 20 20 20 73 65 74 20 6c 69 6e  ddr".    set lin
c280: 65 20 5b 65 76 61 6c 20 65 78 65 63 20 24 63 6d  e [eval exec $cm
c290: 64 5d 0a 20 20 20 20 61 70 70 65 6e 64 20 73 71  d].    append sq
c2a0: 6c 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 24  l "INSERT INTO $
c2b0: 7b 64 61 74 61 62 61 73 65 7d 2e 66 72 61 6d 65  {database}.frame
c2c0: 20 56 41 4c 55 45 53 28 24 66 2c 20 27 24 6c 69   VALUES($f, '$li
c2d0: 6e 65 27 29 3b 5c 6e 22 0a 0a 20 20 20 20 73 65  ne');\n"..    se
c2e0: 74 20 66 69 6c 65 20 5b 6c 69 6e 64 65 78 20 5b  t file [lindex [
c2f0: 73 70 6c 69 74 20 24 6c 69 6e 65 20 3a 5d 20 30  split $line :] 0
c300: 5d 0a 20 20 20 20 73 65 74 20 66 69 6c 65 73 28  ].    set files(
c310: 24 66 69 6c 65 29 20 31 0a 20 20 7d 0a 0a 20 20  $file) 1.  }..  
c320: 66 6f 72 65 61 63 68 20 66 20 5b 61 72 72 61 79  foreach f [array
c330: 20 6e 61 6d 65 73 20 66 69 6c 65 73 5d 20 7b 0a   names files] {.
c340: 20 20 20 20 73 65 74 20 63 6f 6e 74 65 6e 74 73      set contents
c350: 20 22 22 0a 20 20 20 20 63 61 74 63 68 20 7b 0a   "".    catch {.
c360: 20 20 20 20 20 20 73 65 74 20 66 64 20 5b 6f 70        set fd [op
c370: 65 6e 20 24 66 5d 0a 20 20 20 20 20 20 73 65 74  en $f].      set
c380: 20 63 6f 6e 74 65 6e 74 73 20 5b 72 65 61 64 20   contents [read 
c390: 24 66 64 5d 0a 20 20 20 20 20 20 63 6c 6f 73 65  $fd].      close
c3a0: 20 24 66 64 0a 20 20 20 20 7d 0a 20 20 20 20 73   $fd.    }.    s
c3b0: 65 74 20 63 6f 6e 74 65 6e 74 73 20 5b 73 74 72  et contents [str
c3c0: 69 6e 67 20 6d 61 70 20 7b 27 20 27 27 7d 20 24  ing map {' ''} $
c3d0: 63 6f 6e 74 65 6e 74 73 5d 0a 20 20 20 20 61 70  contents].    ap
c3e0: 70 65 6e 64 20 73 71 6c 20 22 49 4e 53 45 52 54  pend sql "INSERT
c3f0: 20 49 4e 54 4f 20 24 7b 64 61 74 61 62 61 73 65   INTO ${database
c400: 7d 2e 66 69 6c 65 20 56 41 4c 55 45 53 28 27 24  }.file VALUES('$
c410: 66 27 2c 20 27 24 63 6f 6e 74 65 6e 74 73 27 29  f', '$contents')
c420: 3b 5c 6e 22 0a 20 20 7d 0a 0a 20 20 73 65 74 20  ;\n".  }..  set 
c430: 66 64 20 5b 6f 70 65 6e 20 24 66 69 6c 65 6e 61  fd [open $filena
c440: 6d 65 20 77 5d 0a 20 20 70 75 74 73 20 24 66 64  me w].  puts $fd
c450: 20 22 42 45 47 49 4e 3b 20 24 7b 74 62 6c 7d 24   "BEGIN; ${tbl}$
c460: 7b 74 62 6c 32 7d 24 7b 74 62 6c 33 7d 24 7b 73  {tbl2}${tbl3}${s
c470: 71 6c 7d 20 3b 20 43 4f 4d 4d 49 54 3b 22 0a 20  ql} ; COMMIT;". 
c480: 20 63 6c 6f 73 65 20 24 66 64 0a 7d 0a 0a 23 20   close $fd.}..# 
c490: 44 72 6f 70 20 61 6c 6c 20 74 61 62 6c 65 73 20  Drop all tables 
c4a0: 69 6e 20 64 61 74 61 62 61 73 65 20 5b 64 62 5d  in database [db]
c4b0: 0a 70 72 6f 63 20 64 72 6f 70 5f 61 6c 6c 5f 74  .proc drop_all_t
c4c0: 61 62 6c 65 73 20 7b 7b 64 62 20 64 62 7d 7d 20  ables {{db db}} 
c4d0: 7b 0a 20 20 69 66 63 61 70 61 62 6c 65 20 74 72  {.  ifcapable tr
c4e0: 69 67 67 65 72 26 26 66 6f 72 65 69 67 6e 6b 65  igger&&foreignke
c4f0: 79 20 7b 0a 20 20 20 20 73 65 74 20 70 6b 20 5b  y {.    set pk [
c500: 24 64 62 20 6f 6e 65 20 22 50 52 41 47 4d 41 20  $db one "PRAGMA 
c510: 66 6f 72 65 69 67 6e 5f 6b 65 79 73 22 5d 0a 20  foreign_keys"]. 
c520: 20 20 20 24 64 62 20 65 76 61 6c 20 22 50 52 41     $db eval "PRA
c530: 47 4d 41 20 66 6f 72 65 69 67 6e 5f 6b 65 79 73  GMA foreign_keys
c540: 20 3d 20 4f 46 46 22 0a 20 20 7d 0a 20 20 66 6f   = OFF".  }.  fo
c550: 72 65 61 63 68 20 7b 69 64 78 20 6e 61 6d 65 20  reach {idx name 
c560: 66 69 6c 65 7d 20 5b 64 62 20 65 76 61 6c 20 7b  file} [db eval {
c570: 50 52 41 47 4d 41 20 64 61 74 61 62 61 73 65 5f  PRAGMA database_
c580: 6c 69 73 74 7d 5d 20 7b 0a 20 20 20 20 69 66 20  list}] {.    if 
c590: 7b 24 69 64 78 3d 3d 31 7d 20 7b 0a 20 20 20 20  {$idx==1} {.    
c5a0: 20 20 73 65 74 20 6d 61 73 74 65 72 20 73 71 6c    set master sql
c5b0: 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 0a  ite_temp_master.
c5c0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20      } else {.   
c5d0: 20 20 20 73 65 74 20 6d 61 73 74 65 72 20 24 6e     set master $n
c5e0: 61 6d 65 2e 73 71 6c 69 74 65 5f 6d 61 73 74 65  ame.sqlite_maste
c5f0: 72 0a 20 20 20 20 7d 0a 20 20 20 20 66 6f 72 65  r.    }.    fore
c600: 61 63 68 20 7b 74 20 74 79 70 65 7d 20 5b 24 64  ach {t type} [$d
c610: 62 20 65 76 61 6c 20 22 0a 20 20 20 20 20 20 53  b eval ".      S
c620: 45 4c 45 43 54 20 6e 61 6d 65 2c 20 74 79 70 65  ELECT name, type
c630: 20 46 52 4f 4d 20 24 6d 61 73 74 65 72 0a 20 20   FROM $master.  
c640: 20 20 20 20 57 48 45 52 45 20 74 79 70 65 20 49      WHERE type I
c650: 4e 28 27 74 61 62 6c 65 27 2c 20 27 76 69 65 77  N('table', 'view
c660: 27 29 20 41 4e 44 20 6e 61 6d 65 20 4e 4f 54 20  ') AND name NOT 
c670: 4c 49 4b 45 20 27 73 71 6c 69 74 65 58 5f 25 27  LIKE 'sqliteX_%'
c680: 20 45 53 43 41 50 45 20 27 58 27 0a 20 20 20 20   ESCAPE 'X'.    
c690: 22 5d 20 7b 0a 20 20 20 20 20 20 24 64 62 20 65  "] {.      $db e
c6a0: 76 61 6c 20 22 44 52 4f 50 20 24 74 79 70 65 20  val "DROP $type 
c6b0: 5c 22 24 74 5c 22 22 0a 20 20 20 20 7d 0a 20 20  \"$t\"".    }.  
c6c0: 7d 0a 20 20 69 66 63 61 70 61 62 6c 65 20 74 72  }.  ifcapable tr
c6d0: 69 67 67 65 72 26 26 66 6f 72 65 69 67 6e 6b 65  igger&&foreignke
c6e0: 79 20 7b 0a 20 20 20 20 24 64 62 20 65 76 61 6c  y {.    $db eval
c6f0: 20 22 50 52 41 47 4d 41 20 66 6f 72 65 69 67 6e   "PRAGMA foreign
c700: 5f 6b 65 79 73 20 3d 20 24 70 6b 22 0a 20 20 7d  _keys = $pk".  }
c710: 0a 7d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  .}..#-----------
c720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23  --------------.#
c760: 20 49 66 20 61 20 74 65 73 74 20 73 63 72 69 70   If a test scrip
c770: 74 20 69 73 20 65 78 65 63 75 74 65 64 20 77 69  t is executed wi
c780: 74 68 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62  th global variab
c790: 6c 65 20 24 3a 3a 47 28 70 65 72 6d 3a 6e 61 6d  le $::G(perm:nam
c7a0: 65 29 20 73 65 74 20 74 6f 0a 23 20 22 77 61 6c  e) set to.# "wal
c7b0: 22 2c 20 74 68 65 6e 20 74 68 65 20 74 65 73 74  ", then the test
c7c0: 73 20 61 72 65 20 72 75 6e 20 69 6e 20 57 41 4c  s are run in WAL
c7d0: 20 6d 6f 64 65 2e 20 4f 74 68 65 72 77 69 73 65   mode. Otherwise
c7e0: 2c 20 74 68 65 79 20 73 68 6f 75 6c 64 20 62 65  , they should be
c7f0: 20 72 75 6e 0a 23 20 69 6e 20 72 6f 6c 6c 62 61   run.# in rollba
c800: 63 6b 20 6d 6f 64 65 2e 20 54 68 65 20 66 6f 6c  ck mode. The fol
c810: 6c 6f 77 69 6e 67 20 54 63 6c 20 70 72 6f 63 73  lowing Tcl procs
c820: 20 61 72 65 20 75 73 65 64 20 74 6f 20 6d 61 6b   are used to mak
c830: 65 20 74 68 69 73 20 6c 65 73 73 0a 23 20 69 6e  e this less.# in
c840: 74 72 75 73 69 76 65 3a 0a 23 0a 23 20 20 20 77  trusive:.#.#   w
c850: 61 6c 5f 73 65 74 5f 6a 6f 75 72 6e 61 6c 5f 6d  al_set_journal_m
c860: 6f 64 65 20 3f 44 42 3f 0a 23 0a 23 20 20 20 20  ode ?DB?.#.#    
c870: 20 49 66 20 72 75 6e 6e 69 6e 67 20 61 20 57 41   If running a WA
c880: 4c 20 74 65 73 74 2c 20 65 78 65 63 75 74 65 20  L test, execute 
c890: 22 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f  "PRAGMA journal_
c8a0: 6d 6f 64 65 20 3d 20 77 61 6c 22 20 75 73 69 6e  mode = wal" usin
c8b0: 67 0a 23 20 20 20 20 20 63 6f 6e 6e 65 63 74 69  g.#     connecti
c8c0: 6f 6e 20 68 61 6e 64 6c 65 20 44 42 2e 20 4f 74  on handle DB. Ot
c8d0: 68 65 72 77 69 73 65 2c 20 74 68 69 73 20 63 6f  herwise, this co
c8e0: 6d 6d 61 6e 64 20 69 73 20 61 20 6e 6f 2d 6f 70  mmand is a no-op
c8f0: 2e 0a 23 0a 23 20 20 20 77 61 6c 5f 63 68 65 63  ..#.#   wal_chec
c900: 6b 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 54  k_journal_mode T
c910: 45 53 54 4e 41 4d 45 20 3f 44 42 3f 0a 23 0a 23  ESTNAME ?DB?.#.#
c920: 20 20 20 20 20 49 66 20 72 75 6e 6e 69 6e 67 20       If running 
c930: 61 20 57 41 4c 20 74 65 73 74 2c 20 65 78 65 63  a WAL test, exec
c940: 75 74 65 20 61 20 74 65 73 74 73 20 63 61 73 65  ute a tests case
c950: 20 74 68 61 74 20 66 61 69 6c 73 20 69 66 20 74   that fails if t
c960: 68 65 20 6d 61 69 6e 0a 23 20 20 20 20 20 64 61  he main.#     da
c970: 74 61 62 61 73 65 20 66 6f 72 20 63 6f 6e 6e 65  tabase for conne
c980: 63 74 69 6f 6e 20 68 61 6e 64 6c 65 20 44 42 20  ction handle DB 
c990: 69 73 20 6e 6f 74 20 63 75 72 72 65 6e 74 6c 79  is not currently
c9a0: 20 61 20 57 41 4c 20 64 61 74 61 62 61 73 65 2e   a WAL database.
c9b0: 0a 23 20 20 20 20 20 4f 74 68 65 72 77 69 73 65  .#     Otherwise
c9c0: 20 28 69 66 20 6e 6f 74 20 72 75 6e 6e 69 6e 67   (if not running
c9d0: 20 61 20 57 41 4c 20 70 65 72 6d 75 74 61 74 69   a WAL permutati
c9e0: 6f 6e 29 20 74 68 69 73 20 69 73 20 61 20 6e 6f  on) this is a no
c9f0: 2d 6f 70 2e 0a 23 0a 23 20 20 20 77 61 6c 5f 69  -op..#.#   wal_i
ca00: 73 5f 77 61 6c 5f 6d 6f 64 65 0a 23 0a 23 20 20  s_wal_mode.#.#  
ca10: 20 20 20 52 65 74 75 72 6e 73 20 74 72 75 65 20     Returns true 
ca20: 69 66 20 74 68 69 73 20 74 65 73 74 20 73 68 6f  if this test sho
ca30: 75 6c 64 20 62 65 20 72 75 6e 20 69 6e 20 57 41  uld be run in WA
ca40: 4c 20 6d 6f 64 65 2e 20 46 61 6c 73 65 20 6f 74  L mode. False ot
ca50: 68 65 72 77 69 73 65 2e 0a 23 0a 70 72 6f 63 20  herwise..#.proc 
ca60: 77 61 6c 5f 69 73 5f 77 61 6c 5f 6d 6f 64 65 20  wal_is_wal_mode 
ca70: 7b 7d 20 7b 0a 20 20 65 78 70 72 20 7b 5b 70 65  {} {.  expr {[pe
ca80: 72 6d 75 74 61 74 69 6f 6e 5d 20 65 71 20 22 77  rmutation] eq "w
ca90: 61 6c 22 7d 0a 7d 0a 70 72 6f 63 20 77 61 6c 5f  al"}.}.proc wal_
caa0: 73 65 74 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65  set_journal_mode
cab0: 20 7b 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 69   {{db db}} {.  i
cac0: 66 20 7b 20 5b 77 61 6c 5f 69 73 5f 77 61 6c 5f  f { [wal_is_wal_
cad0: 6d 6f 64 65 5d 20 7d 20 7b 0a 20 20 20 20 24 64  mode] } {.    $d
cae0: 62 20 65 76 61 6c 20 22 50 52 41 47 4d 41 20 6a  b eval "PRAGMA j
caf0: 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20 57 41  ournal_mode = WA
cb00: 4c 22 0a 20 20 7d 0a 7d 0a 70 72 6f 63 20 77 61  L".  }.}.proc wa
cb10: 6c 5f 63 68 65 63 6b 5f 6a 6f 75 72 6e 61 6c 5f  l_check_journal_
cb20: 6d 6f 64 65 20 7b 74 65 73 74 6e 61 6d 65 20 7b  mode {testname {
cb30: 64 62 20 64 62 7d 7d 20 7b 0a 20 20 69 66 20 7b  db db}} {.  if {
cb40: 20 5b 77 61 6c 5f 69 73 5f 77 61 6c 5f 6d 6f 64   [wal_is_wal_mod
cb50: 65 5d 20 7d 20 7b 0a 20 20 20 20 24 64 62 20 65  e] } {.    $db e
cb60: 76 61 6c 20 7b 20 53 45 4c 45 43 54 20 2a 20 46  val { SELECT * F
cb70: 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65  ROM sqlite_maste
cb80: 72 20 7d 0a 20 20 20 20 64 6f 5f 74 65 73 74 20  r }.    do_test 
cb90: 24 74 65 73 74 6e 61 6d 65 20 5b 6c 69 73 74 20  $testname [list 
cba0: 24 64 62 20 65 76 61 6c 20 22 50 52 41 47 4d 41  $db eval "PRAGMA
cbb0: 20 6d 61 69 6e 2e 6a 6f 75 72 6e 61 6c 5f 6d 6f   main.journal_mo
cbc0: 64 65 22 5d 20 7b 77 61 6c 7d 0a 20 20 7d 0a 7d  de"] {wal}.  }.}
cbd0: 0a 0a 70 72 6f 63 20 70 65 72 6d 75 74 61 74 69  ..proc permutati
cbe0: 6f 6e 20 7b 7d 20 7b 0a 20 20 73 65 74 20 70 65  on {} {.  set pe
cbf0: 72 6d 20 22 22 0a 20 20 63 61 74 63 68 20 7b 73  rm "".  catch {s
cc00: 65 74 20 70 65 72 6d 20 24 3a 3a 47 28 70 65 72  et perm $::G(per
cc10: 6d 3a 6e 61 6d 65 29 7d 0a 20 20 73 65 74 20 70  m:name)}.  set p
cc20: 65 72 6d 0a 7d 0a 70 72 6f 63 20 70 72 65 73 71  erm.}.proc presq
cc30: 6c 20 7b 7d 20 7b 0a 20 20 73 65 74 20 70 72 65  l {} {.  set pre
cc40: 73 71 6c 20 22 22 0a 20 20 63 61 74 63 68 20 7b  sql "".  catch {
cc50: 73 65 74 20 70 72 65 73 71 6c 20 24 3a 3a 47 28  set presql $::G(
cc60: 70 65 72 6d 3a 70 72 65 73 71 6c 29 7d 0a 20 20  perm:presql)}.  
cc70: 73 65 74 20 70 72 65 73 71 6c 0a 7d 0a 0a 23 2d  set presql.}..#-
cc80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cc90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ccb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ccc0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 0a 70 72 6f 63 20  --------.#.proc 
ccd0: 73 6c 61 76 65 5f 74 65 73 74 5f 73 63 72 69 70  slave_test_scrip
cce0: 74 20 7b 73 63 72 69 70 74 7d 20 7b 0a 0a 20 20  t {script} {..  
ccf0: 23 20 43 72 65 61 74 65 20 74 68 65 20 69 6e 74  # Create the int
cd00: 65 72 70 72 65 74 65 72 20 75 73 65 64 20 74 6f  erpreter used to
cd10: 20 72 75 6e 20 74 68 65 20 74 65 73 74 20 73 63   run the test sc
cd20: 72 69 70 74 2e 0a 20 20 69 6e 74 65 72 70 20 63  ript..  interp c
cd30: 72 65 61 74 65 20 74 69 6e 74 65 72 70 0a 0a 20  reate tinterp.. 
cd40: 20 23 20 50 6f 70 75 6c 61 74 65 20 73 6f 6d 65   # Populate some
cd50: 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65   global variable
cd60: 73 20 74 68 61 74 20 74 65 73 74 65 72 2e 74 63  s that tester.tc
cd70: 6c 20 65 78 70 65 63 74 73 20 74 6f 20 73 65 65  l expects to see
cd80: 2e 0a 20 20 66 6f 72 65 61 63 68 20 7b 76 61 72  ..  foreach {var
cd90: 20 76 61 6c 75 65 7d 20 5b 6c 69 73 74 20 20 20   value} [list   
cda0: 20 20 20 20 20 20 20 20 20 20 20 5c 0a 20 20 20             \.   
cdb0: 20 3a 3a 61 72 67 76 30 20 24 3a 3a 61 72 67 76   ::argv0 $::argv
cdc0: 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  0               
cdd0: 20 20 20 20 20 20 5c 0a 20 20 20 20 3a 3a 61 72        \.    ::ar
cde0: 67 76 20 20 7b 7d 20 20 20 20 20 20 20 20 20 20  gv  {}          
cdf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
ce00: 20 5c 0a 20 20 20 20 3a 3a 53 4c 41 56 45 20 31   \.    ::SLAVE 1
ce10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
ce20: 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a 20 20              \.  
ce30: 5d 20 7b 0a 20 20 20 20 69 6e 74 65 72 70 20 65  ] {.    interp e
ce40: 76 61 6c 20 74 69 6e 74 65 72 70 20 5b 6c 69 73  val tinterp [lis
ce50: 74 20 73 65 74 20 24 76 61 72 20 24 76 61 6c 75  t set $var $valu
ce60: 65 5d 0a 20 20 7d 0a 0a 20 20 23 20 54 68 65 20  e].  }..  # The 
ce70: 61 6c 69 61 73 20 75 73 65 64 20 74 6f 20 61 63  alias used to ac
ce80: 63 65 73 73 20 74 68 65 20 67 6c 6f 62 61 6c 20  cess the global 
ce90: 74 65 73 74 20 63 6f 75 6e 74 65 72 73 2e 0a 20  test counters.. 
cea0: 20 74 69 6e 74 65 72 70 20 61 6c 69 61 73 20 73   tinterp alias s
ceb0: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20  et_test_counter 
cec0: 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72  set_test_counter
ced0: 0a 0a 20 20 23 20 53 65 74 20 75 70 20 74 68 65  ..  # Set up the
cee0: 20 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 20 61 72   ::cmdlinearg ar
cef0: 72 61 79 20 69 6e 20 74 68 65 20 73 6c 61 76 65  ray in the slave
cf00: 2e 0a 20 20 69 6e 74 65 72 70 20 65 76 61 6c 20  ..  interp eval 
cf10: 74 69 6e 74 65 72 70 20 5b 6c 69 73 74 20 61 72  tinterp [list ar
cf20: 72 61 79 20 73 65 74 20 3a 3a 63 6d 64 6c 69 6e  ray set ::cmdlin
cf30: 65 61 72 67 20 5b 61 72 72 61 79 20 67 65 74 20  earg [array get 
cf40: 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 5d 5d 0a 0a  ::cmdlinearg]]..
cf50: 20 20 23 20 53 65 74 20 75 70 20 74 68 65 20 3a    # Set up the :
cf60: 3a 47 20 61 72 72 61 79 20 69 6e 20 74 68 65 20  :G array in the 
cf70: 73 6c 61 76 65 2e 0a 20 20 69 6e 74 65 72 70 20  slave..  interp 
cf80: 65 76 61 6c 20 74 69 6e 74 65 72 70 20 5b 6c 69  eval tinterp [li
cf90: 73 74 20 61 72 72 61 79 20 73 65 74 20 3a 3a 47  st array set ::G
cfa0: 20 5b 61 72 72 61 79 20 67 65 74 20 3a 3a 47 5d   [array get ::G]
cfb0: 5d 0a 0a 20 20 23 20 4c 6f 61 64 20 74 68 65 20  ]..  # Load the 
cfc0: 76 61 72 69 6f 75 73 20 74 65 73 74 20 69 6e 74  various test int
cfd0: 65 72 66 61 63 65 73 20 69 6d 70 6c 65 6d 65 6e  erfaces implemen
cfe0: 74 65 64 20 69 6e 20 43 2e 0a 20 20 6c 6f 61 64  ted in C..  load
cff0: 5f 74 65 73 74 66 69 78 74 75 72 65 5f 65 78 74  _testfixture_ext
d000: 65 6e 73 69 6f 6e 73 20 74 69 6e 74 65 72 70 0a  ensions tinterp.
d010: 0a 20 20 23 20 52 75 6e 20 74 68 65 20 74 65 73  .  # Run the tes
d020: 74 20 73 63 72 69 70 74 2e 0a 20 20 69 6e 74 65  t script..  inte
d030: 72 70 20 65 76 61 6c 20 74 69 6e 74 65 72 70 20  rp eval tinterp 
d040: 24 73 63 72 69 70 74 0a 0a 20 20 23 20 43 68 65  $script..  # Che
d050: 63 6b 20 69 66 20 74 68 65 20 69 6e 74 65 72 70  ck if the interp
d060: 72 65 74 65 72 20 63 61 6c 6c 20 5b 72 75 6e 5f  reter call [run_
d070: 74 68 72 65 61 64 5f 74 65 73 74 73 5d 0a 20 20  thread_tests].  
d080: 69 66 20 7b 20 5b 69 6e 74 65 72 70 20 65 76 61  if { [interp eva
d090: 6c 20 74 69 6e 74 65 72 70 20 7b 69 6e 66 6f 20  l tinterp {info 
d0a0: 65 78 69 73 74 73 20 3a 3a 72 75 6e 5f 74 68 72  exists ::run_thr
d0b0: 65 61 64 5f 74 65 73 74 73 5f 63 61 6c 6c 65 64  ead_tests_called
d0c0: 7d 5d 20 7d 20 7b 0a 20 20 20 20 73 65 74 20 3a  }] } {.    set :
d0d0: 3a 72 75 6e 5f 74 68 72 65 61 64 5f 74 65 73 74  :run_thread_test
d0e0: 73 5f 63 61 6c 6c 65 64 20 31 0a 20 20 7d 0a 0a  s_called 1.  }..
d0f0: 20 20 23 20 44 65 6c 65 74 65 20 74 68 65 20 69    # Delete the i
d100: 6e 74 65 72 70 72 65 74 65 72 20 75 73 65 64 20  nterpreter used 
d110: 74 6f 20 72 75 6e 20 74 68 65 20 74 65 73 74 20  to run the test 
d120: 73 63 72 69 70 74 2e 0a 20 20 69 6e 74 65 72 70  script..  interp
d130: 20 64 65 6c 65 74 65 20 74 69 6e 74 65 72 70 0a   delete tinterp.
d140: 7d 0a 0a 70 72 6f 63 20 73 6c 61 76 65 5f 74 65  }..proc slave_te
d150: 73 74 5f 66 69 6c 65 20 7b 7a 46 69 6c 65 7d 20  st_file {zFile} 
d160: 7b 0a 20 20 73 65 74 20 74 61 69 6c 20 5b 66 69  {.  set tail [fi
d170: 6c 65 20 74 61 69 6c 20 24 7a 46 69 6c 65 5d 0a  le tail $zFile].
d180: 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  .  if {[info exi
d190: 73 74 73 20 3a 3a 47 28 73 74 61 72 74 3a 70 65  sts ::G(start:pe
d1a0: 72 6d 75 74 61 74 69 6f 6e 29 5d 7d 20 7b 0a 20  rmutation)]} {. 
d1b0: 20 20 20 69 66 20 7b 5b 70 65 72 6d 75 74 61 74     if {[permutat
d1c0: 69 6f 6e 5d 20 21 3d 20 24 3a 3a 47 28 73 74 61  ion] != $::G(sta
d1d0: 72 74 3a 70 65 72 6d 75 74 61 74 69 6f 6e 29 7d  rt:permutation)}
d1e0: 20 72 65 74 75 72 6e 0a 20 20 20 20 75 6e 73 65   return.    unse
d1f0: 74 20 3a 3a 47 28 73 74 61 72 74 3a 70 65 72 6d  t ::G(start:perm
d200: 75 74 61 74 69 6f 6e 29 0a 20 20 7d 0a 20 20 69  utation).  }.  i
d210: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
d220: 3a 3a 47 28 73 74 61 72 74 3a 66 69 6c 65 29 5d  ::G(start:file)]
d230: 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 74 61 69  } {.    if {$tai
d240: 6c 20 21 3d 20 24 3a 3a 47 28 73 74 61 72 74 3a  l != $::G(start:
d250: 66 69 6c 65 29 20 26 26 20 24 74 61 69 6c 21 3d  file) && $tail!=
d260: 22 24 3a 3a 47 28 73 74 61 72 74 3a 66 69 6c 65  "$::G(start:file
d270: 29 2e 74 65 73 74 22 7d 20 72 65 74 75 72 6e 0a  ).test"} return.
d280: 20 20 20 20 75 6e 73 65 74 20 3a 3a 47 28 73 74      unset ::G(st
d290: 61 72 74 3a 66 69 6c 65 29 0a 20 20 7d 0a 0a 20  art:file).  }.. 
d2a0: 20 23 20 52 65 6d 65 6d 62 65 72 20 74 68 65 20   # Remember the 
d2b0: 76 61 6c 75 65 20 6f 66 20 74 68 65 20 73 68 61  value of the sha
d2c0: 72 65 64 2d 63 61 63 68 65 20 73 65 74 74 69 6e  red-cache settin
d2d0: 67 2e 20 53 6f 20 74 68 61 74 20 69 74 20 69 73  g. So that it is
d2e0: 20 70 6f 73 73 69 62 6c 65 0a 20 20 23 20 74 6f   possible.  # to
d2f0: 20 63 68 65 63 6b 20 61 66 74 65 72 77 61 72 64   check afterward
d300: 73 20 74 68 61 74 20 69 74 20 77 61 73 20 6e 6f  s that it was no
d310: 74 20 6d 6f 64 69 66 69 65 64 20 62 79 20 74 68  t modified by th
d320: 65 20 74 65 73 74 20 73 63 72 69 70 74 2e 0a 20  e test script.. 
d330: 20 23 0a 20 20 69 66 63 61 70 61 62 6c 65 20 73   #.  ifcapable s
d340: 68 61 72 65 64 5f 63 61 63 68 65 20 7b 20 73 65  hared_cache { se
d350: 74 20 73 63 73 20 5b 73 71 6c 69 74 65 33 5f 65  t scs [sqlite3_e
d360: 6e 61 62 6c 65 5f 73 68 61 72 65 64 5f 63 61 63  nable_shared_cac
d370: 68 65 5d 20 7d 0a 0a 20 20 23 20 52 75 6e 20 74  he] }..  # Run t
d380: 68 65 20 74 65 73 74 20 73 63 72 69 70 74 20 69  he test script i
d390: 6e 20 61 20 73 6c 61 76 65 20 69 6e 74 65 72 70  n a slave interp
d3a0: 72 65 74 65 72 2e 0a 20 20 23 0a 20 20 75 6e 73  reter..  #.  uns
d3b0: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 3a  et -nocomplain :
d3c0: 3a 72 75 6e 5f 74 68 72 65 61 64 5f 74 65 73 74  :run_thread_test
d3d0: 73 5f 63 61 6c 6c 65 64 0a 20 20 72 65 73 65 74  s_called.  reset
d3e0: 5f 70 72 6e 67 5f 73 74 61 74 65 0a 20 20 73 65  _prng_state.  se
d3f0: 74 20 3a 3a 73 71 6c 69 74 65 5f 6f 70 65 6e 5f  t ::sqlite_open_
d400: 66 69 6c 65 5f 63 6f 75 6e 74 20 30 0a 20 20 73  file_count 0.  s
d410: 65 74 20 74 69 6d 65 20 5b 74 69 6d 65 20 7b 20  et time [time { 
d420: 73 6c 61 76 65 5f 74 65 73 74 5f 73 63 72 69 70  slave_test_scrip
d430: 74 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 24  t [list source $
d440: 7a 46 69 6c 65 5d 20 7d 5d 0a 20 20 73 65 74 20  zFile] }].  set 
d450: 6d 73 20 5b 65 78 70 72 20 5b 6c 69 6e 64 65 78  ms [expr [lindex
d460: 20 24 74 69 6d 65 20 30 5d 20 2f 20 31 30 30 30   $time 0] / 1000
d470: 5d 0a 0a 20 20 23 20 54 65 73 74 20 74 68 61 74  ]..  # Test that
d480: 20 61 6c 6c 20 66 69 6c 65 73 20 6f 70 65 6e 65   all files opene
d490: 64 20 62 79 20 74 68 65 20 74 65 73 74 20 73 63  d by the test sc
d4a0: 72 69 70 74 20 77 65 72 65 20 63 6c 6f 73 65 64  ript were closed
d4b0: 2e 20 4f 6d 69 74 20 74 68 69 73 0a 20 20 23 20  . Omit this.  # 
d4c0: 69 66 20 74 68 65 20 74 65 73 74 20 73 63 72 69  if the test scri
d4d0: 70 74 20 68 61 73 20 22 74 68 72 65 61 64 22 20  pt has "thread" 
d4e0: 69 6e 20 69 74 73 20 6e 61 6d 65 2e 20 54 68 65  in its name. The
d4f0: 20 6f 70 65 6e 20 66 69 6c 65 20 63 6f 75 6e 74   open file count
d500: 65 72 0a 20 20 23 20 69 73 20 6e 6f 74 20 74 68  er.  # is not th
d510: 72 65 61 64 2d 73 61 66 65 2e 0a 20 20 23 0a 20  read-safe..  #. 
d520: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74   if {[info exist
d530: 73 20 3a 3a 72 75 6e 5f 74 68 72 65 61 64 5f 74  s ::run_thread_t
d540: 65 73 74 73 5f 63 61 6c 6c 65 64 5d 3d 3d 30 7d  ests_called]==0}
d550: 20 7b 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 24   {.    do_test $
d560: 7b 74 61 69 6c 7d 2d 63 6c 6f 73 65 61 6c 6c 66  {tail}-closeallf
d570: 69 6c 65 73 20 7b 20 65 78 70 72 20 7b 24 3a 3a  iles { expr {$::
d580: 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65  sqlite_open_file
d590: 5f 63 6f 75 6e 74 3e 30 7d 20 7d 20 7b 30 7d 0a  _count>0} } {0}.
d5a0: 20 20 7d 0a 20 20 73 65 74 20 3a 3a 73 71 6c 69    }.  set ::sqli
d5b0: 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75  te_open_file_cou
d5c0: 6e 74 20 30 0a 0a 20 20 23 20 54 65 73 74 20 74  nt 0..  # Test t
d5d0: 68 61 74 20 74 68 65 20 67 6c 6f 62 61 6c 20 22  hat the global "
d5e0: 73 68 61 72 65 64 2d 63 61 63 68 65 22 20 73 65  shared-cache" se
d5f0: 74 74 69 6e 67 20 77 61 73 20 6e 6f 74 20 61 6c  tting was not al
d600: 74 65 72 65 64 20 62 79 0a 20 20 23 20 74 68 65  tered by.  # the
d610: 20 74 65 73 74 20 73 63 72 69 70 74 2e 0a 20 20   test script..  
d620: 23 0a 20 20 69 66 63 61 70 61 62 6c 65 20 73 68  #.  ifcapable sh
d630: 61 72 65 64 5f 63 61 63 68 65 20 7b 0a 20 20 20  ared_cache {.   
d640: 20 73 65 74 20 72 65 73 20 5b 65 78 70 72 20 7b   set res [expr {
d650: 5b 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f  [sqlite3_enable_
d660: 73 68 61 72 65 64 5f 63 61 63 68 65 5d 20 3d 3d  shared_cache] ==
d670: 20 24 73 63 73 7d 5d 0a 20 20 20 20 64 6f 5f 74   $scs}].    do_t
d680: 65 73 74 20 24 7b 74 61 69 6c 7d 2d 73 68 61 72  est ${tail}-shar
d690: 65 64 63 61 63 68 65 73 65 74 74 69 6e 67 20 5b  edcachesetting [
d6a0: 6c 69 73 74 20 73 65 74 20 7b 7d 20 24 72 65 73  list set {} $res
d6b0: 5d 20 31 0a 20 20 7d 0a 0a 20 20 23 20 41 64 64  ] 1.  }..  # Add
d6c0: 20 73 6f 6d 65 20 69 6e 66 6f 20 74 6f 20 74 68   some info to th
d6d0: 65 20 6f 75 74 70 75 74 2e 0a 20 20 23 0a 20 20  e output..  #.  
d6e0: 70 75 74 73 20 22 54 69 6d 65 3a 20 24 74 61 69  puts "Time: $tai
d6f0: 6c 20 24 6d 73 20 6d 73 22 0a 20 20 73 68 6f 77  l $ms ms".  show
d700: 5f 6d 65 6d 73 74 61 74 73 0a 7d 0a 0a 23 20 4f  _memstats.}..# O
d710: 70 65 6e 20 61 20 6e 65 77 20 63 6f 6e 6e 65 63  pen a new connec
d720: 74 69 6f 6e 20 6f 6e 20 64 61 74 61 62 61 73 65  tion on database
d730: 20 74 65 73 74 2e 64 62 20 61 6e 64 20 65 78 65   test.db and exe
d740: 63 75 74 65 20 74 68 65 20 53 51 4c 20 73 63 72  cute the SQL scr
d750: 69 70 74 0a 23 20 73 75 70 70 6c 69 65 64 20 61  ipt.# supplied a
d760: 73 20 61 6e 20 61 72 67 75 6d 65 6e 74 2e 20 42  s an argument. B
d770: 65 66 6f 72 65 20 72 65 74 75 72 6e 69 6e 67 2c  efore returning,
d780: 20 63 6c 6f 73 65 20 74 68 65 20 6e 65 77 20 63   close the new c
d790: 6f 6e 65 63 74 69 6f 6e 20 61 6e 64 0a 23 20 72  onection and.# r
d7a0: 65 73 74 6f 72 65 20 74 68 65 20 34 20 62 79 74  estore the 4 byt
d7b0: 65 20 66 69 65 6c 64 73 20 73 74 61 72 74 69 6e  e fields startin
d7c0: 67 20 61 74 20 68 65 61 64 65 72 20 6f 66 66 73  g at header offs
d7d0: 65 74 73 20 32 38 2c 20 39 32 20 61 6e 64 20 39  ets 28, 92 and 9
d7e0: 36 0a 23 20 74 6f 20 74 68 65 20 76 61 6c 75 65  6.# to the value
d7f0: 73 20 74 68 65 79 20 68 65 6c 64 20 62 65 66 6f  s they held befo
d800: 72 65 20 74 68 65 20 53 51 4c 20 77 61 73 20 65  re the SQL was e
d810: 78 65 63 75 74 65 64 2e 20 54 68 69 73 20 73 69  xecuted. This si
d820: 6d 75 6c 61 74 65 73 0a 23 20 61 20 77 72 69 74  mulates.# a writ
d830: 65 20 62 79 20 61 20 70 72 65 2d 33 2e 37 2e 30  e by a pre-3.7.0
d840: 20 63 6c 69 65 6e 74 2e 0a 23 0a 70 72 6f 63 20   client..#.proc 
d850: 73 71 6c 33 36 32 33 31 20 7b 73 71 6c 7d 20 7b  sql36231 {sql} {
d860: 0a 20 20 73 65 74 20 42 20 5b 68 65 78 69 6f 5f  .  set B [hexio_
d870: 72 65 61 64 20 74 65 73 74 2e 64 62 20 39 32 20  read test.db 92 
d880: 38 5d 0a 20 20 73 65 74 20 41 20 5b 68 65 78 69  8].  set A [hexi
d890: 6f 5f 72 65 61 64 20 74 65 73 74 2e 64 62 20 32  o_read test.db 2
d8a0: 38 20 34 5d 0a 20 20 73 71 6c 69 74 65 33 20 64  8 4].  sqlite3 d
d8b0: 62 33 36 32 33 31 20 74 65 73 74 2e 64 62 0a 20  b36231 test.db. 
d8c0: 20 63 61 74 63 68 20 7b 20 64 62 33 36 32 33 31   catch { db36231
d8d0: 20 66 75 6e 63 20 61 5f 73 74 72 69 6e 67 20 61   func a_string a
d8e0: 5f 73 74 72 69 6e 67 20 7d 0a 20 20 65 78 65 63  _string }.  exec
d8f0: 73 71 6c 20 24 73 71 6c 20 64 62 33 36 32 33 31  sql $sql db36231
d900: 0a 20 20 64 62 33 36 32 33 31 20 63 6c 6f 73 65  .  db36231 close
d910: 0a 20 20 68 65 78 69 6f 5f 77 72 69 74 65 20 74  .  hexio_write t
d920: 65 73 74 2e 64 62 20 32 38 20 24 41 0a 20 20 68  est.db 28 $A.  h
d930: 65 78 69 6f 5f 77 72 69 74 65 20 74 65 73 74 2e  exio_write test.
d940: 64 62 20 39 32 20 24 42 0a 20 20 72 65 74 75 72  db 92 $B.  retur
d950: 6e 20 22 22 0a 7d 0a 0a 70 72 6f 63 20 64 62 5f  n "".}..proc db_
d960: 73 61 76 65 20 7b 7d 20 7b 0a 20 20 66 6f 72 65  save {} {.  fore
d970: 61 63 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63  ach f [glob -noc
d980: 6f 6d 70 6c 61 69 6e 20 73 76 5f 74 65 73 74 2e  omplain sv_test.
d990: 64 62 2a 5d 20 7b 20 66 6f 72 63 65 64 65 6c 65  db*] { forcedele
d9a0: 74 65 20 24 66 20 7d 0a 20 20 66 6f 72 65 61 63  te $f }.  foreac
d9b0: 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d  h f [glob -nocom
d9c0: 70 6c 61 69 6e 20 74 65 73 74 2e 64 62 2a 5d 20  plain test.db*] 
d9d0: 7b 0a 20 20 20 20 73 65 74 20 66 32 20 22 73 76  {.    set f2 "sv
d9e0: 5f 24 66 22 0a 20 20 20 20 66 6f 72 63 65 63 6f  _$f".    forceco
d9f0: 70 79 20 24 66 20 24 66 32 0a 20 20 7d 0a 7d 0a  py $f $f2.  }.}.
da00: 70 72 6f 63 20 64 62 5f 73 61 76 65 5f 61 6e 64  proc db_save_and
da10: 5f 63 6c 6f 73 65 20 7b 7d 20 7b 0a 20 20 64 62  _close {} {.  db
da20: 5f 73 61 76 65 0a 20 20 63 61 74 63 68 20 7b 20  _save.  catch { 
da30: 64 62 20 63 6c 6f 73 65 20 7d 0a 20 20 72 65 74  db close }.  ret
da40: 75 72 6e 20 22 22 0a 7d 0a 70 72 6f 63 20 64 62  urn "".}.proc db
da50: 5f 72 65 73 74 6f 72 65 20 7b 7d 20 7b 0a 20 20  _restore {} {.  
da60: 66 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f 62 20  foreach f [glob 
da70: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 73 74  -nocomplain test
da80: 2e 64 62 2a 5d 20 7b 20 66 6f 72 63 65 64 65 6c  .db*] { forcedel
da90: 65 74 65 20 24 66 20 7d 0a 20 20 66 6f 72 65 61  ete $f }.  forea
daa0: 63 68 20 66 32 20 5b 67 6c 6f 62 20 2d 6e 6f 63  ch f2 [glob -noc
dab0: 6f 6d 70 6c 61 69 6e 20 73 76 5f 74 65 73 74 2e  omplain sv_test.
dac0: 64 62 2a 5d 20 7b 0a 20 20 20 20 73 65 74 20 66  db*] {.    set f
dad0: 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24   [string range $
dae0: 66 32 20 33 20 65 6e 64 5d 0a 20 20 20 20 66 6f  f2 3 end].    fo
daf0: 72 63 65 63 6f 70 79 20 24 66 32 20 24 66 0a 20  rcecopy $f2 $f. 
db00: 20 7d 0a 7d 0a 70 72 6f 63 20 64 62 5f 72 65 73   }.}.proc db_res
db10: 74 6f 72 65 5f 61 6e 64 5f 72 65 6f 70 65 6e 20  tore_and_reopen 
db20: 7b 7b 64 62 66 69 6c 65 20 74 65 73 74 2e 64 62  {{dbfile test.db
db30: 7d 7d 20 7b 0a 20 20 63 61 74 63 68 20 7b 20 64  }} {.  catch { d
db40: 62 20 63 6c 6f 73 65 20 7d 0a 20 20 64 62 5f 72  b close }.  db_r
db50: 65 73 74 6f 72 65 0a 20 20 73 71 6c 69 74 65 33  estore.  sqlite3
db60: 20 64 62 20 24 64 62 66 69 6c 65 0a 7d 0a 70 72   db $dbfile.}.pr
db70: 6f 63 20 64 62 5f 64 65 6c 65 74 65 5f 61 6e 64  oc db_delete_and
db80: 5f 72 65 6f 70 65 6e 20 7b 7b 66 69 6c 65 20 74  _reopen {{file t
db90: 65 73 74 2e 64 62 7d 7d 20 7b 0a 20 20 63 61 74  est.db}} {.  cat
dba0: 63 68 20 7b 20 64 62 20 63 6c 6f 73 65 20 7d 0a  ch { db close }.
dbb0: 20 20 66 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f    foreach f [glo
dbc0: 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65  b -nocomplain te
dbd0: 73 74 2e 64 62 2a 5d 20 7b 20 66 6f 72 63 65 64  st.db*] { forced
dbe0: 65 6c 65 74 65 20 24 66 20 7d 0a 20 20 73 71 6c  elete $f }.  sql
dbf0: 69 74 65 33 20 64 62 20 24 66 69 6c 65 0a 7d 0a  ite3 db $file.}.
dc00: 0a 23 20 49 66 20 74 68 65 20 6c 69 62 72 61 72  .# If the librar
dc10: 79 20 69 73 20 63 6f 6d 70 69 6c 65 64 20 77 69  y is compiled wi
dc20: 74 68 20 74 68 65 20 53 51 4c 49 54 45 5f 44 45  th the SQLITE_DE
dc30: 46 41 55 4c 54 5f 41 55 54 4f 56 41 43 55 55 4d  FAULT_AUTOVACUUM
dc40: 20 6d 61 63 72 6f 20 73 65 74 0a 23 20 74 6f 20   macro set.# to 
dc50: 6e 6f 6e 2d 7a 65 72 6f 2c 20 74 68 65 6e 20 73  non-zero, then s
dc60: 65 74 20 74 68 65 20 67 6c 6f 62 61 6c 20 76 61  et the global va
dc70: 72 69 61 62 6c 65 20 24 41 55 54 4f 56 41 43 55  riable $AUTOVACU
dc80: 55 4d 20 74 6f 20 31 2e 0a 73 65 74 20 41 55 54  UM to 1..set AUT
dc90: 4f 56 41 43 55 55 4d 20 24 73 71 6c 69 74 65 5f  OVACUUM $sqlite_
dca0: 6f 70 74 69 6f 6e 73 28 64 65 66 61 75 6c 74 5f  options(default_
dcb0: 61 75 74 6f 76 61 63 75 75 6d 29 0a 0a 23 20 4d  autovacuum)..# M
dcc0: 61 6b 65 20 73 75 72 65 20 74 68 65 20 46 54 53  ake sure the FTS
dcd0: 20 65 6e 68 61 6e 63 65 64 20 71 75 65 72 79 20   enhanced query 
dce0: 73 79 6e 74 61 78 20 69 73 20 64 69 73 61 62 6c  syntax is disabl
dcf0: 65 64 2e 0a 73 65 74 20 73 71 6c 69 74 65 5f 66  ed..set sqlite_f
dd00: 74 73 33 5f 65 6e 61 62 6c 65 5f 70 61 72 65 6e  ts3_enable_paren
dd10: 74 68 65 73 65 73 20 30 0a 0a 23 20 44 75 72 69  theses 0..# Duri
dd20: 6e 67 20 74 65 73 74 69 6e 67 2c 20 61 73 73 75  ng testing, assu
dd30: 6d 65 20 74 68 61 74 20 61 6c 6c 20 64 61 74 61  me that all data
dd40: 62 61 73 65 20 66 69 6c 65 73 20 61 72 65 20 77  base files are w
dd50: 65 6c 6c 2d 66 6f 72 6d 65 64 2e 20 20 54 68 65  ell-formed.  The
dd60: 0a 23 20 66 65 77 20 74 65 73 74 20 63 61 73 65  .# few test case
dd70: 73 20 74 68 61 74 20 64 65 6c 69 62 65 72 61 74  s that deliberat
dd80: 65 6c 79 20 63 6f 72 72 75 70 74 20 64 61 74 61  ely corrupt data
dd90: 62 61 73 65 20 66 69 6c 65 73 20 73 68 6f 75 6c  base files shoul
dda0: 64 20 72 65 73 63 69 6e 64 20 0a 23 20 74 68 69  d rescind .# thi
ddb0: 73 20 73 65 74 74 69 6e 67 20 62 79 20 69 6e 76  s setting by inv
ddc0: 6f 6b 69 6e 67 20 22 64 61 74 61 62 61 73 65 5f  oking "database_
ddd0: 63 61 6e 5f 62 65 5f 63 6f 72 72 75 70 74 22 0a  can_be_corrupt".
dde0: 23 0a 64 61 74 61 62 61 73 65 5f 6e 65 76 65 72  #.database_never
ddf0: 5f 63 6f 72 72 75 70 74 0a 0a 73 6f 75 72 63 65  _corrupt..source
de00: 20 24 74 65 73 74 64 69 72 2f 74 68 72 65 61 64   $testdir/thread
de10: 5f 63 6f 6d 6d 6f 6e 2e 74 63 6c 0a 73 6f 75 72  _common.tcl.sour
de20: 63 65 20 24 74 65 73 74 64 69 72 2f 6d 61 6c 6c  ce $testdir/mall
de30: 6f 63 5f 63 6f 6d 6d 6f 6e 2e 74 63 6c 0a        oc_common.tcl.