/ Hex Artifact Content
Login

Artifact 5e4888b6bfa9862716531c085a7d450d80427884:


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 50 72 69 6e 74 20 61 20 48 45 4c  }..# Print a HEL
2bd0: 50 20 6d 65 73 73 61 67 65 20 61 6e 64 20 65 78  P message and ex
2be0: 69 74 0a 23 0a 70 72 6f 63 20 70 72 69 6e 74 5f  it.#.proc print_
2bf0: 68 65 6c 70 5f 61 6e 64 5f 71 75 69 74 20 7b 7d  help_and_quit {}
2c00: 20 7b 0a 20 20 70 75 74 73 20 7b 4f 70 74 69 6f   {.  puts {Optio
2c10: 6e 73 3a 0a 20 20 2d 2d 70 61 75 73 65 20 20 20  ns:.  --pause   
2c20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57                 W
2c30: 61 69 74 20 66 6f 72 20 75 73 65 72 20 69 6e 70  ait for user inp
2c40: 75 74 20 62 65 66 6f 72 65 20 63 6f 6e 74 69 6e  ut before contin
2c50: 75 69 6e 67 0a 20 20 2d 2d 73 6f 66 74 2d 68 65  uing.  --soft-he
2c60: 61 70 2d 6c 69 6d 69 74 3d 4e 20 20 20 20 20 20  ap-limit=N      
2c70: 53 65 74 20 74 68 65 20 73 6f 66 74 2d 68 65 61  Set the soft-hea
2c80: 70 2d 6c 69 6d 69 74 20 74 6f 20 4e 0a 20 20 2d  p-limit to N.  -
2c90: 2d 6d 61 78 65 72 72 6f 72 3d 4e 20 20 20 20 20  -maxerror=N     
2ca0: 20 20 20 20 20 20 20 20 51 75 69 74 20 61 66 74          Quit aft
2cb0: 65 72 20 4e 20 65 72 72 6f 72 73 0a 20 20 2d 2d  er N errors.  --
2cc0: 76 65 72 62 6f 73 65 3d 28 30 7c 31 29 20 20 20  verbose=(0|1)   
2cd0: 20 20 20 20 20 20 20 43 6f 6e 74 72 6f 6c 20 74         Control t
2ce0: 68 65 20 61 6d 6f 75 6e 74 20 6f 66 20 6f 75 74  he amount of out
2cf0: 70 75 74 2e 20 20 44 65 66 61 75 6c 74 20 27 31  put.  Default '1
2d00: 27 0a 20 20 2d 2d 6f 75 74 70 75 74 3d 46 49 4c  '.  --output=FIL
2d10: 45 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74  E            set
2d20: 20 2d 2d 76 65 72 62 6f 73 65 3d 32 20 61 6e 64   --verbose=2 and
2d30: 20 6f 75 74 70 75 74 20 74 6f 20 46 49 4c 45 2e   output to FILE.
2d40: 20 20 49 6d 70 6c 69 65 73 20 2d 71 0a 20 20 2d    Implies -q.  -
2d50: 71 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  q               
2d60: 20 20 20 20 20 20 20 20 53 68 6f 72 74 68 61 6e          Shorthan
2d70: 64 20 66 6f 72 20 2d 2d 76 65 72 62 6f 73 65 3d  d for --verbose=
2d80: 30 0a 20 20 2d 2d 68 65 6c 70 20 20 20 20 20 20  0.  --help      
2d90: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 68 69               Thi
2da0: 73 20 6d 65 73 73 61 67 65 0a 7d 0a 20 20 65 78  s message.}.  ex
2db0: 69 74 20 31 0a 7d 0a 0a 23 20 54 68 65 20 66 6f  it 1.}..# The fo
2dc0: 6c 6c 6f 77 69 6e 67 20 62 6c 6f 63 6b 20 6f 6e  llowing block on
2dd0: 6c 79 20 72 75 6e 73 20 74 68 65 20 66 69 72 73  ly runs the firs
2de0: 74 20 74 69 6d 65 20 74 68 69 73 20 66 69 6c 65  t time this file
2df0: 20 69 73 20 73 6f 75 72 63 65 64 2e 20 49 74 0a   is sourced. It.
2e00: 23 20 64 6f 65 73 20 6e 6f 74 20 72 75 6e 20 69  # does not run i
2e10: 6e 20 73 6c 61 76 65 20 69 6e 74 65 72 70 72 65  n slave interpre
2e20: 74 65 72 73 20 28 73 69 6e 63 65 20 74 68 65 20  ters (since the 
2e30: 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 20 61 72 72  ::cmdlinearg arr
2e40: 61 79 20 69 73 0a 23 20 70 6f 70 75 6c 61 74 65  ay is.# populate
2e50: 64 20 62 65 66 6f 72 65 20 74 68 65 20 74 65 73  d before the tes
2e60: 74 20 73 63 72 69 70 74 20 69 73 20 72 75 6e 20  t script is run 
2e70: 69 6e 20 73 6c 61 76 65 20 69 6e 74 65 72 70 72  in slave interpr
2e80: 65 74 65 72 73 29 2e 0a 23 0a 69 66 20 7b 5b 69  eters)..#.if {[i
2e90: 6e 66 6f 20 65 78 69 73 74 73 20 63 6d 64 6c 69  nfo exists cmdli
2ea0: 6e 65 61 72 67 5d 3d 3d 30 7d 20 7b 0a 0a 20 20  nearg]==0} {..  
2eb0: 23 20 50 61 72 73 65 20 61 6e 79 20 6f 70 74 69  # Parse any opti
2ec0: 6f 6e 73 20 73 70 65 63 69 66 69 65 64 20 69 6e  ons specified in
2ed0: 20 74 68 65 20 24 61 72 67 76 20 61 72 72 61 79   the $argv array
2ee0: 2e 20 54 68 69 73 20 73 63 72 69 70 74 20 61 63  . This script ac
2ef0: 63 65 70 74 73 20 74 68 65 0a 20 20 23 20 66 6f  cepts the.  # fo
2f00: 6c 6c 6f 77 69 6e 67 20 6f 70 74 69 6f 6e 73 3a  llowing options:
2f10: 0a 20 20 23 0a 20 20 23 20 20 20 2d 2d 70 61 75  .  #.  #   --pau
2f20: 73 65 0a 20 20 23 20 20 20 2d 2d 73 6f 66 74 2d  se.  #   --soft-
2f30: 68 65 61 70 2d 6c 69 6d 69 74 3d 4e 4e 0a 20 20  heap-limit=NN.  
2f40: 23 20 20 20 2d 2d 6d 61 78 65 72 72 6f 72 3d 4e  #   --maxerror=N
2f50: 4e 0a 20 20 23 20 20 20 2d 2d 6d 61 6c 6c 6f 63  N.  #   --malloc
2f60: 74 72 61 63 65 3d 4e 0a 20 20 23 20 20 20 2d 2d  trace=N.  #   --
2f70: 62 61 63 6b 74 72 61 63 65 3d 4e 0a 20 20 23 20  backtrace=N.  # 
2f80: 20 20 2d 2d 62 69 6e 61 72 79 6c 6f 67 3d 4e 0a    --binarylog=N.
2f90: 20 20 23 20 20 20 2d 2d 73 6f 61 6b 3d 4e 0a 20    #   --soak=N. 
2fa0: 20 23 20 20 20 2d 2d 66 69 6c 65 2d 72 65 74 72   #   --file-retr
2fb0: 69 65 73 3d 4e 0a 20 20 23 20 20 20 2d 2d 66 69  ies=N.  #   --fi
2fc0: 6c 65 2d 72 65 74 72 79 2d 64 65 6c 61 79 3d 4e  le-retry-delay=N
2fd0: 0a 20 20 23 20 20 20 2d 2d 73 74 61 72 74 3d 5b  .  #   --start=[
2fe0: 24 70 65 72 6d 75 74 61 74 69 6f 6e 3a 5d 24 74  $permutation:]$t
2ff0: 65 73 74 66 69 6c 65 0a 20 20 23 20 20 20 2d 2d  estfile.  #   --
3000: 6d 61 74 63 68 3d 24 70 61 74 74 65 72 6e 0a 20  match=$pattern. 
3010: 20 23 20 20 20 2d 2d 76 65 72 62 6f 73 65 3d 24   #   --verbose=$
3020: 76 61 6c 0a 20 20 23 20 20 20 2d 2d 6f 75 74 70  val.  #   --outp
3030: 75 74 3d 24 66 69 6c 65 6e 61 6d 65 0a 20 20 23  ut=$filename.  #
3040: 20 20 20 2d 71 20 20 20 20 20 20 20 20 20 20 20     -q           
3050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3060: 20 20 20 20 20 20 20 20 20 20 20 52 65 64 75 63             Reduc
3070: 65 20 6f 75 74 70 75 74 0a 20 20 23 20 20 20 2d  e output.  #   -
3080: 2d 74 65 73 74 64 69 72 3d 24 64 69 72 20 20 20  -testdir=$dir   
3090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
30a0: 20 20 20 20 20 20 20 52 75 6e 20 74 65 73 74 73         Run tests
30b0: 20 69 6e 20 73 75 62 64 69 72 65 63 74 6f 72 79   in subdirectory
30c0: 20 24 64 69 72 0a 20 20 23 20 20 20 2d 2d 68 65   $dir.  #   --he
30d0: 6c 70 0a 20 20 23 0a 20 20 73 65 74 20 63 6d 64  lp.  #.  set cmd
30e0: 6c 69 6e 65 61 72 67 28 73 6f 66 74 2d 68 65 61  linearg(soft-hea
30f0: 70 2d 6c 69 6d 69 74 29 20 20 20 20 30 0a 20 20  p-limit)    0.  
3100: 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 6d  set cmdlinearg(m
3110: 61 78 65 72 72 6f 72 29 20 20 20 20 20 20 20 20  axerror)        
3120: 31 30 30 30 0a 20 20 73 65 74 20 63 6d 64 6c 69  1000.  set cmdli
3130: 6e 65 61 72 67 28 6d 61 6c 6c 6f 63 74 72 61 63  nearg(malloctrac
3140: 65 29 20 20 20 20 20 20 20 20 30 0a 20 20 73 65  e)        0.  se
3150: 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 62 61 63  t cmdlinearg(bac
3160: 6b 74 72 61 63 65 29 20 20 20 20 20 20 20 20 20  ktrace)         
3170: 31 30 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e 65  10.  set cmdline
3180: 61 72 67 28 62 69 6e 61 72 79 6c 6f 67 29 20 20  arg(binarylog)  
3190: 20 20 20 20 20 20 20 20 30 0a 20 20 73 65 74 20          0.  set 
31a0: 63 6d 64 6c 69 6e 65 61 72 67 28 73 6f 61 6b 29  cmdlinearg(soak)
31b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30                 0
31c0: 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72  .  set cmdlinear
31d0: 67 28 66 69 6c 65 2d 72 65 74 72 69 65 73 29 20  g(file-retries) 
31e0: 20 20 20 20 20 20 30 0a 20 20 73 65 74 20 63 6d        0.  set cm
31f0: 64 6c 69 6e 65 61 72 67 28 66 69 6c 65 2d 72 65  dlinearg(file-re
3200: 74 72 79 2d 64 65 6c 61 79 29 20 20 20 30 0a 20  try-delay)   0. 
3210: 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 28   set cmdlinearg(
3220: 73 74 61 72 74 29 20 20 20 20 20 20 20 20 20 20  start)          
3230: 20 20 20 22 22 0a 20 20 73 65 74 20 63 6d 64 6c     "".  set cmdl
3240: 69 6e 65 61 72 67 28 6d 61 74 63 68 29 20 20 20  inearg(match)   
3250: 20 20 20 20 20 20 20 20 20 20 22 22 0a 20 20 73            "".  s
3260: 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 76 65  et cmdlinearg(ve
3270: 72 62 6f 73 65 29 20 20 20 20 20 20 20 20 20 20  rbose)          
3280: 20 22 22 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e   "".  set cmdlin
3290: 65 61 72 67 28 6f 75 74 70 75 74 29 20 20 20 20  earg(output)    
32a0: 20 20 20 20 20 20 20 20 22 22 0a 20 20 73 65 74          "".  set
32b0: 20 63 6d 64 6c 69 6e 65 61 72 67 28 74 65 73 74   cmdlinearg(test
32c0: 64 69 72 29 20 20 20 20 20 20 20 20 20 20 20 22  dir)           "
32d0: 74 65 73 74 64 69 72 22 0a 0a 20 20 73 65 74 20  testdir"..  set 
32e0: 6c 65 66 74 6f 76 65 72 20 5b 6c 69 73 74 5d 0a  leftover [list].
32f0: 20 20 66 6f 72 65 61 63 68 20 61 20 24 61 72 67    foreach a $arg
3300: 76 20 7b 0a 20 20 20 20 73 77 69 74 63 68 20 2d  v {.    switch -
3310: 72 65 67 65 78 70 20 2d 2d 20 24 61 20 7b 0a 20  regexp -- $a {. 
3320: 20 20 20 20 20 7b 5e 2d 2b 70 61 75 73 65 24 7d       {^-+pause$}
3330: 20 7b 0a 20 20 20 20 20 20 20 20 23 20 57 61 69   {.        # Wai
3340: 74 20 66 6f 72 20 75 73 65 72 20 69 6e 70 75 74  t for user input
3350: 20 62 65 66 6f 72 65 20 63 6f 6e 74 69 6e 75 69   before continui
3360: 6e 67 2e 20 54 68 69 73 20 69 73 20 74 6f 20 67  ng. This is to g
3370: 69 76 65 20 74 68 65 20 75 73 65 72 20 61 6e 0a  ive the user an.
3380: 20 20 20 20 20 20 20 20 23 20 6f 70 70 6f 72 74          # opport
3390: 75 6e 69 74 79 20 74 6f 20 63 6f 6e 6e 65 63 74  unity to connect
33a0: 20 70 72 6f 66 69 6c 69 6e 67 20 74 6f 6f 6c 73   profiling tools
33b0: 20 74 6f 20 74 68 65 20 70 72 6f 63 65 73 73 2e   to the process.
33c0: 0a 20 20 20 20 20 20 20 20 70 75 74 73 20 2d 6e  .        puts -n
33d0: 6f 6e 65 77 6c 69 6e 65 20 22 50 72 65 73 73 20  onewline "Press 
33e0: 52 45 54 55 52 4e 20 74 6f 20 62 65 67 69 6e 2e  RETURN to begin.
33f0: 2e 2e 22 0a 20 20 20 20 20 20 20 20 66 6c 75 73  ..".        flus
3400: 68 20 73 74 64 6f 75 74 0a 20 20 20 20 20 20 20  h stdout.       
3410: 20 67 65 74 73 20 73 74 64 69 6e 0a 20 20 20 20   gets stdin.    
3420: 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 73 6f    }.      {^-+so
3430: 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74 3d 2e 2b  ft-heap-limit=.+
3440: 24 7d 20 7b 0a 20 20 20 20 20 20 20 20 66 6f 72  $} {.        for
3450: 65 61 63 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c  each {dummy cmdl
3460: 69 6e 65 61 72 67 28 73 6f 66 74 2d 68 65 61 70  inearg(soft-heap
3470: 2d 6c 69 6d 69 74 29 7d 20 5b 73 70 6c 69 74 20  -limit)} [split 
3480: 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20  $a =] break.    
3490: 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 6d 61    }.      {^-+ma
34a0: 78 65 72 72 6f 72 3d 2e 2b 24 7d 20 7b 0a 20 20  xerror=.+$} {.  
34b0: 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64        foreach {d
34c0: 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28  ummy cmdlinearg(
34d0: 6d 61 78 65 72 72 6f 72 29 7d 20 5b 73 70 6c 69  maxerror)} [spli
34e0: 74 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20  t $a =] break.  
34f0: 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b      }.      {^-+
3500: 6d 61 6c 6c 6f 63 74 72 61 63 65 3d 2e 2b 24 7d  malloctrace=.+$}
3510: 20 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61   {.        forea
3520: 63 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e  ch {dummy cmdlin
3530: 65 61 72 67 28 6d 61 6c 6c 6f 63 74 72 61 63 65  earg(malloctrace
3540: 29 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20  )} [split $a =] 
3550: 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 69 66  break.        if
3560: 20 7b 24 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61   {$cmdlinearg(ma
3570: 6c 6c 6f 63 74 72 61 63 65 29 7d 20 7b 0a 20 20  lloctrace)} {.  
3580: 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f          sqlite3_
3590: 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 20 73 74 61  memdebug_log sta
35a0: 72 74 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20  rt.        }.   
35b0: 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 62     }.      {^-+b
35c0: 61 63 6b 74 72 61 63 65 3d 2e 2b 24 7d 20 7b 0a  acktrace=.+$} {.
35d0: 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20          foreach 
35e0: 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72  {dummy cmdlinear
35f0: 67 28 62 61 63 6b 74 72 61 63 65 29 7d 20 5b 73  g(backtrace)} [s
3600: 70 6c 69 74 20 24 61 20 3d 5d 20 62 72 65 61 6b  plit $a =] break
3610: 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33  .        sqlite3
3620: 5f 6d 65 6d 64 65 62 75 67 5f 62 61 63 6b 74 72  _memdebug_backtr
3630: 61 63 65 20 24 76 61 6c 75 65 0a 20 20 20 20 20  ace $value.     
3640: 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 62 69 6e   }.      {^-+bin
3650: 61 72 79 6c 6f 67 3d 2e 2b 24 7d 20 7b 0a 20 20  arylog=.+$} {.  
3660: 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64        foreach {d
3670: 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28  ummy cmdlinearg(
3680: 62 69 6e 61 72 79 6c 6f 67 29 7d 20 5b 73 70 6c  binarylog)} [spl
3690: 69 74 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20  it $a =] break. 
36a0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d       }.      {^-
36b0: 2b 73 6f 61 6b 3d 2e 2b 24 7d 20 7b 0a 20 20 20  +soak=.+$} {.   
36c0: 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64 75       foreach {du
36d0: 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 73  mmy cmdlinearg(s
36e0: 6f 61 6b 29 7d 20 5b 73 70 6c 69 74 20 24 61 20  oak)} [split $a 
36f0: 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20 20 20 20  =] break.       
3700: 20 73 65 74 20 3a 3a 47 28 69 73 73 6f 61 6b 29   set ::G(issoak)
3710: 20 24 63 6d 64 6c 69 6e 65 61 72 67 28 73 6f 61   $cmdlinearg(soa
3720: 6b 29 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  k).      }.     
3730: 20 7b 5e 2d 2b 66 69 6c 65 2d 72 65 74 72 69 65   {^-+file-retrie
3740: 73 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20  s=.+$} {.       
3750: 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79 20   foreach {dummy 
3760: 63 6d 64 6c 69 6e 65 61 72 67 28 66 69 6c 65 2d  cmdlinearg(file-
3770: 72 65 74 72 69 65 73 29 7d 20 5b 73 70 6c 69 74  retries)} [split
3780: 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20   $a =] break.   
3790: 20 20 20 20 20 73 65 74 20 3a 3a 47 28 66 69 6c       set ::G(fil
37a0: 65 2d 72 65 74 72 69 65 73 29 20 24 63 6d 64 6c  e-retries) $cmdl
37b0: 69 6e 65 61 72 67 28 66 69 6c 65 2d 72 65 74 72  inearg(file-retr
37c0: 69 65 73 29 0a 20 20 20 20 20 20 7d 0a 20 20 20  ies).      }.   
37d0: 20 20 20 7b 5e 2d 2b 66 69 6c 65 2d 72 65 74 72     {^-+file-retr
37e0: 79 2d 64 65 6c 61 79 3d 2e 2b 24 7d 20 7b 0a 20  y-delay=.+$} {. 
37f0: 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b         foreach {
3800: 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67  dummy cmdlinearg
3810: 28 66 69 6c 65 2d 72 65 74 72 79 2d 64 65 6c 61  (file-retry-dela
3820: 79 29 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d  y)} [split $a =]
3830: 20 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 73   break.        s
3840: 65 74 20 3a 3a 47 28 66 69 6c 65 2d 72 65 74 72  et ::G(file-retr
3850: 79 2d 64 65 6c 61 79 29 20 24 63 6d 64 6c 69 6e  y-delay) $cmdlin
3860: 65 61 72 67 28 66 69 6c 65 2d 72 65 74 72 79 2d  earg(file-retry-
3870: 64 65 6c 61 79 29 0a 20 20 20 20 20 20 7d 0a 20  delay).      }. 
3880: 20 20 20 20 20 7b 5e 2d 2b 73 74 61 72 74 3d 2e       {^-+start=.
3890: 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20 20 66 6f  +$} {.        fo
38a0: 72 65 61 63 68 20 7b 64 75 6d 6d 79 20 63 6d 64  reach {dummy cmd
38b0: 6c 69 6e 65 61 72 67 28 73 74 61 72 74 29 7d 20  linearg(start)} 
38c0: 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20 62 72 65  [split $a =] bre
38d0: 61 6b 0a 0a 20 20 20 20 20 20 20 20 73 65 74 20  ak..        set 
38e0: 3a 3a 47 28 73 74 61 72 74 3a 66 69 6c 65 29 20  ::G(start:file) 
38f0: 24 63 6d 64 6c 69 6e 65 61 72 67 28 73 74 61 72  $cmdlinearg(star
3900: 74 29 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b  t).        if {[
3910: 72 65 67 65 78 70 20 7b 28 2e 2a 29 3a 28 2e 2a  regexp {(.*):(.*
3920: 29 7d 20 24 63 6d 64 6c 69 6e 65 61 72 67 28 73  )} $cmdlinearg(s
3930: 74 61 72 74 29 20 2d 3e 20 73 2e 70 65 72 6d 20  tart) -> s.perm 
3940: 73 2e 66 69 6c 65 5d 7d 20 7b 0a 20 20 20 20 20  s.file]} {.     
3950: 20 20 20 20 20 73 65 74 20 3a 3a 47 28 73 74 61       set ::G(sta
3960: 72 74 3a 70 65 72 6d 75 74 61 74 69 6f 6e 29 20  rt:permutation) 
3970: 24 7b 73 2e 70 65 72 6d 7d 0a 20 20 20 20 20 20  ${s.perm}.      
3980: 20 20 20 20 73 65 74 20 3a 3a 47 28 73 74 61 72      set ::G(star
3990: 74 3a 66 69 6c 65 29 20 20 20 20 20 20 20 20 24  t:file)        $
39a0: 7b 73 2e 66 69 6c 65 7d 0a 20 20 20 20 20 20 20  {s.file}.       
39b0: 20 7d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 24   }.        if {$
39c0: 3a 3a 47 28 73 74 61 72 74 3a 66 69 6c 65 29 20  ::G(start:file) 
39d0: 3d 3d 20 22 22 7d 20 7b 75 6e 73 65 74 20 3a 3a  == ""} {unset ::
39e0: 47 28 73 74 61 72 74 3a 66 69 6c 65 29 7d 0a 20  G(start:file)}. 
39f0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d       }.      {^-
3a00: 2b 6d 61 74 63 68 3d 2e 2b 24 7d 20 7b 0a 20 20  +match=.+$} {.  
3a10: 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64        foreach {d
3a20: 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28  ummy cmdlinearg(
3a30: 6d 61 74 63 68 29 7d 20 5b 73 70 6c 69 74 20 24  match)} [split $
3a40: 61 20 3d 5d 20 62 72 65 61 6b 0a 0a 20 20 20 20  a =] break..    
3a50: 20 20 20 20 73 65 74 20 3a 3a 47 28 6d 61 74 63      set ::G(matc
3a60: 68 29 20 24 63 6d 64 6c 69 6e 65 61 72 67 28 6d  h) $cmdlinearg(m
3a70: 61 74 63 68 29 0a 20 20 20 20 20 20 20 20 69 66  atch).        if
3a80: 20 7b 24 3a 3a 47 28 6d 61 74 63 68 29 20 3d 3d   {$::G(match) ==
3a90: 20 22 22 7d 20 7b 75 6e 73 65 74 20 3a 3a 47 28   ""} {unset ::G(
3aa0: 6d 61 74 63 68 29 7d 0a 20 20 20 20 20 20 7d 0a  match)}.      }.
3ab0: 0a 20 20 20 20 20 20 7b 5e 2d 2b 6f 75 74 70 75  .      {^-+outpu
3ac0: 74 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20  t=.+$} {.       
3ad0: 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79 20   foreach {dummy 
3ae0: 63 6d 64 6c 69 6e 65 61 72 67 28 6f 75 74 70 75  cmdlinearg(outpu
3af0: 74 29 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d  t)} [split $a =]
3b00: 20 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 69   break.        i
3b10: 66 20 7b 24 63 6d 64 6c 69 6e 65 61 72 67 28 76  f {$cmdlinearg(v
3b20: 65 72 62 6f 73 65 29 3d 3d 22 22 7d 20 7b 0a 20  erbose)==""} {. 
3b30: 20 20 20 20 20 20 20 20 20 73 65 74 20 63 6d 64           set cmd
3b40: 6c 69 6e 65 61 72 67 28 76 65 72 62 6f 73 65 29  linearg(verbose)
3b50: 20 32 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20   2.        }.   
3b60: 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 76     }.      {^-+v
3b70: 65 72 62 6f 73 65 3d 2e 2b 24 7d 20 7b 0a 20 20  erbose=.+$} {.  
3b80: 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64        foreach {d
3b90: 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28  ummy cmdlinearg(
3ba0: 76 65 72 62 6f 73 65 29 7d 20 5b 73 70 6c 69 74  verbose)} [split
3bb0: 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20   $a =] break.   
3bc0: 20 20 20 20 20 69 66 20 7b 24 63 6d 64 6c 69 6e       if {$cmdlin
3bd0: 65 61 72 67 28 76 65 72 62 6f 73 65 29 3d 3d 22  earg(verbose)=="
3be0: 66 69 6c 65 22 7d 20 7b 0a 20 20 20 20 20 20 20  file"} {.       
3bf0: 20 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72     set cmdlinear
3c00: 67 28 76 65 72 62 6f 73 65 29 20 32 0a 20 20 20  g(verbose) 2.   
3c10: 20 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b       } elseif {[
3c20: 73 74 72 69 6e 67 20 69 73 20 62 6f 6f 6c 65 61  string is boolea
3c30: 6e 20 2d 73 74 72 69 63 74 20 24 63 6d 64 6c 69  n -strict $cmdli
3c40: 6e 65 61 72 67 28 76 65 72 62 6f 73 65 29 5d 3d  nearg(verbose)]=
3c50: 3d 30 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20  =0} {.          
3c60: 65 72 72 6f 72 20 22 6f 70 74 69 6f 6e 20 2d 2d  error "option --
3c70: 76 65 72 62 6f 73 65 3d 20 6d 75 73 74 20 62 65  verbose= must be
3c80: 20 73 65 74 20 74 6f 20 61 20 62 6f 6f 6c 65 61   set to a boolea
3c90: 6e 20 6f 72 20 74 6f 20 5c 22 66 69 6c 65 5c 22  n or to \"file\"
3ca0: 22 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  ".        }.    
3cb0: 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 74 65    }.      {^-+te
3cc0: 73 74 64 69 72 3d 2e 2a 24 7d 20 7b 0a 20 20 20  stdir=.*$} {.   
3cd0: 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64 75       foreach {du
3ce0: 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 74  mmy cmdlinearg(t
3cf0: 65 73 74 64 69 72 29 7d 20 5b 73 70 6c 69 74 20  estdir)} [split 
3d00: 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20  $a =] break.    
3d10: 20 20 7d 0a 20 20 20 20 20 20 7b 2e 2a 68 65 6c    }.      {.*hel
3d20: 70 2e 2a 7d 20 7b 0a 20 20 20 20 20 20 20 20 20  p.*} {.         
3d30: 70 72 69 6e 74 5f 68 65 6c 70 5f 61 6e 64 5f 71  print_help_and_q
3d40: 75 69 74 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  uit.      }.    
3d50: 20 20 7b 5e 2d 71 24 7d 20 7b 0a 20 20 20 20 20    {^-q$} {.     
3d60: 20 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72     set cmdlinear
3d70: 67 28 6f 75 74 70 75 74 29 20 74 65 73 74 2d 6f  g(output) test-o
3d80: 75 74 2e 74 78 74 0a 20 20 20 20 20 20 20 20 73  ut.txt.        s
3d90: 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 76 65  et cmdlinearg(ve
3da0: 72 62 6f 73 65 29 20 32 0a 20 20 20 20 20 20 7d  rbose) 2.      }
3db0: 0a 0a 20 20 20 20 20 20 64 65 66 61 75 6c 74 20  ..      default 
3dc0: 7b 0a 20 20 20 20 20 20 20 20 6c 61 70 70 65 6e  {.        lappen
3dd0: 64 20 6c 65 66 74 6f 76 65 72 20 5b 66 69 6c 65  d leftover [file
3de0: 20 6e 6f 72 6d 61 6c 69 7a 65 20 24 61 5d 0a 20   normalize $a]. 
3df0: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d       }.    }.  }
3e00: 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72  .  set cmdlinear
3e10: 67 28 54 45 53 54 46 49 58 54 55 52 45 5f 48 4f  g(TESTFIXTURE_HO
3e20: 4d 45 29 20 5b 70 77 64 5d 0a 20 20 69 66 20 7b  ME) [pwd].  if {
3e30: 24 63 6d 64 6c 69 6e 65 61 72 67 28 74 65 73 74  $cmdlinearg(test
3e40: 64 69 72 29 21 3d 22 22 7d 20 7b 0a 20 20 20 20  dir)!=""} {.    
3e50: 66 69 6c 65 20 6d 6b 64 69 72 20 24 63 6d 64 6c  file mkdir $cmdl
3e60: 69 6e 65 61 72 67 28 74 65 73 74 64 69 72 29 0a  inearg(testdir).
3e70: 20 20 20 20 63 64 20 24 63 6d 64 6c 69 6e 65 61      cd $cmdlinea
3e80: 72 67 28 74 65 73 74 64 69 72 29 0a 20 20 7d 0a  rg(testdir).  }.
3e90: 20 20 73 65 74 20 61 72 67 76 20 24 6c 65 66 74    set argv $left
3ea0: 6f 76 65 72 0a 0a 20 20 23 20 49 6e 73 74 61 6c  over..  # Instal
3eb0: 6c 20 74 68 65 20 6d 61 6c 6c 6f 63 20 6c 61 79  l the malloc lay
3ec0: 65 72 20 75 73 65 64 20 74 6f 20 69 6e 6a 65 63  er used to injec
3ed0: 74 20 4f 4f 4d 20 65 72 72 6f 72 73 2e 20 41 6e  t OOM errors. An
3ee0: 64 20 74 68 65 20 27 61 75 74 6f 6d 61 74 69 63  d the 'automatic
3ef0: 27 0a 20 20 23 20 65 78 74 65 6e 73 69 6f 6e 73  '.  # extensions
3f00: 2e 20 54 68 69 73 20 6f 6e 6c 79 20 6e 65 65 64  . This only need
3f10: 73 20 74 6f 20 62 65 20 64 6f 6e 65 20 6f 6e 63  s to be done onc
3f20: 65 20 66 6f 72 20 74 68 65 20 70 72 6f 63 65 73  e for the proces
3f30: 73 2e 0a 20 20 23 0a 20 20 73 71 6c 69 74 65 33  s..  #.  sqlite3
3f40: 5f 73 68 75 74 64 6f 77 6e 0a 20 20 69 6e 73 74  _shutdown.  inst
3f50: 61 6c 6c 5f 6d 61 6c 6c 6f 63 5f 66 61 75 6c 74  all_malloc_fault
3f60: 73 69 6d 20 31 0a 20 20 73 71 6c 69 74 65 33 5f  sim 1.  sqlite3_
3f70: 69 6e 69 74 69 61 6c 69 7a 65 0a 20 20 61 75 74  initialize.  aut
3f80: 6f 69 6e 73 74 61 6c 6c 5f 74 65 73 74 5f 66 75  oinstall_test_fu
3f90: 6e 63 74 69 6f 6e 73 0a 0a 20 20 23 20 49 66 20  nctions..  # If 
3fa0: 74 68 65 20 2d 2d 62 69 6e 61 72 79 6c 6f 67 20  the --binarylog 
3fb0: 6f 70 74 69 6f 6e 20 77 61 73 20 73 70 65 63 69  option was speci
3fc0: 66 69 65 64 2c 20 63 72 65 61 74 65 20 74 68 65  fied, create the
3fd0: 20 6c 6f 67 67 69 6e 67 20 56 46 53 2e 20 54 68   logging VFS. Th
3fe0: 69 73 0a 20 20 23 20 63 61 6c 6c 20 69 6e 73 74  is.  # call inst
3ff0: 61 6c 6c 73 20 74 68 65 20 6e 65 77 20 56 46 53  alls the new VFS
4000: 20 61 73 20 74 68 65 20 64 65 66 61 75 6c 74 20   as the default 
4010: 66 6f 72 20 61 6c 6c 20 53 51 4c 69 74 65 20 63  for all SQLite c
4020: 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 20 20 23 0a  onnections..  #.
4030: 20 20 69 66 20 7b 24 63 6d 64 6c 69 6e 65 61 72    if {$cmdlinear
4040: 67 28 62 69 6e 61 72 79 6c 6f 67 29 7d 20 7b 0a  g(binarylog)} {.
4050: 20 20 20 20 76 66 73 6c 6f 67 20 6e 65 77 20 62      vfslog new b
4060: 69 6e 61 72 79 6c 6f 67 20 7b 7d 20 76 66 73 6c  inarylog {} vfsl
4070: 6f 67 2e 62 69 6e 0a 20 20 7d 0a 0a 20 20 23 20  og.bin.  }..  # 
4080: 53 65 74 20 74 68 65 20 62 61 63 6b 74 72 61 63  Set the backtrac
4090: 65 20 64 65 70 74 68 2c 20 69 66 20 6d 61 6c 6c  e depth, if mall
40a0: 6f 63 20 74 72 61 63 69 6e 67 20 69 73 20 65 6e  oc tracing is en
40b0: 61 62 6c 65 64 2e 0a 20 20 23 0a 20 20 69 66 20  abled..  #.  if 
40c0: 7b 24 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 6c  {$cmdlinearg(mal
40d0: 6c 6f 63 74 72 61 63 65 29 7d 20 7b 0a 20 20 20  loctrace)} {.   
40e0: 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75   sqlite3_memdebu
40f0: 67 5f 62 61 63 6b 74 72 61 63 65 20 24 63 6d 64  g_backtrace $cmd
4100: 6c 69 6e 65 61 72 67 28 62 61 63 6b 74 72 61 63  linearg(backtrac
4110: 65 29 0a 20 20 7d 0a 0a 20 20 69 66 20 7b 24 63  e).  }..  if {$c
4120: 6d 64 6c 69 6e 65 61 72 67 28 6f 75 74 70 75 74  mdlinearg(output
4130: 29 21 3d 22 22 7d 20 7b 0a 20 20 20 20 70 75 74  )!=""} {.    put
4140: 73 20 22 43 6f 70 79 69 6e 67 20 6f 75 74 70 75  s "Copying outpu
4150: 74 20 74 6f 20 66 69 6c 65 20 24 63 6d 64 6c 69  t to file $cmdli
4160: 6e 65 61 72 67 28 6f 75 74 70 75 74 29 22 0a 20  nearg(output)". 
4170: 20 20 20 73 65 74 20 3a 3a 47 28 6f 75 74 70 75     set ::G(outpu
4180: 74 5f 66 64 29 20 5b 6f 70 65 6e 20 24 63 6d 64  t_fd) [open $cmd
4190: 6c 69 6e 65 61 72 67 28 6f 75 74 70 75 74 29 20  linearg(output) 
41a0: 77 5d 0a 20 20 20 20 66 63 6f 6e 66 69 67 75 72  w].    fconfigur
41b0: 65 20 24 3a 3a 47 28 6f 75 74 70 75 74 5f 66 64  e $::G(output_fd
41c0: 29 20 2d 62 75 66 66 65 72 69 6e 67 20 6c 69 6e  ) -buffering lin
41d0: 65 0a 20 20 7d 0a 0a 20 20 69 66 20 7b 24 63 6d  e.  }..  if {$cm
41e0: 64 6c 69 6e 65 61 72 67 28 76 65 72 62 6f 73 65  dlinearg(verbose
41f0: 29 3d 3d 22 22 7d 20 7b 0a 20 20 20 20 73 65 74  )==""} {.    set
4200: 20 63 6d 64 6c 69 6e 65 61 72 67 28 76 65 72 62   cmdlinearg(verb
4210: 6f 73 65 29 20 31 0a 20 20 7d 0a 7d 0a 0a 23 20  ose) 1.  }.}..# 
4220: 55 70 64 61 74 65 20 74 68 65 20 73 6f 66 74 2d  Update the soft-
4230: 68 65 61 70 2d 6c 69 6d 69 74 20 65 61 63 68 20  heap-limit each 
4240: 74 69 6d 65 20 74 68 69 73 20 73 63 72 69 70 74  time this script
4250: 20 69 73 20 72 75 6e 2e 20 49 6e 20 74 68 61 74   is run. In that
4260: 0a 23 20 77 61 79 20 69 66 20 61 6e 20 69 6e 64  .# way if an ind
4270: 69 76 69 64 75 61 6c 20 74 65 73 74 20 66 69 6c  ividual test fil
4280: 65 20 63 68 61 6e 67 65 73 20 74 68 65 20 73 6f  e changes the so
4290: 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74 2c 20 69  ft-heap-limit, i
42a0: 74 0a 23 20 77 69 6c 6c 20 62 65 20 72 65 73 65  t.# will be rese
42b0: 74 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f  t at the start o
42c0: 66 20 74 68 65 20 6e 65 78 74 20 74 65 73 74 20  f the next test 
42d0: 66 69 6c 65 2e 0a 23 0a 73 71 6c 69 74 65 33 5f  file..#.sqlite3_
42e0: 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69 74 20  soft_heap_limit 
42f0: 24 63 6d 64 6c 69 6e 65 61 72 67 28 73 6f 66 74  $cmdlinearg(soft
4300: 2d 68 65 61 70 2d 6c 69 6d 69 74 29 0a 0a 23 20  -heap-limit)..# 
4310: 43 72 65 61 74 65 20 61 20 74 65 73 74 20 64 61  Create a test da
4320: 74 61 62 61 73 65 0a 23 0a 70 72 6f 63 20 72 65  tabase.#.proc re
4330: 73 65 74 5f 64 62 20 7b 7d 20 7b 0a 20 20 63 61  set_db {} {.  ca
4340: 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 20  tch {db close}. 
4350: 20 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73   forcedelete tes
4360: 74 2e 64 62 0a 20 20 66 6f 72 63 65 64 65 6c 65  t.db.  forcedele
4370: 74 65 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72 6e  te test.db-journ
4380: 61 6c 0a 20 20 66 6f 72 63 65 64 65 6c 65 74 65  al.  forcedelete
4390: 20 74 65 73 74 2e 64 62 2d 77 61 6c 0a 20 20 73   test.db-wal.  s
43a0: 71 6c 69 74 65 33 20 64 62 20 2e 2f 74 65 73 74  qlite3 db ./test
43b0: 2e 64 62 0a 20 20 73 65 74 20 3a 3a 44 42 20 5b  .db.  set ::DB [
43c0: 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69  sqlite3_connecti
43d0: 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 20  on_pointer db]. 
43e0: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74   if {[info exist
43f0: 73 20 3a 3a 53 45 54 55 50 5f 53 51 4c 5d 7d 20  s ::SETUP_SQL]} 
4400: 7b 0a 20 20 20 20 64 62 20 65 76 61 6c 20 24 3a  {.    db eval $:
4410: 3a 53 45 54 55 50 5f 53 51 4c 0a 20 20 7d 0a 7d  :SETUP_SQL.  }.}
4420: 0a 72 65 73 65 74 5f 64 62 0a 0a 23 20 41 62 6f  .reset_db..# Abo
4430: 72 74 20 65 61 72 6c 79 20 69 66 20 74 68 69 73  rt early if this
4440: 20 73 63 72 69 70 74 20 68 61 73 20 62 65 65 6e   script has been
4450: 20 72 75 6e 20 62 65 66 6f 72 65 2e 0a 23 0a 69   run before..#.i
4460: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
4470: 54 43 28 63 6f 75 6e 74 29 5d 7d 20 72 65 74 75  TC(count)]} retu
4480: 72 6e 0a 0a 23 20 4d 61 6b 65 20 73 75 72 65 20  rn..# Make sure 
4490: 6d 65 6d 6f 72 79 20 73 74 61 74 69 73 74 69 63  memory statistic
44a0: 73 20 61 72 65 20 65 6e 61 62 6c 65 64 2e 0a 23  s are enabled..#
44b0: 0a 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 5f  .sqlite3_config_
44c0: 6d 65 6d 73 74 61 74 75 73 20 31 0a 0a 23 20 49  memstatus 1..# I
44d0: 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 74 65  nitialize the te
44e0: 73 74 20 63 6f 75 6e 74 65 72 73 20 61 6e 64 20  st counters and 
44f0: 73 65 74 20 75 70 20 63 6f 6d 6d 61 6e 64 73 20  set up commands 
4500: 74 6f 20 61 63 63 65 73 73 20 74 68 65 6d 2e 0a  to access them..
4510: 23 20 4f 72 2c 20 69 66 20 74 68 69 73 20 69 73  # Or, if this is
4520: 20 61 20 73 6c 61 76 65 20 69 6e 74 65 72 70 72   a slave interpr
4530: 65 74 65 72 2c 20 73 65 74 20 75 70 20 61 6c 69  eter, set up ali
4540: 61 73 65 73 20 74 6f 20 77 72 69 74 65 20 74 68  ases to write th
4550: 65 0a 23 20 63 6f 75 6e 74 65 72 73 20 69 6e 20  e.# counters in 
4560: 74 68 65 20 70 61 72 65 6e 74 20 69 6e 74 65 72  the parent inter
4570: 70 72 65 74 65 72 2e 0a 23 0a 69 66 20 7b 30 3d  preter..#.if {0=
4580: 3d 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  =[info exists ::
4590: 53 4c 41 56 45 5d 7d 20 7b 0a 20 20 73 65 74 20  SLAVE]} {.  set 
45a0: 54 43 28 65 72 72 6f 72 73 29 20 20 20 20 30 0a  TC(errors)    0.
45b0: 20 20 73 65 74 20 54 43 28 63 6f 75 6e 74 29 20    set TC(count) 
45c0: 20 20 20 20 30 0a 20 20 73 65 74 20 54 43 28 66      0.  set TC(f
45d0: 61 69 6c 5f 6c 69 73 74 29 20 5b 6c 69 73 74 5d  ail_list) [list]
45e0: 0a 20 20 73 65 74 20 54 43 28 6f 6d 69 74 5f 6c  .  set TC(omit_l
45f0: 69 73 74 29 20 5b 6c 69 73 74 5d 0a 20 20 73 65  ist) [list].  se
4600: 74 20 54 43 28 77 61 72 6e 5f 6c 69 73 74 29 20  t TC(warn_list) 
4610: 5b 6c 69 73 74 5d 0a 0a 20 20 70 72 6f 63 20 73  [list]..  proc s
4620: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20  et_test_counter 
4630: 7b 63 6f 75 6e 74 65 72 20 61 72 67 73 7d 20 7b  {counter args} {
4640: 0a 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74  .    if {[llengt
4650: 68 20 24 61 72 67 73 5d 7d 20 7b 0a 20 20 20 20  h $args]} {.    
4660: 20 20 73 65 74 20 3a 3a 54 43 28 24 63 6f 75 6e    set ::TC($coun
4670: 74 65 72 29 20 5b 6c 69 6e 64 65 78 20 24 61 72  ter) [lindex $ar
4680: 67 73 20 30 5d 0a 20 20 20 20 7d 0a 20 20 20 20  gs 0].    }.    
4690: 73 65 74 20 3a 3a 54 43 28 24 63 6f 75 6e 74 65  set ::TC($counte
46a0: 72 29 0a 20 20 7d 0a 7d 0a 0a 23 20 52 65 63 6f  r).  }.}..# Reco
46b0: 72 64 20 74 68 65 20 66 61 63 74 20 74 68 61 74  rd the fact that
46c0: 20 61 20 73 65 71 75 65 6e 63 65 20 6f 66 20 74   a sequence of t
46d0: 65 73 74 73 20 77 65 72 65 20 6f 6d 69 74 74 65  ests were omitte
46e0: 64 2e 0a 23 0a 70 72 6f 63 20 6f 6d 69 74 5f 74  d..#.proc omit_t
46f0: 65 73 74 20 7b 6e 61 6d 65 20 72 65 61 73 6f 6e  est {name reason
4700: 20 7b 61 70 70 65 6e 64 20 31 7d 7d 20 7b 0a 20   {append 1}} {. 
4710: 20 73 65 74 20 6f 6d 69 74 4c 69 73 74 20 5b 73   set omitList [s
4720: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20  et_test_counter 
4730: 6f 6d 69 74 5f 6c 69 73 74 5d 0a 20 20 69 66 20  omit_list].  if 
4740: 7b 24 61 70 70 65 6e 64 7d 20 7b 0a 20 20 20 20  {$append} {.    
4750: 6c 61 70 70 65 6e 64 20 6f 6d 69 74 4c 69 73 74  lappend omitList
4760: 20 5b 6c 69 73 74 20 24 6e 61 6d 65 20 24 72 65   [list $name $re
4770: 61 73 6f 6e 5d 0a 20 20 7d 0a 20 20 73 65 74 5f  ason].  }.  set_
4780: 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 6f 6d 69  test_counter omi
4790: 74 5f 6c 69 73 74 20 24 6f 6d 69 74 4c 69 73 74  t_list $omitList
47a0: 0a 7d 0a 0a 23 20 52 65 63 6f 72 64 20 74 68 65  .}..# Record the
47b0: 20 66 61 63 74 20 74 68 61 74 20 61 20 74 65 73   fact that a tes
47c0: 74 20 66 61 69 6c 65 64 2e 0a 23 0a 70 72 6f 63  t failed..#.proc
47d0: 20 66 61 69 6c 5f 74 65 73 74 20 7b 6e 61 6d 65   fail_test {name
47e0: 7d 20 7b 0a 20 20 73 65 74 20 66 20 5b 73 65 74  } {.  set f [set
47f0: 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 66 61  _test_counter fa
4800: 69 6c 5f 6c 69 73 74 5d 0a 20 20 6c 61 70 70 65  il_list].  lappe
4810: 6e 64 20 66 20 24 6e 61 6d 65 0a 20 20 73 65 74  nd f $name.  set
4820: 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 66 61  _test_counter fa
4830: 69 6c 5f 6c 69 73 74 20 24 66 0a 20 20 73 65 74  il_list $f.  set
4840: 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 65 72  _test_counter er
4850: 72 6f 72 73 20 5b 65 78 70 72 20 5b 73 65 74 5f  rors [expr [set_
4860: 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 65 72 72  test_counter err
4870: 6f 72 73 5d 20 2b 20 31 5d 0a 0a 20 20 73 65 74  ors] + 1]..  set
4880: 20 6e 46 61 69 6c 20 5b 73 65 74 5f 74 65 73 74   nFail [set_test
4890: 5f 63 6f 75 6e 74 65 72 20 65 72 72 6f 72 73 5d  _counter errors]
48a0: 0a 20 20 69 66 20 7b 24 6e 46 61 69 6c 3e 3d 24  .  if {$nFail>=$
48b0: 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 78  ::cmdlinearg(max
48c0: 65 72 72 6f 72 29 7d 20 7b 0a 20 20 20 20 6f 75  error)} {.    ou
48d0: 74 70 75 74 32 20 22 2a 2a 2a 20 47 69 76 69 6e  tput2 "*** Givin
48e0: 67 20 75 70 2e 2e 2e 22 0a 20 20 20 20 66 69 6e  g up...".    fin
48f0: 61 6c 69 7a 65 5f 74 65 73 74 69 6e 67 0a 20 20  alize_testing.  
4900: 7d 0a 7d 0a 0a 23 20 52 65 6d 65 6d 62 65 72 20  }.}..# Remember 
4910: 61 20 77 61 72 6e 69 6e 67 20 6d 65 73 73 61 67  a warning messag
4920: 65 20 74 6f 20 62 65 20 64 69 73 70 6c 61 79 65  e to be displaye
4930: 64 20 61 74 20 74 68 65 20 63 6f 6e 63 6c 75 73  d at the conclus
4940: 69 6f 6e 20 6f 66 20 61 6c 6c 20 74 65 73 74 69  ion of all testi
4950: 6e 67 0a 23 0a 70 72 6f 63 20 77 61 72 6e 69 6e  ng.#.proc warnin
4960: 67 20 7b 6d 73 67 20 7b 61 70 70 65 6e 64 20 31  g {msg {append 1
4970: 7d 7d 20 7b 0a 20 20 6f 75 74 70 75 74 32 20 22  }} {.  output2 "
4980: 57 61 72 6e 69 6e 67 3a 20 24 6d 73 67 22 0a 20  Warning: $msg". 
4990: 20 73 65 74 20 77 61 72 6e 4c 69 73 74 20 5b 73   set warnList [s
49a0: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20  et_test_counter 
49b0: 77 61 72 6e 5f 6c 69 73 74 5d 0a 20 20 69 66 20  warn_list].  if 
49c0: 7b 24 61 70 70 65 6e 64 7d 20 7b 0a 20 20 20 20  {$append} {.    
49d0: 6c 61 70 70 65 6e 64 20 77 61 72 6e 4c 69 73 74  lappend warnList
49e0: 20 24 6d 73 67 0a 20 20 7d 0a 20 20 73 65 74 5f   $msg.  }.  set_
49f0: 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 77 61 72  test_counter war
4a00: 6e 5f 6c 69 73 74 20 24 77 61 72 6e 4c 69 73 74  n_list $warnList
4a10: 0a 7d 0a 0a 0a 23 20 49 6e 63 72 65 6d 65 6e 74  .}...# Increment
4a20: 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 74   the number of t
4a30: 65 73 74 73 20 72 75 6e 0a 23 0a 70 72 6f 63 20  ests run.#.proc 
4a40: 69 6e 63 72 5f 6e 74 65 73 74 20 7b 7d 20 7b 0a  incr_ntest {} {.
4a50: 20 20 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74    set_test_count
4a60: 65 72 20 63 6f 75 6e 74 20 5b 65 78 70 72 20 5b  er count [expr [
4a70: 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72  set_test_counter
4a80: 20 63 6f 75 6e 74 5d 20 2b 20 31 5d 0a 7d 0a 0a   count] + 1].}..
4a90: 23 20 52 65 74 75 72 6e 20 74 72 75 65 20 69 66  # Return true 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 20 6f 6e 20 74 68   specified on th
4ac0: 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 2e 20  e command line. 
4ad0: 4f 74 68 65 72 77 69 73 65 2c 0a 23 20 72 65 74  Otherwise,.# ret
4ae0: 75 72 6e 20 66 61 6c 73 65 2e 0a 23 0a 70 72 6f  urn false..#.pro
4af0: 63 20 76 65 72 62 6f 73 65 20 7b 7d 20 7b 0a 20  c verbose {} {. 
4b00: 20 72 65 74 75 72 6e 20 24 3a 3a 63 6d 64 6c 69   return $::cmdli
4b10: 6e 65 61 72 67 28 76 65 72 62 6f 73 65 29 0a 7d  nearg(verbose).}
4b20: 0a 0a 23 20 55 73 65 20 74 68 65 20 66 6f 6c 6c  ..# Use the foll
4b30: 6f 77 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 20 69  owing commands i
4b40: 6e 73 74 65 61 64 20 6f 66 20 5b 70 75 74 73 5d  nstead of [puts]
4b50: 20 66 6f 72 20 74 65 73 74 20 6f 75 74 70 75 74   for test output
4b60: 20 77 69 74 68 69 6e 0a 23 20 74 68 69 73 20 66   within.# this f
4b70: 69 6c 65 2e 20 54 65 73 74 20 73 63 72 69 70 74  ile. Test script
4b80: 73 20 63 61 6e 20 73 74 69 6c 6c 20 75 73 65 20  s can still use 
4b90: 72 65 67 75 6c 61 72 20 5b 70 75 74 73 5d 2c 20  regular [puts], 
4ba0: 77 68 69 63 68 20 69 73 20 64 69 72 65 63 74 65  which is directe
4bb0: 64 0a 23 20 74 6f 20 73 74 64 6f 75 74 20 61 6e  d.# to stdout an
4bc0: 64 2c 20 69 66 20 6f 6e 65 20 69 73 20 6f 70 65  d, if one is ope
4bd0: 6e 2c 20 74 68 65 20 2d 2d 6f 75 74 70 75 74 20  n, the --output 
4be0: 66 69 6c 65 2e 0a 23 0a 23 20 6f 75 74 70 75 74  file..#.# output
4bf0: 31 3a 20 6f 75 74 70 75 74 20 74 68 61 74 20 73  1: output that s
4c00: 68 6f 75 6c 64 20 62 65 20 70 72 69 6e 74 65 64  hould be printed
4c10: 20 69 66 20 2d 2d 76 65 72 62 6f 73 65 3d 31 20   if --verbose=1 
4c20: 77 61 73 20 73 70 65 63 69 66 69 65 64 2e 0a 23  was specified..#
4c30: 20 6f 75 74 70 75 74 32 3a 20 6f 75 74 70 75 74   output2: output
4c40: 20 74 68 61 74 20 73 68 6f 75 6c 64 20 62 65 20   that should be 
4c50: 70 72 69 6e 74 65 64 20 75 6e 63 6f 6e 64 69 74  printed uncondit
4c60: 69 6f 6e 61 6c 6c 79 2e 0a 23 20 6f 75 74 70 75  ionally..# outpu
4c70: 74 32 5f 69 66 5f 6e 6f 5f 76 65 72 62 6f 73 65  t2_if_no_verbose
4c80: 3a 20 6f 75 74 70 75 74 20 74 68 61 74 20 73 68  : output that sh
4c90: 6f 75 6c 64 20 62 65 20 70 72 69 6e 74 65 64 20  ould be printed 
4ca0: 6f 6e 6c 79 20 69 66 20 2d 2d 76 65 72 62 6f 73  only if --verbos
4cb0: 65 3d 30 2e 0a 23 0a 70 72 6f 63 20 6f 75 74 70  e=0..#.proc outp
4cc0: 75 74 31 20 7b 61 72 67 73 7d 20 7b 0a 20 20 73  ut1 {args} {.  s
4cd0: 65 74 20 76 20 5b 76 65 72 62 6f 73 65 5d 0a 20  et v [verbose]. 
4ce0: 20 69 66 20 7b 24 76 3d 3d 31 7d 20 7b 0a 20 20   if {$v==1} {.  
4cf0: 20 20 75 70 6c 65 76 65 6c 20 6f 75 74 70 75 74    uplevel output
4d00: 32 20 24 61 72 67 73 0a 20 20 7d 20 65 6c 73 65  2 $args.  } else
4d10: 69 66 20 7b 24 76 3d 3d 32 7d 20 7b 0a 20 20 20  if {$v==2} {.   
4d20: 20 75 70 6c 65 76 65 6c 20 70 75 74 73 20 5b 6c   uplevel puts [l
4d30: 72 61 6e 67 65 20 24 61 72 67 73 20 30 20 65 6e  range $args 0 en
4d40: 64 2d 31 5d 20 24 3a 3a 47 28 6f 75 74 70 75 74  d-1] $::G(output
4d50: 5f 66 64 29 20 5b 6c 72 61 6e 67 65 20 24 61 72  _fd) [lrange $ar
4d60: 67 73 20 65 6e 64 20 65 6e 64 5d 0a 20 20 7d 0a  gs end end].  }.
4d70: 7d 0a 70 72 6f 63 20 6f 75 74 70 75 74 32 20 7b  }.proc output2 {
4d80: 61 72 67 73 7d 20 7b 0a 20 20 73 65 74 20 6e 41  args} {.  set nA
4d90: 72 67 20 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67  rg [llength $arg
4da0: 73 5d 0a 20 20 75 70 6c 65 76 65 6c 20 70 75 74  s].  uplevel put
4db0: 73 20 24 61 72 67 73 0a 7d 0a 70 72 6f 63 20 6f  s $args.}.proc o
4dc0: 75 74 70 75 74 32 5f 69 66 5f 6e 6f 5f 76 65 72  utput2_if_no_ver
4dd0: 62 6f 73 65 20 7b 61 72 67 73 7d 20 7b 0a 20 20  bose {args} {.  
4de0: 73 65 74 20 76 20 5b 76 65 72 62 6f 73 65 5d 0a  set v [verbose].
4df0: 20 20 69 66 20 7b 24 76 3d 3d 30 7d 20 7b 0a 20    if {$v==0} {. 
4e00: 20 20 20 75 70 6c 65 76 65 6c 20 6f 75 74 70 75     uplevel outpu
4e10: 74 32 20 24 61 72 67 73 0a 20 20 7d 20 65 6c 73  t2 $args.  } els
4e20: 65 69 66 20 7b 24 76 3d 3d 32 7d 20 7b 0a 20 20  eif {$v==2} {.  
4e30: 20 20 75 70 6c 65 76 65 6c 20 70 75 74 73 20 5b    uplevel puts [
4e40: 6c 72 61 6e 67 65 20 24 61 72 67 73 20 30 20 65  lrange $args 0 e
4e50: 6e 64 2d 31 5d 20 73 74 64 6f 75 74 20 5b 6c 72  nd-1] stdout [lr
4e60: 61 6e 67 65 20 24 61 72 67 73 20 65 6e 64 20 65  ange $args end e
4e70: 6e 64 5d 0a 20 20 7d 0a 7d 0a 0a 23 20 4f 76 65  nd].  }.}..# Ove
4e80: 72 72 69 64 65 20 74 68 65 20 5b 70 75 74 73 5d  rride the [puts]
4e90: 20 63 6f 6d 6d 61 6e 64 20 73 6f 20 74 68 61 74   command so that
4ea0: 20 69 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 69   if no channel i
4eb0: 73 20 65 78 70 6c 69 63 69 74 6c 79 20 0a 23 20  s explicitly .# 
4ec0: 73 70 65 63 69 66 69 65 64 20 74 68 65 20 73 74  specified the st
4ed0: 72 69 6e 67 20 69 73 20 77 72 69 74 74 65 6e 20  ring is written 
4ee0: 74 6f 20 62 6f 74 68 20 73 74 64 6f 75 74 20 61  to both stdout a
4ef0: 6e 64 20 74 6f 20 74 68 65 20 66 69 6c 65 20 0a  nd to the file .
4f00: 23 20 73 70 65 63 69 66 69 65 64 20 62 79 20 22  # specified by "
4f10: 2d 2d 6f 75 74 70 75 74 3d 22 2c 20 69 66 20 61  --output=", if a
4f20: 6e 79 2e 0a 23 0a 70 72 6f 63 20 70 75 74 73 5f  ny..#.proc puts_
4f30: 6f 76 65 72 72 69 64 65 20 7b 61 72 67 73 7d 20  override {args} 
4f40: 7b 0a 20 20 73 65 74 20 6e 41 72 67 20 5b 6c 6c  {.  set nArg [ll
4f50: 65 6e 67 74 68 20 24 61 72 67 73 5d 0a 20 20 69  ength $args].  i
4f60: 66 20 7b 24 6e 41 72 67 3d 3d 31 20 7c 7c 20 28  f {$nArg==1 || (
4f70: 24 6e 41 72 67 3d 3d 32 20 26 26 20 5b 73 74 72  $nArg==2 && [str
4f80: 69 6e 67 20 66 69 72 73 74 20 5b 6c 69 6e 64 65  ing first [linde
4f90: 78 20 24 61 72 67 73 20 30 5d 20 2d 6e 6f 6e 65  x $args 0] -none
4fa0: 77 6c 69 6e 65 5d 3d 3d 30 29 7d 20 7b 0a 20 20  wline]==0)} {.  
4fb0: 20 20 75 70 6c 65 76 65 6c 20 70 75 74 73 5f 6f    uplevel puts_o
4fc0: 72 69 67 69 6e 61 6c 20 24 61 72 67 73 0a 20 20  riginal $args.  
4fd0: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73    if {[info exis
4fe0: 74 73 20 3a 3a 47 28 6f 75 74 70 75 74 5f 66 64  ts ::G(output_fd
4ff0: 29 5d 7d 20 7b 0a 20 20 20 20 20 20 75 70 6c 65  )]} {.      uple
5000: 76 65 6c 20 70 75 74 73 20 5b 6c 72 61 6e 67 65  vel puts [lrange
5010: 20 24 61 72 67 73 20 30 20 65 6e 64 2d 31 5d 20   $args 0 end-1] 
5020: 24 3a 3a 47 28 6f 75 74 70 75 74 5f 66 64 29 20  $::G(output_fd) 
5030: 5b 6c 72 61 6e 67 65 20 24 61 72 67 73 20 65 6e  [lrange $args en
5040: 64 20 65 6e 64 5d 0a 20 20 20 20 7d 0a 20 20 7d  d end].    }.  }
5050: 20 65 6c 73 65 20 7b 0a 20 20 20 20 23 20 41 20   else {.    # A 
5060: 63 68 61 6e 6e 65 6c 20 77 61 73 20 65 78 70 6c  channel was expl
5070: 69 63 69 74 6c 79 20 73 70 65 63 69 66 69 65 64  icitly specified
5080: 2e 0a 20 20 20 20 75 70 6c 65 76 65 6c 20 70 75  ..    uplevel pu
5090: 74 73 5f 6f 72 69 67 69 6e 61 6c 20 24 61 72 67  ts_original $arg
50a0: 73 0a 20 20 7d 0a 7d 0a 72 65 6e 61 6d 65 20 70  s.  }.}.rename p
50b0: 75 74 73 20 70 75 74 73 5f 6f 72 69 67 69 6e 61  uts puts_origina
50c0: 6c 0a 70 72 6f 63 20 70 75 74 73 20 7b 61 72 67  l.proc puts {arg
50d0: 73 7d 20 7b 20 75 70 6c 65 76 65 6c 20 70 75 74  s} { uplevel put
50e0: 73 5f 6f 76 65 72 72 69 64 65 20 24 61 72 67 73  s_override $args
50f0: 20 7d 0a 0a 0a 23 20 49 6e 76 6f 6b 65 20 74 68   }...# Invoke th
5100: 65 20 64 6f 5f 74 65 73 74 20 70 72 6f 63 65 64  e do_test proced
5110: 75 72 65 20 74 6f 20 72 75 6e 20 61 20 73 69 6e  ure to run a sin
5120: 67 6c 65 20 74 65 73 74 0a 23 0a 70 72 6f 63 20  gle test.#.proc 
5130: 64 6f 5f 74 65 73 74 20 7b 6e 61 6d 65 20 63 6d  do_test {name cm
5140: 64 20 65 78 70 65 63 74 65 64 7d 20 7b 0a 20 20  d expected} {.  
5150: 67 6c 6f 62 61 6c 20 61 72 67 76 20 63 6d 64 6c  global argv cmdl
5160: 69 6e 65 61 72 67 0a 0a 20 20 66 69 78 5f 74 65  inearg..  fix_te
5170: 73 74 6e 61 6d 65 20 6e 61 6d 65 0a 0a 20 20 73  stname name..  s
5180: 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f  qlite3_memdebug_
5190: 73 65 74 74 69 74 6c 65 20 24 6e 61 6d 65 0a 0a  settitle $name..
51a0: 23 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20  #  if {[llength 
51b0: 24 61 72 67 76 5d 3d 3d 30 7d 20 7b 0a 23 20 20  $argv]==0} {.#  
51c0: 20 20 73 65 74 20 67 6f 20 31 0a 23 20 20 7d 20    set go 1.#  } 
51d0: 65 6c 73 65 20 7b 0a 23 20 20 20 20 73 65 74 20  else {.#    set 
51e0: 67 6f 20 30 0a 23 20 20 20 20 66 6f 72 65 61 63  go 0.#    foreac
51f0: 68 20 70 61 74 74 65 72 6e 20 24 61 72 67 76 20  h pattern $argv 
5200: 7b 0a 23 20 20 20 20 20 20 69 66 20 7b 5b 73 74  {.#      if {[st
5210: 72 69 6e 67 20 6d 61 74 63 68 20 24 70 61 74 74  ring match $patt
5220: 65 72 6e 20 24 6e 61 6d 65 5d 7d 20 7b 0a 23 20  ern $name]} {.# 
5230: 20 20 20 20 20 20 20 73 65 74 20 67 6f 20 31 0a         set go 1.
5240: 23 20 20 20 20 20 20 20 20 62 72 65 61 6b 0a 23  #        break.#
5250: 20 20 20 20 20 20 7d 0a 23 20 20 20 20 7d 0a 23        }.#    }.#
5260: 20 20 7d 0a 0a 20 20 69 66 20 7b 5b 69 6e 66 6f    }..  if {[info
5270: 20 65 78 69 73 74 73 20 3a 3a 47 28 70 65 72 6d   exists ::G(perm
5280: 3a 70 72 65 66 69 78 29 5d 7d 20 7b 0a 20 20 20  :prefix)]} {.   
5290: 20 73 65 74 20 6e 61 6d 65 20 22 24 3a 3a 47 28   set name "$::G(
52a0: 70 65 72 6d 3a 70 72 65 66 69 78 29 24 6e 61 6d  perm:prefix)$nam
52b0: 65 22 0a 20 20 7d 0a 0a 20 20 69 6e 63 72 5f 6e  e".  }..  incr_n
52c0: 74 65 73 74 0a 20 20 6f 75 74 70 75 74 31 20 2d  test.  output1 -
52d0: 6e 6f 6e 65 77 6c 69 6e 65 20 24 6e 61 6d 65 2e  nonewline $name.
52e0: 2e 2e 0a 20 20 66 6c 75 73 68 20 73 74 64 6f 75  ...  flush stdou
52f0: 74 0a 0a 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20  t..  if {![info 
5300: 65 78 69 73 74 73 20 3a 3a 47 28 6d 61 74 63 68  exists ::G(match
5310: 29 5d 20 7c 7c 20 5b 73 74 72 69 6e 67 20 6d 61  )] || [string ma
5320: 74 63 68 20 24 3a 3a 47 28 6d 61 74 63 68 29 20  tch $::G(match) 
5330: 24 6e 61 6d 65 5d 7d 20 7b 0a 20 20 20 20 69 66  $name]} {.    if
5340: 20 7b 5b 63 61 74 63 68 20 7b 75 70 6c 65 76 65   {[catch {upleve
5350: 6c 20 23 30 20 22 24 63 6d 64 3b 5c 6e 22 7d 20  l #0 "$cmd;\n"} 
5360: 72 65 73 75 6c 74 5d 7d 20 7b 0a 20 20 20 20 20  result]} {.     
5370: 20 6f 75 74 70 75 74 32 5f 69 66 5f 6e 6f 5f 76   output2_if_no_v
5380: 65 72 62 6f 73 65 20 2d 6e 6f 6e 65 77 6c 69 6e  erbose -nonewlin
5390: 65 20 24 6e 61 6d 65 2e 2e 2e 0a 20 20 20 20 20  e $name....     
53a0: 20 6f 75 74 70 75 74 32 20 22 5c 6e 45 72 72 6f   output2 "\nErro
53b0: 72 3a 20 24 72 65 73 75 6c 74 22 0a 20 20 20 20  r: $result".    
53c0: 20 20 66 61 69 6c 5f 74 65 73 74 20 24 6e 61 6d    fail_test $nam
53d0: 65 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20  e.    } else {. 
53e0: 20 20 20 20 20 69 66 20 7b 5b 72 65 67 65 78 70       if {[regexp
53f0: 20 7b 5e 7e 3f 2f 2e 2a 2f 24 7d 20 24 65 78 70   {^~?/.*/$} $exp
5400: 65 63 74 65 64 5d 7d 20 7b 0a 20 20 20 20 20 20  ected]} {.      
5410: 20 20 23 20 22 65 78 70 65 63 74 65 64 22 20 69    # "expected" i
5420: 73 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 22 2f  s of the form "/
5430: 50 41 54 54 45 52 4e 2f 22 20 74 68 65 6e 20 74  PATTERN/" then t
5440: 68 65 20 72 65 73 75 6c 74 20 69 66 20 63 6f 72  he result if cor
5450: 72 65 63 74 20 69 66 0a 20 20 20 20 20 20 20 20  rect if.        
5460: 23 20 72 65 67 75 6c 61 72 20 65 78 70 72 65 73  # regular expres
5470: 73 69 6f 6e 20 50 41 54 54 45 52 4e 20 6d 61 74  sion PATTERN mat
5480: 63 68 65 73 20 74 68 65 20 72 65 73 75 6c 74 2e  ches the result.
5490: 20 20 22 7e 2f 50 41 54 54 45 52 4e 2f 22 20 6d    "~/PATTERN/" m
54a0: 65 61 6e 73 0a 20 20 20 20 20 20 20 20 23 20 74  eans.        # t
54b0: 68 65 20 72 65 67 75 6c 61 72 20 65 78 70 72 65  he regular expre
54c0: 73 73 69 6f 6e 20 6d 75 73 74 20 6e 6f 74 20 6d  ssion must not m
54d0: 61 74 63 68 2e 0a 20 20 20 20 20 20 20 20 69 66  atch..        if
54e0: 20 7b 5b 73 74 72 69 6e 67 20 69 6e 64 65 78 20   {[string index 
54f0: 24 65 78 70 65 63 74 65 64 20 30 5d 3d 3d 22 7e  $expected 0]=="~
5500: 22 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 73  "} {.          s
5510: 65 74 20 72 65 20 5b 73 74 72 69 6e 67 20 72 61  et re [string ra
5520: 6e 67 65 20 24 65 78 70 65 63 74 65 64 20 32 20  nge $expected 2 
5530: 65 6e 64 2d 31 5d 0a 20 20 20 20 20 20 20 20 20  end-1].         
5540: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 69 6e 64   if {[string ind
5550: 65 78 20 24 72 65 20 30 5d 3d 3d 22 2a 22 7d 20  ex $re 0]=="*"} 
5560: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20  {.            # 
5570: 49 66 20 74 68 65 20 72 65 67 75 6c 61 72 20 65  If the regular e
5580: 78 70 72 65 73 73 69 6f 6e 20 62 65 67 69 6e 73  xpression begins
5590: 20 77 69 74 68 20 2a 20 74 68 65 6e 20 74 72 65   with * then tre
55a0: 61 74 20 69 74 20 61 73 20 61 20 67 6c 6f 62 20  at it as a glob 
55b0: 69 6e 73 74 65 61 64 0a 20 20 20 20 20 20 20 20  instead.        
55c0: 20 20 20 20 73 65 74 20 6f 6b 20 5b 73 74 72 69      set ok [stri
55d0: 6e 67 20 6d 61 74 63 68 20 24 72 65 20 24 72 65  ng match $re $re
55e0: 73 75 6c 74 5d 0a 20 20 20 20 20 20 20 20 20 20  sult].          
55f0: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20  } else {.       
5600: 20 20 20 20 20 73 65 74 20 72 65 20 5b 73 74 72       set re [str
5610: 69 6e 67 20 6d 61 70 20 7b 23 20 7b 5b 2d 30 2d  ing map {# {[-0-
5620: 39 2e 5d 2b 7d 7d 20 24 72 65 5d 0a 20 20 20 20  9.]+}} $re].    
5630: 20 20 20 20 20 20 20 20 73 65 74 20 6f 6b 20 5b          set ok [
5640: 72 65 67 65 78 70 20 24 72 65 20 24 72 65 73 75  regexp $re $resu
5650: 6c 74 5d 0a 20 20 20 20 20 20 20 20 20 20 7d 0a  lt].          }.
5660: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 6f 6b            set ok
5670: 20 5b 65 78 70 72 20 7b 21 24 6f 6b 7d 5d 0a 20   [expr {!$ok}]. 
5680: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a         } else {.
5690: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 72 65            set re
56a0: 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24   [string range $
56b0: 65 78 70 65 63 74 65 64 20 31 20 65 6e 64 2d 31  expected 1 end-1
56c0: 5d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b  ].          if {
56d0: 5b 73 74 72 69 6e 67 20 69 6e 64 65 78 20 24 72  [string index $r
56e0: 65 20 30 5d 3d 3d 22 2a 22 7d 20 7b 0a 20 20 20  e 0]=="*"} {.   
56f0: 20 20 20 20 20 20 20 20 20 23 20 49 66 20 74 68           # If th
5700: 65 20 72 65 67 75 6c 61 72 20 65 78 70 72 65 73  e regular expres
5710: 73 69 6f 6e 20 62 65 67 69 6e 73 20 77 69 74 68  sion begins with
5720: 20 2a 20 74 68 65 6e 20 74 72 65 61 74 20 69 74   * then treat it
5730: 20 61 73 20 61 20 67 6c 6f 62 20 69 6e 73 74 65   as a glob inste
5740: 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 73  ad.            s
5750: 65 74 20 6f 6b 20 5b 73 74 72 69 6e 67 20 6d 61  et ok [string ma
5760: 74 63 68 20 24 72 65 20 24 72 65 73 75 6c 74 5d  tch $re $result]
5770: 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73  .          } els
5780: 65 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  e {.            
5790: 73 65 74 20 72 65 20 5b 73 74 72 69 6e 67 20 6d  set re [string m
57a0: 61 70 20 7b 23 20 7b 5b 2d 30 2d 39 2e 5d 2b 7d  ap {# {[-0-9.]+}
57b0: 7d 20 24 72 65 5d 0a 20 20 20 20 20 20 20 20 20  } $re].         
57c0: 20 20 20 73 65 74 20 6f 6b 20 5b 72 65 67 65 78     set ok [regex
57d0: 70 20 24 72 65 20 24 72 65 73 75 6c 74 5d 0a 20  p $re $result]. 
57e0: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20           }.     
57f0: 20 20 20 7d 0a 20 20 20 20 20 20 7d 20 65 6c 73     }.      } els
5800: 65 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 5e 7e  eif {[regexp {^~
5810: 3f 5c 2a 2e 2a 5c 2a 24 7d 20 24 65 78 70 65 63  ?\*.*\*$} $expec
5820: 74 65 64 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20  ted]} {.        
5830: 23 20 22 65 78 70 65 63 74 65 64 22 20 69 73 20  # "expected" is 
5840: 6f 66 20 74 68 65 20 66 6f 72 6d 20 22 2a 47 4c  of the form "*GL
5850: 4f 42 2a 22 20 74 68 65 6e 20 74 68 65 20 72 65  OB*" then the re
5860: 73 75 6c 74 20 69 66 20 63 6f 72 72 65 63 74 20  sult if correct 
5870: 69 66 0a 20 20 20 20 20 20 20 20 23 20 67 6c 6f  if.        # glo
5880: 62 20 70 61 74 74 65 72 6e 20 47 4c 4f 42 20 6d  b pattern GLOB m
5890: 61 74 63 68 65 73 20 74 68 65 20 72 65 73 75 6c  atches the resul
58a0: 74 2e 20 20 22 7e 2f 47 4c 4f 42 2f 22 20 6d 65  t.  "~/GLOB/" me
58b0: 61 6e 73 0a 20 20 20 20 20 20 20 20 23 20 74 68  ans.        # th
58c0: 65 20 67 6c 6f 62 20 6d 75 73 74 20 6e 6f 74 20  e glob must not 
58d0: 6d 61 74 63 68 2e 0a 20 20 20 20 20 20 20 20 69  match..        i
58e0: 66 20 7b 5b 73 74 72 69 6e 67 20 69 6e 64 65 78  f {[string index
58f0: 20 24 65 78 70 65 63 74 65 64 20 30 5d 3d 3d 22   $expected 0]=="
5900: 7e 22 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20  ~"} {.          
5910: 73 65 74 20 65 20 5b 73 74 72 69 6e 67 20 72 61  set e [string ra
5920: 6e 67 65 20 24 65 78 70 65 63 74 65 64 20 31 20  nge $expected 1 
5930: 65 6e 64 5d 0a 20 20 20 20 20 20 20 20 20 20 73  end].          s
5940: 65 74 20 6f 6b 20 5b 65 78 70 72 20 7b 21 5b 73  et ok [expr {![s
5950: 74 72 69 6e 67 20 6d 61 74 63 68 20 24 65 20 24  tring match $e $
5960: 72 65 73 75 6c 74 5d 7d 5d 0a 20 20 20 20 20 20  result]}].      
5970: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20    } else {.     
5980: 20 20 20 20 20 73 65 74 20 6f 6b 20 5b 73 74 72       set ok [str
5990: 69 6e 67 20 6d 61 74 63 68 20 24 65 78 70 65 63  ing match $expec
59a0: 74 65 64 20 24 72 65 73 75 6c 74 5d 0a 20 20 20  ted $result].   
59b0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 20 65       }.      } e
59c0: 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 73 65  lse {.        se
59d0: 74 20 6f 6b 20 5b 65 78 70 72 20 7b 5b 73 74 72  t ok [expr {[str
59e0: 69 6e 67 20 63 6f 6d 70 61 72 65 20 24 72 65 73  ing compare $res
59f0: 75 6c 74 20 24 65 78 70 65 63 74 65 64 5d 3d 3d  ult $expected]==
5a00: 30 7d 5d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  0}].      }.    
5a10: 20 20 69 66 20 7b 21 24 6f 6b 7d 20 7b 0a 20 20    if {!$ok} {.  
5a20: 20 20 20 20 20 20 23 20 69 66 20 7b 21 5b 69 6e        # if {![in
5a30: 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 65 73 74  fo exists ::test
5a40: 70 72 65 66 69 78 5d 20 7c 7c 20 24 3a 3a 74 65  prefix] || $::te
5a50: 73 74 70 72 65 66 69 78 20 65 71 20 22 22 7d 20  stprefix eq ""} 
5a60: 7b 0a 20 20 20 20 20 20 20 20 23 20 20 20 65 72  {.        #   er
5a70: 72 6f 72 20 22 6e 6f 20 74 65 73 74 20 70 72 65  ror "no test pre
5a80: 66 69 78 22 0a 20 20 20 20 20 20 20 20 23 20 7d  fix".        # }
5a90: 0a 20 20 20 20 20 20 20 20 6f 75 74 70 75 74 31  .        output1
5aa0: 20 22 22 0a 20 20 20 20 20 20 20 20 6f 75 74 70   "".        outp
5ab0: 75 74 32 20 22 21 20 24 6e 61 6d 65 20 65 78 70  ut2 "! $name exp
5ac0: 65 63 74 65 64 3a 20 5c 5b 24 65 78 70 65 63 74  ected: \[$expect
5ad0: 65 64 5c 5d 5c 6e 21 20 24 6e 61 6d 65 20 67 6f  ed\]\n! $name go
5ae0: 74 3a 20 20 20 20 20 20 5c 5b 24 72 65 73 75 6c  t:      \[$resul
5af0: 74 5c 5d 22 0a 20 20 20 20 20 20 20 20 66 61 69  t\]".        fai
5b00: 6c 5f 74 65 73 74 20 24 6e 61 6d 65 0a 20 20 20  l_test $name.   
5b10: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20     } else {.    
5b20: 20 20 20 20 6f 75 74 70 75 74 31 20 22 20 4f 6b      output1 " Ok
5b30: 22 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a  ".      }.    }.
5b40: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 6f    } else {.    o
5b50: 75 74 70 75 74 31 20 22 20 4f 6d 69 74 74 65 64  utput1 " Omitted
5b60: 22 0a 20 20 20 20 6f 6d 69 74 5f 74 65 73 74 20  ".    omit_test 
5b70: 24 6e 61 6d 65 20 22 70 61 74 74 65 72 6e 20 6d  $name "pattern m
5b80: 69 73 6d 61 74 63 68 22 20 30 0a 20 20 7d 0a 20  ismatch" 0.  }. 
5b90: 20 66 6c 75 73 68 20 73 74 64 6f 75 74 0a 7d 0a   flush stdout.}.
5ba0: 0a 70 72 6f 63 20 64 75 6d 70 62 79 74 65 73 20  .proc dumpbytes 
5bb0: 7b 73 7d 20 7b 0a 20 20 73 65 74 20 72 20 22 22  {s} {.  set r ""
5bc0: 0a 20 20 66 6f 72 20 7b 73 65 74 20 69 20 30 7d  .  for {set i 0}
5bd0: 20 7b 24 69 20 3c 20 5b 73 74 72 69 6e 67 20 6c   {$i < [string l
5be0: 65 6e 67 74 68 20 24 73 5d 7d 20 7b 69 6e 63 72  ength $s]} {incr
5bf0: 20 69 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 69   i} {.    if {$i
5c00: 20 3e 20 30 7d 20 7b 61 70 70 65 6e 64 20 72 20   > 0} {append r 
5c10: 22 20 22 7d 0a 20 20 20 20 61 70 70 65 6e 64 20  " "}.    append 
5c20: 72 20 5b 66 6f 72 6d 61 74 20 25 30 32 58 20 5b  r [format %02X [
5c30: 73 63 61 6e 20 5b 73 74 72 69 6e 67 20 69 6e 64  scan [string ind
5c40: 65 78 20 24 73 20 24 69 5d 20 25 63 5d 5d 0a 20  ex $s $i] %c]]. 
5c50: 20 7d 0a 20 20 72 65 74 75 72 6e 20 24 72 0a 7d   }.  return $r.}
5c60: 0a 0a 70 72 6f 63 20 63 61 74 63 68 63 6d 64 20  ..proc catchcmd 
5c70: 7b 64 62 20 7b 63 6d 64 20 22 22 7d 7d 20 7b 0a  {db {cmd ""}} {.
5c80: 20 20 67 6c 6f 62 61 6c 20 43 4c 49 0a 20 20 73    global CLI.  s
5c90: 65 74 20 6f 75 74 20 5b 6f 70 65 6e 20 63 6d 64  et out [open cmd
5ca0: 73 2e 74 78 74 20 77 5d 0a 20 20 70 75 74 73 20  s.txt w].  puts 
5cb0: 24 6f 75 74 20 24 63 6d 64 0a 20 20 63 6c 6f 73  $out $cmd.  clos
5cc0: 65 20 24 6f 75 74 0a 20 20 73 65 74 20 6c 69 6e  e $out.  set lin
5cd0: 65 20 22 65 78 65 63 20 24 43 4c 49 20 24 64 62  e "exec $CLI $db
5ce0: 20 3c 20 63 6d 64 73 2e 74 78 74 22 0a 20 20 73   < cmds.txt".  s
5cf0: 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b 20 65  et rc [catch { e
5d00: 76 61 6c 20 24 6c 69 6e 65 20 7d 20 6d 73 67 5d  val $line } msg]
5d10: 0a 20 20 6c 69 73 74 20 24 72 63 20 24 6d 73 67  .  list $rc $msg
5d20: 0a 7d 0a 0a 70 72 6f 63 20 63 61 74 63 68 63 6d  .}..proc catchcm
5d30: 64 65 78 20 7b 64 62 20 7b 63 6d 64 20 22 22 7d  dex {db {cmd ""}
5d40: 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 43 4c 49  } {.  global CLI
5d50: 0a 20 20 73 65 74 20 6f 75 74 20 5b 6f 70 65 6e  .  set out [open
5d60: 20 63 6d 64 73 2e 74 78 74 20 77 5d 0a 20 20 66   cmds.txt w].  f
5d70: 63 6f 6e 66 69 67 75 72 65 20 24 6f 75 74 20 2d  configure $out -
5d80: 65 6e 63 6f 64 69 6e 67 20 62 69 6e 61 72 79 20  encoding binary 
5d90: 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e  -translation bin
5da0: 61 72 79 0a 20 20 70 75 74 73 20 2d 6e 6f 6e 65  ary.  puts -none
5db0: 77 6c 69 6e 65 20 24 6f 75 74 20 24 63 6d 64 0a  wline $out $cmd.
5dc0: 20 20 63 6c 6f 73 65 20 24 6f 75 74 0a 20 20 73    close $out.  s
5dd0: 65 74 20 6c 69 6e 65 20 22 65 78 65 63 20 2d 6b  et line "exec -k
5de0: 65 65 70 6e 65 77 6c 69 6e 65 20 2d 2d 20 24 43  eepnewline -- $C
5df0: 4c 49 20 24 64 62 20 3c 20 63 6d 64 73 2e 74 78  LI $db < cmds.tx
5e00: 74 22 0a 20 20 73 65 74 20 63 68 61 6e 73 20 5b  t".  set chans [
5e10: 6c 69 73 74 20 73 74 64 69 6e 20 73 74 64 6f 75  list stdin stdou
5e20: 74 20 73 74 64 65 72 72 5d 0a 20 20 66 6f 72 65  t stderr].  fore
5e30: 61 63 68 20 63 68 61 6e 20 24 63 68 61 6e 73 20  ach chan $chans 
5e40: 7b 0a 20 20 20 20 63 61 74 63 68 20 7b 0a 20 20  {.    catch {.  
5e50: 20 20 20 20 73 65 74 20 6d 6f 64 65 73 28 24 63      set modes($c
5e60: 68 61 6e 29 20 5b 66 63 6f 6e 66 69 67 75 72 65  han) [fconfigure
5e70: 20 24 63 68 61 6e 5d 0a 20 20 20 20 20 20 66 63   $chan].      fc
5e80: 6f 6e 66 69 67 75 72 65 20 24 63 68 61 6e 20 2d  onfigure $chan -
5e90: 65 6e 63 6f 64 69 6e 67 20 62 69 6e 61 72 79 20  encoding binary 
5ea0: 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e  -translation bin
5eb0: 61 72 79 20 2d 62 75 66 66 65 72 69 6e 67 20 6e  ary -buffering n
5ec0: 6f 6e 65 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20  one.    }.  }.  
5ed0: 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b 20  set rc [catch { 
5ee0: 65 76 61 6c 20 24 6c 69 6e 65 20 7d 20 6d 73 67  eval $line } msg
5ef0: 5d 0a 20 20 66 6f 72 65 61 63 68 20 63 68 61 6e  ].  foreach chan
5f00: 20 24 63 68 61 6e 73 20 7b 0a 20 20 20 20 63 61   $chans {.    ca
5f10: 74 63 68 20 7b 0a 20 20 20 20 20 20 65 76 61 6c  tch {.      eval
5f20: 20 66 63 6f 6e 66 69 67 75 72 65 20 5b 6c 69 73   fconfigure [lis
5f30: 74 20 24 63 68 61 6e 5d 20 24 6d 6f 64 65 73 28  t $chan] $modes(
5f40: 24 63 68 61 6e 29 0a 20 20 20 20 7d 0a 20 20 7d  $chan).    }.  }
5f50: 0a 20 20 23 20 70 75 74 73 20 5b 64 75 6d 70 62  .  # puts [dumpb
5f60: 79 74 65 73 20 24 6d 73 67 5d 0a 20 20 6c 69 73  ytes $msg].  lis
5f70: 74 20 24 72 63 20 24 6d 73 67 0a 7d 0a 0a 70 72  t $rc $msg.}..pr
5f80: 6f 63 20 66 69 6c 65 70 61 74 68 5f 6e 6f 72 6d  oc filepath_norm
5f90: 61 6c 69 7a 65 20 7b 70 7d 20 7b 0a 20 20 23 20  alize {p} {.  # 
5fa0: 74 65 73 74 20 63 61 73 65 73 20 73 68 6f 75 6c  test cases shoul
5fb0: 64 20 62 65 20 77 72 69 74 74 65 6e 20 74 6f 20  d be written to 
5fc0: 61 73 73 75 6d 65 20 22 75 6e 69 78 22 2d 6c 69  assume "unix"-li
5fd0: 6b 65 20 66 69 6c 65 20 70 61 74 68 73 0a 20 20  ke file paths.  
5fe0: 69 66 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61 74 66  if {$::tcl_platf
5ff0: 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 21 3d 22  orm(platform)!="
6000: 75 6e 69 78 22 7d 20 7b 0a 20 20 20 20 23 20 6c  unix"} {.    # l
6010: 72 65 76 65 72 73 65 2a 32 20 61 73 20 61 20 68  reverse*2 as a h
6020: 61 63 6b 20 74 6f 20 72 65 6d 6f 76 65 20 61 6e  ack to remove an
6030: 79 20 75 6e 6e 65 65 64 65 64 20 7b 7d 20 61 66  y unneeded {} af
6040: 74 65 72 20 74 68 65 20 73 74 72 69 6e 67 20 6d  ter the string m
6050: 61 70 0a 20 20 20 20 6c 72 65 76 65 72 73 65 20  ap.    lreverse 
6060: 5b 6c 72 65 76 65 72 73 65 20 5b 73 74 72 69 6e  [lreverse [strin
6070: 67 20 6d 61 70 20 7b 5c 5c 20 2f 7d 20 5b 72 65  g map {\\ /} [re
6080: 67 73 75 62 20 2d 6e 6f 63 61 73 65 20 2d 61 6c  gsub -nocase -al
6090: 6c 20 7b 5b 61 2d 7a 5d 3a 5b 2f 5c 5c 5d 2b 7d  l {[a-z]:[/\\]+}
60a0: 20 24 70 20 7b 2f 7d 5d 5d 5d 0a 20 20 7d 20 7b   $p {/}]]].  } {
60b0: 0a 20 20 20 20 73 65 74 20 70 0a 20 20 7d 0a 7d  .    set p.  }.}
60c0: 0a 70 72 6f 63 20 64 6f 5f 66 69 6c 65 70 61 74  .proc do_filepat
60d0: 68 5f 74 65 73 74 20 7b 6e 61 6d 65 20 63 6d 64  h_test {name cmd
60e0: 20 65 78 70 65 63 74 65 64 7d 20 7b 0a 20 20 75   expected} {.  u
60f0: 70 6c 65 76 65 6c 20 5b 6c 69 73 74 20 64 6f 5f  plevel [list do_
6100: 74 65 73 74 20 24 6e 61 6d 65 20 5b 0a 20 20 20  test $name [.   
6110: 20 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e   subst -nocomman
6120: 64 73 20 7b 20 66 69 6c 65 70 61 74 68 5f 6e 6f  ds { filepath_no
6130: 72 6d 61 6c 69 7a 65 20 5b 20 24 63 6d 64 20 5d  rmalize [ $cmd ]
6140: 20 7d 0a 20 20 5d 20 5b 66 69 6c 65 70 61 74 68   }.  ] [filepath
6150: 5f 6e 6f 72 6d 61 6c 69 7a 65 20 24 65 78 70 65  _normalize $expe
6160: 63 74 65 64 5d 5d 0a 7d 0a 0a 70 72 6f 63 20 72  cted]].}..proc r
6170: 65 61 6c 6e 75 6d 5f 6e 6f 72 6d 61 6c 69 7a 65  ealnum_normalize
6180: 20 7b 72 7d 20 7b 0a 20 20 23 20 64 69 66 66 65   {r} {.  # diffe
6190: 72 65 6e 74 20 54 43 4c 20 76 65 72 73 69 6f 6e  rent TCL version
61a0: 73 20 64 69 73 70 6c 61 79 20 66 6c 6f 61 74 69  s display floati
61b0: 6e 67 20 70 6f 69 6e 74 20 76 61 6c 75 65 73 20  ng point values 
61c0: 64 69 66 66 65 72 65 6e 74 6c 79 2e 0a 20 20 73  differently..  s
61d0: 74 72 69 6e 67 20 6d 61 70 20 7b 31 2e 23 49 4e  tring map {1.#IN
61e0: 46 20 69 6e 66 20 49 6e 66 20 69 6e 66 20 2e 30  F inf Inf inf .0
61f0: 65 20 65 7d 20 5b 72 65 67 73 75 62 20 2d 61 6c  e e} [regsub -al
6200: 6c 20 7b 28 65 5b 2b 2d 5d 29 30 2b 7d 20 24 72  l {(e[+-])0+} $r
6210: 20 7b 5c 31 7d 5d 0a 7d 0a 70 72 6f 63 20 64 6f   {\1}].}.proc do
6220: 5f 72 65 61 6c 6e 75 6d 5f 74 65 73 74 20 7b 6e  _realnum_test {n
6230: 61 6d 65 20 63 6d 64 20 65 78 70 65 63 74 65 64  ame cmd expected
6240: 7d 20 7b 0a 20 20 75 70 6c 65 76 65 6c 20 5b 6c  } {.  uplevel [l
6250: 69 73 74 20 64 6f 5f 74 65 73 74 20 24 6e 61 6d  ist do_test $nam
6260: 65 20 5b 0a 20 20 20 20 73 75 62 73 74 20 2d 6e  e [.    subst -n
6270: 6f 63 6f 6d 6d 61 6e 64 73 20 7b 20 72 65 61 6c  ocommands { real
6280: 6e 75 6d 5f 6e 6f 72 6d 61 6c 69 7a 65 20 5b 20  num_normalize [ 
6290: 24 63 6d 64 20 5d 20 7d 0a 20 20 5d 20 5b 72 65  $cmd ] }.  ] [re
62a0: 61 6c 6e 75 6d 5f 6e 6f 72 6d 61 6c 69 7a 65 20  alnum_normalize 
62b0: 24 65 78 70 65 63 74 65 64 5d 5d 0a 7d 0a 0a 70  $expected]].}..p
62c0: 72 6f 63 20 66 69 78 5f 74 65 73 74 6e 61 6d 65  roc fix_testname
62d0: 20 7b 76 61 72 6e 61 6d 65 7d 20 7b 0a 20 20 75   {varname} {.  u
62e0: 70 76 61 72 20 24 76 61 72 6e 61 6d 65 20 74 65  pvar $varname te
62f0: 73 74 6e 61 6d 65 0a 20 20 69 66 20 7b 5b 69 6e  stname.  if {[in
6300: 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 65 73 74  fo exists ::test
6310: 70 72 65 66 69 78 5d 0a 20 20 20 26 26 20 5b 73  prefix].   && [s
6320: 74 72 69 6e 67 20 69 73 20 64 69 67 69 74 20 5b  tring is digit [
6330: 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 74 65  string range $te
6340: 73 74 6e 61 6d 65 20 30 20 30 5d 5d 0a 20 20 7d  stname 0 0]].  }
6350: 20 7b 0a 20 20 20 20 73 65 74 20 74 65 73 74 6e   {.    set testn
6360: 61 6d 65 20 22 24 7b 3a 3a 74 65 73 74 70 72 65  ame "${::testpre
6370: 66 69 78 7d 2d 24 74 65 73 74 6e 61 6d 65 22 0a  fix}-$testname".
6380: 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20 64 6f 5f 65    }.}..proc do_e
6390: 78 65 63 73 71 6c 5f 74 65 73 74 20 7b 74 65 73  xecsql_test {tes
63a0: 74 6e 61 6d 65 20 73 71 6c 20 7b 72 65 73 75 6c  tname sql {resul
63b0: 74 20 7b 7d 7d 7d 20 7b 0a 20 20 66 69 78 5f 74  t {}}} {.  fix_t
63c0: 65 73 74 6e 61 6d 65 20 74 65 73 74 6e 61 6d 65  estname testname
63d0: 0a 20 20 75 70 6c 65 76 65 6c 20 64 6f 5f 74 65  .  uplevel do_te
63e0: 73 74 20 5b 6c 69 73 74 20 24 74 65 73 74 6e 61  st [list $testna
63f0: 6d 65 5d 20 5b 6c 69 73 74 20 22 65 78 65 63 73  me] [list "execs
6400: 71 6c 20 7b 24 73 71 6c 7d 22 5d 20 5b 6c 69 73  ql {$sql}"] [lis
6410: 74 20 5b 6c 69 73 74 20 7b 2a 7d 24 72 65 73 75  t [list {*}$resu
6420: 6c 74 5d 5d 0a 7d 0a 70 72 6f 63 20 64 6f 5f 63  lt]].}.proc do_c
6430: 61 74 63 68 73 71 6c 5f 74 65 73 74 20 7b 74 65  atchsql_test {te
6440: 73 74 6e 61 6d 65 20 73 71 6c 20 72 65 73 75 6c  stname sql resul
6450: 74 7d 20 7b 0a 20 20 66 69 78 5f 74 65 73 74 6e  t} {.  fix_testn
6460: 61 6d 65 20 74 65 73 74 6e 61 6d 65 0a 20 20 75  ame testname.  u
6470: 70 6c 65 76 65 6c 20 64 6f 5f 74 65 73 74 20 5b  plevel do_test [
6480: 6c 69 73 74 20 24 74 65 73 74 6e 61 6d 65 5d 20  list $testname] 
6490: 5b 6c 69 73 74 20 22 63 61 74 63 68 73 71 6c 20  [list "catchsql 
64a0: 7b 24 73 71 6c 7d 22 5d 20 5b 6c 69 73 74 20 24  {$sql}"] [list $
64b0: 72 65 73 75 6c 74 5d 0a 7d 0a 70 72 6f 63 20 64  result].}.proc d
64c0: 6f 5f 74 69 6d 65 64 5f 65 78 65 63 73 71 6c 5f  o_timed_execsql_
64d0: 74 65 73 74 20 7b 74 65 73 74 6e 61 6d 65 20 73  test {testname s
64e0: 71 6c 20 7b 72 65 73 75 6c 74 20 7b 7d 7d 7d 20  ql {result {}}} 
64f0: 7b 0a 20 20 66 69 78 5f 74 65 73 74 6e 61 6d 65  {.  fix_testname
6500: 20 74 65 73 74 6e 61 6d 65 0a 20 20 75 70 6c 65   testname.  uple
6510: 76 65 6c 20 64 6f 5f 74 65 73 74 20 5b 6c 69 73  vel do_test [lis
6520: 74 20 24 74 65 73 74 6e 61 6d 65 5d 20 5b 6c 69  t $testname] [li
6530: 73 74 20 22 65 78 65 63 73 71 6c 5f 74 69 6d 65  st "execsql_time
6540: 64 20 7b 24 73 71 6c 7d 22 5d 5c 0a 20 20 20 20  d {$sql}"]\.    
6550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b                 [
6570: 6c 69 73 74 20 5b 6c 69 73 74 20 7b 2a 7d 24 72  list [list {*}$r
6580: 65 73 75 6c 74 5d 5d 0a 7d 0a 70 72 6f 63 20 64  esult]].}.proc d
6590: 6f 5f 65 71 70 5f 74 65 73 74 20 7b 6e 61 6d 65  o_eqp_test {name
65a0: 20 73 71 6c 20 72 65 73 7d 20 7b 0a 20 20 75 70   sql res} {.  up
65b0: 6c 65 76 65 6c 20 64 6f 5f 65 78 65 63 73 71 6c  level do_execsql
65c0: 5f 74 65 73 74 20 24 6e 61 6d 65 20 5b 6c 69 73  _test $name [lis
65d0: 74 20 22 45 58 50 4c 41 49 4e 20 51 55 45 52 59  t "EXPLAIN QUERY
65e0: 20 50 4c 41 4e 20 24 73 71 6c 22 5d 20 5b 6c 69   PLAN $sql"] [li
65f0: 73 74 20 24 72 65 73 5d 0a 7d 0a 0a 23 2d 2d 2d  st $res].}..#---
6600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6640: 2d 2d 2d 2d 2d 2d 0a 23 20 20 20 55 73 61 67 65  ------.#   Usage
6650: 3a 20 64 6f 5f 73 65 6c 65 63 74 5f 74 65 73 74  : do_select_test
6660: 73 20 50 52 45 46 49 58 20 3f 53 57 49 54 43 48  s PREFIX ?SWITCH
6670: 45 53 3f 20 54 45 53 54 4c 49 53 54 0a 23 0a 23  ES? TESTLIST.#.#
6680: 20 57 68 65 72 65 20 73 77 69 74 63 68 65 73 20   Where switches 
6690: 61 72 65 3a 0a 23 0a 23 20 20 20 2d 65 72 72 6f  are:.#.#   -erro
66a0: 72 66 6f 72 6d 61 74 20 46 4d 54 53 54 52 49 4e  rformat FMTSTRIN
66b0: 47 0a 23 20 20 20 2d 63 6f 75 6e 74 0a 23 20 20  G.#   -count.#  
66c0: 20 2d 71 75 65 72 79 20 53 51 4c 0a 23 20 20 20   -query SQL.#   
66d0: 2d 74 63 6c 71 75 65 72 79 20 54 43 4c 0a 23 20  -tclquery TCL.# 
66e0: 20 20 2d 72 65 70 61 69 72 20 54 43 4c 0a 23 0a    -repair TCL.#.
66f0: 70 72 6f 63 20 64 6f 5f 73 65 6c 65 63 74 5f 74  proc do_select_t
6700: 65 73 74 73 20 7b 70 72 65 66 69 78 20 61 72 67  ests {prefix arg
6710: 73 7d 20 7b 0a 0a 20 20 73 65 74 20 74 65 73 74  s} {..  set test
6720: 6c 69 73 74 20 5b 6c 69 6e 64 65 78 20 24 61 72  list [lindex $ar
6730: 67 73 20 65 6e 64 5d 0a 20 20 73 65 74 20 73 77  gs end].  set sw
6740: 69 74 63 68 65 73 20 5b 6c 72 61 6e 67 65 20 24  itches [lrange $
6750: 61 72 67 73 20 30 20 65 6e 64 2d 31 5d 0a 0a 20  args 0 end-1].. 
6760: 20 73 65 74 20 65 72 72 66 6d 74 20 22 22 0a 20   set errfmt "". 
6770: 20 73 65 74 20 63 6f 75 6e 74 6f 6e 6c 79 20 30   set countonly 0
6780: 0a 20 20 73 65 74 20 74 63 6c 71 75 65 72 79 20  .  set tclquery 
6790: 22 22 0a 20 20 73 65 74 20 72 65 70 61 69 72 20  "".  set repair 
67a0: 22 22 0a 0a 20 20 66 6f 72 20 7b 73 65 74 20 69  ""..  for {set i
67b0: 20 30 7d 20 7b 24 69 20 3c 20 5b 6c 6c 65 6e 67   0} {$i < [lleng
67c0: 74 68 20 24 73 77 69 74 63 68 65 73 5d 7d 20 7b  th $switches]} {
67d0: 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20 73 65  incr i} {.    se
67e0: 74 20 73 20 5b 6c 69 6e 64 65 78 20 24 73 77 69  t s [lindex $swi
67f0: 74 63 68 65 73 20 24 69 5d 0a 20 20 20 20 73 65  tches $i].    se
6800: 74 20 6e 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67  t n [string leng
6810: 74 68 20 24 73 5d 0a 20 20 20 20 69 66 20 7b 24  th $s].    if {$
6820: 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e 67 20  n>=2 && [string 
6830: 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24 6e  equal -length $n
6840: 20 24 73 20 22 2d 71 75 65 72 79 22 5d 7d 20 7b   $s "-query"]} {
6850: 0a 20 20 20 20 20 20 73 65 74 20 74 63 6c 71 75  .      set tclqu
6860: 65 72 79 20 5b 6c 69 73 74 20 65 78 65 63 73 71  ery [list execsq
6870: 6c 20 5b 6c 69 6e 64 65 78 20 24 73 77 69 74 63  l [lindex $switc
6880: 68 65 73 20 5b 69 6e 63 72 20 69 5d 5d 5d 0a 20  hes [incr i]]]. 
6890: 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 6e 3e     } elseif {$n>
68a0: 3d 32 20 26 26 20 5b 73 74 72 69 6e 67 20 65 71  =2 && [string eq
68b0: 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24 6e 20 24  ual -length $n $
68c0: 73 20 22 2d 74 63 6c 71 75 65 72 79 22 5d 7d 20  s "-tclquery"]} 
68d0: 7b 0a 20 20 20 20 20 20 73 65 74 20 74 63 6c 71  {.      set tclq
68e0: 75 65 72 79 20 5b 6c 69 6e 64 65 78 20 24 73 77  uery [lindex $sw
68f0: 69 74 63 68 65 73 20 5b 69 6e 63 72 20 69 5d 5d  itches [incr i]]
6900: 0a 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24  .    } elseif {$
6910: 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e 67 20  n>=2 && [string 
6920: 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24 6e  equal -length $n
6930: 20 24 73 20 22 2d 65 72 72 6f 72 66 6f 72 6d 61   $s "-errorforma
6940: 74 22 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74  t"]} {.      set
6950: 20 65 72 72 66 6d 74 20 5b 6c 69 6e 64 65 78 20   errfmt [lindex 
6960: 24 73 77 69 74 63 68 65 73 20 5b 69 6e 63 72 20  $switches [incr 
6970: 69 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66  i]].    } elseif
6980: 20 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69   {$n>=2 && [stri
6990: 6e 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68  ng equal -length
69a0: 20 24 6e 20 24 73 20 22 2d 72 65 70 61 69 72 22   $n $s "-repair"
69b0: 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 72  ]} {.      set r
69c0: 65 70 61 69 72 20 5b 6c 69 6e 64 65 78 20 24 73  epair [lindex $s
69d0: 77 69 74 63 68 65 73 20 5b 69 6e 63 72 20 69 5d  witches [incr i]
69e0: 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b  ].    } elseif {
69f0: 24 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e 67  $n>=2 && [string
6a00: 20 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24   equal -length $
6a10: 6e 20 24 73 20 22 2d 63 6f 75 6e 74 22 5d 7d 20  n $s "-count"]} 
6a20: 7b 0a 20 20 20 20 20 20 73 65 74 20 63 6f 75 6e  {.      set coun
6a30: 74 6f 6e 6c 79 20 31 0a 20 20 20 20 7d 20 65 6c  tonly 1.    } el
6a40: 73 65 20 7b 0a 20 20 20 20 20 20 65 72 72 6f 72  se {.      error
6a50: 20 22 75 6e 6b 6e 6f 77 6e 20 73 77 69 74 63 68   "unknown switch
6a60: 3a 20 24 73 22 0a 20 20 20 20 7d 0a 20 20 7d 0a  : $s".    }.  }.
6a70: 0a 20 20 69 66 20 7b 24 63 6f 75 6e 74 6f 6e 6c  .  if {$countonl
6a80: 79 20 26 26 20 24 65 72 72 66 6d 74 21 3d 22 22  y && $errfmt!=""
6a90: 7d 20 7b 0a 20 20 20 20 65 72 72 6f 72 20 22 43  } {.    error "C
6aa0: 61 6e 6e 6f 74 20 75 73 65 20 2d 63 6f 75 6e 74  annot use -count
6ab0: 20 61 6e 64 20 2d 65 72 72 6f 72 66 6f 72 6d 61   and -errorforma
6ac0: 74 20 74 6f 67 65 74 68 65 72 22 0a 20 20 7d 0a  t together".  }.
6ad0: 20 20 73 65 74 20 6e 54 65 73 74 6c 69 73 74 20    set nTestlist 
6ae0: 5b 6c 6c 65 6e 67 74 68 20 24 74 65 73 74 6c 69  [llength $testli
6af0: 73 74 5d 0a 20 20 69 66 20 7b 24 6e 54 65 73 74  st].  if {$nTest
6b00: 6c 69 73 74 25 33 20 7c 7c 20 24 6e 54 65 73 74  list%3 || $nTest
6b10: 6c 69 73 74 3d 3d 30 20 7d 20 7b 0a 20 20 20 20  list==0 } {.    
6b20: 65 72 72 6f 72 20 22 53 45 4c 45 43 54 20 74 65  error "SELECT te
6b30: 73 74 20 6c 69 73 74 20 63 6f 6e 74 61 69 6e 73  st list contains
6b40: 20 5b 6c 6c 65 6e 67 74 68 20 24 74 65 73 74 6c   [llength $testl
6b50: 69 73 74 5d 20 65 6c 65 6d 65 6e 74 73 22 0a 20  ist] elements". 
6b60: 20 7d 0a 0a 20 20 65 76 61 6c 20 24 72 65 70 61   }..  eval $repa
6b70: 69 72 0a 20 20 66 6f 72 65 61 63 68 20 7b 74 6e  ir.  foreach {tn
6b80: 20 73 71 6c 20 72 65 73 7d 20 24 74 65 73 74 6c   sql res} $testl
6b90: 69 73 74 20 7b 0a 20 20 20 20 69 66 20 7b 24 74  ist {.    if {$t
6ba0: 63 6c 71 75 65 72 79 20 21 3d 20 22 22 7d 20 7b  clquery != ""} {
6bb0: 0a 20 20 20 20 20 20 65 78 65 63 73 71 6c 20 24  .      execsql $
6bc0: 73 71 6c 0a 20 20 20 20 20 20 75 70 6c 65 76 65  sql.      upleve
6bd0: 6c 20 64 6f 5f 74 65 73 74 20 24 7b 70 72 65 66  l do_test ${pref
6be0: 69 78 7d 2e 24 74 6e 20 5b 6c 69 73 74 20 24 74  ix}.$tn [list $t
6bf0: 63 6c 71 75 65 72 79 5d 20 5b 6c 69 73 74 20 5b  clquery] [list [
6c00: 6c 69 73 74 20 7b 2a 7d 24 72 65 73 5d 5d 0a 20  list {*}$res]]. 
6c10: 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 63 6f     } elseif {$co
6c20: 75 6e 74 6f 6e 6c 79 7d 20 7b 0a 20 20 20 20 20  untonly} {.     
6c30: 20 73 65 74 20 6e 52 6f 77 20 30 0a 20 20 20 20   set nRow 0.    
6c40: 20 20 64 62 20 65 76 61 6c 20 24 73 71 6c 20 7b    db eval $sql {
6c50: 69 6e 63 72 20 6e 52 6f 77 7d 0a 20 20 20 20 20  incr nRow}.     
6c60: 20 75 70 6c 65 76 65 6c 20 64 6f 5f 74 65 73 74   uplevel do_test
6c70: 20 24 7b 70 72 65 66 69 78 7d 2e 24 74 6e 20 5b   ${prefix}.$tn [
6c80: 6c 69 73 74 20 5b 6c 69 73 74 20 73 65 74 20 7b  list [list set {
6c90: 7d 20 24 6e 52 6f 77 5d 5d 20 5b 6c 69 73 74 20  } $nRow]] [list 
6ca0: 24 72 65 73 5d 0a 20 20 20 20 7d 20 65 6c 73 65  $res].    } else
6cb0: 69 66 20 7b 24 65 72 72 66 6d 74 3d 3d 22 22 7d  if {$errfmt==""}
6cc0: 20 7b 0a 20 20 20 20 20 20 75 70 6c 65 76 65 6c   {.      uplevel
6cd0: 20 64 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74   do_execsql_test
6ce0: 20 24 7b 70 72 65 66 69 78 7d 2e 24 7b 74 6e 7d   ${prefix}.${tn}
6cf0: 20 5b 6c 69 73 74 20 24 73 71 6c 5d 20 5b 6c 69   [list $sql] [li
6d00: 73 74 20 5b 6c 69 73 74 20 7b 2a 7d 24 72 65 73  st [list {*}$res
6d10: 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a  ]].    } else {.
6d20: 20 20 20 20 20 20 73 65 74 20 72 65 73 20 5b 6c        set res [l
6d30: 69 73 74 20 31 20 5b 73 74 72 69 6e 67 20 74 72  ist 1 [string tr
6d40: 69 6d 20 5b 66 6f 72 6d 61 74 20 24 65 72 72 66  im [format $errf
6d50: 6d 74 20 7b 2a 7d 24 72 65 73 5d 5d 5d 0a 20 20  mt {*}$res]]].  
6d60: 20 20 20 20 75 70 6c 65 76 65 6c 20 64 6f 5f 63      uplevel do_c
6d70: 61 74 63 68 73 71 6c 5f 74 65 73 74 20 24 7b 70  atchsql_test ${p
6d80: 72 65 66 69 78 7d 2e 24 7b 74 6e 7d 20 5b 6c 69  refix}.${tn} [li
6d90: 73 74 20 24 73 71 6c 5d 20 5b 6c 69 73 74 20 24  st $sql] [list $
6da0: 72 65 73 5d 0a 20 20 20 20 7d 0a 20 20 20 20 65  res].    }.    e
6db0: 76 61 6c 20 24 72 65 70 61 69 72 0a 20 20 7d 0a  val $repair.  }.
6dc0: 0a 7d 0a 0a 70 72 6f 63 20 64 65 6c 65 74 65 5f  .}..proc delete_
6dd0: 61 6c 6c 5f 64 61 74 61 20 7b 7d 20 7b 0a 20 20  all_data {} {.  
6de0: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20  db eval {SELECT 
6df0: 74 62 6c 5f 6e 61 6d 65 20 41 53 20 74 20 46 52  tbl_name AS t FR
6e00: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
6e10: 20 57 48 45 52 45 20 74 79 70 65 20 3d 20 27 74   WHERE type = 't
6e20: 61 62 6c 65 27 7d 20 7b 0a 20 20 20 20 64 62 20  able'} {.    db 
6e30: 65 76 61 6c 20 22 44 45 4c 45 54 45 20 46 52 4f  eval "DELETE FRO
6e40: 4d 20 27 5b 73 74 72 69 6e 67 20 6d 61 70 20 7b  M '[string map {
6e50: 27 20 27 27 7d 20 24 74 5d 27 22 0a 20 20 7d 0a  ' ''} $t]'".  }.
6e60: 7d 0a 0a 23 20 52 75 6e 20 61 6e 20 53 51 4c 20  }..# Run an SQL 
6e70: 73 63 72 69 70 74 2e 0a 23 20 52 65 74 75 72 6e  script..# Return
6e80: 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 6d   the number of m
6e90: 69 63 72 6f 73 65 63 6f 6e 64 73 20 70 65 72 20  icroseconds per 
6ea0: 73 74 61 74 65 6d 65 6e 74 2e 0a 23 0a 70 72 6f  statement..#.pro
6eb0: 63 20 73 70 65 65 64 5f 74 72 69 61 6c 20 7b 6e  c speed_trial {n
6ec0: 61 6d 65 20 6e 75 6d 73 74 6d 74 20 75 6e 69 74  ame numstmt unit
6ed0: 73 20 73 71 6c 7d 20 7b 0a 20 20 6f 75 74 70 75  s sql} {.  outpu
6ee0: 74 32 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 5b 66  t2 -nonewline [f
6ef0: 6f 72 6d 61 74 20 7b 25 2d 32 31 2e 32 31 73 20  ormat {%-21.21s 
6f00: 7d 20 24 6e 61 6d 65 2e 2e 2e 5d 0a 20 20 66 6c  } $name...].  fl
6f10: 75 73 68 20 73 74 64 6f 75 74 0a 20 20 73 65 74  ush stdout.  set
6f20: 20 73 70 65 65 64 20 5b 74 69 6d 65 20 7b 73 71   speed [time {sq
6f30: 6c 69 74 65 33 5f 65 78 65 63 5f 6e 72 20 64 62  lite3_exec_nr db
6f40: 20 24 73 71 6c 7d 5d 0a 20 20 73 65 74 20 74 6d   $sql}].  set tm
6f50: 20 5b 6c 69 6e 64 65 78 20 24 73 70 65 65 64 20   [lindex $speed 
6f60: 30 5d 0a 20 20 69 66 20 7b 24 74 6d 20 3d 3d 20  0].  if {$tm == 
6f70: 30 7d 20 7b 0a 20 20 20 20 73 65 74 20 72 61 74  0} {.    set rat
6f80: 65 20 5b 66 6f 72 6d 61 74 20 25 32 30 73 20 22  e [format %20s "
6f90: 6d 61 6e 79 22 5d 0a 20 20 7d 20 65 6c 73 65 20  many"].  } else 
6fa0: 7b 0a 20 20 20 20 73 65 74 20 72 61 74 65 20 5b  {.    set rate [
6fb0: 66 6f 72 6d 61 74 20 25 32 30 2e 35 66 20 5b 65  format %20.5f [e
6fc0: 78 70 72 20 7b 31 30 30 30 30 30 30 2e 30 2a 24  xpr {1000000.0*$
6fd0: 6e 75 6d 73 74 6d 74 2f 24 74 6d 7d 5d 5d 0a 20  numstmt/$tm}]]. 
6fe0: 20 7d 0a 20 20 73 65 74 20 75 32 20 24 75 6e 69   }.  set u2 $uni
6ff0: 74 73 2f 73 0a 20 20 6f 75 74 70 75 74 32 20 5b  ts/s.  output2 [
7000: 66 6f 72 6d 61 74 20 7b 25 31 32 64 20 75 53 20  format {%12d uS 
7010: 25 73 20 25 73 7d 20 24 74 6d 20 24 72 61 74 65  %s %s} $tm $rate
7020: 20 24 75 32 5d 0a 20 20 67 6c 6f 62 61 6c 20 74   $u2].  global t
7030: 6f 74 61 6c 5f 74 69 6d 65 0a 20 20 73 65 74 20  otal_time.  set 
7040: 74 6f 74 61 6c 5f 74 69 6d 65 20 5b 65 78 70 72  total_time [expr
7050: 20 7b 24 74 6f 74 61 6c 5f 74 69 6d 65 2b 24 74   {$total_time+$t
7060: 6d 7d 5d 0a 20 20 6c 61 70 70 65 6e 64 20 3a 3a  m}].  lappend ::
7070: 73 70 65 65 64 5f 74 72 69 61 6c 5f 74 69 6d 65  speed_trial_time
7080: 73 20 24 6e 61 6d 65 20 24 74 6d 0a 7d 0a 70 72  s $name $tm.}.pr
7090: 6f 63 20 73 70 65 65 64 5f 74 72 69 61 6c 5f 74  oc speed_trial_t
70a0: 63 6c 20 7b 6e 61 6d 65 20 6e 75 6d 73 74 6d 74  cl {name numstmt
70b0: 20 75 6e 69 74 73 20 73 63 72 69 70 74 7d 20 7b   units script} {
70c0: 0a 20 20 6f 75 74 70 75 74 32 20 2d 6e 6f 6e 65  .  output2 -none
70d0: 77 6c 69 6e 65 20 5b 66 6f 72 6d 61 74 20 7b 25  wline [format {%
70e0: 2d 32 31 2e 32 31 73 20 7d 20 24 6e 61 6d 65 2e  -21.21s } $name.
70f0: 2e 2e 5d 0a 20 20 66 6c 75 73 68 20 73 74 64 6f  ..].  flush stdo
7100: 75 74 0a 20 20 73 65 74 20 73 70 65 65 64 20 5b  ut.  set speed [
7110: 74 69 6d 65 20 7b 65 76 61 6c 20 24 73 63 72 69  time {eval $scri
7120: 70 74 7d 5d 0a 20 20 73 65 74 20 74 6d 20 5b 6c  pt}].  set tm [l
7130: 69 6e 64 65 78 20 24 73 70 65 65 64 20 30 5d 0a  index $speed 0].
7140: 20 20 69 66 20 7b 24 74 6d 20 3d 3d 20 30 7d 20    if {$tm == 0} 
7150: 7b 0a 20 20 20 20 73 65 74 20 72 61 74 65 20 5b  {.    set rate [
7160: 66 6f 72 6d 61 74 20 25 32 30 73 20 22 6d 61 6e  format %20s "man
7170: 79 22 5d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20  y"].  } else {. 
7180: 20 20 20 73 65 74 20 72 61 74 65 20 5b 66 6f 72     set rate [for
7190: 6d 61 74 20 25 32 30 2e 35 66 20 5b 65 78 70 72  mat %20.5f [expr
71a0: 20 7b 31 30 30 30 30 30 30 2e 30 2a 24 6e 75 6d   {1000000.0*$num
71b0: 73 74 6d 74 2f 24 74 6d 7d 5d 5d 0a 20 20 7d 0a  stmt/$tm}]].  }.
71c0: 20 20 73 65 74 20 75 32 20 24 75 6e 69 74 73 2f    set u2 $units/
71d0: 73 0a 20 20 6f 75 74 70 75 74 32 20 5b 66 6f 72  s.  output2 [for
71e0: 6d 61 74 20 7b 25 31 32 64 20 75 53 20 25 73 20  mat {%12d uS %s 
71f0: 25 73 7d 20 24 74 6d 20 24 72 61 74 65 20 24 75  %s} $tm $rate $u
7200: 32 5d 0a 20 20 67 6c 6f 62 61 6c 20 74 6f 74 61  2].  global tota
7210: 6c 5f 74 69 6d 65 0a 20 20 73 65 74 20 74 6f 74  l_time.  set tot
7220: 61 6c 5f 74 69 6d 65 20 5b 65 78 70 72 20 7b 24  al_time [expr {$
7230: 74 6f 74 61 6c 5f 74 69 6d 65 2b 24 74 6d 7d 5d  total_time+$tm}]
7240: 0a 20 20 6c 61 70 70 65 6e 64 20 3a 3a 73 70 65  .  lappend ::spe
7250: 65 64 5f 74 72 69 61 6c 5f 74 69 6d 65 73 20 24  ed_trial_times $
7260: 6e 61 6d 65 20 24 74 6d 0a 7d 0a 70 72 6f 63 20  name $tm.}.proc 
7270: 73 70 65 65 64 5f 74 72 69 61 6c 5f 69 6e 69 74  speed_trial_init
7280: 20 7b 6e 61 6d 65 7d 20 7b 0a 20 20 67 6c 6f 62   {name} {.  glob
7290: 61 6c 20 74 6f 74 61 6c 5f 74 69 6d 65 0a 20 20  al total_time.  
72a0: 73 65 74 20 74 6f 74 61 6c 5f 74 69 6d 65 20 30  set total_time 0
72b0: 0a 20 20 73 65 74 20 3a 3a 73 70 65 65 64 5f 74  .  set ::speed_t
72c0: 72 69 61 6c 5f 74 69 6d 65 73 20 5b 6c 69 73 74  rial_times [list
72d0: 5d 0a 20 20 73 71 6c 69 74 65 33 20 76 65 72 73  ].  sqlite3 vers
72e0: 64 62 20 3a 6d 65 6d 6f 72 79 3a 0a 20 20 73 65  db :memory:.  se
72f0: 74 20 76 65 72 73 20 5b 76 65 72 73 64 62 20 6f  t vers [versdb o
7300: 6e 65 20 7b 53 45 4c 45 43 54 20 73 71 6c 69 74  ne {SELECT sqlit
7310: 65 5f 73 6f 75 72 63 65 5f 69 64 28 29 7d 5d 0a  e_source_id()}].
7320: 20 20 76 65 72 73 64 62 20 63 6c 6f 73 65 0a 20    versdb close. 
7330: 20 6f 75 74 70 75 74 32 20 22 53 51 4c 69 74 65   output2 "SQLite
7340: 20 24 76 65 72 73 22 0a 7d 0a 70 72 6f 63 20 73   $vers".}.proc s
7350: 70 65 65 64 5f 74 72 69 61 6c 5f 73 75 6d 6d 61  peed_trial_summa
7360: 72 79 20 7b 6e 61 6d 65 7d 20 7b 0a 20 20 67 6c  ry {name} {.  gl
7370: 6f 62 61 6c 20 74 6f 74 61 6c 5f 74 69 6d 65 0a  obal total_time.
7380: 20 20 6f 75 74 70 75 74 32 20 5b 66 6f 72 6d 61    output2 [forma
7390: 74 20 7b 25 2d 32 31 2e 32 31 73 20 25 31 32 64  t {%-21.21s %12d
73a0: 20 75 53 20 54 4f 54 41 4c 7d 20 24 6e 61 6d 65   uS TOTAL} $name
73b0: 20 24 74 6f 74 61 6c 5f 74 69 6d 65 5d 0a 0a 20   $total_time].. 
73c0: 20 69 66 20 7b 20 30 20 7d 20 7b 0a 20 20 20 20   if { 0 } {.    
73d0: 73 71 6c 69 74 65 33 20 76 65 72 73 64 62 20 3a  sqlite3 versdb :
73e0: 6d 65 6d 6f 72 79 3a 0a 20 20 20 20 73 65 74 20  memory:.    set 
73f0: 76 65 72 73 20 5b 6c 69 6e 64 65 78 20 5b 76 65  vers [lindex [ve
7400: 72 73 64 62 20 6f 6e 65 20 7b 53 45 4c 45 43 54  rsdb one {SELECT
7410: 20 73 71 6c 69 74 65 5f 73 6f 75 72 63 65 5f 69   sqlite_source_i
7420: 64 28 29 7d 5d 20 30 5d 0a 20 20 20 20 76 65 72  d()}] 0].    ver
7430: 73 64 62 20 63 6c 6f 73 65 0a 20 20 20 20 6f 75  sdb close.    ou
7440: 74 70 75 74 32 20 22 43 52 45 41 54 45 20 54 41  tput2 "CREATE TA
7450: 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54  BLE IF NOT EXIST
7460: 53 20 74 69 6d 65 28 76 65 72 73 69 6f 6e 2c 20  S time(version, 
7470: 73 63 72 69 70 74 2c 20 74 65 73 74 2c 20 75 73  script, test, us
7480: 29 3b 22 0a 20 20 20 20 66 6f 72 65 61 63 68 20  );".    foreach 
7490: 7b 74 65 73 74 20 75 73 7d 20 24 3a 3a 73 70 65  {test us} $::spe
74a0: 65 64 5f 74 72 69 61 6c 5f 74 69 6d 65 73 20 7b  ed_trial_times {
74b0: 0a 20 20 20 20 20 20 6f 75 74 70 75 74 32 20 22  .      output2 "
74c0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 69 6d 65  INSERT INTO time
74d0: 20 56 41 4c 55 45 53 28 27 24 76 65 72 73 27 2c   VALUES('$vers',
74e0: 20 27 24 6e 61 6d 65 27 2c 20 27 24 74 65 73 74   '$name', '$test
74f0: 27 2c 20 24 75 73 29 3b 22 0a 20 20 20 20 7d 0a  ', $us);".    }.
7500: 20 20 7d 0a 7d 0a 0a 23 20 52 75 6e 20 74 68 69    }.}..# Run thi
7510: 73 20 72 6f 75 74 69 6e 65 20 6c 61 73 74 0a 23  s routine last.#
7520: 0a 70 72 6f 63 20 66 69 6e 69 73 68 5f 74 65 73  .proc finish_tes
7530: 74 20 7b 7d 20 7b 0a 20 20 63 61 74 63 68 20 7b  t {} {.  catch {
7540: 64 62 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63  db close}.  catc
7550: 68 20 7b 64 62 31 20 63 6c 6f 73 65 7d 0a 20 20  h {db1 close}.  
7560: 63 61 74 63 68 20 7b 64 62 32 20 63 6c 6f 73 65  catch {db2 close
7570: 7d 0a 20 20 63 61 74 63 68 20 7b 64 62 33 20 63  }.  catch {db3 c
7580: 6c 6f 73 65 7d 0a 20 20 69 66 20 7b 30 3d 3d 5b  lose}.  if {0==[
7590: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 53 4c  info exists ::SL
75a0: 41 56 45 5d 7d 20 7b 20 66 69 6e 61 6c 69 7a 65  AVE]} { finalize
75b0: 5f 74 65 73 74 69 6e 67 20 7d 0a 7d 0a 70 72 6f  _testing }.}.pro
75c0: 63 20 66 69 6e 61 6c 69 7a 65 5f 74 65 73 74 69  c finalize_testi
75d0: 6e 67 20 7b 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c  ng {} {.  global
75e0: 20 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c   sqlite_open_fil
75f0: 65 5f 63 6f 75 6e 74 0a 0a 20 20 73 65 74 20 6f  e_count..  set o
7600: 6d 69 74 4c 69 73 74 20 5b 73 65 74 5f 74 65 73  mitList [set_tes
7610: 74 5f 63 6f 75 6e 74 65 72 20 6f 6d 69 74 5f 6c  t_counter omit_l
7620: 69 73 74 5d 0a 0a 20 20 63 61 74 63 68 20 7b 64  ist]..  catch {d
7630: 62 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68  b close}.  catch
7640: 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 20 20 63   {db2 close}.  c
7650: 61 74 63 68 20 7b 64 62 33 20 63 6c 6f 73 65 7d  atch {db3 close}
7660: 0a 0a 20 20 76 66 73 5f 75 6e 6c 69 6e 6b 5f 74  ..  vfs_unlink_t
7670: 65 73 74 0a 20 20 73 71 6c 69 74 65 33 20 64 62  est.  sqlite3 db
7680: 20 7b 7d 0a 20 20 23 20 73 71 6c 69 74 65 33 5f   {}.  # sqlite3_
7690: 63 6c 65 61 72 5f 74 73 64 5f 6d 65 6d 64 65 62  clear_tsd_memdeb
76a0: 75 67 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20  ug.  db close.  
76b0: 73 71 6c 69 74 65 33 5f 72 65 73 65 74 5f 61 75  sqlite3_reset_au
76c0: 74 6f 5f 65 78 74 65 6e 73 69 6f 6e 0a 0a 20 20  to_extension..  
76d0: 73 71 6c 69 74 65 33 5f 73 6f 66 74 5f 68 65 61  sqlite3_soft_hea
76e0: 70 5f 6c 69 6d 69 74 20 30 0a 20 20 73 65 74 20  p_limit 0.  set 
76f0: 6e 54 65 73 74 20 5b 69 6e 63 72 5f 6e 74 65 73  nTest [incr_ntes
7700: 74 5d 0a 20 20 73 65 74 20 6e 45 72 72 20 5b 73  t].  set nErr [s
7710: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20  et_test_counter 
7720: 65 72 72 6f 72 73 5d 0a 0a 20 20 73 65 74 20 6e  errors]..  set n
7730: 4b 6e 6f 77 6e 20 30 0a 20 20 69 66 20 7b 5b 66  Known 0.  if {[f
7740: 69 6c 65 20 72 65 61 64 61 62 6c 65 20 6b 6e 6f  ile readable kno
7750: 77 6e 2d 70 72 6f 62 6c 65 6d 73 2e 74 78 74 5d  wn-problems.txt]
7760: 7d 20 7b 0a 20 20 20 20 73 65 74 20 66 64 20 5b  } {.    set fd [
7770: 6f 70 65 6e 20 6b 6e 6f 77 6e 2d 70 72 6f 62 6c  open known-probl
7780: 65 6d 73 2e 74 78 74 5d 0a 20 20 20 20 73 65 74  ems.txt].    set
7790: 20 63 6f 6e 74 65 6e 74 20 5b 72 65 61 64 20 24   content [read $
77a0: 66 64 5d 0a 20 20 20 20 63 6c 6f 73 65 20 24 66  fd].    close $f
77b0: 64 0a 20 20 20 20 66 6f 72 65 61 63 68 20 78 20  d.    foreach x 
77c0: 24 63 6f 6e 74 65 6e 74 20 7b 73 65 74 20 6b 6e  $content {set kn
77d0: 6f 77 6e 5f 65 72 72 6f 72 28 24 78 29 20 31 7d  own_error($x) 1}
77e0: 0a 20 20 20 20 66 6f 72 65 61 63 68 20 78 20 5b  .    foreach x [
77f0: 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72  set_test_counter
7800: 20 66 61 69 6c 5f 6c 69 73 74 5d 20 7b 0a 20 20   fail_list] {.  
7810: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78      if {[info ex
7820: 69 73 74 73 20 6b 6e 6f 77 6e 5f 65 72 72 6f 72  ists known_error
7830: 28 24 78 29 5d 7d 20 7b 69 6e 63 72 20 6e 4b 6e  ($x)]} {incr nKn
7840: 6f 77 6e 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20  own}.    }.  }. 
7850: 20 69 66 20 7b 24 6e 4b 6e 6f 77 6e 3e 30 7d 20   if {$nKnown>0} 
7860: 7b 0a 20 20 20 20 6f 75 74 70 75 74 32 20 22 5b  {.    output2 "[
7870: 65 78 70 72 20 7b 24 6e 45 72 72 2d 24 6e 4b 6e  expr {$nErr-$nKn
7880: 6f 77 6e 7d 5d 20 6e 65 77 20 65 72 72 6f 72 73  own}] new errors
7890: 20 61 6e 64 20 24 6e 4b 6e 6f 77 6e 20 6b 6e 6f   and $nKnown kno
78a0: 77 6e 20 65 72 72 6f 72 73 5c 0a 20 20 20 20 20  wn errors\.     
78b0: 20 20 20 20 6f 75 74 20 6f 66 20 24 6e 54 65 73      out of $nTes
78c0: 74 20 74 65 73 74 73 22 0a 20 20 7d 20 65 6c 73  t tests".  } els
78d0: 65 20 7b 0a 20 20 20 20 73 65 74 20 63 70 75 69  e {.    set cpui
78e0: 6e 66 6f 20 7b 7d 0a 20 20 20 20 69 66 20 7b 5b  nfo {}.    if {[
78f0: 63 61 74 63 68 20 7b 65 78 65 63 20 68 6f 73 74  catch {exec host
7900: 6e 61 6d 65 7d 20 68 6e 61 6d 65 5d 3d 3d 30 7d  name} hname]==0}
7910: 20 7b 73 65 74 20 63 70 75 69 6e 66 6f 20 5b 73   {set cpuinfo [s
7920: 74 72 69 6e 67 20 74 72 69 6d 20 24 68 6e 61 6d  tring trim $hnam
7930: 65 5d 7d 0a 20 20 20 20 61 70 70 65 6e 64 20 63  e]}.    append c
7940: 70 75 69 6e 66 6f 20 22 20 24 3a 3a 74 63 6c 5f  puinfo " $::tcl_
7950: 70 6c 61 74 66 6f 72 6d 28 6f 73 29 22 0a 20 20  platform(os)".  
7960: 20 20 61 70 70 65 6e 64 20 63 70 75 69 6e 66 6f    append cpuinfo
7970: 20 22 20 5b 65 78 70 72 20 7b 24 3a 3a 74 63 6c   " [expr {$::tcl
7980: 5f 70 6c 61 74 66 6f 72 6d 28 70 6f 69 6e 74 65  _platform(pointe
7990: 72 53 69 7a 65 29 2a 38 7d 5d 2d 62 69 74 22 0a  rSize)*8}]-bit".
79a0: 20 20 20 20 61 70 70 65 6e 64 20 63 70 75 69 6e      append cpuin
79b0: 66 6f 20 22 20 5b 73 74 72 69 6e 67 20 6d 61 70  fo " [string map
79c0: 20 7b 45 20 2d 65 7d 20 24 3a 3a 74 63 6c 5f 70   {E -e} $::tcl_p
79d0: 6c 61 74 66 6f 72 6d 28 62 79 74 65 4f 72 64 65  latform(byteOrde
79e0: 72 29 5d 22 0a 20 20 20 20 6f 75 74 70 75 74 32  r)]".    output2
79f0: 20 22 53 51 4c 69 74 65 20 5b 73 71 6c 69 74 65   "SQLite [sqlite
7a00: 33 20 2d 73 6f 75 72 63 65 69 64 5d 22 0a 20 20  3 -sourceid]".  
7a10: 20 20 6f 75 74 70 75 74 32 20 22 24 6e 45 72 72    output2 "$nErr
7a20: 20 65 72 72 6f 72 73 20 6f 75 74 20 6f 66 20 24   errors out of $
7a30: 6e 54 65 73 74 20 74 65 73 74 73 20 6f 6e 20 24  nTest tests on $
7a40: 63 70 75 69 6e 66 6f 22 0a 20 20 7d 0a 20 20 69  cpuinfo".  }.  i
7a50: 66 20 7b 24 6e 45 72 72 3e 24 6e 4b 6e 6f 77 6e  f {$nErr>$nKnown
7a60: 7d 20 7b 0a 20 20 20 20 6f 75 74 70 75 74 32 20  } {.    output2 
7a70: 2d 6e 6f 6e 65 77 6c 69 6e 65 20 22 21 46 61 69  -nonewline "!Fai
7a80: 6c 75 72 65 73 20 6f 6e 20 74 68 65 73 65 20 74  lures on these t
7a90: 65 73 74 73 3a 22 0a 20 20 20 20 66 6f 72 65 61  ests:".    forea
7aa0: 63 68 20 78 20 5b 73 65 74 5f 74 65 73 74 5f 63  ch x [set_test_c
7ab0: 6f 75 6e 74 65 72 20 66 61 69 6c 5f 6c 69 73 74  ounter fail_list
7ac0: 5d 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 21 5b  ] {.      if {![
7ad0: 69 6e 66 6f 20 65 78 69 73 74 73 20 6b 6e 6f 77  info exists know
7ae0: 6e 5f 65 72 72 6f 72 28 24 78 29 5d 7d 20 7b 6f  n_error($x)]} {o
7af0: 75 74 70 75 74 32 20 2d 6e 6f 6e 65 77 6c 69 6e  utput2 -nonewlin
7b00: 65 20 22 20 24 78 22 7d 0a 20 20 20 20 7d 0a 20  e " $x"}.    }. 
7b10: 20 20 20 6f 75 74 70 75 74 32 20 22 22 0a 20 20     output2 "".  
7b20: 7d 0a 20 20 66 6f 72 65 61 63 68 20 77 61 72 6e  }.  foreach warn
7b30: 69 6e 67 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f  ing [set_test_co
7b40: 75 6e 74 65 72 20 77 61 72 6e 5f 6c 69 73 74 5d  unter warn_list]
7b50: 20 7b 0a 20 20 20 20 6f 75 74 70 75 74 32 20 22   {.    output2 "
7b60: 57 61 72 6e 69 6e 67 3a 20 24 77 61 72 6e 69 6e  Warning: $warnin
7b70: 67 22 0a 20 20 7d 0a 20 20 72 75 6e 5f 74 68 72  g".  }.  run_thr
7b80: 65 61 64 5f 74 65 73 74 73 20 31 0a 20 20 69 66  ead_tests 1.  if
7b90: 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 6f 6d 69 74   {[llength $omit
7ba0: 4c 69 73 74 5d 3e 30 7d 20 7b 0a 20 20 20 20 6f  List]>0} {.    o
7bb0: 75 74 70 75 74 32 20 22 4f 6d 69 74 74 65 64 20  utput2 "Omitted 
7bc0: 74 65 73 74 20 63 61 73 65 73 3a 22 0a 20 20 20  test cases:".   
7bd0: 20 73 65 74 20 70 72 65 63 20 7b 7d 0a 20 20 20   set prec {}.   
7be0: 20 66 6f 72 65 61 63 68 20 7b 72 65 63 7d 20 5b   foreach {rec} [
7bf0: 6c 73 6f 72 74 20 24 6f 6d 69 74 4c 69 73 74 5d  lsort $omitList]
7c00: 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 24 72 65   {.      if {$re
7c10: 63 3d 3d 24 70 72 65 63 7d 20 63 6f 6e 74 69 6e  c==$prec} contin
7c20: 75 65 0a 20 20 20 20 20 20 73 65 74 20 70 72 65  ue.      set pre
7c30: 63 20 24 72 65 63 0a 20 20 20 20 20 20 6f 75 74  c $rec.      out
7c40: 70 75 74 32 20 5b 66 6f 72 6d 61 74 20 7b 2e 20  put2 [format {. 
7c50: 20 25 2d 31 32 73 20 25 73 7d 20 5b 6c 69 6e 64   %-12s %s} [lind
7c60: 65 78 20 24 72 65 63 20 30 5d 20 5b 6c 69 6e 64  ex $rec 0] [lind
7c70: 65 78 20 24 72 65 63 20 31 5d 5d 0a 20 20 20 20  ex $rec 1]].    
7c80: 7d 0a 20 20 7d 0a 20 20 69 66 20 7b 24 6e 45 72  }.  }.  if {$nEr
7c90: 72 3e 30 20 26 26 20 21 5b 77 6f 72 6b 69 6e 67  r>0 && ![working
7ca0: 5f 36 34 62 69 74 5f 69 6e 74 5d 7d 20 7b 0a 20  _64bit_int]} {. 
7cb0: 20 20 20 6f 75 74 70 75 74 32 20 22 2a 2a 2a 2a     output2 "****
7cc0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
7cd0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
7ce0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
7cf0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 0a  **************".
7d00: 20 20 20 20 6f 75 74 70 75 74 32 20 22 4e 2e 42      output2 "N.B
7d10: 2e 3a 20 20 54 68 65 20 76 65 72 73 69 6f 6e 20  .:  The version 
7d20: 6f 66 20 54 43 4c 20 74 68 61 74 20 79 6f 75 20  of TCL that you 
7d30: 75 73 65 64 20 74 6f 20 62 75 69 6c 64 20 74 68  used to build th
7d40: 69 73 20 74 65 73 74 20 68 61 72 6e 65 73 73 22  is test harness"
7d50: 0a 20 20 20 20 6f 75 74 70 75 74 32 20 22 69 73  .    output2 "is
7d60: 20 64 65 66 65 63 74 69 76 65 20 69 6e 20 74 68   defective in th
7d70: 61 74 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 73  at it does not s
7d80: 75 70 70 6f 72 74 20 36 34 2d 62 69 74 20 69 6e  upport 64-bit in
7d90: 74 65 67 65 72 73 2e 20 20 53 6f 6d 65 20 6f 72  tegers.  Some or
7da0: 22 0a 20 20 20 20 6f 75 74 70 75 74 32 20 22 61  ".    output2 "a
7db0: 6c 6c 20 6f 66 20 74 68 65 20 74 65 73 74 20 66  ll of the test f
7dc0: 61 69 6c 75 72 65 73 20 61 62 6f 76 65 20 6d 69  ailures above mi
7dd0: 67 68 74 20 62 65 20 61 20 72 65 73 75 6c 74 20  ght be a result 
7de0: 66 72 6f 6d 20 74 68 69 73 20 64 65 66 65 63 74  from this defect
7df0: 22 0a 20 20 20 20 6f 75 74 70 75 74 32 20 22 69  ".    output2 "i
7e00: 6e 20 79 6f 75 72 20 54 43 4c 20 62 75 69 6c 64  n your TCL build
7e10: 2e 22 0a 20 20 20 20 6f 75 74 70 75 74 32 20 22  .".    output2 "
7e20: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
7e30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
7e40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
7e50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
7e60: 2a 2a 22 0a 20 20 7d 0a 20 20 69 66 20 7b 24 3a  **".  }.  if {$:
7e70: 3a 63 6d 64 6c 69 6e 65 61 72 67 28 62 69 6e 61  :cmdlinearg(bina
7e80: 72 79 6c 6f 67 29 7d 20 7b 0a 20 20 20 20 76 66  rylog)} {.    vf
7e90: 73 6c 6f 67 20 66 69 6e 61 6c 69 7a 65 20 62 69  slog finalize bi
7ea0: 6e 61 72 79 6c 6f 67 0a 20 20 7d 0a 20 20 69 66  narylog.  }.  if
7eb0: 20 7b 24 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66   {$sqlite_open_f
7ec0: 69 6c 65 5f 63 6f 75 6e 74 7d 20 7b 0a 20 20 20  ile_count} {.   
7ed0: 20 6f 75 74 70 75 74 32 20 22 24 73 71 6c 69 74   output2 "$sqlit
7ee0: 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e  e_open_file_coun
7ef0: 74 20 66 69 6c 65 73 20 77 65 72 65 20 6c 65 66  t files were lef
7f00: 74 20 6f 70 65 6e 22 0a 20 20 20 20 69 6e 63 72  t open".    incr
7f10: 20 6e 45 72 72 0a 20 20 7d 0a 20 20 69 66 20 7b   nErr.  }.  if {
7f20: 5b 6c 69 6e 64 65 78 20 5b 73 71 6c 69 74 65 33  [lindex [sqlite3
7f30: 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53  _status SQLITE_S
7f40: 54 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f 43 4f 55  TATUS_MALLOC_COU
7f50: 4e 54 20 30 5d 20 31 5d 3e 30 20 7c 7c 0a 20 20  NT 0] 1]>0 ||.  
7f60: 20 20 20 20 20 20 20 20 20 20 20 20 5b 73 71 6c              [sql
7f70: 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 64  ite3_memory_used
7f80: 5d 3e 30 7d 20 7b 0a 20 20 20 20 6f 75 74 70 75  ]>0} {.    outpu
7f90: 74 32 20 22 55 6e 66 72 65 65 64 20 6d 65 6d 6f  t2 "Unfreed memo
7fa0: 72 79 3a 20 5b 73 71 6c 69 74 65 33 5f 6d 65 6d  ry: [sqlite3_mem
7fb0: 6f 72 79 5f 75 73 65 64 5d 20 62 79 74 65 73 20  ory_used] bytes 
7fc0: 69 6e 5c 0a 20 20 20 20 20 20 20 20 20 5b 6c 69  in\.         [li
7fd0: 6e 64 65 78 20 5b 73 71 6c 69 74 65 33 5f 73 74  ndex [sqlite3_st
7fe0: 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54  atus SQLITE_STAT
7ff0: 55 53 5f 4d 41 4c 4c 4f 43 5f 43 4f 55 4e 54 20  US_MALLOC_COUNT 
8000: 30 5d 20 31 5d 20 61 6c 6c 6f 63 61 74 69 6f 6e  0] 1] allocation
8010: 73 22 0a 20 20 20 20 69 6e 63 72 20 6e 45 72 72  s".    incr nErr
8020: 0a 20 20 20 20 69 66 63 61 70 61 62 6c 65 20 6d  .    ifcapable m
8030: 65 6d 64 65 62 75 67 7c 7c 6d 65 6d 35 7c 7c 28  emdebug||mem5||(
8040: 6d 65 6d 33 26 26 64 65 62 75 67 29 20 7b 0a 20  mem3&&debug) {. 
8050: 20 20 20 20 20 6f 75 74 70 75 74 32 20 22 57 72       output2 "Wr
8060: 69 74 69 6e 67 20 75 6e 66 72 65 65 64 20 6d 65  iting unfreed me
8070: 6d 6f 72 79 20 6c 6f 67 20 74 6f 20 5c 22 2e 2f  mory log to \"./
8080: 6d 65 6d 6c 65 61 6b 2e 74 78 74 5c 22 22 0a 20  memleak.txt\"". 
8090: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d       sqlite3_mem
80a0: 64 65 62 75 67 5f 64 75 6d 70 20 2e 2f 6d 65 6d  debug_dump ./mem
80b0: 6c 65 61 6b 2e 74 78 74 0a 20 20 20 20 7d 0a 20  leak.txt.    }. 
80c0: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 6f 75   } else {.    ou
80d0: 74 70 75 74 32 20 22 41 6c 6c 20 6d 65 6d 6f 72  tput2 "All memor
80e0: 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 73 20 66 72  y allocations fr
80f0: 65 65 64 20 2d 20 6e 6f 20 6c 65 61 6b 73 22 0a  eed - no leaks".
8100: 20 20 20 20 69 66 63 61 70 61 62 6c 65 20 6d 65      ifcapable me
8110: 6d 64 65 62 75 67 7c 7c 6d 65 6d 35 20 7b 0a 20  mdebug||mem5 {. 
8120: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d       sqlite3_mem
8130: 64 65 62 75 67 5f 64 75 6d 70 20 2e 2f 6d 65 6d  debug_dump ./mem
8140: 75 73 61 67 65 2e 74 78 74 0a 20 20 20 20 7d 0a  usage.txt.    }.
8150: 20 20 7d 0a 20 20 73 68 6f 77 5f 6d 65 6d 73 74    }.  show_memst
8160: 61 74 73 0a 20 20 6f 75 74 70 75 74 32 20 22 4d  ats.  output2 "M
8170: 61 78 69 6d 75 6d 20 6d 65 6d 6f 72 79 20 75 73  aximum memory us
8180: 61 67 65 3a 20 5b 73 71 6c 69 74 65 33 5f 6d 65  age: [sqlite3_me
8190: 6d 6f 72 79 5f 68 69 67 68 77 61 74 65 72 20 31  mory_highwater 1
81a0: 5d 20 62 79 74 65 73 22 0a 20 20 6f 75 74 70 75  ] bytes".  outpu
81b0: 74 32 20 22 43 75 72 72 65 6e 74 20 6d 65 6d 6f  t2 "Current memo
81c0: 72 79 20 75 73 61 67 65 3a 20 5b 73 71 6c 69 74  ry usage: [sqlit
81d0: 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 61  e3_memory_highwa
81e0: 74 65 72 5d 20 62 79 74 65 73 22 0a 20 20 69 66  ter] bytes".  if
81f0: 20 7b 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73   {[info commands
8200: 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75   sqlite3_memdebu
8210: 67 5f 6d 61 6c 6c 6f 63 5f 63 6f 75 6e 74 5d 20  g_malloc_count] 
8220: 6e 65 20 22 22 7d 20 7b 0a 20 20 20 20 6f 75 74  ne ""} {.    out
8230: 70 75 74 32 20 22 4e 75 6d 62 65 72 20 6f 66 20  put2 "Number of 
8240: 6d 61 6c 6c 6f 63 28 29 20 20 3a 20 5b 73 71 6c  malloc()  : [sql
8250: 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 6d 61  ite3_memdebug_ma
8260: 6c 6c 6f 63 5f 63 6f 75 6e 74 5d 20 63 61 6c 6c  lloc_count] call
8270: 73 22 0a 20 20 7d 0a 20 20 69 66 20 7b 24 3a 3a  s".  }.  if {$::
8280: 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 6c 6c 6f  cmdlinearg(mallo
8290: 63 74 72 61 63 65 29 7d 20 7b 0a 20 20 20 20 6f  ctrace)} {.    o
82a0: 75 74 70 75 74 32 20 22 57 72 69 74 69 6e 67 20  utput2 "Writing 
82b0: 6d 61 6c 6c 6f 63 73 2e 73 71 6c 2e 2e 2e 22 0a  mallocs.sql...".
82c0: 20 20 20 20 6d 65 6d 64 65 62 75 67 5f 6c 6f 67      memdebug_log
82d0: 5f 73 71 6c 0a 20 20 20 20 73 71 6c 69 74 65 33  _sql.    sqlite3
82e0: 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 20 73 74  _memdebug_log st
82f0: 6f 70 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 6d  op.    sqlite3_m
8300: 65 6d 64 65 62 75 67 5f 6c 6f 67 20 63 6c 65 61  emdebug_log clea
8310: 72 0a 0a 20 20 20 20 69 66 20 7b 5b 73 71 6c 69  r..    if {[sqli
8320: 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 64 5d  te3_memory_used]
8330: 3e 30 7d 20 7b 0a 20 20 20 20 20 20 6f 75 74 70  >0} {.      outp
8340: 75 74 32 20 22 57 72 69 74 69 6e 67 20 6c 65 61  ut2 "Writing lea
8350: 6b 73 2e 73 71 6c 2e 2e 2e 22 0a 20 20 20 20 20  ks.sql...".     
8360: 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75   sqlite3_memdebu
8370: 67 5f 6c 6f 67 20 73 79 6e 63 0a 20 20 20 20 20  g_log sync.     
8380: 20 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 5f 73 71   memdebug_log_sq
8390: 6c 20 6c 65 61 6b 73 2e 73 71 6c 0a 20 20 20 20  l leaks.sql.    
83a0: 7d 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63 68 20  }.  }.  foreach 
83b0: 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c  f [glob -nocompl
83c0: 61 69 6e 20 74 65 73 74 2e 64 62 2d 2a 2d 6a 6f  ain test.db-*-jo
83d0: 75 72 6e 61 6c 5d 20 7b 0a 20 20 20 20 66 6f 72  urnal] {.    for
83e0: 63 65 64 65 6c 65 74 65 20 24 66 0a 20 20 7d 0a  cedelete $f.  }.
83f0: 20 20 66 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f    foreach f [glo
8400: 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65  b -nocomplain te
8410: 73 74 2e 64 62 2d 6d 6a 2a 5d 20 7b 0a 20 20 20  st.db-mj*] {.   
8420: 20 66 6f 72 63 65 64 65 6c 65 74 65 20 24 66 0a   forcedelete $f.
8430: 20 20 7d 0a 20 20 65 78 69 74 20 5b 65 78 70 72    }.  exit [expr
8440: 20 7b 24 6e 45 72 72 3e 30 7d 5d 0a 7d 0a 0a 23   {$nErr>0}].}..#
8450: 20 44 69 73 70 6c 61 79 20 6d 65 6d 6f 72 79 20   Display memory 
8460: 73 74 61 74 69 73 74 69 63 73 20 66 6f 72 20 61  statistics for a
8470: 6e 61 6c 79 73 69 73 20 61 6e 64 20 64 65 62 75  nalysis and debu
8480: 67 67 69 6e 67 20 70 75 72 70 6f 73 65 73 2e 0a  gging purposes..
8490: 23 0a 70 72 6f 63 20 73 68 6f 77 5f 6d 65 6d 73  #.proc show_mems
84a0: 74 61 74 73 20 7b 7d 20 7b 0a 20 20 73 65 74 20  tats {} {.  set 
84b0: 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75  x [sqlite3_statu
84c0: 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f  s SQLITE_STATUS_
84d0: 4d 45 4d 4f 52 59 5f 55 53 45 44 20 30 5d 0a 20  MEMORY_USED 0]. 
84e0: 20 73 65 74 20 79 20 5b 73 71 6c 69 74 65 33 5f   set y [sqlite3_
84f0: 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54  status SQLITE_ST
8500: 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f 53 49 5a 45  ATUS_MALLOC_SIZE
8510: 20 30 5d 0a 20 20 73 65 74 20 76 61 6c 20 5b 66   0].  set val [f
8520: 6f 72 6d 61 74 20 7b 6e 6f 77 20 25 31 30 64 20  ormat {now %10d 
8530: 20 6d 61 78 20 25 31 30 64 20 20 6d 61 78 2d 73   max %10d  max-s
8540: 69 7a 65 20 25 31 30 64 7d 20 5c 0a 20 20 20 20  ize %10d} \.    
8550: 20 20 20 20 20 20 20 20 20 20 5b 6c 69 6e 64 65            [linde
8560: 78 20 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20  x $x 1] [lindex 
8570: 24 78 20 32 5d 20 5b 6c 69 6e 64 65 78 20 24 79  $x 2] [lindex $y
8580: 20 32 5d 5d 0a 20 20 6f 75 74 70 75 74 31 20 22   2]].  output1 "
8590: 4d 65 6d 6f 72 79 20 75 73 65 64 3a 20 20 20 20  Memory used:    
85a0: 20 20 20 20 20 20 24 76 61 6c 22 0a 20 20 73 65        $val".  se
85b0: 74 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61  t x [sqlite3_sta
85c0: 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55  tus SQLITE_STATU
85d0: 53 5f 4d 41 4c 4c 4f 43 5f 43 4f 55 4e 54 20 30  S_MALLOC_COUNT 0
85e0: 5d 0a 20 20 73 65 74 20 76 61 6c 20 5b 66 6f 72  ].  set val [for
85f0: 6d 61 74 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d  mat {now %10d  m
8600: 61 78 20 25 31 30 64 7d 20 5b 6c 69 6e 64 65 78  ax %10d} [lindex
8610: 20 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24   $x 1] [lindex $
8620: 78 20 32 5d 5d 0a 20 20 6f 75 74 70 75 74 31 20  x 2]].  output1 
8630: 22 41 6c 6c 6f 63 61 74 69 6f 6e 20 63 6f 75 6e  "Allocation coun
8640: 74 3a 20 20 20 20 20 24 76 61 6c 22 0a 20 20 73  t:     $val".  s
8650: 65 74 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74  et x [sqlite3_st
8660: 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54  atus SQLITE_STAT
8670: 55 53 5f 50 41 47 45 43 41 43 48 45 5f 55 53 45  US_PAGECACHE_USE
8680: 44 20 30 5d 0a 20 20 73 65 74 20 79 20 5b 73 71  D 0].  set y [sq
8690: 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c  lite3_status SQL
86a0: 49 54 45 5f 53 54 41 54 55 53 5f 50 41 47 45 43  ITE_STATUS_PAGEC
86b0: 41 43 48 45 5f 53 49 5a 45 20 30 5d 0a 20 20 73  ACHE_SIZE 0].  s
86c0: 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b  et val [format {
86d0: 6e 6f 77 20 25 31 30 64 20 20 6d 61 78 20 25 31  now %10d  max %1
86e0: 30 64 20 20 6d 61 78 2d 73 69 7a 65 20 25 31 30  0d  max-size %10
86f0: 64 7d 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20  d} \.           
8700: 20 20 20 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d     [lindex $x 1]
8710: 20 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 20 5b   [lindex $x 2] [
8720: 6c 69 6e 64 65 78 20 24 79 20 32 5d 5d 0a 20 20  lindex $y 2]].  
8730: 6f 75 74 70 75 74 31 20 22 50 61 67 65 2d 63 61  output1 "Page-ca
8740: 63 68 65 20 75 73 65 64 3a 20 20 20 20 20 20 24  che used:      $
8750: 76 61 6c 22 0a 20 20 73 65 74 20 78 20 5b 73 71  val".  set x [sq
8760: 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c  lite3_status SQL
8770: 49 54 45 5f 53 54 41 54 55 53 5f 50 41 47 45 43  ITE_STATUS_PAGEC
8780: 41 43 48 45 5f 4f 56 45 52 46 4c 4f 57 20 30 5d  ACHE_OVERFLOW 0]
8790: 0a 20 20 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d  .  set val [form
87a0: 61 74 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d 61  at {now %10d  ma
87b0: 78 20 25 31 30 64 7d 20 5b 6c 69 6e 64 65 78 20  x %10d} [lindex 
87c0: 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 78  $x 1] [lindex $x
87d0: 20 32 5d 5d 0a 20 20 6f 75 74 70 75 74 31 20 22   2]].  output1 "
87e0: 50 61 67 65 2d 63 61 63 68 65 20 6f 76 65 72 66  Page-cache overf
87f0: 6c 6f 77 3a 20 20 24 76 61 6c 22 0a 20 20 73 65  low:  $val".  se
8800: 74 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61  t x [sqlite3_sta
8810: 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55  tus SQLITE_STATU
8820: 53 5f 53 43 52 41 54 43 48 5f 55 53 45 44 20 30  S_SCRATCH_USED 0
8830: 5d 0a 20 20 73 65 74 20 76 61 6c 20 5b 66 6f 72  ].  set val [for
8840: 6d 61 74 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d  mat {now %10d  m
8850: 61 78 20 25 31 30 64 7d 20 5b 6c 69 6e 64 65 78  ax %10d} [lindex
8860: 20 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24   $x 1] [lindex $
8870: 78 20 32 5d 5d 0a 20 20 6f 75 74 70 75 74 31 20  x 2]].  output1 
8880: 22 53 63 72 61 74 63 68 20 6d 65 6d 6f 72 79 20  "Scratch memory 
8890: 75 73 65 64 3a 20 20 24 76 61 6c 22 0a 20 20 73  used:  $val".  s
88a0: 65 74 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74  et x [sqlite3_st
88b0: 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54  atus SQLITE_STAT
88c0: 55 53 5f 53 43 52 41 54 43 48 5f 4f 56 45 52 46  US_SCRATCH_OVERF
88d0: 4c 4f 57 20 30 5d 0a 20 20 73 65 74 20 79 20 5b  LOW 0].  set y [
88e0: 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53  sqlite3_status S
88f0: 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 53 43 52  QLITE_STATUS_SCR
8900: 41 54 43 48 5f 53 49 5a 45 20 30 5d 0a 20 20 73  ATCH_SIZE 0].  s
8910: 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b  et val [format {
8920: 6e 6f 77 20 25 31 30 64 20 20 6d 61 78 20 25 31  now %10d  max %1
8930: 30 64 20 20 6d 61 78 2d 73 69 7a 65 20 25 31 30  0d  max-size %10
8940: 64 7d 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20  d} \.           
8950: 20 20 20 20 5b 6c 69 6e 64 65 78 20 24 78 20 31      [lindex $x 1
8960: 5d 20 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 20  ] [lindex $x 2] 
8970: 5b 6c 69 6e 64 65 78 20 24 79 20 32 5d 5d 0a 20  [lindex $y 2]]. 
8980: 20 6f 75 74 70 75 74 31 20 22 53 63 72 61 74 63   output1 "Scratc
8990: 68 20 6f 76 65 72 66 6c 6f 77 3a 20 20 20 20 20  h overflow:     
89a0: 24 76 61 6c 22 0a 20 20 69 66 63 61 70 61 62 6c  $val".  ifcapabl
89b0: 65 20 79 79 74 72 61 63 6b 6d 61 78 73 74 61 63  e yytrackmaxstac
89c0: 6b 64 65 70 74 68 20 7b 0a 20 20 20 20 73 65 74  kdepth {.    set
89d0: 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74   x [sqlite3_stat
89e0: 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53  us SQLITE_STATUS
89f0: 5f 50 41 52 53 45 52 5f 53 54 41 43 4b 20 30 5d  _PARSER_STACK 0]
8a00: 0a 20 20 20 20 73 65 74 20 76 61 6c 20 5b 66 6f  .    set val [fo
8a10: 72 6d 61 74 20 7b 20 20 20 20 20 20 20 20 20 20  rmat {          
8a20: 20 20 20 20 20 6d 61 78 20 25 31 30 64 7d 20 5b       max %10d} [
8a30: 6c 69 6e 64 65 78 20 24 78 20 32 5d 5d 0a 20 20  lindex $x 2]].  
8a40: 20 20 6f 75 74 70 75 74 32 20 22 50 61 72 73 65    output2 "Parse
8a50: 72 20 73 74 61 63 6b 20 64 65 70 74 68 3a 20 20  r stack depth:  
8a60: 20 20 24 76 61 6c 22 0a 20 20 7d 0a 7d 0a 0a 23    $val".  }.}..#
8a70: 20 41 20 70 72 6f 63 65 64 75 72 65 20 74 6f 20   A procedure to 
8a80: 65 78 65 63 75 74 65 20 53 51 4c 0a 23 0a 70 72  execute SQL.#.pr
8a90: 6f 63 20 65 78 65 63 73 71 6c 20 7b 73 71 6c 20  oc execsql {sql 
8aa0: 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 23 20 70  {db db}} {.  # p
8ab0: 75 74 73 20 22 53 51 4c 20 3d 20 24 73 71 6c 22  uts "SQL = $sql"
8ac0: 0a 20 20 75 70 6c 65 76 65 6c 20 5b 6c 69 73 74  .  uplevel [list
8ad0: 20 24 64 62 20 65 76 61 6c 20 24 73 71 6c 5d 0a   $db eval $sql].
8ae0: 7d 0a 70 72 6f 63 20 65 78 65 63 73 71 6c 5f 74  }.proc execsql_t
8af0: 69 6d 65 64 20 7b 73 71 6c 20 7b 64 62 20 64 62  imed {sql {db db
8b00: 7d 7d 20 7b 0a 20 20 73 65 74 20 74 6d 20 5b 74  }} {.  set tm [t
8b10: 69 6d 65 20 7b 0a 20 20 20 20 73 65 74 20 78 20  ime {.    set x 
8b20: 5b 75 70 6c 65 76 65 6c 20 5b 6c 69 73 74 20 24  [uplevel [list $
8b30: 64 62 20 65 76 61 6c 20 24 73 71 6c 5d 5d 0a 20  db eval $sql]]. 
8b40: 20 7d 20 31 5d 0a 20 20 73 65 74 20 74 6d 20 5b   } 1].  set tm [
8b50: 6c 69 6e 64 65 78 20 24 74 6d 20 30 5d 0a 20 20  lindex $tm 0].  
8b60: 6f 75 74 70 75 74 31 20 2d 6e 6f 6e 65 77 6c 69  output1 -nonewli
8b70: 6e 65 20 22 20 28 5b 65 78 70 72 20 7b 24 74 6d  ne " ([expr {$tm
8b80: 2a 30 2e 30 30 31 7d 5d 6d 73 29 20 22 0a 20 20  *0.001}]ms) ".  
8b90: 73 65 74 20 78 0a 7d 0a 0a 23 20 45 78 65 63 75  set x.}..# Execu
8ba0: 74 65 20 53 51 4c 20 61 6e 64 20 63 61 74 63 68  te SQL and catch
8bb0: 20 65 78 63 65 70 74 69 6f 6e 73 2e 0a 23 0a 70   exceptions..#.p
8bc0: 72 6f 63 20 63 61 74 63 68 73 71 6c 20 7b 73 71  roc catchsql {sq
8bd0: 6c 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 23  l {db db}} {.  #
8be0: 20 70 75 74 73 20 22 53 51 4c 20 3d 20 24 73 71   puts "SQL = $sq
8bf0: 6c 22 0a 20 20 73 65 74 20 72 20 5b 63 61 74 63  l".  set r [catc
8c00: 68 20 5b 6c 69 73 74 20 75 70 6c 65 76 65 6c 20  h [list uplevel 
8c10: 5b 6c 69 73 74 20 24 64 62 20 65 76 61 6c 20 24  [list $db eval $
8c20: 73 71 6c 5d 5d 20 6d 73 67 5d 0a 20 20 6c 61 70  sql]] msg].  lap
8c30: 70 65 6e 64 20 72 20 24 6d 73 67 0a 20 20 72 65  pend r $msg.  re
8c40: 74 75 72 6e 20 24 72 0a 7d 0a 0a 23 20 44 6f 20  turn $r.}..# Do 
8c50: 61 6e 20 56 44 42 45 20 63 6f 64 65 20 64 75 6d  an VDBE code dum
8c60: 70 20 6f 6e 20 74 68 65 20 53 51 4c 20 67 69 76  p on the SQL giv
8c70: 65 6e 0a 23 0a 70 72 6f 63 20 65 78 70 6c 61 69  en.#.proc explai
8c80: 6e 20 7b 73 71 6c 20 7b 64 62 20 64 62 7d 7d 20  n {sql {db db}} 
8c90: 7b 0a 20 20 6f 75 74 70 75 74 32 20 22 22 0a 20  {.  output2 "". 
8ca0: 20 6f 75 74 70 75 74 32 20 22 61 64 64 72 20 20   output2 "addr  
8cb0: 6f 70 63 6f 64 65 20 20 20 20 20 20 20 20 70 31  opcode        p1
8cc0: 20 20 20 20 20 20 70 32 20 20 20 20 20 20 70 33        p2      p3
8cd0: 20 20 20 20 20 20 70 34 20 20 20 20 20 20 20 20        p4        
8ce0: 20 20 20 20 20 20 20 70 35 20 20 23 22 0a 20 20         p5  #".  
8cf0: 6f 75 74 70 75 74 32 20 22 2d 2d 2d 2d 20 20 2d  output2 "----  -
8d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d  -----------  ---
8d10: 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d  ---  ------  ---
8d20: 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ---  -----------
8d30: 2d 2d 2d 2d 20 20 2d 2d 20 20 2d 22 0a 20 20 24  ----  --  -".  $
8d40: 64 62 20 65 76 61 6c 20 22 65 78 70 6c 61 69 6e  db eval "explain
8d50: 20 24 73 71 6c 22 20 7b 7d 20 7b 0a 20 20 20 20   $sql" {} {.    
8d60: 6f 75 74 70 75 74 32 20 5b 66 6f 72 6d 61 74 20  output2 [format 
8d70: 7b 25 2d 34 64 20 20 25 2d 31 32 2e 31 32 73 20  {%-4d  %-12.12s 
8d80: 20 25 2d 36 64 20 20 25 2d 36 64 20 20 25 2d 36   %-6d  %-6d  %-6
8d90: 64 20 20 25 20 2d 31 37 73 20 25 73 20 20 25 73  d  % -17s %s  %s
8da0: 7d 20 5c 0a 20 20 20 20 20 20 24 61 64 64 72 20  } \.      $addr 
8db0: 24 6f 70 63 6f 64 65 20 24 70 31 20 24 70 32 20  $opcode $p1 $p2 
8dc0: 24 70 33 20 24 70 34 20 24 70 35 20 24 63 6f 6d  $p3 $p4 $p5 $com
8dd0: 6d 65 6e 74 0a 20 20 20 20 5d 0a 20 20 7d 0a 7d  ment.    ].  }.}
8de0: 0a 0a 70 72 6f 63 20 65 78 70 6c 61 69 6e 5f 69  ..proc explain_i
8df0: 20 7b 73 71 6c 20 7b 64 62 20 64 62 7d 7d 20 7b   {sql {db db}} {
8e00: 0a 20 20 6f 75 74 70 75 74 32 20 22 22 0a 20 20  .  output2 "".  
8e10: 6f 75 74 70 75 74 32 20 22 61 64 64 72 20 20 6f  output2 "addr  o
8e20: 70 63 6f 64 65 20 20 20 20 20 20 20 20 70 31 20  pcode        p1 
8e30: 20 20 20 20 20 70 32 20 20 20 20 20 20 70 33 20       p2      p3 
8e40: 20 20 20 20 20 70 34 20 20 20 20 20 20 20 20 20       p4         
8e50: 20 20 20 20 20 20 20 70 35 20 20 23 22 0a 20 20         p5  #".  
8e60: 6f 75 74 70 75 74 32 20 22 2d 2d 2d 2d 20 20 2d  output2 "----  -
8e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d  -----------  ---
8e80: 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d  ---  ------  ---
8e90: 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ---  -----------
8ea0: 2d 2d 2d 2d 2d 20 20 2d 2d 20 20 2d 22 0a 0a 0a  -----  --  -"...
8eb0: 20 20 23 20 53 65 74 20 75 70 20 63 6f 6c 6f 72    # Set up color
8ec0: 73 20 66 6f 72 20 74 68 65 20 64 69 66 66 65 72  s for the differ
8ed0: 65 6e 74 20 6f 70 63 6f 64 65 73 2e 20 53 63 68  ent opcodes. Sch
8ee0: 65 6d 65 20 69 73 20 61 73 20 66 6f 6c 6c 6f 77  eme is as follow
8ef0: 73 3a 0a 20 20 23 0a 20 20 23 20 20 20 52 65 64  s:.  #.  #   Red
8f00: 3a 20 20 20 4f 70 63 6f 64 65 73 20 74 68 61 74  :   Opcodes that
8f10: 20 77 72 69 74 65 20 74 6f 20 61 20 62 2d 74 72   write to a b-tr
8f20: 65 65 2e 0a 20 20 23 20 20 20 42 6c 75 65 3a 20  ee..  #   Blue: 
8f30: 20 4f 70 63 6f 64 65 73 20 74 68 61 74 20 72 65   Opcodes that re
8f40: 70 6f 73 69 74 69 6f 6e 20 6f 72 20 73 65 65 6b  position or seek
8f50: 20 61 20 63 75 72 73 6f 72 2e 20 0a 20 20 23 20   a cursor. .  # 
8f60: 20 20 47 72 65 65 6e 3a 20 54 68 65 20 52 65 73    Green: The Res
8f70: 75 6c 74 52 6f 77 20 6f 70 63 6f 64 65 2e 0a 20  ultRow opcode.. 
8f80: 20 23 0a 20 20 69 66 20 7b 20 5b 63 61 74 63 68   #.  if { [catch
8f90: 20 7b 66 63 6f 6e 66 69 67 75 72 65 20 73 74 64   {fconfigure std
8fa0: 6f 75 74 20 2d 6d 6f 64 65 7d 5d 3d 3d 30 20 7d  out -mode}]==0 }
8fb0: 20 7b 0a 20 20 20 20 73 65 74 20 52 20 22 5c 30   {.    set R "\0
8fc0: 33 33 5c 5b 33 31 3b 31 6d 22 20 20 20 20 20 20  33\[31;1m"      
8fd0: 20 20 3b 23 20 52 65 64 20 66 67 0a 20 20 20 20    ;# Red fg.    
8fe0: 73 65 74 20 47 20 22 5c 30 33 33 5c 5b 33 32 3b  set G "\033\[32;
8ff0: 31 6d 22 20 20 20 20 20 20 20 20 3b 23 20 47 72  1m"        ;# Gr
9000: 65 65 6e 20 66 67 0a 20 20 20 20 73 65 74 20 42  een fg.    set B
9010: 20 22 5c 30 33 33 5c 5b 33 34 3b 31 6d 22 20 20   "\033\[34;1m"  
9020: 20 20 20 20 20 20 3b 23 20 52 65 64 20 66 67 0a        ;# Red fg.
9030: 20 20 20 20 73 65 74 20 44 20 22 5c 30 33 33 5c      set D "\033\
9040: 5b 33 39 3b 30 6d 22 20 20 20 20 20 20 20 20 3b  [39;0m"        ;
9050: 23 20 44 65 66 61 75 6c 74 20 66 67 0a 20 20 7d  # Default fg.  }
9060: 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20   else {.    set 
9070: 52 20 22 22 0a 20 20 20 20 73 65 74 20 47 20 22  R "".    set G "
9080: 22 0a 20 20 20 20 73 65 74 20 42 20 22 22 0a 20  ".    set B "". 
9090: 20 20 20 73 65 74 20 44 20 22 22 0a 20 20 7d 0a     set D "".  }.
90a0: 20 20 66 6f 72 65 61 63 68 20 6f 70 63 6f 64 65    foreach opcode
90b0: 20 7b 0a 20 20 20 20 20 20 53 65 65 6b 20 53 65   {.      Seek Se
90c0: 65 6b 47 65 20 53 65 65 6b 47 74 20 53 65 65 6b  ekGe SeekGt Seek
90d0: 4c 65 20 53 65 65 6b 4c 74 20 4e 6f 74 46 6f 75  Le SeekLt NotFou
90e0: 6e 64 20 4c 61 73 74 20 52 65 77 69 6e 64 0a 20  nd Last Rewind. 
90f0: 20 20 20 20 20 4e 6f 43 6f 6e 66 6c 69 63 74 20       NoConflict 
9100: 4e 65 78 74 20 50 72 65 76 20 56 4e 65 78 74 20  Next Prev VNext 
9110: 56 50 72 65 76 20 56 46 69 6c 74 65 72 0a 20 20  VPrev VFilter.  
9120: 20 20 20 20 53 6f 72 74 65 72 53 6f 72 74 20 53      SorterSort S
9130: 6f 72 74 65 72 4e 65 78 74 0a 20 20 7d 20 7b 0a  orterNext.  } {.
9140: 20 20 20 20 73 65 74 20 63 6f 6c 6f 72 28 24 6f      set color($o
9150: 70 63 6f 64 65 29 20 24 42 0a 20 20 7d 0a 20 20  pcode) $B.  }.  
9160: 66 6f 72 65 61 63 68 20 6f 70 63 6f 64 65 20 7b  foreach opcode {
9170: 52 65 73 75 6c 74 52 6f 77 7d 20 7b 0a 20 20 20  ResultRow} {.   
9180: 20 73 65 74 20 63 6f 6c 6f 72 28 24 6f 70 63 6f   set color($opco
9190: 64 65 29 20 24 47 0a 20 20 7d 0a 20 20 66 6f 72  de) $G.  }.  for
91a0: 65 61 63 68 20 6f 70 63 6f 64 65 20 7b 49 64 78  each opcode {Idx
91b0: 49 6e 73 65 72 74 20 49 6e 73 65 72 74 20 44 65  Insert Insert De
91c0: 6c 65 74 65 20 49 64 78 44 65 6c 65 74 65 7d 20  lete IdxDelete} 
91d0: 7b 0a 20 20 20 20 73 65 74 20 63 6f 6c 6f 72 28  {.    set color(
91e0: 24 6f 70 63 6f 64 65 29 20 24 52 0a 20 20 7d 0a  $opcode) $R.  }.
91f0: 0a 20 20 73 65 74 20 62 53 65 65 6e 47 6f 74 6f  .  set bSeenGoto
9200: 20 30 0a 20 20 24 64 62 20 65 76 61 6c 20 22 65   0.  $db eval "e
9210: 78 70 6c 61 69 6e 20 24 73 71 6c 22 20 7b 7d 20  xplain $sql" {} 
9220: 7b 0a 20 20 20 20 73 65 74 20 78 28 24 61 64 64  {.    set x($add
9230: 72 29 20 30 0a 20 20 20 20 73 65 74 20 6f 70 28  r) 0.    set op(
9240: 24 61 64 64 72 29 20 24 6f 70 63 6f 64 65 0a 0a  $addr) $opcode..
9250: 20 20 20 20 69 66 20 7b 24 6f 70 63 6f 64 65 20      if {$opcode 
9260: 3d 3d 20 22 47 6f 74 6f 22 20 26 26 20 28 24 62  == "Goto" && ($b
9270: 53 65 65 6e 47 6f 74 6f 3d 3d 30 20 7c 7c 20 28  SeenGoto==0 || (
9280: 24 70 32 20 3e 20 24 61 64 64 72 2b 31 30 29 29  $p2 > $addr+10))
9290: 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 6c 69  } {.      set li
92a0: 6e 65 62 72 65 61 6b 28 24 70 32 29 20 31 0a 20  nebreak($p2) 1. 
92b0: 20 20 20 20 20 73 65 74 20 62 53 65 65 6e 47 6f       set bSeenGo
92c0: 74 6f 20 31 0a 20 20 20 20 7d 0a 0a 20 20 20 20  to 1.    }..    
92d0: 69 66 20 7b 24 6f 70 63 6f 64 65 3d 3d 22 4e 65  if {$opcode=="Ne
92e0: 78 74 22 20 20 7c 7c 20 24 6f 70 63 6f 64 65 3d  xt"  || $opcode=
92f0: 3d 22 50 72 65 76 22 20 0a 20 20 20 20 20 7c 7c  ="Prev" .     ||
9300: 20 24 6f 70 63 6f 64 65 3d 3d 22 56 4e 65 78 74   $opcode=="VNext
9310: 22 20 7c 7c 20 24 6f 70 63 6f 64 65 3d 3d 22 56  " || $opcode=="V
9320: 50 72 65 76 22 0a 20 20 20 20 20 7c 7c 20 24 6f  Prev".     || $o
9330: 70 63 6f 64 65 3d 3d 22 53 6f 72 74 65 72 4e 65  pcode=="SorterNe
9340: 78 74 22 0a 20 20 20 20 7d 20 7b 0a 20 20 20 20  xt".    } {.    
9350: 20 20 66 6f 72 20 7b 73 65 74 20 69 20 24 70 32    for {set i $p2
9360: 7d 20 7b 24 69 3c 24 61 64 64 72 7d 20 7b 69 6e  } {$i<$addr} {in
9370: 63 72 20 69 7d 20 7b 0a 20 20 20 20 20 20 20 20  cr i} {.        
9380: 69 6e 63 72 20 78 28 24 69 29 20 32 0a 20 20 20  incr x($i) 2.   
9390: 20 20 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20     }.    }..    
93a0: 69 66 20 7b 24 6f 70 63 6f 64 65 20 3d 3d 20 22  if {$opcode == "
93b0: 47 6f 74 6f 22 20 26 26 20 24 70 32 3c 24 61 64  Goto" && $p2<$ad
93c0: 64 72 20 26 26 20 24 6f 70 28 24 70 32 29 3d 3d  dr && $op($p2)==
93d0: 22 59 69 65 6c 64 22 7d 20 7b 0a 20 20 20 20 20  "Yield"} {.     
93e0: 20 66 6f 72 20 7b 73 65 74 20 69 20 5b 65 78 70   for {set i [exp
93f0: 72 20 24 70 32 2b 31 5d 7d 20 7b 24 69 3c 24 61  r $p2+1]} {$i<$a
9400: 64 64 72 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a  ddr} {incr i} {.
9410: 20 20 20 20 20 20 20 20 69 6e 63 72 20 78 28 24          incr x($
9420: 69 29 20 32 0a 20 20 20 20 20 20 7d 0a 20 20 20  i) 2.      }.   
9430: 20 7d 0a 0a 20 20 20 20 69 66 20 7b 24 6f 70 63   }..    if {$opc
9440: 6f 64 65 20 3d 3d 20 22 48 61 6c 74 22 20 26 26  ode == "Halt" &&
9450: 20 24 63 6f 6d 6d 65 6e 74 20 3d 3d 20 22 45 6e   $comment == "En
9460: 64 20 6f 66 20 63 6f 72 6f 75 74 69 6e 65 22 7d  d of coroutine"}
9470: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 6c 69 6e   {.      set lin
9480: 65 62 72 65 61 6b 28 5b 65 78 70 72 20 24 61 64  ebreak([expr $ad
9490: 64 72 2b 31 5d 29 20 31 0a 20 20 20 20 7d 0a 20  dr+1]) 1.    }. 
94a0: 20 7d 0a 0a 20 20 24 64 62 20 65 76 61 6c 20 22   }..  $db eval "
94b0: 65 78 70 6c 61 69 6e 20 24 73 71 6c 22 20 7b 7d  explain $sql" {}
94c0: 20 7b 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f   {.    if {[info
94d0: 20 65 78 69 73 74 73 20 6c 69 6e 65 62 72 65 61   exists linebrea
94e0: 6b 28 24 61 64 64 72 29 5d 7d 20 7b 0a 20 20 20  k($addr)]} {.   
94f0: 20 20 20 6f 75 74 70 75 74 32 20 22 22 0a 20 20     output2 "".  
9500: 20 20 7d 0a 20 20 20 20 73 65 74 20 49 20 5b 73    }.    set I [s
9510: 74 72 69 6e 67 20 72 65 70 65 61 74 20 22 20 22  tring repeat " "
9520: 20 24 78 28 24 61 64 64 72 29 5d 0a 0a 20 20 20   $x($addr)]..   
9530: 20 73 65 74 20 63 6f 6c 20 22 22 0a 20 20 20 20   set col "".    
9540: 63 61 74 63 68 20 7b 20 73 65 74 20 63 6f 6c 20  catch { set col 
9550: 24 63 6f 6c 6f 72 28 24 6f 70 63 6f 64 65 29 20  $color($opcode) 
9560: 7d 0a 0a 20 20 20 20 6f 75 74 70 75 74 32 20 5b  }..    output2 [
9570: 66 6f 72 6d 61 74 20 7b 25 2d 34 64 20 20 25 73  format {%-4d  %s
9580: 25 73 25 2d 31 32 2e 31 32 73 25 73 20 20 25 2d  %s%-12.12s%s  %-
9590: 36 64 20 20 25 2d 36 64 20 20 25 2d 36 64 20 20  6d  %-6d  %-6d  
95a0: 25 20 2d 31 37 73 20 25 73 20 20 25 73 7d 20 5c  % -17s %s  %s} \
95b0: 0a 20 20 20 20 20 20 24 61 64 64 72 20 24 49 20  .      $addr $I 
95c0: 24 63 6f 6c 20 24 6f 70 63 6f 64 65 20 24 44 20  $col $opcode $D 
95d0: 24 70 31 20 24 70 32 20 24 70 33 20 24 70 34 20  $p1 $p2 $p3 $p4 
95e0: 24 70 35 20 24 63 6f 6d 6d 65 6e 74 0a 20 20 20  $p5 $comment.   
95f0: 20 5d 0a 20 20 7d 0a 20 20 6f 75 74 70 75 74 32   ].  }.  output2
9600: 20 22 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d   "----  --------
9610: 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d  ----  ------  --
9620: 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d  ----  ------  --
9630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20  --------------  
9640: 2d 2d 20 20 2d 22 0a 7d 0a 0a 23 20 53 68 6f 77  --  -".}..# Show
9650: 20 74 68 65 20 56 44 42 45 20 70 72 6f 67 72 61   the VDBE progra
9660: 6d 20 66 6f 72 20 61 6e 20 53 51 4c 20 73 74 61  m for an SQL sta
9670: 74 65 6d 65 6e 74 20 62 75 74 20 6f 6d 69 74 20  tement but omit 
9680: 74 68 65 20 54 72 61 63 65 0a 23 20 6f 70 63 6f  the Trace.# opco
9690: 64 65 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e  de at the beginn
96a0: 69 6e 67 2e 20 20 54 68 69 73 20 70 72 6f 63 65  ing.  This proce
96b0: 64 75 72 65 20 63 61 6e 20 62 65 20 75 73 65 64  dure can be used
96c0: 20 74 6f 20 70 72 6f 76 65 0a 23 20 74 68 61 74   to prove.# that
96d0: 20 64 69 66 66 65 72 65 6e 74 20 53 51 4c 20 73   different SQL s
96e0: 74 61 74 65 6d 65 6e 74 73 20 67 65 6e 65 72 61  tatements genera
96f0: 74 65 20 65 78 61 63 74 6c 79 20 74 68 65 20 73  te exactly the s
9700: 61 6d 65 20 56 44 42 45 20 63 6f 64 65 2e 0a 23  ame VDBE code..#
9710: 0a 70 72 6f 63 20 65 78 70 6c 61 69 6e 5f 6e 6f  .proc explain_no
9720: 5f 74 72 61 63 65 20 7b 73 71 6c 7d 20 7b 0a 20  _trace {sql} {. 
9730: 20 73 65 74 20 74 72 20 5b 64 62 20 65 76 61 6c   set tr [db eval
9740: 20 22 45 58 50 4c 41 49 4e 20 24 73 71 6c 22 5d   "EXPLAIN $sql"]
9750: 0a 20 20 72 65 74 75 72 6e 20 5b 6c 72 61 6e 67  .  return [lrang
9760: 65 20 24 74 72 20 37 20 65 6e 64 5d 0a 7d 0a 0a  e $tr 7 end].}..
9770: 23 20 41 6e 6f 74 68 65 72 20 70 72 6f 63 65 64  # Another proced
9780: 75 72 65 20 74 6f 20 65 78 65 63 75 74 65 20 53  ure to execute S
9790: 51 4c 2e 20 20 54 68 69 73 20 6f 6e 65 20 69 6e  QL.  This one in
97a0: 63 6c 75 64 65 73 20 74 68 65 20 66 69 65 6c 64  cludes the field
97b0: 0a 23 20 6e 61 6d 65 73 20 69 6e 20 74 68 65 20  .# names in the 
97c0: 72 65 74 75 72 6e 65 64 20 6c 69 73 74 2e 0a 23  returned list..#
97d0: 0a 70 72 6f 63 20 65 78 65 63 73 71 6c 32 20 7b  .proc execsql2 {
97e0: 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20 72 65 73  sql} {.  set res
97f0: 75 6c 74 20 7b 7d 0a 20 20 64 62 20 65 76 61 6c  ult {}.  db eval
9800: 20 24 73 71 6c 20 64 61 74 61 20 7b 0a 20 20 20   $sql data {.   
9810: 20 66 6f 72 65 61 63 68 20 66 20 24 64 61 74 61   foreach f $data
9820: 28 2a 29 20 7b 0a 20 20 20 20 20 20 6c 61 70 70  (*) {.      lapp
9830: 65 6e 64 20 72 65 73 75 6c 74 20 24 66 20 24 64  end result $f $d
9840: 61 74 61 28 24 66 29 0a 20 20 20 20 7d 0a 20 20  ata($f).    }.  
9850: 7d 0a 20 20 72 65 74 75 72 6e 20 24 72 65 73 75  }.  return $resu
9860: 6c 74 0a 7d 0a 0a 23 20 55 73 65 20 61 20 74 65  lt.}..# Use a te
9870: 6d 70 6f 72 61 72 79 20 69 6e 2d 6d 65 6d 6f 72  mporary in-memor
9880: 79 20 64 61 74 61 62 61 73 65 20 74 6f 20 65 78  y database to ex
9890: 65 63 75 74 65 20 53 51 4c 20 73 74 61 74 65 6d  ecute SQL statem
98a0: 65 6e 74 73 0a 23 0a 70 72 6f 63 20 6d 65 6d 64  ents.#.proc memd
98b0: 62 73 71 6c 20 7b 73 71 6c 7d 20 7b 0a 20 20 73  bsql {sql} {.  s
98c0: 71 6c 69 74 65 33 20 6d 65 6d 64 62 20 3a 6d 65  qlite3 memdb :me
98d0: 6d 6f 72 79 3a 0a 20 20 73 65 74 20 72 65 73 75  mory:.  set resu
98e0: 6c 74 20 5b 6d 65 6d 64 62 20 65 76 61 6c 20 24  lt [memdb eval $
98f0: 73 71 6c 5d 0a 20 20 6d 65 6d 64 62 20 63 6c 6f  sql].  memdb clo
9900: 73 65 0a 20 20 72 65 74 75 72 6e 20 24 72 65 73  se.  return $res
9910: 75 6c 74 0a 7d 0a 0a 23 20 55 73 65 20 74 68 65  ult.}..# Use the
9920: 20 6e 6f 6e 2d 63 61 6c 6c 62 61 63 6b 20 41 50   non-callback AP
9930: 49 20 74 6f 20 65 78 65 63 75 74 65 20 6d 75 6c  I to execute mul
9940: 74 69 70 6c 65 20 53 51 4c 20 73 74 61 74 65 6d  tiple SQL statem
9950: 65 6e 74 73 0a 23 0a 70 72 6f 63 20 73 74 65 70  ents.#.proc step
9960: 73 71 6c 20 7b 64 62 70 74 72 20 73 71 6c 7d 20  sql {dbptr sql} 
9970: 7b 0a 20 20 73 65 74 20 73 71 6c 20 5b 73 74 72  {.  set sql [str
9980: 69 6e 67 20 74 72 69 6d 20 24 73 71 6c 5d 0a 20  ing trim $sql]. 
9990: 20 73 65 74 20 72 20 30 0a 20 20 77 68 69 6c 65   set r 0.  while
99a0: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68   {[string length
99b0: 20 24 73 71 6c 5d 3e 30 7d 20 7b 0a 20 20 20 20   $sql]>0} {.    
99c0: 69 66 20 7b 5b 63 61 74 63 68 20 7b 73 71 6c 69  if {[catch {sqli
99d0: 74 65 33 5f 70 72 65 70 61 72 65 20 24 64 62 70  te3_prepare $dbp
99e0: 74 72 20 24 73 71 6c 20 2d 31 20 73 71 6c 74 61  tr $sql -1 sqlta
99f0: 69 6c 7d 20 76 6d 5d 7d 20 7b 0a 20 20 20 20 20  il} vm]} {.     
9a00: 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 20 31 20   return [list 1 
9a10: 24 76 6d 5d 0a 20 20 20 20 7d 0a 20 20 20 20 73  $vm].    }.    s
9a20: 65 74 20 73 71 6c 20 5b 73 74 72 69 6e 67 20 74  et sql [string t
9a30: 72 69 6d 20 24 73 71 6c 74 61 69 6c 5d 0a 23 20  rim $sqltail].# 
9a40: 20 20 20 77 68 69 6c 65 20 7b 5b 73 71 6c 69 74     while {[sqlit
9a50: 65 5f 73 74 65 70 20 24 76 6d 20 4e 20 56 41 4c  e_step $vm N VAL
9a60: 20 43 4f 4c 5d 3d 3d 22 53 51 4c 49 54 45 5f 52   COL]=="SQLITE_R
9a70: 4f 57 22 7d 20 7b 0a 23 20 20 20 20 20 20 66 6f  OW"} {.#      fo
9a80: 72 65 61 63 68 20 76 20 24 56 41 4c 20 7b 6c 61  reach v $VAL {la
9a90: 70 70 65 6e 64 20 72 20 24 76 7d 0a 23 20 20 20  ppend r $v}.#   
9aa0: 20 7d 0a 20 20 20 20 77 68 69 6c 65 20 7b 5b 73   }.    while {[s
9ab0: 71 6c 69 74 65 33 5f 73 74 65 70 20 24 76 6d 5d  qlite3_step $vm]
9ac0: 3d 3d 22 53 51 4c 49 54 45 5f 52 4f 57 22 7d 20  =="SQLITE_ROW"} 
9ad0: 7b 0a 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74  {.      for {set
9ae0: 20 69 20 30 7d 20 7b 24 69 3c 5b 73 71 6c 69 74   i 0} {$i<[sqlit
9af0: 65 33 5f 64 61 74 61 5f 63 6f 75 6e 74 20 24 76  e3_data_count $v
9b00: 6d 5d 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20  m]} {incr i} {. 
9b10: 20 20 20 20 20 20 20 6c 61 70 70 65 6e 64 20 72         lappend r
9b20: 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e   [sqlite3_column
9b30: 5f 74 65 78 74 20 24 76 6d 20 24 69 5d 0a 20 20  _text $vm $i].  
9b40: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20      }.    }.    
9b50: 69 66 20 7b 5b 63 61 74 63 68 20 7b 73 71 6c 69  if {[catch {sqli
9b60: 74 65 33 5f 66 69 6e 61 6c 69 7a 65 20 24 76 6d  te3_finalize $vm
9b70: 7d 20 65 72 72 6d 73 67 5d 7d 20 7b 0a 20 20 20  } errmsg]} {.   
9b80: 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 20     return [list 
9b90: 31 20 24 65 72 72 6d 73 67 5d 0a 20 20 20 20 7d  1 $errmsg].    }
9ba0: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 24 72  .  }.  return $r
9bb0: 0a 7d 0a 0a 23 20 44 6f 20 61 6e 20 69 6e 74 65  .}..# Do an inte
9bc0: 67 72 69 74 79 20 63 68 65 63 6b 20 6f 66 20 74  grity check of t
9bd0: 68 65 20 65 6e 74 69 72 65 20 64 61 74 61 62 61  he entire databa
9be0: 73 65 0a 23 0a 70 72 6f 63 20 69 6e 74 65 67 72  se.#.proc integr
9bf0: 69 74 79 5f 63 68 65 63 6b 20 7b 6e 61 6d 65 20  ity_check {name 
9c00: 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 69 66 63  {db db}} {.  ifc
9c10: 61 70 61 62 6c 65 20 69 6e 74 65 67 72 69 74 79  apable integrity
9c20: 63 6b 20 7b 0a 20 20 20 20 64 6f 5f 74 65 73 74  ck {.    do_test
9c30: 20 24 6e 61 6d 65 20 5b 6c 69 73 74 20 65 78 65   $name [list exe
9c40: 63 73 71 6c 20 7b 50 52 41 47 4d 41 20 69 6e 74  csql {PRAGMA int
9c50: 65 67 72 69 74 79 5f 63 68 65 63 6b 7d 20 24 64  egrity_check} $d
9c60: 62 5d 20 7b 6f 6b 7d 0a 20 20 7d 0a 7d 0a 0a 23  b] {ok}.  }.}..#
9c70: 20 43 68 65 63 6b 20 74 68 65 20 65 78 74 65 6e   Check the exten
9c80: 64 65 64 20 65 72 72 6f 72 20 63 6f 64 65 0a 23  ded error code.#
9c90: 0a 70 72 6f 63 20 76 65 72 69 66 79 5f 65 78 5f  .proc verify_ex_
9ca0: 65 72 72 63 6f 64 65 20 7b 6e 61 6d 65 20 65 78  errcode {name ex
9cb0: 70 65 63 74 65 64 20 7b 64 62 20 64 62 7d 7d 20  pected {db db}} 
9cc0: 7b 0a 20 20 64 6f 5f 74 65 73 74 20 24 6e 61 6d  {.  do_test $nam
9cd0: 65 20 5b 6c 69 73 74 20 73 71 6c 69 74 65 33 5f  e [list sqlite3_
9ce0: 65 78 74 65 6e 64 65 64 5f 65 72 72 63 6f 64 65  extended_errcode
9cf0: 20 24 64 62 5d 20 24 65 78 70 65 63 74 65 64 0a   $db] $expected.
9d00: 7d 0a 0a 0a 23 20 52 65 74 75 72 6e 20 74 72 75  }...# Return tru
9d10: 65 20 69 66 20 74 68 65 20 53 51 4c 20 73 74 61  e if the SQL sta
9d20: 74 65 6d 65 6e 74 20 70 61 73 73 65 64 20 61 73  tement passed as
9d30: 20 74 68 65 20 73 65 63 6f 6e 64 20 61 72 67 75   the second argu
9d40: 6d 65 6e 74 20 75 73 65 73 20 61 0a 23 20 73 74  ment uses a.# st
9d50: 61 74 65 6d 65 6e 74 20 74 72 61 6e 73 61 63 74  atement transact
9d60: 69 6f 6e 2e 0a 23 0a 70 72 6f 63 20 73 71 6c 5f  ion..#.proc sql_
9d70: 75 73 65 73 5f 73 74 6d 74 20 7b 64 62 20 73 71  uses_stmt {db sq
9d80: 6c 7d 20 7b 0a 20 20 73 65 74 20 73 74 6d 74 20  l} {.  set stmt 
9d90: 5b 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65  [sqlite3_prepare
9da0: 20 24 64 62 20 24 73 71 6c 20 2d 31 20 64 75 6d   $db $sql -1 dum
9db0: 6d 79 5d 0a 20 20 73 65 74 20 75 73 65 73 20 5b  my].  set uses [
9dc0: 75 73 65 73 5f 73 74 6d 74 5f 6a 6f 75 72 6e 61  uses_stmt_journa
9dd0: 6c 20 24 73 74 6d 74 5d 0a 20 20 73 71 6c 69 74  l $stmt].  sqlit
9de0: 65 33 5f 66 69 6e 61 6c 69 7a 65 20 24 73 74 6d  e3_finalize $stm
9df0: 74 0a 20 20 72 65 74 75 72 6e 20 24 75 73 65 73  t.  return $uses
9e00: 0a 7d 0a 0a 70 72 6f 63 20 66 69 78 5f 69 66 63  .}..proc fix_ifc
9e10: 61 70 61 62 6c 65 5f 65 78 70 72 20 7b 65 78 70  apable_expr {exp
9e20: 72 7d 20 7b 0a 20 20 73 65 74 20 72 65 74 20 22  r} {.  set ret "
9e30: 22 0a 20 20 73 65 74 20 73 74 61 74 65 20 30 0a  ".  set state 0.
9e40: 20 20 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20    for {set i 0} 
9e50: 7b 24 69 20 3c 20 5b 73 74 72 69 6e 67 20 6c 65  {$i < [string le
9e60: 6e 67 74 68 20 24 65 78 70 72 5d 7d 20 7b 69 6e  ngth $expr]} {in
9e70: 63 72 20 69 7d 20 7b 0a 20 20 20 20 73 65 74 20  cr i} {.    set 
9e80: 63 68 61 72 20 5b 73 74 72 69 6e 67 20 72 61 6e  char [string ran
9e90: 67 65 20 24 65 78 70 72 20 24 69 20 24 69 5d 0a  ge $expr $i $i].
9ea0: 20 20 20 20 73 65 74 20 6e 65 77 73 74 61 74 65      set newstate
9eb0: 20 5b 65 78 70 72 20 7b 5b 73 74 72 69 6e 67 20   [expr {[string 
9ec0: 69 73 20 61 6c 6e 75 6d 20 24 63 68 61 72 5d 20  is alnum $char] 
9ed0: 7c 7c 20 24 63 68 61 72 20 65 71 20 22 5f 22 7d  || $char eq "_"}
9ee0: 5d 0a 20 20 20 20 69 66 20 7b 24 6e 65 77 73 74  ].    if {$newst
9ef0: 61 74 65 20 26 26 20 21 24 73 74 61 74 65 7d 20  ate && !$state} 
9f00: 7b 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20 72  {.      append r
9f10: 65 74 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 6f 70  et {$::sqlite_op
9f20: 74 69 6f 6e 73 28 7d 0a 20 20 20 20 7d 0a 20 20  tions(}.    }.  
9f30: 20 20 69 66 20 7b 21 24 6e 65 77 73 74 61 74 65    if {!$newstate
9f40: 20 26 26 20 24 73 74 61 74 65 7d 20 7b 0a 20 20   && $state} {.  
9f50: 20 20 20 20 61 70 70 65 6e 64 20 72 65 74 20 29      append ret )
9f60: 0a 20 20 20 20 7d 0a 20 20 20 20 61 70 70 65 6e  .    }.    appen
9f70: 64 20 72 65 74 20 24 63 68 61 72 0a 20 20 20 20  d ret $char.    
9f80: 73 65 74 20 73 74 61 74 65 20 24 6e 65 77 73 74  set state $newst
9f90: 61 74 65 0a 20 20 7d 0a 20 20 69 66 20 7b 24 73  ate.  }.  if {$s
9fa0: 74 61 74 65 7d 20 7b 61 70 70 65 6e 64 20 72 65  tate} {append re
9fb0: 74 20 29 7d 0a 20 20 72 65 74 75 72 6e 20 24 72  t )}.  return $r
9fc0: 65 74 0a 7d 0a 0a 23 20 52 65 74 75 72 6e 73 20  et.}..# Returns 
9fd0: 6e 6f 6e 2d 7a 65 72 6f 20 69 66 20 74 68 65 20  non-zero if the 
9fe0: 63 61 70 61 62 69 6c 69 74 69 65 73 20 61 72 65  capabilities are
9ff0: 20 70 72 65 73 65 6e 74 3b 20 7a 65 72 6f 20 6f   present; zero o
a000: 74 68 65 72 77 69 73 65 2e 0a 23 0a 70 72 6f 63  therwise..#.proc
a010: 20 63 61 70 61 62 6c 65 20 7b 65 78 70 72 7d 20   capable {expr} 
a020: 7b 0a 20 20 73 65 74 20 65 20 5b 66 69 78 5f 69  {.  set e [fix_i
a030: 66 63 61 70 61 62 6c 65 5f 65 78 70 72 20 24 65  fcapable_expr $e
a040: 78 70 72 5d 3b 20 72 65 74 75 72 6e 20 5b 65 78  xpr]; return [ex
a050: 70 72 20 28 24 65 29 5d 0a 7d 0a 0a 23 20 45 76  pr ($e)].}..# Ev
a060: 61 6c 75 61 74 65 20 61 20 62 6f 6f 6c 65 61 6e  aluate a boolean
a070: 20 65 78 70 72 65 73 73 69 6f 6e 20 6f 66 20 63   expression of c
a080: 61 70 61 62 69 6c 69 74 69 65 73 2e 20 20 49 66  apabilities.  If
a090: 20 74 72 75 65 2c 20 65 78 65 63 75 74 65 20 74   true, execute t
a0a0: 68 65 0a 23 20 63 6f 64 65 2e 20 20 4f 6d 69 74  he.# code.  Omit
a0b0: 20 74 68 65 20 63 6f 64 65 20 69 66 20 66 61 6c   the code if fal
a0c0: 73 65 2e 0a 23 0a 70 72 6f 63 20 69 66 63 61 70  se..#.proc ifcap
a0d0: 61 62 6c 65 20 7b 65 78 70 72 20 63 6f 64 65 20  able {expr code 
a0e0: 7b 65 6c 73 65 20 22 22 7d 20 7b 65 6c 73 65 63  {else ""} {elsec
a0f0: 6f 64 65 20 22 22 7d 7d 20 7b 0a 20 20 23 72 65  ode ""}} {.  #re
a100: 67 73 75 62 20 2d 61 6c 6c 20 7b 5b 61 2d 7a 5f  gsub -all {[a-z_
a110: 30 2d 39 5d 2b 7d 20 24 65 78 70 72 20 7b 24 3a  0-9]+} $expr {$:
a120: 3a 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 28  :sqlite_options(
a130: 26 29 7d 20 65 32 0a 20 20 73 65 74 20 65 32 20  &)} e2.  set e2 
a140: 5b 66 69 78 5f 69 66 63 61 70 61 62 6c 65 5f 65  [fix_ifcapable_e
a150: 78 70 72 20 24 65 78 70 72 5d 0a 20 20 69 66 20  xpr $expr].  if 
a160: 28 24 65 32 29 20 7b 0a 20 20 20 20 73 65 74 20  ($e2) {.    set 
a170: 63 20 5b 63 61 74 63 68 20 7b 75 70 6c 65 76 65  c [catch {upleve
a180: 6c 20 31 20 24 63 6f 64 65 7d 20 72 5d 0a 20 20  l 1 $code} r].  
a190: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65 74  } else {.    set
a1a0: 20 63 20 5b 63 61 74 63 68 20 7b 75 70 6c 65 76   c [catch {uplev
a1b0: 65 6c 20 31 20 24 65 6c 73 65 63 6f 64 65 7d 20  el 1 $elsecode} 
a1c0: 72 5d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  r].  }.  return 
a1d0: 2d 63 6f 64 65 20 24 63 20 24 72 0a 7d 0a 0a 23  -code $c $r.}..#
a1e0: 20 54 68 69 73 20 70 72 6f 63 20 65 78 65 63 73   This proc execs
a1f0: 20 61 20 73 65 70 65 72 61 74 65 20 70 72 6f 63   a seperate proc
a200: 65 73 73 20 74 68 61 74 20 63 72 61 73 68 65 73  ess that crashes
a210: 20 6d 69 64 77 61 79 20 74 68 72 6f 75 67 68 20   midway through 
a220: 65 78 65 63 75 74 69 6e 67 0a 23 20 74 68 65 20  executing.# the 
a230: 53 51 4c 20 73 63 72 69 70 74 20 24 73 71 6c 20  SQL script $sql 
a240: 6f 6e 20 64 61 74 61 62 61 73 65 20 74 65 73 74  on database test
a250: 2e 64 62 2e 0a 23 0a 23 20 54 68 65 20 63 72 61  .db..#.# The cra
a260: 73 68 20 6f 63 63 75 72 73 20 64 75 72 69 6e 67  sh occurs during
a270: 20 61 20 73 79 6e 63 28 29 20 6f 66 20 66 69 6c   a sync() of fil
a280: 65 20 24 63 72 61 73 68 66 69 6c 65 2e 20 57 68  e $crashfile. Wh
a290: 65 6e 20 74 68 65 20 63 72 61 73 68 0a 23 20 6f  en the crash.# o
a2a0: 63 63 75 72 73 20 61 20 72 61 6e 64 6f 6d 20 73  ccurs a random s
a2b0: 75 62 73 65 74 20 6f 66 20 61 6c 6c 20 75 6e 73  ubset of all uns
a2c0: 79 6e 63 65 64 20 77 72 69 74 65 73 20 6d 61 64  ynced writes mad
a2d0: 65 20 62 79 20 74 68 65 20 70 72 6f 63 65 73 73  e by the process
a2e0: 20 61 72 65 0a 23 20 77 72 69 74 74 65 6e 20 69   are.# written i
a2f0: 6e 74 6f 20 74 68 65 20 66 69 6c 65 73 20 6f 6e  nto the files on
a300: 20 64 69 73 6b 2e 20 41 72 67 75 6d 65 6e 74 20   disk. Argument 
a310: 24 63 72 61 73 68 64 65 6c 61 79 20 69 6e 64 69  $crashdelay indi
a320: 63 61 74 65 73 20 74 68 65 0a 23 20 6e 75 6d 62  cates the.# numb
a330: 65 72 20 6f 66 20 66 69 6c 65 20 73 79 6e 63 73  er of file syncs
a340: 20 74 6f 20 77 61 69 74 20 62 65 66 6f 72 65 20   to wait before 
a350: 63 72 61 73 68 69 6e 67 2e 0a 23 0a 23 20 54 68  crashing..#.# Th
a360: 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69  e return value i
a370: 73 20 61 20 6c 69 73 74 20 6f 66 20 74 77 6f 20  s a list of two 
a380: 65 6c 65 6d 65 6e 74 73 2e 20 54 68 65 20 66 69  elements. The fi
a390: 72 73 74 20 65 6c 65 6d 65 6e 74 20 69 73 20 61  rst element is a
a3a0: 0a 23 20 62 6f 6f 6c 65 61 6e 2c 20 69 6e 64 69  .# boolean, indi
a3b0: 63 61 74 69 6e 67 20 77 68 65 74 68 65 72 20 6f  cating whether o
a3c0: 72 20 6e 6f 74 20 74 68 65 20 70 72 6f 63 65 73  r not the proces
a3d0: 73 20 61 63 74 75 61 6c 6c 79 20 63 72 61 73 68  s actually crash
a3e0: 65 64 20 6f 72 0a 23 20 72 65 70 6f 72 74 65 64  ed or.# reported
a3f0: 20 73 6f 6d 65 20 6f 74 68 65 72 20 65 72 72 6f   some other erro
a400: 72 2e 20 54 68 65 20 73 65 63 6f 6e 64 20 65 6c  r. The second el
a410: 65 6d 65 6e 74 20 69 6e 20 74 68 65 20 72 65 74  ement in the ret
a420: 75 72 6e 65 64 20 6c 69 73 74 20 69 73 20 74 68  urned list is th
a430: 65 0a 23 20 65 72 72 6f 72 20 6d 65 73 73 61 67  e.# error messag
a440: 65 2e 20 54 68 69 73 20 69 73 20 22 63 68 69 6c  e. This is "chil
a450: 64 20 70 72 6f 63 65 73 73 20 65 78 69 74 65 64  d process exited
a460: 20 61 62 6e 6f 72 6d 61 6c 6c 79 22 20 69 66 20   abnormally" if 
a470: 74 68 65 20 63 72 61 73 68 0a 23 20 6f 63 63 75  the crash.# occu
a480: 72 72 65 64 2e 0a 23 0a 23 20 20 20 63 72 61 73  rred..#.#   cras
a490: 68 73 71 6c 20 2d 64 65 6c 61 79 20 43 52 41 53  hsql -delay CRAS
a4a0: 48 44 45 4c 41 59 20 2d 66 69 6c 65 20 43 52 41  HDELAY -file CRA
a4b0: 53 48 46 49 4c 45 20 3f 2d 62 6c 6f 63 6b 73 69  SHFILE ?-blocksi
a4c0: 7a 65 20 42 4c 4f 43 4b 53 49 5a 45 3f 20 24 73  ze BLOCKSIZE? $s
a4d0: 71 6c 0a 23 0a 70 72 6f 63 20 63 72 61 73 68 73  ql.#.proc crashs
a4e0: 71 6c 20 7b 61 72 67 73 7d 20 7b 0a 0a 20 20 73  ql {args} {..  s
a4f0: 65 74 20 62 6c 6f 63 6b 73 69 7a 65 20 22 22 0a  et blocksize "".
a500: 20 20 73 65 74 20 63 72 61 73 68 64 65 6c 61 79    set crashdelay
a510: 20 31 0a 20 20 73 65 74 20 70 72 6e 67 73 65 65   1.  set prngsee
a520: 64 20 30 0a 20 20 73 65 74 20 6f 70 65 6e 64 62  d 0.  set opendb
a530: 20 7b 20 73 71 6c 69 74 65 33 20 64 62 20 74 65   { sqlite3 db te
a540: 73 74 2e 64 62 20 2d 76 66 73 20 63 72 61 73 68  st.db -vfs crash
a550: 20 7d 0a 20 20 73 65 74 20 74 63 6c 62 6f 64 79   }.  set tclbody
a560: 20 7b 7d 0a 20 20 73 65 74 20 63 72 61 73 68 66   {}.  set crashf
a570: 69 6c 65 20 22 22 0a 20 20 73 65 74 20 64 63 20  ile "".  set dc 
a580: 22 22 0a 20 20 73 65 74 20 73 71 6c 20 5b 6c 69  "".  set sql [li
a590: 6e 64 65 78 20 24 61 72 67 73 20 65 6e 64 5d 0a  ndex $args end].
a5a0: 0a 20 20 66 6f 72 20 7b 73 65 74 20 69 69 20 30  .  for {set ii 0
a5b0: 7d 20 7b 24 69 69 20 3c 20 5b 6c 6c 65 6e 67 74  } {$ii < [llengt
a5c0: 68 20 24 61 72 67 73 5d 2d 31 7d 20 7b 69 6e 63  h $args]-1} {inc
a5d0: 72 20 69 69 20 32 7d 20 7b 0a 20 20 20 20 73 65  r ii 2} {.    se
a5e0: 74 20 7a 20 5b 6c 69 6e 64 65 78 20 24 61 72 67  t z [lindex $arg
a5f0: 73 20 24 69 69 5d 0a 20 20 20 20 73 65 74 20 6e  s $ii].    set n
a600: 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20   [string length 
a610: 24 7a 5d 0a 20 20 20 20 73 65 74 20 7a 32 20 5b  $z].    set z2 [
a620: 6c 69 6e 64 65 78 20 24 61 72 67 73 20 5b 65 78  lindex $args [ex
a630: 70 72 20 24 69 69 2b 31 5d 5d 0a 0a 20 20 20 20  pr $ii+1]]..    
a640: 69 66 20 20 20 20 20 7b 24 6e 3e 31 20 26 26 20  if     {$n>1 && 
a650: 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20 24 7a  [string first $z
a660: 20 2d 64 65 6c 61 79 5d 3d 3d 30 7d 20 20 20 20   -delay]==0}    
a670: 20 7b 73 65 74 20 63 72 61 73 68 64 65 6c 61 79   {set crashdelay
a680: 20 24 7a 32 7d 20 5c 0a 20 20 20 20 65 6c 73 65   $z2} \.    else
a690: 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72  if {$n>1 && [str
a6a0: 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d 6f 70  ing first $z -op
a6b0: 65 6e 64 62 5d 3d 3d 30 7d 20 20 20 20 7b 73 65  endb]==0}    {se
a6c0: 74 20 6f 70 65 6e 64 62 20 24 7a 32 7d 20 5c 0a  t opendb $z2} \.
a6d0: 20 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31      elseif {$n>1
a6e0: 20 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73   && [string firs
a6f0: 74 20 24 7a 20 2d 73 65 65 64 5d 3d 3d 30 7d 20  t $z -seed]==0} 
a700: 20 20 20 20 20 7b 73 65 74 20 70 72 6e 67 73 65       {set prngse
a710: 65 64 20 24 7a 32 7d 20 5c 0a 20 20 20 20 65 6c  ed $z2} \.    el
a720: 73 65 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73  seif {$n>1 && [s
a730: 74 72 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d  tring first $z -
a740: 66 69 6c 65 5d 3d 3d 30 7d 20 20 20 20 20 20 7b  file]==0}      {
a750: 73 65 74 20 63 72 61 73 68 66 69 6c 65 20 24 7a  set crashfile $z
a760: 32 7d 20 20 5c 0a 20 20 20 20 65 6c 73 65 69 66  2}  \.    elseif
a770: 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e   {$n>1 && [strin
a780: 67 20 66 69 72 73 74 20 24 7a 20 2d 74 63 6c 62  g first $z -tclb
a790: 6f 64 79 5d 3d 3d 30 7d 20 20 20 7b 73 65 74 20  ody]==0}   {set 
a7a0: 74 63 6c 62 6f 64 79 20 24 7a 32 7d 20 20 5c 0a  tclbody $z2}  \.
a7b0: 20 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31      elseif {$n>1
a7c0: 20 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73   && [string firs
a7d0: 74 20 24 7a 20 2d 62 6c 6f 63 6b 73 69 7a 65 5d  t $z -blocksize]
a7e0: 3d 3d 30 7d 20 7b 73 65 74 20 62 6c 6f 63 6b 73  ==0} {set blocks
a7f0: 69 7a 65 20 22 2d 73 20 24 7a 32 22 20 7d 20 5c  ize "-s $z2" } \
a800: 0a 20 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e  .    elseif {$n>
a810: 31 20 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72  1 && [string fir
a820: 73 74 20 24 7a 20 2d 63 68 61 72 61 63 74 65 72  st $z -character
a830: 69 73 74 69 63 73 5d 3d 3d 30 7d 20 7b 73 65 74  istics]==0} {set
a840: 20 64 63 20 22 2d 63 20 7b 24 7a 32 7d 22 20 7d   dc "-c {$z2}" }
a850: 20 5c 0a 20 20 20 20 65 6c 73 65 20 20 20 7b 20   \.    else   { 
a860: 65 72 72 6f 72 20 22 55 6e 72 65 63 6f 67 6e 69  error "Unrecogni
a870: 7a 65 64 20 6f 70 74 69 6f 6e 3a 20 24 7a 22 20  zed option: $z" 
a880: 7d 0a 20 20 7d 0a 0a 20 20 69 66 20 7b 24 63 72  }.  }..  if {$cr
a890: 61 73 68 66 69 6c 65 20 65 71 20 22 22 7d 20 7b  ashfile eq ""} {
a8a0: 0a 20 20 20 20 65 72 72 6f 72 20 22 43 6f 6d 70  .    error "Comp
a8b0: 75 6c 73 6f 72 79 20 6f 70 74 69 6f 6e 20 2d 66  ulsory option -f
a8c0: 69 6c 65 20 6d 69 73 73 69 6e 67 22 0a 20 20 7d  ile missing".  }
a8d0: 0a 0a 20 20 23 20 24 63 72 61 73 68 66 69 6c 65  ..  # $crashfile
a8e0: 20 67 65 74 73 20 63 6f 6d 70 61 72 65 64 20 74   gets compared t
a8f0: 6f 20 74 68 65 20 6e 61 74 69 76 65 20 66 69 6c  o the native fil
a900: 65 6e 61 6d 65 20 69 6e 0a 20 20 23 20 63 66 53  ename in.  # cfS
a910: 79 6e 63 28 29 2c 20 77 68 69 63 68 20 63 61 6e  ync(), which can
a920: 20 62 65 20 64 69 66 66 65 72 65 6e 74 20 74 68   be different th
a930: 65 6e 20 77 68 61 74 20 54 43 4c 20 75 73 65 73  en what TCL uses
a940: 20 62 79 0a 20 20 23 20 64 65 66 61 75 6c 74 2c   by.  # default,
a950: 20 73 6f 20 68 65 72 65 20 77 65 20 66 6f 72 63   so here we forc
a960: 65 20 69 74 20 74 6f 20 74 68 65 20 22 6e 61 74  e it to the "nat
a970: 69 76 65 6e 61 6d 65 22 20 66 6f 72 6d 61 74 2e  ivename" format.
a980: 0a 20 20 73 65 74 20 63 66 69 6c 65 20 5b 73 74  .  set cfile [st
a990: 72 69 6e 67 20 6d 61 70 20 7b 5c 5c 20 5c 5c 5c  ring map {\\ \\\
a9a0: 5c 7d 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 6e  \} [file nativen
a9b0: 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b  ame [file join [
a9c0: 67 65 74 5f 70 77 64 5d 20 24 63 72 61 73 68 66  get_pwd] $crashf
a9d0: 69 6c 65 5d 5d 5d 0a 0a 20 20 73 65 74 20 66 20  ile]]]..  set f 
a9e0: 5b 6f 70 65 6e 20 63 72 61 73 68 2e 74 63 6c 20  [open crash.tcl 
a9f0: 77 5d 0a 20 20 70 75 74 73 20 24 66 20 22 73 71  w].  puts $f "sq
aa00: 6c 69 74 65 33 5f 63 72 61 73 68 5f 65 6e 61 62  lite3_crash_enab
aa10: 6c 65 20 31 22 0a 20 20 70 75 74 73 20 24 66 20  le 1".  puts $f 
aa20: 22 73 71 6c 69 74 65 33 5f 63 72 61 73 68 70 61  "sqlite3_crashpa
aa30: 72 61 6d 73 20 24 62 6c 6f 63 6b 73 69 7a 65 20  rams $blocksize 
aa40: 24 64 63 20 24 63 72 61 73 68 64 65 6c 61 79 20  $dc $crashdelay 
aa50: 24 63 66 69 6c 65 22 0a 20 20 70 75 74 73 20 24  $cfile".  puts $
aa60: 66 20 22 73 71 6c 69 74 65 33 5f 74 65 73 74 5f  f "sqlite3_test_
aa70: 63 6f 6e 74 72 6f 6c 5f 70 65 6e 64 69 6e 67 5f  control_pending_
aa80: 62 79 74 65 20 24 3a 3a 73 71 6c 69 74 65 5f 70  byte $::sqlite_p
aa90: 65 6e 64 69 6e 67 5f 62 79 74 65 22 0a 0a 20 20  ending_byte"..  
aaa0: 23 20 54 68 69 73 20 62 6c 6f 63 6b 20 73 65 74  # This block set
aab0: 73 20 74 68 65 20 63 61 63 68 65 20 73 69 7a 65  s the cache size
aac0: 20 6f 66 20 74 68 65 20 6d 61 69 6e 20 64 61 74   of the main dat
aad0: 61 62 61 73 65 20 74 6f 20 31 30 0a 20 20 23 20  abase to 10.  # 
aae0: 70 61 67 65 73 2e 20 54 68 69 73 20 69 73 20 64  pages. This is d
aaf0: 6f 6e 65 20 69 6e 20 63 61 73 65 20 74 68 65 20  one in case the 
ab00: 62 75 69 6c 64 20 69 73 20 63 6f 6e 66 69 67 75  build is configu
ab10: 72 65 64 20 74 6f 20 6f 6d 69 74 0a 20 20 23 20  red to omit.  # 
ab20: 22 50 52 41 47 4d 41 20 63 61 63 68 65 5f 73 69  "PRAGMA cache_si
ab30: 7a 65 22 2e 0a 20 20 69 66 20 7b 24 6f 70 65 6e  ze"..  if {$open
ab40: 64 62 21 3d 22 22 7d 20 7b 0a 20 20 20 20 70 75  db!=""} {.    pu
ab50: 74 73 20 24 66 20 24 6f 70 65 6e 64 62 20 0a 20  ts $f $opendb . 
ab60: 20 20 20 70 75 74 73 20 24 66 20 7b 64 62 20 65     puts $f {db e
ab70: 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52  val {SELECT * FR
ab80: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
ab90: 3b 7d 7d 0a 20 20 20 20 70 75 74 73 20 24 66 20  ;}}.    puts $f 
aba0: 7b 73 65 74 20 62 74 20 5b 62 74 72 65 65 5f 66  {set bt [btree_f
abb0: 72 6f 6d 5f 64 62 20 64 62 5d 7d 0a 20 20 20 20  rom_db db]}.    
abc0: 70 75 74 73 20 24 66 20 7b 62 74 72 65 65 5f 73  puts $f {btree_s
abd0: 65 74 5f 63 61 63 68 65 5f 73 69 7a 65 20 24 62  et_cache_size $b
abe0: 74 20 31 30 7d 0a 20 20 7d 0a 0a 20 20 69 66 20  t 10}.  }..  if 
abf0: 7b 24 70 72 6e 67 73 65 65 64 7d 20 7b 0a 20 20  {$prngseed} {.  
ac00: 20 20 73 65 74 20 73 65 65 64 20 5b 65 78 70 72    set seed [expr
ac10: 20 7b 24 70 72 6e 67 73 65 65 64 25 31 30 30 30   {$prngseed%1000
ac20: 37 2b 31 7d 5d 0a 20 20 20 20 23 20 70 75 74 73  7+1}].    # puts
ac30: 20 73 65 65 64 3d 24 73 65 65 64 0a 20 20 20 20   seed=$seed.    
ac40: 70 75 74 73 20 24 66 20 22 64 62 20 65 76 61 6c  puts $f "db eval
ac50: 20 7b 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62   {SELECT randomb
ac60: 6c 6f 62 28 24 73 65 65 64 29 7d 22 0a 20 20 7d  lob($seed)}".  }
ac70: 0a 0a 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20  ..  if {[string 
ac80: 6c 65 6e 67 74 68 20 24 74 63 6c 62 6f 64 79 5d  length $tclbody]
ac90: 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 24  >0} {.    puts $
aca0: 66 20 24 74 63 6c 62 6f 64 79 0a 20 20 7d 0a 20  f $tclbody.  }. 
acb0: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e   if {[string len
acc0: 67 74 68 20 24 73 71 6c 5d 3e 30 7d 20 7b 0a 20  gth $sql]>0} {. 
acd0: 20 20 20 70 75 74 73 20 24 66 20 22 64 62 20 65     puts $f "db e
ace0: 76 61 6c 20 7b 22 0a 20 20 20 20 70 75 74 73 20  val {".    puts 
acf0: 24 66 20 20 20 22 24 73 71 6c 22 0a 20 20 20 20  $f   "$sql".    
ad00: 70 75 74 73 20 24 66 20 22 7d 22 0a 20 20 7d 0a  puts $f "}".  }.
ad10: 20 20 63 6c 6f 73 65 20 24 66 0a 20 20 73 65 74    close $f.  set
ad20: 20 72 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20   r [catch {.    
ad30: 65 78 65 63 20 5b 69 6e 66 6f 20 6e 61 6d 65 6f  exec [info nameo
ad40: 66 65 78 65 63 5d 20 63 72 61 73 68 2e 74 63 6c  fexec] crash.tcl
ad50: 20 3e 40 73 74 64 6f 75 74 0a 20 20 7d 20 6d 73   >@stdout.  } ms
ad60: 67 5d 0a 0a 20 20 23 20 57 69 6e 64 6f 77 73 2f  g]..  # Windows/
ad70: 41 63 74 69 76 65 53 74 61 74 65 20 54 43 4c 20  ActiveState TCL 
ad80: 72 65 74 75 72 6e 73 20 61 20 73 6c 69 67 68 74  returns a slight
ad90: 6c 79 20 64 69 66 66 65 72 65 6e 74 0a 20 20 23  ly different.  #
ada0: 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 20   error message. 
adb0: 20 57 65 20 6d 61 70 20 74 68 61 74 20 74 6f 20   We map that to 
adc0: 74 68 65 20 65 78 70 65 63 74 65 64 20 6d 65 73  the expected mes
add0: 73 61 67 65 0a 20 20 23 20 73 6f 20 74 68 61 74  sage.  # so that
ade0: 20 77 65 20 64 6f 6e 27 74 20 68 61 76 65 20 74   we don't have t
adf0: 6f 20 63 68 61 6e 67 65 20 61 6c 6c 20 6f 66 20  o change all of 
ae00: 74 68 65 20 74 65 73 74 0a 20 20 23 20 63 61 73  the test.  # cas
ae10: 65 73 2e 0a 20 20 69 66 20 7b 24 3a 3a 74 63 6c  es..  if {$::tcl
ae20: 5f 70 6c 61 74 66 6f 72 6d 28 70 6c 61 74 66 6f  _platform(platfo
ae30: 72 6d 29 3d 3d 22 77 69 6e 64 6f 77 73 22 7d 20  rm)=="windows"} 
ae40: 7b 0a 20 20 20 20 69 66 20 7b 24 6d 73 67 3d 3d  {.    if {$msg==
ae50: 22 63 68 69 6c 64 20 6b 69 6c 6c 65 64 3a 20 75  "child killed: u
ae60: 6e 6b 6e 6f 77 6e 20 73 69 67 6e 61 6c 22 7d 20  nknown signal"} 
ae70: 7b 0a 20 20 20 20 20 20 73 65 74 20 6d 73 67 20  {.      set msg 
ae80: 22 63 68 69 6c 64 20 70 72 6f 63 65 73 73 20 65  "child process e
ae90: 78 69 74 65 64 20 61 62 6e 6f 72 6d 61 6c 6c 79  xited abnormally
aea0: 22 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 6c  ".    }.  }..  l
aeb0: 61 70 70 65 6e 64 20 72 20 24 6d 73 67 0a 7d 0a  append r $msg.}.
aec0: 0a 70 72 6f 63 20 72 75 6e 5f 69 6f 65 72 72 5f  .proc run_ioerr_
aed0: 70 72 65 70 20 7b 7d 20 7b 0a 20 20 73 65 74 20  prep {} {.  set 
aee0: 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f  ::sqlite_io_erro
aef0: 72 5f 70 65 6e 64 69 6e 67 20 30 0a 20 20 63 61  r_pending 0.  ca
af00: 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 20  tch {db close}. 
af10: 20 63 61 74 63 68 20 7b 64 62 32 20 63 6c 6f 73   catch {db2 clos
af20: 65 7d 0a 20 20 63 61 74 63 68 20 7b 66 6f 72 63  e}.  catch {forc
af30: 65 64 65 6c 65 74 65 20 74 65 73 74 2e 64 62 7d  edelete test.db}
af40: 0a 20 20 63 61 74 63 68 20 7b 66 6f 72 63 65 64  .  catch {forced
af50: 65 6c 65 74 65 20 74 65 73 74 2e 64 62 2d 6a 6f  elete test.db-jo
af60: 75 72 6e 61 6c 7d 0a 20 20 63 61 74 63 68 20 7b  urnal}.  catch {
af70: 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73 74  forcedelete test
af80: 32 2e 64 62 7d 0a 20 20 63 61 74 63 68 20 7b 66  2.db}.  catch {f
af90: 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73 74 32  orcedelete test2
afa0: 2e 64 62 2d 6a 6f 75 72 6e 61 6c 7d 0a 20 20 73  .db-journal}.  s
afb0: 65 74 20 3a 3a 44 42 20 5b 73 71 6c 69 74 65 33  et ::DB [sqlite3
afc0: 20 64 62 20 74 65 73 74 2e 64 62 3b 20 73 71 6c   db test.db; sql
afd0: 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f  ite3_connection_
afe0: 70 6f 69 6e 74 65 72 20 64 62 5d 0a 20 20 73 71  pointer db].  sq
aff0: 6c 69 74 65 33 5f 65 78 74 65 6e 64 65 64 5f 72  lite3_extended_r
b000: 65 73 75 6c 74 5f 63 6f 64 65 73 20 24 3a 3a 44  esult_codes $::D
b010: 42 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d  B $::ioerropts(-
b020: 65 72 63 29 0a 20 20 69 66 20 7b 5b 69 6e 66 6f  erc).  if {[info
b030: 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f   exists ::ioerro
b040: 70 74 73 28 2d 74 63 6c 70 72 65 70 29 5d 7d 20  pts(-tclprep)]} 
b050: 7b 0a 20 20 20 20 65 76 61 6c 20 24 3a 3a 69 6f  {.    eval $::io
b060: 65 72 72 6f 70 74 73 28 2d 74 63 6c 70 72 65 70  erropts(-tclprep
b070: 29 0a 20 20 7d 0a 20 20 69 66 20 7b 5b 69 6e 66  ).  }.  if {[inf
b080: 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72  o exists ::ioerr
b090: 6f 70 74 73 28 2d 73 71 6c 70 72 65 70 29 5d 7d  opts(-sqlprep)]}
b0a0: 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 24   {.    execsql $
b0b0: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73 71 6c  ::ioerropts(-sql
b0c0: 70 72 65 70 29 0a 20 20 7d 0a 20 20 65 78 70 72  prep).  }.  expr
b0d0: 20 30 0a 7d 0a 0a 23 20 55 73 61 67 65 3a 20 64   0.}..# Usage: d
b0e0: 6f 5f 69 6f 65 72 72 5f 74 65 73 74 20 3c 74 65  o_ioerr_test <te
b0f0: 73 74 20 6e 75 6d 62 65 72 3e 20 3c 6f 70 74 69  st number> <opti
b100: 6f 6e 73 2e 2e 2e 3e 0a 23 0a 23 20 54 68 69 73  ons...>.#.# This
b110: 20 70 72 6f 63 20 69 73 20 75 73 65 64 20 74 6f   proc is used to
b120: 20 69 6d 70 6c 65 6d 65 6e 74 20 74 65 73 74 20   implement test 
b130: 63 61 73 65 73 20 74 68 61 74 20 63 68 65 63 6b  cases that check
b140: 20 74 68 61 74 20 49 4f 20 65 72 72 6f 72 73 0a   that IO errors.
b150: 23 20 61 72 65 20 63 6f 72 72 65 63 74 6c 79 20  # are correctly 
b160: 68 61 6e 64 6c 65 64 2e 20 54 68 65 20 66 69 72  handled. The fir
b170: 73 74 20 61 72 67 75 6d 65 6e 74 2c 20 3c 74 65  st argument, <te
b180: 73 74 20 6e 75 6d 62 65 72 3e 2c 20 69 73 20 61  st number>, is a
b190: 6e 20 69 6e 74 65 67 65 72 0a 23 20 75 73 65 64  n integer.# used
b1a0: 20 74 6f 20 6e 61 6d 65 20 74 68 65 20 74 65 73   to name the tes
b1b0: 74 73 20 65 78 65 63 75 74 65 64 20 62 79 20 74  ts executed by t
b1c0: 68 69 73 20 70 72 6f 63 2e 20 4f 70 74 69 6f 6e  his proc. Option
b1d0: 73 20 61 72 65 20 61 73 20 66 6f 6c 6c 6f 77 73  s are as follows
b1e0: 3a 0a 23 0a 23 20 20 20 20 20 2d 74 63 6c 70 72  :.#.#     -tclpr
b1f0: 65 70 20 20 20 20 20 20 20 20 20 20 54 43 4c 20  ep          TCL 
b200: 73 63 72 69 70 74 20 74 6f 20 72 75 6e 20 74 6f  script to run to
b210: 20 70 72 65 70 61 72 65 20 74 65 73 74 2e 0a 23   prepare test..#
b220: 20 20 20 20 20 2d 73 71 6c 70 72 65 70 20 20 20       -sqlprep   
b230: 20 20 20 20 20 20 20 53 51 4c 20 73 63 72 69 70         SQL scrip
b240: 74 20 74 6f 20 72 75 6e 20 74 6f 20 70 72 65 70  t to run to prep
b250: 61 72 65 20 74 65 73 74 2e 0a 23 20 20 20 20 20  are test..#     
b260: 2d 74 63 6c 62 6f 64 79 20 20 20 20 20 20 20 20  -tclbody        
b270: 20 20 54 43 4c 20 73 63 72 69 70 74 20 74 6f 20    TCL script to 
b280: 72 75 6e 20 77 69 74 68 20 49 4f 20 65 72 72 6f  run with IO erro
b290: 72 20 73 69 6d 75 6c 61 74 69 6f 6e 2e 0a 23 20  r simulation..# 
b2a0: 20 20 20 20 2d 73 71 6c 62 6f 64 79 20 20 20 20      -sqlbody    
b2b0: 20 20 20 20 20 20 54 43 4c 20 73 63 72 69 70 74        TCL script
b2c0: 20 74 6f 20 72 75 6e 20 77 69 74 68 20 49 4f 20   to run with IO 
b2d0: 65 72 72 6f 72 20 73 69 6d 75 6c 61 74 69 6f 6e  error simulation
b2e0: 2e 0a 23 20 20 20 20 20 2d 65 78 63 6c 75 64 65  ..#     -exclude
b2f0: 20 20 20 20 20 20 20 20 20 20 4c 69 73 74 20 6f            List o
b300: 66 20 27 4e 27 20 76 61 6c 75 65 73 20 6e 6f 74  f 'N' values not
b310: 20 74 6f 20 74 65 73 74 2e 0a 23 20 20 20 20 20   to test..#     
b320: 2d 65 72 63 20 20 20 20 20 20 20 20 20 20 20 20  -erc            
b330: 20 20 55 73 65 20 65 78 74 65 6e 64 65 64 20 72    Use extended r
b340: 65 73 75 6c 74 20 63 6f 64 65 73 0a 23 20 20 20  esult codes.#   
b350: 20 20 2d 70 65 72 73 69 73 74 20 20 20 20 20 20    -persist      
b360: 20 20 20 20 4d 61 6b 65 20 73 69 6d 75 6c 61 74      Make simulat
b370: 65 64 20 49 2f 4f 20 65 72 72 6f 72 73 20 70 65  ed I/O errors pe
b380: 72 73 69 73 74 65 6e 74 0a 23 20 20 20 20 20 2d  rsistent.#     -
b390: 73 74 61 72 74 20 20 20 20 20 20 20 20 20 20 20  start           
b3a0: 20 56 61 6c 75 65 20 6f 66 20 27 4e 27 20 74 6f   Value of 'N' to
b3b0: 20 62 65 67 69 6e 20 77 69 74 68 20 28 64 65 66   begin with (def
b3c0: 61 75 6c 74 20 31 29 0a 23 0a 23 20 20 20 20 20  ault 1).#.#     
b3d0: 2d 63 6b 73 75 6d 20 20 20 20 20 20 20 20 20 20  -cksum          
b3e0: 20 20 42 6f 6f 6c 65 61 6e 2e 20 49 66 20 74 72    Boolean. If tr
b3f0: 75 65 2c 20 74 65 73 74 20 74 68 61 74 20 74 68  ue, test that th
b400: 65 20 64 61 74 61 62 61 73 65 20 64 6f 65 73 0a  e database does.
b410: 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  #               
b420: 20 20 20 20 20 20 20 20 6e 6f 74 20 63 68 61 6e          not chan
b430: 67 65 20 64 75 72 69 6e 67 20 74 68 65 20 65 78  ge during the ex
b440: 65 63 75 74 69 6f 6e 20 6f 66 20 74 68 65 20 74  ecution of the t
b450: 65 73 74 20 63 61 73 65 2e 0a 23 0a 70 72 6f 63  est case..#.proc
b460: 20 64 6f 5f 69 6f 65 72 72 5f 74 65 73 74 20 7b   do_ioerr_test {
b470: 74 65 73 74 6e 61 6d 65 20 61 72 67 73 7d 20 7b  testname args} {
b480: 0a 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f  ..  set ::ioerro
b490: 70 74 73 28 2d 73 74 61 72 74 29 20 31 0a 20 20  pts(-start) 1.  
b4a0: 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28  set ::ioerropts(
b4b0: 2d 63 6b 73 75 6d 29 20 30 0a 20 20 73 65 74 20  -cksum) 0.  set 
b4c0: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 65 72 63  ::ioerropts(-erc
b4d0: 29 20 30 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72  ) 0.  set ::ioer
b4e0: 72 6f 70 74 73 28 2d 63 6f 75 6e 74 29 20 31 30  ropts(-count) 10
b4f0: 30 30 30 30 30 30 30 0a 20 20 73 65 74 20 3a 3a  0000000.  set ::
b500: 69 6f 65 72 72 6f 70 74 73 28 2d 70 65 72 73 69  ioerropts(-persi
b510: 73 74 29 20 31 0a 20 20 73 65 74 20 3a 3a 69 6f  st) 1.  set ::io
b520: 65 72 72 6f 70 74 73 28 2d 63 6b 72 65 66 63 6f  erropts(-ckrefco
b530: 75 6e 74 29 20 30 0a 20 20 73 65 74 20 3a 3a 69  unt) 0.  set ::i
b540: 6f 65 72 72 6f 70 74 73 28 2d 72 65 73 74 6f 72  oerropts(-restor
b550: 65 70 72 6e 67 29 20 31 0a 20 20 61 72 72 61 79  eprng) 1.  array
b560: 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73   set ::ioerropts
b570: 20 24 61 72 67 73 0a 0a 20 20 23 20 54 45 4d 50   $args..  # TEMP
b580: 4f 52 41 52 59 3a 20 46 6f 72 20 33 2e 35 2e 39  ORARY: For 3.5.9
b590: 2c 20 64 69 73 61 62 6c 65 20 74 65 73 74 69 6e  , disable testin
b5a0: 67 20 6f 66 20 65 78 74 65 6e 64 65 64 20 72 65  g of extended re
b5b0: 73 75 6c 74 20 63 6f 64 65 73 2e 20 54 68 65 72  sult codes. Ther
b5c0: 65 20 61 72 65 0a 20 20 23 20 61 20 63 6f 75 70  e are.  # a coup
b5d0: 6c 65 20 6f 66 20 6f 62 73 63 75 72 65 20 49 4f  le of obscure IO
b5e0: 20 65 72 72 6f 72 73 20 74 68 61 74 20 64 6f 20   errors that do 
b5f0: 6e 6f 74 20 72 65 74 75 72 6e 20 74 68 65 6d 2e  not return them.
b600: 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70  .  set ::ioerrop
b610: 74 73 28 2d 65 72 63 29 20 30 0a 0a 20 20 23 20  ts(-erc) 0..  # 
b620: 43 72 65 61 74 65 20 61 20 73 69 6e 67 6c 65 20  Create a single 
b630: 54 43 4c 20 73 63 72 69 70 74 20 66 72 6f 6d 20  TCL script from 
b640: 74 68 65 20 54 43 4c 20 61 6e 64 20 53 51 4c 20  the TCL and SQL 
b650: 73 70 65 63 69 66 69 65 64 0a 20 20 23 20 61 73  specified.  # as
b660: 20 74 68 65 20 62 6f 64 79 20 6f 66 20 74 68 65   the body of the
b670: 20 74 65 73 74 2e 0a 20 20 73 65 74 20 3a 3a 69   test..  set ::i
b680: 6f 65 72 72 6f 72 62 6f 64 79 20 7b 7d 0a 20 20  oerrorbody {}.  
b690: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
b6a0: 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 74 63   ::ioerropts(-tc
b6b0: 6c 62 6f 64 79 29 5d 7d 20 7b 0a 20 20 20 20 61  lbody)]} {.    a
b6c0: 70 70 65 6e 64 20 3a 3a 69 6f 65 72 72 6f 72 62  ppend ::ioerrorb
b6d0: 6f 64 79 20 22 24 3a 3a 69 6f 65 72 72 6f 70 74  ody "$::ioerropt
b6e0: 73 28 2d 74 63 6c 62 6f 64 79 29 5c 6e 22 0a 20  s(-tclbody)\n". 
b6f0: 20 7d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65   }.  if {[info e
b700: 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74  xists ::ioerropt
b710: 73 28 2d 73 71 6c 62 6f 64 79 29 5d 7d 20 7b 0a  s(-sqlbody)]} {.
b720: 20 20 20 20 61 70 70 65 6e 64 20 3a 3a 69 6f 65      append ::ioe
b730: 72 72 6f 72 62 6f 64 79 20 22 64 62 20 65 76 61  rrorbody "db eva
b740: 6c 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28  l {$::ioerropts(
b750: 2d 73 71 6c 62 6f 64 79 29 7d 22 0a 20 20 7d 0a  -sqlbody)}".  }.
b760: 0a 20 20 73 61 76 65 5f 70 72 6e 67 5f 73 74 61  .  save_prng_sta
b770: 74 65 0a 20 20 69 66 20 7b 24 3a 3a 69 6f 65 72  te.  if {$::ioer
b780: 72 6f 70 74 73 28 2d 63 6b 73 75 6d 29 7d 20 7b  ropts(-cksum)} {
b790: 0a 20 20 20 20 72 75 6e 5f 69 6f 65 72 72 5f 70  .    run_ioerr_p
b7a0: 72 65 70 0a 20 20 20 20 65 76 61 6c 20 24 3a 3a  rep.    eval $::
b7b0: 69 6f 65 72 72 6f 72 62 6f 64 79 0a 20 20 20 20  ioerrorbody.    
b7c0: 73 65 74 20 3a 3a 67 6f 6f 64 63 6b 73 75 6d 20  set ::goodcksum 
b7d0: 5b 63 6b 73 75 6d 5d 0a 20 20 7d 0a 0a 20 20 73  [cksum].  }..  s
b7e0: 65 74 20 3a 3a 67 6f 20 31 0a 20 20 23 72 65 73  et ::go 1.  #res
b7f0: 65 74 5f 70 72 6e 67 5f 73 74 61 74 65 0a 20 20  et_prng_state.  
b800: 66 6f 72 20 7b 73 65 74 20 6e 20 24 3a 3a 69 6f  for {set n $::io
b810: 65 72 72 6f 70 74 73 28 2d 73 74 61 72 74 29 7d  erropts(-start)}
b820: 20 7b 24 3a 3a 67 6f 7d 20 7b 69 6e 63 72 20 6e   {$::go} {incr n
b830: 7d 20 7b 0a 20 20 20 20 73 65 74 20 3a 3a 54 4e  } {.    set ::TN
b840: 20 24 6e 0a 20 20 20 20 69 6e 63 72 20 3a 3a 69   $n.    incr ::i
b850: 6f 65 72 72 6f 70 74 73 28 2d 63 6f 75 6e 74 29  oerropts(-count)
b860: 20 2d 31 0a 20 20 20 20 69 66 20 7b 24 3a 3a 69   -1.    if {$::i
b870: 6f 65 72 72 6f 70 74 73 28 2d 63 6f 75 6e 74 29  oerropts(-count)
b880: 3c 30 7d 20 62 72 65 61 6b 0a 0a 20 20 20 20 23  <0} break..    #
b890: 20 53 6b 69 70 20 74 68 69 73 20 49 4f 20 65 72   Skip this IO er
b8a0: 72 6f 72 20 69 66 20 69 74 20 77 61 73 20 73 70  ror if it was sp
b8b0: 65 63 69 66 69 65 64 20 77 69 74 68 20 74 68 65  ecified with the
b8c0: 20 22 2d 65 78 63 6c 75 64 65 22 20 6f 70 74 69   "-exclude" opti
b8d0: 6f 6e 2e 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66  on..    if {[inf
b8e0: 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72  o exists ::ioerr
b8f0: 6f 70 74 73 28 2d 65 78 63 6c 75 64 65 29 5d 7d  opts(-exclude)]}
b900: 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 5b 6c 73   {.      if {[ls
b910: 65 61 72 63 68 20 24 3a 3a 69 6f 65 72 72 6f 70  earch $::ioerrop
b920: 74 73 28 2d 65 78 63 6c 75 64 65 29 20 24 6e 5d  ts(-exclude) $n]
b930: 21 3d 2d 31 7d 20 63 6f 6e 74 69 6e 75 65 0a 20  !=-1} continue. 
b940: 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 24 3a 3a     }.    if {$::
b950: 69 6f 65 72 72 6f 70 74 73 28 2d 72 65 73 74 6f  ioerropts(-resto
b960: 72 65 70 72 6e 67 29 7d 20 7b 0a 20 20 20 20 20  reprng)} {.     
b970: 20 72 65 73 74 6f 72 65 5f 70 72 6e 67 5f 73 74   restore_prng_st
b980: 61 74 65 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23  ate.    }..    #
b990: 20 44 65 6c 65 74 65 20 74 68 65 20 66 69 6c 65   Delete the file
b9a0: 73 20 74 65 73 74 2e 64 62 20 61 6e 64 20 74 65  s test.db and te
b9b0: 73 74 32 2e 64 62 2c 20 74 68 65 6e 20 65 78 65  st2.db, then exe
b9c0: 63 75 74 65 20 74 68 65 20 54 43 4c 20 61 6e 64  cute the TCL and
b9d0: 0a 20 20 20 20 23 20 53 51 4c 20 28 69 6e 20 74  .    # SQL (in t
b9e0: 68 61 74 20 6f 72 64 65 72 29 20 74 6f 20 70 72  hat order) to pr
b9f0: 65 70 61 72 65 20 66 6f 72 20 74 68 65 20 74 65  epare for the te
ba00: 73 74 20 63 61 73 65 2e 0a 20 20 20 20 64 6f 5f  st case..    do_
ba10: 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24  test $testname.$
ba20: 6e 2e 31 20 7b 0a 20 20 20 20 20 20 72 75 6e 5f  n.1 {.      run_
ba30: 69 6f 65 72 72 5f 70 72 65 70 0a 20 20 20 20 7d  ioerr_prep.    }
ba40: 20 7b 30 7d 0a 0a 20 20 20 20 23 20 52 65 61 64   {0}..    # Read
ba50: 20 74 68 65 20 27 63 68 65 63 6b 73 75 6d 27 20   the 'checksum' 
ba60: 6f 66 20 74 68 65 20 64 61 74 61 62 61 73 65 2e  of the database.
ba70: 0a 20 20 20 20 69 66 20 7b 24 3a 3a 69 6f 65 72  .    if {$::ioer
ba80: 72 6f 70 74 73 28 2d 63 6b 73 75 6d 29 7d 20 7b  ropts(-cksum)} {
ba90: 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 63 68 65  .      set ::che
baa0: 63 6b 73 75 6d 20 5b 63 6b 73 75 6d 5d 0a 20 20  cksum [cksum].  
bab0: 20 20 7d 0a 0a 20 20 20 20 23 20 53 65 74 20 74    }..    # Set t
bac0: 68 65 20 4e 74 68 20 49 4f 20 65 72 72 6f 72 20  he Nth IO error 
bad0: 74 6f 20 66 61 69 6c 2e 0a 20 20 20 20 64 6f 5f  to fail..    do_
bae0: 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24  test $testname.$
baf0: 6e 2e 32 20 5b 73 75 62 73 74 20 7b 0a 20 20 20  n.2 [subst {.   
bb00: 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f     set ::sqlite_
bb10: 69 6f 5f 65 72 72 6f 72 5f 70 65 72 73 69 73 74  io_error_persist
bb20: 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 70   $::ioerropts(-p
bb30: 65 72 73 69 73 74 29 0a 20 20 20 20 20 20 73 65  ersist).      se
bb40: 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72  t ::sqlite_io_er
bb50: 72 6f 72 5f 70 65 6e 64 69 6e 67 20 24 6e 0a 20  ror_pending $n. 
bb60: 20 20 20 7d 5d 20 24 6e 0a 0a 20 20 20 20 23 20     }] $n..    # 
bb70: 45 78 65 63 75 74 65 20 74 68 65 20 54 43 4c 20  Execute the TCL 
bb80: 73 63 72 69 70 74 20 63 72 65 61 74 65 64 20 66  script created f
bb90: 6f 72 20 74 68 65 20 62 6f 64 79 20 6f 66 20 74  or the body of t
bba0: 68 69 73 20 74 65 73 74 2e 20 49 66 0a 20 20 20  his test. If.   
bbb0: 20 23 20 61 74 20 6c 65 61 73 74 20 4e 20 49 4f   # at least N IO
bbc0: 20 6f 70 65 72 61 74 69 6f 6e 73 20 70 65 72 66   operations perf
bbd0: 6f 72 6d 65 64 20 62 79 20 53 51 4c 69 74 65 20  ormed by SQLite 
bbe0: 61 73 20 61 20 72 65 73 75 6c 74 20 6f 66 0a 20  as a result of. 
bbf0: 20 20 20 23 20 74 68 65 20 73 63 72 69 70 74 2c     # the script,
bc00: 20 74 68 65 20 4e 74 68 20 77 69 6c 6c 20 66 61   the Nth will fa
bc10: 69 6c 2e 0a 20 20 20 20 64 6f 5f 74 65 73 74 20  il..    do_test 
bc20: 24 74 65 73 74 6e 61 6d 65 2e 24 6e 2e 33 20 7b  $testname.$n.3 {
bc30: 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 73 71 6c  .      set ::sql
bc40: 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 69 74  ite_io_error_hit
bc50: 20 30 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 73   0.      set ::s
bc60: 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68  qlite_io_error_h
bc70: 61 72 64 68 69 74 20 30 0a 20 20 20 20 20 20 73  ardhit 0.      s
bc80: 65 74 20 72 20 5b 63 61 74 63 68 20 24 3a 3a 69  et r [catch $::i
bc90: 6f 65 72 72 6f 72 62 6f 64 79 20 6d 73 67 5d 0a  oerrorbody msg].
bca0: 20 20 20 20 20 20 73 65 74 20 3a 3a 65 72 72 73        set ::errs
bcb0: 65 65 6e 20 24 72 0a 20 20 20 20 20 20 73 65 74  een $r.      set
bcc0: 20 72 63 20 5b 73 71 6c 69 74 65 33 5f 65 72 72   rc [sqlite3_err
bcd0: 63 6f 64 65 20 24 3a 3a 44 42 5d 0a 20 20 20 20  code $::DB].    
bce0: 20 20 69 66 20 7b 24 3a 3a 69 6f 65 72 72 6f 70    if {$::ioerrop
bcf0: 74 73 28 2d 65 72 63 29 7d 20 7b 0a 20 20 20 20  ts(-erc)} {.    
bd00: 20 20 20 20 23 20 49 66 20 77 65 20 61 72 65 20      # If we are 
bd10: 69 6e 20 65 78 74 65 6e 64 65 64 20 72 65 73 75  in extended resu
bd20: 6c 74 20 63 6f 64 65 20 6d 6f 64 65 2c 20 6d 61  lt code mode, ma
bd30: 6b 65 20 73 75 72 65 20 61 6c 6c 20 6f 66 20 74  ke sure all of t
bd40: 68 65 0a 20 20 20 20 20 20 20 20 23 20 49 4f 45  he.        # IOE
bd50: 52 52 73 20 77 65 20 67 65 74 20 62 61 63 6b 20  RRs we get back 
bd60: 72 65 61 6c 6c 79 20 64 6f 20 68 61 76 65 20 74  really do have t
bd70: 68 65 69 72 20 65 78 74 65 6e 64 65 64 20 63 6f  heir extended co
bd80: 64 65 20 76 61 6c 75 65 73 2e 0a 20 20 20 20 20  de values..     
bd90: 20 20 20 23 20 49 66 20 61 6e 20 65 78 74 65 6e     # If an exten
bda0: 64 65 64 20 72 65 73 75 6c 74 20 63 6f 64 65 20  ded result code 
bdb0: 69 73 20 72 65 74 75 72 6e 65 64 2c 20 74 68 65  is returned, the
bdc0: 20 73 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 65   sqlite3_errcode
bdd0: 0a 20 20 20 20 20 20 20 20 23 20 54 43 4c 63 6f  .        # TCLco
bde0: 6d 6d 61 6e 64 20 77 69 6c 6c 20 72 65 74 75 72  mmand will retur
bdf0: 6e 20 61 20 73 74 72 69 6e 67 20 6f 66 20 74 68  n a string of th
be00: 65 20 66 6f 72 6d 3a 20 20 53 51 4c 49 54 45 5f  e form:  SQLITE_
be10: 49 4f 45 52 52 2b 6e 6e 6e 6e 0a 20 20 20 20 20  IOERR+nnnn.     
be20: 20 20 20 23 20 77 68 65 72 65 20 6e 6e 6e 6e 20     # where nnnn 
be30: 69 73 20 61 20 6e 75 6d 62 65 72 0a 20 20 20 20  is a number.    
be40: 20 20 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20      if {[regexp 
be50: 7b 5e 53 51 4c 49 54 45 5f 49 4f 45 52 52 7d 20  {^SQLITE_IOERR} 
be60: 24 72 63 5d 20 26 26 20 21 5b 72 65 67 65 78 70  $rc] && ![regexp
be70: 20 7b 49 4f 45 52 52 5c 2b 5c 64 7d 20 24 72 63   {IOERR\+\d} $rc
be80: 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 72  ]} {.          r
be90: 65 74 75 72 6e 20 24 72 63 0a 20 20 20 20 20 20  eturn $rc.      
bea0: 20 20 7d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65    }.      } else
beb0: 20 7b 0a 20 20 20 20 20 20 20 20 23 20 49 66 20   {.        # If 
bec0: 77 65 20 61 72 65 20 6e 6f 74 20 69 6e 20 65 78  we are not in ex
bed0: 74 65 6e 64 65 64 20 72 65 73 75 6c 74 20 63 6f  tended result co
bee0: 64 65 20 6d 6f 64 65 2c 20 6d 61 6b 65 20 73 75  de mode, make su
bef0: 72 65 20 6e 6f 0a 20 20 20 20 20 20 20 20 23 20  re no.        # 
bf00: 65 78 74 65 6e 64 65 64 20 65 72 72 6f 72 20 63  extended error c
bf10: 6f 64 65 73 20 61 72 65 20 72 65 74 75 72 6e 65  odes are returne
bf20: 64 2e 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b  d..        if {[
bf30: 72 65 67 65 78 70 20 7b 5c 2b 5c 64 7d 20 24 72  regexp {\+\d} $r
bf40: 63 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20  c]} {.          
bf50: 72 65 74 75 72 6e 20 24 72 63 0a 20 20 20 20 20  return $rc.     
bf60: 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20     }.      }.   
bf70: 20 20 20 23 20 54 68 65 20 74 65 73 74 20 72 65     # The test re
bf80: 70 65 61 74 73 20 61 73 20 6c 6f 6e 67 20 61 73  peats as long as
bf90: 20 24 3a 3a 67 6f 20 69 73 20 6e 6f 6e 2d 7a 65   $::go is non-ze
bfa0: 72 6f 2e 20 20 24 3a 3a 67 6f 20 73 74 61 72 74  ro.  $::go start
bfb0: 73 20 6f 75 74 0a 20 20 20 20 20 20 23 20 61 73  s out.      # as
bfc0: 20 31 2e 20 20 57 68 65 6e 20 61 20 74 65 73 74   1.  When a test
bfd0: 20 72 75 6e 73 20 74 6f 20 63 6f 6d 70 6c 65 74   runs to complet
bfe0: 69 6f 6e 20 77 69 74 68 6f 75 74 20 68 69 74 74  ion without hitt
bff0: 69 6e 67 20 61 6e 20 49 2f 4f 0a 20 20 20 20 20  ing an I/O.     
c000: 20 23 20 65 72 72 6f 72 2c 20 74 68 61 74 20 6d   # error, that m
c010: 65 61 6e 73 20 74 68 65 72 65 20 69 73 20 6e 6f  eans there is no
c020: 20 70 6f 69 6e 74 20 69 6e 20 63 6f 6e 74 69 6e   point in contin
c030: 75 69 6e 67 20 77 69 74 68 20 74 68 69 73 20 74  uing with this t
c040: 65 73 74 0a 20 20 20 20 20 20 23 20 63 61 73 65  est.      # case
c050: 20 73 6f 20 73 65 74 20 24 3a 3a 67 6f 20 74 6f   so set $::go to
c060: 20 7a 65 72 6f 2e 0a 20 20 20 20 20 20 23 0a 20   zero..      #. 
c070: 20 20 20 20 20 69 66 20 7b 24 3a 3a 73 71 6c 69       if {$::sqli
c080: 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e 64  te_io_error_pend
c090: 69 6e 67 3e 30 7d 20 7b 0a 20 20 20 20 20 20 20  ing>0} {.       
c0a0: 20 73 65 74 20 3a 3a 67 6f 20 30 0a 20 20 20 20   set ::go 0.    
c0b0: 20 20 20 20 73 65 74 20 71 20 30 0a 20 20 20 20      set q 0.    
c0c0: 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65      set ::sqlite
c0d0: 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e  _io_error_pendin
c0e0: 67 20 30 0a 20 20 20 20 20 20 7d 20 65 6c 73 65  g 0.      } else
c0f0: 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 71   {.        set q
c100: 20 31 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20 20   1.      }..    
c110: 20 20 73 65 74 20 73 20 5b 65 78 70 72 20 24 3a    set s [expr $:
c120: 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72  :sqlite_io_error
c130: 5f 68 69 74 3d 3d 30 5d 0a 20 20 20 20 20 20 69  _hit==0].      i
c140: 66 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f  f {$::sqlite_io_
c150: 65 72 72 6f 72 5f 68 69 74 3e 24 3a 3a 73 71 6c  error_hit>$::sql
c160: 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72  ite_io_error_har
c170: 64 68 69 74 20 26 26 20 24 72 3d 3d 30 7d 20 7b  dhit && $r==0} {
c180: 0a 20 20 20 20 20 20 20 20 73 65 74 20 72 20 31  .        set r 1
c190: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 73  .      }.      s
c1a0: 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65  et ::sqlite_io_e
c1b0: 72 72 6f 72 5f 68 69 74 20 30 0a 0a 20 20 20 20  rror_hit 0..    
c1c0: 20 20 23 20 4f 6e 65 20 6f 66 20 74 77 6f 20 74    # One of two t
c1d0: 68 69 6e 67 73 20 6d 75 73 74 20 68 61 76 65 20  hings must have 
c1e0: 68 61 70 70 65 6e 65 64 2e 20 65 69 74 68 65 72  happened. either
c1f0: 0a 20 20 20 20 20 20 23 20 20 20 31 2e 20 20 57  .      #   1.  W
c200: 65 20 6e 65 76 65 72 20 68 69 74 20 74 68 65 20  e never hit the 
c210: 49 4f 20 65 72 72 6f 72 20 61 6e 64 20 74 68 65  IO error and the
c220: 20 53 51 4c 20 72 65 74 75 72 6e 65 64 20 4f 4b   SQL returned OK
c230: 0a 20 20 20 20 20 20 23 20 20 20 32 2e 20 20 41  .      #   2.  A
c240: 6e 20 49 4f 20 65 72 72 6f 72 20 77 61 73 20 68  n IO error was h
c250: 69 74 20 61 6e 64 20 74 68 65 20 53 51 4c 20 66  it and the SQL f
c260: 61 69 6c 65 64 0a 20 20 20 20 20 20 23 0a 20 20  ailed.      #.  
c270: 20 20 20 20 23 70 75 74 73 20 22 73 3d 24 73 20      #puts "s=$s 
c280: 72 3d 24 72 20 71 3d 24 71 22 0a 20 20 20 20 20  r=$r q=$q".     
c290: 20 65 78 70 72 20 7b 20 28 24 73 20 26 26 20 21   expr { ($s && !
c2a0: 24 72 20 26 26 20 21 24 71 29 20 7c 7c 20 28 21  $r && !$q) || (!
c2b0: 24 73 20 26 26 20 24 72 20 26 26 20 24 71 29 20  $s && $r && $q) 
c2c0: 7d 0a 20 20 20 20 7d 20 7b 31 7d 0a 0a 20 20 20  }.    } {1}..   
c2d0: 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f   set ::sqlite_io
c2e0: 5f 65 72 72 6f 72 5f 68 69 74 20 30 0a 20 20 20  _error_hit 0.   
c2f0: 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f   set ::sqlite_io
c300: 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30  _error_pending 0
c310: 0a 0a 20 20 20 20 23 20 43 68 65 63 6b 20 74 68  ..    # Check th
c320: 61 74 20 6e 6f 20 70 61 67 65 20 72 65 66 65 72  at no page refer
c330: 65 6e 63 65 73 20 77 65 72 65 20 6c 65 61 6b 65  ences were leake
c340: 64 2e 20 54 68 65 72 65 20 73 68 6f 75 6c 64 20  d. There should 
c350: 62 65 0a 20 20 20 20 23 20 61 20 73 69 6e 67 6c  be.    # a singl
c360: 65 20 72 65 66 65 72 65 6e 63 65 20 69 66 20 74  e reference if t
c370: 68 65 72 65 20 69 73 20 73 74 69 6c 6c 20 61 6e  here is still an
c380: 20 61 63 74 69 76 65 20 74 72 61 6e 73 61 63 74   active transact
c390: 69 6f 6e 2c 0a 20 20 20 20 23 20 6f 72 20 7a 65  ion,.    # or ze
c3a0: 72 6f 20 6f 74 68 65 72 77 69 73 65 2e 0a 20 20  ro otherwise..  
c3b0: 20 20 23 0a 20 20 20 20 23 20 55 50 44 41 54 45    #.    # UPDATE
c3c0: 3a 20 49 66 20 74 68 65 20 49 4f 20 65 72 72 6f  : If the IO erro
c3d0: 72 20 6f 63 63 75 72 73 20 61 66 74 65 72 20 61  r occurs after a
c3e0: 20 27 42 45 47 49 4e 27 20 62 75 74 20 62 65 66   'BEGIN' but bef
c3f0: 6f 72 65 20 61 6e 79 0a 20 20 20 20 23 20 6c 6f  ore any.    # lo
c400: 63 6b 73 20 61 72 65 20 65 73 74 61 62 6c 69 73  cks are establis
c410: 68 65 64 20 6f 6e 20 64 61 74 61 62 61 73 65 20  hed on database 
c420: 66 69 6c 65 73 20 28 69 2e 65 2e 20 69 66 20 74  files (i.e. if t
c430: 68 65 20 65 72 72 6f 72 0a 20 20 20 20 23 20 6f  he error.    # o
c440: 63 63 75 72 73 20 77 68 69 6c 65 20 61 74 74 65  ccurs while atte
c450: 6d 70 74 69 6e 67 20 74 6f 20 64 65 74 65 63 74  mpting to detect
c460: 20 61 20 68 6f 74 2d 6a 6f 75 72 6e 61 6c 20 66   a hot-journal f
c470: 69 6c 65 29 2c 20 74 68 65 6e 0a 20 20 20 20 23  ile), then.    #
c480: 20 74 68 65 72 65 20 6d 61 79 20 30 20 70 61 67   there may 0 pag
c490: 65 20 72 65 66 65 72 65 6e 63 65 73 20 61 6e 64  e references and
c4a0: 20 61 6e 20 61 63 74 69 76 65 20 74 72 61 6e 73   an active trans
c4b0: 61 63 74 69 6f 6e 20 61 63 63 6f 72 64 69 6e 67  action according
c4c0: 0a 20 20 20 20 23 20 74 6f 20 5b 73 71 6c 69 74  .    # to [sqlit
c4d0: 65 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69  e3_get_autocommi
c4e0: 74 5d 2e 0a 20 20 20 20 23 0a 20 20 20 20 69 66  t]..    #.    if
c4f0: 20 7b 24 3a 3a 67 6f 20 26 26 20 24 3a 3a 73 71   {$::go && $::sq
c500: 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61  lite_io_error_ha
c510: 72 64 68 69 74 20 26 26 20 24 3a 3a 69 6f 65 72  rdhit && $::ioer
c520: 72 6f 70 74 73 28 2d 63 6b 72 65 66 63 6f 75 6e  ropts(-ckrefcoun
c530: 74 29 7d 20 7b 0a 20 20 20 20 20 20 64 6f 5f 74  t)} {.      do_t
c540: 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e  est $testname.$n
c550: 2e 34 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74  .4 {.        set
c560: 20 62 74 20 5b 62 74 72 65 65 5f 66 72 6f 6d 5f   bt [btree_from_
c570: 64 62 20 64 62 5d 0a 20 20 20 20 20 20 20 20 64  db db].        d
c580: 62 5f 65 6e 74 65 72 20 64 62 0a 20 20 20 20 20  b_enter db.     
c590: 20 20 20 61 72 72 61 79 20 73 65 74 20 73 74 61     array set sta
c5a0: 74 73 20 5b 62 74 72 65 65 5f 70 61 67 65 72 5f  ts [btree_pager_
c5b0: 73 74 61 74 73 20 24 62 74 5d 0a 20 20 20 20 20  stats $bt].     
c5c0: 20 20 20 64 62 5f 6c 65 61 76 65 20 64 62 0a 20     db_leave db. 
c5d0: 20 20 20 20 20 20 20 73 65 74 20 6e 52 65 66 20         set nRef 
c5e0: 24 73 74 61 74 73 28 72 65 66 29 0a 20 20 20 20  $stats(ref).    
c5f0: 20 20 20 20 65 78 70 72 20 7b 24 6e 52 65 66 20      expr {$nRef 
c600: 3d 3d 20 30 20 7c 7c 20 28 5b 73 71 6c 69 74 65  == 0 || ([sqlite
c610: 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74  3_get_autocommit
c620: 20 64 62 5d 3d 3d 30 20 26 26 20 24 6e 52 65 66   db]==0 && $nRef
c630: 20 3d 3d 20 31 29 7d 0a 20 20 20 20 20 20 7d 20   == 1)}.      } 
c640: 7b 31 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23  {1}.    }..    #
c650: 20 49 66 20 74 68 65 72 65 20 69 73 20 61 6e 20   If there is an 
c660: 6f 70 65 6e 20 64 61 74 61 62 61 73 65 20 68 61  open database ha
c670: 6e 64 6c 65 20 61 6e 64 20 6e 6f 20 6f 70 65 6e  ndle and no open
c680: 20 74 72 61 6e 73 61 63 74 69 6f 6e 2c 0a 20 20   transaction,.  
c690: 20 20 23 20 61 6e 64 20 74 68 65 20 70 61 67 65    # and the page
c6a0: 72 20 69 73 20 6e 6f 74 20 72 75 6e 6e 69 6e 67  r is not running
c6b0: 20 69 6e 20 65 78 63 6c 75 73 69 76 65 2d 6c 6f   in exclusive-lo
c6c0: 63 6b 69 6e 67 20 6d 6f 64 65 2c 0a 20 20 20 20  cking mode,.    
c6d0: 23 20 63 68 65 63 6b 20 74 68 61 74 20 74 68 65  # check that the
c6e0: 20 70 61 67 65 72 20 69 73 20 69 6e 20 22 75 6e   pager is in "un
c6f0: 6c 6f 63 6b 65 64 22 20 73 74 61 74 65 2e 20 54  locked" state. T
c700: 68 65 6f 72 65 74 69 63 61 6c 6c 79 2c 0a 20 20  heoretically,.  
c710: 20 20 23 20 69 66 20 61 20 63 61 6c 6c 20 74 6f    # if a call to
c720: 20 78 55 6e 6c 6f 63 6b 28 29 20 66 61 69 6c 65   xUnlock() faile
c730: 64 20 64 75 65 20 74 6f 20 61 6e 20 49 4f 20 65  d due to an IO e
c740: 72 72 6f 72 20 74 68 65 20 75 6e 64 65 72 6c 79  rror the underly
c750: 69 6e 67 0a 20 20 20 20 23 20 66 69 6c 65 20 6d  ing.    # file m
c760: 61 79 20 73 74 69 6c 6c 20 62 65 20 6c 6f 63 6b  ay still be lock
c770: 65 64 2e 0a 20 20 20 20 23 0a 20 20 20 20 69 66  ed..    #.    if
c780: 63 61 70 61 62 6c 65 20 70 72 61 67 6d 61 20 7b  capable pragma {
c790: 0a 20 20 20 20 20 20 69 66 20 7b 20 5b 69 6e 66  .      if { [inf
c7a0: 6f 20 63 6f 6d 6d 61 6e 64 73 20 64 62 5d 20 6e  o commands db] n
c7b0: 65 20 22 22 0a 20 20 20 20 20 20 20 20 26 26 20  e "".        && 
c7c0: 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b  $::ioerropts(-ck
c7d0: 72 65 66 63 6f 75 6e 74 29 0a 20 20 20 20 20 20  refcount).      
c7e0: 20 20 26 26 20 5b 64 62 20 6f 6e 65 20 7b 70 72    && [db one {pr
c7f0: 61 67 6d 61 20 6c 6f 63 6b 69 6e 67 5f 6d 6f 64  agma locking_mod
c800: 65 7d 5d 20 65 71 20 22 6e 6f 72 6d 61 6c 22 0a  e}] eq "normal".
c810: 20 20 20 20 20 20 20 20 26 26 20 5b 73 71 6c 69          && [sqli
c820: 74 65 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d  te3_get_autocomm
c830: 69 74 20 64 62 5d 0a 20 20 20 20 20 20 7d 20 7b  it db].      } {
c840: 0a 20 20 20 20 20 20 20 20 64 6f 5f 74 65 73 74  .        do_test
c850: 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e 2e 35 20   $testname.$n.5 
c860: 7b 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20  {.          set 
c870: 62 74 20 5b 62 74 72 65 65 5f 66 72 6f 6d 5f 64  bt [btree_from_d
c880: 62 20 64 62 5d 0a 20 20 20 20 20 20 20 20 20 20  b db].          
c890: 64 62 5f 65 6e 74 65 72 20 64 62 0a 20 20 20 20  db_enter db.    
c8a0: 20 20 20 20 20 20 61 72 72 61 79 20 73 65 74 20        array set 
c8b0: 73 74 61 74 73 20 5b 62 74 72 65 65 5f 70 61 67  stats [btree_pag
c8c0: 65 72 5f 73 74 61 74 73 20 24 62 74 5d 0a 20 20  er_stats $bt].  
c8d0: 20 20 20 20 20 20 20 20 64 62 5f 6c 65 61 76 65          db_leave
c8e0: 20 64 62 0a 20 20 20 20 20 20 20 20 20 20 73 65   db.          se
c8f0: 74 20 73 74 61 74 73 28 73 74 61 74 65 29 0a 20  t stats(state). 
c900: 20 20 20 20 20 20 20 7d 20 30 0a 20 20 20 20 20         } 0.     
c910: 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20   }.    }..    # 
c920: 49 66 20 61 6e 20 49 4f 20 65 72 72 6f 72 20 6f  If an IO error o
c930: 63 63 75 72 72 65 64 2c 20 74 68 65 6e 20 74 68  ccurred, then th
c940: 65 20 63 68 65 63 6b 73 75 6d 20 6f 66 20 74 68  e checksum of th
c950: 65 20 64 61 74 61 62 61 73 65 20 73 68 6f 75 6c  e database shoul
c960: 64 0a 20 20 20 20 23 20 62 65 20 74 68 65 20 73  d.    # be the s
c970: 61 6d 65 20 61 73 20 62 65 66 6f 72 65 20 74 68  ame as before th
c980: 65 20 73 63 72 69 70 74 20 74 68 61 74 20 63 61  e script that ca
c990: 75 73 65 64 20 74 68 65 20 49 4f 20 65 72 72 6f  used the IO erro
c9a0: 72 20 77 61 73 20 72 75 6e 2e 0a 20 20 20 20 23  r was run..    #
c9b0: 0a 20 20 20 20 69 66 20 7b 24 3a 3a 67 6f 20 26  .    if {$::go &
c9c0: 26 20 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65  & $::sqlite_io_e
c9d0: 72 72 6f 72 5f 68 61 72 64 68 69 74 20 26 26 20  rror_hardhit && 
c9e0: 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b  $::ioerropts(-ck
c9f0: 73 75 6d 29 7d 20 7b 0a 20 20 20 20 20 20 64 6f  sum)} {.      do
ca00: 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e  _test $testname.
ca10: 24 6e 2e 36 20 7b 0a 20 20 20 20 20 20 20 20 63  $n.6 {.        c
ca20: 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a  atch {db close}.
ca30: 20 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 64          catch {d
ca40: 62 32 20 63 6c 6f 73 65 7d 0a 20 20 20 20 20 20  b2 close}.      
ca50: 20 20 73 65 74 20 3a 3a 44 42 20 5b 73 71 6c 69    set ::DB [sqli
ca60: 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 3b 20  te3 db test.db; 
ca70: 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69  sqlite3_connecti
ca80: 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 20  on_pointer db]. 
ca90: 20 20 20 20 20 20 20 73 65 74 20 6e 6f 77 63 6b         set nowck
caa0: 73 75 6d 20 5b 63 6b 73 75 6d 5d 0a 20 20 20 20  sum [cksum].    
cab0: 20 20 20 20 73 65 74 20 72 65 73 20 5b 65 78 70      set res [exp
cac0: 72 20 7b 24 6e 6f 77 63 6b 73 75 6d 3d 3d 24 3a  r {$nowcksum==$:
cad0: 3a 63 68 65 63 6b 73 75 6d 20 7c 7c 20 24 6e 6f  :checksum || $no
cae0: 77 63 6b 73 75 6d 3d 3d 24 3a 3a 67 6f 6f 64 63  wcksum==$::goodc
caf0: 6b 73 75 6d 7d 5d 0a 20 20 20 20 20 20 20 20 69  ksum}].        i
cb00: 66 20 7b 24 72 65 73 3d 3d 30 7d 20 7b 0a 20 20  f {$res==0} {.  
cb10: 20 20 20 20 20 20 20 20 6f 75 74 70 75 74 32 20          output2 
cb20: 22 6e 6f 77 3d 24 6e 6f 77 63 6b 73 75 6d 22 0a  "now=$nowcksum".
cb30: 20 20 20 20 20 20 20 20 20 20 6f 75 74 70 75 74            output
cb40: 32 20 22 74 68 65 3d 24 3a 3a 63 68 65 63 6b 73  2 "the=$::checks
cb50: 75 6d 22 0a 20 20 20 20 20 20 20 20 20 20 6f 75  um".          ou
cb60: 74 70 75 74 32 20 22 66 77 64 3d 24 3a 3a 67 6f  tput2 "fwd=$::go
cb70: 6f 64 63 6b 73 75 6d 22 0a 20 20 20 20 20 20 20  odcksum".       
cb80: 20 7d 0a 20 20 20 20 20 20 20 20 73 65 74 20 72   }.        set r
cb90: 65 73 0a 20 20 20 20 20 20 7d 20 31 0a 20 20 20  es.      } 1.   
cba0: 20 7d 0a 0a 20 20 20 20 73 65 74 20 3a 3a 73 71   }..    set ::sq
cbb0: 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61  lite_io_error_ha
cbc0: 72 64 68 69 74 20 30 0a 20 20 20 20 73 65 74 20  rdhit 0.    set 
cbd0: 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f  ::sqlite_io_erro
cbe0: 72 5f 70 65 6e 64 69 6e 67 20 30 0a 20 20 20 20  r_pending 0.    
cbf0: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
cc00: 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6c   ::ioerropts(-cl
cc10: 65 61 6e 75 70 29 5d 7d 20 7b 0a 20 20 20 20 20  eanup)]} {.     
cc20: 20 63 61 74 63 68 20 24 3a 3a 69 6f 65 72 72 6f   catch $::ioerro
cc30: 70 74 73 28 2d 63 6c 65 61 6e 75 70 29 0a 20 20  pts(-cleanup).  
cc40: 20 20 7d 0a 20 20 7d 0a 20 20 73 65 74 20 3a 3a    }.  }.  set ::
cc50: 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f  sqlite_io_error_
cc60: 70 65 6e 64 69 6e 67 20 30 0a 20 20 73 65 74 20  pending 0.  set 
cc70: 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f  ::sqlite_io_erro
cc80: 72 5f 70 65 72 73 69 73 74 20 30 0a 20 20 75 6e  r_persist 0.  un
cc90: 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 0a  set ::ioerropts.
cca0: 7d 0a 0a 23 20 52 65 74 75 72 6e 20 61 20 63 68  }..# Return a ch
ccb0: 65 63 6b 73 75 6d 20 62 61 73 65 64 20 6f 6e 20  ecksum based on 
ccc0: 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20  the contents of 
ccd0: 74 68 65 20 6d 61 69 6e 20 64 61 74 61 62 61 73  the main databas
cce0: 65 20 61 73 73 6f 63 69 61 74 65 64 0a 23 20 77  e associated.# w
ccf0: 69 74 68 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 24  ith connection $
cd00: 64 62 0a 23 0a 70 72 6f 63 20 63 6b 73 75 6d 20  db.#.proc cksum 
cd10: 7b 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 73 65  {{db db}} {.  se
cd20: 74 20 74 78 74 20 5b 24 64 62 20 65 76 61 6c 20  t txt [$db eval 
cd30: 7b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 6e  {.      SELECT n
cd40: 61 6d 65 2c 20 74 79 70 65 2c 20 73 71 6c 20 46  ame, type, sql F
cd50: 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65  ROM sqlite_maste
cd60: 72 20 6f 72 64 65 72 20 62 79 20 6e 61 6d 65 0a  r order by name.
cd70: 20 20 7d 5d 5c 6e 0a 20 20 66 6f 72 65 61 63 68    }]\n.  foreach
cd80: 20 74 62 6c 20 5b 24 64 62 20 65 76 61 6c 20 7b   tbl [$db eval {
cd90: 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 6e 61  .      SELECT na
cda0: 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d  me FROM sqlite_m
cdb0: 61 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65  aster WHERE type
cdc0: 3d 27 74 61 62 6c 65 27 20 6f 72 64 65 72 20 62  ='table' order b
cdd0: 79 20 6e 61 6d 65 0a 20 20 7d 5d 20 7b 0a 20 20  y name.  }] {.  
cde0: 20 20 61 70 70 65 6e 64 20 74 78 74 20 5b 24 64    append txt [$d
cdf0: 62 20 65 76 61 6c 20 22 53 45 4c 45 43 54 20 2a  b eval "SELECT *
ce00: 20 46 52 4f 4d 20 24 74 62 6c 22 5d 5c 6e 0a 20   FROM $tbl"]\n. 
ce10: 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 70 72 61   }.  foreach pra
ce20: 67 20 7b 64 65 66 61 75 6c 74 5f 73 79 6e 63 68  g {default_synch
ce30: 72 6f 6e 6f 75 73 20 64 65 66 61 75 6c 74 5f 63  ronous default_c
ce40: 61 63 68 65 5f 73 69 7a 65 7d 20 7b 0a 20 20 20  ache_size} {.   
ce50: 20 61 70 70 65 6e 64 20 74 78 74 20 24 70 72 61   append txt $pra
ce60: 67 2d 5b 24 64 62 20 65 76 61 6c 20 22 50 52 41  g-[$db eval "PRA
ce70: 47 4d 41 20 24 70 72 61 67 22 5d 5c 6e 0a 20 20  GMA $prag"]\n.  
ce80: 7d 0a 20 20 73 65 74 20 63 6b 73 75 6d 20 5b 73  }.  set cksum [s
ce90: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 74 78  tring length $tx
cea0: 74 5d 2d 5b 6d 64 35 20 24 74 78 74 5d 0a 20 20  t]-[md5 $txt].  
ceb0: 23 20 70 75 74 73 20 24 63 6b 73 75 6d 2d 5b 66  # puts $cksum-[f
cec0: 69 6c 65 20 73 69 7a 65 20 74 65 73 74 2e 64 62  ile size test.db
ced0: 5d 0a 20 20 72 65 74 75 72 6e 20 24 63 6b 73 75  ].  return $cksu
cee0: 6d 0a 7d 0a 0a 23 20 47 65 6e 65 72 61 74 65 20  m.}..# Generate 
cef0: 61 20 63 68 65 63 6b 73 75 6d 20 62 61 73 65 64  a checksum based
cf00: 20 6f 6e 20 74 68 65 20 63 6f 6e 74 65 6e 74 73   on the contents
cf10: 20 6f 66 20 74 68 65 20 6d 61 69 6e 20 61 6e 64   of the main and
cf20: 20 74 65 6d 70 20 74 61 62 6c 65 73 0a 23 20 64   temp tables.# d
cf30: 61 74 61 62 61 73 65 20 24 64 62 2e 20 49 66 20  atabase $db. If 
cf40: 74 68 65 20 63 68 65 63 6b 73 75 6d 20 6f 66 20  the checksum of 
cf50: 74 77 6f 20 64 61 74 61 62 61 73 65 73 20 69 73  two databases is
cf60: 20 74 68 65 20 73 61 6d 65 2c 20 61 6e 64 20 74   the same, and t
cf70: 68 65 0a 23 20 69 6e 74 65 67 72 69 74 79 2d 63  he.# integrity-c
cf80: 68 65 63 6b 20 70 61 73 73 65 73 20 66 6f 72 20  heck passes for 
cf90: 62 6f 74 68 2c 20 74 68 65 20 74 77 6f 20 64 61  both, the two da
cfa0: 74 61 62 61 73 65 73 20 61 72 65 20 69 64 65 6e  tabases are iden
cfb0: 74 69 63 61 6c 2e 0a 23 0a 70 72 6f 63 20 61 6c  tical..#.proc al
cfc0: 6c 63 6b 73 75 6d 20 7b 7b 64 62 20 64 62 7d 7d  lcksum {{db db}}
cfd0: 20 7b 0a 20 20 73 65 74 20 72 65 74 20 5b 6c 69   {.  set ret [li
cfe0: 73 74 5d 0a 20 20 69 66 63 61 70 61 62 6c 65 20  st].  ifcapable 
cff0: 74 65 6d 70 64 62 20 7b 0a 20 20 20 20 73 65 74  tempdb {.    set
d000: 20 73 71 6c 20 7b 0a 20 20 20 20 20 20 53 45 4c   sql {.      SEL
d010: 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71  ECT name FROM sq
d020: 6c 69 74 65 5f 6d 61 73 74 65 72 20 57 48 45 52  lite_master WHER
d030: 45 20 74 79 70 65 20 3d 20 27 74 61 62 6c 65 27  E type = 'table'
d040: 20 55 4e 49 4f 4e 0a 20 20 20 20 20 20 53 45 4c   UNION.      SEL
d050: 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71  ECT name FROM sq
d060: 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72  lite_temp_master
d070: 20 57 48 45 52 45 20 74 79 70 65 20 3d 20 27 74   WHERE type = 't
d080: 61 62 6c 65 27 20 55 4e 49 4f 4e 0a 20 20 20 20  able' UNION.    
d090: 20 20 53 45 4c 45 43 54 20 27 73 71 6c 69 74 65    SELECT 'sqlite
d0a0: 5f 6d 61 73 74 65 72 27 20 55 4e 49 4f 4e 0a 20  _master' UNION. 
d0b0: 20 20 20 20 20 53 45 4c 45 43 54 20 27 73 71 6c       SELECT 'sql
d0c0: 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 27  ite_temp_master'
d0d0: 20 4f 52 44 45 52 20 42 59 20 31 0a 20 20 20 20   ORDER BY 1.    
d0e0: 7d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20  }.  } else {.   
d0f0: 20 73 65 74 20 73 71 6c 20 7b 0a 20 20 20 20 20   set sql {.     
d100: 20 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f   SELECT name FRO
d110: 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20  M sqlite_master 
d120: 57 48 45 52 45 20 74 79 70 65 20 3d 20 27 74 61  WHERE type = 'ta
d130: 62 6c 65 27 20 55 4e 49 4f 4e 0a 20 20 20 20 20  ble' UNION.     
d140: 20 53 45 4c 45 43 54 20 27 73 71 6c 69 74 65 5f   SELECT 'sqlite_
d150: 6d 61 73 74 65 72 27 20 4f 52 44 45 52 20 42 59  master' ORDER BY
d160: 20 31 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73   1.    }.  }.  s
d170: 65 74 20 74 62 6c 6c 69 73 74 20 5b 24 64 62 20  et tbllist [$db 
d180: 65 76 61 6c 20 24 73 71 6c 5d 0a 20 20 73 65 74  eval $sql].  set
d190: 20 74 78 74 20 7b 7d 0a 20 20 66 6f 72 65 61 63   txt {}.  foreac
d1a0: 68 20 74 62 6c 20 24 74 62 6c 6c 69 73 74 20 7b  h tbl $tbllist {
d1b0: 0a 20 20 20 20 61 70 70 65 6e 64 20 74 78 74 20  .    append txt 
d1c0: 5b 24 64 62 20 65 76 61 6c 20 22 53 45 4c 45 43  [$db eval "SELEC
d1d0: 54 20 2a 20 46 52 4f 4d 20 24 74 62 6c 22 5d 0a  T * FROM $tbl"].
d1e0: 20 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 70 72    }.  foreach pr
d1f0: 61 67 20 7b 64 65 66 61 75 6c 74 5f 63 61 63 68  ag {default_cach
d200: 65 5f 73 69 7a 65 7d 20 7b 0a 20 20 20 20 61 70  e_size} {.    ap
d210: 70 65 6e 64 20 74 78 74 20 24 70 72 61 67 2d 5b  pend txt $prag-[
d220: 24 64 62 20 65 76 61 6c 20 22 50 52 41 47 4d 41  $db eval "PRAGMA
d230: 20 24 70 72 61 67 22 5d 5c 6e 0a 20 20 7d 0a 20   $prag"]\n.  }. 
d240: 20 23 20 70 75 74 73 20 74 78 74 3d 24 74 78 74   # puts txt=$txt
d250: 0a 20 20 72 65 74 75 72 6e 20 5b 6d 64 35 20 24  .  return [md5 $
d260: 74 78 74 5d 0a 7d 0a 0a 23 20 47 65 6e 65 72 61  txt].}..# Genera
d270: 74 65 20 61 20 63 68 65 63 6b 73 75 6d 20 62 61  te a checksum ba
d280: 73 65 64 20 6f 6e 20 74 68 65 20 63 6f 6e 74 65  sed on the conte
d290: 6e 74 73 20 6f 66 20 61 20 73 69 6e 67 6c 65 20  nts of a single 
d2a0: 64 61 74 61 62 61 73 65 20 77 69 74 68 0a 23 20  database with.# 
d2b0: 61 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e 65  a database conne
d2c0: 63 74 69 6f 6e 2e 20 20 54 68 65 20 6e 61 6d 65  ction.  The name
d2d0: 20 6f 66 20 74 68 65 20 64 61 74 61 62 61 73 65   of the database
d2e0: 20 69 73 20 24 64 62 6e 61 6d 65 2e 0a 23 20 45   is $dbname..# E
d2f0: 78 61 6d 70 6c 65 73 20 6f 66 20 24 64 62 6e 61  xamples of $dbna
d300: 6d 65 20 61 72 65 20 22 74 65 6d 70 22 20 6f 72  me are "temp" or
d310: 20 22 6d 61 69 6e 22 2e 0a 23 0a 70 72 6f 63 20   "main"..#.proc 
d320: 64 62 63 6b 73 75 6d 20 7b 64 62 20 64 62 6e 61  dbcksum {db dbna
d330: 6d 65 7d 20 7b 0a 20 20 69 66 20 7b 24 64 62 6e  me} {.  if {$dbn
d340: 61 6d 65 3d 3d 22 74 65 6d 70 22 7d 20 7b 0a 20  ame=="temp"} {. 
d350: 20 20 20 73 65 74 20 6d 61 73 74 65 72 20 73 71     set master sq
d360: 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72  lite_temp_master
d370: 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20  .  } else {.    
d380: 73 65 74 20 6d 61 73 74 65 72 20 24 64 62 6e 61  set master $dbna
d390: 6d 65 2e 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  me.sqlite_master
d3a0: 0a 20 20 7d 0a 20 20 73 65 74 20 61 6c 6c 74 61  .  }.  set allta
d3b0: 62 20 5b 24 64 62 20 65 76 61 6c 20 22 53 45 4c  b [$db eval "SEL
d3c0: 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 24 6d  ECT name FROM $m
d3d0: 61 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65  aster WHERE type
d3e0: 3d 27 74 61 62 6c 65 27 22 5d 0a 20 20 73 65 74  ='table'"].  set
d3f0: 20 74 78 74 20 5b 24 64 62 20 65 76 61 6c 20 22   txt [$db eval "
d400: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 24 6d  SELECT * FROM $m
d410: 61 73 74 65 72 22 5d 5c 6e 0a 20 20 66 6f 72 65  aster"]\n.  fore
d420: 61 63 68 20 74 61 62 20 24 61 6c 6c 74 61 62 20  ach tab $alltab 
d430: 7b 0a 20 20 20 20 61 70 70 65 6e 64 20 74 78 74  {.    append txt
d440: 20 5b 24 64 62 20 65 76 61 6c 20 22 53 45 4c 45   [$db eval "SELE
d450: 43 54 20 2a 20 46 52 4f 4d 20 24 64 62 6e 61 6d  CT * FROM $dbnam
d460: 65 2e 24 74 61 62 22 5d 5c 6e 0a 20 20 7d 0a 20  e.$tab"]\n.  }. 
d470: 20 72 65 74 75 72 6e 20 5b 6d 64 35 20 24 74 78   return [md5 $tx
d480: 74 5d 0a 7d 0a 0a 70 72 6f 63 20 6d 65 6d 64 65  t].}..proc memde
d490: 62 75 67 5f 6c 6f 67 5f 73 71 6c 20 7b 7b 66 69  bug_log_sql {{fi
d4a0: 6c 65 6e 61 6d 65 20 6d 61 6c 6c 6f 63 73 2e 73  lename mallocs.s
d4b0: 71 6c 7d 7d 20 7b 0a 0a 20 20 73 65 74 20 64 61  ql}} {..  set da
d4c0: 74 61 20 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 64  ta [sqlite3_memd
d4d0: 65 62 75 67 5f 6c 6f 67 20 64 75 6d 70 5d 0a 20  ebug_log dump]. 
d4e0: 20 73 65 74 20 6e 46 72 61 6d 65 20 5b 65 78 70   set nFrame [exp
d4f0: 72 20 5b 6c 6c 65 6e 67 74 68 20 5b 6c 69 6e 64  r [llength [lind
d500: 65 78 20 24 64 61 74 61 20 30 5d 5d 2d 32 5d 0a  ex $data 0]]-2].
d510: 20 20 69 66 20 7b 24 6e 46 72 61 6d 65 20 3c 20    if {$nFrame < 
d520: 30 7d 20 7b 20 72 65 74 75 72 6e 20 22 22 20 7d  0} { return "" }
d530: 0a 0a 20 20 73 65 74 20 64 61 74 61 62 61 73 65  ..  set database
d540: 20 74 65 6d 70 0a 0a 20 20 73 65 74 20 74 62 6c   temp..  set tbl
d550: 20 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 24   "CREATE TABLE $
d560: 7b 64 61 74 61 62 61 73 65 7d 2e 6d 61 6c 6c 6f  {database}.mallo
d570: 63 28 7a 54 65 73 74 2c 20 6e 43 61 6c 6c 2c 20  c(zTest, nCall, 
d580: 6e 42 79 74 65 2c 20 6c 53 74 61 63 6b 29 3b 22  nByte, lStack);"
d590: 0a 0a 20 20 73 65 74 20 73 71 6c 20 22 22 0a 20  ..  set sql "". 
d5a0: 20 66 6f 72 65 61 63 68 20 65 20 24 64 61 74 61   foreach e $data
d5b0: 20 7b 0a 20 20 20 20 73 65 74 20 6e 43 61 6c 6c   {.    set nCall
d5c0: 20 5b 6c 69 6e 64 65 78 20 24 65 20 30 5d 0a 20   [lindex $e 0]. 
d5d0: 20 20 20 73 65 74 20 6e 42 79 74 65 20 5b 6c 69     set nByte [li
d5e0: 6e 64 65 78 20 24 65 20 31 5d 0a 20 20 20 20 73  ndex $e 1].    s
d5f0: 65 74 20 6c 53 74 61 63 6b 20 5b 6c 72 61 6e 67  et lStack [lrang
d600: 65 20 24 65 20 32 20 65 6e 64 5d 0a 20 20 20 20  e $e 2 end].    
d610: 61 70 70 65 6e 64 20 73 71 6c 20 22 49 4e 53 45  append sql "INSE
d620: 52 54 20 49 4e 54 4f 20 24 7b 64 61 74 61 62 61  RT INTO ${databa
d630: 73 65 7d 2e 6d 61 6c 6c 6f 63 20 56 41 4c 55 45  se}.malloc VALUE
d640: 53 22 0a 20 20 20 20 61 70 70 65 6e 64 20 73 71  S".    append sq
d650: 6c 20 22 28 27 74 65 73 74 27 2c 20 24 6e 43 61  l "('test', $nCa
d660: 6c 6c 2c 20 24 6e 42 79 74 65 2c 20 27 24 6c 53  ll, $nByte, '$lS
d670: 74 61 63 6b 27 29 3b 5c 6e 22 0a 20 20 20 20 66  tack');\n".    f
d680: 6f 72 65 61 63 68 20 66 20 24 6c 53 74 61 63 6b  oreach f $lStack
d690: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 66 72 61   {.      set fra
d6a0: 6d 65 73 28 24 66 29 20 31 0a 20 20 20 20 7d 0a  mes($f) 1.    }.
d6b0: 20 20 7d 0a 0a 20 20 73 65 74 20 74 62 6c 32 20    }..  set tbl2 
d6c0: 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 24 7b  "CREATE TABLE ${
d6d0: 64 61 74 61 62 61 73 65 7d 2e 66 72 61 6d 65 28  database}.frame(
d6e0: 66 72 61 6d 65 20 49 4e 54 45 47 45 52 20 50 52  frame INTEGER PR
d6f0: 49 4d 41 52 59 20 4b 45 59 2c 20 6c 69 6e 65 29  IMARY KEY, line)
d700: 3b 5c 6e 22 0a 20 20 73 65 74 20 74 62 6c 33 20  ;\n".  set tbl3 
d710: 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 24 7b  "CREATE TABLE ${
d720: 64 61 74 61 62 61 73 65 7d 2e 66 69 6c 65 28 6e  database}.file(n
d730: 61 6d 65 20 50 52 49 4d 41 52 59 20 4b 45 59 2c  ame PRIMARY KEY,
d740: 20 63 6f 6e 74 65 6e 74 29 3b 5c 6e 22 0a 0a 20   content);\n".. 
d750: 20 66 6f 72 65 61 63 68 20 66 20 5b 61 72 72 61   foreach f [arra
d760: 79 20 6e 61 6d 65 73 20 66 72 61 6d 65 73 5d 20  y names frames] 
d770: 7b 0a 20 20 20 20 73 65 74 20 61 64 64 72 20 5b  {.    set addr [
d780: 66 6f 72 6d 61 74 20 25 78 20 24 66 5d 0a 20 20  format %x $f].  
d790: 20 20 73 65 74 20 63 6d 64 20 22 61 64 64 72 32    set cmd "addr2
d7a0: 6c 69 6e 65 20 2d 65 20 5b 69 6e 66 6f 20 6e 61  line -e [info na
d7b0: 6d 65 6f 66 65 78 65 63 5d 20 24 61 64 64 72 22  meofexec] $addr"
d7c0: 0a 20 20 20 20 73 65 74 20 6c 69 6e 65 20 5b 65  .    set line [e
d7d0: 76 61 6c 20 65 78 65 63 20 24 63 6d 64 5d 0a 20  val exec $cmd]. 
d7e0: 20 20 20 61 70 70 65 6e 64 20 73 71 6c 20 22 49     append sql "I
d7f0: 4e 53 45 52 54 20 49 4e 54 4f 20 24 7b 64 61 74  NSERT INTO ${dat
d800: 61 62 61 73 65 7d 2e 66 72 61 6d 65 20 56 41 4c  abase}.frame VAL
d810: 55 45 53 28 24 66 2c 20 27 24 6c 69 6e 65 27 29  UES($f, '$line')
d820: 3b 5c 6e 22 0a 0a 20 20 20 20 73 65 74 20 66 69  ;\n"..    set fi
d830: 6c 65 20 5b 6c 69 6e 64 65 78 20 5b 73 70 6c 69  le [lindex [spli
d840: 74 20 24 6c 69 6e 65 20 3a 5d 20 30 5d 0a 20 20  t $line :] 0].  
d850: 20 20 73 65 74 20 66 69 6c 65 73 28 24 66 69 6c    set files($fil
d860: 65 29 20 31 0a 20 20 7d 0a 0a 20 20 66 6f 72 65  e) 1.  }..  fore
d870: 61 63 68 20 66 20 5b 61 72 72 61 79 20 6e 61 6d  ach f [array nam
d880: 65 73 20 66 69 6c 65 73 5d 20 7b 0a 20 20 20 20  es files] {.    
d890: 73 65 74 20 63 6f 6e 74 65 6e 74 73 20 22 22 0a  set contents "".
d8a0: 20 20 20 20 63 61 74 63 68 20 7b 0a 20 20 20 20      catch {.    
d8b0: 20 20 73 65 74 20 66 64 20 5b 6f 70 65 6e 20 24    set fd [open $
d8c0: 66 5d 0a 20 20 20 20 20 20 73 65 74 20 63 6f 6e  f].      set con
d8d0: 74 65 6e 74 73 20 5b 72 65 61 64 20 24 66 64 5d  tents [read $fd]
d8e0: 0a 20 20 20 20 20 20 63 6c 6f 73 65 20 24 66 64  .      close $fd
d8f0: 0a 20 20 20 20 7d 0a 20 20 20 20 73 65 74 20 63  .    }.    set c
d900: 6f 6e 74 65 6e 74 73 20 5b 73 74 72 69 6e 67 20  ontents [string 
d910: 6d 61 70 20 7b 27 20 27 27 7d 20 24 63 6f 6e 74  map {' ''} $cont
d920: 65 6e 74 73 5d 0a 20 20 20 20 61 70 70 65 6e 64  ents].    append
d930: 20 73 71 6c 20 22 49 4e 53 45 52 54 20 49 4e 54   sql "INSERT INT
d940: 4f 20 24 7b 64 61 74 61 62 61 73 65 7d 2e 66 69  O ${database}.fi
d950: 6c 65 20 56 41 4c 55 45 53 28 27 24 66 27 2c 20  le VALUES('$f', 
d960: 27 24 63 6f 6e 74 65 6e 74 73 27 29 3b 5c 6e 22  '$contents');\n"
d970: 0a 20 20 7d 0a 0a 20 20 73 65 74 20 66 64 20 5b  .  }..  set fd [
d980: 6f 70 65 6e 20 24 66 69 6c 65 6e 61 6d 65 20 77  open $filename w
d990: 5d 0a 20 20 70 75 74 73 20 24 66 64 20 22 42 45  ].  puts $fd "BE
d9a0: 47 49 4e 3b 20 24 7b 74 62 6c 7d 24 7b 74 62 6c  GIN; ${tbl}${tbl
d9b0: 32 7d 24 7b 74 62 6c 33 7d 24 7b 73 71 6c 7d 20  2}${tbl3}${sql} 
d9c0: 3b 20 43 4f 4d 4d 49 54 3b 22 0a 20 20 63 6c 6f  ; COMMIT;".  clo
d9d0: 73 65 20 24 66 64 0a 7d 0a 0a 23 20 44 72 6f 70  se $fd.}..# Drop
d9e0: 20 61 6c 6c 20 74 61 62 6c 65 73 20 69 6e 20 64   all tables in d
d9f0: 61 74 61 62 61 73 65 20 5b 64 62 5d 0a 70 72 6f  atabase [db].pro
da00: 63 20 64 72 6f 70 5f 61 6c 6c 5f 74 61 62 6c 65  c drop_all_table
da10: 73 20 7b 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20  s {{db db}} {.  
da20: 69 66 63 61 70 61 62 6c 65 20 74 72 69 67 67 65  ifcapable trigge
da30: 72 26 26 66 6f 72 65 69 67 6e 6b 65 79 20 7b 0a  r&&foreignkey {.
da40: 20 20 20 20 73 65 74 20 70 6b 20 5b 24 64 62 20      set pk [$db 
da50: 6f 6e 65 20 22 50 52 41 47 4d 41 20 66 6f 72 65  one "PRAGMA fore
da60: 69 67 6e 5f 6b 65 79 73 22 5d 0a 20 20 20 20 24  ign_keys"].    $
da70: 64 62 20 65 76 61 6c 20 22 50 52 41 47 4d 41 20  db eval "PRAGMA 
da80: 66 6f 72 65 69 67 6e 5f 6b 65 79 73 20 3d 20 4f  foreign_keys = O
da90: 46 46 22 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63  FF".  }.  foreac
daa0: 68 20 7b 69 64 78 20 6e 61 6d 65 20 66 69 6c 65  h {idx name file
dab0: 7d 20 5b 64 62 20 65 76 61 6c 20 7b 50 52 41 47  } [db eval {PRAG
dac0: 4d 41 20 64 61 74 61 62 61 73 65 5f 6c 69 73 74  MA database_list
dad0: 7d 5d 20 7b 0a 20 20 20 20 69 66 20 7b 24 69 64  }] {.    if {$id
dae0: 78 3d 3d 31 7d 20 7b 0a 20 20 20 20 20 20 73 65  x==1} {.      se
daf0: 74 20 6d 61 73 74 65 72 20 73 71 6c 69 74 65 5f  t master sqlite_
db00: 74 65 6d 70 5f 6d 61 73 74 65 72 0a 20 20 20 20  temp_master.    
db10: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 73  } else {.      s
db20: 65 74 20 6d 61 73 74 65 72 20 24 6e 61 6d 65 2e  et master $name.
db30: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 0a 20 20  sqlite_master.  
db40: 20 20 7d 0a 20 20 20 20 66 6f 72 65 61 63 68 20    }.    foreach 
db50: 7b 74 20 74 79 70 65 7d 20 5b 24 64 62 20 65 76  {t type} [$db ev
db60: 61 6c 20 22 0a 20 20 20 20 20 20 53 45 4c 45 43  al ".      SELEC
db70: 54 20 6e 61 6d 65 2c 20 74 79 70 65 20 46 52 4f  T name, type FRO
db80: 4d 20 24 6d 61 73 74 65 72 0a 20 20 20 20 20 20  M $master.      
db90: 57 48 45 52 45 20 74 79 70 65 20 49 4e 28 27 74  WHERE type IN('t
dba0: 61 62 6c 65 27 2c 20 27 76 69 65 77 27 29 20 41  able', 'view') A
dbb0: 4e 44 20 6e 61 6d 65 20 4e 4f 54 20 4c 49 4b 45  ND name NOT LIKE
dbc0: 20 27 73 71 6c 69 74 65 58 5f 25 27 20 45 53 43   'sqliteX_%' ESC
dbd0: 41 50 45 20 27 58 27 0a 20 20 20 20 22 5d 20 7b  APE 'X'.    "] {
dbe0: 0a 20 20 20 20 20 20 24 64 62 20 65 76 61 6c 20  .      $db eval 
dbf0: 22 44 52 4f 50 20 24 74 79 70 65 20 5c 22 24 74  "DROP $type \"$t
dc00: 5c 22 22 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20  \"".    }.  }.  
dc10: 69 66 63 61 70 61 62 6c 65 20 74 72 69 67 67 65  ifcapable trigge
dc20: 72 26 26 66 6f 72 65 69 67 6e 6b 65 79 20 7b 0a  r&&foreignkey {.
dc30: 20 20 20 20 24 64 62 20 65 76 61 6c 20 22 50 52      $db eval "PR
dc40: 41 47 4d 41 20 66 6f 72 65 69 67 6e 5f 6b 65 79  AGMA foreign_key
dc50: 73 20 3d 20 24 70 6b 22 0a 20 20 7d 0a 7d 0a 0a  s = $pk".  }.}..
dc60: 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  #---------------
dc70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
dc80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
dc90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
dca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 49 66 20  ----------.# If 
dcb0: 61 20 74 65 73 74 20 73 63 72 69 70 74 20 69 73  a test script is
dcc0: 20 65 78 65 63 75 74 65 64 20 77 69 74 68 20 67   executed with g
dcd0: 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 24  lobal variable $
dce0: 3a 3a 47 28 70 65 72 6d 3a 6e 61 6d 65 29 20 73  ::G(perm:name) s
dcf0: 65 74 20 74 6f 0a 23 20 22 77 61 6c 22 2c 20 74  et to.# "wal", t
dd00: 68 65 6e 20 74 68 65 20 74 65 73 74 73 20 61 72  hen the tests ar
dd10: 65 20 72 75 6e 20 69 6e 20 57 41 4c 20 6d 6f 64  e run in WAL mod
dd20: 65 2e 20 4f 74 68 65 72 77 69 73 65 2c 20 74 68  e. Otherwise, th
dd30: 65 79 20 73 68 6f 75 6c 64 20 62 65 20 72 75 6e  ey should be run
dd40: 0a 23 20 69 6e 20 72 6f 6c 6c 62 61 63 6b 20 6d  .# in rollback m
dd50: 6f 64 65 2e 20 54 68 65 20 66 6f 6c 6c 6f 77 69  ode. The followi
dd60: 6e 67 20 54 63 6c 20 70 72 6f 63 73 20 61 72 65  ng Tcl procs are
dd70: 20 75 73 65 64 20 74 6f 20 6d 61 6b 65 20 74 68   used to make th
dd80: 69 73 20 6c 65 73 73 0a 23 20 69 6e 74 72 75 73  is less.# intrus
dd90: 69 76 65 3a 0a 23 0a 23 20 20 20 77 61 6c 5f 73  ive:.#.#   wal_s
dda0: 65 74 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20  et_journal_mode 
ddb0: 3f 44 42 3f 0a 23 0a 23 20 20 20 20 20 49 66 20  ?DB?.#.#     If 
ddc0: 72 75 6e 6e 69 6e 67 20 61 20 57 41 4c 20 74 65  running a WAL te
ddd0: 73 74 2c 20 65 78 65 63 75 74 65 20 22 50 52 41  st, execute "PRA
dde0: 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65  GMA journal_mode
ddf0: 20 3d 20 77 61 6c 22 20 75 73 69 6e 67 0a 23 20   = wal" using.# 
de00: 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68      connection h
de10: 61 6e 64 6c 65 20 44 42 2e 20 4f 74 68 65 72 77  andle DB. Otherw
de20: 69 73 65 2c 20 74 68 69 73 20 63 6f 6d 6d 61 6e  ise, this comman
de30: 64 20 69 73 20 61 20 6e 6f 2d 6f 70 2e 0a 23 0a  d is a no-op..#.
de40: 23 20 20 20 77 61 6c 5f 63 68 65 63 6b 5f 6a 6f  #   wal_check_jo
de50: 75 72 6e 61 6c 5f 6d 6f 64 65 20 54 45 53 54 4e  urnal_mode TESTN
de60: 41 4d 45 20 3f 44 42 3f 0a 23 0a 23 20 20 20 20  AME ?DB?.#.#    
de70: 20 49 66 20 72 75 6e 6e 69 6e 67 20 61 20 57 41   If running a WA
de80: 4c 20 74 65 73 74 2c 20 65 78 65 63 75 74 65 20  L test, execute 
de90: 61 20 74 65 73 74 73 20 63 61 73 65 20 74 68 61  a tests case tha
dea0: 74 20 66 61 69 6c 73 20 69 66 20 74 68 65 20 6d  t fails if the m
deb0: 61 69 6e 0a 23 20 20 20 20 20 64 61 74 61 62 61  ain.#     databa
dec0: 73 65 20 66 6f 72 20 63 6f 6e 6e 65 63 74 69 6f  se for connectio
ded0: 6e 20 68 61 6e 64 6c 65 20 44 42 20 69 73 20 6e  n handle DB is n
dee0: 6f 74 20 63 75 72 72 65 6e 74 6c 79 20 61 20 57  ot currently a W
def0: 41 4c 20 64 61 74 61 62 61 73 65 2e 0a 23 20 20  AL database..#  
df00: 20 20 20 4f 74 68 65 72 77 69 73 65 20 28 69 66     Otherwise (if
df10: 20 6e 6f 74 20 72 75 6e 6e 69 6e 67 20 61 20 57   not running a W
df20: 41 4c 20 70 65 72 6d 75 74 61 74 69 6f 6e 29 20  AL permutation) 
df30: 74 68 69 73 20 69 73 20 61 20 6e 6f 2d 6f 70 2e  this is a no-op.
df40: 0a 23 0a 23 20 20 20 77 61 6c 5f 69 73 5f 77 61  .#.#   wal_is_wa
df50: 6c 5f 6d 6f 64 65 0a 23 0a 23 20 20 20 20 20 52  l_mode.#.#     R
df60: 65 74 75 72 6e 73 20 74 72 75 65 20 69 66 20 74  eturns true if t
df70: 68 69 73 20 74 65 73 74 20 73 68 6f 75 6c 64 20  his test should 
df80: 62 65 20 72 75 6e 20 69 6e 20 57 41 4c 20 6d 6f  be run in WAL mo
df90: 64 65 2e 20 46 61 6c 73 65 20 6f 74 68 65 72 77  de. False otherw
dfa0: 69 73 65 2e 0a 23 0a 70 72 6f 63 20 77 61 6c 5f  ise..#.proc wal_
dfb0: 69 73 5f 77 61 6c 5f 6d 6f 64 65 20 7b 7d 20 7b  is_wal_mode {} {
dfc0: 0a 20 20 65 78 70 72 20 7b 5b 70 65 72 6d 75 74  .  expr {[permut
dfd0: 61 74 69 6f 6e 5d 20 65 71 20 22 77 61 6c 22 7d  ation] eq "wal"}
dfe0: 0a 7d 0a 70 72 6f 63 20 77 61 6c 5f 73 65 74 5f  .}.proc wal_set_
dff0: 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 7b 7b 64  journal_mode {{d
e000: 62 20 64 62 7d 7d 20 7b 0a 20 20 69 66 20 7b 20  b db}} {.  if { 
e010: 5b 77 61 6c 5f 69 73 5f 77 61 6c 5f 6d 6f 64 65  [wal_is_wal_mode
e020: 5d 20 7d 20 7b 0a 20 20 20 20 24 64 62 20 65 76  ] } {.    $db ev
e030: 61 6c 20 22 50 52 41 47 4d 41 20 6a 6f 75 72 6e  al "PRAGMA journ
e040: 61 6c 5f 6d 6f 64 65 20 3d 20 57 41 4c 22 0a 20  al_mode = WAL". 
e050: 20 7d 0a 7d 0a 70 72 6f 63 20 77 61 6c 5f 63 68   }.}.proc wal_ch
e060: 65 63 6b 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65  eck_journal_mode
e070: 20 7b 74 65 73 74 6e 61 6d 65 20 7b 64 62 20 64   {testname {db d
e080: 62 7d 7d 20 7b 0a 20 20 69 66 20 7b 20 5b 77 61  b}} {.  if { [wa
e090: 6c 5f 69 73 5f 77 61 6c 5f 6d 6f 64 65 5d 20 7d  l_is_wal_mode] }
e0a0: 20 7b 0a 20 20 20 20 24 64 62 20 65 76 61 6c 20   {.    $db eval 
e0b0: 7b 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20  { SELECT * FROM 
e0c0: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 7d 0a  sqlite_master }.
e0d0: 20 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73      do_test $tes
e0e0: 74 6e 61 6d 65 20 5b 6c 69 73 74 20 24 64 62 20  tname [list $db 
e0f0: 65 76 61 6c 20 22 50 52 41 47 4d 41 20 6d 61 69  eval "PRAGMA mai
e100: 6e 2e 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 22 5d  n.journal_mode"]
e110: 20 7b 77 61 6c 7d 0a 20 20 7d 0a 7d 0a 0a 70 72   {wal}.  }.}..pr
e120: 6f 63 20 70 65 72 6d 75 74 61 74 69 6f 6e 20 7b  oc permutation {
e130: 7d 20 7b 0a 20 20 73 65 74 20 70 65 72 6d 20 22  } {.  set perm "
e140: 22 0a 20 20 63 61 74 63 68 20 7b 73 65 74 20 70  ".  catch {set p
e150: 65 72 6d 20 24 3a 3a 47 28 70 65 72 6d 3a 6e 61  erm $::G(perm:na
e160: 6d 65 29 7d 0a 20 20 73 65 74 20 70 65 72 6d 0a  me)}.  set perm.
e170: 7d 0a 70 72 6f 63 20 70 72 65 73 71 6c 20 7b 7d  }.proc presql {}
e180: 20 7b 0a 20 20 73 65 74 20 70 72 65 73 71 6c 20   {.  set presql 
e190: 22 22 0a 20 20 63 61 74 63 68 20 7b 73 65 74 20  "".  catch {set 
e1a0: 70 72 65 73 71 6c 20 24 3a 3a 47 28 70 65 72 6d  presql $::G(perm
e1b0: 3a 70 72 65 73 71 6c 29 7d 0a 20 20 73 65 74 20  :presql)}.  set 
e1c0: 70 72 65 73 71 6c 0a 7d 0a 0a 70 72 6f 63 20 69  presql.}..proc i
e1d0: 73 71 75 69 63 6b 20 7b 7d 20 7b 0a 20 20 73 65  squick {} {.  se
e1e0: 74 20 72 65 74 20 30 0a 20 20 63 61 74 63 68 20  t ret 0.  catch 
e1f0: 7b 73 65 74 20 72 65 74 20 24 3a 3a 47 28 69 73  {set ret $::G(is
e200: 71 75 69 63 6b 29 7d 0a 20 20 73 65 74 20 72 65  quick)}.  set re
e210: 74 0a 7d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  t.}..#----------
e220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
e230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
e240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
e250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a  ---------------.
e260: 23 0a 70 72 6f 63 20 73 6c 61 76 65 5f 74 65 73  #.proc slave_tes
e270: 74 5f 73 63 72 69 70 74 20 7b 73 63 72 69 70 74  t_script {script
e280: 7d 20 7b 0a 0a 20 20 23 20 43 72 65 61 74 65 20  } {..  # Create 
e290: 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 20  the interpreter 
e2a0: 75 73 65 64 20 74 6f 20 72 75 6e 20 74 68 65 20  used to run the 
e2b0: 74 65 73 74 20 73 63 72 69 70 74 2e 0a 20 20 69  test script..  i
e2c0: 6e 74 65 72 70 20 63 72 65 61 74 65 20 74 69 6e  nterp create tin
e2d0: 74 65 72 70 0a 0a 20 20 23 20 50 6f 70 75 6c 61  terp..  # Popula
e2e0: 74 65 20 73 6f 6d 65 20 67 6c 6f 62 61 6c 20 76  te some global v
e2f0: 61 72 69 61 62 6c 65 73 20 74 68 61 74 20 74 65  ariables that te
e300: 73 74 65 72 2e 74 63 6c 20 65 78 70 65 63 74 73  ster.tcl expects
e310: 20 74 6f 20 73 65 65 2e 0a 20 20 66 6f 72 65 61   to see..  forea
e320: 63 68 20 7b 76 61 72 20 76 61 6c 75 65 7d 20 5b  ch {var value} [
e330: 6c 69 73 74 20 20 20 20 20 20 20 20 20 20 20 20  list            
e340: 20 20 5c 0a 20 20 20 20 3a 3a 61 72 67 76 30 20    \.    ::argv0 
e350: 24 3a 3a 61 72 67 76 30 20 20 20 20 20 20 20 20  $::argv0        
e360: 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a 20               \. 
e370: 20 20 20 3a 3a 61 72 67 76 20 20 7b 7d 20 20 20     ::argv  {}   
e380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
e390: 20 20 20 20 20 20 20 20 5c 0a 20 20 20 20 3a 3a          \.    ::
e3a0: 53 4c 41 56 45 20 31 20 20 20 20 20 20 20 20 20  SLAVE 1         
e3b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
e3c0: 20 20 20 5c 0a 20 20 5d 20 7b 0a 20 20 20 20 69     \.  ] {.    i
e3d0: 6e 74 65 72 70 20 65 76 61 6c 20 74 69 6e 74 65  nterp eval tinte
e3e0: 72 70 20 5b 6c 69 73 74 20 73 65 74 20 24 76 61  rp [list set $va
e3f0: 72 20 24 76 61 6c 75 65 5d 0a 20 20 7d 0a 0a 20  r $value].  }.. 
e400: 20 23 20 49 66 20 6f 75 74 70 75 74 20 69 73 20   # If output is 
e410: 62 65 69 6e 67 20 63 6f 70 69 65 64 20 69 6e 74  being copied int
e420: 6f 20 61 20 66 69 6c 65 2c 20 73 68 61 72 65 20  o a file, share 
e430: 74 68 65 20 66 69 6c 65 2d 64 65 73 63 72 69 70  the file-descrip
e440: 74 6f 72 20 77 69 74 68 0a 20 20 23 20 74 68 65  tor with.  # the
e450: 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 20 20   interpreter..  
e460: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
e470: 20 3a 3a 47 28 6f 75 74 70 75 74 5f 66 64 29 5d   ::G(output_fd)]
e480: 7d 20 7b 0a 20 20 20 20 69 6e 74 65 72 70 20 73  } {.    interp s
e490: 68 61 72 65 20 7b 7d 20 24 3a 3a 47 28 6f 75 74  hare {} $::G(out
e4a0: 70 75 74 5f 66 64 29 20 74 69 6e 74 65 72 70 0a  put_fd) tinterp.
e4b0: 20 20 7d 0a 0a 20 20 23 20 54 68 65 20 61 6c 69    }..  # The ali
e4c0: 61 73 20 75 73 65 64 20 74 6f 20 61 63 63 65 73  as used to acces
e4d0: 73 20 74 68 65 20 67 6c 6f 62 61 6c 20 74 65 73  s the global tes
e4e0: 74 20 63 6f 75 6e 74 65 72 73 2e 0a 20 20 74 69  t counters..  ti
e4f0: 6e 74 65 72 70 20 61 6c 69 61 73 20 73 65 74 5f  nterp alias set_
e500: 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 73 65 74  test_counter set
e510: 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 0a 0a 20  _test_counter.. 
e520: 20 23 20 53 65 74 20 75 70 20 74 68 65 20 3a 3a   # Set up the ::
e530: 63 6d 64 6c 69 6e 65 61 72 67 20 61 72 72 61 79  cmdlinearg array
e540: 20 69 6e 20 74 68 65 20 73 6c 61 76 65 2e 0a 20   in the slave.. 
e550: 20 69 6e 74 65 72 70 20 65 76 61 6c 20 74 69 6e   interp eval tin
e560: 74 65 72 70 20 5b 6c 69 73 74 20 61 72 72 61 79  terp [list array
e570: 20 73 65 74 20 3a 3a 63 6d 64 6c 69 6e 65 61 72   set ::cmdlinear
e580: 67 20 5b 61 72 72 61 79 20 67 65 74 20 3a 3a 63  g [array get ::c
e590: 6d 64 6c 69 6e 65 61 72 67 5d 5d 0a 0a 20 20 23  mdlinearg]]..  #
e5a0: 20 53 65 74 20 75 70 20 74 68 65 20 3a 3a 47 20   Set up the ::G 
e5b0: 61 72 72 61 79 20 69 6e 20 74 68 65 20 73 6c 61  array in the sla
e5c0: 76 65 2e 0a 20 20 69 6e 74 65 72 70 20 65 76 61  ve..  interp eva
e5d0: 6c 20 74 69 6e 74 65 72 70 20 5b 6c 69 73 74 20  l tinterp [list 
e5e0: 61 72 72 61 79 20 73 65 74 20 3a 3a 47 20 5b 61  array set ::G [a
e5f0: 72 72 61 79 20 67 65 74 20 3a 3a 47 5d 5d 0a 0a  rray get ::G]]..
e600: 20 20 23 20 4c 6f 61 64 20 74 68 65 20 76 61 72    # Load the var
e610: 69 6f 75 73 20 74 65 73 74 20 69 6e 74 65 72 66  ious test interf
e620: 61 63 65 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64  aces implemented
e630: 20 69 6e 20 43 2e 0a 20 20 6c 6f 61 64 5f 74 65   in C..  load_te
e640: 73 74 66 69 78 74 75 72 65 5f 65 78 74 65 6e 73  stfixture_extens
e650: 69 6f 6e 73 20 74 69 6e 74 65 72 70 0a 0a 20 20  ions tinterp..  
e660: 23 20 52 75 6e 20 74 68 65 20 74 65 73 74 20 73  # Run the test s
e670: 63 72 69 70 74 2e 0a 20 20 69 6e 74 65 72 70 20  cript..  interp 
e680: 65 76 61 6c 20 74 69 6e 74 65 72 70 20 24 73 63  eval tinterp $sc
e690: 72 69 70 74 0a 0a 20 20 23 20 43 68 65 63 6b 20  ript..  # Check 
e6a0: 69 66 20 74 68 65 20 69 6e 74 65 72 70 72 65 74  if the interpret
e6b0: 65 72 20 63 61 6c 6c 20 5b 72 75 6e 5f 74 68 72  er call [run_thr
e6c0: 65 61 64 5f 74 65 73 74 73 5d 0a 20 20 69 66 20  ead_tests].  if 
e6d0: 7b 20 5b 69 6e 74 65 72 70 20 65 76 61 6c 20 74  { [interp eval t
e6e0: 69 6e 74 65 72 70 20 7b 69 6e 66 6f 20 65 78 69  interp {info exi
e6f0: 73 74 73 20 3a 3a 72 75 6e 5f 74 68 72 65 61 64  sts ::run_thread
e700: 5f 74 65 73 74 73 5f 63 61 6c 6c 65 64 7d 5d 20  _tests_called}] 
e710: 7d 20 7b 0a 20 20 20 20 73 65 74 20 3a 3a 72 75  } {.    set ::ru
e720: 6e 5f 74 68 72 65 61 64 5f 74 65 73 74 73 5f 63  n_thread_tests_c
e730: 61 6c 6c 65 64 20 31 0a 20 20 7d 0a 0a 20 20 23  alled 1.  }..  #
e740: 20 44 65 6c 65 74 65 20 74 68 65 20 69 6e 74 65   Delete the inte
e750: 72 70 72 65 74 65 72 20 75 73 65 64 20 74 6f 20  rpreter used to 
e760: 72 75 6e 20 74 68 65 20 74 65 73 74 20 73 63 72  run the test scr
e770: 69 70 74 2e 0a 20 20 69 6e 74 65 72 70 20 64 65  ipt..  interp de
e780: 6c 65 74 65 20 74 69 6e 74 65 72 70 0a 7d 0a 0a  lete tinterp.}..
e790: 70 72 6f 63 20 73 6c 61 76 65 5f 74 65 73 74 5f  proc slave_test_
e7a0: 66 69 6c 65 20 7b 7a 46 69 6c 65 7d 20 7b 0a 20  file {zFile} {. 
e7b0: 20 73 65 74 20 74 61 69 6c 20 5b 66 69 6c 65 20   set tail [file 
e7c0: 74 61 69 6c 20 24 7a 46 69 6c 65 5d 0a 0a 20 20  tail $zFile]..  
e7d0: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
e7e0: 20 3a 3a 47 28 73 74 61 72 74 3a 70 65 72 6d 75   ::G(start:permu
e7f0: 74 61 74 69 6f 6e 29 5d 7d 20 7b 0a 20 20 20 20  tation)]} {.    
e800: 69 66 20 7b 5b 70 65 72 6d 75 74 61 74 69 6f 6e  if {[permutation
e810: 5d 20 21 3d 20 24 3a 3a 47 28 73 74 61 72 74 3a  ] != $::G(start:
e820: 70 65 72 6d 75 74 61 74 69 6f 6e 29 7d 20 72 65  permutation)} re
e830: 74 75 72 6e 0a 20 20 20 20 75 6e 73 65 74 20 3a  turn.    unset :
e840: 3a 47 28 73 74 61 72 74 3a 70 65 72 6d 75 74 61  :G(start:permuta
e850: 74 69 6f 6e 29 0a 20 20 7d 0a 20 20 69 66 20 7b  tion).  }.  if {
e860: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 47  [info exists ::G
e870: 28 73 74 61 72 74 3a 66 69 6c 65 29 5d 7d 20 7b  (start:file)]} {
e880: 0a 20 20 20 20 69 66 20 7b 24 74 61 69 6c 20 21  .    if {$tail !
e890: 3d 20 24 3a 3a 47 28 73 74 61 72 74 3a 66 69 6c  = $::G(start:fil
e8a0: 65 29 20 26 26 20 24 74 61 69 6c 21 3d 22 24 3a  e) && $tail!="$:
e8b0: 3a 47 28 73 74 61 72 74 3a 66 69 6c 65 29 2e 74  :G(start:file).t
e8c0: 65 73 74 22 7d 20 72 65 74 75 72 6e 0a 20 20 20  est"} return.   
e8d0: 20 75 6e 73 65 74 20 3a 3a 47 28 73 74 61 72 74   unset ::G(start
e8e0: 3a 66 69 6c 65 29 0a 20 20 7d 0a 0a 20 20 23 20  :file).  }..  # 
e8f0: 52 65 6d 65 6d 62 65 72 20 74 68 65 20 76 61 6c  Remember the val
e900: 75 65 20 6f 66 20 74 68 65 20 73 68 61 72 65 64  ue of the shared
e910: 2d 63 61 63 68 65 20 73 65 74 74 69 6e 67 2e 20  -cache setting. 
e920: 53 6f 20 74 68 61 74 20 69 74 20 69 73 20 70 6f  So that it is po
e930: 73 73 69 62 6c 65 0a 20 20 23 20 74 6f 20 63 68  ssible.  # to ch
e940: 65 63 6b 20 61 66 74 65 72 77 61 72 64 73 20 74  eck afterwards t
e950: 68 61 74 20 69 74 20 77 61 73 20 6e 6f 74 20 6d  hat it was not m
e960: 6f 64 69 66 69 65 64 20 62 79 20 74 68 65 20 74  odified by the t
e970: 65 73 74 20 73 63 72 69 70 74 2e 0a 20 20 23 0a  est script..  #.
e980: 20 20 69 66 63 61 70 61 62 6c 65 20 73 68 61 72    ifcapable shar
e990: 65 64 5f 63 61 63 68 65 20 7b 20 73 65 74 20 73  ed_cache { set s
e9a0: 63 73 20 5b 73 71 6c 69 74 65 33 5f 65 6e 61 62  cs [sqlite3_enab
e9b0: 6c 65 5f 73 68 61 72 65 64 5f 63 61 63 68 65 5d  le_shared_cache]
e9c0: 20 7d 0a 0a 20 20 23 20 52 75 6e 20 74 68 65 20   }..  # Run the 
e9d0: 74 65 73 74 20 73 63 72 69 70 74 20 69 6e 20 61  test script in a
e9e0: 20 73 6c 61 76 65 20 69 6e 74 65 72 70 72 65 74   slave interpret
e9f0: 65 72 2e 0a 20 20 23 0a 20 20 75 6e 73 65 74 20  er..  #.  unset 
ea00: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 3a 3a 72 75  -nocomplain ::ru
ea10: 6e 5f 74 68 72 65 61 64 5f 74 65 73 74 73 5f 63  n_thread_tests_c
ea20: 61 6c 6c 65 64 0a 20 20 72 65 73 65 74 5f 70 72  alled.  reset_pr
ea30: 6e 67 5f 73 74 61 74 65 0a 20 20 73 65 74 20 3a  ng_state.  set :
ea40: 3a 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c  :sqlite_open_fil
ea50: 65 5f 63 6f 75 6e 74 20 30 0a 20 20 73 65 74 20  e_count 0.  set 
ea60: 74 69 6d 65 20 5b 74 69 6d 65 20 7b 20 73 6c 61  time [time { sla
ea70: 76 65 5f 74 65 73 74 5f 73 63 72 69 70 74 20 5b  ve_test_script [
ea80: 6c 69 73 74 20 73 6f 75 72 63 65 20 24 7a 46 69  list source $zFi
ea90: 6c 65 5d 20 7d 5d 0a 20 20 73 65 74 20 6d 73 20  le] }].  set ms 
eaa0: 5b 65 78 70 72 20 5b 6c 69 6e 64 65 78 20 24 74  [expr [lindex $t
eab0: 69 6d 65 20 30 5d 20 2f 20 31 30 30 30 5d 0a 0a  ime 0] / 1000]..
eac0: 20 20 23 20 54 65 73 74 20 74 68 61 74 20 61 6c    # Test that al
ead0: 6c 20 66 69 6c 65 73 20 6f 70 65 6e 65 64 20 62  l files opened b
eae0: 79 20 74 68 65 20 74 65 73 74 20 73 63 72 69 70  y the test scrip
eaf0: 74 20 77 65 72 65 20 63 6c 6f 73 65 64 2e 20 4f  t were closed. O
eb00: 6d 69 74 20 74 68 69 73 0a 20 20 23 20 69 66 20  mit this.  # if 
eb10: 74 68 65 20 74 65 73 74 20 73 63 72 69 70 74 20  the test script 
eb20: 68 61 73 20 22 74 68 72 65 61 64 22 20 69 6e 20  has "thread" in 
eb30: 69 74 73 20 6e 61 6d 65 2e 20 54 68 65 20 6f 70  its name. The op
eb40: 65 6e 20 66 69 6c 65 20 63 6f 75 6e 74 65 72 0a  en file counter.
eb50: 20 20 23 20 69 73 20 6e 6f 74 20 74 68 72 65 61    # is not threa
eb60: 64 2d 73 61 66 65 2e 0a 20 20 23 0a 20 20 69 66  d-safe..  #.  if
eb70: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
eb80: 3a 72 75 6e 5f 74 68 72 65 61 64 5f 74 65 73 74  :run_thread_test
eb90: 73 5f 63 61 6c 6c 65 64 5d 3d 3d 30 7d 20 7b 0a  s_called]==0} {.
eba0: 20 20 20 20 64 6f 5f 74 65 73 74 20 24 7b 74 61      do_test ${ta
ebb0: 69 6c 7d 2d 63 6c 6f 73 65 61 6c 6c 66 69 6c 65  il}-closeallfile
ebc0: 73 20 7b 20 65 78 70 72 20 7b 24 3a 3a 73 71 6c  s { expr {$::sql
ebd0: 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f  ite_open_file_co
ebe0: 75 6e 74 3e 30 7d 20 7d 20 7b 30 7d 0a 20 20 7d  unt>0} } {0}.  }
ebf0: 0a 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f  .  set ::sqlite_
ec00: 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 20  open_file_count 
ec10: 30 0a 0a 20 20 23 20 54 65 73 74 20 74 68 61 74  0..  # Test that
ec20: 20 74 68 65 20 67 6c 6f 62 61 6c 20 22 73 68 61   the global "sha
ec30: 72 65 64 2d 63 61 63 68 65 22 20 73 65 74 74 69  red-cache" setti
ec40: 6e 67 20 77 61 73 20 6e 6f 74 20 61 6c 74 65 72  ng was not alter
ec50: 65 64 20 62 79 0a 20 20 23 20 74 68 65 20 74 65  ed by.  # the te
ec60: 73 74 20 73 63 72 69 70 74 2e 0a 20 20 23 0a 20  st script..  #. 
ec70: 20 69 66 63 61 70 61 62 6c 65 20 73 68 61 72 65   ifcapable share
ec80: 64 5f 63 61 63 68 65 20 7b 0a 20 20 20 20 73 65  d_cache {.    se
ec90: 74 20 72 65 73 20 5b 65 78 70 72 20 7b 5b 73 71  t res [expr {[sq
eca0: 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 73 68 61  lite3_enable_sha
ecb0: 72 65 64 5f 63 61 63 68 65 5d 20 3d 3d 20 24 73  red_cache] == $s
ecc0: 63 73 7d 5d 0a 20 20 20 20 64 6f 5f 74 65 73 74  cs}].    do_test
ecd0: 20 24 7b 74 61 69 6c 7d 2d 73 68 61 72 65 64 63   ${tail}-sharedc
ece0: 61 63 68 65 73 65 74 74 69 6e 67 20 5b 6c 69 73  achesetting [lis
ecf0: 74 20 73 65 74 20 7b 7d 20 24 72 65 73 5d 20 31  t set {} $res] 1
ed00: 0a 20 20 7d 0a 0a 20 20 23 20 41 64 64 20 73 6f  .  }..  # Add so
ed10: 6d 65 20 69 6e 66 6f 20 74 6f 20 74 68 65 20 6f  me info to the o
ed20: 75 74 70 75 74 2e 0a 20 20 23 0a 20 20 6f 75 74  utput..  #.  out
ed30: 70 75 74 32 20 22 54 69 6d 65 3a 20 24 74 61 69  put2 "Time: $tai
ed40: 6c 20 24 6d 73 20 6d 73 22 0a 20 20 73 68 6f 77  l $ms ms".  show
ed50: 5f 6d 65 6d 73 74 61 74 73 0a 7d 0a 0a 23 20 4f  _memstats.}..# O
ed60: 70 65 6e 20 61 20 6e 65 77 20 63 6f 6e 6e 65 63  pen a new connec
ed70: 74 69 6f 6e 20 6f 6e 20 64 61 74 61 62 61 73 65  tion on database
ed80: 20 74 65 73 74 2e 64 62 20 61 6e 64 20 65 78 65   test.db and exe
ed90: 63 75 74 65 20 74 68 65 20 53 51 4c 20 73 63 72  cute the SQL scr
eda0: 69 70 74 0a 23 20 73 75 70 70 6c 69 65 64 20 61  ipt.# supplied a
edb0: 73 20 61 6e 20 61 72 67 75 6d 65 6e 74 2e 20 42  s an argument. B
edc0: 65 66 6f 72 65 20 72 65 74 75 72 6e 69 6e 67 2c  efore returning,
edd0: 20 63 6c 6f 73 65 20 74 68 65 20 6e 65 77 20 63   close the new c
ede0: 6f 6e 65 63 74 69 6f 6e 20 61 6e 64 0a 23 20 72  onection and.# r
edf0: 65 73 74 6f 72 65 20 74 68 65 20 34 20 62 79 74  estore the 4 byt
ee00: 65 20 66 69 65 6c 64 73 20 73 74 61 72 74 69 6e  e fields startin
ee10: 67 20 61 74 20 68 65 61 64 65 72 20 6f 66 66 73  g at header offs
ee20: 65 74 73 20 32 38 2c 20 39 32 20 61 6e 64 20 39  ets 28, 92 and 9
ee30: 36 0a 23 20 74 6f 20 74 68 65 20 76 61 6c 75 65  6.# to the value
ee40: 73 20 74 68 65 79 20 68 65 6c 64 20 62 65 66 6f  s they held befo
ee50: 72 65 20 74 68 65 20 53 51 4c 20 77 61 73 20 65  re the SQL was e
ee60: 78 65 63 75 74 65 64 2e 20 54 68 69 73 20 73 69  xecuted. This si
ee70: 6d 75 6c 61 74 65 73 0a 23 20 61 20 77 72 69 74  mulates.# a writ
ee80: 65 20 62 79 20 61 20 70 72 65 2d 33 2e 37 2e 30  e by a pre-3.7.0
ee90: 20 63 6c 69 65 6e 74 2e 0a 23 0a 70 72 6f 63 20   client..#.proc 
eea0: 73 71 6c 33 36 32 33 31 20 7b 73 71 6c 7d 20 7b  sql36231 {sql} {
eeb0: 0a 20 20 73 65 74 20 42 20 5b 68 65 78 69 6f 5f  .  set B [hexio_
eec0: 72 65 61 64 20 74 65 73 74 2e 64 62 20 39 32 20  read test.db 92 
eed0: 38 5d 0a 20 20 73 65 74 20 41 20 5b 68 65 78 69  8].  set A [hexi
eee0: 6f 5f 72 65 61 64 20 74 65 73 74 2e 64 62 20 32  o_read test.db 2
eef0: 38 20 34 5d 0a 20 20 73 71 6c 69 74 65 33 20 64  8 4].  sqlite3 d
ef00: 62 33 36 32 33 31 20 74 65 73 74 2e 64 62 0a 20  b36231 test.db. 
ef10: 20 63 61 74 63 68 20 7b 20 64 62 33 36 32 33 31   catch { db36231
ef20: 20 66 75 6e 63 20 61 5f 73 74 72 69 6e 67 20 61   func a_string a
ef30: 5f 73 74 72 69 6e 67 20 7d 0a 20 20 65 78 65 63  _string }.  exec
ef40: 73 71 6c 20 24 73 71 6c 20 64 62 33 36 32 33 31  sql $sql db36231
ef50: 0a 20 20 64 62 33 36 32 33 31 20 63 6c 6f 73 65  .  db36231 close
ef60: 0a 20 20 68 65 78 69 6f 5f 77 72 69 74 65 20 74  .  hexio_write t
ef70: 65 73 74 2e 64 62 20 32 38 20 24 41 0a 20 20 68  est.db 28 $A.  h
ef80: 65 78 69 6f 5f 77 72 69 74 65 20 74 65 73 74 2e  exio_write test.
ef90: 64 62 20 39 32 20 24 42 0a 20 20 72 65 74 75 72  db 92 $B.  retur
efa0: 6e 20 22 22 0a 7d 0a 0a 70 72 6f 63 20 64 62 5f  n "".}..proc db_
efb0: 73 61 76 65 20 7b 7d 20 7b 0a 20 20 66 6f 72 65  save {} {.  fore
efc0: 61 63 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63  ach f [glob -noc
efd0: 6f 6d 70 6c 61 69 6e 20 73 76 5f 74 65 73 74 2e  omplain sv_test.
efe0: 64 62 2a 5d 20 7b 20 66 6f 72 63 65 64 65 6c 65  db*] { forcedele
eff0: 74 65 20 24 66 20 7d 0a 20 20 66 6f 72 65 61 63  te $f }.  foreac
f000: 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d  h f [glob -nocom
f010: 70 6c 61 69 6e 20 74 65 73 74 2e 64 62 2a 5d 20  plain test.db*] 
f020: 7b 0a 20 20 20 20 73 65 74 20 66 32 20 22 73 76  {.    set f2 "sv
f030: 5f 24 66 22 0a 20 20 20 20 66 6f 72 63 65 63 6f  _$f".    forceco
f040: 70 79 20 24 66 20 24 66 32 0a 20 20 7d 0a 7d 0a  py $f $f2.  }.}.
f050: 70 72 6f 63 20 64 62 5f 73 61 76 65 5f 61 6e 64  proc db_save_and
f060: 5f 63 6c 6f 73 65 20 7b 7d 20 7b 0a 20 20 64 62  _close {} {.  db
f070: 5f 73 61 76 65 0a 20 20 63 61 74 63 68 20 7b 20  _save.  catch { 
f080: 64 62 20 63 6c 6f 73 65 20 7d 0a 20 20 72 65 74  db close }.  ret
f090: 75 72 6e 20 22 22 0a 7d 0a 70 72 6f 63 20 64 62  urn "".}.proc db
f0a0: 5f 72 65 73 74 6f 72 65 20 7b 7d 20 7b 0a 20 20  _restore {} {.  
f0b0: 66 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f 62 20  foreach f [glob 
f0c0: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 73 74  -nocomplain test
f0d0: 2e 64 62 2a 5d 20 7b 20 66 6f 72 63 65 64 65 6c  .db*] { forcedel
f0e0: 65 74 65 20 24 66 20 7d 0a 20 20 66 6f 72 65 61  ete $f }.  forea
f0f0: 63 68 20 66 32 20 5b 67 6c 6f 62 20 2d 6e 6f 63  ch f2 [glob -noc
f100: 6f 6d 70 6c 61 69 6e 20 73 76 5f 74 65 73 74 2e  omplain sv_test.
f110: 64 62 2a 5d 20 7b 0a 20 20 20 20 73 65 74 20 66  db*] {.    set f
f120: 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24   [string range $
f130: 66 32 20 33 20 65 6e 64 5d 0a 20 20 20 20 66 6f  f2 3 end].    fo
f140: 72 63 65 63 6f 70 79 20 24 66 32 20 24 66 0a 20  rcecopy $f2 $f. 
f150: 20 7d 0a 7d 0a 70 72 6f 63 20 64 62 5f 72 65 73   }.}.proc db_res
f160: 74 6f 72 65 5f 61 6e 64 5f 72 65 6f 70 65 6e 20  tore_and_reopen 
f170: 7b 7b 64 62 66 69 6c 65 20 74 65 73 74 2e 64 62  {{dbfile test.db
f180: 7d 7d 20 7b 0a 20 20 63 61 74 63 68 20 7b 20 64  }} {.  catch { d
f190: 62 20 63 6c 6f 73 65 20 7d 0a 20 20 64 62 5f 72  b close }.  db_r
f1a0: 65 73 74 6f 72 65 0a 20 20 73 71 6c 69 74 65 33  estore.  sqlite3
f1b0: 20 64 62 20 24 64 62 66 69 6c 65 0a 7d 0a 70 72   db $dbfile.}.pr
f1c0: 6f 63 20 64 62 5f 64 65 6c 65 74 65 5f 61 6e 64  oc db_delete_and
f1d0: 5f 72 65 6f 70 65 6e 20 7b 7b 66 69 6c 65 20 74  _reopen {{file t
f1e0: 65 73 74 2e 64 62 7d 7d 20 7b 0a 20 20 63 61 74  est.db}} {.  cat
f1f0: 63 68 20 7b 20 64 62 20 63 6c 6f 73 65 20 7d 0a  ch { db close }.
f200: 20 20 66 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f    foreach f [glo
f210: 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65  b -nocomplain te
f220: 73 74 2e 64 62 2a 5d 20 7b 20 66 6f 72 63 65 64  st.db*] { forced
f230: 65 6c 65 74 65 20 24 66 20 7d 0a 20 20 73 71 6c  elete $f }.  sql
f240: 69 74 65 33 20 64 62 20 24 66 69 6c 65 0a 7d 0a  ite3 db $file.}.
f250: 0a 23 20 43 6c 6f 73 65 20 61 6e 79 20 63 6f 6e  .# Close any con
f260: 6e 65 63 74 69 6f 6e 73 20 6e 61 6d 65 64 20 5b  nections named [
f270: 64 62 5d 2c 20 5b 64 62 32 5d 20 6f 72 20 5b 64  db], [db2] or [d
f280: 62 33 5d 2e 20 54 68 65 6e 20 75 73 65 20 73 71  b3]. Then use sq
f290: 6c 69 74 65 33 5f 63 6f 6e 66 69 67 0a 23 20 74  lite3_config.# t
f2a0: 6f 20 63 6f 6e 66 69 67 75 72 65 20 74 68 65 20  o configure the 
f2b0: 73 69 7a 65 20 6f 66 20 74 68 65 20 50 41 47 45  size of the PAGE
f2c0: 43 41 43 48 45 20 61 6c 6c 6f 63 61 74 69 6f 6e  CACHE allocation
f2d0: 20 75 73 69 6e 67 20 74 68 65 20 70 61 72 61 6d   using the param
f2e0: 65 74 65 72 73 0a 23 20 70 72 6f 76 69 64 65 64  eters.# provided
f2f0: 20 74 6f 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64   to this command
f300: 2e 20 53 61 76 65 20 74 68 65 20 6f 6c 64 20 50  . Save the old P
f310: 41 47 45 43 41 43 48 45 20 70 61 72 61 6d 65 74  AGECACHE paramet
f320: 65 72 73 20 69 6e 20 61 20 67 6c 6f 62 61 6c 20  ers in a global 
f330: 0a 23 20 76 61 72 69 61 62 6c 65 20 73 6f 20 74  .# variable so t
f340: 68 61 74 20 5b 74 65 73 74 5f 72 65 73 74 6f 72  hat [test_restor
f350: 65 5f 63 6f 6e 66 69 67 5f 70 61 67 65 63 61 63  e_config_pagecac
f360: 68 65 5d 20 63 61 6e 20 72 65 73 74 6f 72 65 20  he] can restore 
f370: 74 68 65 20 70 72 65 76 69 6f 75 73 0a 23 20 63  the previous.# c
f380: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 2e 0a 23 0a  onfiguration..#.
f390: 23 20 42 65 66 6f 72 65 20 72 65 74 75 72 6e 69  # Before returni
f3a0: 6e 67 2c 20 72 65 6f 70 65 6e 20 63 6f 6e 6e 65  ng, reopen conne
f3b0: 63 74 69 6f 6e 20 5b 64 62 5d 20 6f 6e 20 66 69  ction [db] on fi
f3c0: 6c 65 20 74 65 73 74 2e 64 62 2e 0a 23 0a 70 72  le test.db..#.pr
f3d0: 6f 63 20 74 65 73 74 5f 73 65 74 5f 63 6f 6e 66  oc test_set_conf
f3e0: 69 67 5f 70 61 67 65 63 61 63 68 65 20 7b 73 7a  ig_pagecache {sz
f3f0: 20 6e 50 67 7d 20 7b 0a 20 20 63 61 74 63 68 20   nPg} {.  catch 
f400: 7b 64 62 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74  {db close}.  cat
f410: 63 68 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 20  ch {db2 close}. 
f420: 20 63 61 74 63 68 20 7b 64 62 33 20 63 6c 6f 73   catch {db3 clos
f430: 65 7d 0a 0a 20 20 73 71 6c 69 74 65 33 5f 73 68  e}..  sqlite3_sh
f440: 75 74 64 6f 77 6e 0a 20 20 73 65 74 20 3a 3a 6f  utdown.  set ::o
f450: 6c 64 5f 70 61 67 65 63 61 63 68 65 5f 63 6f 6e  ld_pagecache_con
f460: 66 69 67 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e  fig [sqlite3_con
f470: 66 69 67 5f 70 61 67 65 63 61 63 68 65 20 24 73  fig_pagecache $s
f480: 7a 20 24 6e 50 67 5d 0a 20 20 73 71 6c 69 74 65  z $nPg].  sqlite
f490: 33 5f 69 6e 69 74 69 61 6c 69 7a 65 0a 20 20 61  3_initialize.  a
f4a0: 75 74 6f 69 6e 73 74 61 6c 6c 5f 74 65 73 74 5f  utoinstall_test_
f4b0: 66 75 6e 63 74 69 6f 6e 73 0a 20 20 72 65 73 65  functions.  rese
f4c0: 74 5f 64 62 0a 7d 0a 0a 23 20 43 6c 6f 73 65 20  t_db.}..# Close 
f4d0: 61 6e 79 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20  any connections 
f4e0: 6e 61 6d 65 64 20 5b 64 62 5d 2c 20 5b 64 62 32  named [db], [db2
f4f0: 5d 20 6f 72 20 5b 64 62 33 5d 2e 20 54 68 65 6e  ] or [db3]. Then
f500: 20 75 73 65 20 73 71 6c 69 74 65 33 5f 63 6f 6e   use sqlite3_con
f510: 66 69 67 0a 23 20 74 6f 20 63 6f 6e 66 69 67 75  fig.# to configu
f520: 72 65 20 74 68 65 20 73 69 7a 65 20 6f 66 20 74  re the size of t
f530: 68 65 20 50 41 47 45 43 41 43 48 45 20 61 6c 6c  he PAGECACHE all
f540: 6f 63 61 74 69 6f 6e 20 74 6f 20 74 68 65 20 73  ocation to the s
f550: 69 7a 65 20 73 61 76 65 64 20 69 6e 0a 23 20 74  ize saved in.# t
f560: 68 65 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62  he global variab
f570: 6c 65 20 62 79 20 61 6e 20 65 61 72 6c 69 65 72  le by an earlier
f580: 20 63 61 6c 6c 20 74 6f 20 5b 74 65 73 74 5f 73   call to [test_s
f590: 65 74 5f 63 6f 6e 66 69 67 5f 70 61 67 65 63 61  et_config_pageca
f5a0: 63 68 65 5d 2e 0a 23 0a 23 20 42 65 66 6f 72 65  che]..#.# Before
f5b0: 20 72 65 74 75 72 6e 69 6e 67 2c 20 72 65 6f 70   returning, reop
f5c0: 65 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 5b 64  en connection [d
f5d0: 62 5d 20 6f 6e 20 66 69 6c 65 20 74 65 73 74 2e  b] on file test.
f5e0: 64 62 2e 0a 23 0a 70 72 6f 63 20 74 65 73 74 5f  db..#.proc test_
f5f0: 72 65 73 74 6f 72 65 5f 63 6f 6e 66 69 67 5f 70  restore_config_p
f600: 61 67 65 63 61 63 68 65 20 7b 7d 20 7b 0a 20 20  agecache {} {.  
f610: 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d  catch {db close}
f620: 0a 20 20 63 61 74 63 68 20 7b 64 62 32 20 63 6c  .  catch {db2 cl
f630: 6f 73 65 7d 0a 20 20 63 61 74 63 68 20 7b 64 62  ose}.  catch {db
f640: 33 20 63 6c 6f 73 65 7d 0a 0a 20 20 73 71 6c 69  3 close}..  sqli
f650: 74 65 33 5f 73 68 75 74 64 6f 77 6e 0a 20 20 65  te3_shutdown.  e
f660: 76 61 6c 20 73 71 6c 69 74 65 33 5f 63 6f 6e 66  val sqlite3_conf
f670: 69 67 5f 70 61 67 65 63 61 63 68 65 20 24 3a 3a  ig_pagecache $::
f680: 6f 6c 64 5f 70 61 67 65 63 61 63 68 65 5f 63 6f  old_pagecache_co
f690: 6e 66 69 67 0a 20 20 75 6e 73 65 74 20 3a 3a 6f  nfig.  unset ::o
f6a0: 6c 64 5f 70 61 67 65 63 61 63 68 65 5f 63 6f 6e  ld_pagecache_con
f6b0: 66 69 67 20 0a 20 20 73 71 6c 69 74 65 33 5f 69  fig .  sqlite3_i
f6c0: 6e 69 74 69 61 6c 69 7a 65 0a 20 20 61 75 74 6f  nitialize.  auto
f6d0: 69 6e 73 74 61 6c 6c 5f 74 65 73 74 5f 66 75 6e  install_test_fun
f6e0: 63 74 69 6f 6e 73 0a 20 20 73 71 6c 69 74 65 33  ctions.  sqlite3
f6f0: 20 64 62 20 74 65 73 74 2e 64 62 0a 7d 0a 0a 23   db test.db.}..#
f700: 20 49 66 20 74 68 65 20 6c 69 62 72 61 72 79 20   If the library 
f710: 69 73 20 63 6f 6d 70 69 6c 65 64 20 77 69 74 68  is compiled with
f720: 20 74 68 65 20 53 51 4c 49 54 45 5f 44 45 46 41   the SQLITE_DEFA
f730: 55 4c 54 5f 41 55 54 4f 56 41 43 55 55 4d 20 6d  ULT_AUTOVACUUM m
f740: 61 63 72 6f 20 73 65 74 0a 23 20 74 6f 20 6e 6f  acro set.# to no
f750: 6e 2d 7a 65 72 6f 2c 20 74 68 65 6e 20 73 65 74  n-zero, then set
f760: 20 74 68 65 20 67 6c 6f 62 61 6c 20 76 61 72 69   the global vari
f770: 61 62 6c 65 20 24 41 55 54 4f 56 41 43 55 55 4d  able $AUTOVACUUM
f780: 20 74 6f 20 31 2e 0a 73 65 74 20 41 55 54 4f 56   to 1..set AUTOV
f790: 41 43 55 55 4d 20 24 73 71 6c 69 74 65 5f 6f 70  ACUUM $sqlite_op
f7a0: 74 69 6f 6e 73 28 64 65 66 61 75 6c 74 5f 61 75  tions(default_au
f7b0: 74 6f 76 61 63 75 75 6d 29 0a 0a 23 20 4d 61 6b  tovacuum)..# Mak
f7c0: 65 20 73 75 72 65 20 74 68 65 20 46 54 53 20 65  e sure the FTS e
f7d0: 6e 68 61 6e 63 65 64 20 71 75 65 72 79 20 73 79  nhanced query sy
f7e0: 6e 74 61 78 20 69 73 20 64 69 73 61 62 6c 65 64  ntax is disabled
f7f0: 2e 0a 73 65 74 20 73 71 6c 69 74 65 5f 66 74 73  ..set sqlite_fts
f800: 33 5f 65 6e 61 62 6c 65 5f 70 61 72 65 6e 74 68  3_enable_parenth
f810: 65 73 65 73 20 30 0a 0a 23 20 44 75 72 69 6e 67  eses 0..# During
f820: 20 74 65 73 74 69 6e 67 2c 20 61 73 73 75 6d 65   testing, assume
f830: 20 74 68 61 74 20 61 6c 6c 20 64 61 74 61 62 61   that all databa
f840: 73 65 20 66 69 6c 65 73 20 61 72 65 20 77 65 6c  se files are wel
f850: 6c 2d 66 6f 72 6d 65 64 2e 20 20 54 68 65 0a 23  l-formed.  The.#
f860: 20 66 65 77 20 74 65 73 74 20 63 61 73 65 73 20   few test cases 
f870: 74 68 61 74 20 64 65 6c 69 62 65 72 61 74 65 6c  that deliberatel
f880: 79 20 63 6f 72 72 75 70 74 20 64 61 74 61 62 61  y corrupt databa
f890: 73 65 20 66 69 6c 65 73 20 73 68 6f 75 6c 64 20  se files should 
f8a0: 72 65 73 63 69 6e 64 20 0a 23 20 74 68 69 73 20  rescind .# this 
f8b0: 73 65 74 74 69 6e 67 20 62 79 20 69 6e 76 6f 6b  setting by invok
f8c0: 69 6e 67 20 22 64 61 74 61 62 61 73 65 5f 63 61  ing "database_ca
f8d0: 6e 5f 62 65 5f 63 6f 72 72 75 70 74 22 0a 23 0a  n_be_corrupt".#.
f8e0: 64 61 74 61 62 61 73 65 5f 6e 65 76 65 72 5f 63  database_never_c
f8f0: 6f 72 72 75 70 74 0a 0a 73 6f 75 72 63 65 20 24  orrupt..source $
f900: 74 65 73 74 64 69 72 2f 74 68 72 65 61 64 5f 63  testdir/thread_c
f910: 6f 6d 6d 6f 6e 2e 74 63 6c 0a 73 6f 75 72 63 65  ommon.tcl.source
f920: 20 24 74 65 73 74 64 69 72 2f 6d 61 6c 6c 6f 63   $testdir/malloc
f930: 5f 63 6f 6d 6d 6f 6e 2e 74 63 6c 0a              _common.tcl.