/ Hex Artifact Content
Login

Artifact 91f8ab073600ead79f592b8e4634d8b1d4dd4a7e:


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: 23 20 43 6f 6d 6d 61 6e 64 20 74 6f 20 74 65 73  # Command to tes
0a70: 74 20 77 68 65 74 68 65 72 20 6f 72 20 6e 6f 74  t whether or not
0a80: 20 2d 2d 76 65 72 62 6f 73 65 3d 31 20 77 61 73   --verbose=1 was
0a90: 20 73 70 65 63 69 66 69 65 64 20 6f 6e 20 74 68   specified on th
0aa0: 65 20 63 6f 6d 6d 61 6e 64 0a 23 20 6c 69 6e 65  e command.# line
0ab0: 20 28 72 65 74 75 72 6e 73 20 30 20 66 6f 72 20   (returns 0 for 
0ac0: 6e 6f 74 2d 76 65 72 62 6f 73 65 2c 20 31 20 66  not-verbose, 1 f
0ad0: 6f 72 20 76 65 72 62 6f 73 65 20 61 6e 64 20 32  or verbose and 2
0ae0: 20 66 6f 72 20 22 76 65 72 62 6f 73 65 20 69 6e   for "verbose in
0af0: 20 74 68 65 0a 23 20 6f 75 74 70 75 74 20 66 69   the.# output fi
0b00: 6c 65 20 6f 6e 6c 79 22 29 2e 0a 23 0a 23 20 20  le only")..#.#  
0b10: 20 20 20 20 76 65 72 62 6f 73 65 0a 23 0a 0a 23      verbose.#..#
0b20: 20 53 65 74 20 74 68 65 20 70 72 65 63 69 73 69   Set the precisi
0b30: 6f 6e 20 6f 66 20 46 50 20 61 72 69 74 68 6d 61  on of FP arithma
0b40: 74 69 63 20 75 73 65 64 20 62 79 20 74 68 65 20  tic used by the 
0b50: 69 6e 74 65 72 70 72 65 74 65 72 2e 20 41 6e 64  interpreter. And
0b60: 0a 23 20 63 6f 6e 66 69 67 75 72 65 20 53 51 4c  .# configure SQL
0b70: 69 74 65 20 74 6f 20 74 61 6b 65 20 64 61 74 61  ite to take data
0b80: 62 61 73 65 20 66 69 6c 65 20 6c 6f 63 6b 73 20  base file locks 
0b90: 6f 6e 20 74 68 65 20 70 61 67 65 20 74 68 61 74  on the page that
0ba0: 20 62 65 67 69 6e 73 0a 23 20 36 34 4b 42 20 69   begins.# 64KB i
0bb0: 6e 74 6f 20 74 68 65 20 64 61 74 61 62 61 73 65  nto the database
0bc0: 20 66 69 6c 65 20 69 6e 73 74 65 61 64 20 6f 66   file instead of
0bd0: 20 74 68 65 20 6f 6e 65 20 31 47 42 20 69 6e 2e   the one 1GB in.
0be0: 20 54 68 69 73 20 6d 65 61 6e 73 0a 23 20 74 68   This means.# th
0bf0: 65 20 63 6f 64 65 20 74 68 61 74 20 68 61 6e 64  e code that hand
0c00: 6c 65 73 20 74 68 61 74 20 73 70 65 63 69 61 6c  les that special
0c10: 20 63 61 73 65 20 63 61 6e 20 62 65 20 74 65 73   case can be tes
0c20: 74 65 64 20 77 69 74 68 6f 75 74 20 63 72 65 61  ted without crea
0c30: 74 69 6e 67 0a 23 20 76 65 72 79 20 6c 61 72 67  ting.# very larg
0c40: 65 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 73  e database files
0c50: 2e 0a 23 0a 73 65 74 20 74 63 6c 5f 70 72 65 63  ..#.set tcl_prec
0c60: 69 73 69 6f 6e 20 31 35 0a 73 71 6c 69 74 65 33  ision 15.sqlite3
0c70: 5f 74 65 73 74 5f 63 6f 6e 74 72 6f 6c 5f 70 65  _test_control_pe
0c80: 6e 64 69 6e 67 5f 62 79 74 65 20 30 78 30 30 31  nding_byte 0x001
0c90: 30 30 30 30 0a 0a 0a 23 20 49 66 20 74 68 65 20  0000...# If the 
0ca0: 70 61 67 65 72 20 63 6f 64 65 63 20 69 73 20 61  pager codec is a
0cb0: 76 61 69 6c 61 62 6c 65 2c 20 63 72 65 61 74 65  vailable, create
0cc0: 20 61 20 77 72 61 70 70 65 72 20 66 6f 72 20 74   a wrapper for t
0cd0: 68 65 20 5b 73 71 6c 69 74 65 33 5d 0a 23 20 63  he [sqlite3].# c
0ce0: 6f 6d 6d 61 6e 64 20 74 68 61 74 20 61 70 70 65  ommand that appe
0cf0: 6e 64 73 20 22 2d 6b 65 79 20 7b 78 79 7a 7a 79  nds "-key {xyzzy
0d00: 7d 22 20 74 6f 20 74 68 65 20 63 6f 6d 6d 61 6e  }" to the comman
0d10: 64 20 6c 69 6e 65 2e 20 69 2e 65 2e 20 74 68 69  d line. i.e. thi
0d20: 73 3a 0a 23 0a 23 20 20 20 20 20 73 71 6c 69 74  s:.#.#     sqlit
0d30: 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a 23 0a  e3 db test.db.#.
0d40: 23 20 62 65 63 6f 6d 65 73 0a 23 0a 23 20 20 20  # becomes.#.#   
0d50: 20 20 73 71 6c 69 74 65 33 20 64 62 20 74 65 73    sqlite3 db tes
0d60: 74 2e 64 62 20 2d 6b 65 79 20 7b 78 79 7a 7a 79  t.db -key {xyzzy
0d70: 7d 0a 23 0a 69 66 20 7b 5b 69 6e 66 6f 20 63 6f  }.#.if {[info co
0d80: 6d 6d 61 6e 64 20 73 71 6c 69 74 65 5f 6f 72 69  mmand sqlite_ori
0d90: 67 5d 3d 3d 22 22 7d 20 7b 0a 20 20 72 65 6e 61  g]==""} {.  rena
0da0: 6d 65 20 73 71 6c 69 74 65 33 20 73 71 6c 69 74  me sqlite3 sqlit
0db0: 65 5f 6f 72 69 67 0a 20 20 70 72 6f 63 20 73 71  e_orig.  proc sq
0dc0: 6c 69 74 65 33 20 7b 61 72 67 73 7d 20 7b 0a 20  lite3 {args} {. 
0dd0: 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20     if {[llength 
0de0: 24 61 72 67 73 5d 3e 3d 32 20 26 26 20 5b 73 74  $args]>=2 && [st
0df0: 72 69 6e 67 20 69 6e 64 65 78 20 5b 6c 69 6e 64  ring index [lind
0e00: 65 78 20 24 61 72 67 73 20 30 5d 20 30 5d 21 3d  ex $args 0] 0]!=
0e10: 22 2d 22 7d 20 7b 0a 20 20 20 20 20 20 23 20 54  "-"} {.      # T
0e20: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 6f  his command is o
0e30: 70 65 6e 69 6e 67 20 61 20 6e 65 77 20 64 61 74  pening a new dat
0e40: 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e  abase connection
0e50: 2e 0a 20 20 20 20 20 20 23 0a 20 20 20 20 20 20  ..      #.      
0e60: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
0e70: 20 3a 3a 47 28 70 65 72 6d 3a 73 71 6c 69 74 65   ::G(perm:sqlite
0e80: 33 5f 61 72 67 73 29 5d 7d 20 7b 0a 20 20 20 20  3_args)]} {.    
0e90: 20 20 20 20 73 65 74 20 61 72 67 73 20 5b 63 6f      set args [co
0ea0: 6e 63 61 74 20 24 61 72 67 73 20 24 3a 3a 47 28  ncat $args $::G(
0eb0: 70 65 72 6d 3a 73 71 6c 69 74 65 33 5f 61 72 67  perm:sqlite3_arg
0ec0: 73 29 5d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  s)].      }.    
0ed0: 20 20 69 66 20 7b 5b 73 71 6c 69 74 65 5f 6f 72    if {[sqlite_or
0ee0: 69 67 20 2d 68 61 73 2d 63 6f 64 65 63 5d 20 26  ig -has-codec] &
0ef0: 26 20 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  & ![info exists 
0f00: 3a 3a 64 6f 5f 6e 6f 74 5f 75 73 65 5f 63 6f 64  ::do_not_use_cod
0f10: 65 63 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 6c  ec]} {.        l
0f20: 61 70 70 65 6e 64 20 61 72 67 73 20 2d 6b 65 79  append args -key
0f30: 20 7b 78 79 7a 7a 79 7d 0a 20 20 20 20 20 20 7d   {xyzzy}.      }
0f40: 0a 0a 20 20 20 20 20 20 73 65 74 20 72 65 73 20  ..      set res 
0f50: 5b 75 70 6c 65 76 65 6c 20 31 20 73 71 6c 69 74  [uplevel 1 sqlit
0f60: 65 5f 6f 72 69 67 20 24 61 72 67 73 5d 0a 20 20  e_orig $args].  
0f70: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78      if {[info ex
0f80: 69 73 74 73 20 3a 3a 47 28 70 65 72 6d 3a 70 72  ists ::G(perm:pr
0f90: 65 73 71 6c 29 5d 7d 20 7b 0a 20 20 20 20 20 20  esql)]} {.      
0fa0: 20 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20    [lindex $args 
0fb0: 30 5d 20 65 76 61 6c 20 24 3a 3a 47 28 70 65 72  0] eval $::G(per
0fc0: 6d 3a 70 72 65 73 71 6c 29 0a 20 20 20 20 20 20  m:presql).      
0fd0: 7d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66  }.      if {[inf
0fe0: 6f 20 65 78 69 73 74 73 20 3a 3a 47 28 70 65 72  o exists ::G(per
0ff0: 6d 3a 64 62 63 6f 6e 66 69 67 29 5d 7d 20 7b 0a  m:dbconfig)]} {.
1000: 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 64 62          set ::db
1010: 68 61 6e 64 6c 65 20 5b 6c 69 6e 64 65 78 20 24  handle [lindex $
1020: 61 72 67 73 20 30 5d 0a 20 20 20 20 20 20 20 20  args 0].        
1030: 75 70 6c 65 76 65 6c 20 23 30 20 24 3a 3a 47 28  uplevel #0 $::G(
1040: 70 65 72 6d 3a 64 62 63 6f 6e 66 69 67 29 0a 20  perm:dbconfig). 
1050: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 73 65 74       }.      set
1060: 20 72 65 73 0a 20 20 20 20 7d 20 65 6c 73 65 20   res.    } else 
1070: 7b 0a 20 20 20 20 20 20 23 20 54 68 69 73 20 63  {.      # This c
1080: 6f 6d 6d 61 6e 64 20 69 73 20 6e 6f 74 20 6f 70  ommand is not op
1090: 65 6e 69 6e 67 20 61 20 6e 65 77 20 64 61 74 61  ening a new data
10a0: 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e  base connection.
10b0: 20 50 61 73 73 20 74 68 65 0a 20 20 20 20 20 20   Pass the.      
10c0: 23 20 61 72 67 75 6d 65 6e 74 73 20 74 68 72 6f  # arguments thro
10d0: 75 67 68 20 74 6f 20 74 68 65 20 43 20 69 6d 70  ugh to the C imp
10e0: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 73 20 74  lementation as t
10f0: 68 65 20 61 72 65 2e 0a 20 20 20 20 20 20 23 0a  he are..      #.
1100: 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20 31 20        uplevel 1 
1110: 73 71 6c 69 74 65 5f 6f 72 69 67 20 24 61 72 67  sqlite_orig $arg
1120: 73 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 70  s.    }.  }.}..p
1130: 72 6f 63 20 67 65 74 46 69 6c 65 52 65 74 72 69  roc getFileRetri
1140: 65 73 20 7b 7d 20 7b 0a 20 20 69 66 20 7b 21 5b  es {} {.  if {![
1150: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 47 28  info exists ::G(
1160: 66 69 6c 65 2d 72 65 74 72 69 65 73 29 5d 7d 20  file-retries)]} 
1170: 7b 0a 20 20 20 20 23 0a 20 20 20 20 23 20 4e 4f  {.    #.    # NO
1180: 54 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 64  TE: Return the d
1190: 65 66 61 75 6c 74 20 6e 75 6d 62 65 72 20 6f 66  efault number of
11a0: 20 72 65 74 72 69 65 73 20 66 6f 72 20 5b 66 69   retries for [fi
11b0: 6c 65 5d 20 6f 70 65 72 61 74 69 6f 6e 73 2e 20  le] operations. 
11c0: 20 41 0a 20 20 20 20 23 20 20 20 20 20 20 20 76   A.    #       v
11d0: 61 6c 75 65 20 6f 66 20 7a 65 72 6f 20 6f 72 20  alue of zero or 
11e0: 6c 65 73 73 20 68 65 72 65 20 6d 65 61 6e 73 20  less here means 
11f0: 22 64 69 73 61 62 6c 65 64 22 2e 0a 20 20 20 20  "disabled"..    
1200: 23 0a 20 20 20 20 72 65 74 75 72 6e 20 5b 65 78  #.    return [ex
1210: 70 72 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61 74 66  pr {$::tcl_platf
1220: 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 20 65 71  orm(platform) eq
1230: 20 22 77 69 6e 64 6f 77 73 22 20 3f 20 35 30 20   "windows" ? 50 
1240: 3a 20 30 7d 5d 0a 20 20 7d 0a 20 20 72 65 74 75  : 0}].  }.  retu
1250: 72 6e 20 24 3a 3a 47 28 66 69 6c 65 2d 72 65 74  rn $::G(file-ret
1260: 72 69 65 73 29 0a 7d 0a 0a 70 72 6f 63 20 67 65  ries).}..proc ge
1270: 74 46 69 6c 65 52 65 74 72 79 44 65 6c 61 79 20  tFileRetryDelay 
1280: 7b 7d 20 7b 0a 20 20 69 66 20 7b 21 5b 69 6e 66  {} {.  if {![inf
1290: 6f 20 65 78 69 73 74 73 20 3a 3a 47 28 66 69 6c  o exists ::G(fil
12a0: 65 2d 72 65 74 72 79 2d 64 65 6c 61 79 29 5d 7d  e-retry-delay)]}
12b0: 20 7b 0a 20 20 20 20 23 0a 20 20 20 20 23 20 4e   {.    #.    # N
12c0: 4f 54 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20  OTE: Return the 
12d0: 64 65 66 61 75 6c 74 20 6e 75 6d 62 65 72 20 6f  default number o
12e0: 66 20 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 20 74  f milliseconds t
12f0: 6f 20 77 61 69 74 20 77 68 65 6e 20 72 65 74 72  o wait when retr
1300: 79 69 6e 67 0a 20 20 20 20 23 20 20 20 20 20 20  ying.    #      
1310: 20 66 61 69 6c 65 64 20 5b 66 69 6c 65 5d 20 6f   failed [file] o
1320: 70 65 72 61 74 69 6f 6e 73 2e 20 20 41 20 76 61  perations.  A va
1330: 6c 75 65 20 6f 66 20 7a 65 72 6f 20 6f 72 20 6c  lue of zero or l
1340: 65 73 73 20 6d 65 61 6e 73 20 22 64 6f 20 6e 6f  ess means "do no
1350: 74 0a 20 20 20 20 23 20 20 20 20 20 20 20 77 61  t.    #       wa
1360: 69 74 22 2e 0a 20 20 20 20 23 0a 20 20 20 20 72  it"..    #.    r
1370: 65 74 75 72 6e 20 31 30 30 3b 20 23 20 54 4f 44  eturn 100; # TOD
1380: 4f 3a 20 47 6f 6f 64 20 64 65 66 61 75 6c 74 3f  O: Good default?
1390: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 24 3a  .  }.  return $:
13a0: 3a 47 28 66 69 6c 65 2d 72 65 74 72 79 2d 64 65  :G(file-retry-de
13b0: 6c 61 79 29 0a 7d 0a 0a 23 20 52 65 74 75 72 6e  lay).}..# Return
13c0: 20 74 68 65 20 73 74 72 69 6e 67 20 72 65 70 72   the string repr
13d0: 65 73 65 6e 74 69 6e 67 20 74 68 65 20 6e 61 6d  esenting the nam
13e0: 65 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74  e of the current
13f0: 20 64 69 72 65 63 74 6f 72 79 2e 20 20 4f 6e 0a   directory.  On.
1400: 23 20 57 69 6e 64 6f 77 73 2c 20 74 68 65 20 72  # Windows, the r
1410: 65 73 75 6c 74 20 69 73 20 22 6e 6f 72 6d 61 6c  esult is "normal
1420: 69 7a 65 64 22 20 74 6f 20 77 68 61 74 65 76 65  ized" to whateve
1430: 72 20 6f 75 72 20 70 61 72 65 6e 74 20 63 6f 6d  r our parent com
1440: 6d 61 6e 64 20 73 68 65 6c 6c 0a 23 20 69 73 20  mand shell.# is 
1450: 75 73 69 6e 67 20 74 6f 20 70 72 65 76 65 6e 74  using to prevent
1460: 20 63 61 73 65 2d 6d 69 73 6d 61 74 63 68 20 69   case-mismatch i
1470: 73 73 75 65 73 2e 0a 23 0a 70 72 6f 63 20 67 65  ssues..#.proc ge
1480: 74 5f 70 77 64 20 7b 7d 20 7b 0a 20 20 69 66 20  t_pwd {} {.  if 
1490: 7b 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d  {$::tcl_platform
14a0: 28 70 6c 61 74 66 6f 72 6d 29 20 65 71 20 22 77  (platform) eq "w
14b0: 69 6e 64 6f 77 73 22 7d 20 7b 0a 20 20 20 20 23  indows"} {.    #
14c0: 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 61 6e  .    # NOTE: Can
14d0: 6e 6f 74 20 75 73 65 20 5b 66 69 6c 65 20 6e 6f  not use [file no
14e0: 72 6d 61 6c 69 7a 65 5d 20 68 65 72 65 20 62 65  rmalize] here be
14f0: 63 61 75 73 65 20 69 74 20 77 6f 75 6c 64 20 61  cause it would a
1500: 6c 74 65 72 20 74 68 65 0a 20 20 20 20 23 20 20  lter the.    #  
1510: 20 20 20 20 20 63 61 73 65 20 6f 66 20 74 68 65       case of the
1520: 20 72 65 73 75 6c 74 20 74 6f 20 77 68 61 74 20   result to what 
1530: 54 63 6c 20 63 6f 6e 73 69 64 65 72 73 20 63 61  Tcl considers ca
1540: 6e 6f 6e 69 63 61 6c 2c 20 77 68 69 63 68 20 77  nonical, which w
1550: 6f 75 6c 64 0a 20 20 20 20 23 20 20 20 20 20 20  ould.    #      
1560: 20 64 65 66 65 61 74 20 74 68 65 20 70 75 72 70   defeat the purp
1570: 6f 73 65 20 6f 66 20 74 68 69 73 20 70 72 6f 63  ose of this proc
1580: 65 64 75 72 65 2e 0a 20 20 20 20 23 0a 20 20 20  edure..    #.   
1590: 20 72 65 74 75 72 6e 20 5b 73 74 72 69 6e 67 20   return [string 
15a0: 6d 61 70 20 5b 6c 69 73 74 20 5c 5c 20 2f 5d 20  map [list \\ /] 
15b0: 5c 0a 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e  \.        [strin
15c0: 67 20 74 72 69 6d 20 5b 65 78 65 63 20 2d 2d 20  g trim [exec -- 
15d0: 24 3a 3a 65 6e 76 28 43 6f 6d 53 70 65 63 29 20  $::env(ComSpec) 
15e0: 2f 63 20 65 63 68 6f 20 25 43 44 25 5d 5d 5d 0a  /c echo %CD%]]].
15f0: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 72    } else {.    r
1600: 65 74 75 72 6e 20 5b 70 77 64 5d 0a 20 20 7d 0a  eturn [pwd].  }.
1610: 7d 0a 0a 23 20 43 6f 70 79 20 66 69 6c 65 20 24  }..# Copy file $
1620: 66 72 6f 6d 20 69 6e 74 6f 20 24 74 6f 2e 20 54  from into $to. T
1630: 68 69 73 20 69 73 20 75 73 65 64 20 62 65 63 61  his is used beca
1640: 75 73 65 20 73 6f 6d 65 20 76 65 72 73 69 6f 6e  use some version
1650: 73 20 6f 66 0a 23 20 54 43 4c 20 66 6f 72 20 77  s of.# TCL for w
1660: 69 6e 64 6f 77 73 20 28 6e 6f 74 61 62 6c 79 20  indows (notably 
1670: 74 68 65 20 38 2e 34 2e 31 20 62 69 6e 61 72 79  the 8.4.1 binary
1680: 20 70 61 63 6b 61 67 65 20 73 68 69 70 70 65 64   package shipped
1690: 20 77 69 74 68 20 74 68 65 0a 23 20 63 75 72 72   with the.# curr
16a0: 65 6e 74 20 6d 69 6e 67 77 20 72 65 6c 65 61 73  ent mingw releas
16b0: 65 29 20 68 61 76 65 20 61 20 62 72 6f 6b 65 6e  e) have a broken
16c0: 20 22 66 69 6c 65 20 63 6f 70 79 22 20 63 6f 6d   "file copy" com
16d0: 6d 61 6e 64 2e 0a 23 0a 70 72 6f 63 20 63 6f 70  mand..#.proc cop
16e0: 79 5f 66 69 6c 65 20 7b 66 72 6f 6d 20 74 6f 7d  y_file {from to}
16f0: 20 7b 0a 20 20 64 6f 5f 63 6f 70 79 5f 66 69 6c   {.  do_copy_fil
1700: 65 20 66 61 6c 73 65 20 24 66 72 6f 6d 20 24 74  e false $from $t
1710: 6f 0a 7d 0a 0a 70 72 6f 63 20 66 6f 72 63 65 63  o.}..proc forcec
1720: 6f 70 79 20 7b 66 72 6f 6d 20 74 6f 7d 20 7b 0a  opy {from to} {.
1730: 20 20 64 6f 5f 63 6f 70 79 5f 66 69 6c 65 20 74    do_copy_file t
1740: 72 75 65 20 24 66 72 6f 6d 20 24 74 6f 0a 7d 0a  rue $from $to.}.
1750: 0a 70 72 6f 63 20 64 6f 5f 63 6f 70 79 5f 66 69  .proc do_copy_fi
1760: 6c 65 20 7b 66 6f 72 63 65 20 66 72 6f 6d 20 74  le {force from t
1770: 6f 7d 20 7b 0a 20 20 73 65 74 20 6e 52 65 74 72  o} {.  set nRetr
1780: 79 20 5b 67 65 74 46 69 6c 65 52 65 74 72 69 65  y [getFileRetrie
1790: 73 5d 20 20 20 20 20 3b 23 20 4d 61 78 69 6d 75  s]     ;# Maximu
17a0: 6d 20 6e 75 6d 62 65 72 20 6f 66 20 72 65 74 72  m number of retr
17b0: 69 65 73 2e 0a 20 20 73 65 74 20 6e 44 65 6c 61  ies..  set nDela
17c0: 79 20 5b 67 65 74 46 69 6c 65 52 65 74 72 79 44  y [getFileRetryD
17d0: 65 6c 61 79 5d 20 20 3b 23 20 44 65 6c 61 79 20  elay]  ;# Delay 
17e0: 69 6e 20 6d 73 20 62 65 66 6f 72 65 20 72 65 74  in ms before ret
17f0: 72 79 69 6e 67 2e 0a 0a 20 20 23 20 4f 6e 20 77  rying...  # On w
1800: 69 6e 64 6f 77 73 2c 20 73 6f 6d 65 74 69 6d 65  indows, sometime
1810: 73 20 65 76 65 6e 20 61 20 5b 66 69 6c 65 20 63  s even a [file c
1820: 6f 70 79 20 2d 66 6f 72 63 65 5d 20 63 61 6e 20  opy -force] can 
1830: 66 61 69 6c 2e 20 54 68 65 20 63 61 75 73 65 20  fail. The cause 
1840: 69 73 0a 20 20 23 20 75 73 75 61 6c 6c 79 20 22  is.  # usually "
1850: 74 61 67 2d 61 6c 6f 6e 67 73 22 20 2d 20 70 72  tag-alongs" - pr
1860: 6f 67 72 61 6d 73 20 6c 69 6b 65 20 61 6e 74 69  ograms like anti
1870: 2d 76 69 72 75 73 20 73 6f 66 74 77 61 72 65 2c  -virus software,
1880: 20 61 75 74 6f 6d 61 74 69 63 20 62 61 63 6b 75   automatic backu
1890: 70 0a 20 20 23 20 74 6f 6f 6c 73 20 61 6e 64 20  p.  # tools and 
18a0: 76 61 72 69 6f 75 73 20 65 78 70 6c 6f 72 65 72  various explorer
18b0: 20 65 78 74 65 6e 73 69 6f 6e 73 20 74 68 61 74   extensions that
18c0: 20 6b 65 65 70 20 61 20 66 69 6c 65 20 6f 70 65   keep a file ope
18d0: 6e 20 61 20 6c 69 74 74 6c 65 20 6c 6f 6e 67 65  n a little longe
18e0: 72 0a 20 20 23 20 74 68 61 6e 20 77 65 20 65 78  r.  # than we ex
18f0: 70 65 63 74 2c 20 63 61 75 73 69 6e 67 20 74 68  pect, causing th
1900: 65 20 64 65 6c 65 74 65 20 74 6f 20 66 61 69 6c  e delete to fail
1910: 2e 0a 20 20 23 0a 20 20 23 20 54 68 65 20 73 6f  ..  #.  # The so
1920: 6c 75 74 69 6f 6e 20 69 73 20 74 6f 20 77 61 69  lution is to wai
1930: 74 20 61 20 73 68 6f 72 74 20 61 6d 6f 75 6e 74  t a short amount
1940: 20 6f 66 20 74 69 6d 65 20 62 65 66 6f 72 65 20   of time before 
1950: 72 65 74 72 79 69 6e 67 20 74 68 65 20 63 6f 70  retrying the cop
1960: 79 2e 0a 20 20 23 0a 20 20 69 66 20 7b 24 6e 52  y..  #.  if {$nR
1970: 65 74 72 79 20 3e 20 30 7d 20 7b 0a 20 20 20 20  etry > 0} {.    
1980: 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24  for {set i 0} {$
1990: 69 3c 24 6e 52 65 74 72 79 7d 20 7b 69 6e 63 72  i<$nRetry} {incr
19a0: 20 69 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20   i} {.      set 
19b0: 72 63 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20  rc [catch {.    
19c0: 20 20 20 20 69 66 20 7b 24 66 6f 72 63 65 7d 20      if {$force} 
19d0: 7b 0a 20 20 20 20 20 20 20 20 20 20 66 69 6c 65  {.          file
19e0: 20 63 6f 70 79 20 2d 66 6f 72 63 65 20 24 66 72   copy -force $fr
19f0: 6f 6d 20 24 74 6f 0a 20 20 20 20 20 20 20 20 7d  om $to.        }
1a00: 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20   else {.        
1a10: 20 20 66 69 6c 65 20 63 6f 70 79 20 24 66 72 6f    file copy $fro
1a20: 6d 20 24 74 6f 0a 20 20 20 20 20 20 20 20 7d 0a  m $to.        }.
1a30: 20 20 20 20 20 20 7d 20 6d 73 67 5d 0a 20 20 20        } msg].   
1a40: 20 20 20 69 66 20 7b 24 72 63 3d 3d 30 7d 20 62     if {$rc==0} b
1a50: 72 65 61 6b 0a 20 20 20 20 20 20 69 66 20 7b 24  reak.      if {$
1a60: 6e 44 65 6c 61 79 20 3e 20 30 7d 20 7b 20 61 66  nDelay > 0} { af
1a70: 74 65 72 20 24 6e 44 65 6c 61 79 20 7d 0a 20 20  ter $nDelay }.  
1a80: 20 20 7d 0a 20 20 20 20 69 66 20 7b 24 72 63 7d    }.    if {$rc}
1a90: 20 7b 20 65 72 72 6f 72 20 24 6d 73 67 20 7d 0a   { error $msg }.
1aa0: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 69    } else {.    i
1ab0: 66 20 7b 24 66 6f 72 63 65 7d 20 7b 0a 20 20 20  f {$force} {.   
1ac0: 20 20 20 66 69 6c 65 20 63 6f 70 79 20 2d 66 6f     file copy -fo
1ad0: 72 63 65 20 24 66 72 6f 6d 20 24 74 6f 0a 20 20  rce $from $to.  
1ae0: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20    } else {.     
1af0: 20 66 69 6c 65 20 63 6f 70 79 20 24 66 72 6f 6d   file copy $from
1b00: 20 24 74 6f 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d   $to.    }.  }.}
1b10: 0a 0a 23 20 43 68 65 63 6b 20 69 66 20 61 20 66  ..# Check if a f
1b20: 69 6c 65 20 6e 61 6d 65 20 69 73 20 72 65 6c 61  ile name is rela
1b30: 74 69 76 65 0a 23 0a 70 72 6f 63 20 69 73 5f 72  tive.#.proc is_r
1b40: 65 6c 61 74 69 76 65 5f 66 69 6c 65 20 7b 20 66  elative_file { f
1b50: 69 6c 65 20 7d 20 7b 0a 20 20 72 65 74 75 72 6e  ile } {.  return
1b60: 20 5b 65 78 70 72 20 7b 5b 66 69 6c 65 20 70 61   [expr {[file pa
1b70: 74 68 74 79 70 65 20 24 66 69 6c 65 5d 20 21 3d  thtype $file] !=
1b80: 20 22 61 62 73 6f 6c 75 74 65 22 7d 5d 0a 7d 0a   "absolute"}].}.
1b90: 0a 23 20 49 66 20 74 68 65 20 56 46 53 20 73 75  .# If the VFS su
1ba0: 70 70 6f 72 74 73 20 75 73 69 6e 67 20 74 68 65  pports using the
1bb0: 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f   current directo
1bc0: 72 79 2c 20 72 65 74 75 72 6e 73 20 5b 70 77 64  ry, returns [pwd
1bd0: 5d 3b 0a 23 20 6f 74 68 65 72 77 69 73 65 2c 20  ];.# otherwise, 
1be0: 69 74 20 72 65 74 75 72 6e 73 20 6f 6e 6c 79 20  it returns only 
1bf0: 74 68 65 20 70 72 6f 76 69 64 65 64 20 73 75 66  the provided suf
1c00: 66 69 78 20 73 74 72 69 6e 67 20 28 77 68 69 63  fix string (whic
1c10: 68 20 69 73 0a 23 20 65 6d 70 74 79 20 62 79 20  h is.# empty by 
1c20: 64 65 66 61 75 6c 74 29 2e 0a 23 0a 70 72 6f 63  default)..#.proc
1c30: 20 74 65 73 74 5f 70 77 64 20 7b 20 61 72 67 73   test_pwd { args
1c40: 20 7d 20 7b 0a 20 20 69 66 20 7b 5b 6c 6c 65 6e   } {.  if {[llen
1c50: 67 74 68 20 24 61 72 67 73 5d 20 3e 20 30 7d 20  gth $args] > 0} 
1c60: 7b 0a 20 20 20 20 73 65 74 20 73 75 66 66 69 78  {.    set suffix
1c70: 31 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20  1 [lindex $args 
1c80: 30 5d 0a 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e  0].    if {[llen
1c90: 67 74 68 20 24 61 72 67 73 5d 20 3e 20 31 7d 20  gth $args] > 1} 
1ca0: 7b 0a 20 20 20 20 20 20 73 65 74 20 73 75 66 66  {.      set suff
1cb0: 69 78 32 20 5b 6c 69 6e 64 65 78 20 24 61 72 67  ix2 [lindex $arg
1cc0: 73 20 31 5d 0a 20 20 20 20 7d 20 65 6c 73 65 20  s 1].    } else 
1cd0: 7b 0a 20 20 20 20 20 20 73 65 74 20 73 75 66 66  {.      set suff
1ce0: 69 78 32 20 24 73 75 66 66 69 78 31 0a 20 20 20  ix2 $suffix1.   
1cf0: 20 7d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20   }.  } else {.  
1d00: 20 20 73 65 74 20 73 75 66 66 69 78 31 20 22 22    set suffix1 ""
1d10: 3b 20 73 65 74 20 73 75 66 66 69 78 32 20 22 22  ; set suffix2 ""
1d20: 0a 20 20 7d 0a 20 20 69 66 63 61 70 61 62 6c 65  .  }.  ifcapable
1d30: 20 63 75 72 64 69 72 20 7b 0a 20 20 20 20 72 65   curdir {.    re
1d40: 74 75 72 6e 20 22 5b 67 65 74 5f 70 77 64 5d 24  turn "[get_pwd]$
1d50: 73 75 66 66 69 78 31 22 0a 20 20 7d 20 65 6c 73  suffix1".  } els
1d60: 65 20 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 24  e {.    return $
1d70: 73 75 66 66 69 78 32 0a 20 20 7d 0a 7d 0a 0a 23  suffix2.  }.}..#
1d80: 20 44 65 6c 65 74 65 20 61 20 66 69 6c 65 20 6f   Delete a file o
1d90: 72 20 64 69 72 65 63 74 6f 72 79 0a 23 0a 70 72  r directory.#.pr
1da0: 6f 63 20 64 65 6c 65 74 65 5f 66 69 6c 65 20 7b  oc delete_file {
1db0: 61 72 67 73 7d 20 7b 0a 20 20 64 6f 5f 64 65 6c  args} {.  do_del
1dc0: 65 74 65 5f 66 69 6c 65 20 66 61 6c 73 65 20 7b  ete_file false {
1dd0: 2a 7d 24 61 72 67 73 0a 7d 0a 0a 70 72 6f 63 20  *}$args.}..proc 
1de0: 66 6f 72 63 65 64 65 6c 65 74 65 20 7b 61 72 67  forcedelete {arg
1df0: 73 7d 20 7b 0a 20 20 64 6f 5f 64 65 6c 65 74 65  s} {.  do_delete
1e00: 5f 66 69 6c 65 20 74 72 75 65 20 7b 2a 7d 24 61  _file true {*}$a
1e10: 72 67 73 0a 7d 0a 0a 70 72 6f 63 20 64 6f 5f 64  rgs.}..proc do_d
1e20: 65 6c 65 74 65 5f 66 69 6c 65 20 7b 66 6f 72 63  elete_file {forc
1e30: 65 20 61 72 67 73 7d 20 7b 0a 20 20 73 65 74 20  e args} {.  set 
1e40: 6e 52 65 74 72 79 20 5b 67 65 74 46 69 6c 65 52  nRetry [getFileR
1e50: 65 74 72 69 65 73 5d 20 20 20 20 20 3b 23 20 4d  etries]     ;# M
1e60: 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66  aximum number of
1e70: 20 72 65 74 72 69 65 73 2e 0a 20 20 73 65 74 20   retries..  set 
1e80: 6e 44 65 6c 61 79 20 5b 67 65 74 46 69 6c 65 52  nDelay [getFileR
1e90: 65 74 72 79 44 65 6c 61 79 5d 20 20 3b 23 20 44  etryDelay]  ;# D
1ea0: 65 6c 61 79 20 69 6e 20 6d 73 20 62 65 66 6f 72  elay in ms befor
1eb0: 65 20 72 65 74 72 79 69 6e 67 2e 0a 0a 20 20 66  e retrying...  f
1ec0: 6f 72 65 61 63 68 20 66 69 6c 65 6e 61 6d 65 20  oreach filename 
1ed0: 24 61 72 67 73 20 7b 0a 20 20 20 20 23 20 4f 6e  $args {.    # On
1ee0: 20 77 69 6e 64 6f 77 73 2c 20 73 6f 6d 65 74 69   windows, someti
1ef0: 6d 65 73 20 65 76 65 6e 20 61 20 5b 66 69 6c 65  mes even a [file
1f00: 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 5d 20   delete -force] 
1f10: 63 61 6e 20 66 61 69 6c 20 6a 75 73 74 20 61 66  can fail just af
1f20: 74 65 72 0a 20 20 20 20 23 20 61 20 66 69 6c 65  ter.    # a file
1f30: 20 69 73 20 63 6c 6f 73 65 64 2e 20 54 68 65 20   is closed. The 
1f40: 63 61 75 73 65 20 69 73 20 75 73 75 61 6c 6c 79  cause is usually
1f50: 20 22 74 61 67 2d 61 6c 6f 6e 67 73 22 20 2d 20   "tag-alongs" - 
1f60: 70 72 6f 67 72 61 6d 73 20 6c 69 6b 65 0a 20 20  programs like.  
1f70: 20 20 23 20 61 6e 74 69 2d 76 69 72 75 73 20 73    # anti-virus s
1f80: 6f 66 74 77 61 72 65 2c 20 61 75 74 6f 6d 61 74  oftware, automat
1f90: 69 63 20 62 61 63 6b 75 70 20 74 6f 6f 6c 73 20  ic backup tools 
1fa0: 61 6e 64 20 76 61 72 69 6f 75 73 20 65 78 70 6c  and various expl
1fb0: 6f 72 65 72 0a 20 20 20 20 23 20 65 78 74 65 6e  orer.    # exten
1fc0: 73 69 6f 6e 73 20 74 68 61 74 20 6b 65 65 70 20  sions that keep 
1fd0: 61 20 66 69 6c 65 20 6f 70 65 6e 20 61 20 6c 69  a file open a li
1fe0: 74 74 6c 65 20 6c 6f 6e 67 65 72 20 74 68 61 6e  ttle longer than
1ff0: 20 77 65 20 65 78 70 65 63 74 2c 20 63 61 75 73   we expect, caus
2000: 69 6e 67 0a 20 20 20 20 23 20 74 68 65 20 64 65  ing.    # the de
2010: 6c 65 74 65 20 74 6f 20 66 61 69 6c 2e 0a 20 20  lete to fail..  
2020: 20 20 23 0a 20 20 20 20 23 20 54 68 65 20 73 6f    #.    # The so
2030: 6c 75 74 69 6f 6e 20 69 73 20 74 6f 20 77 61 69  lution is to wai
2040: 74 20 61 20 73 68 6f 72 74 20 61 6d 6f 75 6e 74  t a short amount
2050: 20 6f 66 20 74 69 6d 65 20 62 65 66 6f 72 65 20   of time before 
2060: 72 65 74 72 79 69 6e 67 20 74 68 65 0a 20 20 20  retrying the.   
2070: 20 23 20 64 65 6c 65 74 65 2e 0a 20 20 20 20 23   # delete..    #
2080: 0a 20 20 20 20 69 66 20 7b 24 6e 52 65 74 72 79  .    if {$nRetry
2090: 20 3e 20 30 7d 20 7b 0a 20 20 20 20 20 20 66 6f   > 0} {.      fo
20a0: 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 3c  r {set i 0} {$i<
20b0: 24 6e 52 65 74 72 79 7d 20 7b 69 6e 63 72 20 69  $nRetry} {incr i
20c0: 7d 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20  } {.        set 
20d0: 72 63 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20  rc [catch {.    
20e0: 20 20 20 20 20 20 69 66 20 7b 24 66 6f 72 63 65        if {$force
20f0: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  } {.            
2100: 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72  file delete -for
2110: 63 65 20 24 66 69 6c 65 6e 61 6d 65 0a 20 20 20  ce $filename.   
2120: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a         } else {.
2130: 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65              file
2140: 20 64 65 6c 65 74 65 20 24 66 69 6c 65 6e 61 6d   delete $filenam
2150: 65 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20  e.          }.  
2160: 20 20 20 20 20 20 7d 20 6d 73 67 5d 0a 20 20 20        } msg].   
2170: 20 20 20 20 20 69 66 20 7b 24 72 63 3d 3d 30 7d       if {$rc==0}
2180: 20 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 69   break.        i
2190: 66 20 7b 24 6e 44 65 6c 61 79 20 3e 20 30 7d 20  f {$nDelay > 0} 
21a0: 7b 20 61 66 74 65 72 20 24 6e 44 65 6c 61 79 20  { after $nDelay 
21b0: 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  }.      }.      
21c0: 69 66 20 7b 24 72 63 7d 20 7b 20 65 72 72 6f 72  if {$rc} { error
21d0: 20 24 6d 73 67 20 7d 0a 20 20 20 20 7d 20 65 6c   $msg }.    } el
21e0: 73 65 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 24  se {.      if {$
21f0: 66 6f 72 63 65 7d 20 7b 0a 20 20 20 20 20 20 20  force} {.       
2200: 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f   file delete -fo
2210: 72 63 65 20 24 66 69 6c 65 6e 61 6d 65 0a 20 20  rce $filename.  
2220: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20      } else {.   
2230: 20 20 20 20 20 66 69 6c 65 20 64 65 6c 65 74 65       file delete
2240: 20 24 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20   $filename.     
2250: 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a   }.    }.  }.}..
2260: 69 66 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61 74 66  if {$::tcl_platf
2270: 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 20 65 71  orm(platform) eq
2280: 20 22 77 69 6e 64 6f 77 73 22 7d 20 7b 0a 20 20   "windows"} {.  
2290: 70 72 6f 63 20 64 6f 5f 72 65 6d 6f 76 65 5f 77  proc do_remove_w
22a0: 69 6e 33 32 5f 64 69 72 20 7b 61 72 67 73 7d 20  in32_dir {args} 
22b0: 7b 0a 20 20 20 20 73 65 74 20 6e 52 65 74 72 79  {.    set nRetry
22c0: 20 5b 67 65 74 46 69 6c 65 52 65 74 72 69 65 73   [getFileRetries
22d0: 5d 20 20 20 20 20 3b 23 20 4d 61 78 69 6d 75 6d  ]     ;# Maximum
22e0: 20 6e 75 6d 62 65 72 20 6f 66 20 72 65 74 72 69   number of retri
22f0: 65 73 2e 0a 20 20 20 20 73 65 74 20 6e 44 65 6c  es..    set nDel
2300: 61 79 20 5b 67 65 74 46 69 6c 65 52 65 74 72 79  ay [getFileRetry
2310: 44 65 6c 61 79 5d 20 20 3b 23 20 44 65 6c 61 79  Delay]  ;# Delay
2320: 20 69 6e 20 6d 73 20 62 65 66 6f 72 65 20 72 65   in ms before re
2330: 74 72 79 69 6e 67 2e 0a 0a 20 20 20 20 66 6f 72  trying...    for
2340: 65 61 63 68 20 64 69 72 4e 61 6d 65 20 24 61 72  each dirName $ar
2350: 67 73 20 7b 0a 20 20 20 20 20 20 23 20 4f 6e 20  gs {.      # On 
2360: 77 69 6e 64 6f 77 73 2c 20 73 6f 6d 65 74 69 6d  windows, sometim
2370: 65 73 20 65 76 65 6e 20 61 20 5b 72 65 6d 6f 76  es even a [remov
2380: 65 5f 77 69 6e 33 32 5f 64 69 72 5d 20 63 61 6e  e_win32_dir] can
2390: 20 66 61 69 6c 20 6a 75 73 74 20 61 66 74 65 72   fail just after
23a0: 0a 20 20 20 20 20 20 23 20 61 20 64 69 72 65 63  .      # a direc
23b0: 74 6f 72 79 20 69 73 20 65 6d 70 74 69 65 64 2e  tory is emptied.
23c0: 20 54 68 65 20 63 61 75 73 65 20 69 73 20 75 73   The cause is us
23d0: 75 61 6c 6c 79 20 22 74 61 67 2d 61 6c 6f 6e 67  ually "tag-along
23e0: 73 22 20 2d 20 70 72 6f 67 72 61 6d 73 0a 20 20  s" - programs.  
23f0: 20 20 20 20 23 20 6c 69 6b 65 20 61 6e 74 69 2d      # like anti-
2400: 76 69 72 75 73 20 73 6f 66 74 77 61 72 65 2c 20  virus software, 
2410: 61 75 74 6f 6d 61 74 69 63 20 62 61 63 6b 75 70  automatic backup
2420: 20 74 6f 6f 6c 73 20 61 6e 64 20 76 61 72 69 6f   tools and vario
2430: 75 73 20 65 78 70 6c 6f 72 65 72 0a 20 20 20 20  us explorer.    
2440: 20 20 23 20 65 78 74 65 6e 73 69 6f 6e 73 20 74    # extensions t
2450: 68 61 74 20 6b 65 65 70 20 61 20 66 69 6c 65 20  hat keep a file 
2460: 6f 70 65 6e 20 61 20 6c 69 74 74 6c 65 20 6c 6f  open a little lo
2470: 6e 67 65 72 20 74 68 61 6e 20 77 65 20 65 78 70  nger than we exp
2480: 65 63 74 2c 0a 20 20 20 20 20 20 23 20 63 61 75  ect,.      # cau
2490: 73 69 6e 67 20 74 68 65 20 64 65 6c 65 74 65 20  sing the delete 
24a0: 74 6f 20 66 61 69 6c 2e 0a 20 20 20 20 20 20 23  to fail..      #
24b0: 0a 20 20 20 20 20 20 23 20 54 68 65 20 73 6f 6c  .      # The sol
24c0: 75 74 69 6f 6e 20 69 73 20 74 6f 20 77 61 69 74  ution is to wait
24d0: 20 61 20 73 68 6f 72 74 20 61 6d 6f 75 6e 74 20   a short amount 
24e0: 6f 66 20 74 69 6d 65 20 62 65 66 6f 72 65 20 72  of time before r
24f0: 65 74 72 79 69 6e 67 20 74 68 65 0a 20 20 20 20  etrying the.    
2500: 20 20 23 20 72 65 6d 6f 76 61 6c 2e 0a 20 20 20    # removal..   
2510: 20 20 20 23 0a 20 20 20 20 20 20 69 66 20 7b 24     #.      if {$
2520: 6e 52 65 74 72 79 20 3e 20 30 7d 20 7b 0a 20 20  nRetry > 0} {.  
2530: 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69        for {set i
2540: 20 30 7d 20 7b 24 69 20 3c 20 24 6e 52 65 74 72   0} {$i < $nRetr
2550: 79 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20  y} {incr i} {.  
2560: 20 20 20 20 20 20 20 20 73 65 74 20 72 63 20 5b          set rc [
2570: 63 61 74 63 68 20 7b 0a 20 20 20 20 20 20 20 20  catch {.        
2580: 20 20 20 20 72 65 6d 6f 76 65 5f 77 69 6e 33 32      remove_win32
2590: 5f 64 69 72 20 24 64 69 72 4e 61 6d 65 0a 20 20  _dir $dirName.  
25a0: 20 20 20 20 20 20 20 20 7d 20 6d 73 67 5d 0a 20          } msg]. 
25b0: 20 20 20 20 20 20 20 20 20 69 66 20 7b 24 72 63           if {$rc
25c0: 20 3d 3d 20 30 7d 20 62 72 65 61 6b 0a 20 20 20   == 0} break.   
25d0: 20 20 20 20 20 20 20 69 66 20 7b 24 6e 44 65 6c         if {$nDel
25e0: 61 79 20 3e 20 30 7d 20 7b 20 61 66 74 65 72 20  ay > 0} { after 
25f0: 24 6e 44 65 6c 61 79 20 7d 0a 20 20 20 20 20 20  $nDelay }.      
2600: 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 20 7b    }.        if {
2610: 24 72 63 7d 20 7b 20 65 72 72 6f 72 20 24 6d 73  $rc} { error $ms
2620: 67 20 7d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65  g }.      } else
2630: 20 7b 0a 20 20 20 20 20 20 20 20 72 65 6d 6f 76   {.        remov
2640: 65 5f 77 69 6e 33 32 5f 64 69 72 20 24 64 69 72  e_win32_dir $dir
2650: 4e 61 6d 65 0a 20 20 20 20 20 20 7d 0a 20 20 20  Name.      }.   
2660: 20 7d 0a 20 20 7d 0a 0a 20 20 70 72 6f 63 20 64   }.  }..  proc d
2670: 6f 5f 64 65 6c 65 74 65 5f 77 69 6e 33 32 5f 66  o_delete_win32_f
2680: 69 6c 65 20 7b 61 72 67 73 7d 20 7b 0a 20 20 20  ile {args} {.   
2690: 20 73 65 74 20 6e 52 65 74 72 79 20 5b 67 65 74   set nRetry [get
26a0: 46 69 6c 65 52 65 74 72 69 65 73 5d 20 20 20 20  FileRetries]    
26b0: 20 3b 23 20 4d 61 78 69 6d 75 6d 20 6e 75 6d 62   ;# Maximum numb
26c0: 65 72 20 6f 66 20 72 65 74 72 69 65 73 2e 0a 20  er of retries.. 
26d0: 20 20 20 73 65 74 20 6e 44 65 6c 61 79 20 5b 67     set nDelay [g
26e0: 65 74 46 69 6c 65 52 65 74 72 79 44 65 6c 61 79  etFileRetryDelay
26f0: 5d 20 20 3b 23 20 44 65 6c 61 79 20 69 6e 20 6d  ]  ;# Delay in m
2700: 73 20 62 65 66 6f 72 65 20 72 65 74 72 79 69 6e  s before retryin
2710: 67 2e 0a 0a 20 20 20 20 66 6f 72 65 61 63 68 20  g...    foreach 
2720: 66 69 6c 65 4e 61 6d 65 20 24 61 72 67 73 20 7b  fileName $args {
2730: 0a 20 20 20 20 20 20 23 20 4f 6e 20 77 69 6e 64  .      # On wind
2740: 6f 77 73 2c 20 73 6f 6d 65 74 69 6d 65 73 20 65  ows, sometimes e
2750: 76 65 6e 20 61 20 5b 64 65 6c 65 74 65 5f 77 69  ven a [delete_wi
2760: 6e 33 32 5f 66 69 6c 65 5d 20 63 61 6e 20 66 61  n32_file] can fa
2770: 69 6c 20 6a 75 73 74 20 61 66 74 65 72 0a 20 20  il just after.  
2780: 20 20 20 20 23 20 61 20 66 69 6c 65 20 69 73 20      # a file is 
2790: 63 6c 6f 73 65 64 2e 20 54 68 65 20 63 61 75 73  closed. The caus
27a0: 65 20 69 73 20 75 73 75 61 6c 6c 79 20 22 74 61  e is usually "ta
27b0: 67 2d 61 6c 6f 6e 67 73 22 20 2d 20 70 72 6f 67  g-alongs" - prog
27c0: 72 61 6d 73 20 6c 69 6b 65 0a 20 20 20 20 20 20  rams like.      
27d0: 23 20 61 6e 74 69 2d 76 69 72 75 73 20 73 6f 66  # anti-virus sof
27e0: 74 77 61 72 65 2c 20 61 75 74 6f 6d 61 74 69 63  tware, automatic
27f0: 20 62 61 63 6b 75 70 20 74 6f 6f 6c 73 20 61 6e   backup tools an
2800: 64 20 76 61 72 69 6f 75 73 20 65 78 70 6c 6f 72  d various explor
2810: 65 72 0a 20 20 20 20 20 20 23 20 65 78 74 65 6e  er.      # exten
2820: 73 69 6f 6e 73 20 74 68 61 74 20 6b 65 65 70 20  sions that keep 
2830: 61 20 66 69 6c 65 20 6f 70 65 6e 20 61 20 6c 69  a file open a li
2840: 74 74 6c 65 20 6c 6f 6e 67 65 72 20 74 68 61 6e  ttle longer than
2850: 20 77 65 20 65 78 70 65 63 74 2c 0a 20 20 20 20   we expect,.    
2860: 20 20 23 20 63 61 75 73 69 6e 67 20 74 68 65 20    # causing the 
2870: 64 65 6c 65 74 65 20 74 6f 20 66 61 69 6c 2e 0a  delete to fail..
2880: 20 20 20 20 20 20 23 0a 20 20 20 20 20 20 23 20        #.      # 
2890: 54 68 65 20 73 6f 6c 75 74 69 6f 6e 20 69 73 20  The solution is 
28a0: 74 6f 20 77 61 69 74 20 61 20 73 68 6f 72 74 20  to wait a short 
28b0: 61 6d 6f 75 6e 74 20 6f 66 20 74 69 6d 65 20 62  amount of time b
28c0: 65 66 6f 72 65 20 72 65 74 72 79 69 6e 67 20 74  efore retrying t
28d0: 68 65 0a 20 20 20 20 20 20 23 20 64 65 6c 65 74  he.      # delet
28e0: 65 2e 0a 20 20 20 20 20 20 23 0a 20 20 20 20 20  e..      #.     
28f0: 20 69 66 20 7b 24 6e 52 65 74 72 79 20 3e 20 30   if {$nRetry > 0
2900: 7d 20 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 20  } {.        for 
2910: 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 20 3c 20  {set i 0} {$i < 
2920: 24 6e 52 65 74 72 79 7d 20 7b 69 6e 63 72 20 69  $nRetry} {incr i
2930: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 73 65  } {.          se
2940: 74 20 72 63 20 5b 63 61 74 63 68 20 7b 0a 20 20  t rc [catch {.  
2950: 20 20 20 20 20 20 20 20 20 20 64 65 6c 65 74 65            delete
2960: 5f 77 69 6e 33 32 5f 66 69 6c 65 20 24 66 69 6c  _win32_file $fil
2970: 65 4e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20  eName.          
2980: 7d 20 6d 73 67 5d 0a 20 20 20 20 20 20 20 20 20  } msg].         
2990: 20 69 66 20 7b 24 72 63 20 3d 3d 20 30 7d 20 62   if {$rc == 0} b
29a0: 72 65 61 6b 0a 20 20 20 20 20 20 20 20 20 20 69  reak.          i
29b0: 66 20 7b 24 6e 44 65 6c 61 79 20 3e 20 30 7d 20  f {$nDelay > 0} 
29c0: 7b 20 61 66 74 65 72 20 24 6e 44 65 6c 61 79 20  { after $nDelay 
29d0: 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  }.        }.    
29e0: 20 20 20 20 69 66 20 7b 24 72 63 7d 20 7b 20 65      if {$rc} { e
29f0: 72 72 6f 72 20 24 6d 73 67 20 7d 0a 20 20 20 20  rror $msg }.    
2a00: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20    } else {.     
2a10: 20 20 20 64 65 6c 65 74 65 5f 77 69 6e 33 32 5f     delete_win32_
2a20: 66 69 6c 65 20 24 66 69 6c 65 4e 61 6d 65 0a 20  file $fileName. 
2a30: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d       }.    }.  }
2a40: 0a 7d 0a 0a 70 72 6f 63 20 65 78 65 63 70 72 65  .}..proc execpre
2a50: 73 71 6c 20 7b 68 61 6e 64 6c 65 20 61 72 67 73  sql {handle args
2a60: 7d 20 7b 0a 20 20 74 72 61 63 65 20 72 65 6d 6f  } {.  trace remo
2a70: 76 65 20 65 78 65 63 75 74 69 6f 6e 20 24 68 61  ve execution $ha
2a80: 6e 64 6c 65 20 65 6e 74 65 72 20 5b 6c 69 73 74  ndle enter [list
2a90: 20 65 78 65 63 70 72 65 73 71 6c 20 24 68 61 6e   execpresql $han
2aa0: 64 6c 65 5d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f  dle].  if {[info
2ab0: 20 65 78 69 73 74 73 20 3a 3a 47 28 70 65 72 6d   exists ::G(perm
2ac0: 3a 70 72 65 73 71 6c 29 5d 7d 20 7b 0a 20 20 20  :presql)]} {.   
2ad0: 20 24 68 61 6e 64 6c 65 20 65 76 61 6c 20 24 3a   $handle eval $:
2ae0: 3a 47 28 70 65 72 6d 3a 70 72 65 73 71 6c 29 0a  :G(perm:presql).
2af0: 20 20 7d 0a 7d 0a 0a 23 20 54 68 69 73 20 63 6f    }.}..# This co
2b00: 6d 6d 61 6e 64 20 73 68 6f 75 6c 64 20 62 65 20  mmand should be 
2b10: 63 61 6c 6c 65 64 20 61 66 74 65 72 20 6c 6f 61  called after loa
2b20: 64 69 6e 67 20 74 65 73 74 65 72 2e 74 63 6c 20  ding tester.tcl 
2b30: 66 72 6f 6d 20 77 69 74 68 69 6e 0a 23 20 61 6c  from within.# al
2b40: 6c 20 74 65 73 74 20 73 63 72 69 70 74 73 20 74  l test scripts t
2b50: 68 61 74 20 61 72 65 20 69 6e 63 6f 6d 70 61 74  hat are incompat
2b60: 69 62 6c 65 20 77 69 74 68 20 65 6e 63 72 79 70  ible with encryp
2b70: 74 69 6f 6e 20 63 6f 64 65 63 73 2e 0a 23 0a 70  tion codecs..#.p
2b80: 72 6f 63 20 64 6f 5f 6e 6f 74 5f 75 73 65 5f 63  roc do_not_use_c
2b90: 6f 64 65 63 20 7b 7d 20 7b 0a 20 20 73 65 74 20  odec {} {.  set 
2ba0: 3a 3a 64 6f 5f 6e 6f 74 5f 75 73 65 5f 63 6f 64  ::do_not_use_cod
2bb0: 65 63 20 31 0a 20 20 72 65 73 65 74 5f 64 62 0a  ec 1.  reset_db.
2bc0: 7d 0a 0a 23 20 54 68 65 20 66 6f 6c 6c 6f 77 69  }..# The followi
2bd0: 6e 67 20 62 6c 6f 63 6b 20 6f 6e 6c 79 20 72 75  ng block only ru
2be0: 6e 73 20 74 68 65 20 66 69 72 73 74 20 74 69 6d  ns the first tim
2bf0: 65 20 74 68 69 73 20 66 69 6c 65 20 69 73 20 73  e this file is s
2c00: 6f 75 72 63 65 64 2e 20 49 74 0a 23 20 64 6f 65  ourced. It.# doe
2c10: 73 20 6e 6f 74 20 72 75 6e 20 69 6e 20 73 6c 61  s not run in sla
2c20: 76 65 20 69 6e 74 65 72 70 72 65 74 65 72 73 20  ve interpreters 
2c30: 28 73 69 6e 63 65 20 74 68 65 20 3a 3a 63 6d 64  (since the ::cmd
2c40: 6c 69 6e 65 61 72 67 20 61 72 72 61 79 20 69 73  linearg array is
2c50: 0a 23 20 70 6f 70 75 6c 61 74 65 64 20 62 65 66  .# populated bef
2c60: 6f 72 65 20 74 68 65 20 74 65 73 74 20 73 63 72  ore the test scr
2c70: 69 70 74 20 69 73 20 72 75 6e 20 69 6e 20 73 6c  ipt is run in sl
2c80: 61 76 65 20 69 6e 74 65 72 70 72 65 74 65 72 73  ave interpreters
2c90: 29 2e 0a 23 0a 69 66 20 7b 5b 69 6e 66 6f 20 65  )..#.if {[info e
2ca0: 78 69 73 74 73 20 63 6d 64 6c 69 6e 65 61 72 67  xists cmdlinearg
2cb0: 5d 3d 3d 30 7d 20 7b 0a 0a 20 20 23 20 50 61 72  ]==0} {..  # Par
2cc0: 73 65 20 61 6e 79 20 6f 70 74 69 6f 6e 73 20 73  se any options s
2cd0: 70 65 63 69 66 69 65 64 20 69 6e 20 74 68 65 20  pecified in the 
2ce0: 24 61 72 67 76 20 61 72 72 61 79 2e 20 54 68 69  $argv array. Thi
2cf0: 73 20 73 63 72 69 70 74 20 61 63 63 65 70 74 73  s script accepts
2d00: 20 74 68 65 0a 20 20 23 20 66 6f 6c 6c 6f 77 69   the.  # followi
2d10: 6e 67 20 6f 70 74 69 6f 6e 73 3a 0a 20 20 23 0a  ng options:.  #.
2d20: 20 20 23 20 20 20 2d 2d 70 61 75 73 65 0a 20 20    #   --pause.  
2d30: 23 20 20 20 2d 2d 73 6f 66 74 2d 68 65 61 70 2d  #   --soft-heap-
2d40: 6c 69 6d 69 74 3d 4e 4e 0a 20 20 23 20 20 20 2d  limit=NN.  #   -
2d50: 2d 6d 61 78 65 72 72 6f 72 3d 4e 4e 0a 20 20 23  -maxerror=NN.  #
2d60: 20 20 20 2d 2d 6d 61 6c 6c 6f 63 74 72 61 63 65     --malloctrace
2d70: 3d 4e 0a 20 20 23 20 20 20 2d 2d 62 61 63 6b 74  =N.  #   --backt
2d80: 72 61 63 65 3d 4e 0a 20 20 23 20 20 20 2d 2d 62  race=N.  #   --b
2d90: 69 6e 61 72 79 6c 6f 67 3d 4e 0a 20 20 23 20 20  inarylog=N.  #  
2da0: 20 2d 2d 73 6f 61 6b 3d 4e 0a 20 20 23 20 20 20   --soak=N.  #   
2db0: 2d 2d 66 69 6c 65 2d 72 65 74 72 69 65 73 3d 4e  --file-retries=N
2dc0: 0a 20 20 23 20 20 20 2d 2d 66 69 6c 65 2d 72 65  .  #   --file-re
2dd0: 74 72 79 2d 64 65 6c 61 79 3d 4e 0a 20 20 23 20  try-delay=N.  # 
2de0: 20 20 2d 2d 73 74 61 72 74 3d 5b 24 70 65 72 6d    --start=[$perm
2df0: 75 74 61 74 69 6f 6e 3a 5d 24 74 65 73 74 66 69  utation:]$testfi
2e00: 6c 65 0a 20 20 23 20 20 20 2d 2d 6d 61 74 63 68  le.  #   --match
2e10: 3d 24 70 61 74 74 65 72 6e 0a 20 20 23 20 20 20  =$pattern.  #   
2e20: 2d 2d 76 65 72 62 6f 73 65 3d 24 76 61 6c 0a 20  --verbose=$val. 
2e30: 20 23 20 20 20 2d 2d 6f 75 74 70 75 74 3d 24 66   #   --output=$f
2e40: 69 6c 65 6e 61 6d 65 0a 20 20 23 20 20 20 2d 2d  ilename.  #   --
2e50: 68 65 6c 70 0a 20 20 23 0a 20 20 73 65 74 20 63  help.  #.  set c
2e60: 6d 64 6c 69 6e 65 61 72 67 28 73 6f 66 74 2d 68  mdlinearg(soft-h
2e70: 65 61 70 2d 6c 69 6d 69 74 29 20 20 20 20 30 0a  eap-limit)    0.
2e80: 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67    set cmdlinearg
2e90: 28 6d 61 78 65 72 72 6f 72 29 20 20 20 20 20 20  (maxerror)      
2ea0: 20 20 31 30 30 30 0a 20 20 73 65 74 20 63 6d 64    1000.  set cmd
2eb0: 6c 69 6e 65 61 72 67 28 6d 61 6c 6c 6f 63 74 72  linearg(malloctr
2ec0: 61 63 65 29 20 20 20 20 20 20 20 20 30 0a 20 20  ace)        0.  
2ed0: 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 62  set cmdlinearg(b
2ee0: 61 63 6b 74 72 61 63 65 29 20 20 20 20 20 20 20  acktrace)       
2ef0: 20 20 31 30 0a 20 20 73 65 74 20 63 6d 64 6c 69    10.  set cmdli
2f00: 6e 65 61 72 67 28 62 69 6e 61 72 79 6c 6f 67 29  nearg(binarylog)
2f10: 20 20 20 20 20 20 20 20 20 20 30 0a 20 20 73 65            0.  se
2f20: 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 73 6f 61  t cmdlinearg(soa
2f30: 6b 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20  k)              
2f40: 20 30 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e 65   0.  set cmdline
2f50: 61 72 67 28 66 69 6c 65 2d 72 65 74 72 69 65 73  arg(file-retries
2f60: 29 20 20 20 20 20 20 20 30 0a 20 20 73 65 74 20  )       0.  set 
2f70: 63 6d 64 6c 69 6e 65 61 72 67 28 66 69 6c 65 2d  cmdlinearg(file-
2f80: 72 65 74 72 79 2d 64 65 6c 61 79 29 20 20 20 30  retry-delay)   0
2f90: 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72  .  set cmdlinear
2fa0: 67 28 73 74 61 72 74 29 20 20 20 20 20 20 20 20  g(start)        
2fb0: 20 20 20 20 20 22 22 0a 20 20 73 65 74 20 63 6d       "".  set cm
2fc0: 64 6c 69 6e 65 61 72 67 28 6d 61 74 63 68 29 20  dlinearg(match) 
2fd0: 20 20 20 20 20 20 20 20 20 20 20 20 22 22 0a 20              "". 
2fe0: 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 28   set cmdlinearg(
2ff0: 76 65 72 62 6f 73 65 29 20 20 20 20 20 20 20 20  verbose)        
3000: 20 20 20 22 22 0a 20 20 73 65 74 20 63 6d 64 6c     "".  set cmdl
3010: 69 6e 65 61 72 67 28 6f 75 74 70 75 74 29 20 20  inearg(output)  
3020: 20 20 20 20 20 20 20 20 20 20 22 22 0a 0a 20 20            ""..  
3030: 73 65 74 20 6c 65 66 74 6f 76 65 72 20 5b 6c 69  set leftover [li
3040: 73 74 5d 0a 20 20 66 6f 72 65 61 63 68 20 61 20  st].  foreach a 
3050: 24 61 72 67 76 20 7b 0a 20 20 20 20 73 77 69 74  $argv {.    swit
3060: 63 68 20 2d 72 65 67 65 78 70 20 2d 2d 20 24 61  ch -regexp -- $a
3070: 20 7b 0a 20 20 20 20 20 20 7b 5e 2d 2b 70 61 75   {.      {^-+pau
3080: 73 65 24 7d 20 7b 0a 20 20 20 20 20 20 20 20 23  se$} {.        #
3090: 20 57 61 69 74 20 66 6f 72 20 75 73 65 72 20 69   Wait for user i
30a0: 6e 70 75 74 20 62 65 66 6f 72 65 20 63 6f 6e 74  nput before cont
30b0: 69 6e 75 69 6e 67 2e 20 54 68 69 73 20 69 73 20  inuing. This is 
30c0: 74 6f 20 67 69 76 65 20 74 68 65 20 75 73 65 72  to give the user
30d0: 20 61 6e 0a 20 20 20 20 20 20 20 20 23 20 6f 70   an.        # op
30e0: 70 6f 72 74 75 6e 69 74 79 20 74 6f 20 63 6f 6e  portunity to con
30f0: 6e 65 63 74 20 70 72 6f 66 69 6c 69 6e 67 20 74  nect profiling t
3100: 6f 6f 6c 73 20 74 6f 20 74 68 65 20 70 72 6f 63  ools to the proc
3110: 65 73 73 2e 0a 20 20 20 20 20 20 20 20 70 75 74  ess..        put
3120: 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 22 50 72  s -nonewline "Pr
3130: 65 73 73 20 52 45 54 55 52 4e 20 74 6f 20 62 65  ess RETURN to be
3140: 67 69 6e 2e 2e 2e 22 0a 20 20 20 20 20 20 20 20  gin...".        
3150: 66 6c 75 73 68 20 73 74 64 6f 75 74 0a 20 20 20  flush stdout.   
3160: 20 20 20 20 20 67 65 74 73 20 73 74 64 69 6e 0a       gets stdin.
3170: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e        }.      {^
3180: 2d 2b 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69  -+soft-heap-limi
3190: 74 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20  t=.+$} {.       
31a0: 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79 20   foreach {dummy 
31b0: 63 6d 64 6c 69 6e 65 61 72 67 28 73 6f 66 74 2d  cmdlinearg(soft-
31c0: 68 65 61 70 2d 6c 69 6d 69 74 29 7d 20 5b 73 70  heap-limit)} [sp
31d0: 6c 69 74 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a  lit $a =] break.
31e0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e        }.      {^
31f0: 2d 2b 6d 61 78 65 72 72 6f 72 3d 2e 2b 24 7d 20  -+maxerror=.+$} 
3200: 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61 63  {.        foreac
3210: 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65  h {dummy cmdline
3220: 61 72 67 28 6d 61 78 65 72 72 6f 72 29 7d 20 5b  arg(maxerror)} [
3230: 73 70 6c 69 74 20 24 61 20 3d 5d 20 62 72 65 61  split $a =] brea
3240: 6b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  k.      }.      
3250: 7b 5e 2d 2b 6d 61 6c 6c 6f 63 74 72 61 63 65 3d  {^-+malloctrace=
3260: 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20 20 66  .+$} {.        f
3270: 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79 20 63 6d  oreach {dummy cm
3280: 64 6c 69 6e 65 61 72 67 28 6d 61 6c 6c 6f 63 74  dlinearg(malloct
3290: 72 61 63 65 29 7d 20 5b 73 70 6c 69 74 20 24 61  race)} [split $a
32a0: 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20 20 20   =] break.      
32b0: 20 20 69 66 20 7b 24 63 6d 64 6c 69 6e 65 61 72    if {$cmdlinear
32c0: 67 28 6d 61 6c 6c 6f 63 74 72 61 63 65 29 7d 20  g(malloctrace)} 
32d0: 7b 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c 69  {.          sqli
32e0: 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f 67  te3_memdebug_log
32f0: 20 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 7d   start.        }
3300: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b  .      }.      {
3310: 5e 2d 2b 62 61 63 6b 74 72 61 63 65 3d 2e 2b 24  ^-+backtrace=.+$
3320: 7d 20 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 65  } {.        fore
3330: 61 63 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69  ach {dummy cmdli
3340: 6e 65 61 72 67 28 62 61 63 6b 74 72 61 63 65 29  nearg(backtrace)
3350: 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20 62  } [split $a =] b
3360: 72 65 61 6b 0a 20 20 20 20 20 20 20 20 73 71 6c  reak.        sql
3370: 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 62 61  ite3_memdebug_ba
3380: 63 6b 74 72 61 63 65 20 24 76 61 6c 75 65 0a 20  cktrace $value. 
3390: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d       }.      {^-
33a0: 2b 62 69 6e 61 72 79 6c 6f 67 3d 2e 2b 24 7d 20  +binarylog=.+$} 
33b0: 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61 63  {.        foreac
33c0: 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65  h {dummy cmdline
33d0: 61 72 67 28 62 69 6e 61 72 79 6c 6f 67 29 7d 20  arg(binarylog)} 
33e0: 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20 62 72 65  [split $a =] bre
33f0: 61 6b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  ak.      }.     
3400: 20 7b 5e 2d 2b 73 6f 61 6b 3d 2e 2b 24 7d 20 7b   {^-+soak=.+$} {
3410: 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 68  .        foreach
3420: 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61   {dummy cmdlinea
3430: 72 67 28 73 6f 61 6b 29 7d 20 5b 73 70 6c 69 74  rg(soak)} [split
3440: 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20   $a =] break.   
3450: 20 20 20 20 20 73 65 74 20 3a 3a 47 28 69 73 73       set ::G(iss
3460: 6f 61 6b 29 20 24 63 6d 64 6c 69 6e 65 61 72 67  oak) $cmdlinearg
3470: 28 73 6f 61 6b 29 0a 20 20 20 20 20 20 7d 0a 20  (soak).      }. 
3480: 20 20 20 20 20 7b 5e 2d 2b 66 69 6c 65 2d 72 65       {^-+file-re
3490: 74 72 69 65 73 3d 2e 2b 24 7d 20 7b 0a 20 20 20  tries=.+$} {.   
34a0: 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64 75       foreach {du
34b0: 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 66  mmy cmdlinearg(f
34c0: 69 6c 65 2d 72 65 74 72 69 65 73 29 7d 20 5b 73  ile-retries)} [s
34d0: 70 6c 69 74 20 24 61 20 3d 5d 20 62 72 65 61 6b  plit $a =] break
34e0: 0a 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 47  .        set ::G
34f0: 28 66 69 6c 65 2d 72 65 74 72 69 65 73 29 20 24  (file-retries) $
3500: 63 6d 64 6c 69 6e 65 61 72 67 28 66 69 6c 65 2d  cmdlinearg(file-
3510: 72 65 74 72 69 65 73 29 0a 20 20 20 20 20 20 7d  retries).      }
3520: 0a 20 20 20 20 20 20 7b 5e 2d 2b 66 69 6c 65 2d  .      {^-+file-
3530: 72 65 74 72 79 2d 64 65 6c 61 79 3d 2e 2b 24 7d  retry-delay=.+$}
3540: 20 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61   {.        forea
3550: 63 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e  ch {dummy cmdlin
3560: 65 61 72 67 28 66 69 6c 65 2d 72 65 74 72 79 2d  earg(file-retry-
3570: 64 65 6c 61 79 29 7d 20 5b 73 70 6c 69 74 20 24  delay)} [split $
3580: 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20 20  a =] break.     
3590: 20 20 20 73 65 74 20 3a 3a 47 28 66 69 6c 65 2d     set ::G(file-
35a0: 72 65 74 72 79 2d 64 65 6c 61 79 29 20 24 63 6d  retry-delay) $cm
35b0: 64 6c 69 6e 65 61 72 67 28 66 69 6c 65 2d 72 65  dlinearg(file-re
35c0: 74 72 79 2d 64 65 6c 61 79 29 0a 20 20 20 20 20  try-delay).     
35d0: 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 73 74 61   }.      {^-+sta
35e0: 72 74 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20  rt=.+$} {.      
35f0: 20 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79    foreach {dummy
3600: 20 63 6d 64 6c 69 6e 65 61 72 67 28 73 74 61 72   cmdlinearg(star
3610: 74 29 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d  t)} [split $a =]
3620: 20 62 72 65 61 6b 0a 0a 20 20 20 20 20 20 20 20   break..        
3630: 73 65 74 20 3a 3a 47 28 73 74 61 72 74 3a 66 69  set ::G(start:fi
3640: 6c 65 29 20 24 63 6d 64 6c 69 6e 65 61 72 67 28  le) $cmdlinearg(
3650: 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 69  start).        i
3660: 66 20 7b 5b 72 65 67 65 78 70 20 7b 28 2e 2a 29  f {[regexp {(.*)
3670: 3a 28 2e 2a 29 7d 20 24 63 6d 64 6c 69 6e 65 61  :(.*)} $cmdlinea
3680: 72 67 28 73 74 61 72 74 29 20 2d 3e 20 73 2e 70  rg(start) -> s.p
3690: 65 72 6d 20 73 2e 66 69 6c 65 5d 7d 20 7b 0a 20  erm s.file]} {. 
36a0: 20 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 47           set ::G
36b0: 28 73 74 61 72 74 3a 70 65 72 6d 75 74 61 74 69  (start:permutati
36c0: 6f 6e 29 20 24 7b 73 2e 70 65 72 6d 7d 0a 20 20  on) ${s.perm}.  
36d0: 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 47 28          set ::G(
36e0: 73 74 61 72 74 3a 66 69 6c 65 29 20 20 20 20 20  start:file)     
36f0: 20 20 20 24 7b 73 2e 66 69 6c 65 7d 0a 20 20 20     ${s.file}.   
3700: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69       }.        i
3710: 66 20 7b 24 3a 3a 47 28 73 74 61 72 74 3a 66 69  f {$::G(start:fi
3720: 6c 65 29 20 3d 3d 20 22 22 7d 20 7b 75 6e 73 65  le) == ""} {unse
3730: 74 20 3a 3a 47 28 73 74 61 72 74 3a 66 69 6c 65  t ::G(start:file
3740: 29 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  )}.      }.     
3750: 20 7b 5e 2d 2b 6d 61 74 63 68 3d 2e 2b 24 7d 20   {^-+match=.+$} 
3760: 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61 63  {.        foreac
3770: 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65  h {dummy cmdline
3780: 61 72 67 28 6d 61 74 63 68 29 7d 20 5b 73 70 6c  arg(match)} [spl
3790: 69 74 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a 0a  it $a =] break..
37a0: 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 47 28          set ::G(
37b0: 6d 61 74 63 68 29 20 24 63 6d 64 6c 69 6e 65 61  match) $cmdlinea
37c0: 72 67 28 6d 61 74 63 68 29 0a 20 20 20 20 20 20  rg(match).      
37d0: 20 20 69 66 20 7b 24 3a 3a 47 28 6d 61 74 63 68    if {$::G(match
37e0: 29 20 3d 3d 20 22 22 7d 20 7b 75 6e 73 65 74 20  ) == ""} {unset 
37f0: 3a 3a 47 28 6d 61 74 63 68 29 7d 0a 20 20 20 20  ::G(match)}.    
3800: 20 20 7d 0a 0a 20 20 20 20 20 20 7b 5e 2d 2b 6f    }..      {^-+o
3810: 75 74 70 75 74 3d 2e 2b 24 7d 20 7b 0a 20 20 20  utput=.+$} {.   
3820: 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64 75       foreach {du
3830: 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 6f  mmy cmdlinearg(o
3840: 75 74 70 75 74 29 7d 20 5b 73 70 6c 69 74 20 24  utput)} [split $
3850: 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20 20  a =] break.     
3860: 20 20 20 69 66 20 7b 24 63 6d 64 6c 69 6e 65 61     if {$cmdlinea
3870: 72 67 28 76 65 72 62 6f 73 65 29 3d 3d 22 22 7d  rg(verbose)==""}
3880: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 73 65 74   {.          set
3890: 20 63 6d 64 6c 69 6e 65 61 72 67 28 76 65 72 62   cmdlinearg(verb
38a0: 6f 73 65 29 20 32 0a 20 20 20 20 20 20 20 20 7d  ose) 2.        }
38b0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b  .      }.      {
38c0: 5e 2d 2b 76 65 72 62 6f 73 65 3d 2e 2b 24 7d 20  ^-+verbose=.+$} 
38d0: 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61 63  {.        foreac
38e0: 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65  h {dummy cmdline
38f0: 61 72 67 28 76 65 72 62 6f 73 65 29 7d 20 5b 73  arg(verbose)} [s
3900: 70 6c 69 74 20 24 61 20 3d 5d 20 62 72 65 61 6b  plit $a =] break
3910: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 24 63 6d  .        if {$cm
3920: 64 6c 69 6e 65 61 72 67 28 76 65 72 62 6f 73 65  dlinearg(verbose
3930: 29 3d 3d 22 66 69 6c 65 22 7d 20 7b 0a 20 20 20  )=="file"} {.   
3940: 20 20 20 20 20 20 20 73 65 74 20 63 6d 64 6c 69         set cmdli
3950: 6e 65 61 72 67 28 76 65 72 62 6f 73 65 29 20 32  nearg(verbose) 2
3960: 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 69  .        } elsei
3970: 66 20 7b 5b 73 74 72 69 6e 67 20 69 73 20 62 6f  f {[string is bo
3980: 6f 6c 65 61 6e 20 2d 73 74 72 69 63 74 20 24 63  olean -strict $c
3990: 6d 64 6c 69 6e 65 61 72 67 28 76 65 72 62 6f 73  mdlinearg(verbos
39a0: 65 29 5d 3d 3d 30 7d 20 7b 0a 20 20 20 20 20 20  e)]==0} {.      
39b0: 20 20 20 20 65 72 72 6f 72 20 22 6f 70 74 69 6f      error "optio
39c0: 6e 20 2d 2d 76 65 72 62 6f 73 65 3d 20 6d 75 73  n --verbose= mus
39d0: 74 20 62 65 20 73 65 74 20 74 6f 20 61 20 62 6f  t be set to a bo
39e0: 6f 6c 65 61 6e 20 6f 72 20 74 6f 20 5c 22 66 69  olean or to \"fi
39f0: 6c 65 5c 22 22 0a 20 20 20 20 20 20 20 20 7d 0a  le\"".        }.
3a00: 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 64        }..      d
3a10: 65 66 61 75 6c 74 20 7b 0a 20 20 20 20 20 20 20  efault {.       
3a20: 20 6c 61 70 70 65 6e 64 20 6c 65 66 74 6f 76 65   lappend leftove
3a30: 72 20 24 61 0a 20 20 20 20 20 20 7d 0a 20 20 20  r $a.      }.   
3a40: 20 7d 0a 20 20 7d 0a 20 20 73 65 74 20 61 72 67   }.  }.  set arg
3a50: 76 20 24 6c 65 66 74 6f 76 65 72 0a 0a 20 20 23  v $leftover..  #
3a60: 20 49 6e 73 74 61 6c 6c 20 74 68 65 20 6d 61 6c   Install the mal
3a70: 6c 6f 63 20 6c 61 79 65 72 20 75 73 65 64 20 74  loc layer used t
3a80: 6f 20 69 6e 6a 65 63 74 20 4f 4f 4d 20 65 72 72  o inject OOM err
3a90: 6f 72 73 2e 20 41 6e 64 20 74 68 65 20 27 61 75  ors. And the 'au
3aa0: 74 6f 6d 61 74 69 63 27 0a 20 20 23 20 65 78 74  tomatic'.  # ext
3ab0: 65 6e 73 69 6f 6e 73 2e 20 54 68 69 73 20 6f 6e  ensions. This on
3ac0: 6c 79 20 6e 65 65 64 73 20 74 6f 20 62 65 20 64  ly needs to be d
3ad0: 6f 6e 65 20 6f 6e 63 65 20 66 6f 72 20 74 68 65  one once for the
3ae0: 20 70 72 6f 63 65 73 73 2e 0a 20 20 23 0a 20 20   process..  #.  
3af0: 73 71 6c 69 74 65 33 5f 73 68 75 74 64 6f 77 6e  sqlite3_shutdown
3b00: 0a 20 20 69 6e 73 74 61 6c 6c 5f 6d 61 6c 6c 6f  .  install_mallo
3b10: 63 5f 66 61 75 6c 74 73 69 6d 20 31 0a 20 20 73  c_faultsim 1.  s
3b20: 71 6c 69 74 65 33 5f 69 6e 69 74 69 61 6c 69 7a  qlite3_initializ
3b30: 65 0a 20 20 61 75 74 6f 69 6e 73 74 61 6c 6c 5f  e.  autoinstall_
3b40: 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 73 0a 0a  test_functions..
3b50: 20 20 23 20 49 66 20 74 68 65 20 2d 2d 62 69 6e    # If the --bin
3b60: 61 72 79 6c 6f 67 20 6f 70 74 69 6f 6e 20 77 61  arylog option wa
3b70: 73 20 73 70 65 63 69 66 69 65 64 2c 20 63 72 65  s specified, cre
3b80: 61 74 65 20 74 68 65 20 6c 6f 67 67 69 6e 67 20  ate the logging 
3b90: 56 46 53 2e 20 54 68 69 73 0a 20 20 23 20 63 61  VFS. This.  # ca
3ba0: 6c 6c 20 69 6e 73 74 61 6c 6c 73 20 74 68 65 20  ll installs the 
3bb0: 6e 65 77 20 56 46 53 20 61 73 20 74 68 65 20 64  new VFS as the d
3bc0: 65 66 61 75 6c 74 20 66 6f 72 20 61 6c 6c 20 53  efault for all S
3bd0: 51 4c 69 74 65 20 63 6f 6e 6e 65 63 74 69 6f 6e  QLite connection
3be0: 73 2e 0a 20 20 23 0a 20 20 69 66 20 7b 24 63 6d  s..  #.  if {$cm
3bf0: 64 6c 69 6e 65 61 72 67 28 62 69 6e 61 72 79 6c  dlinearg(binaryl
3c00: 6f 67 29 7d 20 7b 0a 20 20 20 20 76 66 73 6c 6f  og)} {.    vfslo
3c10: 67 20 6e 65 77 20 62 69 6e 61 72 79 6c 6f 67 20  g new binarylog 
3c20: 7b 7d 20 76 66 73 6c 6f 67 2e 62 69 6e 0a 20 20  {} vfslog.bin.  
3c30: 7d 0a 0a 20 20 23 20 53 65 74 20 74 68 65 20 62  }..  # Set the b
3c40: 61 63 6b 74 72 61 63 65 20 64 65 70 74 68 2c 20  acktrace depth, 
3c50: 69 66 20 6d 61 6c 6c 6f 63 20 74 72 61 63 69 6e  if malloc tracin
3c60: 67 20 69 73 20 65 6e 61 62 6c 65 64 2e 0a 20 20  g is enabled..  
3c70: 23 0a 20 20 69 66 20 7b 24 63 6d 64 6c 69 6e 65  #.  if {$cmdline
3c80: 61 72 67 28 6d 61 6c 6c 6f 63 74 72 61 63 65 29  arg(malloctrace)
3c90: 7d 20 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f  } {.    sqlite3_
3ca0: 6d 65 6d 64 65 62 75 67 5f 62 61 63 6b 74 72 61  memdebug_backtra
3cb0: 63 65 20 24 63 6d 64 6c 69 6e 65 61 72 67 28 62  ce $cmdlinearg(b
3cc0: 61 63 6b 74 72 61 63 65 29 0a 20 20 7d 0a 0a 20  acktrace).  }.. 
3cd0: 20 69 66 20 7b 24 63 6d 64 6c 69 6e 65 61 72 67   if {$cmdlinearg
3ce0: 28 6f 75 74 70 75 74 29 21 3d 22 22 7d 20 7b 0a  (output)!=""} {.
3cf0: 20 20 20 20 70 75 74 73 20 22 43 6f 70 79 69 6e      puts "Copyin
3d00: 67 20 6f 75 74 70 75 74 20 74 6f 20 66 69 6c 65  g output to file
3d10: 20 24 63 6d 64 6c 69 6e 65 61 72 67 28 6f 75 74   $cmdlinearg(out
3d20: 70 75 74 29 22 0a 20 20 20 20 73 65 74 20 3a 3a  put)".    set ::
3d30: 47 28 6f 75 74 70 75 74 5f 66 64 29 20 5b 6f 70  G(output_fd) [op
3d40: 65 6e 20 24 63 6d 64 6c 69 6e 65 61 72 67 28 6f  en $cmdlinearg(o
3d50: 75 74 70 75 74 29 20 77 5d 0a 20 20 20 20 66 63  utput) w].    fc
3d60: 6f 6e 66 69 67 75 72 65 20 24 3a 3a 47 28 6f 75  onfigure $::G(ou
3d70: 74 70 75 74 5f 66 64 29 20 2d 62 75 66 66 65 72  tput_fd) -buffer
3d80: 69 6e 67 20 6c 69 6e 65 0a 20 20 7d 0a 0a 20 20  ing line.  }..  
3d90: 69 66 20 7b 24 63 6d 64 6c 69 6e 65 61 72 67 28  if {$cmdlinearg(
3da0: 76 65 72 62 6f 73 65 29 3d 3d 22 22 7d 20 7b 0a  verbose)==""} {.
3db0: 20 20 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61      set cmdlinea
3dc0: 72 67 28 76 65 72 62 6f 73 65 29 20 31 0a 20 20  rg(verbose) 1.  
3dd0: 7d 0a 7d 0a 0a 23 20 55 70 64 61 74 65 20 74 68  }.}..# Update th
3de0: 65 20 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69  e soft-heap-limi
3df0: 74 20 65 61 63 68 20 74 69 6d 65 20 74 68 69 73  t each time this
3e00: 20 73 63 72 69 70 74 20 69 73 20 72 75 6e 2e 20   script is run. 
3e10: 49 6e 20 74 68 61 74 0a 23 20 77 61 79 20 69 66  In that.# way if
3e20: 20 61 6e 20 69 6e 64 69 76 69 64 75 61 6c 20 74   an individual t
3e30: 65 73 74 20 66 69 6c 65 20 63 68 61 6e 67 65 73  est file changes
3e40: 20 74 68 65 20 73 6f 66 74 2d 68 65 61 70 2d 6c   the soft-heap-l
3e50: 69 6d 69 74 2c 20 69 74 0a 23 20 77 69 6c 6c 20  imit, it.# will 
3e60: 62 65 20 72 65 73 65 74 20 61 74 20 74 68 65 20  be reset at the 
3e70: 73 74 61 72 74 20 6f 66 20 74 68 65 20 6e 65 78  start of the nex
3e80: 74 20 74 65 73 74 20 66 69 6c 65 2e 0a 23 0a 73  t test file..#.s
3e90: 71 6c 69 74 65 33 5f 73 6f 66 74 5f 68 65 61 70  qlite3_soft_heap
3ea0: 5f 6c 69 6d 69 74 20 24 63 6d 64 6c 69 6e 65 61  _limit $cmdlinea
3eb0: 72 67 28 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d  rg(soft-heap-lim
3ec0: 69 74 29 0a 0a 70 72 6f 63 20 66 6f 72 63 65 64  it)..proc forced
3ed0: 5f 70 72 6f 78 79 5f 6c 6f 63 6b 69 6e 67 20 7b  _proxy_locking {
3ee0: 7d 20 7b 0a 20 20 69 66 20 24 3a 3a 73 71 6c 69  } {.  if $::sqli
3ef0: 74 65 5f 6f 70 74 69 6f 6e 73 28 6c 6f 63 6b 5f  te_options(lock_
3f00: 70 72 6f 78 79 5f 70 72 61 67 6d 61 73 29 26 26  proxy_pragmas)&&
3f10: 24 3a 3a 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e  $::sqlite_option
3f20: 73 28 70 72 65 66 65 72 5f 70 72 6f 78 79 5f 6c  s(prefer_proxy_l
3f30: 6f 63 6b 69 6e 67 29 20 7b 0a 20 20 20 20 73 65  ocking) {.    se
3f40: 74 20 66 6f 72 63 65 5f 70 72 6f 78 79 5f 76 61  t force_proxy_va
3f50: 6c 75 65 20 30 0a 20 20 20 20 73 65 74 20 66 6f  lue 0.    set fo
3f60: 72 63 65 5f 6b 65 79 20 22 53 51 4c 49 54 45 5f  rce_key "SQLITE_
3f70: 46 4f 52 43 45 5f 50 52 4f 58 59 5f 4c 4f 43 4b  FORCE_PROXY_LOCK
3f80: 49 4e 47 3d 22 0a 20 20 20 20 66 6f 72 65 61 63  ING=".    foreac
3f90: 68 20 7b 65 6e 76 5f 70 61 69 72 7d 20 5b 65 78  h {env_pair} [ex
3fa0: 65 63 20 65 6e 76 5d 20 7b 20 0a 20 20 20 20 20  ec env] { .     
3fb0: 20 69 66 20 7b 20 5b 73 74 72 69 6e 67 20 66 69   if { [string fi
3fc0: 72 73 74 20 24 66 6f 72 63 65 5f 6b 65 79 20 24  rst $force_key $
3fd0: 65 6e 76 5f 70 61 69 72 5d 20 3d 3d 20 30 7d 20  env_pair] == 0} 
3fe0: 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 66 6f  {.        set fo
3ff0: 72 63 65 5f 70 72 6f 78 79 5f 76 61 6c 75 65 20  rce_proxy_value 
4000: 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 65  [string range $e
4010: 6e 76 5f 70 61 69 72 20 5b 73 74 72 69 6e 67 20  nv_pair [string 
4020: 6c 65 6e 67 74 68 20 24 66 6f 72 63 65 5f 6b 65  length $force_ke
4030: 79 5d 20 65 6e 64 5d 0a 20 20 20 20 20 20 7d 0a  y] end].      }.
4040: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 20 22      }.    if { "
4050: 24 66 6f 72 63 65 5f 70 72 6f 78 79 5f 76 61 6c  $force_proxy_val
4060: 75 65 20 22 20 3d 3d 20 22 31 20 22 20 7d 20 7b  ue " == "1 " } {
4070: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 31 0a  .      return 1.
4080: 20 20 20 20 7d 20 0a 20 20 7d 0a 20 20 72 65 74      } .  }.  ret
4090: 75 72 6e 20 30 0a 7d 0a 0a 0a 23 20 43 72 65 61  urn 0.}...# Crea
40a0: 74 65 20 61 20 74 65 73 74 20 64 61 74 61 62 61  te a test databa
40b0: 73 65 0a 23 0a 70 72 6f 63 20 72 65 73 65 74 5f  se.#.proc reset_
40c0: 64 62 20 7b 7d 20 7b 0a 20 20 63 61 74 63 68 20  db {} {.  catch 
40d0: 7b 64 62 20 63 6c 6f 73 65 7d 0a 20 20 66 6f 72  {db close}.  for
40e0: 63 65 64 65 6c 65 74 65 20 74 65 73 74 2e 64 62  cedelete test.db
40f0: 0a 20 20 66 6f 72 63 65 64 65 6c 65 74 65 20 74  .  forcedelete t
4100: 65 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c 0a 20  est.db-journal. 
4110: 20 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73   forcedelete tes
4120: 74 2e 64 62 2d 77 61 6c 0a 20 20 69 66 20 7b 5b  t.db-wal.  if {[
4130: 66 6f 72 63 65 64 5f 70 72 6f 78 79 5f 6c 6f 63  forced_proxy_loc
4140: 6b 69 6e 67 5d 7d 20 7b 0a 20 20 20 20 73 71 6c  king]} {.    sql
4150: 69 74 65 33 20 64 62 20 2e 2f 74 65 73 74 2e 64  ite3 db ./test.d
4160: 62 0a 20 20 20 20 73 65 74 20 6c 6f 63 6b 5f 70  b.    set lock_p
4170: 72 6f 78 79 5f 70 61 74 68 20 5b 64 62 20 65 76  roxy_path [db ev
4180: 61 6c 20 22 50 52 41 47 4d 41 20 6c 6f 63 6b 5f  al "PRAGMA lock_
4190: 70 72 6f 78 79 5f 66 69 6c 65 3b 22 5d 20 0a 20  proxy_file;"] . 
41a0: 20 20 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f     catch {db clo
41b0: 73 65 7d 0a 20 20 20 20 23 20 70 75 74 73 20 22  se}.    # puts "
41c0: 64 65 6c 65 74 69 6e 67 20 24 6c 6f 63 6b 5f 70  deleting $lock_p
41d0: 72 6f 78 79 5f 70 61 74 68 22 0a 20 20 20 20 66  roxy_path".    f
41e0: 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63  ile delete -forc
41f0: 65 20 24 6c 6f 63 6b 5f 70 72 6f 78 79 5f 70 61  e $lock_proxy_pa
4200: 74 68 20 20 20 20 0a 20 20 20 20 66 69 6c 65 20  th    .    file 
4210: 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 74 65  delete -force te
4220: 73 74 2e 64 62 0a 20 20 7d 0a 20 20 73 71 6c 69  st.db.  }.  sqli
4230: 74 65 33 20 64 62 20 2e 2f 74 65 73 74 2e 64 62  te3 db ./test.db
4240: 0a 20 20 73 65 74 20 3a 3a 44 42 20 5b 73 71 6c  .  set ::DB [sql
4250: 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f  ite3_connection_
4260: 70 6f 69 6e 74 65 72 20 64 62 5d 0a 20 20 69 66  pointer db].  if
4270: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
4280: 3a 53 45 54 55 50 5f 53 51 4c 5d 7d 20 7b 0a 20  :SETUP_SQL]} {. 
4290: 20 20 20 64 62 20 65 76 61 6c 20 24 3a 3a 53 45     db eval $::SE
42a0: 54 55 50 5f 53 51 4c 0a 20 20 7d 0a 7d 0a 72 65  TUP_SQL.  }.}.re
42b0: 73 65 74 5f 64 62 0a 0a 23 20 41 62 6f 72 74 20  set_db..# Abort 
42c0: 65 61 72 6c 79 20 69 66 20 74 68 69 73 20 73 63  early if this sc
42d0: 72 69 70 74 20 68 61 73 20 62 65 65 6e 20 72 75  ript has been ru
42e0: 6e 20 62 65 66 6f 72 65 2e 0a 23 0a 69 66 20 7b  n before..#.if {
42f0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 54 43 28  [info exists TC(
4300: 63 6f 75 6e 74 29 5d 7d 20 72 65 74 75 72 6e 0a  count)]} return.
4310: 0a 23 20 4d 61 6b 65 20 73 75 72 65 20 6d 65 6d  .# Make sure mem
4320: 6f 72 79 20 73 74 61 74 69 73 74 69 63 73 20 61  ory statistics a
4330: 72 65 20 65 6e 61 62 6c 65 64 2e 0a 23 0a 73 71  re enabled..#.sq
4340: 6c 69 74 65 33 5f 63 6f 6e 66 69 67 5f 6d 65 6d  lite3_config_mem
4350: 73 74 61 74 75 73 20 31 0a 0a 23 20 49 6e 69 74  status 1..# Init
4360: 69 61 6c 69 7a 65 20 74 68 65 20 74 65 73 74 20  ialize the test 
4370: 63 6f 75 6e 74 65 72 73 20 61 6e 64 20 73 65 74  counters and set
4380: 20 75 70 20 63 6f 6d 6d 61 6e 64 73 20 74 6f 20   up commands to 
4390: 61 63 63 65 73 73 20 74 68 65 6d 2e 0a 23 20 4f  access them..# O
43a0: 72 2c 20 69 66 20 74 68 69 73 20 69 73 20 61 20  r, if this is a 
43b0: 73 6c 61 76 65 20 69 6e 74 65 72 70 72 65 74 65  slave interprete
43c0: 72 2c 20 73 65 74 20 75 70 20 61 6c 69 61 73 65  r, set up aliase
43d0: 73 20 74 6f 20 77 72 69 74 65 20 74 68 65 0a 23  s to write the.#
43e0: 20 63 6f 75 6e 74 65 72 73 20 69 6e 20 74 68 65   counters in the
43f0: 20 70 61 72 65 6e 74 20 69 6e 74 65 72 70 72 65   parent interpre
4400: 74 65 72 2e 0a 23 0a 69 66 20 7b 30 3d 3d 5b 69  ter..#.if {0==[i
4410: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 53 4c 41  nfo exists ::SLA
4420: 56 45 5d 7d 20 7b 0a 20 20 73 65 74 20 54 43 28  VE]} {.  set TC(
4430: 65 72 72 6f 72 73 29 20 20 20 20 30 0a 20 20 73  errors)    0.  s
4440: 65 74 20 54 43 28 63 6f 75 6e 74 29 20 20 20 20  et TC(count)    
4450: 20 30 0a 20 20 73 65 74 20 54 43 28 66 61 69 6c   0.  set TC(fail
4460: 5f 6c 69 73 74 29 20 5b 6c 69 73 74 5d 0a 20 20  _list) [list].  
4470: 73 65 74 20 54 43 28 6f 6d 69 74 5f 6c 69 73 74  set TC(omit_list
4480: 29 20 5b 6c 69 73 74 5d 0a 20 20 73 65 74 20 54  ) [list].  set T
4490: 43 28 77 61 72 6e 5f 6c 69 73 74 29 20 5b 6c 69  C(warn_list) [li
44a0: 73 74 5d 0a 0a 20 20 70 72 6f 63 20 73 65 74 5f  st]..  proc set_
44b0: 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 7b 63 6f  test_counter {co
44c0: 75 6e 74 65 72 20 61 72 67 73 7d 20 7b 0a 20 20  unter args} {.  
44d0: 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24    if {[llength $
44e0: 61 72 67 73 5d 7d 20 7b 0a 20 20 20 20 20 20 73  args]} {.      s
44f0: 65 74 20 3a 3a 54 43 28 24 63 6f 75 6e 74 65 72  et ::TC($counter
4500: 29 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20  ) [lindex $args 
4510: 30 5d 0a 20 20 20 20 7d 0a 20 20 20 20 73 65 74  0].    }.    set
4520: 20 3a 3a 54 43 28 24 63 6f 75 6e 74 65 72 29 0a   ::TC($counter).
4530: 20 20 7d 0a 7d 0a 0a 23 20 52 65 63 6f 72 64 20    }.}..# Record 
4540: 74 68 65 20 66 61 63 74 20 74 68 61 74 20 61 20  the fact that a 
4550: 73 65 71 75 65 6e 63 65 20 6f 66 20 74 65 73 74  sequence of test
4560: 73 20 77 65 72 65 20 6f 6d 69 74 74 65 64 2e 0a  s were omitted..
4570: 23 0a 70 72 6f 63 20 6f 6d 69 74 5f 74 65 73 74  #.proc omit_test
4580: 20 7b 6e 61 6d 65 20 72 65 61 73 6f 6e 20 7b 61   {name reason {a
4590: 70 70 65 6e 64 20 31 7d 7d 20 7b 0a 20 20 73 65  ppend 1}} {.  se
45a0: 74 20 6f 6d 69 74 4c 69 73 74 20 5b 73 65 74 5f  t omitList [set_
45b0: 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 6f 6d 69  test_counter omi
45c0: 74 5f 6c 69 73 74 5d 0a 20 20 69 66 20 7b 24 61  t_list].  if {$a
45d0: 70 70 65 6e 64 7d 20 7b 0a 20 20 20 20 6c 61 70  ppend} {.    lap
45e0: 70 65 6e 64 20 6f 6d 69 74 4c 69 73 74 20 5b 6c  pend omitList [l
45f0: 69 73 74 20 24 6e 61 6d 65 20 24 72 65 61 73 6f  ist $name $reaso
4600: 6e 5d 0a 20 20 7d 0a 20 20 73 65 74 5f 74 65 73  n].  }.  set_tes
4610: 74 5f 63 6f 75 6e 74 65 72 20 6f 6d 69 74 5f 6c  t_counter omit_l
4620: 69 73 74 20 24 6f 6d 69 74 4c 69 73 74 0a 7d 0a  ist $omitList.}.
4630: 0a 23 20 52 65 63 6f 72 64 20 74 68 65 20 66 61  .# Record the fa
4640: 63 74 20 74 68 61 74 20 61 20 74 65 73 74 20 66  ct that a test f
4650: 61 69 6c 65 64 2e 0a 23 0a 70 72 6f 63 20 66 61  ailed..#.proc fa
4660: 69 6c 5f 74 65 73 74 20 7b 6e 61 6d 65 7d 20 7b  il_test {name} {
4670: 0a 20 20 73 65 74 20 66 20 5b 73 65 74 5f 74 65  .  set f [set_te
4680: 73 74 5f 63 6f 75 6e 74 65 72 20 66 61 69 6c 5f  st_counter fail_
4690: 6c 69 73 74 5d 0a 20 20 6c 61 70 70 65 6e 64 20  list].  lappend 
46a0: 66 20 24 6e 61 6d 65 0a 20 20 73 65 74 5f 74 65  f $name.  set_te
46b0: 73 74 5f 63 6f 75 6e 74 65 72 20 66 61 69 6c 5f  st_counter fail_
46c0: 6c 69 73 74 20 24 66 0a 20 20 73 65 74 5f 74 65  list $f.  set_te
46d0: 73 74 5f 63 6f 75 6e 74 65 72 20 65 72 72 6f 72  st_counter error
46e0: 73 20 5b 65 78 70 72 20 5b 73 65 74 5f 74 65 73  s [expr [set_tes
46f0: 74 5f 63 6f 75 6e 74 65 72 20 65 72 72 6f 72 73  t_counter errors
4700: 5d 20 2b 20 31 5d 0a 0a 20 20 73 65 74 20 6e 46  ] + 1]..  set nF
4710: 61 69 6c 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f  ail [set_test_co
4720: 75 6e 74 65 72 20 65 72 72 6f 72 73 5d 0a 20 20  unter errors].  
4730: 69 66 20 7b 24 6e 46 61 69 6c 3e 3d 24 3a 3a 63  if {$nFail>=$::c
4740: 6d 64 6c 69 6e 65 61 72 67 28 6d 61 78 65 72 72  mdlinearg(maxerr
4750: 6f 72 29 7d 20 7b 0a 20 20 20 20 6f 75 74 70 75  or)} {.    outpu
4760: 74 32 20 22 2a 2a 2a 20 47 69 76 69 6e 67 20 75  t2 "*** Giving u
4770: 70 2e 2e 2e 22 0a 20 20 20 20 66 69 6e 61 6c 69  p...".    finali
4780: 7a 65 5f 74 65 73 74 69 6e 67 0a 20 20 7d 0a 7d  ze_testing.  }.}
4790: 0a 0a 23 20 52 65 6d 65 6d 62 65 72 20 61 20 77  ..# Remember a w
47a0: 61 72 6e 69 6e 67 20 6d 65 73 73 61 67 65 20 74  arning message t
47b0: 6f 20 62 65 20 64 69 73 70 6c 61 79 65 64 20 61  o be displayed a
47c0: 74 20 74 68 65 20 63 6f 6e 63 6c 75 73 69 6f 6e  t the conclusion
47d0: 20 6f 66 20 61 6c 6c 20 74 65 73 74 69 6e 67 0a   of all testing.
47e0: 23 0a 70 72 6f 63 20 77 61 72 6e 69 6e 67 20 7b  #.proc warning {
47f0: 6d 73 67 20 7b 61 70 70 65 6e 64 20 31 7d 7d 20  msg {append 1}} 
4800: 7b 0a 20 20 6f 75 74 70 75 74 32 20 22 57 61 72  {.  output2 "War
4810: 6e 69 6e 67 3a 20 24 6d 73 67 22 0a 20 20 73 65  ning: $msg".  se
4820: 74 20 77 61 72 6e 4c 69 73 74 20 5b 73 65 74 5f  t warnList [set_
4830: 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 77 61 72  test_counter war
4840: 6e 5f 6c 69 73 74 5d 0a 20 20 69 66 20 7b 24 61  n_list].  if {$a
4850: 70 70 65 6e 64 7d 20 7b 0a 20 20 20 20 6c 61 70  ppend} {.    lap
4860: 70 65 6e 64 20 77 61 72 6e 4c 69 73 74 20 24 6d  pend warnList $m
4870: 73 67 0a 20 20 7d 0a 20 20 73 65 74 5f 74 65 73  sg.  }.  set_tes
4880: 74 5f 63 6f 75 6e 74 65 72 20 77 61 72 6e 5f 6c  t_counter warn_l
4890: 69 73 74 20 24 77 61 72 6e 4c 69 73 74 0a 7d 0a  ist $warnList.}.
48a0: 0a 0a 23 20 49 6e 63 72 65 6d 65 6e 74 20 74 68  ..# Increment th
48b0: 65 20 6e 75 6d 62 65 72 20 6f 66 20 74 65 73 74  e number of test
48c0: 73 20 72 75 6e 0a 23 0a 70 72 6f 63 20 69 6e 63  s run.#.proc inc
48d0: 72 5f 6e 74 65 73 74 20 7b 7d 20 7b 0a 20 20 73  r_ntest {} {.  s
48e0: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20  et_test_counter 
48f0: 63 6f 75 6e 74 20 5b 65 78 70 72 20 5b 73 65 74  count [expr [set
4900: 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 63 6f  _test_counter co
4910: 75 6e 74 5d 20 2b 20 31 5d 0a 7d 0a 0a 23 20 52  unt] + 1].}..# R
4920: 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 2d 2d  eturn true if --
4930: 76 65 72 62 6f 73 65 3d 31 20 77 61 73 20 73 70  verbose=1 was sp
4940: 65 63 69 66 69 65 64 20 6f 6e 20 74 68 65 20 63  ecified on the c
4950: 6f 6d 6d 61 6e 64 20 6c 69 6e 65 2e 20 4f 74 68  ommand line. Oth
4960: 65 72 77 69 73 65 2c 0a 23 20 72 65 74 75 72 6e  erwise,.# return
4970: 20 66 61 6c 73 65 2e 0a 23 0a 70 72 6f 63 20 76   false..#.proc v
4980: 65 72 62 6f 73 65 20 7b 7d 20 7b 0a 20 20 72 65  erbose {} {.  re
4990: 74 75 72 6e 20 24 3a 3a 63 6d 64 6c 69 6e 65 61  turn $::cmdlinea
49a0: 72 67 28 76 65 72 62 6f 73 65 29 0a 7d 0a 0a 23  rg(verbose).}..#
49b0: 20 55 73 65 20 74 68 65 20 66 6f 6c 6c 6f 77 69   Use the followi
49c0: 6e 67 20 63 6f 6d 6d 61 6e 64 73 20 69 6e 73 74  ng commands inst
49d0: 65 61 64 20 6f 66 20 5b 70 75 74 73 5d 20 66 6f  ead of [puts] fo
49e0: 72 20 74 65 73 74 20 6f 75 74 70 75 74 20 77 69  r test output wi
49f0: 74 68 69 6e 0a 23 20 74 68 69 73 20 66 69 6c 65  thin.# this file
4a00: 2e 20 54 65 73 74 20 73 63 72 69 70 74 73 20 63  . Test scripts c
4a10: 61 6e 20 73 74 69 6c 6c 20 75 73 65 20 72 65 67  an still use reg
4a20: 75 6c 61 72 20 5b 70 75 74 73 5d 2c 20 77 68 69  ular [puts], whi
4a30: 63 68 20 69 73 20 64 69 72 65 63 74 65 64 0a 23  ch is directed.#
4a40: 20 74 6f 20 73 74 64 6f 75 74 20 61 6e 64 2c 20   to stdout and, 
4a50: 69 66 20 6f 6e 65 20 69 73 20 6f 70 65 6e 2c 20  if one is open, 
4a60: 74 68 65 20 2d 2d 6f 75 74 70 75 74 20 66 69 6c  the --output fil
4a70: 65 2e 0a 23 0a 23 20 6f 75 74 70 75 74 31 3a 20  e..#.# output1: 
4a80: 6f 75 74 70 75 74 20 74 68 61 74 20 73 68 6f 75  output that shou
4a90: 6c 64 20 62 65 20 70 72 69 6e 74 65 64 20 69 66  ld be printed if
4aa0: 20 2d 2d 76 65 72 62 6f 73 65 3d 31 20 77 61 73   --verbose=1 was
4ab0: 20 73 70 65 63 69 66 69 65 64 2e 0a 23 20 6f 75   specified..# ou
4ac0: 74 70 75 74 32 3a 20 6f 75 74 70 75 74 20 74 68  tput2: output th
4ad0: 61 74 20 73 68 6f 75 6c 64 20 62 65 20 70 72 69  at should be pri
4ae0: 6e 74 65 64 20 75 6e 63 6f 6e 64 69 74 69 6f 6e  nted uncondition
4af0: 61 6c 6c 79 2e 0a 23 20 6f 75 74 70 75 74 32 5f  ally..# output2_
4b00: 69 66 5f 6e 6f 5f 76 65 72 62 6f 73 65 3a 20 6f  if_no_verbose: o
4b10: 75 74 70 75 74 20 74 68 61 74 20 73 68 6f 75 6c  utput that shoul
4b20: 64 20 62 65 20 70 72 69 6e 74 65 64 20 6f 6e 6c  d be printed onl
4b30: 79 20 69 66 20 2d 2d 76 65 72 62 6f 73 65 3d 30  y if --verbose=0
4b40: 2e 0a 23 0a 70 72 6f 63 20 6f 75 74 70 75 74 31  ..#.proc output1
4b50: 20 7b 61 72 67 73 7d 20 7b 0a 20 20 73 65 74 20   {args} {.  set 
4b60: 76 20 5b 76 65 72 62 6f 73 65 5d 0a 20 20 69 66  v [verbose].  if
4b70: 20 7b 24 76 3d 3d 31 7d 20 7b 0a 20 20 20 20 75   {$v==1} {.    u
4b80: 70 6c 65 76 65 6c 20 6f 75 74 70 75 74 32 20 24  plevel output2 $
4b90: 61 72 67 73 0a 20 20 7d 20 65 6c 73 65 69 66 20  args.  } elseif 
4ba0: 7b 24 76 3d 3d 32 7d 20 7b 0a 20 20 20 20 75 70  {$v==2} {.    up
4bb0: 6c 65 76 65 6c 20 70 75 74 73 20 5b 6c 72 61 6e  level puts [lran
4bc0: 67 65 20 24 61 72 67 73 20 30 20 65 6e 64 2d 31  ge $args 0 end-1
4bd0: 5d 20 24 3a 3a 47 28 6f 75 74 70 75 74 5f 66 64  ] $::G(output_fd
4be0: 29 20 5b 6c 72 61 6e 67 65 20 24 61 72 67 73 20  ) [lrange $args 
4bf0: 65 6e 64 20 65 6e 64 5d 0a 20 20 7d 0a 7d 0a 70  end end].  }.}.p
4c00: 72 6f 63 20 6f 75 74 70 75 74 32 20 7b 61 72 67  roc output2 {arg
4c10: 73 7d 20 7b 0a 20 20 73 65 74 20 6e 41 72 67 20  s} {.  set nArg 
4c20: 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 73 5d 0a  [llength $args].
4c30: 20 20 75 70 6c 65 76 65 6c 20 70 75 74 73 20 24    uplevel puts $
4c40: 61 72 67 73 0a 7d 0a 70 72 6f 63 20 6f 75 74 70  args.}.proc outp
4c50: 75 74 32 5f 69 66 5f 6e 6f 5f 76 65 72 62 6f 73  ut2_if_no_verbos
4c60: 65 20 7b 61 72 67 73 7d 20 7b 0a 20 20 73 65 74  e {args} {.  set
4c70: 20 76 20 5b 76 65 72 62 6f 73 65 5d 0a 20 20 69   v [verbose].  i
4c80: 66 20 7b 24 76 3d 3d 30 7d 20 7b 0a 20 20 20 20  f {$v==0} {.    
4c90: 75 70 6c 65 76 65 6c 20 6f 75 74 70 75 74 32 20  uplevel output2 
4ca0: 24 61 72 67 73 0a 20 20 7d 20 65 6c 73 65 69 66  $args.  } elseif
4cb0: 20 7b 24 76 3d 3d 32 7d 20 7b 0a 20 20 20 20 75   {$v==2} {.    u
4cc0: 70 6c 65 76 65 6c 20 70 75 74 73 20 5b 6c 72 61  plevel puts [lra
4cd0: 6e 67 65 20 24 61 72 67 73 20 30 20 65 6e 64 2d  nge $args 0 end-
4ce0: 31 5d 20 73 74 64 6f 75 74 20 5b 6c 72 61 6e 67  1] stdout [lrang
4cf0: 65 20 24 61 72 67 73 20 65 6e 64 20 65 6e 64 5d  e $args end end]
4d00: 0a 20 20 7d 0a 7d 0a 0a 23 20 4f 76 65 72 72 69  .  }.}..# Overri
4d10: 64 65 20 74 68 65 20 5b 70 75 74 73 5d 20 63 6f  de the [puts] co
4d20: 6d 6d 61 6e 64 20 73 6f 20 74 68 61 74 20 69 66  mmand so that if
4d30: 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 69 73 20 65   no channel is e
4d40: 78 70 6c 69 63 69 74 6c 79 20 0a 23 20 73 70 65  xplicitly .# spe
4d50: 63 69 66 69 65 64 20 74 68 65 20 73 74 72 69 6e  cified the strin
4d60: 67 20 69 73 20 77 72 69 74 74 65 6e 20 74 6f 20  g is written to 
4d70: 62 6f 74 68 20 73 74 64 6f 75 74 20 61 6e 64 20  both stdout and 
4d80: 74 6f 20 74 68 65 20 66 69 6c 65 20 0a 23 20 73  to the file .# s
4d90: 70 65 63 69 66 69 65 64 20 62 79 20 22 2d 2d 6f  pecified by "--o
4da0: 75 74 70 75 74 3d 22 2c 20 69 66 20 61 6e 79 2e  utput=", if any.
4db0: 0a 23 0a 70 72 6f 63 20 70 75 74 73 5f 6f 76 65  .#.proc puts_ove
4dc0: 72 72 69 64 65 20 7b 61 72 67 73 7d 20 7b 0a 20  rride {args} {. 
4dd0: 20 73 65 74 20 6e 41 72 67 20 5b 6c 6c 65 6e 67   set nArg [lleng
4de0: 74 68 20 24 61 72 67 73 5d 0a 20 20 69 66 20 7b  th $args].  if {
4df0: 24 6e 41 72 67 3d 3d 31 20 7c 7c 20 28 24 6e 41  $nArg==1 || ($nA
4e00: 72 67 3d 3d 32 20 26 26 20 5b 73 74 72 69 6e 67  rg==2 && [string
4e10: 20 66 69 72 73 74 20 5b 6c 69 6e 64 65 78 20 24   first [lindex $
4e20: 61 72 67 73 20 30 5d 20 2d 6e 6f 6e 65 77 6c 69  args 0] -nonewli
4e30: 6e 65 5d 3d 3d 30 29 7d 20 7b 0a 20 20 20 20 75  ne]==0)} {.    u
4e40: 70 6c 65 76 65 6c 20 70 75 74 73 5f 6f 72 69 67  plevel puts_orig
4e50: 69 6e 61 6c 20 24 61 72 67 73 0a 20 20 20 20 69  inal $args.    i
4e60: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
4e70: 3a 3a 47 28 6f 75 74 70 75 74 5f 66 64 29 5d 7d  ::G(output_fd)]}
4e80: 20 7b 0a 20 20 20 20 20 20 75 70 6c 65 76 65 6c   {.      uplevel
4e90: 20 70 75 74 73 20 5b 6c 72 61 6e 67 65 20 24 61   puts [lrange $a
4ea0: 72 67 73 20 30 20 65 6e 64 2d 31 5d 20 24 3a 3a  rgs 0 end-1] $::
4eb0: 47 28 6f 75 74 70 75 74 5f 66 64 29 20 5b 6c 72  G(output_fd) [lr
4ec0: 61 6e 67 65 20 24 61 72 67 73 20 65 6e 64 20 65  ange $args end e
4ed0: 6e 64 5d 0a 20 20 20 20 7d 0a 20 20 7d 20 65 6c  nd].    }.  } el
4ee0: 73 65 20 7b 0a 20 20 20 20 23 20 41 20 63 68 61  se {.    # A cha
4ef0: 6e 6e 65 6c 20 77 61 73 20 65 78 70 6c 69 63 69  nnel was explici
4f00: 74 6c 79 20 73 70 65 63 69 66 69 65 64 2e 0a 20  tly specified.. 
4f10: 20 20 20 75 70 6c 65 76 65 6c 20 70 75 74 73 5f     uplevel puts_
4f20: 6f 72 69 67 69 6e 61 6c 20 24 61 72 67 73 0a 20  original $args. 
4f30: 20 7d 0a 7d 0a 72 65 6e 61 6d 65 20 70 75 74 73   }.}.rename puts
4f40: 20 70 75 74 73 5f 6f 72 69 67 69 6e 61 6c 0a 70   puts_original.p
4f50: 72 6f 63 20 70 75 74 73 20 7b 61 72 67 73 7d 20  roc puts {args} 
4f60: 7b 20 75 70 6c 65 76 65 6c 20 70 75 74 73 5f 6f  { uplevel puts_o
4f70: 76 65 72 72 69 64 65 20 24 61 72 67 73 20 7d 0a  verride $args }.
4f80: 0a 0a 23 20 49 6e 76 6f 6b 65 20 74 68 65 20 64  ..# Invoke the d
4f90: 6f 5f 74 65 73 74 20 70 72 6f 63 65 64 75 72 65  o_test procedure
4fa0: 20 74 6f 20 72 75 6e 20 61 20 73 69 6e 67 6c 65   to run a single
4fb0: 20 74 65 73 74 0a 23 0a 70 72 6f 63 20 64 6f 5f   test.#.proc do_
4fc0: 74 65 73 74 20 7b 6e 61 6d 65 20 63 6d 64 20 65  test {name cmd e
4fd0: 78 70 65 63 74 65 64 7d 20 7b 0a 20 20 67 6c 6f  xpected} {.  glo
4fe0: 62 61 6c 20 61 72 67 76 20 63 6d 64 6c 69 6e 65  bal argv cmdline
4ff0: 61 72 67 0a 0a 20 20 66 69 78 5f 74 65 73 74 6e  arg..  fix_testn
5000: 61 6d 65 20 6e 61 6d 65 0a 0a 20 20 73 71 6c 69  ame name..  sqli
5010: 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 73 65 74  te3_memdebug_set
5020: 74 69 74 6c 65 20 24 6e 61 6d 65 0a 0a 23 20 20  title $name..#  
5030: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72  if {[llength $ar
5040: 67 76 5d 3d 3d 30 7d 20 7b 0a 23 20 20 20 20 73  gv]==0} {.#    s
5050: 65 74 20 67 6f 20 31 0a 23 20 20 7d 20 65 6c 73  et go 1.#  } els
5060: 65 20 7b 0a 23 20 20 20 20 73 65 74 20 67 6f 20  e {.#    set go 
5070: 30 0a 23 20 20 20 20 66 6f 72 65 61 63 68 20 70  0.#    foreach p
5080: 61 74 74 65 72 6e 20 24 61 72 67 76 20 7b 0a 23  attern $argv {.#
5090: 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e        if {[strin
50a0: 67 20 6d 61 74 63 68 20 24 70 61 74 74 65 72 6e  g match $pattern
50b0: 20 24 6e 61 6d 65 5d 7d 20 7b 0a 23 20 20 20 20   $name]} {.#    
50c0: 20 20 20 20 73 65 74 20 67 6f 20 31 0a 23 20 20      set go 1.#  
50d0: 20 20 20 20 20 20 62 72 65 61 6b 0a 23 20 20 20        break.#   
50e0: 20 20 20 7d 0a 23 20 20 20 20 7d 0a 23 20 20 7d     }.#    }.#  }
50f0: 0a 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78  ..  if {[info ex
5100: 69 73 74 73 20 3a 3a 47 28 70 65 72 6d 3a 70 72  ists ::G(perm:pr
5110: 65 66 69 78 29 5d 7d 20 7b 0a 20 20 20 20 73 65  efix)]} {.    se
5120: 74 20 6e 61 6d 65 20 22 24 3a 3a 47 28 70 65 72  t name "$::G(per
5130: 6d 3a 70 72 65 66 69 78 29 24 6e 61 6d 65 22 0a  m:prefix)$name".
5140: 20 20 7d 0a 0a 20 20 69 6e 63 72 5f 6e 74 65 73    }..  incr_ntes
5150: 74 0a 20 20 6f 75 74 70 75 74 31 20 2d 6e 6f 6e  t.  output1 -non
5160: 65 77 6c 69 6e 65 20 24 6e 61 6d 65 2e 2e 2e 0a  ewline $name....
5170: 20 20 66 6c 75 73 68 20 73 74 64 6f 75 74 0a 0a    flush stdout..
5180: 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69    if {![info exi
5190: 73 74 73 20 3a 3a 47 28 6d 61 74 63 68 29 5d 20  sts ::G(match)] 
51a0: 7c 7c 20 5b 73 74 72 69 6e 67 20 6d 61 74 63 68  || [string match
51b0: 20 24 3a 3a 47 28 6d 61 74 63 68 29 20 24 6e 61   $::G(match) $na
51c0: 6d 65 5d 7d 20 7b 0a 20 20 20 20 69 66 20 7b 5b  me]} {.    if {[
51d0: 63 61 74 63 68 20 7b 75 70 6c 65 76 65 6c 20 23  catch {uplevel #
51e0: 30 20 22 24 63 6d 64 3b 5c 6e 22 7d 20 72 65 73  0 "$cmd;\n"} res
51f0: 75 6c 74 5d 7d 20 7b 0a 20 20 20 20 20 20 6f 75  ult]} {.      ou
5200: 74 70 75 74 32 5f 69 66 5f 6e 6f 5f 76 65 72 62  tput2_if_no_verb
5210: 6f 73 65 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 24  ose -nonewline $
5220: 6e 61 6d 65 2e 2e 2e 0a 20 20 20 20 20 20 6f 75  name....      ou
5230: 74 70 75 74 32 20 22 5c 6e 45 72 72 6f 72 3a 20  tput2 "\nError: 
5240: 24 72 65 73 75 6c 74 22 0a 20 20 20 20 20 20 66  $result".      f
5250: 61 69 6c 5f 74 65 73 74 20 24 6e 61 6d 65 0a 20  ail_test $name. 
5260: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20     } else {.    
5270: 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 5e    if {[regexp {^
5280: 7e 3f 2f 2e 2a 2f 24 7d 20 24 65 78 70 65 63 74  ~?/.*/$} $expect
5290: 65 64 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 23  ed]} {.        #
52a0: 20 22 65 78 70 65 63 74 65 64 22 20 69 73 20 6f   "expected" is o
52b0: 66 20 74 68 65 20 66 6f 72 6d 20 22 2f 50 41 54  f the form "/PAT
52c0: 54 45 52 4e 2f 22 20 74 68 65 6e 20 74 68 65 20  TERN/" then the 
52d0: 72 65 73 75 6c 74 20 69 66 20 63 6f 72 72 65 63  result if correc
52e0: 74 20 69 66 0a 20 20 20 20 20 20 20 20 23 20 72  t if.        # r
52f0: 65 67 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f  egular expressio
5300: 6e 20 50 41 54 54 45 52 4e 20 6d 61 74 63 68 65  n PATTERN matche
5310: 73 20 74 68 65 20 72 65 73 75 6c 74 2e 20 20 22  s the result.  "
5320: 7e 2f 50 41 54 54 45 52 4e 2f 22 20 6d 65 61 6e  ~/PATTERN/" mean
5330: 73 0a 20 20 20 20 20 20 20 20 23 20 74 68 65 20  s.        # the 
5340: 72 65 67 75 6c 61 72 20 65 78 70 72 65 73 73 69  regular expressi
5350: 6f 6e 20 6d 75 73 74 20 6e 6f 74 20 6d 61 74 63  on must not matc
5360: 68 2e 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b  h..        if {[
5370: 73 74 72 69 6e 67 20 69 6e 64 65 78 20 24 65 78  string index $ex
5380: 70 65 63 74 65 64 20 30 5d 3d 3d 22 7e 22 7d 20  pected 0]=="~"} 
5390: 7b 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20  {.          set 
53a0: 72 65 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65  re [string range
53b0: 20 24 65 78 70 65 63 74 65 64 20 32 20 65 6e 64   $expected 2 end
53c0: 2d 31 5d 0a 20 20 20 20 20 20 20 20 20 20 69 66  -1].          if
53d0: 20 7b 5b 73 74 72 69 6e 67 20 69 6e 64 65 78 20   {[string index 
53e0: 24 72 65 20 30 5d 3d 3d 22 2a 22 7d 20 7b 0a 20  $re 0]=="*"} {. 
53f0: 20 20 20 20 20 20 20 20 20 20 20 23 20 49 66 20             # If 
5400: 74 68 65 20 72 65 67 75 6c 61 72 20 65 78 70 72  the regular expr
5410: 65 73 73 69 6f 6e 20 62 65 67 69 6e 73 20 77 69  ession begins wi
5420: 74 68 20 2a 20 74 68 65 6e 20 74 72 65 61 74 20  th * then treat 
5430: 69 74 20 61 73 20 61 20 67 6c 6f 62 20 69 6e 73  it as a glob ins
5440: 74 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 20  tead.           
5450: 20 73 65 74 20 6f 6b 20 5b 73 74 72 69 6e 67 20   set ok [string 
5460: 6d 61 74 63 68 20 24 72 65 20 24 72 65 73 75 6c  match $re $resul
5470: 74 5d 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65  t].          } e
5480: 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 20 20  lse {.          
5490: 20 20 73 65 74 20 72 65 20 5b 73 74 72 69 6e 67    set re [string
54a0: 20 6d 61 70 20 7b 23 20 7b 5b 2d 30 2d 39 2e 5d   map {# {[-0-9.]
54b0: 2b 7d 7d 20 24 72 65 5d 0a 20 20 20 20 20 20 20  +}} $re].       
54c0: 20 20 20 20 20 73 65 74 20 6f 6b 20 5b 72 65 67       set ok [reg
54d0: 65 78 70 20 24 72 65 20 24 72 65 73 75 6c 74 5d  exp $re $result]
54e0: 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20  .          }.   
54f0: 20 20 20 20 20 20 20 73 65 74 20 6f 6b 20 5b 65         set ok [e
5500: 78 70 72 20 7b 21 24 6f 6b 7d 5d 0a 20 20 20 20  xpr {!$ok}].    
5510: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20      } else {.   
5520: 20 20 20 20 20 20 20 73 65 74 20 72 65 20 5b 73         set re [s
5530: 74 72 69 6e 67 20 72 61 6e 67 65 20 24 65 78 70  tring range $exp
5540: 65 63 74 65 64 20 31 20 65 6e 64 2d 31 5d 0a 20  ected 1 end-1]. 
5550: 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 73 74           if {[st
5560: 72 69 6e 67 20 69 6e 64 65 78 20 24 72 65 20 30  ring index $re 0
5570: 5d 3d 3d 22 2a 22 7d 20 7b 0a 20 20 20 20 20 20  ]=="*"} {.      
5580: 20 20 20 20 20 20 23 20 49 66 20 74 68 65 20 72        # If the r
5590: 65 67 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f  egular expressio
55a0: 6e 20 62 65 67 69 6e 73 20 77 69 74 68 20 2a 20  n begins with * 
55b0: 74 68 65 6e 20 74 72 65 61 74 20 69 74 20 61 73  then treat it as
55c0: 20 61 20 67 6c 6f 62 20 69 6e 73 74 65 61 64 0a   a glob instead.
55d0: 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20              set 
55e0: 6f 6b 20 5b 73 74 72 69 6e 67 20 6d 61 74 63 68  ok [string match
55f0: 20 24 72 65 20 24 72 65 73 75 6c 74 5d 0a 20 20   $re $result].  
5600: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b          } else {
5610: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74  .            set
5620: 20 72 65 20 5b 73 74 72 69 6e 67 20 6d 61 70 20   re [string map 
5630: 7b 23 20 7b 5b 2d 30 2d 39 2e 5d 2b 7d 7d 20 24  {# {[-0-9.]+}} $
5640: 72 65 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20  re].            
5650: 73 65 74 20 6f 6b 20 5b 72 65 67 65 78 70 20 24  set ok [regexp $
5660: 72 65 20 24 72 65 73 75 6c 74 5d 0a 20 20 20 20  re $result].    
5670: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20        }.        
5680: 7d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 69 66  }.      } elseif
5690: 20 7b 5b 72 65 67 65 78 70 20 7b 5e 7e 3f 5c 2a   {[regexp {^~?\*
56a0: 2e 2a 5c 2a 24 7d 20 24 65 78 70 65 63 74 65 64  .*\*$} $expected
56b0: 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 23 20 22  ]} {.        # "
56c0: 65 78 70 65 63 74 65 64 22 20 69 73 20 6f 66 20  expected" is of 
56d0: 74 68 65 20 66 6f 72 6d 20 22 2a 47 4c 4f 42 2a  the form "*GLOB*
56e0: 22 20 74 68 65 6e 20 74 68 65 20 72 65 73 75 6c  " then the resul
56f0: 74 20 69 66 20 63 6f 72 72 65 63 74 20 69 66 0a  t if correct if.
5700: 20 20 20 20 20 20 20 20 23 20 67 6c 6f 62 20 70          # glob p
5710: 61 74 74 65 72 6e 20 47 4c 4f 42 20 6d 61 74 63  attern GLOB matc
5720: 68 65 73 20 74 68 65 20 72 65 73 75 6c 74 2e 20  hes the result. 
5730: 20 22 7e 2f 47 4c 4f 42 2f 22 20 6d 65 61 6e 73   "~/GLOB/" means
5740: 0a 20 20 20 20 20 20 20 20 23 20 74 68 65 20 67  .        # the g
5750: 6c 6f 62 20 6d 75 73 74 20 6e 6f 74 20 6d 61 74  lob must not mat
5760: 63 68 2e 0a 20 20 20 20 20 20 20 20 69 66 20 7b  ch..        if {
5770: 5b 73 74 72 69 6e 67 20 69 6e 64 65 78 20 24 65  [string index $e
5780: 78 70 65 63 74 65 64 20 30 5d 3d 3d 22 7e 22 7d  xpected 0]=="~"}
5790: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 73 65 74   {.          set
57a0: 20 65 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65   e [string range
57b0: 20 24 65 78 70 65 63 74 65 64 20 31 20 65 6e 64   $expected 1 end
57c0: 5d 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20  ].          set 
57d0: 6f 6b 20 5b 65 78 70 72 20 7b 21 5b 73 74 72 69  ok [expr {![stri
57e0: 6e 67 20 6d 61 74 63 68 20 24 65 20 24 72 65 73  ng match $e $res
57f0: 75 6c 74 5d 7d 5d 0a 20 20 20 20 20 20 20 20 7d  ult]}].        }
5800: 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20   else {.        
5810: 20 20 73 65 74 20 6f 6b 20 5b 73 74 72 69 6e 67    set ok [string
5820: 20 6d 61 74 63 68 20 24 65 78 70 65 63 74 65 64   match $expected
5830: 20 24 72 65 73 75 6c 74 5d 0a 20 20 20 20 20 20   $result].      
5840: 20 20 7d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65    }.      } else
5850: 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 6f   {.        set o
5860: 6b 20 5b 65 78 70 72 20 7b 5b 73 74 72 69 6e 67  k [expr {[string
5870: 20 63 6f 6d 70 61 72 65 20 24 72 65 73 75 6c 74   compare $result
5880: 20 24 65 78 70 65 63 74 65 64 5d 3d 3d 30 7d 5d   $expected]==0}]
5890: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69  .      }.      i
58a0: 66 20 7b 21 24 6f 6b 7d 20 7b 0a 20 20 20 20 20  f {!$ok} {.     
58b0: 20 20 20 23 20 69 66 20 7b 21 5b 69 6e 66 6f 20     # if {![info 
58c0: 65 78 69 73 74 73 20 3a 3a 74 65 73 74 70 72 65  exists ::testpre
58d0: 66 69 78 5d 20 7c 7c 20 24 3a 3a 74 65 73 74 70  fix] || $::testp
58e0: 72 65 66 69 78 20 65 71 20 22 22 7d 20 7b 0a 20  refix eq ""} {. 
58f0: 20 20 20 20 20 20 20 23 20 20 20 65 72 72 6f 72         #   error
5900: 20 22 6e 6f 20 74 65 73 74 20 70 72 65 66 69 78   "no test prefix
5910: 22 0a 20 20 20 20 20 20 20 20 23 20 7d 0a 20 20  ".        # }.  
5920: 20 20 20 20 20 20 6f 75 74 70 75 74 32 5f 69 66        output2_if
5930: 5f 6e 6f 5f 76 65 72 62 6f 73 65 20 2d 6e 6f 6e  _no_verbose -non
5940: 65 77 6c 69 6e 65 20 24 6e 61 6d 65 2e 2e 2e 0a  ewline $name....
5950: 20 20 20 20 20 20 20 20 6f 75 74 70 75 74 32 20          output2 
5960: 22 5c 6e 45 78 70 65 63 74 65 64 3a 20 5c 5b 24  "\nExpected: \[$
5970: 65 78 70 65 63 74 65 64 5c 5d 5c 6e 20 20 20 20  expected\]\n    
5980: 20 47 6f 74 3a 20 5c 5b 24 72 65 73 75 6c 74 5c   Got: \[$result\
5990: 5d 22 0a 20 20 20 20 20 20 20 20 66 61 69 6c 5f  ]".        fail_
59a0: 74 65 73 74 20 24 6e 61 6d 65 0a 20 20 20 20 20  test $name.     
59b0: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20   } else {.      
59c0: 20 20 6f 75 74 70 75 74 31 20 22 20 4f 6b 22 0a    output1 " Ok".
59d0: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20        }.    }.  
59e0: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 6f 75 74  } else {.    out
59f0: 70 75 74 31 20 22 20 4f 6d 69 74 74 65 64 22 0a  put1 " Omitted".
5a00: 20 20 20 20 6f 6d 69 74 5f 74 65 73 74 20 24 6e      omit_test $n
5a10: 61 6d 65 20 22 70 61 74 74 65 72 6e 20 6d 69 73  ame "pattern mis
5a20: 6d 61 74 63 68 22 20 30 0a 20 20 7d 0a 20 20 66  match" 0.  }.  f
5a30: 6c 75 73 68 20 73 74 64 6f 75 74 0a 7d 0a 0a 70  lush stdout.}..p
5a40: 72 6f 63 20 64 75 6d 70 62 79 74 65 73 20 7b 73  roc dumpbytes {s
5a50: 7d 20 7b 0a 20 20 73 65 74 20 72 20 22 22 0a 20  } {.  set r "". 
5a60: 20 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b   for {set i 0} {
5a70: 24 69 20 3c 20 5b 73 74 72 69 6e 67 20 6c 65 6e  $i < [string len
5a80: 67 74 68 20 24 73 5d 7d 20 7b 69 6e 63 72 20 69  gth $s]} {incr i
5a90: 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 69 20 3e  } {.    if {$i >
5aa0: 20 30 7d 20 7b 61 70 70 65 6e 64 20 72 20 22 20   0} {append r " 
5ab0: 22 7d 0a 20 20 20 20 61 70 70 65 6e 64 20 72 20  "}.    append r 
5ac0: 5b 66 6f 72 6d 61 74 20 25 30 32 58 20 5b 73 63  [format %02X [sc
5ad0: 61 6e 20 5b 73 74 72 69 6e 67 20 69 6e 64 65 78  an [string index
5ae0: 20 24 73 20 24 69 5d 20 25 63 5d 5d 0a 20 20 7d   $s $i] %c]].  }
5af0: 0a 20 20 72 65 74 75 72 6e 20 24 72 0a 7d 0a 0a  .  return $r.}..
5b00: 70 72 6f 63 20 63 61 74 63 68 63 6d 64 20 7b 64  proc catchcmd {d
5b10: 62 20 7b 63 6d 64 20 22 22 7d 7d 20 7b 0a 20 20  b {cmd ""}} {.  
5b20: 67 6c 6f 62 61 6c 20 43 4c 49 0a 20 20 73 65 74  global CLI.  set
5b30: 20 6f 75 74 20 5b 6f 70 65 6e 20 63 6d 64 73 2e   out [open cmds.
5b40: 74 78 74 20 77 5d 0a 20 20 70 75 74 73 20 24 6f  txt w].  puts $o
5b50: 75 74 20 24 63 6d 64 0a 20 20 63 6c 6f 73 65 20  ut $cmd.  close 
5b60: 24 6f 75 74 0a 20 20 73 65 74 20 6c 69 6e 65 20  $out.  set line 
5b70: 22 65 78 65 63 20 24 43 4c 49 20 24 64 62 20 3c  "exec $CLI $db <
5b80: 20 63 6d 64 73 2e 74 78 74 22 0a 20 20 73 65 74   cmds.txt".  set
5b90: 20 72 63 20 5b 63 61 74 63 68 20 7b 20 65 76 61   rc [catch { eva
5ba0: 6c 20 24 6c 69 6e 65 20 7d 20 6d 73 67 5d 0a 20  l $line } msg]. 
5bb0: 20 6c 69 73 74 20 24 72 63 20 24 6d 73 67 0a 7d   list $rc $msg.}
5bc0: 0a 0a 70 72 6f 63 20 63 61 74 63 68 63 6d 64 65  ..proc catchcmde
5bd0: 78 20 7b 64 62 20 7b 63 6d 64 20 22 22 7d 7d 20  x {db {cmd ""}} 
5be0: 7b 0a 20 20 67 6c 6f 62 61 6c 20 43 4c 49 0a 20  {.  global CLI. 
5bf0: 20 73 65 74 20 6f 75 74 20 5b 6f 70 65 6e 20 63   set out [open c
5c00: 6d 64 73 2e 74 78 74 20 77 5d 0a 20 20 66 63 6f  mds.txt w].  fco
5c10: 6e 66 69 67 75 72 65 20 24 6f 75 74 20 2d 65 6e  nfigure $out -en
5c20: 63 6f 64 69 6e 67 20 62 69 6e 61 72 79 20 2d 74  coding binary -t
5c30: 72 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72  ranslation binar
5c40: 79 0a 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c  y.  puts -nonewl
5c50: 69 6e 65 20 24 6f 75 74 20 24 63 6d 64 0a 20 20  ine $out $cmd.  
5c60: 63 6c 6f 73 65 20 24 6f 75 74 0a 20 20 73 65 74  close $out.  set
5c70: 20 6c 69 6e 65 20 22 65 78 65 63 20 2d 6b 65 65   line "exec -kee
5c80: 70 6e 65 77 6c 69 6e 65 20 2d 2d 20 24 43 4c 49  pnewline -- $CLI
5c90: 20 24 64 62 20 3c 20 63 6d 64 73 2e 74 78 74 22   $db < cmds.txt"
5ca0: 0a 20 20 73 65 74 20 63 68 61 6e 73 20 5b 6c 69  .  set chans [li
5cb0: 73 74 20 73 74 64 69 6e 20 73 74 64 6f 75 74 20  st stdin stdout 
5cc0: 73 74 64 65 72 72 5d 0a 20 20 66 6f 72 65 61 63  stderr].  foreac
5cd0: 68 20 63 68 61 6e 20 24 63 68 61 6e 73 20 7b 0a  h chan $chans {.
5ce0: 20 20 20 20 63 61 74 63 68 20 7b 0a 20 20 20 20      catch {.    
5cf0: 20 20 73 65 74 20 6d 6f 64 65 73 28 24 63 68 61    set modes($cha
5d00: 6e 29 20 5b 66 63 6f 6e 66 69 67 75 72 65 20 24  n) [fconfigure $
5d10: 63 68 61 6e 5d 0a 20 20 20 20 20 20 66 63 6f 6e  chan].      fcon
5d20: 66 69 67 75 72 65 20 24 63 68 61 6e 20 2d 65 6e  figure $chan -en
5d30: 63 6f 64 69 6e 67 20 62 69 6e 61 72 79 20 2d 74  coding binary -t
5d40: 72 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72  ranslation binar
5d50: 79 20 2d 62 75 66 66 65 72 69 6e 67 20 6e 6f 6e  y -buffering non
5d60: 65 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 65  e.    }.  }.  se
5d70: 74 20 72 63 20 5b 63 61 74 63 68 20 7b 20 65 76  t rc [catch { ev
5d80: 61 6c 20 24 6c 69 6e 65 20 7d 20 6d 73 67 5d 0a  al $line } msg].
5d90: 20 20 66 6f 72 65 61 63 68 20 63 68 61 6e 20 24    foreach chan $
5da0: 63 68 61 6e 73 20 7b 0a 20 20 20 20 63 61 74 63  chans {.    catc
5db0: 68 20 7b 0a 20 20 20 20 20 20 65 76 61 6c 20 66  h {.      eval f
5dc0: 63 6f 6e 66 69 67 75 72 65 20 5b 6c 69 73 74 20  configure [list 
5dd0: 24 63 68 61 6e 5d 20 24 6d 6f 64 65 73 28 24 63  $chan] $modes($c
5de0: 68 61 6e 29 0a 20 20 20 20 7d 0a 20 20 7d 0a 20  han).    }.  }. 
5df0: 20 23 20 70 75 74 73 20 5b 64 75 6d 70 62 79 74   # puts [dumpbyt
5e00: 65 73 20 24 6d 73 67 5d 0a 20 20 6c 69 73 74 20  es $msg].  list 
5e10: 24 72 63 20 24 6d 73 67 0a 7d 0a 0a 70 72 6f 63  $rc $msg.}..proc
5e20: 20 66 69 6c 65 70 61 74 68 5f 6e 6f 72 6d 61 6c   filepath_normal
5e30: 69 7a 65 20 7b 70 7d 20 7b 0a 20 20 23 20 74 65  ize {p} {.  # te
5e40: 73 74 20 63 61 73 65 73 20 73 68 6f 75 6c 64 20  st cases should 
5e50: 62 65 20 77 72 69 74 74 65 6e 20 74 6f 20 61 73  be written to as
5e60: 73 75 6d 65 20 22 75 6e 69 78 22 2d 6c 69 6b 65  sume "unix"-like
5e70: 20 66 69 6c 65 20 70 61 74 68 73 0a 20 20 69 66   file paths.  if
5e80: 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72   {$::tcl_platfor
5e90: 6d 28 70 6c 61 74 66 6f 72 6d 29 21 3d 22 75 6e  m(platform)!="un
5ea0: 69 78 22 7d 20 7b 0a 20 20 20 20 23 20 6c 72 65  ix"} {.    # lre
5eb0: 76 65 72 73 65 2a 32 20 61 73 20 61 20 68 61 63  verse*2 as a hac
5ec0: 6b 20 74 6f 20 72 65 6d 6f 76 65 20 61 6e 79 20  k to remove any 
5ed0: 75 6e 6e 65 65 64 65 64 20 7b 7d 20 61 66 74 65  unneeded {} afte
5ee0: 72 20 74 68 65 20 73 74 72 69 6e 67 20 6d 61 70  r the string map
5ef0: 0a 20 20 20 20 6c 72 65 76 65 72 73 65 20 5b 6c  .    lreverse [l
5f00: 72 65 76 65 72 73 65 20 5b 73 74 72 69 6e 67 20  reverse [string 
5f10: 6d 61 70 20 7b 5c 5c 20 2f 7d 20 5b 72 65 67 73  map {\\ /} [regs
5f20: 75 62 20 2d 6e 6f 63 61 73 65 20 2d 61 6c 6c 20  ub -nocase -all 
5f30: 7b 5b 61 2d 7a 5d 3a 5b 2f 5c 5c 5d 2b 7d 20 24  {[a-z]:[/\\]+} $
5f40: 70 20 7b 2f 7d 5d 5d 5d 0a 20 20 7d 20 7b 0a 20  p {/}]]].  } {. 
5f50: 20 20 20 73 65 74 20 70 0a 20 20 7d 0a 7d 0a 70     set p.  }.}.p
5f60: 72 6f 63 20 64 6f 5f 66 69 6c 65 70 61 74 68 5f  roc do_filepath_
5f70: 74 65 73 74 20 7b 6e 61 6d 65 20 63 6d 64 20 65  test {name cmd e
5f80: 78 70 65 63 74 65 64 7d 20 7b 0a 20 20 75 70 6c  xpected} {.  upl
5f90: 65 76 65 6c 20 5b 6c 69 73 74 20 64 6f 5f 74 65  evel [list do_te
5fa0: 73 74 20 24 6e 61 6d 65 20 5b 0a 20 20 20 20 73  st $name [.    s
5fb0: 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73  ubst -nocommands
5fc0: 20 7b 20 66 69 6c 65 70 61 74 68 5f 6e 6f 72 6d   { filepath_norm
5fd0: 61 6c 69 7a 65 20 5b 20 24 63 6d 64 20 5d 20 7d  alize [ $cmd ] }
5fe0: 0a 20 20 5d 20 5b 66 69 6c 65 70 61 74 68 5f 6e  .  ] [filepath_n
5ff0: 6f 72 6d 61 6c 69 7a 65 20 24 65 78 70 65 63 74  ormalize $expect
6000: 65 64 5d 5d 0a 7d 0a 0a 70 72 6f 63 20 72 65 61  ed]].}..proc rea
6010: 6c 6e 75 6d 5f 6e 6f 72 6d 61 6c 69 7a 65 20 7b  lnum_normalize {
6020: 72 7d 20 7b 0a 20 20 23 20 64 69 66 66 65 72 65  r} {.  # differe
6030: 6e 74 20 54 43 4c 20 76 65 72 73 69 6f 6e 73 20  nt TCL versions 
6040: 64 69 73 70 6c 61 79 20 66 6c 6f 61 74 69 6e 67  display floating
6050: 20 70 6f 69 6e 74 20 76 61 6c 75 65 73 20 64 69   point values di
6060: 66 66 65 72 65 6e 74 6c 79 2e 0a 20 20 73 74 72  fferently..  str
6070: 69 6e 67 20 6d 61 70 20 7b 31 2e 23 49 4e 46 20  ing map {1.#INF 
6080: 69 6e 66 20 49 6e 66 20 69 6e 66 20 2e 30 65 20  inf Inf inf .0e 
6090: 65 7d 20 5b 72 65 67 73 75 62 20 2d 61 6c 6c 20  e} [regsub -all 
60a0: 7b 28 65 5b 2b 2d 5d 29 30 2b 7d 20 24 72 20 7b  {(e[+-])0+} $r {
60b0: 5c 31 7d 5d 0a 7d 0a 70 72 6f 63 20 64 6f 5f 72  \1}].}.proc do_r
60c0: 65 61 6c 6e 75 6d 5f 74 65 73 74 20 7b 6e 61 6d  ealnum_test {nam
60d0: 65 20 63 6d 64 20 65 78 70 65 63 74 65 64 7d 20  e cmd expected} 
60e0: 7b 0a 20 20 75 70 6c 65 76 65 6c 20 5b 6c 69 73  {.  uplevel [lis
60f0: 74 20 64 6f 5f 74 65 73 74 20 24 6e 61 6d 65 20  t do_test $name 
6100: 5b 0a 20 20 20 20 73 75 62 73 74 20 2d 6e 6f 63  [.    subst -noc
6110: 6f 6d 6d 61 6e 64 73 20 7b 20 72 65 61 6c 6e 75  ommands { realnu
6120: 6d 5f 6e 6f 72 6d 61 6c 69 7a 65 20 5b 20 24 63  m_normalize [ $c
6130: 6d 64 20 5d 20 7d 0a 20 20 5d 20 5b 72 65 61 6c  md ] }.  ] [real
6140: 6e 75 6d 5f 6e 6f 72 6d 61 6c 69 7a 65 20 24 65  num_normalize $e
6150: 78 70 65 63 74 65 64 5d 5d 0a 7d 0a 0a 70 72 6f  xpected]].}..pro
6160: 63 20 66 69 78 5f 74 65 73 74 6e 61 6d 65 20 7b  c fix_testname {
6170: 76 61 72 6e 61 6d 65 7d 20 7b 0a 20 20 75 70 76  varname} {.  upv
6180: 61 72 20 24 76 61 72 6e 61 6d 65 20 74 65 73 74  ar $varname test
6190: 6e 61 6d 65 0a 20 20 69 66 20 7b 5b 69 6e 66 6f  name.  if {[info
61a0: 20 65 78 69 73 74 73 20 3a 3a 74 65 73 74 70 72   exists ::testpr
61b0: 65 66 69 78 5d 0a 20 20 20 26 26 20 5b 73 74 72  efix].   && [str
61c0: 69 6e 67 20 69 73 20 64 69 67 69 74 20 5b 73 74  ing is digit [st
61d0: 72 69 6e 67 20 72 61 6e 67 65 20 24 74 65 73 74  ring range $test
61e0: 6e 61 6d 65 20 30 20 30 5d 5d 0a 20 20 7d 20 7b  name 0 0]].  } {
61f0: 0a 20 20 20 20 73 65 74 20 74 65 73 74 6e 61 6d  .    set testnam
6200: 65 20 22 24 7b 3a 3a 74 65 73 74 70 72 65 66 69  e "${::testprefi
6210: 78 7d 2d 24 74 65 73 74 6e 61 6d 65 22 0a 20 20  x}-$testname".  
6220: 7d 0a 7d 0a 0a 70 72 6f 63 20 64 6f 5f 65 78 65  }.}..proc do_exe
6230: 63 73 71 6c 5f 74 65 73 74 20 7b 74 65 73 74 6e  csql_test {testn
6240: 61 6d 65 20 73 71 6c 20 7b 72 65 73 75 6c 74 20  ame sql {result 
6250: 7b 7d 7d 7d 20 7b 0a 20 20 66 69 78 5f 74 65 73  {}}} {.  fix_tes
6260: 74 6e 61 6d 65 20 74 65 73 74 6e 61 6d 65 0a 20  tname testname. 
6270: 20 75 70 6c 65 76 65 6c 20 64 6f 5f 74 65 73 74   uplevel do_test
6280: 20 5b 6c 69 73 74 20 24 74 65 73 74 6e 61 6d 65   [list $testname
6290: 5d 20 5b 6c 69 73 74 20 22 65 78 65 63 73 71 6c  ] [list "execsql
62a0: 20 7b 24 73 71 6c 7d 22 5d 20 5b 6c 69 73 74 20   {$sql}"] [list 
62b0: 5b 6c 69 73 74 20 7b 2a 7d 24 72 65 73 75 6c 74  [list {*}$result
62c0: 5d 5d 0a 7d 0a 70 72 6f 63 20 64 6f 5f 63 61 74  ]].}.proc do_cat
62d0: 63 68 73 71 6c 5f 74 65 73 74 20 7b 74 65 73 74  chsql_test {test
62e0: 6e 61 6d 65 20 73 71 6c 20 72 65 73 75 6c 74 7d  name sql result}
62f0: 20 7b 0a 20 20 66 69 78 5f 74 65 73 74 6e 61 6d   {.  fix_testnam
6300: 65 20 74 65 73 74 6e 61 6d 65 0a 20 20 75 70 6c  e testname.  upl
6310: 65 76 65 6c 20 64 6f 5f 74 65 73 74 20 5b 6c 69  evel do_test [li
6320: 73 74 20 24 74 65 73 74 6e 61 6d 65 5d 20 5b 6c  st $testname] [l
6330: 69 73 74 20 22 63 61 74 63 68 73 71 6c 20 7b 24  ist "catchsql {$
6340: 73 71 6c 7d 22 5d 20 5b 6c 69 73 74 20 24 72 65  sql}"] [list $re
6350: 73 75 6c 74 5d 0a 7d 0a 70 72 6f 63 20 64 6f 5f  sult].}.proc do_
6360: 74 69 6d 65 64 5f 65 78 65 63 73 71 6c 5f 74 65  timed_execsql_te
6370: 73 74 20 7b 74 65 73 74 6e 61 6d 65 20 73 71 6c  st {testname sql
6380: 20 7b 72 65 73 75 6c 74 20 7b 7d 7d 7d 20 7b 0a   {result {}}} {.
6390: 20 20 66 69 78 5f 74 65 73 74 6e 61 6d 65 20 74    fix_testname t
63a0: 65 73 74 6e 61 6d 65 0a 20 20 75 70 6c 65 76 65  estname.  upleve
63b0: 6c 20 64 6f 5f 74 65 73 74 20 5b 6c 69 73 74 20  l do_test [list 
63c0: 24 74 65 73 74 6e 61 6d 65 5d 20 5b 6c 69 73 74  $testname] [list
63d0: 20 22 65 78 65 63 73 71 6c 5f 74 69 6d 65 64 20   "execsql_timed 
63e0: 7b 24 73 71 6c 7d 22 5d 5c 0a 20 20 20 20 20 20  {$sql}"]\.      
63f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6400: 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 6c 69               [li
6410: 73 74 20 5b 6c 69 73 74 20 7b 2a 7d 24 72 65 73  st [list {*}$res
6420: 75 6c 74 5d 5d 0a 7d 0a 70 72 6f 63 20 64 6f 5f  ult]].}.proc do_
6430: 65 71 70 5f 74 65 73 74 20 7b 6e 61 6d 65 20 73  eqp_test {name s
6440: 71 6c 20 72 65 73 7d 20 7b 0a 20 20 75 70 6c 65  ql res} {.  uple
6450: 76 65 6c 20 64 6f 5f 65 78 65 63 73 71 6c 5f 74  vel do_execsql_t
6460: 65 73 74 20 24 6e 61 6d 65 20 5b 6c 69 73 74 20  est $name [list 
6470: 22 45 58 50 4c 41 49 4e 20 51 55 45 52 59 20 50  "EXPLAIN QUERY P
6480: 4c 41 4e 20 24 73 71 6c 22 5d 20 5b 6c 69 73 74  LAN $sql"] [list
6490: 20 24 72 65 73 5d 0a 7d 0a 0a 23 2d 2d 2d 2d 2d   $res].}..#-----
64a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
64b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
64c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
64d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
64e0: 2d 2d 2d 2d 0a 23 20 20 20 55 73 61 67 65 3a 20  ----.#   Usage: 
64f0: 64 6f 5f 73 65 6c 65 63 74 5f 74 65 73 74 73 20  do_select_tests 
6500: 50 52 45 46 49 58 20 3f 53 57 49 54 43 48 45 53  PREFIX ?SWITCHES
6510: 3f 20 54 45 53 54 4c 49 53 54 0a 23 0a 23 20 57  ? TESTLIST.#.# W
6520: 68 65 72 65 20 73 77 69 74 63 68 65 73 20 61 72  here switches ar
6530: 65 3a 0a 23 0a 23 20 20 20 2d 65 72 72 6f 72 66  e:.#.#   -errorf
6540: 6f 72 6d 61 74 20 46 4d 54 53 54 52 49 4e 47 0a  ormat FMTSTRING.
6550: 23 20 20 20 2d 63 6f 75 6e 74 0a 23 20 20 20 2d  #   -count.#   -
6560: 71 75 65 72 79 20 53 51 4c 0a 23 20 20 20 2d 74  query SQL.#   -t
6570: 63 6c 71 75 65 72 79 20 54 43 4c 0a 23 20 20 20  clquery TCL.#   
6580: 2d 72 65 70 61 69 72 20 54 43 4c 0a 23 0a 70 72  -repair TCL.#.pr
6590: 6f 63 20 64 6f 5f 73 65 6c 65 63 74 5f 74 65 73  oc do_select_tes
65a0: 74 73 20 7b 70 72 65 66 69 78 20 61 72 67 73 7d  ts {prefix args}
65b0: 20 7b 0a 0a 20 20 73 65 74 20 74 65 73 74 6c 69   {..  set testli
65c0: 73 74 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73  st [lindex $args
65d0: 20 65 6e 64 5d 0a 20 20 73 65 74 20 73 77 69 74   end].  set swit
65e0: 63 68 65 73 20 5b 6c 72 61 6e 67 65 20 24 61 72  ches [lrange $ar
65f0: 67 73 20 30 20 65 6e 64 2d 31 5d 0a 0a 20 20 73  gs 0 end-1]..  s
6600: 65 74 20 65 72 72 66 6d 74 20 22 22 0a 20 20 73  et errfmt "".  s
6610: 65 74 20 63 6f 75 6e 74 6f 6e 6c 79 20 30 0a 20  et countonly 0. 
6620: 20 73 65 74 20 74 63 6c 71 75 65 72 79 20 22 22   set tclquery ""
6630: 0a 20 20 73 65 74 20 72 65 70 61 69 72 20 22 22  .  set repair ""
6640: 0a 0a 20 20 66 6f 72 20 7b 73 65 74 20 69 20 30  ..  for {set i 0
6650: 7d 20 7b 24 69 20 3c 20 5b 6c 6c 65 6e 67 74 68  } {$i < [llength
6660: 20 24 73 77 69 74 63 68 65 73 5d 7d 20 7b 69 6e   $switches]} {in
6670: 63 72 20 69 7d 20 7b 0a 20 20 20 20 73 65 74 20  cr i} {.    set 
6680: 73 20 5b 6c 69 6e 64 65 78 20 24 73 77 69 74 63  s [lindex $switc
6690: 68 65 73 20 24 69 5d 0a 20 20 20 20 73 65 74 20  hes $i].    set 
66a0: 6e 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68  n [string length
66b0: 20 24 73 5d 0a 20 20 20 20 69 66 20 7b 24 6e 3e   $s].    if {$n>
66c0: 3d 32 20 26 26 20 5b 73 74 72 69 6e 67 20 65 71  =2 && [string eq
66d0: 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24 6e 20 24  ual -length $n $
66e0: 73 20 22 2d 71 75 65 72 79 22 5d 7d 20 7b 0a 20  s "-query"]} {. 
66f0: 20 20 20 20 20 73 65 74 20 74 63 6c 71 75 65 72       set tclquer
6700: 79 20 5b 6c 69 73 74 20 65 78 65 63 73 71 6c 20  y [list execsql 
6710: 5b 6c 69 6e 64 65 78 20 24 73 77 69 74 63 68 65  [lindex $switche
6720: 73 20 5b 69 6e 63 72 20 69 5d 5d 5d 0a 20 20 20  s [incr i]]].   
6730: 20 7d 20 65 6c 73 65 69 66 20 7b 24 6e 3e 3d 32   } elseif {$n>=2
6740: 20 26 26 20 5b 73 74 72 69 6e 67 20 65 71 75 61   && [string equa
6750: 6c 20 2d 6c 65 6e 67 74 68 20 24 6e 20 24 73 20  l -length $n $s 
6760: 22 2d 74 63 6c 71 75 65 72 79 22 5d 7d 20 7b 0a  "-tclquery"]} {.
6770: 20 20 20 20 20 20 73 65 74 20 74 63 6c 71 75 65        set tclque
6780: 72 79 20 5b 6c 69 6e 64 65 78 20 24 73 77 69 74  ry [lindex $swit
6790: 63 68 65 73 20 5b 69 6e 63 72 20 69 5d 5d 0a 20  ches [incr i]]. 
67a0: 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 6e 3e     } elseif {$n>
67b0: 3d 32 20 26 26 20 5b 73 74 72 69 6e 67 20 65 71  =2 && [string eq
67c0: 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24 6e 20 24  ual -length $n $
67d0: 73 20 22 2d 65 72 72 6f 72 66 6f 72 6d 61 74 22  s "-errorformat"
67e0: 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 65  ]} {.      set e
67f0: 72 72 66 6d 74 20 5b 6c 69 6e 64 65 78 20 24 73  rrfmt [lindex $s
6800: 77 69 74 63 68 65 73 20 5b 69 6e 63 72 20 69 5d  witches [incr i]
6810: 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b  ].    } elseif {
6820: 24 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e 67  $n>=2 && [string
6830: 20 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24   equal -length $
6840: 6e 20 24 73 20 22 2d 72 65 70 61 69 72 22 5d 7d  n $s "-repair"]}
6850: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 72 65 70   {.      set rep
6860: 61 69 72 20 5b 6c 69 6e 64 65 78 20 24 73 77 69  air [lindex $swi
6870: 74 63 68 65 73 20 5b 69 6e 63 72 20 69 5d 5d 0a  tches [incr i]].
6880: 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 6e      } elseif {$n
6890: 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e 67 20 65  >=2 && [string e
68a0: 71 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24 6e 20  qual -length $n 
68b0: 24 73 20 22 2d 63 6f 75 6e 74 22 5d 7d 20 7b 0a  $s "-count"]} {.
68c0: 20 20 20 20 20 20 73 65 74 20 63 6f 75 6e 74 6f        set counto
68d0: 6e 6c 79 20 31 0a 20 20 20 20 7d 20 65 6c 73 65  nly 1.    } else
68e0: 20 7b 0a 20 20 20 20 20 20 65 72 72 6f 72 20 22   {.      error "
68f0: 75 6e 6b 6e 6f 77 6e 20 73 77 69 74 63 68 3a 20  unknown switch: 
6900: 24 73 22 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20  $s".    }.  }.. 
6910: 20 69 66 20 7b 24 63 6f 75 6e 74 6f 6e 6c 79 20   if {$countonly 
6920: 26 26 20 24 65 72 72 66 6d 74 21 3d 22 22 7d 20  && $errfmt!=""} 
6930: 7b 0a 20 20 20 20 65 72 72 6f 72 20 22 43 61 6e  {.    error "Can
6940: 6e 6f 74 20 75 73 65 20 2d 63 6f 75 6e 74 20 61  not use -count a
6950: 6e 64 20 2d 65 72 72 6f 72 66 6f 72 6d 61 74 20  nd -errorformat 
6960: 74 6f 67 65 74 68 65 72 22 0a 20 20 7d 0a 20 20  together".  }.  
6970: 73 65 74 20 6e 54 65 73 74 6c 69 73 74 20 5b 6c  set nTestlist [l
6980: 6c 65 6e 67 74 68 20 24 74 65 73 74 6c 69 73 74  length $testlist
6990: 5d 0a 20 20 69 66 20 7b 24 6e 54 65 73 74 6c 69  ].  if {$nTestli
69a0: 73 74 25 33 20 7c 7c 20 24 6e 54 65 73 74 6c 69  st%3 || $nTestli
69b0: 73 74 3d 3d 30 20 7d 20 7b 0a 20 20 20 20 65 72  st==0 } {.    er
69c0: 72 6f 72 20 22 53 45 4c 45 43 54 20 74 65 73 74  ror "SELECT test
69d0: 20 6c 69 73 74 20 63 6f 6e 74 61 69 6e 73 20 5b   list contains [
69e0: 6c 6c 65 6e 67 74 68 20 24 74 65 73 74 6c 69 73  llength $testlis
69f0: 74 5d 20 65 6c 65 6d 65 6e 74 73 22 0a 20 20 7d  t] elements".  }
6a00: 0a 0a 20 20 65 76 61 6c 20 24 72 65 70 61 69 72  ..  eval $repair
6a10: 0a 20 20 66 6f 72 65 61 63 68 20 7b 74 6e 20 73  .  foreach {tn s
6a20: 71 6c 20 72 65 73 7d 20 24 74 65 73 74 6c 69 73  ql res} $testlis
6a30: 74 20 7b 0a 20 20 20 20 69 66 20 7b 24 74 63 6c  t {.    if {$tcl
6a40: 71 75 65 72 79 20 21 3d 20 22 22 7d 20 7b 0a 20  query != ""} {. 
6a50: 20 20 20 20 20 65 78 65 63 73 71 6c 20 24 73 71       execsql $sq
6a60: 6c 0a 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20  l.      uplevel 
6a70: 64 6f 5f 74 65 73 74 20 24 7b 70 72 65 66 69 78  do_test ${prefix
6a80: 7d 2e 24 74 6e 20 5b 6c 69 73 74 20 24 74 63 6c  }.$tn [list $tcl
6a90: 71 75 65 72 79 5d 20 5b 6c 69 73 74 20 5b 6c 69  query] [list [li
6aa0: 73 74 20 7b 2a 7d 24 72 65 73 5d 5d 0a 20 20 20  st {*}$res]].   
6ab0: 20 7d 20 65 6c 73 65 69 66 20 7b 24 63 6f 75 6e   } elseif {$coun
6ac0: 74 6f 6e 6c 79 7d 20 7b 0a 20 20 20 20 20 20 73  tonly} {.      s
6ad0: 65 74 20 6e 52 6f 77 20 30 0a 20 20 20 20 20 20  et nRow 0.      
6ae0: 64 62 20 65 76 61 6c 20 24 73 71 6c 20 7b 69 6e  db eval $sql {in
6af0: 63 72 20 6e 52 6f 77 7d 0a 20 20 20 20 20 20 75  cr nRow}.      u
6b00: 70 6c 65 76 65 6c 20 64 6f 5f 74 65 73 74 20 24  plevel do_test $
6b10: 7b 70 72 65 66 69 78 7d 2e 24 74 6e 20 5b 6c 69  {prefix}.$tn [li
6b20: 73 74 20 5b 6c 69 73 74 20 73 65 74 20 7b 7d 20  st [list set {} 
6b30: 24 6e 52 6f 77 5d 5d 20 5b 6c 69 73 74 20 24 72  $nRow]] [list $r
6b40: 65 73 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66  es].    } elseif
6b50: 20 7b 24 65 72 72 66 6d 74 3d 3d 22 22 7d 20 7b   {$errfmt==""} {
6b60: 0a 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20 64  .      uplevel d
6b70: 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74 20 24  o_execsql_test $
6b80: 7b 70 72 65 66 69 78 7d 2e 24 7b 74 6e 7d 20 5b  {prefix}.${tn} [
6b90: 6c 69 73 74 20 24 73 71 6c 5d 20 5b 6c 69 73 74  list $sql] [list
6ba0: 20 5b 6c 69 73 74 20 7b 2a 7d 24 72 65 73 5d 5d   [list {*}$res]]
6bb0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20  .    } else {.  
6bc0: 20 20 20 20 73 65 74 20 72 65 73 20 5b 6c 69 73      set res [lis
6bd0: 74 20 31 20 5b 73 74 72 69 6e 67 20 74 72 69 6d  t 1 [string trim
6be0: 20 5b 66 6f 72 6d 61 74 20 24 65 72 72 66 6d 74   [format $errfmt
6bf0: 20 7b 2a 7d 24 72 65 73 5d 5d 5d 0a 20 20 20 20   {*}$res]]].    
6c00: 20 20 75 70 6c 65 76 65 6c 20 64 6f 5f 63 61 74    uplevel do_cat
6c10: 63 68 73 71 6c 5f 74 65 73 74 20 24 7b 70 72 65  chsql_test ${pre
6c20: 66 69 78 7d 2e 24 7b 74 6e 7d 20 5b 6c 69 73 74  fix}.${tn} [list
6c30: 20 24 73 71 6c 5d 20 5b 6c 69 73 74 20 24 72 65   $sql] [list $re
6c40: 73 5d 0a 20 20 20 20 7d 0a 20 20 20 20 65 76 61  s].    }.    eva
6c50: 6c 20 24 72 65 70 61 69 72 0a 20 20 7d 0a 0a 7d  l $repair.  }..}
6c60: 0a 0a 70 72 6f 63 20 64 65 6c 65 74 65 5f 61 6c  ..proc delete_al
6c70: 6c 5f 64 61 74 61 20 7b 7d 20 7b 0a 20 20 64 62  l_data {} {.  db
6c80: 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 74 62   eval {SELECT tb
6c90: 6c 5f 6e 61 6d 65 20 41 53 20 74 20 46 52 4f 4d  l_name AS t FROM
6ca0: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 57   sqlite_master W
6cb0: 48 45 52 45 20 74 79 70 65 20 3d 20 27 74 61 62  HERE type = 'tab
6cc0: 6c 65 27 7d 20 7b 0a 20 20 20 20 64 62 20 65 76  le'} {.    db ev
6cd0: 61 6c 20 22 44 45 4c 45 54 45 20 46 52 4f 4d 20  al "DELETE FROM 
6ce0: 27 5b 73 74 72 69 6e 67 20 6d 61 70 20 7b 27 20  '[string map {' 
6cf0: 27 27 7d 20 24 74 5d 27 22 0a 20 20 7d 0a 7d 0a  ''} $t]'".  }.}.
6d00: 0a 23 20 52 75 6e 20 61 6e 20 53 51 4c 20 73 63  .# Run an SQL sc
6d10: 72 69 70 74 2e 0a 23 20 52 65 74 75 72 6e 20 74  ript..# Return t
6d20: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 6d 69 63  he number of mic
6d30: 72 6f 73 65 63 6f 6e 64 73 20 70 65 72 20 73 74  roseconds per st
6d40: 61 74 65 6d 65 6e 74 2e 0a 23 0a 70 72 6f 63 20  atement..#.proc 
6d50: 73 70 65 65 64 5f 74 72 69 61 6c 20 7b 6e 61 6d  speed_trial {nam
6d60: 65 20 6e 75 6d 73 74 6d 74 20 75 6e 69 74 73 20  e numstmt units 
6d70: 73 71 6c 7d 20 7b 0a 20 20 6f 75 74 70 75 74 32  sql} {.  output2
6d80: 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 5b 66 6f 72   -nonewline [for
6d90: 6d 61 74 20 7b 25 2d 32 31 2e 32 31 73 20 7d 20  mat {%-21.21s } 
6da0: 24 6e 61 6d 65 2e 2e 2e 5d 0a 20 20 66 6c 75 73  $name...].  flus
6db0: 68 20 73 74 64 6f 75 74 0a 20 20 73 65 74 20 73  h stdout.  set s
6dc0: 70 65 65 64 20 5b 74 69 6d 65 20 7b 73 71 6c 69  peed [time {sqli
6dd0: 74 65 33 5f 65 78 65 63 5f 6e 72 20 64 62 20 24  te3_exec_nr db $
6de0: 73 71 6c 7d 5d 0a 20 20 73 65 74 20 74 6d 20 5b  sql}].  set tm [
6df0: 6c 69 6e 64 65 78 20 24 73 70 65 65 64 20 30 5d  lindex $speed 0]
6e00: 0a 20 20 69 66 20 7b 24 74 6d 20 3d 3d 20 30 7d  .  if {$tm == 0}
6e10: 20 7b 0a 20 20 20 20 73 65 74 20 72 61 74 65 20   {.    set rate 
6e20: 5b 66 6f 72 6d 61 74 20 25 32 30 73 20 22 6d 61  [format %20s "ma
6e30: 6e 79 22 5d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a  ny"].  } else {.
6e40: 20 20 20 20 73 65 74 20 72 61 74 65 20 5b 66 6f      set rate [fo
6e50: 72 6d 61 74 20 25 32 30 2e 35 66 20 5b 65 78 70  rmat %20.5f [exp
6e60: 72 20 7b 31 30 30 30 30 30 30 2e 30 2a 24 6e 75  r {1000000.0*$nu
6e70: 6d 73 74 6d 74 2f 24 74 6d 7d 5d 5d 0a 20 20 7d  mstmt/$tm}]].  }
6e80: 0a 20 20 73 65 74 20 75 32 20 24 75 6e 69 74 73  .  set u2 $units
6e90: 2f 73 0a 20 20 6f 75 74 70 75 74 32 20 5b 66 6f  /s.  output2 [fo
6ea0: 72 6d 61 74 20 7b 25 31 32 64 20 75 53 20 25 73  rmat {%12d uS %s
6eb0: 20 25 73 7d 20 24 74 6d 20 24 72 61 74 65 20 24   %s} $tm $rate $
6ec0: 75 32 5d 0a 20 20 67 6c 6f 62 61 6c 20 74 6f 74  u2].  global tot
6ed0: 61 6c 5f 74 69 6d 65 0a 20 20 73 65 74 20 74 6f  al_time.  set to
6ee0: 74 61 6c 5f 74 69 6d 65 20 5b 65 78 70 72 20 7b  tal_time [expr {
6ef0: 24 74 6f 74 61 6c 5f 74 69 6d 65 2b 24 74 6d 7d  $total_time+$tm}
6f00: 5d 0a 20 20 6c 61 70 70 65 6e 64 20 3a 3a 73 70  ].  lappend ::sp
6f10: 65 65 64 5f 74 72 69 61 6c 5f 74 69 6d 65 73 20  eed_trial_times 
6f20: 24 6e 61 6d 65 20 24 74 6d 0a 7d 0a 70 72 6f 63  $name $tm.}.proc
6f30: 20 73 70 65 65 64 5f 74 72 69 61 6c 5f 74 63 6c   speed_trial_tcl
6f40: 20 7b 6e 61 6d 65 20 6e 75 6d 73 74 6d 74 20 75   {name numstmt u
6f50: 6e 69 74 73 20 73 63 72 69 70 74 7d 20 7b 0a 20  nits script} {. 
6f60: 20 6f 75 74 70 75 74 32 20 2d 6e 6f 6e 65 77 6c   output2 -nonewl
6f70: 69 6e 65 20 5b 66 6f 72 6d 61 74 20 7b 25 2d 32  ine [format {%-2
6f80: 31 2e 32 31 73 20 7d 20 24 6e 61 6d 65 2e 2e 2e  1.21s } $name...
6f90: 5d 0a 20 20 66 6c 75 73 68 20 73 74 64 6f 75 74  ].  flush stdout
6fa0: 0a 20 20 73 65 74 20 73 70 65 65 64 20 5b 74 69  .  set speed [ti
6fb0: 6d 65 20 7b 65 76 61 6c 20 24 73 63 72 69 70 74  me {eval $script
6fc0: 7d 5d 0a 20 20 73 65 74 20 74 6d 20 5b 6c 69 6e  }].  set tm [lin
6fd0: 64 65 78 20 24 73 70 65 65 64 20 30 5d 0a 20 20  dex $speed 0].  
6fe0: 69 66 20 7b 24 74 6d 20 3d 3d 20 30 7d 20 7b 0a  if {$tm == 0} {.
6ff0: 20 20 20 20 73 65 74 20 72 61 74 65 20 5b 66 6f      set rate [fo
7000: 72 6d 61 74 20 25 32 30 73 20 22 6d 61 6e 79 22  rmat %20s "many"
7010: 5d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20  ].  } else {.   
7020: 20 73 65 74 20 72 61 74 65 20 5b 66 6f 72 6d 61   set rate [forma
7030: 74 20 25 32 30 2e 35 66 20 5b 65 78 70 72 20 7b  t %20.5f [expr {
7040: 31 30 30 30 30 30 30 2e 30 2a 24 6e 75 6d 73 74  1000000.0*$numst
7050: 6d 74 2f 24 74 6d 7d 5d 5d 0a 20 20 7d 0a 20 20  mt/$tm}]].  }.  
7060: 73 65 74 20 75 32 20 24 75 6e 69 74 73 2f 73 0a  set u2 $units/s.
7070: 20 20 6f 75 74 70 75 74 32 20 5b 66 6f 72 6d 61    output2 [forma
7080: 74 20 7b 25 31 32 64 20 75 53 20 25 73 20 25 73  t {%12d uS %s %s
7090: 7d 20 24 74 6d 20 24 72 61 74 65 20 24 75 32 5d  } $tm $rate $u2]
70a0: 0a 20 20 67 6c 6f 62 61 6c 20 74 6f 74 61 6c 5f  .  global total_
70b0: 74 69 6d 65 0a 20 20 73 65 74 20 74 6f 74 61 6c  time.  set total
70c0: 5f 74 69 6d 65 20 5b 65 78 70 72 20 7b 24 74 6f  _time [expr {$to
70d0: 74 61 6c 5f 74 69 6d 65 2b 24 74 6d 7d 5d 0a 20  tal_time+$tm}]. 
70e0: 20 6c 61 70 70 65 6e 64 20 3a 3a 73 70 65 65 64   lappend ::speed
70f0: 5f 74 72 69 61 6c 5f 74 69 6d 65 73 20 24 6e 61  _trial_times $na
7100: 6d 65 20 24 74 6d 0a 7d 0a 70 72 6f 63 20 73 70  me $tm.}.proc sp
7110: 65 65 64 5f 74 72 69 61 6c 5f 69 6e 69 74 20 7b  eed_trial_init {
7120: 6e 61 6d 65 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c  name} {.  global
7130: 20 74 6f 74 61 6c 5f 74 69 6d 65 0a 20 20 73 65   total_time.  se
7140: 74 20 74 6f 74 61 6c 5f 74 69 6d 65 20 30 0a 20  t total_time 0. 
7150: 20 73 65 74 20 3a 3a 73 70 65 65 64 5f 74 72 69   set ::speed_tri
7160: 61 6c 5f 74 69 6d 65 73 20 5b 6c 69 73 74 5d 0a  al_times [list].
7170: 20 20 73 71 6c 69 74 65 33 20 76 65 72 73 64 62    sqlite3 versdb
7180: 20 3a 6d 65 6d 6f 72 79 3a 0a 20 20 73 65 74 20   :memory:.  set 
7190: 76 65 72 73 20 5b 76 65 72 73 64 62 20 6f 6e 65  vers [versdb one
71a0: 20 7b 53 45 4c 45 43 54 20 73 71 6c 69 74 65 5f   {SELECT sqlite_
71b0: 73 6f 75 72 63 65 5f 69 64 28 29 7d 5d 0a 20 20  source_id()}].  
71c0: 76 65 72 73 64 62 20 63 6c 6f 73 65 0a 20 20 6f  versdb close.  o
71d0: 75 74 70 75 74 32 20 22 53 51 4c 69 74 65 20 24  utput2 "SQLite $
71e0: 76 65 72 73 22 0a 7d 0a 70 72 6f 63 20 73 70 65  vers".}.proc spe
71f0: 65 64 5f 74 72 69 61 6c 5f 73 75 6d 6d 61 72 79  ed_trial_summary
7200: 20 7b 6e 61 6d 65 7d 20 7b 0a 20 20 67 6c 6f 62   {name} {.  glob
7210: 61 6c 20 74 6f 74 61 6c 5f 74 69 6d 65 0a 20 20  al total_time.  
7220: 6f 75 74 70 75 74 32 20 5b 66 6f 72 6d 61 74 20  output2 [format 
7230: 7b 25 2d 32 31 2e 32 31 73 20 25 31 32 64 20 75  {%-21.21s %12d u
7240: 53 20 54 4f 54 41 4c 7d 20 24 6e 61 6d 65 20 24  S TOTAL} $name $
7250: 74 6f 74 61 6c 5f 74 69 6d 65 5d 0a 0a 20 20 69  total_time]..  i
7260: 66 20 7b 20 30 20 7d 20 7b 0a 20 20 20 20 73 71  f { 0 } {.    sq
7270: 6c 69 74 65 33 20 76 65 72 73 64 62 20 3a 6d 65  lite3 versdb :me
7280: 6d 6f 72 79 3a 0a 20 20 20 20 73 65 74 20 76 65  mory:.    set ve
7290: 72 73 20 5b 6c 69 6e 64 65 78 20 5b 76 65 72 73  rs [lindex [vers
72a0: 64 62 20 6f 6e 65 20 7b 53 45 4c 45 43 54 20 73  db one {SELECT s
72b0: 71 6c 69 74 65 5f 73 6f 75 72 63 65 5f 69 64 28  qlite_source_id(
72c0: 29 7d 5d 20 30 5d 0a 20 20 20 20 76 65 72 73 64  )}] 0].    versd
72d0: 62 20 63 6c 6f 73 65 0a 20 20 20 20 6f 75 74 70  b close.    outp
72e0: 75 74 32 20 22 43 52 45 41 54 45 20 54 41 42 4c  ut2 "CREATE TABL
72f0: 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20  E IF NOT EXISTS 
7300: 74 69 6d 65 28 76 65 72 73 69 6f 6e 2c 20 73 63  time(version, sc
7310: 72 69 70 74 2c 20 74 65 73 74 2c 20 75 73 29 3b  ript, test, us);
7320: 22 0a 20 20 20 20 66 6f 72 65 61 63 68 20 7b 74  ".    foreach {t
7330: 65 73 74 20 75 73 7d 20 24 3a 3a 73 70 65 65 64  est us} $::speed
7340: 5f 74 72 69 61 6c 5f 74 69 6d 65 73 20 7b 0a 20  _trial_times {. 
7350: 20 20 20 20 20 6f 75 74 70 75 74 32 20 22 49 4e       output2 "IN
7360: 53 45 52 54 20 49 4e 54 4f 20 74 69 6d 65 20 56  SERT INTO time V
7370: 41 4c 55 45 53 28 27 24 76 65 72 73 27 2c 20 27  ALUES('$vers', '
7380: 24 6e 61 6d 65 27 2c 20 27 24 74 65 73 74 27 2c  $name', '$test',
7390: 20 24 75 73 29 3b 22 0a 20 20 20 20 7d 0a 20 20   $us);".    }.  
73a0: 7d 0a 7d 0a 0a 23 20 52 75 6e 20 74 68 69 73 20  }.}..# Run this 
73b0: 72 6f 75 74 69 6e 65 20 6c 61 73 74 0a 23 0a 70  routine last.#.p
73c0: 72 6f 63 20 66 69 6e 69 73 68 5f 74 65 73 74 20  roc finish_test 
73d0: 7b 7d 20 7b 0a 20 20 63 61 74 63 68 20 7b 64 62  {} {.  catch {db
73e0: 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68 20   close}.  catch 
73f0: 7b 64 62 31 20 63 6c 6f 73 65 7d 0a 20 20 63 61  {db1 close}.  ca
7400: 74 63 68 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a  tch {db2 close}.
7410: 20 20 63 61 74 63 68 20 7b 64 62 33 20 63 6c 6f    catch {db3 clo
7420: 73 65 7d 0a 20 20 69 66 20 7b 30 3d 3d 5b 69 6e  se}.  if {0==[in
7430: 66 6f 20 65 78 69 73 74 73 20 3a 3a 53 4c 41 56  fo exists ::SLAV
7440: 45 5d 7d 20 7b 20 66 69 6e 61 6c 69 7a 65 5f 74  E]} { finalize_t
7450: 65 73 74 69 6e 67 20 7d 0a 7d 0a 70 72 6f 63 20  esting }.}.proc 
7460: 66 69 6e 61 6c 69 7a 65 5f 74 65 73 74 69 6e 67  finalize_testing
7470: 20 7b 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 73   {} {.  global s
7480: 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f  qlite_open_file_
7490: 63 6f 75 6e 74 0a 0a 20 20 73 65 74 20 6f 6d 69  count..  set omi
74a0: 74 4c 69 73 74 20 5b 73 65 74 5f 74 65 73 74 5f  tList [set_test_
74b0: 63 6f 75 6e 74 65 72 20 6f 6d 69 74 5f 6c 69 73  counter omit_lis
74c0: 74 5d 0a 0a 20 20 63 61 74 63 68 20 7b 64 62 20  t]..  catch {db 
74d0: 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68 20 7b  close}.  catch {
74e0: 64 62 32 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74  db2 close}.  cat
74f0: 63 68 20 7b 64 62 33 20 63 6c 6f 73 65 7d 0a 0a  ch {db3 close}..
7500: 20 20 76 66 73 5f 75 6e 6c 69 6e 6b 5f 74 65 73    vfs_unlink_tes
7510: 74 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20 7b  t.  sqlite3 db {
7520: 7d 0a 20 20 23 20 73 71 6c 69 74 65 33 5f 63 6c  }.  # sqlite3_cl
7530: 65 61 72 5f 74 73 64 5f 6d 65 6d 64 65 62 75 67  ear_tsd_memdebug
7540: 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 73 71  .  db close.  sq
7550: 6c 69 74 65 33 5f 72 65 73 65 74 5f 61 75 74 6f  lite3_reset_auto
7560: 5f 65 78 74 65 6e 73 69 6f 6e 0a 0a 20 20 73 71  _extension..  sq
7570: 6c 69 74 65 33 5f 73 6f 66 74 5f 68 65 61 70 5f  lite3_soft_heap_
7580: 6c 69 6d 69 74 20 30 0a 20 20 73 65 74 20 6e 54  limit 0.  set nT
7590: 65 73 74 20 5b 69 6e 63 72 5f 6e 74 65 73 74 5d  est [incr_ntest]
75a0: 0a 20 20 73 65 74 20 6e 45 72 72 20 5b 73 65 74  .  set nErr [set
75b0: 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 65 72  _test_counter er
75c0: 72 6f 72 73 5d 0a 0a 20 20 73 65 74 20 6e 4b 6e  rors]..  set nKn
75d0: 6f 77 6e 20 30 0a 20 20 69 66 20 7b 5b 66 69 6c  own 0.  if {[fil
75e0: 65 20 72 65 61 64 61 62 6c 65 20 6b 6e 6f 77 6e  e readable known
75f0: 2d 70 72 6f 62 6c 65 6d 73 2e 74 78 74 5d 7d 20  -problems.txt]} 
7600: 7b 0a 20 20 20 20 73 65 74 20 66 64 20 5b 6f 70  {.    set fd [op
7610: 65 6e 20 6b 6e 6f 77 6e 2d 70 72 6f 62 6c 65 6d  en known-problem
7620: 73 2e 74 78 74 5d 0a 20 20 20 20 73 65 74 20 63  s.txt].    set c
7630: 6f 6e 74 65 6e 74 20 5b 72 65 61 64 20 24 66 64  ontent [read $fd
7640: 5d 0a 20 20 20 20 63 6c 6f 73 65 20 24 66 64 0a  ].    close $fd.
7650: 20 20 20 20 66 6f 72 65 61 63 68 20 78 20 24 63      foreach x $c
7660: 6f 6e 74 65 6e 74 20 7b 73 65 74 20 6b 6e 6f 77  ontent {set know
7670: 6e 5f 65 72 72 6f 72 28 24 78 29 20 31 7d 0a 20  n_error($x) 1}. 
7680: 20 20 20 66 6f 72 65 61 63 68 20 78 20 5b 73 65     foreach x [se
7690: 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 66  t_test_counter f
76a0: 61 69 6c 5f 6c 69 73 74 5d 20 7b 0a 20 20 20 20  ail_list] {.    
76b0: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73    if {[info exis
76c0: 74 73 20 6b 6e 6f 77 6e 5f 65 72 72 6f 72 28 24  ts known_error($
76d0: 78 29 5d 7d 20 7b 69 6e 63 72 20 6e 4b 6e 6f 77  x)]} {incr nKnow
76e0: 6e 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69  n}.    }.  }.  i
76f0: 66 20 7b 24 6e 4b 6e 6f 77 6e 3e 30 7d 20 7b 0a  f {$nKnown>0} {.
7700: 20 20 20 20 6f 75 74 70 75 74 32 20 22 5b 65 78      output2 "[ex
7710: 70 72 20 7b 24 6e 45 72 72 2d 24 6e 4b 6e 6f 77  pr {$nErr-$nKnow
7720: 6e 7d 5d 20 6e 65 77 20 65 72 72 6f 72 73 20 61  n}] new errors a
7730: 6e 64 20 24 6e 4b 6e 6f 77 6e 20 6b 6e 6f 77 6e  nd $nKnown known
7740: 20 65 72 72 6f 72 73 5c 0a 20 20 20 20 20 20 20   errors\.       
7750: 20 20 6f 75 74 20 6f 66 20 24 6e 54 65 73 74 20    out of $nTest 
7760: 74 65 73 74 73 22 0a 20 20 7d 20 65 6c 73 65 20  tests".  } else 
7770: 7b 0a 20 20 20 20 6f 75 74 70 75 74 32 20 22 24  {.    output2 "$
7780: 6e 45 72 72 20 65 72 72 6f 72 73 20 6f 75 74 20  nErr errors out 
7790: 6f 66 20 24 6e 54 65 73 74 20 74 65 73 74 73 22  of $nTest tests"
77a0: 0a 20 20 7d 0a 20 20 69 66 20 7b 24 6e 45 72 72  .  }.  if {$nErr
77b0: 3e 24 6e 4b 6e 6f 77 6e 7d 20 7b 0a 20 20 20 20  >$nKnown} {.    
77c0: 6f 75 74 70 75 74 32 20 2d 6e 6f 6e 65 77 6c 69  output2 -nonewli
77d0: 6e 65 20 22 46 61 69 6c 75 72 65 73 20 6f 6e 20  ne "Failures on 
77e0: 74 68 65 73 65 20 74 65 73 74 73 3a 22 0a 20 20  these tests:".  
77f0: 20 20 66 6f 72 65 61 63 68 20 78 20 5b 73 65 74    foreach x [set
7800: 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 66 61  _test_counter fa
7810: 69 6c 5f 6c 69 73 74 5d 20 7b 0a 20 20 20 20 20  il_list] {.     
7820: 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73   if {![info exis
7830: 74 73 20 6b 6e 6f 77 6e 5f 65 72 72 6f 72 28 24  ts known_error($
7840: 78 29 5d 7d 20 7b 6f 75 74 70 75 74 32 20 2d 6e  x)]} {output2 -n
7850: 6f 6e 65 77 6c 69 6e 65 20 22 20 24 78 22 7d 0a  onewline " $x"}.
7860: 20 20 20 20 7d 0a 20 20 20 20 6f 75 74 70 75 74      }.    output
7870: 32 20 22 22 0a 20 20 7d 0a 20 20 66 6f 72 65 61  2 "".  }.  forea
7880: 63 68 20 77 61 72 6e 69 6e 67 20 5b 73 65 74 5f  ch warning [set_
7890: 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 77 61 72  test_counter war
78a0: 6e 5f 6c 69 73 74 5d 20 7b 0a 20 20 20 20 6f 75  n_list] {.    ou
78b0: 74 70 75 74 32 20 22 57 61 72 6e 69 6e 67 3a 20  tput2 "Warning: 
78c0: 24 77 61 72 6e 69 6e 67 22 0a 20 20 7d 0a 20 20  $warning".  }.  
78d0: 72 75 6e 5f 74 68 72 65 61 64 5f 74 65 73 74 73  run_thread_tests
78e0: 20 31 0a 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74   1.  if {[llengt
78f0: 68 20 24 6f 6d 69 74 4c 69 73 74 5d 3e 30 7d 20  h $omitList]>0} 
7900: 7b 0a 20 20 20 20 6f 75 74 70 75 74 32 20 22 4f  {.    output2 "O
7910: 6d 69 74 74 65 64 20 74 65 73 74 20 63 61 73 65  mitted test case
7920: 73 3a 22 0a 20 20 20 20 73 65 74 20 70 72 65 63  s:".    set prec
7930: 20 7b 7d 0a 20 20 20 20 66 6f 72 65 61 63 68 20   {}.    foreach 
7940: 7b 72 65 63 7d 20 5b 6c 73 6f 72 74 20 24 6f 6d  {rec} [lsort $om
7950: 69 74 4c 69 73 74 5d 20 7b 0a 20 20 20 20 20 20  itList] {.      
7960: 69 66 20 7b 24 72 65 63 3d 3d 24 70 72 65 63 7d  if {$rec==$prec}
7970: 20 63 6f 6e 74 69 6e 75 65 0a 20 20 20 20 20 20   continue.      
7980: 73 65 74 20 70 72 65 63 20 24 72 65 63 0a 20 20  set prec $rec.  
7990: 20 20 20 20 6f 75 74 70 75 74 32 20 5b 66 6f 72      output2 [for
79a0: 6d 61 74 20 7b 20 20 25 2d 31 32 73 20 25 73 7d  mat {  %-12s %s}
79b0: 20 5b 6c 69 6e 64 65 78 20 24 72 65 63 20 30 5d   [lindex $rec 0]
79c0: 20 5b 6c 69 6e 64 65 78 20 24 72 65 63 20 31 5d   [lindex $rec 1]
79d0: 5d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66  ].    }.  }.  if
79e0: 20 7b 24 6e 45 72 72 3e 30 20 26 26 20 21 5b 77   {$nErr>0 && ![w
79f0: 6f 72 6b 69 6e 67 5f 36 34 62 69 74 5f 69 6e 74  orking_64bit_int
7a00: 5d 7d 20 7b 0a 20 20 20 20 6f 75 74 70 75 74 32  ]} {.    output2
7a10: 20 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   "**************
7a20: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
7a30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
7a40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
7a50: 2a 2a 2a 2a 22 0a 20 20 20 20 6f 75 74 70 75 74  ****".    output
7a60: 32 20 22 4e 2e 42 2e 3a 20 20 54 68 65 20 76 65  2 "N.B.:  The ve
7a70: 72 73 69 6f 6e 20 6f 66 20 54 43 4c 20 74 68 61  rsion of TCL tha
7a80: 74 20 79 6f 75 20 75 73 65 64 20 74 6f 20 62 75  t you used to bu
7a90: 69 6c 64 20 74 68 69 73 20 74 65 73 74 20 68 61  ild this test ha
7aa0: 72 6e 65 73 73 22 0a 20 20 20 20 6f 75 74 70 75  rness".    outpu
7ab0: 74 32 20 22 69 73 20 64 65 66 65 63 74 69 76 65  t2 "is defective
7ac0: 20 69 6e 20 74 68 61 74 20 69 74 20 64 6f 65 73   in that it does
7ad0: 20 6e 6f 74 20 73 75 70 70 6f 72 74 20 36 34 2d   not support 64-
7ae0: 62 69 74 20 69 6e 74 65 67 65 72 73 2e 20 20 53  bit integers.  S
7af0: 6f 6d 65 20 6f 72 22 0a 20 20 20 20 6f 75 74 70  ome or".    outp
7b00: 75 74 32 20 22 61 6c 6c 20 6f 66 20 74 68 65 20  ut2 "all of the 
7b10: 74 65 73 74 20 66 61 69 6c 75 72 65 73 20 61 62  test failures ab
7b20: 6f 76 65 20 6d 69 67 68 74 20 62 65 20 61 20 72  ove might be a r
7b30: 65 73 75 6c 74 20 66 72 6f 6d 20 74 68 69 73 20  esult from this 
7b40: 64 65 66 65 63 74 22 0a 20 20 20 20 6f 75 74 70  defect".    outp
7b50: 75 74 32 20 22 69 6e 20 79 6f 75 72 20 54 43 4c  ut2 "in your TCL
7b60: 20 62 75 69 6c 64 2e 22 0a 20 20 20 20 6f 75 74   build.".    out
7b70: 70 75 74 32 20 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  put2 "**********
7b80: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
7b90: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
7ba0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
7bb0: 2a 2a 2a 2a 2a 2a 2a 2a 22 0a 20 20 7d 0a 20 20  ********".  }.  
7bc0: 69 66 20 7b 24 3a 3a 63 6d 64 6c 69 6e 65 61 72  if {$::cmdlinear
7bd0: 67 28 62 69 6e 61 72 79 6c 6f 67 29 7d 20 7b 0a  g(binarylog)} {.
7be0: 20 20 20 20 76 66 73 6c 6f 67 20 66 69 6e 61 6c      vfslog final
7bf0: 69 7a 65 20 62 69 6e 61 72 79 6c 6f 67 0a 20 20  ize binarylog.  
7c00: 7d 0a 20 20 69 66 20 7b 24 73 71 6c 69 74 65 5f  }.  if {$sqlite_
7c10: 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 7d  open_file_count}
7c20: 20 7b 0a 20 20 20 20 6f 75 74 70 75 74 32 20 22   {.    output2 "
7c30: 24 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c  $sqlite_open_fil
7c40: 65 5f 63 6f 75 6e 74 20 66 69 6c 65 73 20 77 65  e_count files we
7c50: 72 65 20 6c 65 66 74 20 6f 70 65 6e 22 0a 20 20  re left open".  
7c60: 20 20 69 6e 63 72 20 6e 45 72 72 0a 20 20 7d 0a    incr nErr.  }.
7c70: 20 20 69 66 20 7b 5b 6c 69 6e 64 65 78 20 5b 73    if {[lindex [s
7c80: 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 51  qlite3_status SQ
7c90: 4c 49 54 45 5f 53 54 41 54 55 53 5f 4d 41 4c 4c  LITE_STATUS_MALL
7ca0: 4f 43 5f 43 4f 55 4e 54 20 30 5d 20 31 5d 3e 30  OC_COUNT 0] 1]>0
7cb0: 20 7c 7c 0a 20 20 20 20 20 20 20 20 20 20 20 20   ||.            
7cc0: 20 20 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72    [sqlite3_memor
7cd0: 79 5f 75 73 65 64 5d 3e 30 7d 20 7b 0a 20 20 20  y_used]>0} {.   
7ce0: 20 6f 75 74 70 75 74 32 20 22 55 6e 66 72 65 65   output2 "Unfree
7cf0: 64 20 6d 65 6d 6f 72 79 3a 20 5b 73 71 6c 69 74  d memory: [sqlit
7d00: 65 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 64 5d 20  e3_memory_used] 
7d10: 62 79 74 65 73 20 69 6e 5c 0a 20 20 20 20 20 20  bytes in\.      
7d20: 20 20 20 5b 6c 69 6e 64 65 78 20 5b 73 71 6c 69     [lindex [sqli
7d30: 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54  te3_status SQLIT
7d40: 45 5f 53 54 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f  E_STATUS_MALLOC_
7d50: 43 4f 55 4e 54 20 30 5d 20 31 5d 20 61 6c 6c 6f  COUNT 0] 1] allo
7d60: 63 61 74 69 6f 6e 73 22 0a 20 20 20 20 69 6e 63  cations".    inc
7d70: 72 20 6e 45 72 72 0a 20 20 20 20 69 66 63 61 70  r nErr.    ifcap
7d80: 61 62 6c 65 20 6d 65 6d 64 65 62 75 67 7c 7c 6d  able memdebug||m
7d90: 65 6d 35 7c 7c 28 6d 65 6d 33 26 26 64 65 62 75  em5||(mem3&&debu
7da0: 67 29 20 7b 0a 20 20 20 20 20 20 6f 75 74 70 75  g) {.      outpu
7db0: 74 32 20 22 57 72 69 74 69 6e 67 20 75 6e 66 72  t2 "Writing unfr
7dc0: 65 65 64 20 6d 65 6d 6f 72 79 20 6c 6f 67 20 74  eed memory log t
7dd0: 6f 20 5c 22 2e 2f 6d 65 6d 6c 65 61 6b 2e 74 78  o \"./memleak.tx
7de0: 74 5c 22 22 0a 20 20 20 20 20 20 73 71 6c 69 74  t\"".      sqlit
7df0: 65 33 5f 6d 65 6d 64 65 62 75 67 5f 64 75 6d 70  e3_memdebug_dump
7e00: 20 2e 2f 6d 65 6d 6c 65 61 6b 2e 74 78 74 0a 20   ./memleak.txt. 
7e10: 20 20 20 7d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a     }.  } else {.
7e20: 20 20 20 20 6f 75 74 70 75 74 32 20 22 41 6c 6c      output2 "All
7e30: 20 6d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69   memory allocati
7e40: 6f 6e 73 20 66 72 65 65 64 20 2d 20 6e 6f 20 6c  ons freed - no l
7e50: 65 61 6b 73 22 0a 20 20 20 20 69 66 63 61 70 61  eaks".    ifcapa
7e60: 62 6c 65 20 6d 65 6d 64 65 62 75 67 7c 7c 6d 65  ble memdebug||me
7e70: 6d 35 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 74  m5 {.      sqlit
7e80: 65 33 5f 6d 65 6d 64 65 62 75 67 5f 64 75 6d 70  e3_memdebug_dump
7e90: 20 2e 2f 6d 65 6d 75 73 61 67 65 2e 74 78 74 0a   ./memusage.txt.
7ea0: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 68 6f 77      }.  }.  show
7eb0: 5f 6d 65 6d 73 74 61 74 73 0a 20 20 6f 75 74 70  _memstats.  outp
7ec0: 75 74 32 20 22 4d 61 78 69 6d 75 6d 20 6d 65 6d  ut2 "Maximum mem
7ed0: 6f 72 79 20 75 73 61 67 65 3a 20 5b 73 71 6c 69  ory usage: [sqli
7ee0: 74 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77  te3_memory_highw
7ef0: 61 74 65 72 20 31 5d 20 62 79 74 65 73 22 0a 20  ater 1] bytes". 
7f00: 20 6f 75 74 70 75 74 32 20 22 43 75 72 72 65 6e   output2 "Curren
7f10: 74 20 6d 65 6d 6f 72 79 20 75 73 61 67 65 3a 20  t memory usage: 
7f20: 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f  [sqlite3_memory_
7f30: 68 69 67 68 77 61 74 65 72 5d 20 62 79 74 65 73  highwater] bytes
7f40: 22 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 63 6f  ".  if {[info co
7f50: 6d 6d 61 6e 64 73 20 73 71 6c 69 74 65 33 5f 6d  mmands sqlite3_m
7f60: 65 6d 64 65 62 75 67 5f 6d 61 6c 6c 6f 63 5f 63  emdebug_malloc_c
7f70: 6f 75 6e 74 5d 20 6e 65 20 22 22 7d 20 7b 0a 20  ount] ne ""} {. 
7f80: 20 20 20 6f 75 74 70 75 74 32 20 22 4e 75 6d 62     output2 "Numb
7f90: 65 72 20 6f 66 20 6d 61 6c 6c 6f 63 28 29 20 20  er of malloc()  
7fa0: 3a 20 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65  : [sqlite3_memde
7fb0: 62 75 67 5f 6d 61 6c 6c 6f 63 5f 63 6f 75 6e 74  bug_malloc_count
7fc0: 5d 20 63 61 6c 6c 73 22 0a 20 20 7d 0a 20 20 69  ] calls".  }.  i
7fd0: 66 20 7b 24 3a 3a 63 6d 64 6c 69 6e 65 61 72 67  f {$::cmdlinearg
7fe0: 28 6d 61 6c 6c 6f 63 74 72 61 63 65 29 7d 20 7b  (malloctrace)} {
7ff0: 0a 20 20 20 20 6f 75 74 70 75 74 32 20 22 57 72  .    output2 "Wr
8000: 69 74 69 6e 67 20 6d 61 6c 6c 6f 63 73 2e 73 71  iting mallocs.sq
8010: 6c 2e 2e 2e 22 0a 20 20 20 20 6d 65 6d 64 65 62  l...".    memdeb
8020: 75 67 5f 6c 6f 67 5f 73 71 6c 0a 20 20 20 20 73  ug_log_sql.    s
8030: 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f  qlite3_memdebug_
8040: 6c 6f 67 20 73 74 6f 70 0a 20 20 20 20 73 71 6c  log stop.    sql
8050: 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f  ite3_memdebug_lo
8060: 67 20 63 6c 65 61 72 0a 0a 20 20 20 20 69 66 20  g clear..    if 
8070: 7b 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79  {[sqlite3_memory
8080: 5f 75 73 65 64 5d 3e 30 7d 20 7b 0a 20 20 20 20  _used]>0} {.    
8090: 20 20 6f 75 74 70 75 74 32 20 22 57 72 69 74 69    output2 "Writi
80a0: 6e 67 20 6c 65 61 6b 73 2e 73 71 6c 2e 2e 2e 22  ng leaks.sql..."
80b0: 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 6d  .      sqlite3_m
80c0: 65 6d 64 65 62 75 67 5f 6c 6f 67 20 73 79 6e 63  emdebug_log sync
80d0: 0a 20 20 20 20 20 20 6d 65 6d 64 65 62 75 67 5f  .      memdebug_
80e0: 6c 6f 67 5f 73 71 6c 20 6c 65 61 6b 73 2e 73 71  log_sql leaks.sq
80f0: 6c 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 63 61  l.    }.  }.  ca
8100: 74 63 68 20 7b 0a 20 20 20 20 66 6f 72 65 61 63  tch {.    foreac
8110: 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d  h f [glob -nocom
8120: 70 6c 61 69 6e 20 74 65 73 74 2e 64 62 2d 2a 2d  plain test.db-*-
8130: 6a 6f 75 72 6e 61 6c 5d 20 7b 0a 20 20 20 20 20  journal] {.     
8140: 20 66 6f 72 63 65 64 65 6c 65 74 65 20 24 66 0a   forcedelete $f.
8150: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 63 61 74 63      }.  }.  catc
8160: 68 20 7b 0a 20 20 20 20 66 6f 72 65 61 63 68 20  h {.    foreach 
8170: 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c  f [glob -nocompl
8180: 61 69 6e 20 74 65 73 74 2e 64 62 2d 6d 6a 2a 5d  ain test.db-mj*]
8190: 20 7b 0a 20 20 20 20 20 20 66 6f 72 63 65 64 65   {.      forcede
81a0: 6c 65 74 65 20 24 66 0a 20 20 20 20 7d 0a 20 20  lete $f.    }.  
81b0: 7d 0a 20 20 65 78 69 74 20 5b 65 78 70 72 20 7b  }.  exit [expr {
81c0: 24 6e 45 72 72 3e 30 7d 5d 0a 7d 0a 0a 23 20 44  $nErr>0}].}..# D
81d0: 69 73 70 6c 61 79 20 6d 65 6d 6f 72 79 20 73 74  isplay memory st
81e0: 61 74 69 73 74 69 63 73 20 66 6f 72 20 61 6e 61  atistics for ana
81f0: 6c 79 73 69 73 20 61 6e 64 20 64 65 62 75 67 67  lysis and debugg
8200: 69 6e 67 20 70 75 72 70 6f 73 65 73 2e 0a 23 0a  ing purposes..#.
8210: 70 72 6f 63 20 73 68 6f 77 5f 6d 65 6d 73 74 61  proc show_memsta
8220: 74 73 20 7b 7d 20 7b 0a 20 20 73 65 74 20 78 20  ts {} {.  set x 
8230: 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20  [sqlite3_status 
8240: 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 4d 45  SQLITE_STATUS_ME
8250: 4d 4f 52 59 5f 55 53 45 44 20 30 5d 0a 20 20 73  MORY_USED 0].  s
8260: 65 74 20 79 20 5b 73 71 6c 69 74 65 33 5f 73 74  et y [sqlite3_st
8270: 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54  atus SQLITE_STAT
8280: 55 53 5f 4d 41 4c 4c 4f 43 5f 53 49 5a 45 20 30  US_MALLOC_SIZE 0
8290: 5d 0a 20 20 73 65 74 20 76 61 6c 20 5b 66 6f 72  ].  set val [for
82a0: 6d 61 74 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d  mat {now %10d  m
82b0: 61 78 20 25 31 30 64 20 20 6d 61 78 2d 73 69 7a  ax %10d  max-siz
82c0: 65 20 25 31 30 64 7d 20 5c 0a 20 20 20 20 20 20  e %10d} \.      
82d0: 20 20 20 20 20 20 20 20 5b 6c 69 6e 64 65 78 20          [lindex 
82e0: 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 78  $x 1] [lindex $x
82f0: 20 32 5d 20 5b 6c 69 6e 64 65 78 20 24 79 20 32   2] [lindex $y 2
8300: 5d 5d 0a 20 20 6f 75 74 70 75 74 31 20 22 4d 65  ]].  output1 "Me
8310: 6d 6f 72 79 20 75 73 65 64 3a 20 20 20 20 20 20  mory used:      
8320: 20 20 20 20 24 76 61 6c 22 0a 20 20 73 65 74 20      $val".  set 
8330: 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75  x [sqlite3_statu
8340: 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f  s SQLITE_STATUS_
8350: 4d 41 4c 4c 4f 43 5f 43 4f 55 4e 54 20 30 5d 0a  MALLOC_COUNT 0].
8360: 20 20 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61    set val [forma
8370: 74 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d 61 78  t {now %10d  max
8380: 20 25 31 30 64 7d 20 5b 6c 69 6e 64 65 78 20 24   %10d} [lindex $
8390: 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 78 20  x 1] [lindex $x 
83a0: 32 5d 5d 0a 20 20 6f 75 74 70 75 74 31 20 22 41  2]].  output1 "A
83b0: 6c 6c 6f 63 61 74 69 6f 6e 20 63 6f 75 6e 74 3a  llocation count:
83c0: 20 20 20 20 20 24 76 61 6c 22 0a 20 20 73 65 74       $val".  set
83d0: 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74   x [sqlite3_stat
83e0: 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53  us SQLITE_STATUS
83f0: 5f 50 41 47 45 43 41 43 48 45 5f 55 53 45 44 20  _PAGECACHE_USED 
8400: 30 5d 0a 20 20 73 65 74 20 79 20 5b 73 71 6c 69  0].  set y [sqli
8410: 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54  te3_status SQLIT
8420: 45 5f 53 54 41 54 55 53 5f 50 41 47 45 43 41 43  E_STATUS_PAGECAC
8430: 48 45 5f 53 49 5a 45 20 30 5d 0a 20 20 73 65 74  HE_SIZE 0].  set
8440: 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b 6e 6f   val [format {no
8450: 77 20 25 31 30 64 20 20 6d 61 78 20 25 31 30 64  w %10d  max %10d
8460: 20 20 6d 61 78 2d 73 69 7a 65 20 25 31 30 64 7d    max-size %10d}
8470: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20   \.             
8480: 20 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d 20 5b   [lindex $x 1] [
8490: 6c 69 6e 64 65 78 20 24 78 20 32 5d 20 5b 6c 69  lindex $x 2] [li
84a0: 6e 64 65 78 20 24 79 20 32 5d 5d 0a 20 20 6f 75  ndex $y 2]].  ou
84b0: 74 70 75 74 31 20 22 50 61 67 65 2d 63 61 63 68  tput1 "Page-cach
84c0: 65 20 75 73 65 64 3a 20 20 20 20 20 20 24 76 61  e used:      $va
84d0: 6c 22 0a 20 20 73 65 74 20 78 20 5b 73 71 6c 69  l".  set x [sqli
84e0: 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54  te3_status SQLIT
84f0: 45 5f 53 54 41 54 55 53 5f 50 41 47 45 43 41 43  E_STATUS_PAGECAC
8500: 48 45 5f 4f 56 45 52 46 4c 4f 57 20 30 5d 0a 20  HE_OVERFLOW 0]. 
8510: 20 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74   set val [format
8520: 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d 61 78 20   {now %10d  max 
8530: 25 31 30 64 7d 20 5b 6c 69 6e 64 65 78 20 24 78  %10d} [lindex $x
8540: 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 78 20 32   1] [lindex $x 2
8550: 5d 5d 0a 20 20 6f 75 74 70 75 74 31 20 22 50 61  ]].  output1 "Pa
8560: 67 65 2d 63 61 63 68 65 20 6f 76 65 72 66 6c 6f  ge-cache overflo
8570: 77 3a 20 20 24 76 61 6c 22 0a 20 20 73 65 74 20  w:  $val".  set 
8580: 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75  x [sqlite3_statu
8590: 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f  s SQLITE_STATUS_
85a0: 53 43 52 41 54 43 48 5f 55 53 45 44 20 30 5d 0a  SCRATCH_USED 0].
85b0: 20 20 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61    set val [forma
85c0: 74 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d 61 78  t {now %10d  max
85d0: 20 25 31 30 64 7d 20 5b 6c 69 6e 64 65 78 20 24   %10d} [lindex $
85e0: 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 78 20  x 1] [lindex $x 
85f0: 32 5d 5d 0a 20 20 6f 75 74 70 75 74 31 20 22 53  2]].  output1 "S
8600: 63 72 61 74 63 68 20 6d 65 6d 6f 72 79 20 75 73  cratch memory us
8610: 65 64 3a 20 20 24 76 61 6c 22 0a 20 20 73 65 74  ed:  $val".  set
8620: 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74   x [sqlite3_stat
8630: 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53  us SQLITE_STATUS
8640: 5f 53 43 52 41 54 43 48 5f 4f 56 45 52 46 4c 4f  _SCRATCH_OVERFLO
8650: 57 20 30 5d 0a 20 20 73 65 74 20 79 20 5b 73 71  W 0].  set y [sq
8660: 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c  lite3_status SQL
8670: 49 54 45 5f 53 54 41 54 55 53 5f 53 43 52 41 54  ITE_STATUS_SCRAT
8680: 43 48 5f 53 49 5a 45 20 30 5d 0a 20 20 73 65 74  CH_SIZE 0].  set
8690: 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b 6e 6f   val [format {no
86a0: 77 20 25 31 30 64 20 20 6d 61 78 20 25 31 30 64  w %10d  max %10d
86b0: 20 20 6d 61 78 2d 73 69 7a 65 20 25 31 30 64 7d    max-size %10d}
86c0: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20   \.             
86d0: 20 20 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d 20    [lindex $x 1] 
86e0: 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 20 5b 6c  [lindex $x 2] [l
86f0: 69 6e 64 65 78 20 24 79 20 32 5d 5d 0a 20 20 6f  index $y 2]].  o
8700: 75 74 70 75 74 31 20 22 53 63 72 61 74 63 68 20  utput1 "Scratch 
8710: 6f 76 65 72 66 6c 6f 77 3a 20 20 20 20 20 24 76  overflow:     $v
8720: 61 6c 22 0a 20 20 69 66 63 61 70 61 62 6c 65 20  al".  ifcapable 
8730: 79 79 74 72 61 63 6b 6d 61 78 73 74 61 63 6b 64  yytrackmaxstackd
8740: 65 70 74 68 20 7b 0a 20 20 20 20 73 65 74 20 78  epth {.    set x
8750: 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73   [sqlite3_status
8760: 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 50   SQLITE_STATUS_P
8770: 41 52 53 45 52 5f 53 54 41 43 4b 20 30 5d 0a 20  ARSER_STACK 0]. 
8780: 20 20 20 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d     set val [form
8790: 61 74 20 7b 20 20 20 20 20 20 20 20 20 20 20 20  at {            
87a0: 20 20 20 6d 61 78 20 25 31 30 64 7d 20 5b 6c 69     max %10d} [li
87b0: 6e 64 65 78 20 24 78 20 32 5d 5d 0a 20 20 20 20  ndex $x 2]].    
87c0: 6f 75 74 70 75 74 32 20 22 50 61 72 73 65 72 20  output2 "Parser 
87d0: 73 74 61 63 6b 20 64 65 70 74 68 3a 20 20 20 20  stack depth:    
87e0: 24 76 61 6c 22 0a 20 20 7d 0a 7d 0a 0a 23 20 41  $val".  }.}..# A
87f0: 20 70 72 6f 63 65 64 75 72 65 20 74 6f 20 65 78   procedure to ex
8800: 65 63 75 74 65 20 53 51 4c 0a 23 0a 70 72 6f 63  ecute SQL.#.proc
8810: 20 65 78 65 63 73 71 6c 20 7b 73 71 6c 20 7b 64   execsql {sql {d
8820: 62 20 64 62 7d 7d 20 7b 0a 20 20 23 20 70 75 74  b db}} {.  # put
8830: 73 20 22 53 51 4c 20 3d 20 24 73 71 6c 22 0a 20  s "SQL = $sql". 
8840: 20 75 70 6c 65 76 65 6c 20 5b 6c 69 73 74 20 24   uplevel [list $
8850: 64 62 20 65 76 61 6c 20 24 73 71 6c 5d 0a 7d 0a  db eval $sql].}.
8860: 70 72 6f 63 20 65 78 65 63 73 71 6c 5f 74 69 6d  proc execsql_tim
8870: 65 64 20 7b 73 71 6c 20 7b 64 62 20 64 62 7d 7d  ed {sql {db db}}
8880: 20 7b 0a 20 20 73 65 74 20 74 6d 20 5b 74 69 6d   {.  set tm [tim
8890: 65 20 7b 0a 20 20 20 20 73 65 74 20 78 20 5b 75  e {.    set x [u
88a0: 70 6c 65 76 65 6c 20 5b 6c 69 73 74 20 24 64 62  plevel [list $db
88b0: 20 65 76 61 6c 20 24 73 71 6c 5d 5d 0a 20 20 7d   eval $sql]].  }
88c0: 20 31 5d 0a 20 20 73 65 74 20 74 6d 20 5b 6c 69   1].  set tm [li
88d0: 6e 64 65 78 20 24 74 6d 20 30 5d 0a 20 20 6f 75  ndex $tm 0].  ou
88e0: 74 70 75 74 31 20 2d 6e 6f 6e 65 77 6c 69 6e 65  tput1 -nonewline
88f0: 20 22 20 28 5b 65 78 70 72 20 7b 24 74 6d 2a 30   " ([expr {$tm*0
8900: 2e 30 30 31 7d 5d 6d 73 29 20 22 0a 20 20 73 65  .001}]ms) ".  se
8910: 74 20 78 0a 7d 0a 0a 23 20 45 78 65 63 75 74 65  t x.}..# Execute
8920: 20 53 51 4c 20 61 6e 64 20 63 61 74 63 68 20 65   SQL and catch e
8930: 78 63 65 70 74 69 6f 6e 73 2e 0a 23 0a 70 72 6f  xceptions..#.pro
8940: 63 20 63 61 74 63 68 73 71 6c 20 7b 73 71 6c 20  c catchsql {sql 
8950: 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 23 20 70  {db db}} {.  # p
8960: 75 74 73 20 22 53 51 4c 20 3d 20 24 73 71 6c 22  uts "SQL = $sql"
8970: 0a 20 20 73 65 74 20 72 20 5b 63 61 74 63 68 20  .  set r [catch 
8980: 5b 6c 69 73 74 20 75 70 6c 65 76 65 6c 20 5b 6c  [list uplevel [l
8990: 69 73 74 20 24 64 62 20 65 76 61 6c 20 24 73 71  ist $db eval $sq
89a0: 6c 5d 5d 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65  l]] msg].  lappe
89b0: 6e 64 20 72 20 24 6d 73 67 0a 20 20 72 65 74 75  nd r $msg.  retu
89c0: 72 6e 20 24 72 0a 7d 0a 0a 23 20 44 6f 20 61 6e  rn $r.}..# Do an
89d0: 20 56 44 42 45 20 63 6f 64 65 20 64 75 6d 70 20   VDBE code dump 
89e0: 6f 6e 20 74 68 65 20 53 51 4c 20 67 69 76 65 6e  on the SQL given
89f0: 0a 23 0a 70 72 6f 63 20 65 78 70 6c 61 69 6e 20  .#.proc explain 
8a00: 7b 73 71 6c 20 7b 64 62 20 64 62 7d 7d 20 7b 0a  {sql {db db}} {.
8a10: 20 20 6f 75 74 70 75 74 32 20 22 22 0a 20 20 6f    output2 "".  o
8a20: 75 74 70 75 74 32 20 22 61 64 64 72 20 20 6f 70  utput2 "addr  op
8a30: 63 6f 64 65 20 20 20 20 20 20 20 20 70 31 20 20  code        p1  
8a40: 20 20 20 20 70 32 20 20 20 20 20 20 70 33 20 20      p2      p3  
8a50: 20 20 20 20 70 34 20 20 20 20 20 20 20 20 20 20      p4          
8a60: 20 20 20 20 20 70 35 20 20 23 22 0a 20 20 6f 75       p5  #".  ou
8a70: 74 70 75 74 32 20 22 2d 2d 2d 2d 20 20 2d 2d 2d  tput2 "----  ---
8a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d  ---------  -----
8a90: 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d  -  ------  -----
8aa0: 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  -  -------------
8ab0: 2d 2d 20 20 2d 2d 20 20 2d 22 0a 20 20 24 64 62  --  --  -".  $db
8ac0: 20 65 76 61 6c 20 22 65 78 70 6c 61 69 6e 20 24   eval "explain $
8ad0: 73 71 6c 22 20 7b 7d 20 7b 0a 20 20 20 20 6f 75  sql" {} {.    ou
8ae0: 74 70 75 74 32 20 5b 66 6f 72 6d 61 74 20 7b 25  tput2 [format {%
8af0: 2d 34 64 20 20 25 2d 31 32 2e 31 32 73 20 20 25  -4d  %-12.12s  %
8b00: 2d 36 64 20 20 25 2d 36 64 20 20 25 2d 36 64 20  -6d  %-6d  %-6d 
8b10: 20 25 20 2d 31 37 73 20 25 73 20 20 25 73 7d 20   % -17s %s  %s} 
8b20: 5c 0a 20 20 20 20 20 20 24 61 64 64 72 20 24 6f  \.      $addr $o
8b30: 70 63 6f 64 65 20 24 70 31 20 24 70 32 20 24 70  pcode $p1 $p2 $p
8b40: 33 20 24 70 34 20 24 70 35 20 24 63 6f 6d 6d 65  3 $p4 $p5 $comme
8b50: 6e 74 0a 20 20 20 20 5d 0a 20 20 7d 0a 7d 0a 0a  nt.    ].  }.}..
8b60: 70 72 6f 63 20 65 78 70 6c 61 69 6e 5f 69 20 7b  proc explain_i {
8b70: 73 71 6c 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20  sql {db db}} {. 
8b80: 20 6f 75 74 70 75 74 32 20 22 22 0a 20 20 6f 75   output2 "".  ou
8b90: 74 70 75 74 32 20 22 61 64 64 72 20 20 6f 70 63  tput2 "addr  opc
8ba0: 6f 64 65 20 20 20 20 20 20 20 20 70 31 20 20 20  ode        p1   
8bb0: 20 20 20 70 32 20 20 20 20 20 20 70 33 20 20 20     p2      p3   
8bc0: 20 20 20 70 34 20 20 20 20 20 20 20 20 20 20 20     p4           
8bd0: 20 20 20 20 20 70 35 20 20 23 22 0a 20 20 6f 75       p5  #".  ou
8be0: 74 70 75 74 32 20 22 2d 2d 2d 2d 20 20 2d 2d 2d  tput2 "----  ---
8bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d  ---------  -----
8c00: 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d  -  ------  -----
8c10: 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  -  -------------
8c20: 2d 2d 2d 20 20 2d 2d 20 20 2d 22 0a 0a 0a 20 20  ---  --  -"...  
8c30: 23 20 53 65 74 20 75 70 20 63 6f 6c 6f 72 73 20  # Set up colors 
8c40: 66 6f 72 20 74 68 65 20 64 69 66 66 65 72 65 6e  for the differen
8c50: 74 20 6f 70 63 6f 64 65 73 2e 20 53 63 68 65 6d  t opcodes. Schem
8c60: 65 20 69 73 20 61 73 20 66 6f 6c 6c 6f 77 73 3a  e is as follows:
8c70: 0a 20 20 23 0a 20 20 23 20 20 20 52 65 64 3a 20  .  #.  #   Red: 
8c80: 20 20 4f 70 63 6f 64 65 73 20 74 68 61 74 20 77    Opcodes that w
8c90: 72 69 74 65 20 74 6f 20 61 20 62 2d 74 72 65 65  rite to a b-tree
8ca0: 2e 0a 20 20 23 20 20 20 42 6c 75 65 3a 20 20 4f  ..  #   Blue:  O
8cb0: 70 63 6f 64 65 73 20 74 68 61 74 20 72 65 70 6f  pcodes that repo
8cc0: 73 69 74 69 6f 6e 20 6f 72 20 73 65 65 6b 20 61  sition or seek a
8cd0: 20 63 75 72 73 6f 72 2e 20 0a 20 20 23 20 20 20   cursor. .  #   
8ce0: 47 72 65 65 6e 3a 20 54 68 65 20 52 65 73 75 6c  Green: The Resul
8cf0: 74 52 6f 77 20 6f 70 63 6f 64 65 2e 0a 20 20 23  tRow opcode..  #
8d00: 0a 20 20 69 66 20 7b 20 5b 63 61 74 63 68 20 7b  .  if { [catch {
8d10: 66 63 6f 6e 66 69 67 75 72 65 20 73 74 64 6f 75  fconfigure stdou
8d20: 74 20 2d 6d 6f 64 65 7d 5d 3d 3d 30 20 7d 20 7b  t -mode}]==0 } {
8d30: 0a 20 20 20 20 73 65 74 20 52 20 22 5c 30 33 33  .    set R "\033
8d40: 5c 5b 33 31 3b 31 6d 22 20 20 20 20 20 20 20 20  \[31;1m"        
8d50: 3b 23 20 52 65 64 20 66 67 0a 20 20 20 20 73 65  ;# Red fg.    se
8d60: 74 20 47 20 22 5c 30 33 33 5c 5b 33 32 3b 31 6d  t G "\033\[32;1m
8d70: 22 20 20 20 20 20 20 20 20 3b 23 20 47 72 65 65  "        ;# Gree
8d80: 6e 20 66 67 0a 20 20 20 20 73 65 74 20 42 20 22  n fg.    set B "
8d90: 5c 30 33 33 5c 5b 33 34 3b 31 6d 22 20 20 20 20  \033\[34;1m"    
8da0: 20 20 20 20 3b 23 20 52 65 64 20 66 67 0a 20 20      ;# Red fg.  
8db0: 20 20 73 65 74 20 44 20 22 5c 30 33 33 5c 5b 33    set D "\033\[3
8dc0: 39 3b 30 6d 22 20 20 20 20 20 20 20 20 3b 23 20  9;0m"        ;# 
8dd0: 44 65 66 61 75 6c 74 20 66 67 0a 20 20 7d 20 65  Default fg.  } e
8de0: 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20 52 20  lse {.    set R 
8df0: 22 22 0a 20 20 20 20 73 65 74 20 47 20 22 22 0a  "".    set G "".
8e00: 20 20 20 20 73 65 74 20 42 20 22 22 0a 20 20 20      set B "".   
8e10: 20 73 65 74 20 44 20 22 22 0a 20 20 7d 0a 20 20   set D "".  }.  
8e20: 66 6f 72 65 61 63 68 20 6f 70 63 6f 64 65 20 7b  foreach opcode {
8e30: 0a 20 20 20 20 20 20 53 65 65 6b 20 53 65 65 6b  .      Seek Seek
8e40: 47 65 20 53 65 65 6b 47 74 20 53 65 65 6b 4c 65  Ge SeekGt SeekLe
8e50: 20 53 65 65 6b 4c 74 20 4e 6f 74 46 6f 75 6e 64   SeekLt NotFound
8e60: 20 4c 61 73 74 20 52 65 77 69 6e 64 0a 20 20 20   Last Rewind.   
8e70: 20 20 20 4e 6f 43 6f 6e 66 6c 69 63 74 20 4e 65     NoConflict Ne
8e80: 78 74 20 50 72 65 76 20 56 4e 65 78 74 20 56 50  xt Prev VNext VP
8e90: 72 65 76 20 56 46 69 6c 74 65 72 0a 20 20 20 20  rev VFilter.    
8ea0: 20 20 53 6f 72 74 65 72 53 6f 72 74 20 53 6f 72    SorterSort Sor
8eb0: 74 65 72 4e 65 78 74 0a 20 20 7d 20 7b 0a 20 20  terNext.  } {.  
8ec0: 20 20 73 65 74 20 63 6f 6c 6f 72 28 24 6f 70 63    set color($opc
8ed0: 6f 64 65 29 20 24 42 0a 20 20 7d 0a 20 20 66 6f  ode) $B.  }.  fo
8ee0: 72 65 61 63 68 20 6f 70 63 6f 64 65 20 7b 52 65  reach opcode {Re
8ef0: 73 75 6c 74 52 6f 77 7d 20 7b 0a 20 20 20 20 73  sultRow} {.    s
8f00: 65 74 20 63 6f 6c 6f 72 28 24 6f 70 63 6f 64 65  et color($opcode
8f10: 29 20 24 47 0a 20 20 7d 0a 20 20 66 6f 72 65 61  ) $G.  }.  forea
8f20: 63 68 20 6f 70 63 6f 64 65 20 7b 49 64 78 49 6e  ch opcode {IdxIn
8f30: 73 65 72 74 20 49 6e 73 65 72 74 20 44 65 6c 65  sert Insert Dele
8f40: 74 65 20 49 64 78 44 65 6c 65 74 65 7d 20 7b 0a  te IdxDelete} {.
8f50: 20 20 20 20 73 65 74 20 63 6f 6c 6f 72 28 24 6f      set color($o
8f60: 70 63 6f 64 65 29 20 24 52 0a 20 20 7d 0a 0a 20  pcode) $R.  }.. 
8f70: 20 73 65 74 20 62 53 65 65 6e 47 6f 74 6f 20 30   set bSeenGoto 0
8f80: 0a 20 20 24 64 62 20 65 76 61 6c 20 22 65 78 70  .  $db eval "exp
8f90: 6c 61 69 6e 20 24 73 71 6c 22 20 7b 7d 20 7b 0a  lain $sql" {} {.
8fa0: 20 20 20 20 73 65 74 20 78 28 24 61 64 64 72 29      set x($addr)
8fb0: 20 30 0a 20 20 20 20 73 65 74 20 6f 70 28 24 61   0.    set op($a
8fc0: 64 64 72 29 20 24 6f 70 63 6f 64 65 0a 0a 20 20  ddr) $opcode..  
8fd0: 20 20 69 66 20 7b 24 6f 70 63 6f 64 65 20 3d 3d    if {$opcode ==
8fe0: 20 22 47 6f 74 6f 22 20 26 26 20 28 24 62 53 65   "Goto" && ($bSe
8ff0: 65 6e 47 6f 74 6f 3d 3d 30 20 7c 7c 20 28 24 70  enGoto==0 || ($p
9000: 32 20 3e 20 24 61 64 64 72 2b 31 30 29 29 7d 20  2 > $addr+10))} 
9010: 7b 0a 20 20 20 20 20 20 73 65 74 20 6c 69 6e 65  {.      set line
9020: 62 72 65 61 6b 28 24 70 32 29 20 31 0a 20 20 20  break($p2) 1.   
9030: 20 20 20 73 65 74 20 62 53 65 65 6e 47 6f 74 6f     set bSeenGoto
9040: 20 31 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66   1.    }..    if
9050: 20 7b 24 6f 70 63 6f 64 65 3d 3d 22 4e 65 78 74   {$opcode=="Next
9060: 22 20 20 7c 7c 20 24 6f 70 63 6f 64 65 3d 3d 22  "  || $opcode=="
9070: 50 72 65 76 22 20 0a 20 20 20 20 20 7c 7c 20 24  Prev" .     || $
9080: 6f 70 63 6f 64 65 3d 3d 22 56 4e 65 78 74 22 20  opcode=="VNext" 
9090: 7c 7c 20 24 6f 70 63 6f 64 65 3d 3d 22 56 50 72  || $opcode=="VPr
90a0: 65 76 22 0a 20 20 20 20 20 7c 7c 20 24 6f 70 63  ev".     || $opc
90b0: 6f 64 65 3d 3d 22 53 6f 72 74 65 72 4e 65 78 74  ode=="SorterNext
90c0: 22 0a 20 20 20 20 7d 20 7b 0a 20 20 20 20 20 20  ".    } {.      
90d0: 66 6f 72 20 7b 73 65 74 20 69 20 24 70 32 7d 20  for {set i $p2} 
90e0: 7b 24 69 3c 24 61 64 64 72 7d 20 7b 69 6e 63 72  {$i<$addr} {incr
90f0: 20 69 7d 20 7b 0a 20 20 20 20 20 20 20 20 69 6e   i} {.        in
9100: 63 72 20 78 28 24 69 29 20 32 0a 20 20 20 20 20  cr x($i) 2.     
9110: 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66   }.    }..    if
9120: 20 7b 24 6f 70 63 6f 64 65 20 3d 3d 20 22 47 6f   {$opcode == "Go
9130: 74 6f 22 20 26 26 20 24 70 32 3c 24 61 64 64 72  to" && $p2<$addr
9140: 20 26 26 20 24 6f 70 28 24 70 32 29 3d 3d 22 59   && $op($p2)=="Y
9150: 69 65 6c 64 22 7d 20 7b 0a 20 20 20 20 20 20 66  ield"} {.      f
9160: 6f 72 20 7b 73 65 74 20 69 20 5b 65 78 70 72 20  or {set i [expr 
9170: 24 70 32 2b 31 5d 7d 20 7b 24 69 3c 24 61 64 64  $p2+1]} {$i<$add
9180: 72 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20  r} {incr i} {.  
9190: 20 20 20 20 20 20 69 6e 63 72 20 78 28 24 69 29        incr x($i)
91a0: 20 32 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d   2.      }.    }
91b0: 0a 0a 20 20 20 20 69 66 20 7b 24 6f 70 63 6f 64  ..    if {$opcod
91c0: 65 20 3d 3d 20 22 48 61 6c 74 22 20 26 26 20 24  e == "Halt" && $
91d0: 63 6f 6d 6d 65 6e 74 20 3d 3d 20 22 45 6e 64 20  comment == "End 
91e0: 6f 66 20 63 6f 72 6f 75 74 69 6e 65 22 7d 20 7b  of coroutine"} {
91f0: 0a 20 20 20 20 20 20 73 65 74 20 6c 69 6e 65 62  .      set lineb
9200: 72 65 61 6b 28 5b 65 78 70 72 20 24 61 64 64 72  reak([expr $addr
9210: 2b 31 5d 29 20 31 0a 20 20 20 20 7d 0a 20 20 7d  +1]) 1.    }.  }
9220: 0a 0a 20 20 24 64 62 20 65 76 61 6c 20 22 65 78  ..  $db eval "ex
9230: 70 6c 61 69 6e 20 24 73 71 6c 22 20 7b 7d 20 7b  plain $sql" {} {
9240: 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65  .    if {[info e
9250: 78 69 73 74 73 20 6c 69 6e 65 62 72 65 61 6b 28  xists linebreak(
9260: 24 61 64 64 72 29 5d 7d 20 7b 0a 20 20 20 20 20  $addr)]} {.     
9270: 20 6f 75 74 70 75 74 32 20 22 22 0a 20 20 20 20   output2 "".    
9280: 7d 0a 20 20 20 20 73 65 74 20 49 20 5b 73 74 72  }.    set I [str
9290: 69 6e 67 20 72 65 70 65 61 74 20 22 20 22 20 24  ing repeat " " $
92a0: 78 28 24 61 64 64 72 29 5d 0a 0a 20 20 20 20 73  x($addr)]..    s
92b0: 65 74 20 63 6f 6c 20 22 22 0a 20 20 20 20 63 61  et col "".    ca
92c0: 74 63 68 20 7b 20 73 65 74 20 63 6f 6c 20 24 63  tch { set col $c
92d0: 6f 6c 6f 72 28 24 6f 70 63 6f 64 65 29 20 7d 0a  olor($opcode) }.
92e0: 0a 20 20 20 20 6f 75 74 70 75 74 32 20 5b 66 6f  .    output2 [fo
92f0: 72 6d 61 74 20 7b 25 2d 34 64 20 20 25 73 25 73  rmat {%-4d  %s%s
9300: 25 2d 31 32 2e 31 32 73 25 73 20 20 25 2d 36 64  %-12.12s%s  %-6d
9310: 20 20 25 2d 36 64 20 20 25 2d 36 64 20 20 25 20    %-6d  %-6d  % 
9320: 2d 31 37 73 20 25 73 20 20 25 73 7d 20 5c 0a 20  -17s %s  %s} \. 
9330: 20 20 20 20 20 24 61 64 64 72 20 24 49 20 24 63       $addr $I $c
9340: 6f 6c 20 24 6f 70 63 6f 64 65 20 24 44 20 24 70  ol $opcode $D $p
9350: 31 20 24 70 32 20 24 70 33 20 24 70 34 20 24 70  1 $p2 $p3 $p4 $p
9360: 35 20 24 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 5d  5 $comment.    ]
9370: 0a 20 20 7d 0a 20 20 6f 75 74 70 75 74 32 20 22  .  }.  output2 "
9380: 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----  ----------
9390: 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d  --  ------  ----
93a0: 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d  --  ------  ----
93b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d  ------------  --
93c0: 20 20 2d 22 0a 7d 0a 0a 23 20 53 68 6f 77 20 74    -".}..# Show t
93d0: 68 65 20 56 44 42 45 20 70 72 6f 67 72 61 6d 20  he VDBE program 
93e0: 66 6f 72 20 61 6e 20 53 51 4c 20 73 74 61 74 65  for an SQL state
93f0: 6d 65 6e 74 20 62 75 74 20 6f 6d 69 74 20 74 68  ment but omit th
9400: 65 20 54 72 61 63 65 0a 23 20 6f 70 63 6f 64 65  e Trace.# opcode
9410: 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e   at the beginnin
9420: 67 2e 20 20 54 68 69 73 20 70 72 6f 63 65 64 75  g.  This procedu
9430: 72 65 20 63 61 6e 20 62 65 20 75 73 65 64 20 74  re can be used t
9440: 6f 20 70 72 6f 76 65 0a 23 20 74 68 61 74 20 64  o prove.# that d
9450: 69 66 66 65 72 65 6e 74 20 53 51 4c 20 73 74 61  ifferent SQL sta
9460: 74 65 6d 65 6e 74 73 20 67 65 6e 65 72 61 74 65  tements generate
9470: 20 65 78 61 63 74 6c 79 20 74 68 65 20 73 61 6d   exactly the sam
9480: 65 20 56 44 42 45 20 63 6f 64 65 2e 0a 23 0a 70  e VDBE code..#.p
9490: 72 6f 63 20 65 78 70 6c 61 69 6e 5f 6e 6f 5f 74  roc explain_no_t
94a0: 72 61 63 65 20 7b 73 71 6c 7d 20 7b 0a 20 20 73  race {sql} {.  s
94b0: 65 74 20 74 72 20 5b 64 62 20 65 76 61 6c 20 22  et tr [db eval "
94c0: 45 58 50 4c 41 49 4e 20 24 73 71 6c 22 5d 0a 20  EXPLAIN $sql"]. 
94d0: 20 72 65 74 75 72 6e 20 5b 6c 72 61 6e 67 65 20   return [lrange 
94e0: 24 74 72 20 37 20 65 6e 64 5d 0a 7d 0a 0a 23 20  $tr 7 end].}..# 
94f0: 41 6e 6f 74 68 65 72 20 70 72 6f 63 65 64 75 72  Another procedur
9500: 65 20 74 6f 20 65 78 65 63 75 74 65 20 53 51 4c  e to execute SQL
9510: 2e 20 20 54 68 69 73 20 6f 6e 65 20 69 6e 63 6c  .  This one incl
9520: 75 64 65 73 20 74 68 65 20 66 69 65 6c 64 0a 23  udes the field.#
9530: 20 6e 61 6d 65 73 20 69 6e 20 74 68 65 20 72 65   names in the re
9540: 74 75 72 6e 65 64 20 6c 69 73 74 2e 0a 23 0a 70  turned list..#.p
9550: 72 6f 63 20 65 78 65 63 73 71 6c 32 20 7b 73 71  roc execsql2 {sq
9560: 6c 7d 20 7b 0a 20 20 73 65 74 20 72 65 73 75 6c  l} {.  set resul
9570: 74 20 7b 7d 0a 20 20 64 62 20 65 76 61 6c 20 24  t {}.  db eval $
9580: 73 71 6c 20 64 61 74 61 20 7b 0a 20 20 20 20 66  sql data {.    f
9590: 6f 72 65 61 63 68 20 66 20 24 64 61 74 61 28 2a  oreach f $data(*
95a0: 29 20 7b 0a 20 20 20 20 20 20 6c 61 70 70 65 6e  ) {.      lappen
95b0: 64 20 72 65 73 75 6c 74 20 24 66 20 24 64 61 74  d result $f $dat
95c0: 61 28 24 66 29 0a 20 20 20 20 7d 0a 20 20 7d 0a  a($f).    }.  }.
95d0: 20 20 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74    return $result
95e0: 0a 7d 0a 0a 23 20 55 73 65 20 61 20 74 65 6d 70  .}..# Use a temp
95f0: 6f 72 61 72 79 20 69 6e 2d 6d 65 6d 6f 72 79 20  orary in-memory 
9600: 64 61 74 61 62 61 73 65 20 74 6f 20 65 78 65 63  database to exec
9610: 75 74 65 20 53 51 4c 20 73 74 61 74 65 6d 65 6e  ute SQL statemen
9620: 74 73 0a 23 0a 70 72 6f 63 20 6d 65 6d 64 62 73  ts.#.proc memdbs
9630: 71 6c 20 7b 73 71 6c 7d 20 7b 0a 20 20 73 71 6c  ql {sql} {.  sql
9640: 69 74 65 33 20 6d 65 6d 64 62 20 3a 6d 65 6d 6f  ite3 memdb :memo
9650: 72 79 3a 0a 20 20 73 65 74 20 72 65 73 75 6c 74  ry:.  set result
9660: 20 5b 6d 65 6d 64 62 20 65 76 61 6c 20 24 73 71   [memdb eval $sq
9670: 6c 5d 0a 20 20 6d 65 6d 64 62 20 63 6c 6f 73 65  l].  memdb close
9680: 0a 20 20 72 65 74 75 72 6e 20 24 72 65 73 75 6c  .  return $resul
9690: 74 0a 7d 0a 0a 23 20 55 73 65 20 74 68 65 20 6e  t.}..# Use the n
96a0: 6f 6e 2d 63 61 6c 6c 62 61 63 6b 20 41 50 49 20  on-callback API 
96b0: 74 6f 20 65 78 65 63 75 74 65 20 6d 75 6c 74 69  to execute multi
96c0: 70 6c 65 20 53 51 4c 20 73 74 61 74 65 6d 65 6e  ple SQL statemen
96d0: 74 73 0a 23 0a 70 72 6f 63 20 73 74 65 70 73 71  ts.#.proc stepsq
96e0: 6c 20 7b 64 62 70 74 72 20 73 71 6c 7d 20 7b 0a  l {dbptr sql} {.
96f0: 20 20 73 65 74 20 73 71 6c 20 5b 73 74 72 69 6e    set sql [strin
9700: 67 20 74 72 69 6d 20 24 73 71 6c 5d 0a 20 20 73  g trim $sql].  s
9710: 65 74 20 72 20 30 0a 20 20 77 68 69 6c 65 20 7b  et r 0.  while {
9720: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $
9730: 73 71 6c 5d 3e 30 7d 20 7b 0a 20 20 20 20 69 66  sql]>0} {.    if
9740: 20 7b 5b 63 61 74 63 68 20 7b 73 71 6c 69 74 65   {[catch {sqlite
9750: 33 5f 70 72 65 70 61 72 65 20 24 64 62 70 74 72  3_prepare $dbptr
9760: 20 24 73 71 6c 20 2d 31 20 73 71 6c 74 61 69 6c   $sql -1 sqltail
9770: 7d 20 76 6d 5d 7d 20 7b 0a 20 20 20 20 20 20 72  } vm]} {.      r
9780: 65 74 75 72 6e 20 5b 6c 69 73 74 20 31 20 24 76  eturn [list 1 $v
9790: 6d 5d 0a 20 20 20 20 7d 0a 20 20 20 20 73 65 74  m].    }.    set
97a0: 20 73 71 6c 20 5b 73 74 72 69 6e 67 20 74 72 69   sql [string tri
97b0: 6d 20 24 73 71 6c 74 61 69 6c 5d 0a 23 20 20 20  m $sqltail].#   
97c0: 20 77 68 69 6c 65 20 7b 5b 73 71 6c 69 74 65 5f   while {[sqlite_
97d0: 73 74 65 70 20 24 76 6d 20 4e 20 56 41 4c 20 43  step $vm N VAL C
97e0: 4f 4c 5d 3d 3d 22 53 51 4c 49 54 45 5f 52 4f 57  OL]=="SQLITE_ROW
97f0: 22 7d 20 7b 0a 23 20 20 20 20 20 20 66 6f 72 65  "} {.#      fore
9800: 61 63 68 20 76 20 24 56 41 4c 20 7b 6c 61 70 70  ach v $VAL {lapp
9810: 65 6e 64 20 72 20 24 76 7d 0a 23 20 20 20 20 7d  end r $v}.#    }
9820: 0a 20 20 20 20 77 68 69 6c 65 20 7b 5b 73 71 6c  .    while {[sql
9830: 69 74 65 33 5f 73 74 65 70 20 24 76 6d 5d 3d 3d  ite3_step $vm]==
9840: 22 53 51 4c 49 54 45 5f 52 4f 57 22 7d 20 7b 0a  "SQLITE_ROW"} {.
9850: 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69        for {set i
9860: 20 30 7d 20 7b 24 69 3c 5b 73 71 6c 69 74 65 33   0} {$i<[sqlite3
9870: 5f 64 61 74 61 5f 63 6f 75 6e 74 20 24 76 6d 5d  _data_count $vm]
9880: 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20  } {incr i} {.   
9890: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 72 20 5b       lappend r [
98a0: 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74  sqlite3_column_t
98b0: 65 78 74 20 24 76 6d 20 24 69 5d 0a 20 20 20 20  ext $vm $i].    
98c0: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66    }.    }.    if
98d0: 20 7b 5b 63 61 74 63 68 20 7b 73 71 6c 69 74 65   {[catch {sqlite
98e0: 33 5f 66 69 6e 61 6c 69 7a 65 20 24 76 6d 7d 20  3_finalize $vm} 
98f0: 65 72 72 6d 73 67 5d 7d 20 7b 0a 20 20 20 20 20  errmsg]} {.     
9900: 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 20 31 20   return [list 1 
9910: 24 65 72 72 6d 73 67 5d 0a 20 20 20 20 7d 0a 20  $errmsg].    }. 
9920: 20 7d 0a 20 20 72 65 74 75 72 6e 20 24 72 0a 7d   }.  return $r.}
9930: 0a 0a 23 20 44 6f 20 61 6e 20 69 6e 74 65 67 72  ..# Do an integr
9940: 69 74 79 20 63 68 65 63 6b 20 6f 66 20 74 68 65  ity check of the
9950: 20 65 6e 74 69 72 65 20 64 61 74 61 62 61 73 65   entire database
9960: 0a 23 0a 70 72 6f 63 20 69 6e 74 65 67 72 69 74  .#.proc integrit
9970: 79 5f 63 68 65 63 6b 20 7b 6e 61 6d 65 20 7b 64  y_check {name {d
9980: 62 20 64 62 7d 7d 20 7b 0a 20 20 69 66 63 61 70  b db}} {.  ifcap
9990: 61 62 6c 65 20 69 6e 74 65 67 72 69 74 79 63 6b  able integrityck
99a0: 20 7b 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 24   {.    do_test $
99b0: 6e 61 6d 65 20 5b 6c 69 73 74 20 65 78 65 63 73  name [list execs
99c0: 71 6c 20 7b 50 52 41 47 4d 41 20 69 6e 74 65 67  ql {PRAGMA integ
99d0: 72 69 74 79 5f 63 68 65 63 6b 7d 20 24 64 62 5d  rity_check} $db]
99e0: 20 7b 6f 6b 7d 0a 20 20 7d 0a 7d 0a 0a 23 20 43   {ok}.  }.}..# C
99f0: 68 65 63 6b 20 74 68 65 20 65 78 74 65 6e 64 65  heck the extende
9a00: 64 20 65 72 72 6f 72 20 63 6f 64 65 0a 23 0a 70  d error code.#.p
9a10: 72 6f 63 20 76 65 72 69 66 79 5f 65 78 5f 65 72  roc verify_ex_er
9a20: 72 63 6f 64 65 20 7b 6e 61 6d 65 20 65 78 70 65  rcode {name expe
9a30: 63 74 65 64 20 7b 64 62 20 64 62 7d 7d 20 7b 0a  cted {db db}} {.
9a40: 20 20 64 6f 5f 74 65 73 74 20 24 6e 61 6d 65 20    do_test $name 
9a50: 5b 6c 69 73 74 20 73 71 6c 69 74 65 33 5f 65 78  [list sqlite3_ex
9a60: 74 65 6e 64 65 64 5f 65 72 72 63 6f 64 65 20 24  tended_errcode $
9a70: 64 62 5d 20 24 65 78 70 65 63 74 65 64 0a 7d 0a  db] $expected.}.
9a80: 0a 0a 23 20 52 65 74 75 72 6e 20 74 72 75 65 20  ..# Return true 
9a90: 69 66 20 74 68 65 20 53 51 4c 20 73 74 61 74 65  if the SQL state
9aa0: 6d 65 6e 74 20 70 61 73 73 65 64 20 61 73 20 74  ment passed as t
9ab0: 68 65 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65  he second argume
9ac0: 6e 74 20 75 73 65 73 20 61 0a 23 20 73 74 61 74  nt uses a.# stat
9ad0: 65 6d 65 6e 74 20 74 72 61 6e 73 61 63 74 69 6f  ement transactio
9ae0: 6e 2e 0a 23 0a 70 72 6f 63 20 73 71 6c 5f 75 73  n..#.proc sql_us
9af0: 65 73 5f 73 74 6d 74 20 7b 64 62 20 73 71 6c 7d  es_stmt {db sql}
9b00: 20 7b 0a 20 20 73 65 74 20 73 74 6d 74 20 5b 73   {.  set stmt [s
9b10: 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 20 24  qlite3_prepare $
9b20: 64 62 20 24 73 71 6c 20 2d 31 20 64 75 6d 6d 79  db $sql -1 dummy
9b30: 5d 0a 20 20 73 65 74 20 75 73 65 73 20 5b 75 73  ].  set uses [us
9b40: 65 73 5f 73 74 6d 74 5f 6a 6f 75 72 6e 61 6c 20  es_stmt_journal 
9b50: 24 73 74 6d 74 5d 0a 20 20 73 71 6c 69 74 65 33  $stmt].  sqlite3
9b60: 5f 66 69 6e 61 6c 69 7a 65 20 24 73 74 6d 74 0a  _finalize $stmt.
9b70: 20 20 72 65 74 75 72 6e 20 24 75 73 65 73 0a 7d    return $uses.}
9b80: 0a 0a 70 72 6f 63 20 66 69 78 5f 69 66 63 61 70  ..proc fix_ifcap
9b90: 61 62 6c 65 5f 65 78 70 72 20 7b 65 78 70 72 7d  able_expr {expr}
9ba0: 20 7b 0a 20 20 73 65 74 20 72 65 74 20 22 22 0a   {.  set ret "".
9bb0: 20 20 73 65 74 20 73 74 61 74 65 20 30 0a 20 20    set state 0.  
9bc0: 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24  for {set i 0} {$
9bd0: 69 20 3c 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67  i < [string leng
9be0: 74 68 20 24 65 78 70 72 5d 7d 20 7b 69 6e 63 72  th $expr]} {incr
9bf0: 20 69 7d 20 7b 0a 20 20 20 20 73 65 74 20 63 68   i} {.    set ch
9c00: 61 72 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65  ar [string range
9c10: 20 24 65 78 70 72 20 24 69 20 24 69 5d 0a 20 20   $expr $i $i].  
9c20: 20 20 73 65 74 20 6e 65 77 73 74 61 74 65 20 5b    set newstate [
9c30: 65 78 70 72 20 7b 5b 73 74 72 69 6e 67 20 69 73  expr {[string is
9c40: 20 61 6c 6e 75 6d 20 24 63 68 61 72 5d 20 7c 7c   alnum $char] ||
9c50: 20 24 63 68 61 72 20 65 71 20 22 5f 22 7d 5d 0a   $char eq "_"}].
9c60: 20 20 20 20 69 66 20 7b 24 6e 65 77 73 74 61 74      if {$newstat
9c70: 65 20 26 26 20 21 24 73 74 61 74 65 7d 20 7b 0a  e && !$state} {.
9c80: 20 20 20 20 20 20 61 70 70 65 6e 64 20 72 65 74        append ret
9c90: 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 6f 70 74 69   {$::sqlite_opti
9ca0: 6f 6e 73 28 7d 0a 20 20 20 20 7d 0a 20 20 20 20  ons(}.    }.    
9cb0: 69 66 20 7b 21 24 6e 65 77 73 74 61 74 65 20 26  if {!$newstate &
9cc0: 26 20 24 73 74 61 74 65 7d 20 7b 0a 20 20 20 20  & $state} {.    
9cd0: 20 20 61 70 70 65 6e 64 20 72 65 74 20 29 0a 20    append ret ). 
9ce0: 20 20 20 7d 0a 20 20 20 20 61 70 70 65 6e 64 20     }.    append 
9cf0: 72 65 74 20 24 63 68 61 72 0a 20 20 20 20 73 65  ret $char.    se
9d00: 74 20 73 74 61 74 65 20 24 6e 65 77 73 74 61 74  t state $newstat
9d10: 65 0a 20 20 7d 0a 20 20 69 66 20 7b 24 73 74 61  e.  }.  if {$sta
9d20: 74 65 7d 20 7b 61 70 70 65 6e 64 20 72 65 74 20  te} {append ret 
9d30: 29 7d 0a 20 20 72 65 74 75 72 6e 20 24 72 65 74  )}.  return $ret
9d40: 0a 7d 0a 0a 23 20 52 65 74 75 72 6e 73 20 6e 6f  .}..# Returns no
9d50: 6e 2d 7a 65 72 6f 20 69 66 20 74 68 65 20 63 61  n-zero if the ca
9d60: 70 61 62 69 6c 69 74 69 65 73 20 61 72 65 20 70  pabilities are p
9d70: 72 65 73 65 6e 74 3b 20 7a 65 72 6f 20 6f 74 68  resent; zero oth
9d80: 65 72 77 69 73 65 2e 0a 23 0a 70 72 6f 63 20 63  erwise..#.proc c
9d90: 61 70 61 62 6c 65 20 7b 65 78 70 72 7d 20 7b 0a  apable {expr} {.
9da0: 20 20 73 65 74 20 65 20 5b 66 69 78 5f 69 66 63    set e [fix_ifc
9db0: 61 70 61 62 6c 65 5f 65 78 70 72 20 24 65 78 70  apable_expr $exp
9dc0: 72 5d 3b 20 72 65 74 75 72 6e 20 5b 65 78 70 72  r]; return [expr
9dd0: 20 28 24 65 29 5d 0a 7d 0a 0a 23 20 45 76 61 6c   ($e)].}..# Eval
9de0: 75 61 74 65 20 61 20 62 6f 6f 6c 65 61 6e 20 65  uate a boolean e
9df0: 78 70 72 65 73 73 69 6f 6e 20 6f 66 20 63 61 70  xpression of cap
9e00: 61 62 69 6c 69 74 69 65 73 2e 20 20 49 66 20 74  abilities.  If t
9e10: 72 75 65 2c 20 65 78 65 63 75 74 65 20 74 68 65  rue, execute the
9e20: 0a 23 20 63 6f 64 65 2e 20 20 4f 6d 69 74 20 74  .# code.  Omit t
9e30: 68 65 20 63 6f 64 65 20 69 66 20 66 61 6c 73 65  he code if false
9e40: 2e 0a 23 0a 70 72 6f 63 20 69 66 63 61 70 61 62  ..#.proc ifcapab
9e50: 6c 65 20 7b 65 78 70 72 20 63 6f 64 65 20 7b 65  le {expr code {e
9e60: 6c 73 65 20 22 22 7d 20 7b 65 6c 73 65 63 6f 64  lse ""} {elsecod
9e70: 65 20 22 22 7d 7d 20 7b 0a 20 20 23 72 65 67 73  e ""}} {.  #regs
9e80: 75 62 20 2d 61 6c 6c 20 7b 5b 61 2d 7a 5f 30 2d  ub -all {[a-z_0-
9e90: 39 5d 2b 7d 20 24 65 78 70 72 20 7b 24 3a 3a 73  9]+} $expr {$::s
9ea0: 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 28 26 29  qlite_options(&)
9eb0: 7d 20 65 32 0a 20 20 73 65 74 20 65 32 20 5b 66  } e2.  set e2 [f
9ec0: 69 78 5f 69 66 63 61 70 61 62 6c 65 5f 65 78 70  ix_ifcapable_exp
9ed0: 72 20 24 65 78 70 72 5d 0a 20 20 69 66 20 28 24  r $expr].  if ($
9ee0: 65 32 29 20 7b 0a 20 20 20 20 73 65 74 20 63 20  e2) {.    set c 
9ef0: 5b 63 61 74 63 68 20 7b 75 70 6c 65 76 65 6c 20  [catch {uplevel 
9f00: 31 20 24 63 6f 64 65 7d 20 72 5d 0a 20 20 7d 20  1 $code} r].  } 
9f10: 65 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20 63  else {.    set c
9f20: 20 5b 63 61 74 63 68 20 7b 75 70 6c 65 76 65 6c   [catch {uplevel
9f30: 20 31 20 24 65 6c 73 65 63 6f 64 65 7d 20 72 5d   1 $elsecode} r]
9f40: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 2d 63  .  }.  return -c
9f50: 6f 64 65 20 24 63 20 24 72 0a 7d 0a 0a 23 20 54  ode $c $r.}..# T
9f60: 68 69 73 20 70 72 6f 63 20 65 78 65 63 73 20 61  his proc execs a
9f70: 20 73 65 70 65 72 61 74 65 20 70 72 6f 63 65 73   seperate proces
9f80: 73 20 74 68 61 74 20 63 72 61 73 68 65 73 20 6d  s that crashes m
9f90: 69 64 77 61 79 20 74 68 72 6f 75 67 68 20 65 78  idway through ex
9fa0: 65 63 75 74 69 6e 67 0a 23 20 74 68 65 20 53 51  ecuting.# the SQ
9fb0: 4c 20 73 63 72 69 70 74 20 24 73 71 6c 20 6f 6e  L script $sql on
9fc0: 20 64 61 74 61 62 61 73 65 20 74 65 73 74 2e 64   database test.d
9fd0: 62 2e 0a 23 0a 23 20 54 68 65 20 63 72 61 73 68  b..#.# The crash
9fe0: 20 6f 63 63 75 72 73 20 64 75 72 69 6e 67 20 61   occurs during a
9ff0: 20 73 79 6e 63 28 29 20 6f 66 20 66 69 6c 65 20   sync() of file 
a000: 24 63 72 61 73 68 66 69 6c 65 2e 20 57 68 65 6e  $crashfile. When
a010: 20 74 68 65 20 63 72 61 73 68 0a 23 20 6f 63 63   the crash.# occ
a020: 75 72 73 20 61 20 72 61 6e 64 6f 6d 20 73 75 62  urs a random sub
a030: 73 65 74 20 6f 66 20 61 6c 6c 20 75 6e 73 79 6e  set of all unsyn
a040: 63 65 64 20 77 72 69 74 65 73 20 6d 61 64 65 20  ced writes made 
a050: 62 79 20 74 68 65 20 70 72 6f 63 65 73 73 20 61  by the process a
a060: 72 65 0a 23 20 77 72 69 74 74 65 6e 20 69 6e 74  re.# written int
a070: 6f 20 74 68 65 20 66 69 6c 65 73 20 6f 6e 20 64  o the files on d
a080: 69 73 6b 2e 20 41 72 67 75 6d 65 6e 74 20 24 63  isk. Argument $c
a090: 72 61 73 68 64 65 6c 61 79 20 69 6e 64 69 63 61  rashdelay indica
a0a0: 74 65 73 20 74 68 65 0a 23 20 6e 75 6d 62 65 72  tes the.# number
a0b0: 20 6f 66 20 66 69 6c 65 20 73 79 6e 63 73 20 74   of file syncs t
a0c0: 6f 20 77 61 69 74 20 62 65 66 6f 72 65 20 63 72  o wait before cr
a0d0: 61 73 68 69 6e 67 2e 0a 23 0a 23 20 54 68 65 20  ashing..#.# The 
a0e0: 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20  return value is 
a0f0: 61 20 6c 69 73 74 20 6f 66 20 74 77 6f 20 65 6c  a list of two el
a100: 65 6d 65 6e 74 73 2e 20 54 68 65 20 66 69 72 73  ements. The firs
a110: 74 20 65 6c 65 6d 65 6e 74 20 69 73 20 61 0a 23  t element is a.#
a120: 20 62 6f 6f 6c 65 61 6e 2c 20 69 6e 64 69 63 61   boolean, indica
a130: 74 69 6e 67 20 77 68 65 74 68 65 72 20 6f 72 20  ting whether or 
a140: 6e 6f 74 20 74 68 65 20 70 72 6f 63 65 73 73 20  not the process 
a150: 61 63 74 75 61 6c 6c 79 20 63 72 61 73 68 65 64  actually crashed
a160: 20 6f 72 0a 23 20 72 65 70 6f 72 74 65 64 20 73   or.# reported s
a170: 6f 6d 65 20 6f 74 68 65 72 20 65 72 72 6f 72 2e  ome other error.
a180: 20 54 68 65 20 73 65 63 6f 6e 64 20 65 6c 65 6d   The second elem
a190: 65 6e 74 20 69 6e 20 74 68 65 20 72 65 74 75 72  ent in the retur
a1a0: 6e 65 64 20 6c 69 73 74 20 69 73 20 74 68 65 0a  ned list is the.
a1b0: 23 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2e  # error message.
a1c0: 20 54 68 69 73 20 69 73 20 22 63 68 69 6c 64 20   This is "child 
a1d0: 70 72 6f 63 65 73 73 20 65 78 69 74 65 64 20 61  process exited a
a1e0: 62 6e 6f 72 6d 61 6c 6c 79 22 20 69 66 20 74 68  bnormally" if th
a1f0: 65 20 63 72 61 73 68 0a 23 20 6f 63 63 75 72 72  e crash.# occurr
a200: 65 64 2e 0a 23 0a 23 20 20 20 63 72 61 73 68 73  ed..#.#   crashs
a210: 71 6c 20 2d 64 65 6c 61 79 20 43 52 41 53 48 44  ql -delay CRASHD
a220: 45 4c 41 59 20 2d 66 69 6c 65 20 43 52 41 53 48  ELAY -file CRASH
a230: 46 49 4c 45 20 3f 2d 62 6c 6f 63 6b 73 69 7a 65  FILE ?-blocksize
a240: 20 42 4c 4f 43 4b 53 49 5a 45 3f 20 24 73 71 6c   BLOCKSIZE? $sql
a250: 0a 23 0a 70 72 6f 63 20 63 72 61 73 68 73 71 6c  .#.proc crashsql
a260: 20 7b 61 72 67 73 7d 20 7b 0a 0a 20 20 73 65 74   {args} {..  set
a270: 20 62 6c 6f 63 6b 73 69 7a 65 20 22 22 0a 20 20   blocksize "".  
a280: 73 65 74 20 63 72 61 73 68 64 65 6c 61 79 20 31  set crashdelay 1
a290: 0a 20 20 73 65 74 20 70 72 6e 67 73 65 65 64 20  .  set prngseed 
a2a0: 30 0a 20 20 73 65 74 20 6f 70 65 6e 64 62 20 7b  0.  set opendb {
a2b0: 20 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74   sqlite3 db test
a2c0: 2e 64 62 20 2d 76 66 73 20 63 72 61 73 68 20 7d  .db -vfs crash }
a2d0: 0a 20 20 73 65 74 20 74 63 6c 62 6f 64 79 20 7b  .  set tclbody {
a2e0: 7d 0a 20 20 73 65 74 20 63 72 61 73 68 66 69 6c  }.  set crashfil
a2f0: 65 20 22 22 0a 20 20 73 65 74 20 64 63 20 22 22  e "".  set dc ""
a300: 0a 20 20 73 65 74 20 73 71 6c 20 5b 6c 69 6e 64  .  set sql [lind
a310: 65 78 20 24 61 72 67 73 20 65 6e 64 5d 0a 0a 20  ex $args end].. 
a320: 20 66 6f 72 20 7b 73 65 74 20 69 69 20 30 7d 20   for {set ii 0} 
a330: 7b 24 69 69 20 3c 20 5b 6c 6c 65 6e 67 74 68 20  {$ii < [llength 
a340: 24 61 72 67 73 5d 2d 31 7d 20 7b 69 6e 63 72 20  $args]-1} {incr 
a350: 69 69 20 32 7d 20 7b 0a 20 20 20 20 73 65 74 20  ii 2} {.    set 
a360: 7a 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20  z [lindex $args 
a370: 24 69 69 5d 0a 20 20 20 20 73 65 74 20 6e 20 5b  $ii].    set n [
a380: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 7a  string length $z
a390: 5d 0a 20 20 20 20 73 65 74 20 7a 32 20 5b 6c 69  ].    set z2 [li
a3a0: 6e 64 65 78 20 24 61 72 67 73 20 5b 65 78 70 72  ndex $args [expr
a3b0: 20 24 69 69 2b 31 5d 5d 0a 0a 20 20 20 20 69 66   $ii+1]]..    if
a3c0: 20 20 20 20 20 7b 24 6e 3e 31 20 26 26 20 5b 73       {$n>1 && [s
a3d0: 74 72 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d  tring first $z -
a3e0: 64 65 6c 61 79 5d 3d 3d 30 7d 20 20 20 20 20 7b  delay]==0}     {
a3f0: 73 65 74 20 63 72 61 73 68 64 65 6c 61 79 20 24  set crashdelay $
a400: 7a 32 7d 20 5c 0a 20 20 20 20 65 6c 73 65 69 66  z2} \.    elseif
a410: 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e   {$n>1 && [strin
a420: 67 20 66 69 72 73 74 20 24 7a 20 2d 6f 70 65 6e  g first $z -open
a430: 64 62 5d 3d 3d 30 7d 20 20 20 20 7b 73 65 74 20  db]==0}    {set 
a440: 6f 70 65 6e 64 62 20 24 7a 32 7d 20 5c 0a 20 20  opendb $z2} \.  
a450: 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 20 26    elseif {$n>1 &
a460: 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20  & [string first 
a470: 24 7a 20 2d 73 65 65 64 5d 3d 3d 30 7d 20 20 20  $z -seed]==0}   
a480: 20 20 20 7b 73 65 74 20 70 72 6e 67 73 65 65 64     {set prngseed
a490: 20 24 7a 32 7d 20 5c 0a 20 20 20 20 65 6c 73 65   $z2} \.    else
a4a0: 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72  if {$n>1 && [str
a4b0: 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d 66 69  ing first $z -fi
a4c0: 6c 65 5d 3d 3d 30 7d 20 20 20 20 20 20 7b 73 65  le]==0}      {se
a4d0: 74 20 63 72 61 73 68 66 69 6c 65 20 24 7a 32 7d  t crashfile $z2}
a4e0: 20 20 5c 0a 20 20 20 20 65 6c 73 65 69 66 20 7b    \.    elseif {
a4f0: 24 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e 67 20  $n>1 && [string 
a500: 66 69 72 73 74 20 24 7a 20 2d 74 63 6c 62 6f 64  first $z -tclbod
a510: 79 5d 3d 3d 30 7d 20 20 20 7b 73 65 74 20 74 63  y]==0}   {set tc
a520: 6c 62 6f 64 79 20 24 7a 32 7d 20 20 5c 0a 20 20  lbody $z2}  \.  
a530: 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 20 26    elseif {$n>1 &
a540: 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20  & [string first 
a550: 24 7a 20 2d 62 6c 6f 63 6b 73 69 7a 65 5d 3d 3d  $z -blocksize]==
a560: 30 7d 20 7b 73 65 74 20 62 6c 6f 63 6b 73 69 7a  0} {set blocksiz
a570: 65 20 22 2d 73 20 24 7a 32 22 20 7d 20 5c 0a 20  e "-s $z2" } \. 
a580: 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 20     elseif {$n>1 
a590: 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74  && [string first
a5a0: 20 24 7a 20 2d 63 68 61 72 61 63 74 65 72 69 73   $z -characteris
a5b0: 74 69 63 73 5d 3d 3d 30 7d 20 7b 73 65 74 20 64  tics]==0} {set d
a5c0: 63 20 22 2d 63 20 7b 24 7a 32 7d 22 20 7d 20 5c  c "-c {$z2}" } \
a5d0: 0a 20 20 20 20 65 6c 73 65 20 20 20 7b 20 65 72  .    else   { er
a5e0: 72 6f 72 20 22 55 6e 72 65 63 6f 67 6e 69 7a 65  ror "Unrecognize
a5f0: 64 20 6f 70 74 69 6f 6e 3a 20 24 7a 22 20 7d 0a  d option: $z" }.
a600: 20 20 7d 0a 0a 20 20 69 66 20 7b 24 63 72 61 73    }..  if {$cras
a610: 68 66 69 6c 65 20 65 71 20 22 22 7d 20 7b 0a 20  hfile eq ""} {. 
a620: 20 20 20 65 72 72 6f 72 20 22 43 6f 6d 70 75 6c     error "Compul
a630: 73 6f 72 79 20 6f 70 74 69 6f 6e 20 2d 66 69 6c  sory option -fil
a640: 65 20 6d 69 73 73 69 6e 67 22 0a 20 20 7d 0a 0a  e missing".  }..
a650: 20 20 23 20 24 63 72 61 73 68 66 69 6c 65 20 67    # $crashfile g
a660: 65 74 73 20 63 6f 6d 70 61 72 65 64 20 74 6f 20  ets compared to 
a670: 74 68 65 20 6e 61 74 69 76 65 20 66 69 6c 65 6e  the native filen
a680: 61 6d 65 20 69 6e 0a 20 20 23 20 63 66 53 79 6e  ame in.  # cfSyn
a690: 63 28 29 2c 20 77 68 69 63 68 20 63 61 6e 20 62  c(), which can b
a6a0: 65 20 64 69 66 66 65 72 65 6e 74 20 74 68 65 6e  e different then
a6b0: 20 77 68 61 74 20 54 43 4c 20 75 73 65 73 20 62   what TCL uses b
a6c0: 79 0a 20 20 23 20 64 65 66 61 75 6c 74 2c 20 73  y.  # default, s
a6d0: 6f 20 68 65 72 65 20 77 65 20 66 6f 72 63 65 20  o here we force 
a6e0: 69 74 20 74 6f 20 74 68 65 20 22 6e 61 74 69 76  it to the "nativ
a6f0: 65 6e 61 6d 65 22 20 66 6f 72 6d 61 74 2e 0a 20  ename" format.. 
a700: 20 73 65 74 20 63 66 69 6c 65 20 5b 73 74 72 69   set cfile [stri
a710: 6e 67 20 6d 61 70 20 7b 5c 5c 20 5c 5c 5c 5c 7d  ng map {\\ \\\\}
a720: 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 6e 61 6d   [file nativenam
a730: 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65  e [file join [ge
a740: 74 5f 70 77 64 5d 20 24 63 72 61 73 68 66 69 6c  t_pwd] $crashfil
a750: 65 5d 5d 5d 0a 0a 20 20 73 65 74 20 66 20 5b 6f  e]]]..  set f [o
a760: 70 65 6e 20 63 72 61 73 68 2e 74 63 6c 20 77 5d  pen crash.tcl w]
a770: 0a 20 20 70 75 74 73 20 24 66 20 22 73 71 6c 69  .  puts $f "sqli
a780: 74 65 33 5f 63 72 61 73 68 5f 65 6e 61 62 6c 65  te3_crash_enable
a790: 20 31 22 0a 20 20 70 75 74 73 20 24 66 20 22 73   1".  puts $f "s
a7a0: 71 6c 69 74 65 33 5f 63 72 61 73 68 70 61 72 61  qlite3_crashpara
a7b0: 6d 73 20 24 62 6c 6f 63 6b 73 69 7a 65 20 24 64  ms $blocksize $d
a7c0: 63 20 24 63 72 61 73 68 64 65 6c 61 79 20 24 63  c $crashdelay $c
a7d0: 66 69 6c 65 22 0a 20 20 70 75 74 73 20 24 66 20  file".  puts $f 
a7e0: 22 73 71 6c 69 74 65 33 5f 74 65 73 74 5f 63 6f  "sqlite3_test_co
a7f0: 6e 74 72 6f 6c 5f 70 65 6e 64 69 6e 67 5f 62 79  ntrol_pending_by
a800: 74 65 20 24 3a 3a 73 71 6c 69 74 65 5f 70 65 6e  te $::sqlite_pen
a810: 64 69 6e 67 5f 62 79 74 65 22 0a 0a 20 20 23 20  ding_byte"..  # 
a820: 54 68 69 73 20 62 6c 6f 63 6b 20 73 65 74 73 20  This block sets 
a830: 74 68 65 20 63 61 63 68 65 20 73 69 7a 65 20 6f  the cache size o
a840: 66 20 74 68 65 20 6d 61 69 6e 20 64 61 74 61 62  f the main datab
a850: 61 73 65 20 74 6f 20 31 30 0a 20 20 23 20 70 61  ase to 10.  # pa
a860: 67 65 73 2e 20 54 68 69 73 20 69 73 20 64 6f 6e  ges. This is don
a870: 65 20 69 6e 20 63 61 73 65 20 74 68 65 20 62 75  e in case the bu
a880: 69 6c 64 20 69 73 20 63 6f 6e 66 69 67 75 72 65  ild is configure
a890: 64 20 74 6f 20 6f 6d 69 74 0a 20 20 23 20 22 50  d to omit.  # "P
a8a0: 52 41 47 4d 41 20 63 61 63 68 65 5f 73 69 7a 65  RAGMA cache_size
a8b0: 22 2e 0a 20 20 69 66 20 7b 24 6f 70 65 6e 64 62  "..  if {$opendb
a8c0: 21 3d 22 22 7d 20 7b 0a 20 20 20 20 70 75 74 73  !=""} {.    puts
a8d0: 20 24 66 20 24 6f 70 65 6e 64 62 20 0a 20 20 20   $f $opendb .   
a8e0: 20 70 75 74 73 20 24 66 20 7b 64 62 20 65 76 61   puts $f {db eva
a8f0: 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  l {SELECT * FROM
a900: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 3b 7d   sqlite_master;}
a910: 7d 0a 20 20 20 20 70 75 74 73 20 24 66 20 7b 73  }.    puts $f {s
a920: 65 74 20 62 74 20 5b 62 74 72 65 65 5f 66 72 6f  et bt [btree_fro
a930: 6d 5f 64 62 20 64 62 5d 7d 0a 20 20 20 20 70 75  m_db db]}.    pu
a940: 74 73 20 24 66 20 7b 62 74 72 65 65 5f 73 65 74  ts $f {btree_set
a950: 5f 63 61 63 68 65 5f 73 69 7a 65 20 24 62 74 20  _cache_size $bt 
a960: 31 30 7d 0a 20 20 7d 0a 0a 20 20 69 66 20 7b 24  10}.  }..  if {$
a970: 70 72 6e 67 73 65 65 64 7d 20 7b 0a 20 20 20 20  prngseed} {.    
a980: 73 65 74 20 73 65 65 64 20 5b 65 78 70 72 20 7b  set seed [expr {
a990: 24 70 72 6e 67 73 65 65 64 25 31 30 30 30 37 2b  $prngseed%10007+
a9a0: 31 7d 5d 0a 20 20 20 20 23 20 70 75 74 73 20 73  1}].    # puts s
a9b0: 65 65 64 3d 24 73 65 65 64 0a 20 20 20 20 70 75  eed=$seed.    pu
a9c0: 74 73 20 24 66 20 22 64 62 20 65 76 61 6c 20 7b  ts $f "db eval {
a9d0: 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f  SELECT randomblo
a9e0: 62 28 24 73 65 65 64 29 7d 22 0a 20 20 7d 0a 0a  b($seed)}".  }..
a9f0: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65    if {[string le
aa00: 6e 67 74 68 20 24 74 63 6c 62 6f 64 79 5d 3e 30  ngth $tclbody]>0
aa10: 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 24 66 20  } {.    puts $f 
aa20: 24 74 63 6c 62 6f 64 79 0a 20 20 7d 0a 20 20 69  $tclbody.  }.  i
aa30: 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74  f {[string lengt
aa40: 68 20 24 73 71 6c 5d 3e 30 7d 20 7b 0a 20 20 20  h $sql]>0} {.   
aa50: 20 70 75 74 73 20 24 66 20 22 64 62 20 65 76 61   puts $f "db eva
aa60: 6c 20 7b 22 0a 20 20 20 20 70 75 74 73 20 24 66  l {".    puts $f
aa70: 20 20 20 22 24 73 71 6c 22 0a 20 20 20 20 70 75     "$sql".    pu
aa80: 74 73 20 24 66 20 22 7d 22 0a 20 20 7d 0a 20 20  ts $f "}".  }.  
aa90: 63 6c 6f 73 65 20 24 66 0a 20 20 73 65 74 20 72  close $f.  set r
aaa0: 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 65 78   [catch {.    ex
aab0: 65 63 20 5b 69 6e 66 6f 20 6e 61 6d 65 6f 66 65  ec [info nameofe
aac0: 78 65 63 5d 20 63 72 61 73 68 2e 74 63 6c 20 3e  xec] crash.tcl >
aad0: 40 73 74 64 6f 75 74 0a 20 20 7d 20 6d 73 67 5d  @stdout.  } msg]
aae0: 0a 0a 20 20 23 20 57 69 6e 64 6f 77 73 2f 41 63  ..  # Windows/Ac
aaf0: 74 69 76 65 53 74 61 74 65 20 54 43 4c 20 72 65  tiveState TCL re
ab00: 74 75 72 6e 73 20 61 20 73 6c 69 67 68 74 6c 79  turns a slightly
ab10: 20 64 69 66 66 65 72 65 6e 74 0a 20 20 23 20 65   different.  # e
ab20: 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 20 20 57  rror message.  W
ab30: 65 20 6d 61 70 20 74 68 61 74 20 74 6f 20 74 68  e map that to th
ab40: 65 20 65 78 70 65 63 74 65 64 20 6d 65 73 73 61  e expected messa
ab50: 67 65 0a 20 20 23 20 73 6f 20 74 68 61 74 20 77  ge.  # so that w
ab60: 65 20 64 6f 6e 27 74 20 68 61 76 65 20 74 6f 20  e don't have to 
ab70: 63 68 61 6e 67 65 20 61 6c 6c 20 6f 66 20 74 68  change all of th
ab80: 65 20 74 65 73 74 0a 20 20 23 20 63 61 73 65 73  e test.  # cases
ab90: 2e 0a 20 20 69 66 20 7b 24 3a 3a 74 63 6c 5f 70  ..  if {$::tcl_p
aba0: 6c 61 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d  latform(platform
abb0: 29 3d 3d 22 77 69 6e 64 6f 77 73 22 7d 20 7b 0a  )=="windows"} {.
abc0: 20 20 20 20 69 66 20 7b 24 6d 73 67 3d 3d 22 63      if {$msg=="c
abd0: 68 69 6c 64 20 6b 69 6c 6c 65 64 3a 20 75 6e 6b  hild killed: unk
abe0: 6e 6f 77 6e 20 73 69 67 6e 61 6c 22 7d 20 7b 0a  nown signal"} {.
abf0: 20 20 20 20 20 20 73 65 74 20 6d 73 67 20 22 63        set msg "c
ac00: 68 69 6c 64 20 70 72 6f 63 65 73 73 20 65 78 69  hild process exi
ac10: 74 65 64 20 61 62 6e 6f 72 6d 61 6c 6c 79 22 0a  ted abnormally".
ac20: 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 6c 61 70      }.  }..  lap
ac30: 70 65 6e 64 20 72 20 24 6d 73 67 0a 7d 0a 0a 70  pend r $msg.}..p
ac40: 72 6f 63 20 72 75 6e 5f 69 6f 65 72 72 5f 70 72  roc run_ioerr_pr
ac50: 65 70 20 7b 7d 20 7b 0a 20 20 73 65 74 20 3a 3a  ep {} {.  set ::
ac60: 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f  sqlite_io_error_
ac70: 70 65 6e 64 69 6e 67 20 30 0a 20 20 63 61 74 63  pending 0.  catc
ac80: 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 20 20 63  h {db close}.  c
ac90: 61 74 63 68 20 7b 64 62 32 20 63 6c 6f 73 65 7d  atch {db2 close}
aca0: 0a 20 20 63 61 74 63 68 20 7b 66 6f 72 63 65 64  .  catch {forced
acb0: 65 6c 65 74 65 20 74 65 73 74 2e 64 62 7d 0a 20  elete test.db}. 
acc0: 20 63 61 74 63 68 20 7b 66 6f 72 63 65 64 65 6c   catch {forcedel
acd0: 65 74 65 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72  ete test.db-jour
ace0: 6e 61 6c 7d 0a 20 20 63 61 74 63 68 20 7b 66 6f  nal}.  catch {fo
acf0: 72 63 65 64 65 6c 65 74 65 20 74 65 73 74 32 2e  rcedelete test2.
ad00: 64 62 7d 0a 20 20 63 61 74 63 68 20 7b 66 6f 72  db}.  catch {for
ad10: 63 65 64 65 6c 65 74 65 20 74 65 73 74 32 2e 64  cedelete test2.d
ad20: 62 2d 6a 6f 75 72 6e 61 6c 7d 0a 20 20 73 65 74  b-journal}.  set
ad30: 20 3a 3a 44 42 20 5b 73 71 6c 69 74 65 33 20 64   ::DB [sqlite3 d
ad40: 62 20 74 65 73 74 2e 64 62 3b 20 73 71 6c 69 74  b test.db; sqlit
ad50: 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f  e3_connection_po
ad60: 69 6e 74 65 72 20 64 62 5d 0a 20 20 73 71 6c 69  inter db].  sqli
ad70: 74 65 33 5f 65 78 74 65 6e 64 65 64 5f 72 65 73  te3_extended_res
ad80: 75 6c 74 5f 63 6f 64 65 73 20 24 3a 3a 44 42 20  ult_codes $::DB 
ad90: 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 65 72  $::ioerropts(-er
ada0: 63 29 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65  c).  if {[info e
adb0: 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74  xists ::ioerropt
adc0: 73 28 2d 74 63 6c 70 72 65 70 29 5d 7d 20 7b 0a  s(-tclprep)]} {.
add0: 20 20 20 20 65 76 61 6c 20 24 3a 3a 69 6f 65 72      eval $::ioer
ade0: 72 6f 70 74 73 28 2d 74 63 6c 70 72 65 70 29 0a  ropts(-tclprep).
adf0: 20 20 7d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20    }.  if {[info 
ae00: 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70  exists ::ioerrop
ae10: 74 73 28 2d 73 71 6c 70 72 65 70 29 5d 7d 20 7b  ts(-sqlprep)]} {
ae20: 0a 20 20 20 20 65 78 65 63 73 71 6c 20 24 3a 3a  .    execsql $::
ae30: 69 6f 65 72 72 6f 70 74 73 28 2d 73 71 6c 70 72  ioerropts(-sqlpr
ae40: 65 70 29 0a 20 20 7d 0a 20 20 65 78 70 72 20 30  ep).  }.  expr 0
ae50: 0a 7d 0a 0a 23 20 55 73 61 67 65 3a 20 64 6f 5f  .}..# Usage: do_
ae60: 69 6f 65 72 72 5f 74 65 73 74 20 3c 74 65 73 74  ioerr_test <test
ae70: 20 6e 75 6d 62 65 72 3e 20 3c 6f 70 74 69 6f 6e   number> <option
ae80: 73 2e 2e 2e 3e 0a 23 0a 23 20 54 68 69 73 20 70  s...>.#.# This p
ae90: 72 6f 63 20 69 73 20 75 73 65 64 20 74 6f 20 69  roc is used to i
aea0: 6d 70 6c 65 6d 65 6e 74 20 74 65 73 74 20 63 61  mplement test ca
aeb0: 73 65 73 20 74 68 61 74 20 63 68 65 63 6b 20 74  ses that check t
aec0: 68 61 74 20 49 4f 20 65 72 72 6f 72 73 0a 23 20  hat IO errors.# 
aed0: 61 72 65 20 63 6f 72 72 65 63 74 6c 79 20 68 61  are correctly ha
aee0: 6e 64 6c 65 64 2e 20 54 68 65 20 66 69 72 73 74  ndled. The first
aef0: 20 61 72 67 75 6d 65 6e 74 2c 20 3c 74 65 73 74   argument, <test
af00: 20 6e 75 6d 62 65 72 3e 2c 20 69 73 20 61 6e 20   number>, is an 
af10: 69 6e 74 65 67 65 72 0a 23 20 75 73 65 64 20 74  integer.# used t
af20: 6f 20 6e 61 6d 65 20 74 68 65 20 74 65 73 74 73  o name the tests
af30: 20 65 78 65 63 75 74 65 64 20 62 79 20 74 68 69   executed by thi
af40: 73 20 70 72 6f 63 2e 20 4f 70 74 69 6f 6e 73 20  s proc. Options 
af50: 61 72 65 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a  are as follows:.
af60: 23 0a 23 20 20 20 20 20 2d 74 63 6c 70 72 65 70  #.#     -tclprep
af70: 20 20 20 20 20 20 20 20 20 20 54 43 4c 20 73 63            TCL sc
af80: 72 69 70 74 20 74 6f 20 72 75 6e 20 74 6f 20 70  ript to run to p
af90: 72 65 70 61 72 65 20 74 65 73 74 2e 0a 23 20 20  repare test..#  
afa0: 20 20 20 2d 73 71 6c 70 72 65 70 20 20 20 20 20     -sqlprep     
afb0: 20 20 20 20 20 53 51 4c 20 73 63 72 69 70 74 20       SQL script 
afc0: 74 6f 20 72 75 6e 20 74 6f 20 70 72 65 70 61 72  to run to prepar
afd0: 65 20 74 65 73 74 2e 0a 23 20 20 20 20 20 2d 74  e test..#     -t
afe0: 63 6c 62 6f 64 79 20 20 20 20 20 20 20 20 20 20  clbody          
aff0: 54 43 4c 20 73 63 72 69 70 74 20 74 6f 20 72 75  TCL script to ru
b000: 6e 20 77 69 74 68 20 49 4f 20 65 72 72 6f 72 20  n with IO error 
b010: 73 69 6d 75 6c 61 74 69 6f 6e 2e 0a 23 20 20 20  simulation..#   
b020: 20 20 2d 73 71 6c 62 6f 64 79 20 20 20 20 20 20    -sqlbody      
b030: 20 20 20 20 54 43 4c 20 73 63 72 69 70 74 20 74      TCL script t
b040: 6f 20 72 75 6e 20 77 69 74 68 20 49 4f 20 65 72  o run with IO er
b050: 72 6f 72 20 73 69 6d 75 6c 61 74 69 6f 6e 2e 0a  ror simulation..
b060: 23 20 20 20 20 20 2d 65 78 63 6c 75 64 65 20 20  #     -exclude  
b070: 20 20 20 20 20 20 20 20 4c 69 73 74 20 6f 66 20          List of 
b080: 27 4e 27 20 76 61 6c 75 65 73 20 6e 6f 74 20 74  'N' values not t
b090: 6f 20 74 65 73 74 2e 0a 23 20 20 20 20 20 2d 65  o test..#     -e
b0a0: 72 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20  rc              
b0b0: 55 73 65 20 65 78 74 65 6e 64 65 64 20 72 65 73  Use extended res
b0c0: 75 6c 74 20 63 6f 64 65 73 0a 23 20 20 20 20 20  ult codes.#     
b0d0: 2d 70 65 72 73 69 73 74 20 20 20 20 20 20 20 20  -persist        
b0e0: 20 20 4d 61 6b 65 20 73 69 6d 75 6c 61 74 65 64    Make simulated
b0f0: 20 49 2f 4f 20 65 72 72 6f 72 73 20 70 65 72 73   I/O errors pers
b100: 69 73 74 65 6e 74 0a 23 20 20 20 20 20 2d 73 74  istent.#     -st
b110: 61 72 74 20 20 20 20 20 20 20 20 20 20 20 20 56  art            V
b120: 61 6c 75 65 20 6f 66 20 27 4e 27 20 74 6f 20 62  alue of 'N' to b
b130: 65 67 69 6e 20 77 69 74 68 20 28 64 65 66 61 75  egin with (defau
b140: 6c 74 20 31 29 0a 23 0a 23 20 20 20 20 20 2d 63  lt 1).#.#     -c
b150: 6b 73 75 6d 20 20 20 20 20 20 20 20 20 20 20 20  ksum            
b160: 42 6f 6f 6c 65 61 6e 2e 20 49 66 20 74 72 75 65  Boolean. If true
b170: 2c 20 74 65 73 74 20 74 68 61 74 20 74 68 65 20  , test that the 
b180: 64 61 74 61 62 61 73 65 20 64 6f 65 73 0a 23 20  database does.# 
b190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
b1a0: 20 20 20 20 20 20 6e 6f 74 20 63 68 61 6e 67 65        not change
b1b0: 20 64 75 72 69 6e 67 20 74 68 65 20 65 78 65 63   during the exec
b1c0: 75 74 69 6f 6e 20 6f 66 20 74 68 65 20 74 65 73  ution of the tes
b1d0: 74 20 63 61 73 65 2e 0a 23 0a 70 72 6f 63 20 64  t case..#.proc d
b1e0: 6f 5f 69 6f 65 72 72 5f 74 65 73 74 20 7b 74 65  o_ioerr_test {te
b1f0: 73 74 6e 61 6d 65 20 61 72 67 73 7d 20 7b 0a 0a  stname args} {..
b200: 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74    set ::ioerropt
b210: 73 28 2d 73 74 61 72 74 29 20 31 0a 20 20 73 65  s(-start) 1.  se
b220: 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63  t ::ioerropts(-c
b230: 6b 73 75 6d 29 20 30 0a 20 20 73 65 74 20 3a 3a  ksum) 0.  set ::
b240: 69 6f 65 72 72 6f 70 74 73 28 2d 65 72 63 29 20  ioerropts(-erc) 
b250: 30 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f  0.  set ::ioerro
b260: 70 74 73 28 2d 63 6f 75 6e 74 29 20 31 30 30 30  pts(-count) 1000
b270: 30 30 30 30 30 0a 20 20 73 65 74 20 3a 3a 69 6f  00000.  set ::io
b280: 65 72 72 6f 70 74 73 28 2d 70 65 72 73 69 73 74  erropts(-persist
b290: 29 20 31 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72  ) 1.  set ::ioer
b2a0: 72 6f 70 74 73 28 2d 63 6b 72 65 66 63 6f 75 6e  ropts(-ckrefcoun
b2b0: 74 29 20 30 0a 20 20 73 65 74 20 3a 3a 69 6f 65  t) 0.  set ::ioe
b2c0: 72 72 6f 70 74 73 28 2d 72 65 73 74 6f 72 65 70  rropts(-restorep
b2d0: 72 6e 67 29 20 31 0a 20 20 61 72 72 61 79 20 73  rng) 1.  array s
b2e0: 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 20 24  et ::ioerropts $
b2f0: 61 72 67 73 0a 0a 20 20 23 20 54 45 4d 50 4f 52  args..  # TEMPOR
b300: 41 52 59 3a 20 46 6f 72 20 33 2e 35 2e 39 2c 20  ARY: For 3.5.9, 
b310: 64 69 73 61 62 6c 65 20 74 65 73 74 69 6e 67 20  disable testing 
b320: 6f 66 20 65 78 74 65 6e 64 65 64 20 72 65 73 75  of extended resu
b330: 6c 74 20 63 6f 64 65 73 2e 20 54 68 65 72 65 20  lt codes. There 
b340: 61 72 65 0a 20 20 23 20 61 20 63 6f 75 70 6c 65  are.  # a couple
b350: 20 6f 66 20 6f 62 73 63 75 72 65 20 49 4f 20 65   of obscure IO e
b360: 72 72 6f 72 73 20 74 68 61 74 20 64 6f 20 6e 6f  rrors that do no
b370: 74 20 72 65 74 75 72 6e 20 74 68 65 6d 2e 0a 20  t return them.. 
b380: 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73   set ::ioerropts
b390: 28 2d 65 72 63 29 20 30 0a 0a 20 20 23 20 43 72  (-erc) 0..  # Cr
b3a0: 65 61 74 65 20 61 20 73 69 6e 67 6c 65 20 54 43  eate a single TC
b3b0: 4c 20 73 63 72 69 70 74 20 66 72 6f 6d 20 74 68  L script from th
b3c0: 65 20 54 43 4c 20 61 6e 64 20 53 51 4c 20 73 70  e TCL and SQL sp
b3d0: 65 63 69 66 69 65 64 0a 20 20 23 20 61 73 20 74  ecified.  # as t
b3e0: 68 65 20 62 6f 64 79 20 6f 66 20 74 68 65 20 74  he body of the t
b3f0: 65 73 74 2e 0a 20 20 73 65 74 20 3a 3a 69 6f 65  est..  set ::ioe
b400: 72 72 6f 72 62 6f 64 79 20 7b 7d 0a 20 20 69 66  rrorbody {}.  if
b410: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
b420: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 74 63 6c 62  :ioerropts(-tclb
b430: 6f 64 79 29 5d 7d 20 7b 0a 20 20 20 20 61 70 70  ody)]} {.    app
b440: 65 6e 64 20 3a 3a 69 6f 65 72 72 6f 72 62 6f 64  end ::ioerrorbod
b450: 79 20 22 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28  y "$::ioerropts(
b460: 2d 74 63 6c 62 6f 64 79 29 5c 6e 22 0a 20 20 7d  -tclbody)\n".  }
b470: 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  .  if {[info exi
b480: 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28  sts ::ioerropts(
b490: 2d 73 71 6c 62 6f 64 79 29 5d 7d 20 7b 0a 20 20  -sqlbody)]} {.  
b4a0: 20 20 61 70 70 65 6e 64 20 3a 3a 69 6f 65 72 72    append ::ioerr
b4b0: 6f 72 62 6f 64 79 20 22 64 62 20 65 76 61 6c 20  orbody "db eval 
b4c0: 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73  {$::ioerropts(-s
b4d0: 71 6c 62 6f 64 79 29 7d 22 0a 20 20 7d 0a 0a 20  qlbody)}".  }.. 
b4e0: 20 73 61 76 65 5f 70 72 6e 67 5f 73 74 61 74 65   save_prng_state
b4f0: 0a 20 20 69 66 20 7b 24 3a 3a 69 6f 65 72 72 6f  .  if {$::ioerro
b500: 70 74 73 28 2d 63 6b 73 75 6d 29 7d 20 7b 0a 20  pts(-cksum)} {. 
b510: 20 20 20 72 75 6e 5f 69 6f 65 72 72 5f 70 72 65     run_ioerr_pre
b520: 70 0a 20 20 20 20 65 76 61 6c 20 24 3a 3a 69 6f  p.    eval $::io
b530: 65 72 72 6f 72 62 6f 64 79 0a 20 20 20 20 73 65  errorbody.    se
b540: 74 20 3a 3a 67 6f 6f 64 63 6b 73 75 6d 20 5b 63  t ::goodcksum [c
b550: 6b 73 75 6d 5d 0a 20 20 7d 0a 0a 20 20 73 65 74  ksum].  }..  set
b560: 20 3a 3a 67 6f 20 31 0a 20 20 23 72 65 73 65 74   ::go 1.  #reset
b570: 5f 70 72 6e 67 5f 73 74 61 74 65 0a 20 20 66 6f  _prng_state.  fo
b580: 72 20 7b 73 65 74 20 6e 20 24 3a 3a 69 6f 65 72  r {set n $::ioer
b590: 72 6f 70 74 73 28 2d 73 74 61 72 74 29 7d 20 7b  ropts(-start)} {
b5a0: 24 3a 3a 67 6f 7d 20 7b 69 6e 63 72 20 6e 7d 20  $::go} {incr n} 
b5b0: 7b 0a 20 20 20 20 73 65 74 20 3a 3a 54 4e 20 24  {.    set ::TN $
b5c0: 6e 0a 20 20 20 20 69 6e 63 72 20 3a 3a 69 6f 65  n.    incr ::ioe
b5d0: 72 72 6f 70 74 73 28 2d 63 6f 75 6e 74 29 20 2d  rropts(-count) -
b5e0: 31 0a 20 20 20 20 69 66 20 7b 24 3a 3a 69 6f 65  1.    if {$::ioe
b5f0: 72 72 6f 70 74 73 28 2d 63 6f 75 6e 74 29 3c 30  rropts(-count)<0
b600: 7d 20 62 72 65 61 6b 0a 0a 20 20 20 20 23 20 53  } break..    # S
b610: 6b 69 70 20 74 68 69 73 20 49 4f 20 65 72 72 6f  kip this IO erro
b620: 72 20 69 66 20 69 74 20 77 61 73 20 73 70 65 63  r if it was spec
b630: 69 66 69 65 64 20 77 69 74 68 20 74 68 65 20 22  ified with the "
b640: 2d 65 78 63 6c 75 64 65 22 20 6f 70 74 69 6f 6e  -exclude" option
b650: 2e 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20  ..    if {[info 
b660: 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70  exists ::ioerrop
b670: 74 73 28 2d 65 78 63 6c 75 64 65 29 5d 7d 20 7b  ts(-exclude)]} {
b680: 0a 20 20 20 20 20 20 69 66 20 7b 5b 6c 73 65 61  .      if {[lsea
b690: 72 63 68 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73  rch $::ioerropts
b6a0: 28 2d 65 78 63 6c 75 64 65 29 20 24 6e 5d 21 3d  (-exclude) $n]!=
b6b0: 2d 31 7d 20 63 6f 6e 74 69 6e 75 65 0a 20 20 20  -1} continue.   
b6c0: 20 7d 0a 20 20 20 20 69 66 20 7b 24 3a 3a 69 6f   }.    if {$::io
b6d0: 65 72 72 6f 70 74 73 28 2d 72 65 73 74 6f 72 65  erropts(-restore
b6e0: 70 72 6e 67 29 7d 20 7b 0a 20 20 20 20 20 20 72  prng)} {.      r
b6f0: 65 73 74 6f 72 65 5f 70 72 6e 67 5f 73 74 61 74  estore_prng_stat
b700: 65 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 44  e.    }..    # D
b710: 65 6c 65 74 65 20 74 68 65 20 66 69 6c 65 73 20  elete the files 
b720: 74 65 73 74 2e 64 62 20 61 6e 64 20 74 65 73 74  test.db and test
b730: 32 2e 64 62 2c 20 74 68 65 6e 20 65 78 65 63 75  2.db, then execu
b740: 74 65 20 74 68 65 20 54 43 4c 20 61 6e 64 0a 20  te the TCL and. 
b750: 20 20 20 23 20 53 51 4c 20 28 69 6e 20 74 68 61     # SQL (in tha
b760: 74 20 6f 72 64 65 72 29 20 74 6f 20 70 72 65 70  t order) to prep
b770: 61 72 65 20 66 6f 72 20 74 68 65 20 74 65 73 74  are for the test
b780: 20 63 61 73 65 2e 0a 20 20 20 20 64 6f 5f 74 65   case..    do_te
b790: 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e 2e  st $testname.$n.
b7a0: 31 20 7b 0a 20 20 20 20 20 20 72 75 6e 5f 69 6f  1 {.      run_io
b7b0: 65 72 72 5f 70 72 65 70 0a 20 20 20 20 7d 20 7b  err_prep.    } {
b7c0: 30 7d 0a 0a 20 20 20 20 23 20 52 65 61 64 20 74  0}..    # Read t
b7d0: 68 65 20 27 63 68 65 63 6b 73 75 6d 27 20 6f 66  he 'checksum' of
b7e0: 20 74 68 65 20 64 61 74 61 62 61 73 65 2e 0a 20   the database.. 
b7f0: 20 20 20 69 66 20 7b 24 3a 3a 69 6f 65 72 72 6f     if {$::ioerro
b800: 70 74 73 28 2d 63 6b 73 75 6d 29 7d 20 7b 0a 20  pts(-cksum)} {. 
b810: 20 20 20 20 20 73 65 74 20 3a 3a 63 68 65 63 6b       set ::check
b820: 73 75 6d 20 5b 63 6b 73 75 6d 5d 0a 20 20 20 20  sum [cksum].    
b830: 7d 0a 0a 20 20 20 20 23 20 53 65 74 20 74 68 65  }..    # Set the
b840: 20 4e 74 68 20 49 4f 20 65 72 72 6f 72 20 74 6f   Nth IO error to
b850: 20 66 61 69 6c 2e 0a 20 20 20 20 64 6f 5f 74 65   fail..    do_te
b860: 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e 2e  st $testname.$n.
b870: 32 20 5b 73 75 62 73 74 20 7b 0a 20 20 20 20 20  2 [subst {.     
b880: 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f   set ::sqlite_io
b890: 5f 65 72 72 6f 72 5f 70 65 72 73 69 73 74 20 24  _error_persist $
b8a0: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 70 65 72  ::ioerropts(-per
b8b0: 73 69 73 74 29 0a 20 20 20 20 20 20 73 65 74 20  sist).      set 
b8c0: 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f  ::sqlite_io_erro
b8d0: 72 5f 70 65 6e 64 69 6e 67 20 24 6e 0a 20 20 20  r_pending $n.   
b8e0: 20 7d 5d 20 24 6e 0a 0a 20 20 20 20 23 20 45 78   }] $n..    # Ex
b8f0: 65 63 75 74 65 20 74 68 65 20 54 43 4c 20 73 63  ecute the TCL sc
b900: 72 69 70 74 20 63 72 65 61 74 65 64 20 66 6f 72  ript created for
b910: 20 74 68 65 20 62 6f 64 79 20 6f 66 20 74 68 69   the body of thi
b920: 73 20 74 65 73 74 2e 20 49 66 0a 20 20 20 20 23  s test. If.    #
b930: 20 61 74 20 6c 65 61 73 74 20 4e 20 49 4f 20 6f   at least N IO o
b940: 70 65 72 61 74 69 6f 6e 73 20 70 65 72 66 6f 72  perations perfor
b950: 6d 65 64 20 62 79 20 53 51 4c 69 74 65 20 61 73  med by SQLite as
b960: 20 61 20 72 65 73 75 6c 74 20 6f 66 0a 20 20 20   a result of.   
b970: 20 23 20 74 68 65 20 73 63 72 69 70 74 2c 20 74   # the script, t
b980: 68 65 20 4e 74 68 20 77 69 6c 6c 20 66 61 69 6c  he Nth will fail
b990: 2e 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 24 74  ..    do_test $t
b9a0: 65 73 74 6e 61 6d 65 2e 24 6e 2e 33 20 7b 0a 20  estname.$n.3 {. 
b9b0: 20 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74       set ::sqlit
b9c0: 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 69 74 20 30  e_io_error_hit 0
b9d0: 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 73 71 6c  .      set ::sql
b9e0: 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72  ite_io_error_har
b9f0: 64 68 69 74 20 30 0a 20 20 20 20 20 20 73 65 74  dhit 0.      set
ba00: 20 72 20 5b 63 61 74 63 68 20 24 3a 3a 69 6f 65   r [catch $::ioe
ba10: 72 72 6f 72 62 6f 64 79 20 6d 73 67 5d 0a 20 20  rrorbody msg].  
ba20: 20 20 20 20 73 65 74 20 3a 3a 65 72 72 73 65 65      set ::errsee
ba30: 6e 20 24 72 0a 20 20 20 20 20 20 73 65 74 20 72  n $r.      set r
ba40: 63 20 5b 73 71 6c 69 74 65 33 5f 65 72 72 63 6f  c [sqlite3_errco
ba50: 64 65 20 24 3a 3a 44 42 5d 0a 20 20 20 20 20 20  de $::DB].      
ba60: 69 66 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73  if {$::ioerropts
ba70: 28 2d 65 72 63 29 7d 20 7b 0a 20 20 20 20 20 20  (-erc)} {.      
ba80: 20 20 23 20 49 66 20 77 65 20 61 72 65 20 69 6e    # If we are in
ba90: 20 65 78 74 65 6e 64 65 64 20 72 65 73 75 6c 74   extended result
baa0: 20 63 6f 64 65 20 6d 6f 64 65 2c 20 6d 61 6b 65   code mode, make
bab0: 20 73 75 72 65 20 61 6c 6c 20 6f 66 20 74 68 65   sure all of the
bac0: 0a 20 20 20 20 20 20 20 20 23 20 49 4f 45 52 52  .        # IOERR
bad0: 73 20 77 65 20 67 65 74 20 62 61 63 6b 20 72 65  s we get back re
bae0: 61 6c 6c 79 20 64 6f 20 68 61 76 65 20 74 68 65  ally do have the
baf0: 69 72 20 65 78 74 65 6e 64 65 64 20 63 6f 64 65  ir extended code
bb00: 20 76 61 6c 75 65 73 2e 0a 20 20 20 20 20 20 20   values..       
bb10: 20 23 20 49 66 20 61 6e 20 65 78 74 65 6e 64 65   # If an extende
bb20: 64 20 72 65 73 75 6c 74 20 63 6f 64 65 20 69 73  d result code is
bb30: 20 72 65 74 75 72 6e 65 64 2c 20 74 68 65 20 73   returned, the s
bb40: 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 65 0a 20  qlite3_errcode. 
bb50: 20 20 20 20 20 20 20 23 20 54 43 4c 63 6f 6d 6d         # TCLcomm
bb60: 61 6e 64 20 77 69 6c 6c 20 72 65 74 75 72 6e 20  and will return 
bb70: 61 20 73 74 72 69 6e 67 20 6f 66 20 74 68 65 20  a string of the 
bb80: 66 6f 72 6d 3a 20 20 53 51 4c 49 54 45 5f 49 4f  form:  SQLITE_IO
bb90: 45 52 52 2b 6e 6e 6e 6e 0a 20 20 20 20 20 20 20  ERR+nnnn.       
bba0: 20 23 20 77 68 65 72 65 20 6e 6e 6e 6e 20 69 73   # where nnnn is
bbb0: 20 61 20 6e 75 6d 62 65 72 0a 20 20 20 20 20 20   a number.      
bbc0: 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 5e    if {[regexp {^
bbd0: 53 51 4c 49 54 45 5f 49 4f 45 52 52 7d 20 24 72  SQLITE_IOERR} $r
bbe0: 63 5d 20 26 26 20 21 5b 72 65 67 65 78 70 20 7b  c] && ![regexp {
bbf0: 49 4f 45 52 52 5c 2b 5c 64 7d 20 24 72 63 5d 7d  IOERR\+\d} $rc]}
bc00: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74   {.          ret
bc10: 75 72 6e 20 24 72 63 0a 20 20 20 20 20 20 20 20  urn $rc.        
bc20: 7d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b  }.      } else {
bc30: 0a 20 20 20 20 20 20 20 20 23 20 49 66 20 77 65  .        # If we
bc40: 20 61 72 65 20 6e 6f 74 20 69 6e 20 65 78 74 65   are not in exte
bc50: 6e 64 65 64 20 72 65 73 75 6c 74 20 63 6f 64 65  nded result code
bc60: 20 6d 6f 64 65 2c 20 6d 61 6b 65 20 73 75 72 65   mode, make sure
bc70: 20 6e 6f 0a 20 20 20 20 20 20 20 20 23 20 65 78   no.        # ex
bc80: 74 65 6e 64 65 64 20 65 72 72 6f 72 20 63 6f 64  tended error cod
bc90: 65 73 20 61 72 65 20 72 65 74 75 72 6e 65 64 2e  es are returned.
bca0: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 72 65  .        if {[re
bcb0: 67 65 78 70 20 7b 5c 2b 5c 64 7d 20 24 72 63 5d  gexp {\+\d} $rc]
bcc0: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65  } {.          re
bcd0: 74 75 72 6e 20 24 72 63 0a 20 20 20 20 20 20 20  turn $rc.       
bce0: 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20   }.      }.     
bcf0: 20 23 20 54 68 65 20 74 65 73 74 20 72 65 70 65   # The test repe
bd00: 61 74 73 20 61 73 20 6c 6f 6e 67 20 61 73 20 24  ats as long as $
bd10: 3a 3a 67 6f 20 69 73 20 6e 6f 6e 2d 7a 65 72 6f  ::go is non-zero
bd20: 2e 20 20 24 3a 3a 67 6f 20 73 74 61 72 74 73 20  .  $::go starts 
bd30: 6f 75 74 0a 20 20 20 20 20 20 23 20 61 73 20 31  out.      # as 1
bd40: 2e 20 20 57 68 65 6e 20 61 20 74 65 73 74 20 72  .  When a test r
bd50: 75 6e 73 20 74 6f 20 63 6f 6d 70 6c 65 74 69 6f  uns to completio
bd60: 6e 20 77 69 74 68 6f 75 74 20 68 69 74 74 69 6e  n without hittin
bd70: 67 20 61 6e 20 49 2f 4f 0a 20 20 20 20 20 20 23  g an I/O.      #
bd80: 20 65 72 72 6f 72 2c 20 74 68 61 74 20 6d 65 61   error, that mea
bd90: 6e 73 20 74 68 65 72 65 20 69 73 20 6e 6f 20 70  ns there is no p
bda0: 6f 69 6e 74 20 69 6e 20 63 6f 6e 74 69 6e 75 69  oint in continui
bdb0: 6e 67 20 77 69 74 68 20 74 68 69 73 20 74 65 73  ng with this tes
bdc0: 74 0a 20 20 20 20 20 20 23 20 63 61 73 65 20 73  t.      # case s
bdd0: 6f 20 73 65 74 20 24 3a 3a 67 6f 20 74 6f 20 7a  o set $::go to z
bde0: 65 72 6f 2e 0a 20 20 20 20 20 20 23 0a 20 20 20  ero..      #.   
bdf0: 20 20 20 69 66 20 7b 24 3a 3a 73 71 6c 69 74 65     if {$::sqlite
be00: 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e  _io_error_pendin
be10: 67 3e 30 7d 20 7b 0a 20 20 20 20 20 20 20 20 73  g>0} {.        s
be20: 65 74 20 3a 3a 67 6f 20 30 0a 20 20 20 20 20 20  et ::go 0.      
be30: 20 20 73 65 74 20 71 20 30 0a 20 20 20 20 20 20    set q 0.      
be40: 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69    set ::sqlite_i
be50: 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20  o_error_pending 
be60: 30 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b  0.      } else {
be70: 0a 20 20 20 20 20 20 20 20 73 65 74 20 71 20 31  .        set q 1
be80: 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20  .      }..      
be90: 73 65 74 20 73 20 5b 65 78 70 72 20 24 3a 3a 73  set s [expr $::s
bea0: 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68  qlite_io_error_h
beb0: 69 74 3d 3d 30 5d 0a 20 20 20 20 20 20 69 66 20  it==0].      if 
bec0: 7b 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72  {$::sqlite_io_er
bed0: 72 6f 72 5f 68 69 74 3e 24 3a 3a 73 71 6c 69 74  ror_hit>$::sqlit
bee0: 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72 64 68  e_io_error_hardh
bef0: 69 74 20 26 26 20 24 72 3d 3d 30 7d 20 7b 0a 20  it && $r==0} {. 
bf00: 20 20 20 20 20 20 20 73 65 74 20 72 20 31 0a 20         set r 1. 
bf10: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 73 65 74       }.      set
bf20: 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72   ::sqlite_io_err
bf30: 6f 72 5f 68 69 74 20 30 0a 0a 20 20 20 20 20 20  or_hit 0..      
bf40: 23 20 4f 6e 65 20 6f 66 20 74 77 6f 20 74 68 69  # One of two thi
bf50: 6e 67 73 20 6d 75 73 74 20 68 61 76 65 20 68 61  ngs must have ha
bf60: 70 70 65 6e 65 64 2e 20 65 69 74 68 65 72 0a 20  ppened. either. 
bf70: 20 20 20 20 20 23 20 20 20 31 2e 20 20 57 65 20       #   1.  We 
bf80: 6e 65 76 65 72 20 68 69 74 20 74 68 65 20 49 4f  never hit the IO
bf90: 20 65 72 72 6f 72 20 61 6e 64 20 74 68 65 20 53   error and the S
bfa0: 51 4c 20 72 65 74 75 72 6e 65 64 20 4f 4b 0a 20  QL returned OK. 
bfb0: 20 20 20 20 20 23 20 20 20 32 2e 20 20 41 6e 20       #   2.  An 
bfc0: 49 4f 20 65 72 72 6f 72 20 77 61 73 20 68 69 74  IO error was hit
bfd0: 20 61 6e 64 20 74 68 65 20 53 51 4c 20 66 61 69   and the SQL fai
bfe0: 6c 65 64 0a 20 20 20 20 20 20 23 0a 20 20 20 20  led.      #.    
bff0: 20 20 23 70 75 74 73 20 22 73 3d 24 73 20 72 3d    #puts "s=$s r=
c000: 24 72 20 71 3d 24 71 22 0a 20 20 20 20 20 20 65  $r q=$q".      e
c010: 78 70 72 20 7b 20 28 24 73 20 26 26 20 21 24 72  xpr { ($s && !$r
c020: 20 26 26 20 21 24 71 29 20 7c 7c 20 28 21 24 73   && !$q) || (!$s
c030: 20 26 26 20 24 72 20 26 26 20 24 71 29 20 7d 0a   && $r && $q) }.
c040: 20 20 20 20 7d 20 7b 31 7d 0a 0a 20 20 20 20 73      } {1}..    s
c050: 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65  et ::sqlite_io_e
c060: 72 72 6f 72 5f 68 69 74 20 30 0a 20 20 20 20 73  rror_hit 0.    s
c070: 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65  et ::sqlite_io_e
c080: 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a 0a  rror_pending 0..
c090: 20 20 20 20 23 20 43 68 65 63 6b 20 74 68 61 74      # Check that
c0a0: 20 6e 6f 20 70 61 67 65 20 72 65 66 65 72 65 6e   no page referen
c0b0: 63 65 73 20 77 65 72 65 20 6c 65 61 6b 65 64 2e  ces were leaked.
c0c0: 20 54 68 65 72 65 20 73 68 6f 75 6c 64 20 62 65   There should be
c0d0: 0a 20 20 20 20 23 20 61 20 73 69 6e 67 6c 65 20  .    # a single 
c0e0: 72 65 66 65 72 65 6e 63 65 20 69 66 20 74 68 65  reference if the
c0f0: 72 65 20 69 73 20 73 74 69 6c 6c 20 61 6e 20 61  re is still an a
c100: 63 74 69 76 65 20 74 72 61 6e 73 61 63 74 69 6f  ctive transactio
c110: 6e 2c 0a 20 20 20 20 23 20 6f 72 20 7a 65 72 6f  n,.    # or zero
c120: 20 6f 74 68 65 72 77 69 73 65 2e 0a 20 20 20 20   otherwise..    
c130: 23 0a 20 20 20 20 23 20 55 50 44 41 54 45 3a 20  #.    # UPDATE: 
c140: 49 66 20 74 68 65 20 49 4f 20 65 72 72 6f 72 20  If the IO error 
c150: 6f 63 63 75 72 73 20 61 66 74 65 72 20 61 20 27  occurs after a '
c160: 42 45 47 49 4e 27 20 62 75 74 20 62 65 66 6f 72  BEGIN' but befor
c170: 65 20 61 6e 79 0a 20 20 20 20 23 20 6c 6f 63 6b  e any.    # lock
c180: 73 20 61 72 65 20 65 73 74 61 62 6c 69 73 68 65  s are establishe
c190: 64 20 6f 6e 20 64 61 74 61 62 61 73 65 20 66 69  d on database fi
c1a0: 6c 65 73 20 28 69 2e 65 2e 20 69 66 20 74 68 65  les (i.e. if the
c1b0: 20 65 72 72 6f 72 0a 20 20 20 20 23 20 6f 63 63   error.    # occ
c1c0: 75 72 73 20 77 68 69 6c 65 20 61 74 74 65 6d 70  urs while attemp
c1d0: 74 69 6e 67 20 74 6f 20 64 65 74 65 63 74 20 61  ting to detect a
c1e0: 20 68 6f 74 2d 6a 6f 75 72 6e 61 6c 20 66 69 6c   hot-journal fil
c1f0: 65 29 2c 20 74 68 65 6e 0a 20 20 20 20 23 20 74  e), then.    # t
c200: 68 65 72 65 20 6d 61 79 20 30 20 70 61 67 65 20  here may 0 page 
c210: 72 65 66 65 72 65 6e 63 65 73 20 61 6e 64 20 61  references and a
c220: 6e 20 61 63 74 69 76 65 20 74 72 61 6e 73 61 63  n active transac
c230: 74 69 6f 6e 20 61 63 63 6f 72 64 69 6e 67 0a 20  tion according. 
c240: 20 20 20 23 20 74 6f 20 5b 73 71 6c 69 74 65 33     # to [sqlite3
c250: 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 5d  _get_autocommit]
c260: 2e 0a 20 20 20 20 23 0a 20 20 20 20 69 66 20 7b  ..    #.    if {
c270: 24 3a 3a 67 6f 20 26 26 20 24 3a 3a 73 71 6c 69  $::go && $::sqli
c280: 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72 64  te_io_error_hard
c290: 68 69 74 20 26 26 20 24 3a 3a 69 6f 65 72 72 6f  hit && $::ioerro
c2a0: 70 74 73 28 2d 63 6b 72 65 66 63 6f 75 6e 74 29  pts(-ckrefcount)
c2b0: 7d 20 7b 0a 20 20 20 20 20 20 64 6f 5f 74 65 73  } {.      do_tes
c2c0: 74 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e 2e 34  t $testname.$n.4
c2d0: 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 62   {.        set b
c2e0: 74 20 5b 62 74 72 65 65 5f 66 72 6f 6d 5f 64 62  t [btree_from_db
c2f0: 20 64 62 5d 0a 20 20 20 20 20 20 20 20 64 62 5f   db].        db_
c300: 65 6e 74 65 72 20 64 62 0a 20 20 20 20 20 20 20  enter db.       
c310: 20 61 72 72 61 79 20 73 65 74 20 73 74 61 74 73   array set stats
c320: 20 5b 62 74 72 65 65 5f 70 61 67 65 72 5f 73 74   [btree_pager_st
c330: 61 74 73 20 24 62 74 5d 0a 20 20 20 20 20 20 20  ats $bt].       
c340: 20 64 62 5f 6c 65 61 76 65 20 64 62 0a 20 20 20   db_leave db.   
c350: 20 20 20 20 20 73 65 74 20 6e 52 65 66 20 24 73       set nRef $s
c360: 74 61 74 73 28 72 65 66 29 0a 20 20 20 20 20 20  tats(ref).      
c370: 20 20 65 78 70 72 20 7b 24 6e 52 65 66 20 3d 3d    expr {$nRef ==
c380: 20 30 20 7c 7c 20 28 5b 73 71 6c 69 74 65 33 5f   0 || ([sqlite3_
c390: 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 20 64  get_autocommit d
c3a0: 62 5d 3d 3d 30 20 26 26 20 24 6e 52 65 66 20 3d  b]==0 && $nRef =
c3b0: 3d 20 31 29 7d 0a 20 20 20 20 20 20 7d 20 7b 31  = 1)}.      } {1
c3c0: 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 49  }.    }..    # I
c3d0: 66 20 74 68 65 72 65 20 69 73 20 61 6e 20 6f 70  f there is an op
c3e0: 65 6e 20 64 61 74 61 62 61 73 65 20 68 61 6e 64  en database hand
c3f0: 6c 65 20 61 6e 64 20 6e 6f 20 6f 70 65 6e 20 74  le and no open t
c400: 72 61 6e 73 61 63 74 69 6f 6e 2c 0a 20 20 20 20  ransaction,.    
c410: 23 20 61 6e 64 20 74 68 65 20 70 61 67 65 72 20  # and the pager 
c420: 69 73 20 6e 6f 74 20 72 75 6e 6e 69 6e 67 20 69  is not running i
c430: 6e 20 65 78 63 6c 75 73 69 76 65 2d 6c 6f 63 6b  n exclusive-lock
c440: 69 6e 67 20 6d 6f 64 65 2c 0a 20 20 20 20 23 20  ing mode,.    # 
c450: 63 68 65 63 6b 20 74 68 61 74 20 74 68 65 20 70  check that the p
c460: 61 67 65 72 20 69 73 20 69 6e 20 22 75 6e 6c 6f  ager is in "unlo
c470: 63 6b 65 64 22 20 73 74 61 74 65 2e 20 54 68 65  cked" state. The
c480: 6f 72 65 74 69 63 61 6c 6c 79 2c 0a 20 20 20 20  oretically,.    
c490: 23 20 69 66 20 61 20 63 61 6c 6c 20 74 6f 20 78  # if a call to x
c4a0: 55 6e 6c 6f 63 6b 28 29 20 66 61 69 6c 65 64 20  Unlock() failed 
c4b0: 64 75 65 20 74 6f 20 61 6e 20 49 4f 20 65 72 72  due to an IO err
c4c0: 6f 72 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e  or the underlyin
c4d0: 67 0a 20 20 20 20 23 20 66 69 6c 65 20 6d 61 79  g.    # file may
c4e0: 20 73 74 69 6c 6c 20 62 65 20 6c 6f 63 6b 65 64   still be locked
c4f0: 2e 0a 20 20 20 20 23 0a 20 20 20 20 69 66 63 61  ..    #.    ifca
c500: 70 61 62 6c 65 20 70 72 61 67 6d 61 20 7b 0a 20  pable pragma {. 
c510: 20 20 20 20 20 69 66 20 7b 20 5b 69 6e 66 6f 20       if { [info 
c520: 63 6f 6d 6d 61 6e 64 73 20 64 62 5d 20 6e 65 20  commands db] ne 
c530: 22 22 0a 20 20 20 20 20 20 20 20 26 26 20 24 3a  "".        && $:
c540: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 72 65  :ioerropts(-ckre
c550: 66 63 6f 75 6e 74 29 0a 20 20 20 20 20 20 20 20  fcount).        
c560: 26 26 20 5b 64 62 20 6f 6e 65 20 7b 70 72 61 67  && [db one {prag
c570: 6d 61 20 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 7d  ma locking_mode}
c580: 5d 20 65 71 20 22 6e 6f 72 6d 61 6c 22 0a 20 20  ] eq "normal".  
c590: 20 20 20 20 20 20 26 26 20 5b 73 71 6c 69 74 65        && [sqlite
c5a0: 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74  3_get_autocommit
c5b0: 20 64 62 5d 0a 20 20 20 20 20 20 7d 20 7b 0a 20   db].      } {. 
c5c0: 20 20 20 20 20 20 20 64 6f 5f 74 65 73 74 20 24         do_test $
c5d0: 74 65 73 74 6e 61 6d 65 2e 24 6e 2e 35 20 7b 0a  testname.$n.5 {.
c5e0: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 62 74            set bt
c5f0: 20 5b 62 74 72 65 65 5f 66 72 6f 6d 5f 64 62 20   [btree_from_db 
c600: 64 62 5d 0a 20 20 20 20 20 20 20 20 20 20 64 62  db].          db
c610: 5f 65 6e 74 65 72 20 64 62 0a 20 20 20 20 20 20  _enter db.      
c620: 20 20 20 20 61 72 72 61 79 20 73 65 74 20 73 74      array set st
c630: 61 74 73 20 5b 62 74 72 65 65 5f 70 61 67 65 72  ats [btree_pager
c640: 5f 73 74 61 74 73 20 24 62 74 5d 0a 20 20 20 20  _stats $bt].    
c650: 20 20 20 20 20 20 64 62 5f 6c 65 61 76 65 20 64        db_leave d
c660: 62 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20  b.          set 
c670: 73 74 61 74 73 28 73 74 61 74 65 29 0a 20 20 20  stats(state).   
c680: 20 20 20 20 20 7d 20 30 0a 20 20 20 20 20 20 7d       } 0.      }
c690: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 49 66  .    }..    # If
c6a0: 20 61 6e 20 49 4f 20 65 72 72 6f 72 20 6f 63 63   an IO error occ
c6b0: 75 72 72 65 64 2c 20 74 68 65 6e 20 74 68 65 20  urred, then the 
c6c0: 63 68 65 63 6b 73 75 6d 20 6f 66 20 74 68 65 20  checksum of the 
c6d0: 64 61 74 61 62 61 73 65 20 73 68 6f 75 6c 64 0a  database should.
c6e0: 20 20 20 20 23 20 62 65 20 74 68 65 20 73 61 6d      # be the sam
c6f0: 65 20 61 73 20 62 65 66 6f 72 65 20 74 68 65 20  e as before the 
c700: 73 63 72 69 70 74 20 74 68 61 74 20 63 61 75 73  script that caus
c710: 65 64 20 74 68 65 20 49 4f 20 65 72 72 6f 72 20  ed the IO error 
c720: 77 61 73 20 72 75 6e 2e 0a 20 20 20 20 23 0a 20  was run..    #. 
c730: 20 20 20 69 66 20 7b 24 3a 3a 67 6f 20 26 26 20     if {$::go && 
c740: 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72  $::sqlite_io_err
c750: 6f 72 5f 68 61 72 64 68 69 74 20 26 26 20 24 3a  or_hardhit && $:
c760: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 73 75  :ioerropts(-cksu
c770: 6d 29 7d 20 7b 0a 20 20 20 20 20 20 64 6f 5f 74  m)} {.      do_t
c780: 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e  est $testname.$n
c790: 2e 36 20 7b 0a 20 20 20 20 20 20 20 20 63 61 74  .6 {.        cat
c7a0: 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 20 20  ch {db close}.  
c7b0: 20 20 20 20 20 20 63 61 74 63 68 20 7b 64 62 32        catch {db2
c7c0: 20 63 6c 6f 73 65 7d 0a 20 20 20 20 20 20 20 20   close}.        
c7d0: 73 65 74 20 3a 3a 44 42 20 5b 73 71 6c 69 74 65  set ::DB [sqlite
c7e0: 33 20 64 62 20 74 65 73 74 2e 64 62 3b 20 73 71  3 db test.db; sq
c7f0: 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e  lite3_connection
c800: 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 20 20 20  _pointer db].   
c810: 20 20 20 20 20 73 65 74 20 6e 6f 77 63 6b 73 75       set nowcksu
c820: 6d 20 5b 63 6b 73 75 6d 5d 0a 20 20 20 20 20 20  m [cksum].      
c830: 20 20 73 65 74 20 72 65 73 20 5b 65 78 70 72 20    set res [expr 
c840: 7b 24 6e 6f 77 63 6b 73 75 6d 3d 3d 24 3a 3a 63  {$nowcksum==$::c
c850: 68 65 63 6b 73 75 6d 20 7c 7c 20 24 6e 6f 77 63  hecksum || $nowc
c860: 6b 73 75 6d 3d 3d 24 3a 3a 67 6f 6f 64 63 6b 73  ksum==$::goodcks
c870: 75 6d 7d 5d 0a 20 20 20 20 20 20 20 20 69 66 20  um}].        if 
c880: 7b 24 72 65 73 3d 3d 30 7d 20 7b 0a 20 20 20 20  {$res==0} {.    
c890: 20 20 20 20 20 20 6f 75 74 70 75 74 32 20 22 6e        output2 "n
c8a0: 6f 77 3d 24 6e 6f 77 63 6b 73 75 6d 22 0a 20 20  ow=$nowcksum".  
c8b0: 20 20 20 20 20 20 20 20 6f 75 74 70 75 74 32 20          output2 
c8c0: 22 74 68 65 3d 24 3a 3a 63 68 65 63 6b 73 75 6d  "the=$::checksum
c8d0: 22 0a 20 20 20 20 20 20 20 20 20 20 6f 75 74 70  ".          outp
c8e0: 75 74 32 20 22 66 77 64 3d 24 3a 3a 67 6f 6f 64  ut2 "fwd=$::good
c8f0: 63 6b 73 75 6d 22 0a 20 20 20 20 20 20 20 20 7d  cksum".        }
c900: 0a 20 20 20 20 20 20 20 20 73 65 74 20 72 65 73  .        set res
c910: 0a 20 20 20 20 20 20 7d 20 31 0a 20 20 20 20 7d  .      } 1.    }
c920: 0a 0a 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69  ..    set ::sqli
c930: 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72 64  te_io_error_hard
c940: 68 69 74 20 30 0a 20 20 20 20 73 65 74 20 3a 3a  hit 0.    set ::
c950: 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f  sqlite_io_error_
c960: 70 65 6e 64 69 6e 67 20 30 0a 20 20 20 20 69 66  pending 0.    if
c970: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
c980: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6c 65 61  :ioerropts(-clea
c990: 6e 75 70 29 5d 7d 20 7b 0a 20 20 20 20 20 20 63  nup)]} {.      c
c9a0: 61 74 63 68 20 24 3a 3a 69 6f 65 72 72 6f 70 74  atch $::ioerropt
c9b0: 73 28 2d 63 6c 65 61 6e 75 70 29 0a 20 20 20 20  s(-cleanup).    
c9c0: 7d 0a 20 20 7d 0a 20 20 73 65 74 20 3a 3a 73 71  }.  }.  set ::sq
c9d0: 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70 65  lite_io_error_pe
c9e0: 6e 64 69 6e 67 20 30 0a 20 20 73 65 74 20 3a 3a  nding 0.  set ::
c9f0: 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f  sqlite_io_error_
ca00: 70 65 72 73 69 73 74 20 30 0a 20 20 75 6e 73 65  persist 0.  unse
ca10: 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 0a 7d 0a  t ::ioerropts.}.
ca20: 0a 23 20 52 65 74 75 72 6e 20 61 20 63 68 65 63  .# Return a chec
ca30: 6b 73 75 6d 20 62 61 73 65 64 20 6f 6e 20 74 68  ksum based on th
ca40: 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68  e contents of th
ca50: 65 20 6d 61 69 6e 20 64 61 74 61 62 61 73 65 20  e main database 
ca60: 61 73 73 6f 63 69 61 74 65 64 0a 23 20 77 69 74  associated.# wit
ca70: 68 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 24 64 62  h connection $db
ca80: 0a 23 0a 70 72 6f 63 20 63 6b 73 75 6d 20 7b 7b  .#.proc cksum {{
ca90: 64 62 20 64 62 7d 7d 20 7b 0a 20 20 73 65 74 20  db db}} {.  set 
caa0: 74 78 74 20 5b 24 64 62 20 65 76 61 6c 20 7b 0a  txt [$db eval {.
cab0: 20 20 20 20 20 20 53 45 4c 45 43 54 20 6e 61 6d        SELECT nam
cac0: 65 2c 20 74 79 70 65 2c 20 73 71 6c 20 46 52 4f  e, type, sql FRO
cad0: 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20  M sqlite_master 
cae0: 6f 72 64 65 72 20 62 79 20 6e 61 6d 65 0a 20 20  order by name.  
caf0: 7d 5d 5c 6e 0a 20 20 66 6f 72 65 61 63 68 20 74  }]\n.  foreach t
cb00: 62 6c 20 5b 24 64 62 20 65 76 61 6c 20 7b 0a 20  bl [$db eval {. 
cb10: 20 20 20 20 20 53 45 4c 45 43 54 20 6e 61 6d 65       SELECT name
cb20: 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73   FROM sqlite_mas
cb30: 74 65 72 20 57 48 45 52 45 20 74 79 70 65 3d 27  ter WHERE type='
cb40: 74 61 62 6c 65 27 20 6f 72 64 65 72 20 62 79 20  table' order by 
cb50: 6e 61 6d 65 0a 20 20 7d 5d 20 7b 0a 20 20 20 20  name.  }] {.    
cb60: 61 70 70 65 6e 64 20 74 78 74 20 5b 24 64 62 20  append txt [$db 
cb70: 65 76 61 6c 20 22 53 45 4c 45 43 54 20 2a 20 46  eval "SELECT * F
cb80: 52 4f 4d 20 24 74 62 6c 22 5d 5c 6e 0a 20 20 7d  ROM $tbl"]\n.  }
cb90: 0a 20 20 66 6f 72 65 61 63 68 20 70 72 61 67 20  .  foreach prag 
cba0: 7b 64 65 66 61 75 6c 74 5f 73 79 6e 63 68 72 6f  {default_synchro
cbb0: 6e 6f 75 73 20 64 65 66 61 75 6c 74 5f 63 61 63  nous default_cac
cbc0: 68 65 5f 73 69 7a 65 7d 20 7b 0a 20 20 20 20 61  he_size} {.    a
cbd0: 70 70 65 6e 64 20 74 78 74 20 24 70 72 61 67 2d  ppend txt $prag-
cbe0: 5b 24 64 62 20 65 76 61 6c 20 22 50 52 41 47 4d  [$db eval "PRAGM
cbf0: 41 20 24 70 72 61 67 22 5d 5c 6e 0a 20 20 7d 0a  A $prag"]\n.  }.
cc00: 20 20 73 65 74 20 63 6b 73 75 6d 20 5b 73 74 72    set cksum [str
cc10: 69 6e 67 20 6c 65 6e 67 74 68 20 24 74 78 74 5d  ing length $txt]
cc20: 2d 5b 6d 64 35 20 24 74 78 74 5d 0a 20 20 23 20  -[md5 $txt].  # 
cc30: 70 75 74 73 20 24 63 6b 73 75 6d 2d 5b 66 69 6c  puts $cksum-[fil
cc40: 65 20 73 69 7a 65 20 74 65 73 74 2e 64 62 5d 0a  e size test.db].
cc50: 20 20 72 65 74 75 72 6e 20 24 63 6b 73 75 6d 0a    return $cksum.
cc60: 7d 0a 0a 23 20 47 65 6e 65 72 61 74 65 20 61 20  }..# Generate a 
cc70: 63 68 65 63 6b 73 75 6d 20 62 61 73 65 64 20 6f  checksum based o
cc80: 6e 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f  n the contents o
cc90: 66 20 74 68 65 20 6d 61 69 6e 20 61 6e 64 20 74  f the main and t
cca0: 65 6d 70 20 74 61 62 6c 65 73 0a 23 20 64 61 74  emp tables.# dat
ccb0: 61 62 61 73 65 20 24 64 62 2e 20 49 66 20 74 68  abase $db. If th
ccc0: 65 20 63 68 65 63 6b 73 75 6d 20 6f 66 20 74 77  e checksum of tw
ccd0: 6f 20 64 61 74 61 62 61 73 65 73 20 69 73 20 74  o databases is t
cce0: 68 65 20 73 61 6d 65 2c 20 61 6e 64 20 74 68 65  he same, and the
ccf0: 0a 23 20 69 6e 74 65 67 72 69 74 79 2d 63 68 65  .# integrity-che
cd00: 63 6b 20 70 61 73 73 65 73 20 66 6f 72 20 62 6f  ck passes for bo
cd10: 74 68 2c 20 74 68 65 20 74 77 6f 20 64 61 74 61  th, the two data
cd20: 62 61 73 65 73 20 61 72 65 20 69 64 65 6e 74 69  bases are identi
cd30: 63 61 6c 2e 0a 23 0a 70 72 6f 63 20 61 6c 6c 63  cal..#.proc allc
cd40: 6b 73 75 6d 20 7b 7b 64 62 20 64 62 7d 7d 20 7b  ksum {{db db}} {
cd50: 0a 20 20 73 65 74 20 72 65 74 20 5b 6c 69 73 74  .  set ret [list
cd60: 5d 0a 20 20 69 66 63 61 70 61 62 6c 65 20 74 65  ].  ifcapable te
cd70: 6d 70 64 62 20 7b 0a 20 20 20 20 73 65 74 20 73  mpdb {.    set s
cd80: 71 6c 20 7b 0a 20 20 20 20 20 20 53 45 4c 45 43  ql {.      SELEC
cd90: 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69  T name FROM sqli
cda0: 74 65 5f 6d 61 73 74 65 72 20 57 48 45 52 45 20  te_master WHERE 
cdb0: 74 79 70 65 20 3d 20 27 74 61 62 6c 65 27 20 55  type = 'table' U
cdc0: 4e 49 4f 4e 0a 20 20 20 20 20 20 53 45 4c 45 43  NION.      SELEC
cdd0: 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69  T name FROM sqli
cde0: 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 20 57  te_temp_master W
cdf0: 48 45 52 45 20 74 79 70 65 20 3d 20 27 74 61 62  HERE type = 'tab
ce00: 6c 65 27 20 55 4e 49 4f 4e 0a 20 20 20 20 20 20  le' UNION.      
ce10: 53 45 4c 45 43 54 20 27 73 71 6c 69 74 65 5f 6d  SELECT 'sqlite_m
ce20: 61 73 74 65 72 27 20 55 4e 49 4f 4e 0a 20 20 20  aster' UNION.   
ce30: 20 20 20 53 45 4c 45 43 54 20 27 73 71 6c 69 74     SELECT 'sqlit
ce40: 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 27 20 4f  e_temp_master' O
ce50: 52 44 45 52 20 42 59 20 31 0a 20 20 20 20 7d 0a  RDER BY 1.    }.
ce60: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 73    } else {.    s
ce70: 65 74 20 73 71 6c 20 7b 0a 20 20 20 20 20 20 53  et sql {.      S
ce80: 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20  ELECT name FROM 
ce90: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 57 48  sqlite_master WH
cea0: 45 52 45 20 74 79 70 65 20 3d 20 27 74 61 62 6c  ERE type = 'tabl
ceb0: 65 27 20 55 4e 49 4f 4e 0a 20 20 20 20 20 20 53  e' UNION.      S
cec0: 45 4c 45 43 54 20 27 73 71 6c 69 74 65 5f 6d 61  ELECT 'sqlite_ma
ced0: 73 74 65 72 27 20 4f 52 44 45 52 20 42 59 20 31  ster' ORDER BY 1
cee0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 65 74  .    }.  }.  set
cef0: 20 74 62 6c 6c 69 73 74 20 5b 24 64 62 20 65 76   tbllist [$db ev
cf00: 61 6c 20 24 73 71 6c 5d 0a 20 20 73 65 74 20 74  al $sql].  set t
cf10: 78 74 20 7b 7d 0a 20 20 66 6f 72 65 61 63 68 20  xt {}.  foreach 
cf20: 74 62 6c 20 24 74 62 6c 6c 69 73 74 20 7b 0a 20  tbl $tbllist {. 
cf30: 20 20 20 61 70 70 65 6e 64 20 74 78 74 20 5b 24     append txt [$
cf40: 64 62 20 65 76 61 6c 20 22 53 45 4c 45 43 54 20  db eval "SELECT 
cf50: 2a 20 46 52 4f 4d 20 24 74 62 6c 22 5d 0a 20 20  * FROM $tbl"].  
cf60: 7d 0a 20 20 66 6f 72 65 61 63 68 20 70 72 61 67  }.  foreach prag
cf70: 20 7b 64 65 66 61 75 6c 74 5f 63 61 63 68 65 5f   {default_cache_
cf80: 73 69 7a 65 7d 20 7b 0a 20 20 20 20 61 70 70 65  size} {.    appe
cf90: 6e 64 20 74 78 74 20 24 70 72 61 67 2d 5b 24 64  nd txt $prag-[$d
cfa0: 62 20 65 76 61 6c 20 22 50 52 41 47 4d 41 20 24  b eval "PRAGMA $
cfb0: 70 72 61 67 22 5d 5c 6e 0a 20 20 7d 0a 20 20 23  prag"]\n.  }.  #
cfc0: 20 70 75 74 73 20 74 78 74 3d 24 74 78 74 0a 20   puts txt=$txt. 
cfd0: 20 72 65 74 75 72 6e 20 5b 6d 64 35 20 24 74 78   return [md5 $tx
cfe0: 74 5d 0a 7d 0a 0a 23 20 47 65 6e 65 72 61 74 65  t].}..# Generate
cff0: 20 61 20 63 68 65 63 6b 73 75 6d 20 62 61 73 65   a checksum base
d000: 64 20 6f 6e 20 74 68 65 20 63 6f 6e 74 65 6e 74  d on the content
d010: 73 20 6f 66 20 61 20 73 69 6e 67 6c 65 20 64 61  s of a single da
d020: 74 61 62 61 73 65 20 77 69 74 68 0a 23 20 61 20  tabase with.# a 
d030: 64 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74  database connect
d040: 69 6f 6e 2e 20 20 54 68 65 20 6e 61 6d 65 20 6f  ion.  The name o
d050: 66 20 74 68 65 20 64 61 74 61 62 61 73 65 20 69  f the database i
d060: 73 20 24 64 62 6e 61 6d 65 2e 0a 23 20 45 78 61  s $dbname..# Exa
d070: 6d 70 6c 65 73 20 6f 66 20 24 64 62 6e 61 6d 65  mples of $dbname
d080: 20 61 72 65 20 22 74 65 6d 70 22 20 6f 72 20 22   are "temp" or "
d090: 6d 61 69 6e 22 2e 0a 23 0a 70 72 6f 63 20 64 62  main"..#.proc db
d0a0: 63 6b 73 75 6d 20 7b 64 62 20 64 62 6e 61 6d 65  cksum {db dbname
d0b0: 7d 20 7b 0a 20 20 69 66 20 7b 24 64 62 6e 61 6d  } {.  if {$dbnam
d0c0: 65 3d 3d 22 74 65 6d 70 22 7d 20 7b 0a 20 20 20  e=="temp"} {.   
d0d0: 20 73 65 74 20 6d 61 73 74 65 72 20 73 71 6c 69   set master sqli
d0e0: 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 0a 20  te_temp_master. 
d0f0: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65   } else {.    se
d100: 74 20 6d 61 73 74 65 72 20 24 64 62 6e 61 6d 65  t master $dbname
d110: 2e 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 0a 20  .sqlite_master. 
d120: 20 7d 0a 20 20 73 65 74 20 61 6c 6c 74 61 62 20   }.  set alltab 
d130: 5b 24 64 62 20 65 76 61 6c 20 22 53 45 4c 45 43  [$db eval "SELEC
d140: 54 20 6e 61 6d 65 20 46 52 4f 4d 20 24 6d 61 73  T name FROM $mas
d150: 74 65 72 20 57 48 45 52 45 20 74 79 70 65 3d 27  ter WHERE type='
d160: 74 61 62 6c 65 27 22 5d 0a 20 20 73 65 74 20 74  table'"].  set t
d170: 78 74 20 5b 24 64 62 20 65 76 61 6c 20 22 53 45  xt [$db eval "SE
d180: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 24 6d 61 73  LECT * FROM $mas
d190: 74 65 72 22 5d 5c 6e 0a 20 20 66 6f 72 65 61 63  ter"]\n.  foreac
d1a0: 68 20 74 61 62 20 24 61 6c 6c 74 61 62 20 7b 0a  h tab $alltab {.
d1b0: 20 20 20 20 61 70 70 65 6e 64 20 74 78 74 20 5b      append txt [
d1c0: 24 64 62 20 65 76 61 6c 20 22 53 45 4c 45 43 54  $db eval "SELECT
d1d0: 20 2a 20 46 52 4f 4d 20 24 64 62 6e 61 6d 65 2e   * FROM $dbname.
d1e0: 24 74 61 62 22 5d 5c 6e 0a 20 20 7d 0a 20 20 72  $tab"]\n.  }.  r
d1f0: 65 74 75 72 6e 20 5b 6d 64 35 20 24 74 78 74 5d  eturn [md5 $txt]
d200: 0a 7d 0a 0a 70 72 6f 63 20 6d 65 6d 64 65 62 75  .}..proc memdebu
d210: 67 5f 6c 6f 67 5f 73 71 6c 20 7b 7b 66 69 6c 65  g_log_sql {{file
d220: 6e 61 6d 65 20 6d 61 6c 6c 6f 63 73 2e 73 71 6c  name mallocs.sql
d230: 7d 7d 20 7b 0a 0a 20 20 73 65 74 20 64 61 74 61  }} {..  set data
d240: 20 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62   [sqlite3_memdeb
d250: 75 67 5f 6c 6f 67 20 64 75 6d 70 5d 0a 20 20 73  ug_log dump].  s
d260: 65 74 20 6e 46 72 61 6d 65 20 5b 65 78 70 72 20  et nFrame [expr 
d270: 5b 6c 6c 65 6e 67 74 68 20 5b 6c 69 6e 64 65 78  [llength [lindex
d280: 20 24 64 61 74 61 20 30 5d 5d 2d 32 5d 0a 20 20   $data 0]]-2].  
d290: 69 66 20 7b 24 6e 46 72 61 6d 65 20 3c 20 30 7d  if {$nFrame < 0}
d2a0: 20 7b 20 72 65 74 75 72 6e 20 22 22 20 7d 0a 0a   { return "" }..
d2b0: 20 20 73 65 74 20 64 61 74 61 62 61 73 65 20 74    set database t
d2c0: 65 6d 70 0a 0a 20 20 73 65 74 20 74 62 6c 20 22  emp..  set tbl "
d2d0: 43 52 45 41 54 45 20 54 41 42 4c 45 20 24 7b 64  CREATE TABLE ${d
d2e0: 61 74 61 62 61 73 65 7d 2e 6d 61 6c 6c 6f 63 28  atabase}.malloc(
d2f0: 7a 54 65 73 74 2c 20 6e 43 61 6c 6c 2c 20 6e 42  zTest, nCall, nB
d300: 79 74 65 2c 20 6c 53 74 61 63 6b 29 3b 22 0a 0a  yte, lStack);"..
d310: 20 20 73 65 74 20 73 71 6c 20 22 22 0a 20 20 66    set sql "".  f
d320: 6f 72 65 61 63 68 20 65 20 24 64 61 74 61 20 7b  oreach e $data {
d330: 0a 20 20 20 20 73 65 74 20 6e 43 61 6c 6c 20 5b  .    set nCall [
d340: 6c 69 6e 64 65 78 20 24 65 20 30 5d 0a 20 20 20  lindex $e 0].   
d350: 20 73 65 74 20 6e 42 79 74 65 20 5b 6c 69 6e 64   set nByte [lind
d360: 65 78 20 24 65 20 31 5d 0a 20 20 20 20 73 65 74  ex $e 1].    set
d370: 20 6c 53 74 61 63 6b 20 5b 6c 72 61 6e 67 65 20   lStack [lrange 
d380: 24 65 20 32 20 65 6e 64 5d 0a 20 20 20 20 61 70  $e 2 end].    ap
d390: 70 65 6e 64 20 73 71 6c 20 22 49 4e 53 45 52 54  pend sql "INSERT
d3a0: 20 49 4e 54 4f 20 24 7b 64 61 74 61 62 61 73 65   INTO ${database
d3b0: 7d 2e 6d 61 6c 6c 6f 63 20 56 41 4c 55 45 53 22  }.malloc VALUES"
d3c0: 0a 20 20 20 20 61 70 70 65 6e 64 20 73 71 6c 20  .    append sql 
d3d0: 22 28 27 74 65 73 74 27 2c 20 24 6e 43 61 6c 6c  "('test', $nCall
d3e0: 2c 20 24 6e 42 79 74 65 2c 20 27 24 6c 53 74 61  , $nByte, '$lSta
d3f0: 63 6b 27 29 3b 5c 6e 22 0a 20 20 20 20 66 6f 72  ck');\n".    for
d400: 65 61 63 68 20 66 20 24 6c 53 74 61 63 6b 20 7b  each f $lStack {
d410: 0a 20 20 20 20 20 20 73 65 74 20 66 72 61 6d 65  .      set frame
d420: 73 28 24 66 29 20 31 0a 20 20 20 20 7d 0a 20 20  s($f) 1.    }.  
d430: 7d 0a 0a 20 20 73 65 74 20 74 62 6c 32 20 22 43  }..  set tbl2 "C
d440: 52 45 41 54 45 20 54 41 42 4c 45 20 24 7b 64 61  REATE TABLE ${da
d450: 74 61 62 61 73 65 7d 2e 66 72 61 6d 65 28 66 72  tabase}.frame(fr
d460: 61 6d 65 20 49 4e 54 45 47 45 52 20 50 52 49 4d  ame INTEGER PRIM
d470: 41 52 59 20 4b 45 59 2c 20 6c 69 6e 65 29 3b 5c  ARY KEY, line);\
d480: 6e 22 0a 20 20 73 65 74 20 74 62 6c 33 20 22 43  n".  set tbl3 "C
d490: 52 45 41 54 45 20 54 41 42 4c 45 20 24 7b 64 61  REATE TABLE ${da
d4a0: 74 61 62 61 73 65 7d 2e 66 69 6c 65 28 6e 61 6d  tabase}.file(nam
d4b0: 65 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 63  e PRIMARY KEY, c
d4c0: 6f 6e 74 65 6e 74 29 3b 5c 6e 22 0a 0a 20 20 66  ontent);\n"..  f
d4d0: 6f 72 65 61 63 68 20 66 20 5b 61 72 72 61 79 20  oreach f [array 
d4e0: 6e 61 6d 65 73 20 66 72 61 6d 65 73 5d 20 7b 0a  names frames] {.
d4f0: 20 20 20 20 73 65 74 20 61 64 64 72 20 5b 66 6f      set addr [fo
d500: 72 6d 61 74 20 25 78 20 24 66 5d 0a 20 20 20 20  rmat %x $f].    
d510: 73 65 74 20 63 6d 64 20 22 61 64 64 72 32 6c 69  set cmd "addr2li
d520: 6e 65 20 2d 65 20 5b 69 6e 66 6f 20 6e 61 6d 65  ne -e [info name
d530: 6f 66 65 78 65 63 5d 20 24 61 64 64 72 22 0a 20  ofexec] $addr". 
d540: 20 20 20 73 65 74 20 6c 69 6e 65 20 5b 65 76 61     set line [eva
d550: 6c 20 65 78 65 63 20 24 63 6d 64 5d 0a 20 20 20  l exec $cmd].   
d560: 20 61 70 70 65 6e 64 20 73 71 6c 20 22 49 4e 53   append sql "INS
d570: 45 52 54 20 49 4e 54 4f 20 24 7b 64 61 74 61 62  ERT INTO ${datab
d580: 61 73 65 7d 2e 66 72 61 6d 65 20 56 41 4c 55 45  ase}.frame VALUE
d590: 53 28 24 66 2c 20 27 24 6c 69 6e 65 27 29 3b 5c  S($f, '$line');\
d5a0: 6e 22 0a 0a 20 20 20 20 73 65 74 20 66 69 6c 65  n"..    set file
d5b0: 20 5b 6c 69 6e 64 65 78 20 5b 73 70 6c 69 74 20   [lindex [split 
d5c0: 24 6c 69 6e 65 20 3a 5d 20 30 5d 0a 20 20 20 20  $line :] 0].    
d5d0: 73 65 74 20 66 69 6c 65 73 28 24 66 69 6c 65 29  set files($file)
d5e0: 20 31 0a 20 20 7d 0a 0a 20 20 66 6f 72 65 61 63   1.  }..  foreac
d5f0: 68 20 66 20 5b 61 72 72 61 79 20 6e 61 6d 65 73  h f [array names
d600: 20 66 69 6c 65 73 5d 20 7b 0a 20 20 20 20 73 65   files] {.    se
d610: 74 20 63 6f 6e 74 65 6e 74 73 20 22 22 0a 20 20  t contents "".  
d620: 20 20 63 61 74 63 68 20 7b 0a 20 20 20 20 20 20    catch {.      
d630: 73 65 74 20 66 64 20 5b 6f 70 65 6e 20 24 66 5d  set fd [open $f]
d640: 0a 20 20 20 20 20 20 73 65 74 20 63 6f 6e 74 65  .      set conte
d650: 6e 74 73 20 5b 72 65 61 64 20 24 66 64 5d 0a 20  nts [read $fd]. 
d660: 20 20 20 20 20 63 6c 6f 73 65 20 24 66 64 0a 20       close $fd. 
d670: 20 20 20 7d 0a 20 20 20 20 73 65 74 20 63 6f 6e     }.    set con
d680: 74 65 6e 74 73 20 5b 73 74 72 69 6e 67 20 6d 61  tents [string ma
d690: 70 20 7b 27 20 27 27 7d 20 24 63 6f 6e 74 65 6e  p {' ''} $conten
d6a0: 74 73 5d 0a 20 20 20 20 61 70 70 65 6e 64 20 73  ts].    append s
d6b0: 71 6c 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20  ql "INSERT INTO 
d6c0: 24 7b 64 61 74 61 62 61 73 65 7d 2e 66 69 6c 65  ${database}.file
d6d0: 20 56 41 4c 55 45 53 28 27 24 66 27 2c 20 27 24   VALUES('$f', '$
d6e0: 63 6f 6e 74 65 6e 74 73 27 29 3b 5c 6e 22 0a 20  contents');\n". 
d6f0: 20 7d 0a 0a 20 20 73 65 74 20 66 64 20 5b 6f 70   }..  set fd [op
d700: 65 6e 20 24 66 69 6c 65 6e 61 6d 65 20 77 5d 0a  en $filename w].
d710: 20 20 70 75 74 73 20 24 66 64 20 22 42 45 47 49    puts $fd "BEGI
d720: 4e 3b 20 24 7b 74 62 6c 7d 24 7b 74 62 6c 32 7d  N; ${tbl}${tbl2}
d730: 24 7b 74 62 6c 33 7d 24 7b 73 71 6c 7d 20 3b 20  ${tbl3}${sql} ; 
d740: 43 4f 4d 4d 49 54 3b 22 0a 20 20 63 6c 6f 73 65  COMMIT;".  close
d750: 20 24 66 64 0a 7d 0a 0a 23 20 44 72 6f 70 20 61   $fd.}..# Drop a
d760: 6c 6c 20 74 61 62 6c 65 73 20 69 6e 20 64 61 74  ll tables in dat
d770: 61 62 61 73 65 20 5b 64 62 5d 0a 70 72 6f 63 20  abase [db].proc 
d780: 64 72 6f 70 5f 61 6c 6c 5f 74 61 62 6c 65 73 20  drop_all_tables 
d790: 7b 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 69 66  {{db db}} {.  if
d7a0: 63 61 70 61 62 6c 65 20 74 72 69 67 67 65 72 26  capable trigger&
d7b0: 26 66 6f 72 65 69 67 6e 6b 65 79 20 7b 0a 20 20  &foreignkey {.  
d7c0: 20 20 73 65 74 20 70 6b 20 5b 24 64 62 20 6f 6e    set pk [$db on
d7d0: 65 20 22 50 52 41 47 4d 41 20 66 6f 72 65 69 67  e "PRAGMA foreig
d7e0: 6e 5f 6b 65 79 73 22 5d 0a 20 20 20 20 24 64 62  n_keys"].    $db
d7f0: 20 65 76 61 6c 20 22 50 52 41 47 4d 41 20 66 6f   eval "PRAGMA fo
d800: 72 65 69 67 6e 5f 6b 65 79 73 20 3d 20 4f 46 46  reign_keys = OFF
d810: 22 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63 68 20  ".  }.  foreach 
d820: 7b 69 64 78 20 6e 61 6d 65 20 66 69 6c 65 7d 20  {idx name file} 
d830: 5b 64 62 20 65 76 61 6c 20 7b 50 52 41 47 4d 41  [db eval {PRAGMA
d840: 20 64 61 74 61 62 61 73 65 5f 6c 69 73 74 7d 5d   database_list}]
d850: 20 7b 0a 20 20 20 20 69 66 20 7b 24 69 64 78 3d   {.    if {$idx=
d860: 3d 31 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20  =1} {.      set 
d870: 6d 61 73 74 65 72 20 73 71 6c 69 74 65 5f 74 65  master sqlite_te
d880: 6d 70 5f 6d 61 73 74 65 72 0a 20 20 20 20 7d 20  mp_master.    } 
d890: 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 73 65 74  else {.      set
d8a0: 20 6d 61 73 74 65 72 20 24 6e 61 6d 65 2e 73 71   master $name.sq
d8b0: 6c 69 74 65 5f 6d 61 73 74 65 72 0a 20 20 20 20  lite_master.    
d8c0: 7d 0a 20 20 20 20 66 6f 72 65 61 63 68 20 7b 74  }.    foreach {t
d8d0: 20 74 79 70 65 7d 20 5b 24 64 62 20 65 76 61 6c   type} [$db eval
d8e0: 20 22 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20   ".      SELECT 
d8f0: 6e 61 6d 65 2c 20 74 79 70 65 20 46 52 4f 4d 20  name, type FROM 
d900: 24 6d 61 73 74 65 72 0a 20 20 20 20 20 20 57 48  $master.      WH
d910: 45 52 45 20 74 79 70 65 20 49 4e 28 27 74 61 62  ERE type IN('tab
d920: 6c 65 27 2c 20 27 76 69 65 77 27 29 20 41 4e 44  le', 'view') AND
d930: 20 6e 61 6d 65 20 4e 4f 54 20 4c 49 4b 45 20 27   name NOT LIKE '
d940: 73 71 6c 69 74 65 58 5f 25 27 20 45 53 43 41 50  sqliteX_%' ESCAP
d950: 45 20 27 58 27 0a 20 20 20 20 22 5d 20 7b 0a 20  E 'X'.    "] {. 
d960: 20 20 20 20 20 24 64 62 20 65 76 61 6c 20 22 44       $db eval "D
d970: 52 4f 50 20 24 74 79 70 65 20 5c 22 24 74 5c 22  ROP $type \"$t\"
d980: 22 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66  ".    }.  }.  if
d990: 63 61 70 61 62 6c 65 20 74 72 69 67 67 65 72 26  capable trigger&
d9a0: 26 66 6f 72 65 69 67 6e 6b 65 79 20 7b 0a 20 20  &foreignkey {.  
d9b0: 20 20 24 64 62 20 65 76 61 6c 20 22 50 52 41 47    $db eval "PRAG
d9c0: 4d 41 20 66 6f 72 65 69 67 6e 5f 6b 65 79 73 20  MA foreign_keys 
d9d0: 3d 20 24 70 6b 22 0a 20 20 7d 0a 7d 0a 0a 23 2d  = $pk".  }.}..#-
d9e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d9f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
da00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
da10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
da20: 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 49 66 20 61 20  --------.# If a 
da30: 74 65 73 74 20 73 63 72 69 70 74 20 69 73 20 65  test script is e
da40: 78 65 63 75 74 65 64 20 77 69 74 68 20 67 6c 6f  xecuted with glo
da50: 62 61 6c 20 76 61 72 69 61 62 6c 65 20 24 3a 3a  bal variable $::
da60: 47 28 70 65 72 6d 3a 6e 61 6d 65 29 20 73 65 74  G(perm:name) set
da70: 20 74 6f 0a 23 20 22 77 61 6c 22 2c 20 74 68 65   to.# "wal", the
da80: 6e 20 74 68 65 20 74 65 73 74 73 20 61 72 65 20  n the tests are 
da90: 72 75 6e 20 69 6e 20 57 41 4c 20 6d 6f 64 65 2e  run in WAL mode.
daa0: 20 4f 74 68 65 72 77 69 73 65 2c 20 74 68 65 79   Otherwise, they
dab0: 20 73 68 6f 75 6c 64 20 62 65 20 72 75 6e 0a 23   should be run.#
dac0: 20 69 6e 20 72 6f 6c 6c 62 61 63 6b 20 6d 6f 64   in rollback mod
dad0: 65 2e 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67  e. The following
dae0: 20 54 63 6c 20 70 72 6f 63 73 20 61 72 65 20 75   Tcl procs are u
daf0: 73 65 64 20 74 6f 20 6d 61 6b 65 20 74 68 69 73  sed to make this
db00: 20 6c 65 73 73 0a 23 20 69 6e 74 72 75 73 69 76   less.# intrusiv
db10: 65 3a 0a 23 0a 23 20 20 20 77 61 6c 5f 73 65 74  e:.#.#   wal_set
db20: 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3f 44  _journal_mode ?D
db30: 42 3f 0a 23 0a 23 20 20 20 20 20 49 66 20 72 75  B?.#.#     If ru
db40: 6e 6e 69 6e 67 20 61 20 57 41 4c 20 74 65 73 74  nning a WAL test
db50: 2c 20 65 78 65 63 75 74 65 20 22 50 52 41 47 4d  , execute "PRAGM
db60: 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d  A journal_mode =
db70: 20 77 61 6c 22 20 75 73 69 6e 67 0a 23 20 20 20   wal" using.#   
db80: 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 6e    connection han
db90: 64 6c 65 20 44 42 2e 20 4f 74 68 65 72 77 69 73  dle DB. Otherwis
dba0: 65 2c 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20  e, this command 
dbb0: 69 73 20 61 20 6e 6f 2d 6f 70 2e 0a 23 0a 23 20  is a no-op..#.# 
dbc0: 20 20 77 61 6c 5f 63 68 65 63 6b 5f 6a 6f 75 72    wal_check_jour
dbd0: 6e 61 6c 5f 6d 6f 64 65 20 54 45 53 54 4e 41 4d  nal_mode TESTNAM
dbe0: 45 20 3f 44 42 3f 0a 23 0a 23 20 20 20 20 20 49  E ?DB?.#.#     I
dbf0: 66 20 72 75 6e 6e 69 6e 67 20 61 20 57 41 4c 20  f running a WAL 
dc00: 74 65 73 74 2c 20 65 78 65 63 75 74 65 20 61 20  test, execute a 
dc10: 74 65 73 74 73 20 63 61 73 65 20 74 68 61 74 20  tests case that 
dc20: 66 61 69 6c 73 20 69 66 20 74 68 65 20 6d 61 69  fails if the mai
dc30: 6e 0a 23 20 20 20 20 20 64 61 74 61 62 61 73 65  n.#     database
dc40: 20 66 6f 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 20   for connection 
dc50: 68 61 6e 64 6c 65 20 44 42 20 69 73 20 6e 6f 74  handle DB is not
dc60: 20 63 75 72 72 65 6e 74 6c 79 20 61 20 57 41 4c   currently a WAL
dc70: 20 64 61 74 61 62 61 73 65 2e 0a 23 20 20 20 20   database..#    
dc80: 20 4f 74 68 65 72 77 69 73 65 20 28 69 66 20 6e   Otherwise (if n
dc90: 6f 74 20 72 75 6e 6e 69 6e 67 20 61 20 57 41 4c  ot running a WAL
dca0: 20 70 65 72 6d 75 74 61 74 69 6f 6e 29 20 74 68   permutation) th
dcb0: 69 73 20 69 73 20 61 20 6e 6f 2d 6f 70 2e 0a 23  is is a no-op..#
dcc0: 0a 23 20 20 20 77 61 6c 5f 69 73 5f 77 61 6c 5f  .#   wal_is_wal_
dcd0: 6d 6f 64 65 0a 23 0a 23 20 20 20 20 20 52 65 74  mode.#.#     Ret
dce0: 75 72 6e 73 20 74 72 75 65 20 69 66 20 74 68 69  urns true if thi
dcf0: 73 20 74 65 73 74 20 73 68 6f 75 6c 64 20 62 65  s test should be
dd00: 20 72 75 6e 20 69 6e 20 57 41 4c 20 6d 6f 64 65   run in WAL mode
dd10: 2e 20 46 61 6c 73 65 20 6f 74 68 65 72 77 69 73  . False otherwis
dd20: 65 2e 0a 23 0a 70 72 6f 63 20 77 61 6c 5f 69 73  e..#.proc wal_is
dd30: 5f 77 61 6c 5f 6d 6f 64 65 20 7b 7d 20 7b 0a 20  _wal_mode {} {. 
dd40: 20 65 78 70 72 20 7b 5b 70 65 72 6d 75 74 61 74   expr {[permutat
dd50: 69 6f 6e 5d 20 65 71 20 22 77 61 6c 22 7d 0a 7d  ion] eq "wal"}.}
dd60: 0a 70 72 6f 63 20 77 61 6c 5f 73 65 74 5f 6a 6f  .proc wal_set_jo
dd70: 75 72 6e 61 6c 5f 6d 6f 64 65 20 7b 7b 64 62 20  urnal_mode {{db 
dd80: 64 62 7d 7d 20 7b 0a 20 20 69 66 20 7b 20 5b 77  db}} {.  if { [w
dd90: 61 6c 5f 69 73 5f 77 61 6c 5f 6d 6f 64 65 5d 20  al_is_wal_mode] 
dda0: 7d 20 7b 0a 20 20 20 20 24 64 62 20 65 76 61 6c  } {.    $db eval
ddb0: 20 22 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c   "PRAGMA journal
ddc0: 5f 6d 6f 64 65 20 3d 20 57 41 4c 22 0a 20 20 7d  _mode = WAL".  }
ddd0: 0a 7d 0a 70 72 6f 63 20 77 61 6c 5f 63 68 65 63  .}.proc wal_chec
dde0: 6b 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 7b  k_journal_mode {
ddf0: 74 65 73 74 6e 61 6d 65 20 7b 64 62 20 64 62 7d  testname {db db}
de00: 7d 20 7b 0a 20 20 69 66 20 7b 20 5b 77 61 6c 5f  } {.  if { [wal_
de10: 69 73 5f 77 61 6c 5f 6d 6f 64 65 5d 20 7d 20 7b  is_wal_mode] } {
de20: 0a 20 20 20 20 24 64 62 20 65 76 61 6c 20 7b 20  .    $db eval { 
de30: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73 71  SELECT * FROM sq
de40: 6c 69 74 65 5f 6d 61 73 74 65 72 20 7d 0a 20 20  lite_master }.  
de50: 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74 6e    do_test $testn
de60: 61 6d 65 20 5b 6c 69 73 74 20 24 64 62 20 65 76  ame [list $db ev
de70: 61 6c 20 22 50 52 41 47 4d 41 20 6d 61 69 6e 2e  al "PRAGMA main.
de80: 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 22 5d 20 7b  journal_mode"] {
de90: 77 61 6c 7d 0a 20 20 7d 0a 7d 0a 0a 70 72 6f 63  wal}.  }.}..proc
dea0: 20 70 65 72 6d 75 74 61 74 69 6f 6e 20 7b 7d 20   permutation {} 
deb0: 7b 0a 20 20 73 65 74 20 70 65 72 6d 20 22 22 0a  {.  set perm "".
dec0: 20 20 63 61 74 63 68 20 7b 73 65 74 20 70 65 72    catch {set per
ded0: 6d 20 24 3a 3a 47 28 70 65 72 6d 3a 6e 61 6d 65  m $::G(perm:name
dee0: 29 7d 0a 20 20 73 65 74 20 70 65 72 6d 0a 7d 0a  )}.  set perm.}.
def0: 70 72 6f 63 20 70 72 65 73 71 6c 20 7b 7d 20 7b  proc presql {} {
df00: 0a 20 20 73 65 74 20 70 72 65 73 71 6c 20 22 22  .  set presql ""
df10: 0a 20 20 63 61 74 63 68 20 7b 73 65 74 20 70 72  .  catch {set pr
df20: 65 73 71 6c 20 24 3a 3a 47 28 70 65 72 6d 3a 70  esql $::G(perm:p
df30: 72 65 73 71 6c 29 7d 0a 20 20 73 65 74 20 70 72  resql)}.  set pr
df40: 65 73 71 6c 0a 7d 0a 0a 70 72 6f 63 20 77 61 6c  esql.}..proc wal
df50: 5f 69 73 5f 6f 6b 20 7b 7d 20 7b 0a 20 20 69 66  _is_ok {} {.  if
df60: 20 7b 20 5b 66 6f 72 63 65 64 5f 70 72 6f 78 79   { [forced_proxy
df70: 5f 6c 6f 63 6b 69 6e 67 5d 20 7d 20 7b 0a 20 20  _locking] } {.  
df80: 20 20 72 65 74 75 72 6e 20 31 0a 20 20 7d 0a 20    return 1.  }. 
df90: 20 69 66 20 7b 20 21 5b 70 61 74 68 5f 69 73 5f   if { ![path_is_
dfa0: 6c 6f 63 61 6c 20 22 2e 22 5d 20 7d 20 7b 0a 20  local "."] } {. 
dfb0: 20 20 20 72 65 74 75 72 6e 20 30 0a 20 20 7d 0a     return 0.  }.
dfc0: 20 20 69 66 20 7b 20 5b 70 61 74 68 5f 69 73 5f    if { [path_is_
dfd0: 64 6f 73 20 22 2e 22 5d 20 7d 20 7b 0a 20 20 20  dos "."] } {.   
dfe0: 20 72 65 74 75 72 6e 20 30 0a 20 20 7d 0a 20 20   return 0.  }.  
dff0: 72 65 74 75 72 6e 20 31 0a 7d 0a 0a 23 2d 2d 2d  return 1.}..#---
e000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
e010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
e020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
e030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
e040: 2d 2d 2d 2d 2d 2d 0a 23 0a 70 72 6f 63 20 73 6c  ------.#.proc sl
e050: 61 76 65 5f 74 65 73 74 5f 73 63 72 69 70 74 20  ave_test_script 
e060: 7b 73 63 72 69 70 74 7d 20 7b 0a 0a 20 20 23 20  {script} {..  # 
e070: 43 72 65 61 74 65 20 74 68 65 20 69 6e 74 65 72  Create the inter
e080: 70 72 65 74 65 72 20 75 73 65 64 20 74 6f 20 72  preter used to r
e090: 75 6e 20 74 68 65 20 74 65 73 74 20 73 63 72 69  un the test scri
e0a0: 70 74 2e 0a 20 20 69 6e 74 65 72 70 20 63 72 65  pt..  interp cre
e0b0: 61 74 65 20 74 69 6e 74 65 72 70 0a 0a 20 20 23  ate tinterp..  #
e0c0: 20 50 6f 70 75 6c 61 74 65 20 73 6f 6d 65 20 67   Populate some g
e0d0: 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73 20  lobal variables 
e0e0: 74 68 61 74 20 74 65 73 74 65 72 2e 74 63 6c 20  that tester.tcl 
e0f0: 65 78 70 65 63 74 73 20 74 6f 20 73 65 65 2e 0a  expects to see..
e100: 20 20 66 6f 72 65 61 63 68 20 7b 76 61 72 20 76    foreach {var v
e110: 61 6c 75 65 7d 20 5b 6c 69 73 74 20 20 20 20 20  alue} [list     
e120: 20 20 20 20 20 20 20 20 20 5c 0a 20 20 20 20 3a           \.    :
e130: 3a 61 72 67 76 30 20 24 3a 3a 61 72 67 76 30 20  :argv0 $::argv0 
e140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
e150: 20 20 20 20 5c 0a 20 20 20 20 3a 3a 61 72 67 76      \.    ::argv
e160: 20 20 7b 7d 20 20 20 20 20 20 20 20 20 20 20 20    {}            
e170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c                 \
e180: 0a 20 20 20 20 3a 3a 53 4c 41 56 45 20 31 20 20  .    ::SLAVE 1  
e190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
e1a0: 20 20 20 20 20 20 20 20 20 20 5c 0a 20 20 5d 20            \.  ] 
e1b0: 7b 0a 20 20 20 20 69 6e 74 65 72 70 20 65 76 61  {.    interp eva
e1c0: 6c 20 74 69 6e 74 65 72 70 20 5b 6c 69 73 74 20  l tinterp [list 
e1d0: 73 65 74 20 24 76 61 72 20 24 76 61 6c 75 65 5d  set $var $value]
e1e0: 0a 20 20 7d 0a 0a 20 20 23 20 49 66 20 6f 75 74  .  }..  # If out
e1f0: 70 75 74 20 69 73 20 62 65 69 6e 67 20 63 6f 70  put is being cop
e200: 69 65 64 20 69 6e 74 6f 20 61 20 66 69 6c 65 2c  ied into a file,
e210: 20 73 68 61 72 65 20 74 68 65 20 66 69 6c 65 2d   share the file-
e220: 64 65 73 63 72 69 70 74 6f 72 20 77 69 74 68 0a  descriptor with.
e230: 20 20 23 20 74 68 65 20 69 6e 74 65 72 70 72 65    # the interpre
e240: 74 65 72 2e 0a 20 20 69 66 20 7b 5b 69 6e 66 6f  ter..  if {[info
e250: 20 65 78 69 73 74 73 20 3a 3a 47 28 6f 75 74 70   exists ::G(outp
e260: 75 74 5f 66 64 29 5d 7d 20 7b 0a 20 20 20 20 69  ut_fd)]} {.    i
e270: 6e 74 65 72 70 20 73 68 61 72 65 20 7b 7d 20 24  nterp share {} $
e280: 3a 3a 47 28 6f 75 74 70 75 74 5f 66 64 29 20 74  ::G(output_fd) t
e290: 69 6e 74 65 72 70 0a 20 20 7d 0a 0a 20 20 23 20  interp.  }..  # 
e2a0: 54 68 65 20 61 6c 69 61 73 20 75 73 65 64 20 74  The alias used t
e2b0: 6f 20 61 63 63 65 73 73 20 74 68 65 20 67 6c 6f  o access the glo
e2c0: 62 61 6c 20 74 65 73 74 20 63 6f 75 6e 74 65 72  bal test counter
e2d0: 73 2e 0a 20 20 74 69 6e 74 65 72 70 20 61 6c 69  s..  tinterp ali
e2e0: 61 73 20 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e  as set_test_coun
e2f0: 74 65 72 20 73 65 74 5f 74 65 73 74 5f 63 6f 75  ter set_test_cou
e300: 6e 74 65 72 0a 0a 20 20 23 20 53 65 74 20 75 70  nter..  # Set up
e310: 20 74 68 65 20 3a 3a 63 6d 64 6c 69 6e 65 61 72   the ::cmdlinear
e320: 67 20 61 72 72 61 79 20 69 6e 20 74 68 65 20 73  g array in the s
e330: 6c 61 76 65 2e 0a 20 20 69 6e 74 65 72 70 20 65  lave..  interp e
e340: 76 61 6c 20 74 69 6e 74 65 72 70 20 5b 6c 69 73  val tinterp [lis
e350: 74 20 61 72 72 61 79 20 73 65 74 20 3a 3a 63 6d  t array set ::cm
e360: 64 6c 69 6e 65 61 72 67 20 5b 61 72 72 61 79 20  dlinearg [array 
e370: 67 65 74 20 3a 3a 63 6d 64 6c 69 6e 65 61 72 67  get ::cmdlinearg
e380: 5d 5d 0a 0a 20 20 23 20 53 65 74 20 75 70 20 74  ]]..  # Set up t
e390: 68 65 20 3a 3a 47 20 61 72 72 61 79 20 69 6e 20  he ::G array in 
e3a0: 74 68 65 20 73 6c 61 76 65 2e 0a 20 20 69 6e 74  the slave..  int
e3b0: 65 72 70 20 65 76 61 6c 20 74 69 6e 74 65 72 70  erp eval tinterp
e3c0: 20 5b 6c 69 73 74 20 61 72 72 61 79 20 73 65 74   [list array set
e3d0: 20 3a 3a 47 20 5b 61 72 72 61 79 20 67 65 74 20   ::G [array get 
e3e0: 3a 3a 47 5d 5d 0a 0a 20 20 23 20 4c 6f 61 64 20  ::G]]..  # Load 
e3f0: 74 68 65 20 76 61 72 69 6f 75 73 20 74 65 73 74  the various test
e400: 20 69 6e 74 65 72 66 61 63 65 73 20 69 6d 70 6c   interfaces impl
e410: 65 6d 65 6e 74 65 64 20 69 6e 20 43 2e 0a 20 20  emented in C..  
e420: 6c 6f 61 64 5f 74 65 73 74 66 69 78 74 75 72 65  load_testfixture
e430: 5f 65 78 74 65 6e 73 69 6f 6e 73 20 74 69 6e 74  _extensions tint
e440: 65 72 70 0a 0a 20 20 23 20 52 75 6e 20 74 68 65  erp..  # Run the
e450: 20 74 65 73 74 20 73 63 72 69 70 74 2e 0a 20 20   test script..  
e460: 69 6e 74 65 72 70 20 65 76 61 6c 20 74 69 6e 74  interp eval tint
e470: 65 72 70 20 24 73 63 72 69 70 74 0a 0a 20 20 23  erp $script..  #
e480: 20 43 68 65 63 6b 20 69 66 20 74 68 65 20 69 6e   Check if the in
e490: 74 65 72 70 72 65 74 65 72 20 63 61 6c 6c 20 5b  terpreter call [
e4a0: 72 75 6e 5f 74 68 72 65 61 64 5f 74 65 73 74 73  run_thread_tests
e4b0: 5d 0a 20 20 69 66 20 7b 20 5b 69 6e 74 65 72 70  ].  if { [interp
e4c0: 20 65 76 61 6c 20 74 69 6e 74 65 72 70 20 7b 69   eval tinterp {i
e4d0: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 72 75 6e  nfo exists ::run
e4e0: 5f 74 68 72 65 61 64 5f 74 65 73 74 73 5f 63 61  _thread_tests_ca
e4f0: 6c 6c 65 64 7d 5d 20 7d 20 7b 0a 20 20 20 20 73  lled}] } {.    s
e500: 65 74 20 3a 3a 72 75 6e 5f 74 68 72 65 61 64 5f  et ::run_thread_
e510: 74 65 73 74 73 5f 63 61 6c 6c 65 64 20 31 0a 20  tests_called 1. 
e520: 20 7d 0a 0a 20 20 23 20 44 65 6c 65 74 65 20 74   }..  # Delete t
e530: 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 20 75  he interpreter u
e540: 73 65 64 20 74 6f 20 72 75 6e 20 74 68 65 20 74  sed to run the t
e550: 65 73 74 20 73 63 72 69 70 74 2e 0a 20 20 69 6e  est script..  in
e560: 74 65 72 70 20 64 65 6c 65 74 65 20 74 69 6e 74  terp delete tint
e570: 65 72 70 0a 7d 0a 0a 70 72 6f 63 20 73 6c 61 76  erp.}..proc slav
e580: 65 5f 74 65 73 74 5f 66 69 6c 65 20 7b 7a 46 69  e_test_file {zFi
e590: 6c 65 7d 20 7b 0a 20 20 73 65 74 20 74 61 69 6c  le} {.  set tail
e5a0: 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 7a 46 69   [file tail $zFi
e5b0: 6c 65 5d 0a 0a 20 20 69 66 20 7b 5b 69 6e 66 6f  le]..  if {[info
e5c0: 20 65 78 69 73 74 73 20 3a 3a 47 28 73 74 61 72   exists ::G(star
e5d0: 74 3a 70 65 72 6d 75 74 61 74 69 6f 6e 29 5d 7d  t:permutation)]}
e5e0: 20 7b 0a 20 20 20 20 69 66 20 7b 5b 70 65 72 6d   {.    if {[perm
e5f0: 75 74 61 74 69 6f 6e 5d 20 21 3d 20 24 3a 3a 47  utation] != $::G
e600: 28 73 74 61 72 74 3a 70 65 72 6d 75 74 61 74 69  (start:permutati
e610: 6f 6e 29 7d 20 72 65 74 75 72 6e 0a 20 20 20 20  on)} return.    
e620: 75 6e 73 65 74 20 3a 3a 47 28 73 74 61 72 74 3a  unset ::G(start:
e630: 70 65 72 6d 75 74 61 74 69 6f 6e 29 0a 20 20 7d  permutation).  }
e640: 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  .  if {[info exi
e650: 73 74 73 20 3a 3a 47 28 73 74 61 72 74 3a 66 69  sts ::G(start:fi
e660: 6c 65 29 5d 7d 20 7b 0a 20 20 20 20 69 66 20 7b  le)]} {.    if {
e670: 24 74 61 69 6c 20 21 3d 20 24 3a 3a 47 28 73 74  $tail != $::G(st
e680: 61 72 74 3a 66 69 6c 65 29 20 26 26 20 24 74 61  art:file) && $ta
e690: 69 6c 21 3d 22 24 3a 3a 47 28 73 74 61 72 74 3a  il!="$::G(start:
e6a0: 66 69 6c 65 29 2e 74 65 73 74 22 7d 20 72 65 74  file).test"} ret
e6b0: 75 72 6e 0a 20 20 20 20 75 6e 73 65 74 20 3a 3a  urn.    unset ::
e6c0: 47 28 73 74 61 72 74 3a 66 69 6c 65 29 0a 20 20  G(start:file).  
e6d0: 7d 0a 0a 20 20 23 20 52 65 6d 65 6d 62 65 72 20  }..  # Remember 
e6e0: 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65  the value of the
e6f0: 20 73 68 61 72 65 64 2d 63 61 63 68 65 20 73 65   shared-cache se
e700: 74 74 69 6e 67 2e 20 53 6f 20 74 68 61 74 20 69  tting. So that i
e710: 74 20 69 73 20 70 6f 73 73 69 62 6c 65 0a 20 20  t is possible.  
e720: 23 20 74 6f 20 63 68 65 63 6b 20 61 66 74 65 72  # to check after
e730: 77 61 72 64 73 20 74 68 61 74 20 69 74 20 77 61  wards that it wa
e740: 73 20 6e 6f 74 20 6d 6f 64 69 66 69 65 64 20 62  s not modified b
e750: 79 20 74 68 65 20 74 65 73 74 20 73 63 72 69 70  y the test scrip
e760: 74 2e 0a 20 20 23 0a 20 20 69 66 63 61 70 61 62  t..  #.  ifcapab
e770: 6c 65 20 73 68 61 72 65 64 5f 63 61 63 68 65 20  le shared_cache 
e780: 7b 20 73 65 74 20 73 63 73 20 5b 73 71 6c 69 74  { set scs [sqlit
e790: 65 33 5f 65 6e 61 62 6c 65 5f 73 68 61 72 65 64  e3_enable_shared
e7a0: 5f 63 61 63 68 65 5d 20 7d 0a 0a 20 20 23 20 52  _cache] }..  # R
e7b0: 75 6e 20 74 68 65 20 74 65 73 74 20 73 63 72 69  un the test scri
e7c0: 70 74 20 69 6e 20 61 20 73 6c 61 76 65 20 69 6e  pt in a slave in
e7d0: 74 65 72 70 72 65 74 65 72 2e 0a 20 20 23 0a 20  terpreter..  #. 
e7e0: 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61   unset -nocompla
e7f0: 69 6e 20 3a 3a 72 75 6e 5f 74 68 72 65 61 64 5f  in ::run_thread_
e800: 74 65 73 74 73 5f 63 61 6c 6c 65 64 0a 20 20 72  tests_called.  r
e810: 65 73 65 74 5f 70 72 6e 67 5f 73 74 61 74 65 0a  eset_prng_state.
e820: 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 6f    set ::sqlite_o
e830: 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 20 30  pen_file_count 0
e840: 0a 20 20 73 65 74 20 74 69 6d 65 20 5b 74 69 6d  .  set time [tim
e850: 65 20 7b 20 73 6c 61 76 65 5f 74 65 73 74 5f 73  e { slave_test_s
e860: 63 72 69 70 74 20 5b 6c 69 73 74 20 73 6f 75 72  cript [list sour
e870: 63 65 20 24 7a 46 69 6c 65 5d 20 7d 5d 0a 20 20  ce $zFile] }].  
e880: 73 65 74 20 6d 73 20 5b 65 78 70 72 20 5b 6c 69  set ms [expr [li
e890: 6e 64 65 78 20 24 74 69 6d 65 20 30 5d 20 2f 20  ndex $time 0] / 
e8a0: 31 30 30 30 5d 0a 0a 20 20 23 20 54 65 73 74 20  1000]..  # Test 
e8b0: 74 68 61 74 20 61 6c 6c 20 66 69 6c 65 73 20 6f  that all files o
e8c0: 70 65 6e 65 64 20 62 79 20 74 68 65 20 74 65 73  pened by the tes
e8d0: 74 20 73 63 72 69 70 74 20 77 65 72 65 20 63 6c  t script were cl
e8e0: 6f 73 65 64 2e 20 4f 6d 69 74 20 74 68 69 73 0a  osed. Omit this.
e8f0: 20 20 23 20 69 66 20 74 68 65 20 74 65 73 74 20    # if the test 
e900: 73 63 72 69 70 74 20 68 61 73 20 22 74 68 72 65  script has "thre
e910: 61 64 22 20 69 6e 20 69 74 73 20 6e 61 6d 65 2e  ad" in its name.
e920: 20 54 68 65 20 6f 70 65 6e 20 66 69 6c 65 20 63   The open file c
e930: 6f 75 6e 74 65 72 0a 20 20 23 20 69 73 20 6e 6f  ounter.  # is no
e940: 74 20 74 68 72 65 61 64 2d 73 61 66 65 2e 0a 20  t thread-safe.. 
e950: 20 23 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65   #.  if {[info e
e960: 78 69 73 74 73 20 3a 3a 72 75 6e 5f 74 68 72 65  xists ::run_thre
e970: 61 64 5f 74 65 73 74 73 5f 63 61 6c 6c 65 64 5d  ad_tests_called]
e980: 3d 3d 30 7d 20 7b 0a 20 20 20 20 64 6f 5f 74 65  ==0} {.    do_te
e990: 73 74 20 24 7b 74 61 69 6c 7d 2d 63 6c 6f 73 65  st ${tail}-close
e9a0: 61 6c 6c 66 69 6c 65 73 20 7b 20 65 78 70 72 20  allfiles { expr 
e9b0: 7b 24 3a 3a 73 71 6c 69 74 65 5f 6f 70 65 6e 5f  {$::sqlite_open_
e9c0: 66 69 6c 65 5f 63 6f 75 6e 74 3e 30 7d 20 7d 20  file_count>0} } 
e9d0: 7b 30 7d 0a 20 20 7d 0a 20 20 73 65 74 20 3a 3a  {0}.  }.  set ::
e9e0: 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65  sqlite_open_file
e9f0: 5f 63 6f 75 6e 74 20 30 0a 0a 20 20 23 20 54 65  _count 0..  # Te
ea00: 73 74 20 74 68 61 74 20 74 68 65 20 67 6c 6f 62  st that the glob
ea10: 61 6c 20 22 73 68 61 72 65 64 2d 63 61 63 68 65  al "shared-cache
ea20: 22 20 73 65 74 74 69 6e 67 20 77 61 73 20 6e 6f  " setting was no
ea30: 74 20 61 6c 74 65 72 65 64 20 62 79 0a 20 20 23  t altered by.  #
ea40: 20 74 68 65 20 74 65 73 74 20 73 63 72 69 70 74   the test script
ea50: 2e 0a 20 20 23 0a 20 20 69 66 63 61 70 61 62 6c  ..  #.  ifcapabl
ea60: 65 20 73 68 61 72 65 64 5f 63 61 63 68 65 20 7b  e shared_cache {
ea70: 0a 20 20 20 20 73 65 74 20 72 65 73 20 5b 65 78  .    set res [ex
ea80: 70 72 20 7b 5b 73 71 6c 69 74 65 33 5f 65 6e 61  pr {[sqlite3_ena
ea90: 62 6c 65 5f 73 68 61 72 65 64 5f 63 61 63 68 65  ble_shared_cache
eaa0: 5d 20 3d 3d 20 24 73 63 73 7d 5d 0a 20 20 20 20  ] == $scs}].    
eab0: 64 6f 5f 74 65 73 74 20 24 7b 74 61 69 6c 7d 2d  do_test ${tail}-
eac0: 73 68 61 72 65 64 63 61 63 68 65 73 65 74 74 69  sharedcachesetti
ead0: 6e 67 20 5b 6c 69 73 74 20 73 65 74 20 7b 7d 20  ng [list set {} 
eae0: 24 72 65 73 5d 20 31 0a 20 20 7d 0a 0a 20 20 23  $res] 1.  }..  #
eaf0: 20 41 64 64 20 73 6f 6d 65 20 69 6e 66 6f 20 74   Add some info t
eb00: 6f 20 74 68 65 20 6f 75 74 70 75 74 2e 0a 20 20  o the output..  
eb10: 23 0a 20 20 6f 75 74 70 75 74 32 20 22 54 69 6d  #.  output2 "Tim
eb20: 65 3a 20 24 74 61 69 6c 20 24 6d 73 20 6d 73 22  e: $tail $ms ms"
eb30: 0a 20 20 73 68 6f 77 5f 6d 65 6d 73 74 61 74 73  .  show_memstats
eb40: 0a 7d 0a 0a 23 20 4f 70 65 6e 20 61 20 6e 65 77  .}..# Open a new
eb50: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6f 6e 20 64   connection on d
eb60: 61 74 61 62 61 73 65 20 74 65 73 74 2e 64 62 20  atabase test.db 
eb70: 61 6e 64 20 65 78 65 63 75 74 65 20 74 68 65 20  and execute the 
eb80: 53 51 4c 20 73 63 72 69 70 74 0a 23 20 73 75 70  SQL script.# sup
eb90: 70 6c 69 65 64 20 61 73 20 61 6e 20 61 72 67 75  plied as an argu
eba0: 6d 65 6e 74 2e 20 42 65 66 6f 72 65 20 72 65 74  ment. Before ret
ebb0: 75 72 6e 69 6e 67 2c 20 63 6c 6f 73 65 20 74 68  urning, close th
ebc0: 65 20 6e 65 77 20 63 6f 6e 65 63 74 69 6f 6e 20  e new conection 
ebd0: 61 6e 64 0a 23 20 72 65 73 74 6f 72 65 20 74 68  and.# restore th
ebe0: 65 20 34 20 62 79 74 65 20 66 69 65 6c 64 73 20  e 4 byte fields 
ebf0: 73 74 61 72 74 69 6e 67 20 61 74 20 68 65 61 64  starting at head
ec00: 65 72 20 6f 66 66 73 65 74 73 20 32 38 2c 20 39  er offsets 28, 9
ec10: 32 20 61 6e 64 20 39 36 0a 23 20 74 6f 20 74 68  2 and 96.# to th
ec20: 65 20 76 61 6c 75 65 73 20 74 68 65 79 20 68 65  e values they he
ec30: 6c 64 20 62 65 66 6f 72 65 20 74 68 65 20 53 51  ld before the SQ
ec40: 4c 20 77 61 73 20 65 78 65 63 75 74 65 64 2e 20  L was executed. 
ec50: 54 68 69 73 20 73 69 6d 75 6c 61 74 65 73 0a 23  This simulates.#
ec60: 20 61 20 77 72 69 74 65 20 62 79 20 61 20 70 72   a write by a pr
ec70: 65 2d 33 2e 37 2e 30 20 63 6c 69 65 6e 74 2e 0a  e-3.7.0 client..
ec80: 23 0a 70 72 6f 63 20 73 71 6c 33 36 32 33 31 20  #.proc sql36231 
ec90: 7b 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20 42 20  {sql} {.  set B 
eca0: 5b 68 65 78 69 6f 5f 72 65 61 64 20 74 65 73 74  [hexio_read test
ecb0: 2e 64 62 20 39 32 20 38 5d 0a 20 20 73 65 74 20  .db 92 8].  set 
ecc0: 41 20 5b 68 65 78 69 6f 5f 72 65 61 64 20 74 65  A [hexio_read te
ecd0: 73 74 2e 64 62 20 32 38 20 34 5d 0a 20 20 73 71  st.db 28 4].  sq
ece0: 6c 69 74 65 33 20 64 62 33 36 32 33 31 20 74 65  lite3 db36231 te
ecf0: 73 74 2e 64 62 0a 20 20 63 61 74 63 68 20 7b 20  st.db.  catch { 
ed00: 64 62 33 36 32 33 31 20 66 75 6e 63 20 61 5f 73  db36231 func a_s
ed10: 74 72 69 6e 67 20 61 5f 73 74 72 69 6e 67 20 7d  tring a_string }
ed20: 0a 20 20 65 78 65 63 73 71 6c 20 24 73 71 6c 20  .  execsql $sql 
ed30: 64 62 33 36 32 33 31 0a 20 20 64 62 33 36 32 33  db36231.  db3623
ed40: 31 20 63 6c 6f 73 65 0a 20 20 68 65 78 69 6f 5f  1 close.  hexio_
ed50: 77 72 69 74 65 20 74 65 73 74 2e 64 62 20 32 38  write test.db 28
ed60: 20 24 41 0a 20 20 68 65 78 69 6f 5f 77 72 69 74   $A.  hexio_writ
ed70: 65 20 74 65 73 74 2e 64 62 20 39 32 20 24 42 0a  e test.db 92 $B.
ed80: 20 20 72 65 74 75 72 6e 20 22 22 0a 7d 0a 0a 70    return "".}..p
ed90: 72 6f 63 20 64 62 5f 73 61 76 65 20 7b 7d 20 7b  roc db_save {} {
eda0: 0a 20 20 66 6f 72 65 61 63 68 20 66 20 5b 67 6c  .  foreach f [gl
edb0: 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 73  ob -nocomplain s
edc0: 76 5f 74 65 73 74 2e 64 62 2a 5d 20 7b 20 66 6f  v_test.db*] { fo
edd0: 72 63 65 64 65 6c 65 74 65 20 24 66 20 7d 0a 20  rcedelete $f }. 
ede0: 20 66 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f 62   foreach f [glob
edf0: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 73   -nocomplain tes
ee00: 74 2e 64 62 2a 5d 20 7b 0a 20 20 20 20 73 65 74  t.db*] {.    set
ee10: 20 66 32 20 22 73 76 5f 24 66 22 0a 20 20 20 20   f2 "sv_$f".    
ee20: 66 6f 72 63 65 63 6f 70 79 20 24 66 20 24 66 32  forcecopy $f $f2
ee30: 0a 20 20 7d 0a 7d 0a 70 72 6f 63 20 64 62 5f 73  .  }.}.proc db_s
ee40: 61 76 65 5f 61 6e 64 5f 63 6c 6f 73 65 20 7b 7d  ave_and_close {}
ee50: 20 7b 0a 20 20 64 62 5f 73 61 76 65 0a 20 20 63   {.  db_save.  c
ee60: 61 74 63 68 20 7b 20 64 62 20 63 6c 6f 73 65 20  atch { db close 
ee70: 7d 0a 20 20 72 65 74 75 72 6e 20 22 22 0a 7d 0a  }.  return "".}.
ee80: 70 72 6f 63 20 64 62 5f 72 65 73 74 6f 72 65 20  proc db_restore 
ee90: 7b 7d 20 7b 0a 20 20 66 6f 72 65 61 63 68 20 66  {} {.  foreach f
eea0: 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61   [glob -nocompla
eeb0: 69 6e 20 74 65 73 74 2e 64 62 2a 5d 20 7b 20 66  in test.db*] { f
eec0: 6f 72 63 65 64 65 6c 65 74 65 20 24 66 20 7d 0a  orcedelete $f }.
eed0: 20 20 66 6f 72 65 61 63 68 20 66 32 20 5b 67 6c    foreach f2 [gl
eee0: 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 73  ob -nocomplain s
eef0: 76 5f 74 65 73 74 2e 64 62 2a 5d 20 7b 0a 20 20  v_test.db*] {.  
ef00: 20 20 73 65 74 20 66 20 5b 73 74 72 69 6e 67 20    set f [string 
ef10: 72 61 6e 67 65 20 24 66 32 20 33 20 65 6e 64 5d  range $f2 3 end]
ef20: 0a 20 20 20 20 66 6f 72 63 65 63 6f 70 79 20 24  .    forcecopy $
ef30: 66 32 20 24 66 0a 20 20 7d 0a 7d 0a 70 72 6f 63  f2 $f.  }.}.proc
ef40: 20 64 62 5f 72 65 73 74 6f 72 65 5f 61 6e 64 5f   db_restore_and_
ef50: 72 65 6f 70 65 6e 20 7b 7b 64 62 66 69 6c 65 20  reopen {{dbfile 
ef60: 74 65 73 74 2e 64 62 7d 7d 20 7b 0a 20 20 63 61  test.db}} {.  ca
ef70: 74 63 68 20 7b 20 64 62 20 63 6c 6f 73 65 20 7d  tch { db close }
ef80: 0a 20 20 64 62 5f 72 65 73 74 6f 72 65 0a 20 20  .  db_restore.  
ef90: 73 71 6c 69 74 65 33 20 64 62 20 24 64 62 66 69  sqlite3 db $dbfi
efa0: 6c 65 0a 7d 0a 70 72 6f 63 20 64 62 5f 64 65 6c  le.}.proc db_del
efb0: 65 74 65 5f 61 6e 64 5f 72 65 6f 70 65 6e 20 7b  ete_and_reopen {
efc0: 7b 66 69 6c 65 20 74 65 73 74 2e 64 62 7d 7d 20  {file test.db}} 
efd0: 7b 0a 20 20 63 61 74 63 68 20 7b 20 64 62 20 63  {.  catch { db c
efe0: 6c 6f 73 65 20 7d 0a 20 20 66 6f 72 65 61 63 68  lose }.  foreach
eff0: 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70   f [glob -nocomp
f000: 6c 61 69 6e 20 74 65 73 74 2e 64 62 2a 5d 20 7b  lain test.db*] {
f010: 20 66 6f 72 63 65 64 65 6c 65 74 65 20 24 66 20   forcedelete $f 
f020: 7d 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20 24  }.  sqlite3 db $
f030: 66 69 6c 65 0a 7d 0a 0a 23 20 43 6c 6f 73 65 20  file.}..# Close 
f040: 61 6e 79 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20  any connections 
f050: 6e 61 6d 65 64 20 5b 64 62 5d 2c 20 5b 64 62 32  named [db], [db2
f060: 5d 20 6f 72 20 5b 64 62 33 5d 2e 20 54 68 65 6e  ] or [db3]. Then
f070: 20 75 73 65 20 73 71 6c 69 74 65 33 5f 63 6f 6e   use sqlite3_con
f080: 66 69 67 0a 23 20 74 6f 20 63 6f 6e 66 69 67 75  fig.# to configu
f090: 72 65 20 74 68 65 20 73 69 7a 65 20 6f 66 20 74  re the size of t
f0a0: 68 65 20 50 41 47 45 43 41 43 48 45 20 61 6c 6c  he PAGECACHE all
f0b0: 6f 63 61 74 69 6f 6e 20 75 73 69 6e 67 20 74 68  ocation using th
f0c0: 65 20 70 61 72 61 6d 65 74 65 72 73 0a 23 20 70  e parameters.# p
f0d0: 72 6f 76 69 64 65 64 20 74 6f 20 74 68 69 73 20  rovided to this 
f0e0: 63 6f 6d 6d 61 6e 64 2e 20 53 61 76 65 20 74 68  command. Save th
f0f0: 65 20 6f 6c 64 20 50 41 47 45 43 41 43 48 45 20  e old PAGECACHE 
f100: 70 61 72 61 6d 65 74 65 72 73 20 69 6e 20 61 20  parameters in a 
f110: 67 6c 6f 62 61 6c 20 0a 23 20 76 61 72 69 61 62  global .# variab
f120: 6c 65 20 73 6f 20 74 68 61 74 20 5b 74 65 73 74  le so that [test
f130: 5f 72 65 73 74 6f 72 65 5f 63 6f 6e 66 69 67 5f  _restore_config_
f140: 70 61 67 65 63 61 63 68 65 5d 20 63 61 6e 20 72  pagecache] can r
f150: 65 73 74 6f 72 65 20 74 68 65 20 70 72 65 76 69  estore the previ
f160: 6f 75 73 0a 23 20 63 6f 6e 66 69 67 75 72 61 74  ous.# configurat
f170: 69 6f 6e 2e 0a 23 0a 23 20 42 65 66 6f 72 65 20  ion..#.# Before 
f180: 72 65 74 75 72 6e 69 6e 67 2c 20 72 65 6f 70 65  returning, reope
f190: 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 5b 64 62  n connection [db
f1a0: 5d 20 6f 6e 20 66 69 6c 65 20 74 65 73 74 2e 64  ] on file test.d
f1b0: 62 2e 0a 23 0a 70 72 6f 63 20 74 65 73 74 5f 73  b..#.proc test_s
f1c0: 65 74 5f 63 6f 6e 66 69 67 5f 70 61 67 65 63 61  et_config_pageca
f1d0: 63 68 65 20 7b 73 7a 20 6e 50 67 7d 20 7b 0a 20  che {sz nPg} {. 
f1e0: 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65   catch {db close
f1f0: 7d 0a 20 20 63 61 74 63 68 20 7b 64 62 32 20 63  }.  catch {db2 c
f200: 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68 20 7b 64  lose}.  catch {d
f210: 62 33 20 63 6c 6f 73 65 7d 0a 0a 20 20 73 71 6c  b3 close}..  sql
f220: 69 74 65 33 5f 73 68 75 74 64 6f 77 6e 0a 20 20  ite3_shutdown.  
f230: 73 65 74 20 3a 3a 6f 6c 64 5f 70 61 67 65 63 61  set ::old_pageca
f240: 63 68 65 5f 63 6f 6e 66 69 67 20 5b 73 71 6c 69  che_config [sqli
f250: 74 65 33 5f 63 6f 6e 66 69 67 5f 70 61 67 65 63  te3_config_pagec
f260: 61 63 68 65 20 24 73 7a 20 24 6e 50 67 5d 0a 20  ache $sz $nPg]. 
f270: 20 73 71 6c 69 74 65 33 5f 69 6e 69 74 69 61 6c   sqlite3_initial
f280: 69 7a 65 0a 20 20 61 75 74 6f 69 6e 73 74 61 6c  ize.  autoinstal
f290: 6c 5f 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 73  l_test_functions
f2a0: 0a 20 20 72 65 73 65 74 5f 64 62 0a 7d 0a 0a 23  .  reset_db.}..#
f2b0: 20 43 6c 6f 73 65 20 61 6e 79 20 63 6f 6e 6e 65   Close any conne
f2c0: 63 74 69 6f 6e 73 20 6e 61 6d 65 64 20 5b 64 62  ctions named [db
f2d0: 5d 2c 20 5b 64 62 32 5d 20 6f 72 20 5b 64 62 33  ], [db2] or [db3
f2e0: 5d 2e 20 54 68 65 6e 20 75 73 65 20 73 71 6c 69  ]. Then use sqli
f2f0: 74 65 33 5f 63 6f 6e 66 69 67 0a 23 20 74 6f 20  te3_config.# to 
f300: 63 6f 6e 66 69 67 75 72 65 20 74 68 65 20 73 69  configure the si
f310: 7a 65 20 6f 66 20 74 68 65 20 50 41 47 45 43 41  ze of the PAGECA
f320: 43 48 45 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 74  CHE allocation t
f330: 6f 20 74 68 65 20 73 69 7a 65 20 73 61 76 65 64  o the size saved
f340: 20 69 6e 0a 23 20 74 68 65 20 67 6c 6f 62 61 6c   in.# the global
f350: 20 76 61 72 69 61 62 6c 65 20 62 79 20 61 6e 20   variable by an 
f360: 65 61 72 6c 69 65 72 20 63 61 6c 6c 20 74 6f 20  earlier call to 
f370: 5b 74 65 73 74 5f 73 65 74 5f 63 6f 6e 66 69 67  [test_set_config
f380: 5f 70 61 67 65 63 61 63 68 65 5d 2e 0a 23 0a 23  _pagecache]..#.#
f390: 20 42 65 66 6f 72 65 20 72 65 74 75 72 6e 69 6e   Before returnin
f3a0: 67 2c 20 72 65 6f 70 65 6e 20 63 6f 6e 6e 65 63  g, reopen connec
f3b0: 74 69 6f 6e 20 5b 64 62 5d 20 6f 6e 20 66 69 6c  tion [db] on fil
f3c0: 65 20 74 65 73 74 2e 64 62 2e 0a 23 0a 70 72 6f  e test.db..#.pro
f3d0: 63 20 74 65 73 74 5f 72 65 73 74 6f 72 65 5f 63  c test_restore_c
f3e0: 6f 6e 66 69 67 5f 70 61 67 65 63 61 63 68 65 20  onfig_pagecache 
f3f0: 7b 7d 20 7b 0a 20 20 63 61 74 63 68 20 7b 64 62  {} {.  catch {db
f400: 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68 20   close}.  catch 
f410: 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 20 20 63 61  {db2 close}.  ca
f420: 74 63 68 20 7b 64 62 33 20 63 6c 6f 73 65 7d 0a  tch {db3 close}.
f430: 0a 20 20 73 71 6c 69 74 65 33 5f 73 68 75 74 64  .  sqlite3_shutd
f440: 6f 77 6e 0a 20 20 65 76 61 6c 20 73 71 6c 69 74  own.  eval sqlit
f450: 65 33 5f 63 6f 6e 66 69 67 5f 70 61 67 65 63 61  e3_config_pageca
f460: 63 68 65 20 24 3a 3a 6f 6c 64 5f 70 61 67 65 63  che $::old_pagec
f470: 61 63 68 65 5f 63 6f 6e 66 69 67 0a 20 20 75 6e  ache_config.  un
f480: 73 65 74 20 3a 3a 6f 6c 64 5f 70 61 67 65 63 61  set ::old_pageca
f490: 63 68 65 5f 63 6f 6e 66 69 67 20 0a 20 20 73 71  che_config .  sq
f4a0: 6c 69 74 65 33 5f 69 6e 69 74 69 61 6c 69 7a 65  lite3_initialize
f4b0: 0a 20 20 61 75 74 6f 69 6e 73 74 61 6c 6c 5f 74  .  autoinstall_t
f4c0: 65 73 74 5f 66 75 6e 63 74 69 6f 6e 73 0a 20 20  est_functions.  
f4d0: 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e  sqlite3 db test.
f4e0: 64 62 0a 7d 0a 0a 23 20 49 66 20 74 68 65 20 6c  db.}..# If the l
f4f0: 69 62 72 61 72 79 20 69 73 20 63 6f 6d 70 69 6c  ibrary is compil
f500: 65 64 20 77 69 74 68 20 74 68 65 20 53 51 4c 49  ed with the SQLI
f510: 54 45 5f 44 45 46 41 55 4c 54 5f 41 55 54 4f 56  TE_DEFAULT_AUTOV
f520: 41 43 55 55 4d 20 6d 61 63 72 6f 20 73 65 74 0a  ACUUM macro set.
f530: 23 20 74 6f 20 6e 6f 6e 2d 7a 65 72 6f 2c 20 74  # to non-zero, t
f540: 68 65 6e 20 73 65 74 20 74 68 65 20 67 6c 6f 62  hen set the glob
f550: 61 6c 20 76 61 72 69 61 62 6c 65 20 24 41 55 54  al variable $AUT
f560: 4f 56 41 43 55 55 4d 20 74 6f 20 31 2e 0a 73 65  OVACUUM to 1..se
f570: 74 20 41 55 54 4f 56 41 43 55 55 4d 20 24 73 71  t AUTOVACUUM $sq
f580: 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 28 64 65 66  lite_options(def
f590: 61 75 6c 74 5f 61 75 74 6f 76 61 63 75 75 6d 29  ault_autovacuum)
f5a0: 0a 0a 23 20 4d 61 6b 65 20 73 75 72 65 20 74 68  ..# Make sure th
f5b0: 65 20 46 54 53 20 65 6e 68 61 6e 63 65 64 20 71  e FTS enhanced q
f5c0: 75 65 72 79 20 73 79 6e 74 61 78 20 69 73 20 64  uery syntax is d
f5d0: 69 73 61 62 6c 65 64 2e 0a 73 65 74 20 73 71 6c  isabled..set sql
f5e0: 69 74 65 5f 66 74 73 33 5f 65 6e 61 62 6c 65 5f  ite_fts3_enable_
f5f0: 70 61 72 65 6e 74 68 65 73 65 73 20 30 0a 0a 23  parentheses 0..#
f600: 20 44 75 72 69 6e 67 20 74 65 73 74 69 6e 67 2c   During testing,
f610: 20 61 73 73 75 6d 65 20 74 68 61 74 20 61 6c 6c   assume that all
f620: 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 73 20   database files 
f630: 61 72 65 20 77 65 6c 6c 2d 66 6f 72 6d 65 64 2e  are well-formed.
f640: 20 20 54 68 65 0a 23 20 66 65 77 20 74 65 73 74    The.# few test
f650: 20 63 61 73 65 73 20 74 68 61 74 20 64 65 6c 69   cases that deli
f660: 62 65 72 61 74 65 6c 79 20 63 6f 72 72 75 70 74  berately corrupt
f670: 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 73 20   database files 
f680: 73 68 6f 75 6c 64 20 72 65 73 63 69 6e 64 20 0a  should rescind .
f690: 23 20 74 68 69 73 20 73 65 74 74 69 6e 67 20 62  # this setting b
f6a0: 79 20 69 6e 76 6f 6b 69 6e 67 20 22 64 61 74 61  y invoking "data
f6b0: 62 61 73 65 5f 63 61 6e 5f 62 65 5f 63 6f 72 72  base_can_be_corr
f6c0: 75 70 74 22 0a 23 0a 64 61 74 61 62 61 73 65 5f  upt".#.database_
f6d0: 6e 65 76 65 72 5f 63 6f 72 72 75 70 74 0a 0a 73  never_corrupt..s
f6e0: 6f 75 72 63 65 20 24 74 65 73 74 64 69 72 2f 74  ource $testdir/t
f6f0: 68 72 65 61 64 5f 63 6f 6d 6d 6f 6e 2e 74 63 6c  hread_common.tcl
f700: 0a 73 6f 75 72 63 65 20 24 74 65 73 74 64 69 72  .source $testdir
f710: 2f 6d 61 6c 6c 6f 63 5f 63 6f 6d 6d 6f 6e 2e 74  /malloc_common.t
f720: 63 6c 0a                                         cl.