/ Hex Artifact Content
Login

Artifact 08e9f317afe60d398fa900993503ecaef3295bad:


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 0a 23  SQL EXPECTED.#.#
0800: 20 43 6f 6d 6d 61 6e 64 73 20 70 72 6f 76 69 64   Commands provid
0810: 69 6e 67 20 61 20 6c 6f 77 65 72 20 6c 65 76 65  ing a lower leve
0820: 6c 20 69 6e 74 65 72 66 61 63 65 20 74 6f 20 74  l interface to t
0830: 68 65 20 67 6c 6f 62 61 6c 20 74 65 73 74 20 63  he global test c
0840: 6f 75 6e 74 65 72 73 3a 0a 23 0a 23 20 20 20 20  ounters:.#.#    
0850: 20 20 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74    set_test_count
0860: 65 72 20 20 20 20 20 20 20 43 4f 55 4e 54 45 52  er       COUNTER
0870: 20 3f 56 41 4c 55 45 3f 0a 23 20 20 20 20 20 20   ?VALUE?.#      
0880: 6f 6d 69 74 5f 74 65 73 74 20 20 20 20 20 20 20  omit_test       
0890: 20 20 20 20 20 20 20 54 45 53 54 4e 41 4d 45 20         TESTNAME 
08a0: 52 45 41 53 4f 4e 20 3f 41 50 50 45 4e 44 3f 0a  REASON ?APPEND?.
08b0: 23 20 20 20 20 20 20 66 61 69 6c 5f 74 65 73 74  #      fail_test
08c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 45                TE
08d0: 53 54 4e 41 4d 45 0a 23 20 20 20 20 20 20 69 6e  STNAME.#      in
08e0: 63 72 5f 6e 74 65 73 74 0a 23 0a 23 20 43 6f 6d  cr_ntest.#.# Com
08f0: 6d 61 6e 64 20 72 75 6e 20 61 74 20 74 68 65 20  mand run at the 
0900: 65 6e 64 20 6f 66 20 65 61 63 68 20 74 65 73 74  end of each test
0910: 20 66 69 6c 65 3a 0a 23 0a 23 20 20 20 20 20 20   file:.#.#      
0920: 66 69 6e 69 73 68 5f 74 65 73 74 0a 23 0a 23 20  finish_test.#.# 
0930: 43 6f 6d 6d 61 6e 64 73 20 74 6f 20 68 65 6c 70  Commands to help
0940: 20 63 72 65 61 74 65 20 74 65 73 74 20 66 69 6c   create test fil
0950: 65 73 20 74 68 61 74 20 72 75 6e 20 77 69 74 68  es that run with
0960: 20 74 68 65 20 22 57 41 4c 22 20 61 6e 64 20 6f   the "WAL" and o
0970: 74 68 65 72 0a 23 20 70 65 72 6d 75 74 61 74 69  ther.# permutati
0980: 6f 6e 73 20 28 73 65 65 20 66 69 6c 65 20 70 65  ons (see file pe
0990: 72 6d 75 74 61 74 69 6f 6e 73 2e 74 65 73 74 29  rmutations.test)
09a0: 3a 0a 23 0a 23 20 20 20 20 20 20 77 61 6c 5f 69  :.#.#      wal_i
09b0: 73 5f 77 61 6c 5f 6d 6f 64 65 0a 23 20 20 20 20  s_wal_mode.#    
09c0: 20 20 77 61 6c 5f 73 65 74 5f 6a 6f 75 72 6e 61    wal_set_journa
09d0: 6c 5f 6d 6f 64 65 20 20 20 3f 44 42 3f 0a 23 20  l_mode   ?DB?.# 
09e0: 20 20 20 20 20 77 61 6c 5f 63 68 65 63 6b 5f 6a       wal_check_j
09f0: 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 54 45 53 54  ournal_mode TEST
0a00: 4e 41 4d 45 3f 44 42 3f 0a 23 20 20 20 20 20 20  NAME?DB?.#      
0a10: 70 65 72 6d 75 74 61 74 69 6f 6e 0a 23 20 20 20  permutation.#   
0a20: 20 20 20 70 72 65 73 71 6c 0a 23 0a 0a 23 20 53     presql.#..# S
0a30: 65 74 20 74 68 65 20 70 72 65 63 69 73 69 6f 6e  et the precision
0a40: 20 6f 66 20 46 50 20 61 72 69 74 68 6d 61 74 69   of FP arithmati
0a50: 63 20 75 73 65 64 20 62 79 20 74 68 65 20 69 6e  c used by the in
0a60: 74 65 72 70 72 65 74 65 72 2e 20 41 6e 64 0a 23  terpreter. And.#
0a70: 20 63 6f 6e 66 69 67 75 72 65 20 53 51 4c 69 74   configure SQLit
0a80: 65 20 74 6f 20 74 61 6b 65 20 64 61 74 61 62 61  e to take databa
0a90: 73 65 20 66 69 6c 65 20 6c 6f 63 6b 73 20 6f 6e  se file locks on
0aa0: 20 74 68 65 20 70 61 67 65 20 74 68 61 74 20 62   the page that b
0ab0: 65 67 69 6e 73 0a 23 20 36 34 4b 42 20 69 6e 74  egins.# 64KB int
0ac0: 6f 20 74 68 65 20 64 61 74 61 62 61 73 65 20 66  o the database f
0ad0: 69 6c 65 20 69 6e 73 74 65 61 64 20 6f 66 20 74  ile instead of t
0ae0: 68 65 20 6f 6e 65 20 31 47 42 20 69 6e 2e 20 54  he one 1GB in. T
0af0: 68 69 73 20 6d 65 61 6e 73 0a 23 20 74 68 65 20  his means.# the 
0b00: 63 6f 64 65 20 74 68 61 74 20 68 61 6e 64 6c 65  code that handle
0b10: 73 20 74 68 61 74 20 73 70 65 63 69 61 6c 20 63  s that special c
0b20: 61 73 65 20 63 61 6e 20 62 65 20 74 65 73 74 65  ase can be teste
0b30: 64 20 77 69 74 68 6f 75 74 20 63 72 65 61 74 69  d without creati
0b40: 6e 67 0a 23 20 76 65 72 79 20 6c 61 72 67 65 20  ng.# very large 
0b50: 64 61 74 61 62 61 73 65 20 66 69 6c 65 73 2e 0a  database files..
0b60: 23 0a 73 65 74 20 74 63 6c 5f 70 72 65 63 69 73  #.set tcl_precis
0b70: 69 6f 6e 20 31 35 0a 73 71 6c 69 74 65 33 5f 74  ion 15.sqlite3_t
0b80: 65 73 74 5f 63 6f 6e 74 72 6f 6c 5f 70 65 6e 64  est_control_pend
0b90: 69 6e 67 5f 62 79 74 65 20 30 78 30 30 31 30 30  ing_byte 0x00100
0ba0: 30 30 0a 0a 0a 23 20 49 66 20 74 68 65 20 70 61  00...# If the pa
0bb0: 67 65 72 20 63 6f 64 65 63 20 69 73 20 61 76 61  ger codec is ava
0bc0: 69 6c 61 62 6c 65 2c 20 63 72 65 61 74 65 20 61  ilable, create a
0bd0: 20 77 72 61 70 70 65 72 20 66 6f 72 20 74 68 65   wrapper for the
0be0: 20 5b 73 71 6c 69 74 65 33 5d 0a 23 20 63 6f 6d   [sqlite3].# com
0bf0: 6d 61 6e 64 20 74 68 61 74 20 61 70 70 65 6e 64  mand that append
0c00: 73 20 22 2d 6b 65 79 20 7b 78 79 7a 7a 79 7d 22  s "-key {xyzzy}"
0c10: 20 74 6f 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20   to the command 
0c20: 6c 69 6e 65 2e 20 69 2e 65 2e 20 74 68 69 73 3a  line. i.e. this:
0c30: 0a 23 0a 23 20 20 20 20 20 73 71 6c 69 74 65 33  .#.#     sqlite3
0c40: 20 64 62 20 74 65 73 74 2e 64 62 0a 23 0a 23 20   db test.db.#.# 
0c50: 62 65 63 6f 6d 65 73 0a 23 0a 23 20 20 20 20 20  becomes.#.#     
0c60: 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e  sqlite3 db test.
0c70: 64 62 20 2d 6b 65 79 20 7b 78 79 7a 7a 79 7d 0a  db -key {xyzzy}.
0c80: 23 0a 69 66 20 7b 5b 69 6e 66 6f 20 63 6f 6d 6d  #.if {[info comm
0c90: 61 6e 64 20 73 71 6c 69 74 65 5f 6f 72 69 67 5d  and sqlite_orig]
0ca0: 3d 3d 22 22 7d 20 7b 0a 20 20 72 65 6e 61 6d 65  ==""} {.  rename
0cb0: 20 73 71 6c 69 74 65 33 20 73 71 6c 69 74 65 5f   sqlite3 sqlite_
0cc0: 6f 72 69 67 0a 20 20 70 72 6f 63 20 73 71 6c 69  orig.  proc sqli
0cd0: 74 65 33 20 7b 61 72 67 73 7d 20 7b 0a 20 20 20  te3 {args} {.   
0ce0: 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61   if {[llength $a
0cf0: 72 67 73 5d 3e 3d 32 20 26 26 20 5b 73 74 72 69  rgs]>=2 && [stri
0d00: 6e 67 20 69 6e 64 65 78 20 5b 6c 69 6e 64 65 78  ng index [lindex
0d10: 20 24 61 72 67 73 20 30 5d 20 30 5d 21 3d 22 2d   $args 0] 0]!="-
0d20: 22 7d 20 7b 0a 20 20 20 20 20 20 23 20 54 68 69  "} {.      # Thi
0d30: 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 6f 70 65  s command is ope
0d40: 6e 69 6e 67 20 61 20 6e 65 77 20 64 61 74 61 62  ning a new datab
0d50: 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a  ase connection..
0d60: 20 20 20 20 20 20 23 0a 20 20 20 20 20 20 69 66        #.      if
0d70: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
0d80: 3a 47 28 70 65 72 6d 3a 73 71 6c 69 74 65 33 5f  :G(perm:sqlite3_
0d90: 61 72 67 73 29 5d 7d 20 7b 0a 20 20 20 20 20 20  args)]} {.      
0da0: 20 20 73 65 74 20 61 72 67 73 20 5b 63 6f 6e 63    set args [conc
0db0: 61 74 20 24 61 72 67 73 20 24 3a 3a 47 28 70 65  at $args $::G(pe
0dc0: 72 6d 3a 73 71 6c 69 74 65 33 5f 61 72 67 73 29  rm:sqlite3_args)
0dd0: 5d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  ].      }.      
0de0: 69 66 20 7b 5b 73 71 6c 69 74 65 5f 6f 72 69 67  if {[sqlite_orig
0df0: 20 2d 68 61 73 2d 63 6f 64 65 63 5d 20 26 26 20   -has-codec] && 
0e00: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  ![info exists ::
0e10: 64 6f 5f 6e 6f 74 5f 75 73 65 5f 63 6f 64 65 63  do_not_use_codec
0e20: 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 6c 61 70  ]} {.        lap
0e30: 70 65 6e 64 20 61 72 67 73 20 2d 6b 65 79 20 7b  pend args -key {
0e40: 78 79 7a 7a 79 7d 0a 20 20 20 20 20 20 7d 0a 0a  xyzzy}.      }..
0e50: 20 20 20 20 20 20 73 65 74 20 72 65 73 20 5b 75        set res [u
0e60: 70 6c 65 76 65 6c 20 31 20 73 71 6c 69 74 65 5f  plevel 1 sqlite_
0e70: 6f 72 69 67 20 24 61 72 67 73 5d 0a 20 20 20 20  orig $args].    
0e80: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73    if {[info exis
0e90: 74 73 20 3a 3a 47 28 70 65 72 6d 3a 70 72 65 73  ts ::G(perm:pres
0ea0: 71 6c 29 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20  ql)]} {.        
0eb0: 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20 30 5d  [lindex $args 0]
0ec0: 20 65 76 61 6c 20 24 3a 3a 47 28 70 65 72 6d 3a   eval $::G(perm:
0ed0: 70 72 65 73 71 6c 29 0a 20 20 20 20 20 20 7d 0a  presql).      }.
0ee0: 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20        if {[info 
0ef0: 65 78 69 73 74 73 20 3a 3a 47 28 70 65 72 6d 3a  exists ::G(perm:
0f00: 64 62 63 6f 6e 66 69 67 29 5d 7d 20 7b 0a 20 20  dbconfig)]} {.  
0f10: 20 20 20 20 20 20 73 65 74 20 3a 3a 64 62 68 61        set ::dbha
0f20: 6e 64 6c 65 20 5b 6c 69 6e 64 65 78 20 24 61 72  ndle [lindex $ar
0f30: 67 73 20 30 5d 0a 20 20 20 20 20 20 20 20 75 70  gs 0].        up
0f40: 6c 65 76 65 6c 20 23 30 20 24 3a 3a 47 28 70 65  level #0 $::G(pe
0f50: 72 6d 3a 64 62 63 6f 6e 66 69 67 29 0a 20 20 20  rm:dbconfig).   
0f60: 20 20 20 7d 0a 20 20 20 20 20 20 73 65 74 20 72     }.      set r
0f70: 65 73 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a  es.    } else {.
0f80: 20 20 20 20 20 20 23 20 54 68 69 73 20 63 6f 6d        # This com
0f90: 6d 61 6e 64 20 69 73 20 6e 6f 74 20 6f 70 65 6e  mand is not open
0fa0: 69 6e 67 20 61 20 6e 65 77 20 64 61 74 61 62 61  ing a new databa
0fb0: 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20 50  se connection. P
0fc0: 61 73 73 20 74 68 65 0a 20 20 20 20 20 20 23 20  ass the.      # 
0fd0: 61 72 67 75 6d 65 6e 74 73 20 74 68 72 6f 75 67  arguments throug
0fe0: 68 20 74 6f 20 74 68 65 20 43 20 69 6d 70 6c 65  h to the C imple
0ff0: 6d 65 6e 74 61 74 69 6f 6e 20 61 73 20 74 68 65  mentation as the
1000: 20 61 72 65 2e 0a 20 20 20 20 20 20 23 0a 20 20   are..      #.  
1010: 20 20 20 20 75 70 6c 65 76 65 6c 20 31 20 73 71      uplevel 1 sq
1020: 6c 69 74 65 5f 6f 72 69 67 20 24 61 72 67 73 0a  lite_orig $args.
1030: 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 70 72 6f      }.  }.}..pro
1040: 63 20 67 65 74 46 69 6c 65 52 65 74 72 69 65 73  c getFileRetries
1050: 20 7b 7d 20 7b 0a 20 20 69 66 20 7b 21 5b 69 6e   {} {.  if {![in
1060: 66 6f 20 65 78 69 73 74 73 20 3a 3a 47 28 66 69  fo exists ::G(fi
1070: 6c 65 2d 72 65 74 72 69 65 73 29 5d 7d 20 7b 0a  le-retries)]} {.
1080: 20 20 20 20 23 0a 20 20 20 20 23 20 4e 4f 54 45      #.    # NOTE
1090: 3a 20 52 65 74 75 72 6e 20 74 68 65 20 64 65 66  : Return the def
10a0: 61 75 6c 74 20 6e 75 6d 62 65 72 20 6f 66 20 72  ault number of r
10b0: 65 74 72 69 65 73 20 66 6f 72 20 5b 66 69 6c 65  etries for [file
10c0: 5d 20 6f 70 65 72 61 74 69 6f 6e 73 2e 20 20 41  ] operations.  A
10d0: 0a 20 20 20 20 23 20 20 20 20 20 20 20 76 61 6c  .    #       val
10e0: 75 65 20 6f 66 20 7a 65 72 6f 20 6f 72 20 6c 65  ue of zero or le
10f0: 73 73 20 68 65 72 65 20 6d 65 61 6e 73 20 22 64  ss here means "d
1100: 69 73 61 62 6c 65 64 22 2e 0a 20 20 20 20 23 0a  isabled"..    #.
1110: 20 20 20 20 72 65 74 75 72 6e 20 5b 65 78 70 72      return [expr
1120: 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72   {$::tcl_platfor
1130: 6d 28 70 6c 61 74 66 6f 72 6d 29 20 65 71 20 22  m(platform) eq "
1140: 77 69 6e 64 6f 77 73 22 20 3f 20 35 30 20 3a 20  windows" ? 50 : 
1150: 30 7d 5d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e  0}].  }.  return
1160: 20 24 3a 3a 47 28 66 69 6c 65 2d 72 65 74 72 69   $::G(file-retri
1170: 65 73 29 0a 7d 0a 0a 70 72 6f 63 20 67 65 74 46  es).}..proc getF
1180: 69 6c 65 52 65 74 72 79 44 65 6c 61 79 20 7b 7d  ileRetryDelay {}
1190: 20 7b 0a 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20   {.  if {![info 
11a0: 65 78 69 73 74 73 20 3a 3a 47 28 66 69 6c 65 2d  exists ::G(file-
11b0: 72 65 74 72 79 2d 64 65 6c 61 79 29 5d 7d 20 7b  retry-delay)]} {
11c0: 0a 20 20 20 20 23 0a 20 20 20 20 23 20 4e 4f 54  .    #.    # NOT
11d0: 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 64 65  E: Return the de
11e0: 66 61 75 6c 74 20 6e 75 6d 62 65 72 20 6f 66 20  fault number of 
11f0: 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 20 74 6f 20  milliseconds to 
1200: 77 61 69 74 20 77 68 65 6e 20 72 65 74 72 79 69  wait when retryi
1210: 6e 67 0a 20 20 20 20 23 20 20 20 20 20 20 20 66  ng.    #       f
1220: 61 69 6c 65 64 20 5b 66 69 6c 65 5d 20 6f 70 65  ailed [file] ope
1230: 72 61 74 69 6f 6e 73 2e 20 20 41 20 76 61 6c 75  rations.  A valu
1240: 65 20 6f 66 20 7a 65 72 6f 20 6f 72 20 6c 65 73  e of zero or les
1250: 73 20 6d 65 61 6e 73 20 22 64 6f 20 6e 6f 74 0a  s means "do not.
1260: 20 20 20 20 23 20 20 20 20 20 20 20 77 61 69 74      #       wait
1270: 22 2e 0a 20 20 20 20 23 0a 20 20 20 20 72 65 74  "..    #.    ret
1280: 75 72 6e 20 31 30 30 3b 20 23 20 54 4f 44 4f 3a  urn 100; # TODO:
1290: 20 47 6f 6f 64 20 64 65 66 61 75 6c 74 3f 0a 20   Good default?. 
12a0: 20 7d 0a 20 20 72 65 74 75 72 6e 20 24 3a 3a 47   }.  return $::G
12b0: 28 66 69 6c 65 2d 72 65 74 72 79 2d 64 65 6c 61  (file-retry-dela
12c0: 79 29 0a 7d 0a 0a 23 20 52 65 74 75 72 6e 20 74  y).}..# Return t
12d0: 68 65 20 73 74 72 69 6e 67 20 72 65 70 72 65 73  he string repres
12e0: 65 6e 74 69 6e 67 20 74 68 65 20 6e 61 6d 65 20  enting the name 
12f0: 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 64  of the current d
1300: 69 72 65 63 74 6f 72 79 2e 20 20 4f 6e 0a 23 20  irectory.  On.# 
1310: 57 69 6e 64 6f 77 73 2c 20 74 68 65 20 72 65 73  Windows, the res
1320: 75 6c 74 20 69 73 20 22 6e 6f 72 6d 61 6c 69 7a  ult is "normaliz
1330: 65 64 22 20 74 6f 20 77 68 61 74 65 76 65 72 20  ed" to whatever 
1340: 6f 75 72 20 70 61 72 65 6e 74 20 63 6f 6d 6d 61  our parent comma
1350: 6e 64 20 73 68 65 6c 6c 0a 23 20 69 73 20 75 73  nd shell.# is us
1360: 69 6e 67 20 74 6f 20 70 72 65 76 65 6e 74 20 63  ing to prevent c
1370: 61 73 65 2d 6d 69 73 6d 61 74 63 68 20 69 73 73  ase-mismatch iss
1380: 75 65 73 2e 0a 23 0a 70 72 6f 63 20 67 65 74 5f  ues..#.proc get_
1390: 70 77 64 20 7b 7d 20 7b 0a 20 20 69 66 20 7b 24  pwd {} {.  if {$
13a0: 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 70  ::tcl_platform(p
13b0: 6c 61 74 66 6f 72 6d 29 20 65 71 20 22 77 69 6e  latform) eq "win
13c0: 64 6f 77 73 22 7d 20 7b 0a 20 20 20 20 23 0a 20  dows"} {.    #. 
13d0: 20 20 20 23 20 4e 4f 54 45 3a 20 43 61 6e 6e 6f     # NOTE: Canno
13e0: 74 20 75 73 65 20 5b 66 69 6c 65 20 6e 6f 72 6d  t use [file norm
13f0: 61 6c 69 7a 65 5d 20 68 65 72 65 20 62 65 63 61  alize] here beca
1400: 75 73 65 20 69 74 20 77 6f 75 6c 64 20 61 6c 74  use it would alt
1410: 65 72 20 74 68 65 0a 20 20 20 20 23 20 20 20 20  er the.    #    
1420: 20 20 20 63 61 73 65 20 6f 66 20 74 68 65 20 72     case of the r
1430: 65 73 75 6c 74 20 74 6f 20 77 68 61 74 20 54 63  esult to what Tc
1440: 6c 20 63 6f 6e 73 69 64 65 72 73 20 63 61 6e 6f  l considers cano
1450: 6e 69 63 61 6c 2c 20 77 68 69 63 68 20 77 6f 75  nical, which wou
1460: 6c 64 0a 20 20 20 20 23 20 20 20 20 20 20 20 64  ld.    #       d
1470: 65 66 65 61 74 20 74 68 65 20 70 75 72 70 6f 73  efeat the purpos
1480: 65 20 6f 66 20 74 68 69 73 20 70 72 6f 63 65 64  e of this proced
1490: 75 72 65 2e 0a 20 20 20 20 23 0a 20 20 20 20 72  ure..    #.    r
14a0: 65 74 75 72 6e 20 5b 73 74 72 69 6e 67 20 6d 61  eturn [string ma
14b0: 70 20 5b 6c 69 73 74 20 5c 5c 20 2f 5d 20 5c 0a  p [list \\ /] \.
14c0: 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20          [string 
14d0: 74 72 69 6d 20 5b 65 78 65 63 20 2d 2d 20 24 3a  trim [exec -- $:
14e0: 3a 65 6e 76 28 43 6f 6d 53 70 65 63 29 20 2f 63  :env(ComSpec) /c
14f0: 20 65 63 68 6f 20 25 43 44 25 5d 5d 5d 0a 20 20   echo %CD%]]].  
1500: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 72 65 74  } else {.    ret
1510: 75 72 6e 20 5b 70 77 64 5d 0a 20 20 7d 0a 7d 0a  urn [pwd].  }.}.
1520: 0a 23 20 43 6f 70 79 20 66 69 6c 65 20 24 66 72  .# Copy file $fr
1530: 6f 6d 20 69 6e 74 6f 20 24 74 6f 2e 20 54 68 69  om into $to. Thi
1540: 73 20 69 73 20 75 73 65 64 20 62 65 63 61 75 73  s is used becaus
1550: 65 20 73 6f 6d 65 20 76 65 72 73 69 6f 6e 73 20  e some versions 
1560: 6f 66 0a 23 20 54 43 4c 20 66 6f 72 20 77 69 6e  of.# TCL for win
1570: 64 6f 77 73 20 28 6e 6f 74 61 62 6c 79 20 74 68  dows (notably th
1580: 65 20 38 2e 34 2e 31 20 62 69 6e 61 72 79 20 70  e 8.4.1 binary p
1590: 61 63 6b 61 67 65 20 73 68 69 70 70 65 64 20 77  ackage shipped w
15a0: 69 74 68 20 74 68 65 0a 23 20 63 75 72 72 65 6e  ith the.# curren
15b0: 74 20 6d 69 6e 67 77 20 72 65 6c 65 61 73 65 29  t mingw release)
15c0: 20 68 61 76 65 20 61 20 62 72 6f 6b 65 6e 20 22   have a broken "
15d0: 66 69 6c 65 20 63 6f 70 79 22 20 63 6f 6d 6d 61  file copy" comma
15e0: 6e 64 2e 0a 23 0a 70 72 6f 63 20 63 6f 70 79 5f  nd..#.proc copy_
15f0: 66 69 6c 65 20 7b 66 72 6f 6d 20 74 6f 7d 20 7b  file {from to} {
1600: 0a 20 20 64 6f 5f 63 6f 70 79 5f 66 69 6c 65 20  .  do_copy_file 
1610: 66 61 6c 73 65 20 24 66 72 6f 6d 20 24 74 6f 0a  false $from $to.
1620: 7d 0a 0a 70 72 6f 63 20 66 6f 72 63 65 63 6f 70  }..proc forcecop
1630: 79 20 7b 66 72 6f 6d 20 74 6f 7d 20 7b 0a 20 20  y {from to} {.  
1640: 64 6f 5f 63 6f 70 79 5f 66 69 6c 65 20 74 72 75  do_copy_file tru
1650: 65 20 24 66 72 6f 6d 20 24 74 6f 0a 7d 0a 0a 70  e $from $to.}..p
1660: 72 6f 63 20 64 6f 5f 63 6f 70 79 5f 66 69 6c 65  roc do_copy_file
1670: 20 7b 66 6f 72 63 65 20 66 72 6f 6d 20 74 6f 7d   {force from to}
1680: 20 7b 0a 20 20 73 65 74 20 6e 52 65 74 72 79 20   {.  set nRetry 
1690: 5b 67 65 74 46 69 6c 65 52 65 74 72 69 65 73 5d  [getFileRetries]
16a0: 20 20 20 20 20 3b 23 20 4d 61 78 69 6d 75 6d 20       ;# Maximum 
16b0: 6e 75 6d 62 65 72 20 6f 66 20 72 65 74 72 69 65  number of retrie
16c0: 73 2e 0a 20 20 73 65 74 20 6e 44 65 6c 61 79 20  s..  set nDelay 
16d0: 5b 67 65 74 46 69 6c 65 52 65 74 72 79 44 65 6c  [getFileRetryDel
16e0: 61 79 5d 20 20 3b 23 20 44 65 6c 61 79 20 69 6e  ay]  ;# Delay in
16f0: 20 6d 73 20 62 65 66 6f 72 65 20 72 65 74 72 79   ms before retry
1700: 69 6e 67 2e 0a 0a 20 20 23 20 4f 6e 20 77 69 6e  ing...  # On win
1710: 64 6f 77 73 2c 20 73 6f 6d 65 74 69 6d 65 73 20  dows, sometimes 
1720: 65 76 65 6e 20 61 20 5b 66 69 6c 65 20 63 6f 70  even a [file cop
1730: 79 20 2d 66 6f 72 63 65 5d 20 63 61 6e 20 66 61  y -force] can fa
1740: 69 6c 2e 20 54 68 65 20 63 61 75 73 65 20 69 73  il. The cause is
1750: 0a 20 20 23 20 75 73 75 61 6c 6c 79 20 22 74 61  .  # usually "ta
1760: 67 2d 61 6c 6f 6e 67 73 22 20 2d 20 70 72 6f 67  g-alongs" - prog
1770: 72 61 6d 73 20 6c 69 6b 65 20 61 6e 74 69 2d 76  rams like anti-v
1780: 69 72 75 73 20 73 6f 66 74 77 61 72 65 2c 20 61  irus software, a
1790: 75 74 6f 6d 61 74 69 63 20 62 61 63 6b 75 70 0a  utomatic backup.
17a0: 20 20 23 20 74 6f 6f 6c 73 20 61 6e 64 20 76 61    # tools and va
17b0: 72 69 6f 75 73 20 65 78 70 6c 6f 72 65 72 20 65  rious explorer e
17c0: 78 74 65 6e 73 69 6f 6e 73 20 74 68 61 74 20 6b  xtensions that k
17d0: 65 65 70 20 61 20 66 69 6c 65 20 6f 70 65 6e 20  eep a file open 
17e0: 61 20 6c 69 74 74 6c 65 20 6c 6f 6e 67 65 72 0a  a little longer.
17f0: 20 20 23 20 74 68 61 6e 20 77 65 20 65 78 70 65    # than we expe
1800: 63 74 2c 20 63 61 75 73 69 6e 67 20 74 68 65 20  ct, causing the 
1810: 64 65 6c 65 74 65 20 74 6f 20 66 61 69 6c 2e 0a  delete to fail..
1820: 20 20 23 0a 20 20 23 20 54 68 65 20 73 6f 6c 75    #.  # The solu
1830: 74 69 6f 6e 20 69 73 20 74 6f 20 77 61 69 74 20  tion is to wait 
1840: 61 20 73 68 6f 72 74 20 61 6d 6f 75 6e 74 20 6f  a short amount o
1850: 66 20 74 69 6d 65 20 62 65 66 6f 72 65 20 72 65  f time before re
1860: 74 72 79 69 6e 67 20 74 68 65 20 63 6f 70 79 2e  trying the copy.
1870: 0a 20 20 23 0a 20 20 69 66 20 7b 24 6e 52 65 74  .  #.  if {$nRet
1880: 72 79 20 3e 20 30 7d 20 7b 0a 20 20 20 20 66 6f  ry > 0} {.    fo
1890: 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 3c  r {set i 0} {$i<
18a0: 24 6e 52 65 74 72 79 7d 20 7b 69 6e 63 72 20 69  $nRetry} {incr i
18b0: 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 72 63  } {.      set rc
18c0: 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 20 20   [catch {.      
18d0: 20 20 69 66 20 7b 24 66 6f 72 63 65 7d 20 7b 0a    if {$force} {.
18e0: 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 20 63            file c
18f0: 6f 70 79 20 2d 66 6f 72 63 65 20 24 66 72 6f 6d  opy -force $from
1900: 20 24 74 6f 0a 20 20 20 20 20 20 20 20 7d 20 65   $to.        } e
1910: 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 20 20  lse {.          
1920: 66 69 6c 65 20 63 6f 70 79 20 24 66 72 6f 6d 20  file copy $from 
1930: 24 74 6f 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  $to.        }.  
1940: 20 20 20 20 7d 20 6d 73 67 5d 0a 20 20 20 20 20      } msg].     
1950: 20 69 66 20 7b 24 72 63 3d 3d 30 7d 20 62 72 65   if {$rc==0} bre
1960: 61 6b 0a 20 20 20 20 20 20 69 66 20 7b 24 6e 44  ak.      if {$nD
1970: 65 6c 61 79 20 3e 20 30 7d 20 7b 20 61 66 74 65  elay > 0} { afte
1980: 72 20 24 6e 44 65 6c 61 79 20 7d 0a 20 20 20 20  r $nDelay }.    
1990: 7d 0a 20 20 20 20 69 66 20 7b 24 72 63 7d 20 7b  }.    if {$rc} {
19a0: 20 65 72 72 6f 72 20 24 6d 73 67 20 7d 0a 20 20   error $msg }.  
19b0: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 69 66 20  } else {.    if 
19c0: 7b 24 66 6f 72 63 65 7d 20 7b 0a 20 20 20 20 20  {$force} {.     
19d0: 20 66 69 6c 65 20 63 6f 70 79 20 2d 66 6f 72 63   file copy -forc
19e0: 65 20 24 66 72 6f 6d 20 24 74 6f 0a 20 20 20 20  e $from $to.    
19f0: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 66  } else {.      f
1a00: 69 6c 65 20 63 6f 70 79 20 24 66 72 6f 6d 20 24  ile copy $from $
1a10: 74 6f 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a  to.    }.  }.}..
1a20: 23 20 43 68 65 63 6b 20 69 66 20 61 20 66 69 6c  # Check if a fil
1a30: 65 20 6e 61 6d 65 20 69 73 20 72 65 6c 61 74 69  e name is relati
1a40: 76 65 0a 23 0a 70 72 6f 63 20 69 73 5f 72 65 6c  ve.#.proc is_rel
1a50: 61 74 69 76 65 5f 66 69 6c 65 20 7b 20 66 69 6c  ative_file { fil
1a60: 65 20 7d 20 7b 0a 20 20 72 65 74 75 72 6e 20 5b  e } {.  return [
1a70: 65 78 70 72 20 7b 5b 66 69 6c 65 20 70 61 74 68  expr {[file path
1a80: 74 79 70 65 20 24 66 69 6c 65 5d 20 21 3d 20 22  type $file] != "
1a90: 61 62 73 6f 6c 75 74 65 22 7d 5d 0a 7d 0a 0a 23  absolute"}].}..#
1aa0: 20 49 66 20 74 68 65 20 56 46 53 20 73 75 70 70   If the VFS supp
1ab0: 6f 72 74 73 20 75 73 69 6e 67 20 74 68 65 20 63  orts using the c
1ac0: 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79  urrent directory
1ad0: 2c 20 72 65 74 75 72 6e 73 20 5b 70 77 64 5d 3b  , returns [pwd];
1ae0: 0a 23 20 6f 74 68 65 72 77 69 73 65 2c 20 69 74  .# otherwise, it
1af0: 20 72 65 74 75 72 6e 73 20 6f 6e 6c 79 20 74 68   returns only th
1b00: 65 20 70 72 6f 76 69 64 65 64 20 73 75 66 66 69  e provided suffi
1b10: 78 20 73 74 72 69 6e 67 20 28 77 68 69 63 68 20  x string (which 
1b20: 69 73 0a 23 20 65 6d 70 74 79 20 62 79 20 64 65  is.# empty by de
1b30: 66 61 75 6c 74 29 2e 0a 23 0a 70 72 6f 63 20 74  fault)..#.proc t
1b40: 65 73 74 5f 70 77 64 20 7b 20 61 72 67 73 20 7d  est_pwd { args }
1b50: 20 7b 0a 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74   {.  if {[llengt
1b60: 68 20 24 61 72 67 73 5d 20 3e 20 30 7d 20 7b 0a  h $args] > 0} {.
1b70: 20 20 20 20 73 65 74 20 73 75 66 66 69 78 31 20      set suffix1 
1b80: 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20 30 5d  [lindex $args 0]
1b90: 0a 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74  .    if {[llengt
1ba0: 68 20 24 61 72 67 73 5d 20 3e 20 31 7d 20 7b 0a  h $args] > 1} {.
1bb0: 20 20 20 20 20 20 73 65 74 20 73 75 66 66 69 78        set suffix
1bc0: 32 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20  2 [lindex $args 
1bd0: 31 5d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a  1].    } else {.
1be0: 20 20 20 20 20 20 73 65 74 20 73 75 66 66 69 78        set suffix
1bf0: 32 20 24 73 75 66 66 69 78 31 0a 20 20 20 20 7d  2 $suffix1.    }
1c00: 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20  .  } else {.    
1c10: 73 65 74 20 73 75 66 66 69 78 31 20 22 22 3b 20  set suffix1 ""; 
1c20: 73 65 74 20 73 75 66 66 69 78 32 20 22 22 0a 20  set suffix2 "". 
1c30: 20 7d 0a 20 20 69 66 63 61 70 61 62 6c 65 20 63   }.  ifcapable c
1c40: 75 72 64 69 72 20 7b 0a 20 20 20 20 72 65 74 75  urdir {.    retu
1c50: 72 6e 20 22 5b 67 65 74 5f 70 77 64 5d 24 73 75  rn "[get_pwd]$su
1c60: 66 66 69 78 31 22 0a 20 20 7d 20 65 6c 73 65 20  ffix1".  } else 
1c70: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 24 73 75  {.    return $su
1c80: 66 66 69 78 32 0a 20 20 7d 0a 7d 0a 0a 23 20 44  ffix2.  }.}..# D
1c90: 65 6c 65 74 65 20 61 20 66 69 6c 65 20 6f 72 20  elete a file or 
1ca0: 64 69 72 65 63 74 6f 72 79 0a 23 0a 70 72 6f 63  directory.#.proc
1cb0: 20 64 65 6c 65 74 65 5f 66 69 6c 65 20 7b 61 72   delete_file {ar
1cc0: 67 73 7d 20 7b 0a 20 20 64 6f 5f 64 65 6c 65 74  gs} {.  do_delet
1cd0: 65 5f 66 69 6c 65 20 66 61 6c 73 65 20 7b 2a 7d  e_file false {*}
1ce0: 24 61 72 67 73 0a 7d 0a 0a 70 72 6f 63 20 66 6f  $args.}..proc fo
1cf0: 72 63 65 64 65 6c 65 74 65 20 7b 61 72 67 73 7d  rcedelete {args}
1d00: 20 7b 0a 20 20 64 6f 5f 64 65 6c 65 74 65 5f 66   {.  do_delete_f
1d10: 69 6c 65 20 74 72 75 65 20 7b 2a 7d 24 61 72 67  ile true {*}$arg
1d20: 73 0a 7d 0a 0a 70 72 6f 63 20 64 6f 5f 64 65 6c  s.}..proc do_del
1d30: 65 74 65 5f 66 69 6c 65 20 7b 66 6f 72 63 65 20  ete_file {force 
1d40: 61 72 67 73 7d 20 7b 0a 20 20 73 65 74 20 6e 52  args} {.  set nR
1d50: 65 74 72 79 20 5b 67 65 74 46 69 6c 65 52 65 74  etry [getFileRet
1d60: 72 69 65 73 5d 20 20 20 20 20 3b 23 20 4d 61 78  ries]     ;# Max
1d70: 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 72  imum number of r
1d80: 65 74 72 69 65 73 2e 0a 20 20 73 65 74 20 6e 44  etries..  set nD
1d90: 65 6c 61 79 20 5b 67 65 74 46 69 6c 65 52 65 74  elay [getFileRet
1da0: 72 79 44 65 6c 61 79 5d 20 20 3b 23 20 44 65 6c  ryDelay]  ;# Del
1db0: 61 79 20 69 6e 20 6d 73 20 62 65 66 6f 72 65 20  ay in ms before 
1dc0: 72 65 74 72 79 69 6e 67 2e 0a 0a 20 20 66 6f 72  retrying...  for
1dd0: 65 61 63 68 20 66 69 6c 65 6e 61 6d 65 20 24 61  each filename $a
1de0: 72 67 73 20 7b 0a 20 20 20 20 23 20 4f 6e 20 77  rgs {.    # On w
1df0: 69 6e 64 6f 77 73 2c 20 73 6f 6d 65 74 69 6d 65  indows, sometime
1e00: 73 20 65 76 65 6e 20 61 20 5b 66 69 6c 65 20 64  s even a [file d
1e10: 65 6c 65 74 65 20 2d 66 6f 72 63 65 5d 20 63 61  elete -force] ca
1e20: 6e 20 66 61 69 6c 20 6a 75 73 74 20 61 66 74 65  n fail just afte
1e30: 72 0a 20 20 20 20 23 20 61 20 66 69 6c 65 20 69  r.    # a file i
1e40: 73 20 63 6c 6f 73 65 64 2e 20 54 68 65 20 63 61  s closed. The ca
1e50: 75 73 65 20 69 73 20 75 73 75 61 6c 6c 79 20 22  use is usually "
1e60: 74 61 67 2d 61 6c 6f 6e 67 73 22 20 2d 20 70 72  tag-alongs" - pr
1e70: 6f 67 72 61 6d 73 20 6c 69 6b 65 0a 20 20 20 20  ograms like.    
1e80: 23 20 61 6e 74 69 2d 76 69 72 75 73 20 73 6f 66  # anti-virus sof
1e90: 74 77 61 72 65 2c 20 61 75 74 6f 6d 61 74 69 63  tware, automatic
1ea0: 20 62 61 63 6b 75 70 20 74 6f 6f 6c 73 20 61 6e   backup tools an
1eb0: 64 20 76 61 72 69 6f 75 73 20 65 78 70 6c 6f 72  d various explor
1ec0: 65 72 0a 20 20 20 20 23 20 65 78 74 65 6e 73 69  er.    # extensi
1ed0: 6f 6e 73 20 74 68 61 74 20 6b 65 65 70 20 61 20  ons that keep a 
1ee0: 66 69 6c 65 20 6f 70 65 6e 20 61 20 6c 69 74 74  file open a litt
1ef0: 6c 65 20 6c 6f 6e 67 65 72 20 74 68 61 6e 20 77  le longer than w
1f00: 65 20 65 78 70 65 63 74 2c 20 63 61 75 73 69 6e  e expect, causin
1f10: 67 0a 20 20 20 20 23 20 74 68 65 20 64 65 6c 65  g.    # the dele
1f20: 74 65 20 74 6f 20 66 61 69 6c 2e 0a 20 20 20 20  te to fail..    
1f30: 23 0a 20 20 20 20 23 20 54 68 65 20 73 6f 6c 75  #.    # The solu
1f40: 74 69 6f 6e 20 69 73 20 74 6f 20 77 61 69 74 20  tion is to wait 
1f50: 61 20 73 68 6f 72 74 20 61 6d 6f 75 6e 74 20 6f  a short amount o
1f60: 66 20 74 69 6d 65 20 62 65 66 6f 72 65 20 72 65  f time before re
1f70: 74 72 79 69 6e 67 20 74 68 65 0a 20 20 20 20 23  trying the.    #
1f80: 20 64 65 6c 65 74 65 2e 0a 20 20 20 20 23 0a 20   delete..    #. 
1f90: 20 20 20 69 66 20 7b 24 6e 52 65 74 72 79 20 3e     if {$nRetry >
1fa0: 20 30 7d 20 7b 0a 20 20 20 20 20 20 66 6f 72 20   0} {.      for 
1fb0: 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 3c 24 6e  {set i 0} {$i<$n
1fc0: 52 65 74 72 79 7d 20 7b 69 6e 63 72 20 69 7d 20  Retry} {incr i} 
1fd0: 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 72 63  {.        set rc
1fe0: 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 20 20   [catch {.      
1ff0: 20 20 20 20 69 66 20 7b 24 66 6f 72 63 65 7d 20      if {$force} 
2000: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 69  {.            fi
2010: 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65  le delete -force
2020: 20 24 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20   $filename.     
2030: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20       } else {.  
2040: 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 20 64            file d
2050: 65 6c 65 74 65 20 24 66 69 6c 65 6e 61 6d 65 0a  elete $filename.
2060: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
2070: 20 20 20 20 7d 20 6d 73 67 5d 0a 20 20 20 20 20      } msg].     
2080: 20 20 20 69 66 20 7b 24 72 63 3d 3d 30 7d 20 62     if {$rc==0} b
2090: 72 65 61 6b 0a 20 20 20 20 20 20 20 20 69 66 20  reak.        if 
20a0: 7b 24 6e 44 65 6c 61 79 20 3e 20 30 7d 20 7b 20  {$nDelay > 0} { 
20b0: 61 66 74 65 72 20 24 6e 44 65 6c 61 79 20 7d 0a  after $nDelay }.
20c0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66        }.      if
20d0: 20 7b 24 72 63 7d 20 7b 20 65 72 72 6f 72 20 24   {$rc} { error $
20e0: 6d 73 67 20 7d 0a 20 20 20 20 7d 20 65 6c 73 65  msg }.    } else
20f0: 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 24 66 6f   {.      if {$fo
2100: 72 63 65 7d 20 7b 0a 20 20 20 20 20 20 20 20 66  rce} {.        f
2110: 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63  ile delete -forc
2120: 65 20 24 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20  e $filename.    
2130: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20    } else {.     
2140: 20 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20 24     file delete $
2150: 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 7d  filename.      }
2160: 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 69 66  .    }.  }.}..if
2170: 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72   {$::tcl_platfor
2180: 6d 28 70 6c 61 74 66 6f 72 6d 29 20 65 71 20 22  m(platform) eq "
2190: 77 69 6e 64 6f 77 73 22 7d 20 7b 0a 20 20 70 72  windows"} {.  pr
21a0: 6f 63 20 64 6f 5f 72 65 6d 6f 76 65 5f 77 69 6e  oc do_remove_win
21b0: 33 32 5f 64 69 72 20 7b 61 72 67 73 7d 20 7b 0a  32_dir {args} {.
21c0: 20 20 20 20 73 65 74 20 6e 52 65 74 72 79 20 5b      set nRetry [
21d0: 67 65 74 46 69 6c 65 52 65 74 72 69 65 73 5d 20  getFileRetries] 
21e0: 20 20 20 20 3b 23 20 4d 61 78 69 6d 75 6d 20 6e      ;# Maximum n
21f0: 75 6d 62 65 72 20 6f 66 20 72 65 74 72 69 65 73  umber of retries
2200: 2e 0a 20 20 20 20 73 65 74 20 6e 44 65 6c 61 79  ..    set nDelay
2210: 20 5b 67 65 74 46 69 6c 65 52 65 74 72 79 44 65   [getFileRetryDe
2220: 6c 61 79 5d 20 20 3b 23 20 44 65 6c 61 79 20 69  lay]  ;# Delay i
2230: 6e 20 6d 73 20 62 65 66 6f 72 65 20 72 65 74 72  n ms before retr
2240: 79 69 6e 67 2e 0a 0a 20 20 20 20 66 6f 72 65 61  ying...    forea
2250: 63 68 20 64 69 72 4e 61 6d 65 20 24 61 72 67 73  ch dirName $args
2260: 20 7b 0a 20 20 20 20 20 20 23 20 4f 6e 20 77 69   {.      # On wi
2270: 6e 64 6f 77 73 2c 20 73 6f 6d 65 74 69 6d 65 73  ndows, sometimes
2280: 20 65 76 65 6e 20 61 20 5b 72 65 6d 6f 76 65 5f   even a [remove_
2290: 77 69 6e 33 32 5f 64 69 72 5d 20 63 61 6e 20 66  win32_dir] can f
22a0: 61 69 6c 20 6a 75 73 74 20 61 66 74 65 72 0a 20  ail just after. 
22b0: 20 20 20 20 20 23 20 61 20 64 69 72 65 63 74 6f       # a directo
22c0: 72 79 20 69 73 20 65 6d 70 74 69 65 64 2e 20 54  ry is emptied. T
22d0: 68 65 20 63 61 75 73 65 20 69 73 20 75 73 75 61  he cause is usua
22e0: 6c 6c 79 20 22 74 61 67 2d 61 6c 6f 6e 67 73 22  lly "tag-alongs"
22f0: 20 2d 20 70 72 6f 67 72 61 6d 73 0a 20 20 20 20   - programs.    
2300: 20 20 23 20 6c 69 6b 65 20 61 6e 74 69 2d 76 69    # like anti-vi
2310: 72 75 73 20 73 6f 66 74 77 61 72 65 2c 20 61 75  rus software, au
2320: 74 6f 6d 61 74 69 63 20 62 61 63 6b 75 70 20 74  tomatic backup t
2330: 6f 6f 6c 73 20 61 6e 64 20 76 61 72 69 6f 75 73  ools and various
2340: 20 65 78 70 6c 6f 72 65 72 0a 20 20 20 20 20 20   explorer.      
2350: 23 20 65 78 74 65 6e 73 69 6f 6e 73 20 74 68 61  # extensions tha
2360: 74 20 6b 65 65 70 20 61 20 66 69 6c 65 20 6f 70  t keep a file op
2370: 65 6e 20 61 20 6c 69 74 74 6c 65 20 6c 6f 6e 67  en a little long
2380: 65 72 20 74 68 61 6e 20 77 65 20 65 78 70 65 63  er than we expec
2390: 74 2c 0a 20 20 20 20 20 20 23 20 63 61 75 73 69  t,.      # causi
23a0: 6e 67 20 74 68 65 20 64 65 6c 65 74 65 20 74 6f  ng the delete to
23b0: 20 66 61 69 6c 2e 0a 20 20 20 20 20 20 23 0a 20   fail..      #. 
23c0: 20 20 20 20 20 23 20 54 68 65 20 73 6f 6c 75 74       # The solut
23d0: 69 6f 6e 20 69 73 20 74 6f 20 77 61 69 74 20 61  ion is to wait a
23e0: 20 73 68 6f 72 74 20 61 6d 6f 75 6e 74 20 6f 66   short amount of
23f0: 20 74 69 6d 65 20 62 65 66 6f 72 65 20 72 65 74   time before ret
2400: 72 79 69 6e 67 20 74 68 65 0a 20 20 20 20 20 20  rying the.      
2410: 23 20 72 65 6d 6f 76 61 6c 2e 0a 20 20 20 20 20  # removal..     
2420: 20 23 0a 20 20 20 20 20 20 69 66 20 7b 24 6e 52   #.      if {$nR
2430: 65 74 72 79 20 3e 20 30 7d 20 7b 0a 20 20 20 20  etry > 0} {.    
2440: 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69 20 30      for {set i 0
2450: 7d 20 7b 24 69 20 3c 20 24 6e 52 65 74 72 79 7d  } {$i < $nRetry}
2460: 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20   {incr i} {.    
2470: 20 20 20 20 20 20 73 65 74 20 72 63 20 5b 63 61        set rc [ca
2480: 74 63 68 20 7b 0a 20 20 20 20 20 20 20 20 20 20  tch {.          
2490: 20 20 72 65 6d 6f 76 65 5f 77 69 6e 33 32 5f 64    remove_win32_d
24a0: 69 72 20 24 64 69 72 4e 61 6d 65 0a 20 20 20 20  ir $dirName.    
24b0: 20 20 20 20 20 20 7d 20 6d 73 67 5d 0a 20 20 20        } msg].   
24c0: 20 20 20 20 20 20 20 69 66 20 7b 24 72 63 20 3d         if {$rc =
24d0: 3d 20 30 7d 20 62 72 65 61 6b 0a 20 20 20 20 20  = 0} break.     
24e0: 20 20 20 20 20 69 66 20 7b 24 6e 44 65 6c 61 79       if {$nDelay
24f0: 20 3e 20 30 7d 20 7b 20 61 66 74 65 72 20 24 6e   > 0} { after $n
2500: 44 65 6c 61 79 20 7d 0a 20 20 20 20 20 20 20 20  Delay }.        
2510: 7d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 24 72  }.        if {$r
2520: 63 7d 20 7b 20 65 72 72 6f 72 20 24 6d 73 67 20  c} { error $msg 
2530: 7d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b  }.      } else {
2540: 0a 20 20 20 20 20 20 20 20 72 65 6d 6f 76 65 5f  .        remove_
2550: 77 69 6e 33 32 5f 64 69 72 20 24 64 69 72 4e 61  win32_dir $dirNa
2560: 6d 65 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d  me.      }.    }
2570: 0a 20 20 7d 0a 0a 20 20 70 72 6f 63 20 64 6f 5f  .  }..  proc do_
2580: 64 65 6c 65 74 65 5f 77 69 6e 33 32 5f 66 69 6c  delete_win32_fil
2590: 65 20 7b 61 72 67 73 7d 20 7b 0a 20 20 20 20 73  e {args} {.    s
25a0: 65 74 20 6e 52 65 74 72 79 20 5b 67 65 74 46 69  et nRetry [getFi
25b0: 6c 65 52 65 74 72 69 65 73 5d 20 20 20 20 20 3b  leRetries]     ;
25c0: 23 20 4d 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72  # Maximum number
25d0: 20 6f 66 20 72 65 74 72 69 65 73 2e 0a 20 20 20   of retries..   
25e0: 20 73 65 74 20 6e 44 65 6c 61 79 20 5b 67 65 74   set nDelay [get
25f0: 46 69 6c 65 52 65 74 72 79 44 65 6c 61 79 5d 20  FileRetryDelay] 
2600: 20 3b 23 20 44 65 6c 61 79 20 69 6e 20 6d 73 20   ;# Delay in ms 
2610: 62 65 66 6f 72 65 20 72 65 74 72 79 69 6e 67 2e  before retrying.
2620: 0a 0a 20 20 20 20 66 6f 72 65 61 63 68 20 66 69  ..    foreach fi
2630: 6c 65 4e 61 6d 65 20 24 61 72 67 73 20 7b 0a 20  leName $args {. 
2640: 20 20 20 20 20 23 20 4f 6e 20 77 69 6e 64 6f 77       # On window
2650: 73 2c 20 73 6f 6d 65 74 69 6d 65 73 20 65 76 65  s, sometimes eve
2660: 6e 20 61 20 5b 64 65 6c 65 74 65 5f 77 69 6e 33  n a [delete_win3
2670: 32 5f 66 69 6c 65 5d 20 63 61 6e 20 66 61 69 6c  2_file] can fail
2680: 20 6a 75 73 74 20 61 66 74 65 72 0a 20 20 20 20   just after.    
2690: 20 20 23 20 61 20 66 69 6c 65 20 69 73 20 63 6c    # a file is cl
26a0: 6f 73 65 64 2e 20 54 68 65 20 63 61 75 73 65 20  osed. The cause 
26b0: 69 73 20 75 73 75 61 6c 6c 79 20 22 74 61 67 2d  is usually "tag-
26c0: 61 6c 6f 6e 67 73 22 20 2d 20 70 72 6f 67 72 61  alongs" - progra
26d0: 6d 73 20 6c 69 6b 65 0a 20 20 20 20 20 20 23 20  ms like.      # 
26e0: 61 6e 74 69 2d 76 69 72 75 73 20 73 6f 66 74 77  anti-virus softw
26f0: 61 72 65 2c 20 61 75 74 6f 6d 61 74 69 63 20 62  are, automatic b
2700: 61 63 6b 75 70 20 74 6f 6f 6c 73 20 61 6e 64 20  ackup tools and 
2710: 76 61 72 69 6f 75 73 20 65 78 70 6c 6f 72 65 72  various explorer
2720: 0a 20 20 20 20 20 20 23 20 65 78 74 65 6e 73 69  .      # extensi
2730: 6f 6e 73 20 74 68 61 74 20 6b 65 65 70 20 61 20  ons that keep a 
2740: 66 69 6c 65 20 6f 70 65 6e 20 61 20 6c 69 74 74  file open a litt
2750: 6c 65 20 6c 6f 6e 67 65 72 20 74 68 61 6e 20 77  le longer than w
2760: 65 20 65 78 70 65 63 74 2c 0a 20 20 20 20 20 20  e expect,.      
2770: 23 20 63 61 75 73 69 6e 67 20 74 68 65 20 64 65  # causing the de
2780: 6c 65 74 65 20 74 6f 20 66 61 69 6c 2e 0a 20 20  lete to fail..  
2790: 20 20 20 20 23 0a 20 20 20 20 20 20 23 20 54 68      #.      # Th
27a0: 65 20 73 6f 6c 75 74 69 6f 6e 20 69 73 20 74 6f  e solution is to
27b0: 20 77 61 69 74 20 61 20 73 68 6f 72 74 20 61 6d   wait a short am
27c0: 6f 75 6e 74 20 6f 66 20 74 69 6d 65 20 62 65 66  ount of time bef
27d0: 6f 72 65 20 72 65 74 72 79 69 6e 67 20 74 68 65  ore retrying the
27e0: 0a 20 20 20 20 20 20 23 20 64 65 6c 65 74 65 2e  .      # delete.
27f0: 0a 20 20 20 20 20 20 23 0a 20 20 20 20 20 20 69  .      #.      i
2800: 66 20 7b 24 6e 52 65 74 72 79 20 3e 20 30 7d 20  f {$nRetry > 0} 
2810: 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 20 7b 73  {.        for {s
2820: 65 74 20 69 20 30 7d 20 7b 24 69 20 3c 20 24 6e  et i 0} {$i < $n
2830: 52 65 74 72 79 7d 20 7b 69 6e 63 72 20 69 7d 20  Retry} {incr i} 
2840: 7b 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20  {.          set 
2850: 72 63 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20  rc [catch {.    
2860: 20 20 20 20 20 20 20 20 64 65 6c 65 74 65 5f 77          delete_w
2870: 69 6e 33 32 5f 66 69 6c 65 20 24 66 69 6c 65 4e  in32_file $fileN
2880: 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 7d 20  ame.          } 
2890: 6d 73 67 5d 0a 20 20 20 20 20 20 20 20 20 20 69  msg].          i
28a0: 66 20 7b 24 72 63 20 3d 3d 20 30 7d 20 62 72 65  f {$rc == 0} bre
28b0: 61 6b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20  ak.          if 
28c0: 7b 24 6e 44 65 6c 61 79 20 3e 20 30 7d 20 7b 20  {$nDelay > 0} { 
28d0: 61 66 74 65 72 20 24 6e 44 65 6c 61 79 20 7d 0a  after $nDelay }.
28e0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
28f0: 20 20 69 66 20 7b 24 72 63 7d 20 7b 20 65 72 72    if {$rc} { err
2900: 6f 72 20 24 6d 73 67 20 7d 0a 20 20 20 20 20 20  or $msg }.      
2910: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20  } else {.       
2920: 20 64 65 6c 65 74 65 5f 77 69 6e 33 32 5f 66 69   delete_win32_fi
2930: 6c 65 20 24 66 69 6c 65 4e 61 6d 65 0a 20 20 20  le $fileName.   
2940: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d     }.    }.  }.}
2950: 0a 0a 70 72 6f 63 20 65 78 65 63 70 72 65 73 71  ..proc execpresq
2960: 6c 20 7b 68 61 6e 64 6c 65 20 61 72 67 73 7d 20  l {handle args} 
2970: 7b 0a 20 20 74 72 61 63 65 20 72 65 6d 6f 76 65  {.  trace remove
2980: 20 65 78 65 63 75 74 69 6f 6e 20 24 68 61 6e 64   execution $hand
2990: 6c 65 20 65 6e 74 65 72 20 5b 6c 69 73 74 20 65  le enter [list e
29a0: 78 65 63 70 72 65 73 71 6c 20 24 68 61 6e 64 6c  xecpresql $handl
29b0: 65 5d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65  e].  if {[info e
29c0: 78 69 73 74 73 20 3a 3a 47 28 70 65 72 6d 3a 70  xists ::G(perm:p
29d0: 72 65 73 71 6c 29 5d 7d 20 7b 0a 20 20 20 20 24  resql)]} {.    $
29e0: 68 61 6e 64 6c 65 20 65 76 61 6c 20 24 3a 3a 47  handle eval $::G
29f0: 28 70 65 72 6d 3a 70 72 65 73 71 6c 29 0a 20 20  (perm:presql).  
2a00: 7d 0a 7d 0a 0a 23 20 54 68 69 73 20 63 6f 6d 6d  }.}..# This comm
2a10: 61 6e 64 20 73 68 6f 75 6c 64 20 62 65 20 63 61  and should be ca
2a20: 6c 6c 65 64 20 61 66 74 65 72 20 6c 6f 61 64 69  lled after loadi
2a30: 6e 67 20 74 65 73 74 65 72 2e 74 63 6c 20 66 72  ng tester.tcl fr
2a40: 6f 6d 20 77 69 74 68 69 6e 0a 23 20 61 6c 6c 20  om within.# all 
2a50: 74 65 73 74 20 73 63 72 69 70 74 73 20 74 68 61  test scripts tha
2a60: 74 20 61 72 65 20 69 6e 63 6f 6d 70 61 74 69 62  t are incompatib
2a70: 6c 65 20 77 69 74 68 20 65 6e 63 72 79 70 74 69  le with encrypti
2a80: 6f 6e 20 63 6f 64 65 63 73 2e 0a 23 0a 70 72 6f  on codecs..#.pro
2a90: 63 20 64 6f 5f 6e 6f 74 5f 75 73 65 5f 63 6f 64  c do_not_use_cod
2aa0: 65 63 20 7b 7d 20 7b 0a 20 20 73 65 74 20 3a 3a  ec {} {.  set ::
2ab0: 64 6f 5f 6e 6f 74 5f 75 73 65 5f 63 6f 64 65 63  do_not_use_codec
2ac0: 20 31 0a 20 20 72 65 73 65 74 5f 64 62 0a 7d 0a   1.  reset_db.}.
2ad0: 0a 23 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67  .# The following
2ae0: 20 62 6c 6f 63 6b 20 6f 6e 6c 79 20 72 75 6e 73   block only runs
2af0: 20 74 68 65 20 66 69 72 73 74 20 74 69 6d 65 20   the first time 
2b00: 74 68 69 73 20 66 69 6c 65 20 69 73 20 73 6f 75  this file is sou
2b10: 72 63 65 64 2e 20 49 74 0a 23 20 64 6f 65 73 20  rced. It.# does 
2b20: 6e 6f 74 20 72 75 6e 20 69 6e 20 73 6c 61 76 65  not run in slave
2b30: 20 69 6e 74 65 72 70 72 65 74 65 72 73 20 28 73   interpreters (s
2b40: 69 6e 63 65 20 74 68 65 20 3a 3a 63 6d 64 6c 69  ince the ::cmdli
2b50: 6e 65 61 72 67 20 61 72 72 61 79 20 69 73 0a 23  nearg array is.#
2b60: 20 70 6f 70 75 6c 61 74 65 64 20 62 65 66 6f 72   populated befor
2b70: 65 20 74 68 65 20 74 65 73 74 20 73 63 72 69 70  e the test scrip
2b80: 74 20 69 73 20 72 75 6e 20 69 6e 20 73 6c 61 76  t is run in slav
2b90: 65 20 69 6e 74 65 72 70 72 65 74 65 72 73 29 2e  e interpreters).
2ba0: 0a 23 0a 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  .#.if {[info exi
2bb0: 73 74 73 20 63 6d 64 6c 69 6e 65 61 72 67 5d 3d  sts cmdlinearg]=
2bc0: 3d 30 7d 20 7b 0a 0a 20 20 23 20 50 61 72 73 65  =0} {..  # Parse
2bd0: 20 61 6e 79 20 6f 70 74 69 6f 6e 73 20 73 70 65   any options spe
2be0: 63 69 66 69 65 64 20 69 6e 20 74 68 65 20 24 61  cified in the $a
2bf0: 72 67 76 20 61 72 72 61 79 2e 20 54 68 69 73 20  rgv array. This 
2c00: 73 63 72 69 70 74 20 61 63 63 65 70 74 73 20 74  script accepts t
2c10: 68 65 0a 20 20 23 20 66 6f 6c 6c 6f 77 69 6e 67  he.  # following
2c20: 20 6f 70 74 69 6f 6e 73 3a 0a 20 20 23 0a 20 20   options:.  #.  
2c30: 23 20 20 20 2d 2d 70 61 75 73 65 0a 20 20 23 20  #   --pause.  # 
2c40: 20 20 2d 2d 73 6f 66 74 2d 68 65 61 70 2d 6c 69    --soft-heap-li
2c50: 6d 69 74 3d 4e 4e 0a 20 20 23 20 20 20 2d 2d 6d  mit=NN.  #   --m
2c60: 61 78 65 72 72 6f 72 3d 4e 4e 0a 20 20 23 20 20  axerror=NN.  #  
2c70: 20 2d 2d 6d 61 6c 6c 6f 63 74 72 61 63 65 3d 4e   --malloctrace=N
2c80: 0a 20 20 23 20 20 20 2d 2d 62 61 63 6b 74 72 61  .  #   --backtra
2c90: 63 65 3d 4e 0a 20 20 23 20 20 20 2d 2d 62 69 6e  ce=N.  #   --bin
2ca0: 61 72 79 6c 6f 67 3d 4e 0a 20 20 23 20 20 20 2d  arylog=N.  #   -
2cb0: 2d 73 6f 61 6b 3d 4e 0a 20 20 23 20 20 20 2d 2d  -soak=N.  #   --
2cc0: 66 69 6c 65 2d 72 65 74 72 69 65 73 3d 4e 0a 20  file-retries=N. 
2cd0: 20 23 20 20 20 2d 2d 66 69 6c 65 2d 72 65 74 72   #   --file-retr
2ce0: 79 2d 64 65 6c 61 79 3d 4e 0a 20 20 23 20 20 20  y-delay=N.  #   
2cf0: 2d 2d 73 74 61 72 74 3d 5b 24 70 65 72 6d 75 74  --start=[$permut
2d00: 61 74 69 6f 6e 3a 5d 24 74 65 73 74 66 69 6c 65  ation:]$testfile
2d10: 0a 20 20 23 20 20 20 2d 2d 6d 61 74 63 68 3d 24  .  #   --match=$
2d20: 70 61 74 74 65 72 6e 0a 20 20 23 0a 20 20 73 65  pattern.  #.  se
2d30: 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 73 6f 66  t cmdlinearg(sof
2d40: 74 2d 68 65 61 70 2d 6c 69 6d 69 74 29 20 20 20  t-heap-limit)   
2d50: 20 30 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e 65   0.  set cmdline
2d60: 61 72 67 28 6d 61 78 65 72 72 6f 72 29 20 20 20  arg(maxerror)   
2d70: 20 20 20 20 20 31 30 30 30 0a 20 20 73 65 74 20       1000.  set 
2d80: 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 6c 6c 6f  cmdlinearg(mallo
2d90: 63 74 72 61 63 65 29 20 20 20 20 20 20 20 20 30  ctrace)        0
2da0: 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72  .  set cmdlinear
2db0: 67 28 62 61 63 6b 74 72 61 63 65 29 20 20 20 20  g(backtrace)    
2dc0: 20 20 20 20 20 31 30 0a 20 20 73 65 74 20 63 6d       10.  set cm
2dd0: 64 6c 69 6e 65 61 72 67 28 62 69 6e 61 72 79 6c  dlinearg(binaryl
2de0: 6f 67 29 20 20 20 20 20 20 20 20 20 20 30 0a 20  og)          0. 
2df0: 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 28   set cmdlinearg(
2e00: 73 6f 61 6b 29 20 20 20 20 20 20 20 20 20 20 20  soak)           
2e10: 20 20 20 20 30 0a 20 20 73 65 74 20 63 6d 64 6c      0.  set cmdl
2e20: 69 6e 65 61 72 67 28 66 69 6c 65 2d 72 65 74 72  inearg(file-retr
2e30: 69 65 73 29 20 20 20 20 20 20 20 30 0a 20 20 73  ies)       0.  s
2e40: 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 66 69  et cmdlinearg(fi
2e50: 6c 65 2d 72 65 74 72 79 2d 64 65 6c 61 79 29 20  le-retry-delay) 
2e60: 20 20 30 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e    0.  set cmdlin
2e70: 65 61 72 67 28 73 74 61 72 74 29 20 20 20 20 20  earg(start)     
2e80: 20 20 20 20 20 20 20 20 22 22 0a 20 20 73 65 74          "".  set
2e90: 20 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 74 63   cmdlinearg(matc
2ea0: 68 29 20 20 20 20 20 20 20 20 20 20 20 20 20 22  h)             "
2eb0: 22 0a 0a 20 20 73 65 74 20 6c 65 66 74 6f 76 65  "..  set leftove
2ec0: 72 20 5b 6c 69 73 74 5d 0a 20 20 66 6f 72 65 61  r [list].  forea
2ed0: 63 68 20 61 20 24 61 72 67 76 20 7b 0a 20 20 20  ch a $argv {.   
2ee0: 20 73 77 69 74 63 68 20 2d 72 65 67 65 78 70 20   switch -regexp 
2ef0: 2d 2d 20 24 61 20 7b 0a 20 20 20 20 20 20 7b 5e  -- $a {.      {^
2f00: 2d 2b 70 61 75 73 65 24 7d 20 7b 0a 20 20 20 20  -+pause$} {.    
2f10: 20 20 20 20 23 20 57 61 69 74 20 66 6f 72 20 75      # Wait for u
2f20: 73 65 72 20 69 6e 70 75 74 20 62 65 66 6f 72 65  ser input before
2f30: 20 63 6f 6e 74 69 6e 75 69 6e 67 2e 20 54 68 69   continuing. Thi
2f40: 73 20 69 73 20 74 6f 20 67 69 76 65 20 74 68 65  s is to give the
2f50: 20 75 73 65 72 20 61 6e 0a 20 20 20 20 20 20 20   user an.       
2f60: 20 23 20 6f 70 70 6f 72 74 75 6e 69 74 79 20 74   # opportunity t
2f70: 6f 20 63 6f 6e 6e 65 63 74 20 70 72 6f 66 69 6c  o connect profil
2f80: 69 6e 67 20 74 6f 6f 6c 73 20 74 6f 20 74 68 65  ing tools to the
2f90: 20 70 72 6f 63 65 73 73 2e 0a 20 20 20 20 20 20   process..      
2fa0: 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e    puts -nonewlin
2fb0: 65 20 22 50 72 65 73 73 20 52 45 54 55 52 4e 20  e "Press RETURN 
2fc0: 74 6f 20 62 65 67 69 6e 2e 2e 2e 22 0a 20 20 20  to begin...".   
2fd0: 20 20 20 20 20 66 6c 75 73 68 20 73 74 64 6f 75       flush stdou
2fe0: 74 0a 20 20 20 20 20 20 20 20 67 65 74 73 20 73  t.        gets s
2ff0: 74 64 69 6e 0a 20 20 20 20 20 20 7d 0a 20 20 20  tdin.      }.   
3000: 20 20 20 7b 5e 2d 2b 73 6f 66 74 2d 68 65 61 70     {^-+soft-heap
3010: 2d 6c 69 6d 69 74 3d 2e 2b 24 7d 20 7b 0a 20 20  -limit=.+$} {.  
3020: 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64        foreach {d
3030: 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28  ummy cmdlinearg(
3040: 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74 29  soft-heap-limit)
3050: 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20 62  } [split $a =] b
3060: 72 65 61 6b 0a 20 20 20 20 20 20 7d 0a 20 20 20  reak.      }.   
3070: 20 20 20 7b 5e 2d 2b 6d 61 78 65 72 72 6f 72 3d     {^-+maxerror=
3080: 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20 20 66  .+$} {.        f
3090: 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79 20 63 6d  oreach {dummy cm
30a0: 64 6c 69 6e 65 61 72 67 28 6d 61 78 65 72 72 6f  dlinearg(maxerro
30b0: 72 29 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d  r)} [split $a =]
30c0: 20 62 72 65 61 6b 0a 20 20 20 20 20 20 7d 0a 20   break.      }. 
30d0: 20 20 20 20 20 7b 5e 2d 2b 6d 61 6c 6c 6f 63 74       {^-+malloct
30e0: 72 61 63 65 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20  race=.+$} {.    
30f0: 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64 75 6d      foreach {dum
3100: 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61  my cmdlinearg(ma
3110: 6c 6c 6f 63 74 72 61 63 65 29 7d 20 5b 73 70 6c  lloctrace)} [spl
3120: 69 74 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20  it $a =] break. 
3130: 20 20 20 20 20 20 20 69 66 20 7b 24 63 6d 64 6c         if {$cmdl
3140: 69 6e 65 61 72 67 28 6d 61 6c 6c 6f 63 74 72 61  inearg(malloctra
3150: 63 65 29 7d 20 7b 0a 20 20 20 20 20 20 20 20 20  ce)} {.         
3160: 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75   sqlite3_memdebu
3170: 67 5f 6c 6f 67 20 73 74 61 72 74 0a 20 20 20 20  g_log start.    
3180: 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20      }.      }.  
3190: 20 20 20 20 7b 5e 2d 2b 62 61 63 6b 74 72 61 63      {^-+backtrac
31a0: 65 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20  e=.+$} {.       
31b0: 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79 20   foreach {dummy 
31c0: 63 6d 64 6c 69 6e 65 61 72 67 28 62 61 63 6b 74  cmdlinearg(backt
31d0: 72 61 63 65 29 7d 20 5b 73 70 6c 69 74 20 24 61  race)} [split $a
31e0: 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20 20 20   =] break.      
31f0: 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62    sqlite3_memdeb
3200: 75 67 5f 62 61 63 6b 74 72 61 63 65 20 24 76 61  ug_backtrace $va
3210: 6c 75 65 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  lue.      }.    
3220: 20 20 7b 5e 2d 2b 62 69 6e 61 72 79 6c 6f 67 3d    {^-+binarylog=
3230: 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20 20 66  .+$} {.        f
3240: 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79 20 63 6d  oreach {dummy cm
3250: 64 6c 69 6e 65 61 72 67 28 62 69 6e 61 72 79 6c  dlinearg(binaryl
3260: 6f 67 29 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d  og)} [split $a =
3270: 5d 20 62 72 65 61 6b 0a 20 20 20 20 20 20 7d 0a  ] break.      }.
3280: 20 20 20 20 20 20 7b 5e 2d 2b 73 6f 61 6b 3d 2e        {^-+soak=.
3290: 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20 20 66 6f  +$} {.        fo
32a0: 72 65 61 63 68 20 7b 64 75 6d 6d 79 20 63 6d 64  reach {dummy cmd
32b0: 6c 69 6e 65 61 72 67 28 73 6f 61 6b 29 7d 20 5b  linearg(soak)} [
32c0: 73 70 6c 69 74 20 24 61 20 3d 5d 20 62 72 65 61  split $a =] brea
32d0: 6b 0a 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a  k.        set ::
32e0: 47 28 69 73 73 6f 61 6b 29 20 24 63 6d 64 6c 69  G(issoak) $cmdli
32f0: 6e 65 61 72 67 28 73 6f 61 6b 29 0a 20 20 20 20  nearg(soak).    
3300: 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 66 69    }.      {^-+fi
3310: 6c 65 2d 72 65 74 72 69 65 73 3d 2e 2b 24 7d 20  le-retries=.+$} 
3320: 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61 63  {.        foreac
3330: 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65  h {dummy cmdline
3340: 61 72 67 28 66 69 6c 65 2d 72 65 74 72 69 65 73  arg(file-retries
3350: 29 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20  )} [split $a =] 
3360: 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 73 65  break.        se
3370: 74 20 3a 3a 47 28 66 69 6c 65 2d 72 65 74 72 69  t ::G(file-retri
3380: 65 73 29 20 24 63 6d 64 6c 69 6e 65 61 72 67 28  es) $cmdlinearg(
3390: 66 69 6c 65 2d 72 65 74 72 69 65 73 29 0a 20 20  file-retries).  
33a0: 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b      }.      {^-+
33b0: 66 69 6c 65 2d 72 65 74 72 79 2d 64 65 6c 61 79  file-retry-delay
33c0: 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20 20  =.+$} {.        
33d0: 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79 20 63  foreach {dummy c
33e0: 6d 64 6c 69 6e 65 61 72 67 28 66 69 6c 65 2d 72  mdlinearg(file-r
33f0: 65 74 72 79 2d 64 65 6c 61 79 29 7d 20 5b 73 70  etry-delay)} [sp
3400: 6c 69 74 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a  lit $a =] break.
3410: 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 47 28          set ::G(
3420: 66 69 6c 65 2d 72 65 74 72 79 2d 64 65 6c 61 79  file-retry-delay
3430: 29 20 24 63 6d 64 6c 69 6e 65 61 72 67 28 66 69  ) $cmdlinearg(fi
3440: 6c 65 2d 72 65 74 72 79 2d 64 65 6c 61 79 29 0a  le-retry-delay).
3450: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e        }.      {^
3460: 2d 2b 73 74 61 72 74 3d 2e 2b 24 7d 20 7b 0a 20  -+start=.+$} {. 
3470: 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b         foreach {
3480: 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67  dummy cmdlinearg
3490: 28 73 74 61 72 74 29 7d 20 5b 73 70 6c 69 74 20  (start)} [split 
34a0: 24 61 20 3d 5d 20 62 72 65 61 6b 0a 0a 20 20 20  $a =] break..   
34b0: 20 20 20 20 20 73 65 74 20 3a 3a 47 28 73 74 61       set ::G(sta
34c0: 72 74 3a 66 69 6c 65 29 20 24 63 6d 64 6c 69 6e  rt:file) $cmdlin
34d0: 65 61 72 67 28 73 74 61 72 74 29 0a 20 20 20 20  earg(start).    
34e0: 20 20 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20      if {[regexp 
34f0: 7b 28 2e 2a 29 3a 28 2e 2a 29 7d 20 24 63 6d 64  {(.*):(.*)} $cmd
3500: 6c 69 6e 65 61 72 67 28 73 74 61 72 74 29 20 2d  linearg(start) -
3510: 3e 20 73 2e 70 65 72 6d 20 73 2e 66 69 6c 65 5d  > s.perm s.file]
3520: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 73 65  } {.          se
3530: 74 20 3a 3a 47 28 73 74 61 72 74 3a 70 65 72 6d  t ::G(start:perm
3540: 75 74 61 74 69 6f 6e 29 20 24 7b 73 2e 70 65 72  utation) ${s.per
3550: 6d 7d 0a 20 20 20 20 20 20 20 20 20 20 73 65 74  m}.          set
3560: 20 3a 3a 47 28 73 74 61 72 74 3a 66 69 6c 65 29   ::G(start:file)
3570: 20 20 20 20 20 20 20 20 24 7b 73 2e 66 69 6c 65          ${s.file
3580: 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  }.        }.    
3590: 20 20 20 20 69 66 20 7b 24 3a 3a 47 28 73 74 61      if {$::G(sta
35a0: 72 74 3a 66 69 6c 65 29 20 3d 3d 20 22 22 7d 20  rt:file) == ""} 
35b0: 7b 75 6e 73 65 74 20 3a 3a 47 28 73 74 61 72 74  {unset ::G(start
35c0: 3a 66 69 6c 65 29 7d 0a 20 20 20 20 20 20 7d 0a  :file)}.      }.
35d0: 20 20 20 20 20 20 7b 5e 2d 2b 6d 61 74 63 68 3d        {^-+match=
35e0: 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20 20 66  .+$} {.        f
35f0: 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79 20 63 6d  oreach {dummy cm
3600: 64 6c 69 6e 65 61 72 67 28 6d 61 74 63 68 29 7d  dlinearg(match)}
3610: 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20 62 72   [split $a =] br
3620: 65 61 6b 0a 0a 20 20 20 20 20 20 20 20 73 65 74  eak..        set
3630: 20 3a 3a 47 28 6d 61 74 63 68 29 20 24 63 6d 64   ::G(match) $cmd
3640: 6c 69 6e 65 61 72 67 28 6d 61 74 63 68 29 0a 20  linearg(match). 
3650: 20 20 20 20 20 20 20 69 66 20 7b 24 3a 3a 47 28         if {$::G(
3660: 6d 61 74 63 68 29 20 3d 3d 20 22 22 7d 20 7b 75  match) == ""} {u
3670: 6e 73 65 74 20 3a 3a 47 28 6d 61 74 63 68 29 7d  nset ::G(match)}
3680: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 64  .      }.      d
3690: 65 66 61 75 6c 74 20 7b 0a 20 20 20 20 20 20 20  efault {.       
36a0: 20 6c 61 70 70 65 6e 64 20 6c 65 66 74 6f 76 65   lappend leftove
36b0: 72 20 24 61 0a 20 20 20 20 20 20 7d 0a 20 20 20  r $a.      }.   
36c0: 20 7d 0a 20 20 7d 0a 20 20 73 65 74 20 61 72 67   }.  }.  set arg
36d0: 76 20 24 6c 65 66 74 6f 76 65 72 0a 0a 20 20 23  v $leftover..  #
36e0: 20 49 6e 73 74 61 6c 6c 20 74 68 65 20 6d 61 6c   Install the mal
36f0: 6c 6f 63 20 6c 61 79 65 72 20 75 73 65 64 20 74  loc layer used t
3700: 6f 20 69 6e 6a 65 63 74 20 4f 4f 4d 20 65 72 72  o inject OOM err
3710: 6f 72 73 2e 20 41 6e 64 20 74 68 65 20 27 61 75  ors. And the 'au
3720: 74 6f 6d 61 74 69 63 27 0a 20 20 23 20 65 78 74  tomatic'.  # ext
3730: 65 6e 73 69 6f 6e 73 2e 20 54 68 69 73 20 6f 6e  ensions. This on
3740: 6c 79 20 6e 65 65 64 73 20 74 6f 20 62 65 20 64  ly needs to be d
3750: 6f 6e 65 20 6f 6e 63 65 20 66 6f 72 20 74 68 65  one once for the
3760: 20 70 72 6f 63 65 73 73 2e 0a 20 20 23 0a 20 20   process..  #.  
3770: 73 71 6c 69 74 65 33 5f 73 68 75 74 64 6f 77 6e  sqlite3_shutdown
3780: 0a 20 20 69 6e 73 74 61 6c 6c 5f 6d 61 6c 6c 6f  .  install_mallo
3790: 63 5f 66 61 75 6c 74 73 69 6d 20 31 0a 20 20 73  c_faultsim 1.  s
37a0: 71 6c 69 74 65 33 5f 69 6e 69 74 69 61 6c 69 7a  qlite3_initializ
37b0: 65 0a 20 20 61 75 74 6f 69 6e 73 74 61 6c 6c 5f  e.  autoinstall_
37c0: 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 73 0a 0a  test_functions..
37d0: 20 20 23 20 49 66 20 74 68 65 20 2d 2d 62 69 6e    # If the --bin
37e0: 61 72 79 6c 6f 67 20 6f 70 74 69 6f 6e 20 77 61  arylog option wa
37f0: 73 20 73 70 65 63 69 66 69 65 64 2c 20 63 72 65  s specified, cre
3800: 61 74 65 20 74 68 65 20 6c 6f 67 67 69 6e 67 20  ate the logging 
3810: 56 46 53 2e 20 54 68 69 73 0a 20 20 23 20 63 61  VFS. This.  # ca
3820: 6c 6c 20 69 6e 73 74 61 6c 6c 73 20 74 68 65 20  ll installs the 
3830: 6e 65 77 20 56 46 53 20 61 73 20 74 68 65 20 64  new VFS as the d
3840: 65 66 61 75 6c 74 20 66 6f 72 20 61 6c 6c 20 53  efault for all S
3850: 51 4c 69 74 65 20 63 6f 6e 6e 65 63 74 69 6f 6e  QLite connection
3860: 73 2e 0a 20 20 23 0a 20 20 69 66 20 7b 24 63 6d  s..  #.  if {$cm
3870: 64 6c 69 6e 65 61 72 67 28 62 69 6e 61 72 79 6c  dlinearg(binaryl
3880: 6f 67 29 7d 20 7b 0a 20 20 20 20 76 66 73 6c 6f  og)} {.    vfslo
3890: 67 20 6e 65 77 20 62 69 6e 61 72 79 6c 6f 67 20  g new binarylog 
38a0: 7b 7d 20 76 66 73 6c 6f 67 2e 62 69 6e 0a 20 20  {} vfslog.bin.  
38b0: 7d 0a 0a 20 20 23 20 53 65 74 20 74 68 65 20 62  }..  # Set the b
38c0: 61 63 6b 74 72 61 63 65 20 64 65 70 74 68 2c 20  acktrace depth, 
38d0: 69 66 20 6d 61 6c 6c 6f 63 20 74 72 61 63 69 6e  if malloc tracin
38e0: 67 20 69 73 20 65 6e 61 62 6c 65 64 2e 0a 20 20  g is enabled..  
38f0: 23 0a 20 20 69 66 20 7b 24 63 6d 64 6c 69 6e 65  #.  if {$cmdline
3900: 61 72 67 28 6d 61 6c 6c 6f 63 74 72 61 63 65 29  arg(malloctrace)
3910: 7d 20 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f  } {.    sqlite3_
3920: 6d 65 6d 64 65 62 75 67 5f 62 61 63 6b 74 72 61  memdebug_backtra
3930: 63 65 20 24 63 6d 64 6c 69 6e 65 61 72 67 28 62  ce $cmdlinearg(b
3940: 61 63 6b 74 72 61 63 65 29 0a 20 20 7d 0a 7d 0a  acktrace).  }.}.
3950: 0a 23 20 55 70 64 61 74 65 20 74 68 65 20 73 6f  .# Update the so
3960: 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74 20 65 61  ft-heap-limit ea
3970: 63 68 20 74 69 6d 65 20 74 68 69 73 20 73 63 72  ch time this scr
3980: 69 70 74 20 69 73 20 72 75 6e 2e 20 49 6e 20 74  ipt is run. In t
3990: 68 61 74 0a 23 20 77 61 79 20 69 66 20 61 6e 20  hat.# way if an 
39a0: 69 6e 64 69 76 69 64 75 61 6c 20 74 65 73 74 20  individual test 
39b0: 66 69 6c 65 20 63 68 61 6e 67 65 73 20 74 68 65  file changes the
39c0: 20 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74   soft-heap-limit
39d0: 2c 20 69 74 0a 23 20 77 69 6c 6c 20 62 65 20 72  , it.# will be r
39e0: 65 73 65 74 20 61 74 20 74 68 65 20 73 74 61 72  eset at the star
39f0: 74 20 6f 66 20 74 68 65 20 6e 65 78 74 20 74 65  t of the next te
3a00: 73 74 20 66 69 6c 65 2e 0a 23 0a 73 71 6c 69 74  st file..#.sqlit
3a10: 65 33 5f 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d  e3_soft_heap_lim
3a20: 69 74 20 24 63 6d 64 6c 69 6e 65 61 72 67 28 73  it $cmdlinearg(s
3a30: 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74 29 0a  oft-heap-limit).
3a40: 0a 23 20 43 72 65 61 74 65 20 61 20 74 65 73 74  .# Create a test
3a50: 20 64 61 74 61 62 61 73 65 0a 23 0a 70 72 6f 63   database.#.proc
3a60: 20 72 65 73 65 74 5f 64 62 20 7b 7d 20 7b 0a 20   reset_db {} {. 
3a70: 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65   catch {db close
3a80: 7d 0a 20 20 66 6f 72 63 65 64 65 6c 65 74 65 20  }.  forcedelete 
3a90: 74 65 73 74 2e 64 62 0a 20 20 66 6f 72 63 65 64  test.db.  forced
3aa0: 65 6c 65 74 65 20 74 65 73 74 2e 64 62 2d 6a 6f  elete test.db-jo
3ab0: 75 72 6e 61 6c 0a 20 20 66 6f 72 63 65 64 65 6c  urnal.  forcedel
3ac0: 65 74 65 20 74 65 73 74 2e 64 62 2d 77 61 6c 0a  ete test.db-wal.
3ad0: 20 20 73 71 6c 69 74 65 33 20 64 62 20 2e 2f 74    sqlite3 db ./t
3ae0: 65 73 74 2e 64 62 0a 20 20 73 65 74 20 3a 3a 44  est.db.  set ::D
3af0: 42 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65  B [sqlite3_conne
3b00: 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62  ction_pointer db
3b10: 5d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78  ].  if {[info ex
3b20: 69 73 74 73 20 3a 3a 53 45 54 55 50 5f 53 51 4c  ists ::SETUP_SQL
3b30: 5d 7d 20 7b 0a 20 20 20 20 64 62 20 65 76 61 6c  ]} {.    db eval
3b40: 20 24 3a 3a 53 45 54 55 50 5f 53 51 4c 0a 20 20   $::SETUP_SQL.  
3b50: 7d 0a 7d 0a 72 65 73 65 74 5f 64 62 0a 0a 23 20  }.}.reset_db..# 
3b60: 41 62 6f 72 74 20 65 61 72 6c 79 20 69 66 20 74  Abort early if t
3b70: 68 69 73 20 73 63 72 69 70 74 20 68 61 73 20 62  his script has b
3b80: 65 65 6e 20 72 75 6e 20 62 65 66 6f 72 65 2e 0a  een run before..
3b90: 23 0a 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73  #.if {[info exis
3ba0: 74 73 20 54 43 28 63 6f 75 6e 74 29 5d 7d 20 72  ts TC(count)]} r
3bb0: 65 74 75 72 6e 0a 0a 23 20 4d 61 6b 65 20 73 75  eturn..# Make su
3bc0: 72 65 20 6d 65 6d 6f 72 79 20 73 74 61 74 69 73  re memory statis
3bd0: 74 69 63 73 20 61 72 65 20 65 6e 61 62 6c 65 64  tics are enabled
3be0: 2e 0a 23 0a 73 71 6c 69 74 65 33 5f 63 6f 6e 66  ..#.sqlite3_conf
3bf0: 69 67 5f 6d 65 6d 73 74 61 74 75 73 20 31 0a 0a  ig_memstatus 1..
3c00: 23 20 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65  # Initialize the
3c10: 20 74 65 73 74 20 63 6f 75 6e 74 65 72 73 20 61   test counters a
3c20: 6e 64 20 73 65 74 20 75 70 20 63 6f 6d 6d 61 6e  nd set up comman
3c30: 64 73 20 74 6f 20 61 63 63 65 73 73 20 74 68 65  ds to access the
3c40: 6d 2e 0a 23 20 4f 72 2c 20 69 66 20 74 68 69 73  m..# Or, if this
3c50: 20 69 73 20 61 20 73 6c 61 76 65 20 69 6e 74 65   is a slave inte
3c60: 72 70 72 65 74 65 72 2c 20 73 65 74 20 75 70 20  rpreter, set up 
3c70: 61 6c 69 61 73 65 73 20 74 6f 20 77 72 69 74 65  aliases to write
3c80: 20 74 68 65 0a 23 20 63 6f 75 6e 74 65 72 73 20   the.# counters 
3c90: 69 6e 20 74 68 65 20 70 61 72 65 6e 74 20 69 6e  in the parent in
3ca0: 74 65 72 70 72 65 74 65 72 2e 0a 23 0a 69 66 20  terpreter..#.if 
3cb0: 7b 30 3d 3d 5b 69 6e 66 6f 20 65 78 69 73 74 73  {0==[info exists
3cc0: 20 3a 3a 53 4c 41 56 45 5d 7d 20 7b 0a 20 20 73   ::SLAVE]} {.  s
3cd0: 65 74 20 54 43 28 65 72 72 6f 72 73 29 20 20 20  et TC(errors)   
3ce0: 20 30 0a 20 20 73 65 74 20 54 43 28 63 6f 75 6e   0.  set TC(coun
3cf0: 74 29 20 20 20 20 20 30 0a 20 20 73 65 74 20 54  t)     0.  set T
3d00: 43 28 66 61 69 6c 5f 6c 69 73 74 29 20 5b 6c 69  C(fail_list) [li
3d10: 73 74 5d 0a 20 20 73 65 74 20 54 43 28 6f 6d 69  st].  set TC(omi
3d20: 74 5f 6c 69 73 74 29 20 5b 6c 69 73 74 5d 0a 20  t_list) [list]. 
3d30: 20 73 65 74 20 54 43 28 77 61 72 6e 5f 6c 69 73   set TC(warn_lis
3d40: 74 29 20 5b 6c 69 73 74 5d 0a 0a 20 20 70 72 6f  t) [list]..  pro
3d50: 63 20 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74  c set_test_count
3d60: 65 72 20 7b 63 6f 75 6e 74 65 72 20 61 72 67 73  er {counter args
3d70: 7d 20 7b 0a 20 20 20 20 69 66 20 7b 5b 6c 6c 65  } {.    if {[lle
3d80: 6e 67 74 68 20 24 61 72 67 73 5d 7d 20 7b 0a 20  ngth $args]} {. 
3d90: 20 20 20 20 20 73 65 74 20 3a 3a 54 43 28 24 63       set ::TC($c
3da0: 6f 75 6e 74 65 72 29 20 5b 6c 69 6e 64 65 78 20  ounter) [lindex 
3db0: 24 61 72 67 73 20 30 5d 0a 20 20 20 20 7d 0a 20  $args 0].    }. 
3dc0: 20 20 20 73 65 74 20 3a 3a 54 43 28 24 63 6f 75     set ::TC($cou
3dd0: 6e 74 65 72 29 0a 20 20 7d 0a 7d 0a 0a 23 20 52  nter).  }.}..# R
3de0: 65 63 6f 72 64 20 74 68 65 20 66 61 63 74 20 74  ecord the fact t
3df0: 68 61 74 20 61 20 73 65 71 75 65 6e 63 65 20 6f  hat a sequence o
3e00: 66 20 74 65 73 74 73 20 77 65 72 65 20 6f 6d 69  f tests were omi
3e10: 74 74 65 64 2e 0a 23 0a 70 72 6f 63 20 6f 6d 69  tted..#.proc omi
3e20: 74 5f 74 65 73 74 20 7b 6e 61 6d 65 20 72 65 61  t_test {name rea
3e30: 73 6f 6e 20 7b 61 70 70 65 6e 64 20 31 7d 7d 20  son {append 1}} 
3e40: 7b 0a 20 20 73 65 74 20 6f 6d 69 74 4c 69 73 74  {.  set omitList
3e50: 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74   [set_test_count
3e60: 65 72 20 6f 6d 69 74 5f 6c 69 73 74 5d 0a 20 20  er omit_list].  
3e70: 69 66 20 7b 24 61 70 70 65 6e 64 7d 20 7b 0a 20  if {$append} {. 
3e80: 20 20 20 6c 61 70 70 65 6e 64 20 6f 6d 69 74 4c     lappend omitL
3e90: 69 73 74 20 5b 6c 69 73 74 20 24 6e 61 6d 65 20  ist [list $name 
3ea0: 24 72 65 61 73 6f 6e 5d 0a 20 20 7d 0a 20 20 73  $reason].  }.  s
3eb0: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20  et_test_counter 
3ec0: 6f 6d 69 74 5f 6c 69 73 74 20 24 6f 6d 69 74 4c  omit_list $omitL
3ed0: 69 73 74 0a 7d 0a 0a 23 20 52 65 63 6f 72 64 20  ist.}..# Record 
3ee0: 74 68 65 20 66 61 63 74 20 74 68 61 74 20 61 20  the fact that a 
3ef0: 74 65 73 74 20 66 61 69 6c 65 64 2e 0a 23 0a 70  test failed..#.p
3f00: 72 6f 63 20 66 61 69 6c 5f 74 65 73 74 20 7b 6e  roc fail_test {n
3f10: 61 6d 65 7d 20 7b 0a 20 20 73 65 74 20 66 20 5b  ame} {.  set f [
3f20: 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72  set_test_counter
3f30: 20 66 61 69 6c 5f 6c 69 73 74 5d 0a 20 20 6c 61   fail_list].  la
3f40: 70 70 65 6e 64 20 66 20 24 6e 61 6d 65 0a 20 20  ppend f $name.  
3f50: 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72  set_test_counter
3f60: 20 66 61 69 6c 5f 6c 69 73 74 20 24 66 0a 20 20   fail_list $f.  
3f70: 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72  set_test_counter
3f80: 20 65 72 72 6f 72 73 20 5b 65 78 70 72 20 5b 73   errors [expr [s
3f90: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20  et_test_counter 
3fa0: 65 72 72 6f 72 73 5d 20 2b 20 31 5d 0a 0a 20 20  errors] + 1]..  
3fb0: 73 65 74 20 6e 46 61 69 6c 20 5b 73 65 74 5f 74  set nFail [set_t
3fc0: 65 73 74 5f 63 6f 75 6e 74 65 72 20 65 72 72 6f  est_counter erro
3fd0: 72 73 5d 0a 20 20 69 66 20 7b 24 6e 46 61 69 6c  rs].  if {$nFail
3fe0: 3e 3d 24 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 28  >=$::cmdlinearg(
3ff0: 6d 61 78 65 72 72 6f 72 29 7d 20 7b 0a 20 20 20  maxerror)} {.   
4000: 20 70 75 74 73 20 22 2a 2a 2a 20 47 69 76 69 6e   puts "*** Givin
4010: 67 20 75 70 2e 2e 2e 22 0a 20 20 20 20 66 69 6e  g up...".    fin
4020: 61 6c 69 7a 65 5f 74 65 73 74 69 6e 67 0a 20 20  alize_testing.  
4030: 7d 0a 7d 0a 0a 23 20 52 65 6d 65 6d 62 65 72 20  }.}..# Remember 
4040: 61 20 77 61 72 6e 69 6e 67 20 6d 65 73 73 61 67  a warning messag
4050: 65 20 74 6f 20 62 65 20 64 69 73 70 6c 61 79 65  e to be displaye
4060: 64 20 61 74 20 74 68 65 20 63 6f 6e 63 6c 75 73  d at the conclus
4070: 69 6f 6e 20 6f 66 20 61 6c 6c 20 74 65 73 74 69  ion of all testi
4080: 6e 67 0a 23 0a 70 72 6f 63 20 77 61 72 6e 69 6e  ng.#.proc warnin
4090: 67 20 7b 6d 73 67 20 7b 61 70 70 65 6e 64 20 31  g {msg {append 1
40a0: 7d 7d 20 7b 0a 20 20 70 75 74 73 20 22 57 61 72  }} {.  puts "War
40b0: 6e 69 6e 67 3a 20 24 6d 73 67 22 0a 20 20 73 65  ning: $msg".  se
40c0: 74 20 77 61 72 6e 4c 69 73 74 20 5b 73 65 74 5f  t warnList [set_
40d0: 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 77 61 72  test_counter war
40e0: 6e 5f 6c 69 73 74 5d 0a 20 20 69 66 20 7b 24 61  n_list].  if {$a
40f0: 70 70 65 6e 64 7d 20 7b 0a 20 20 20 20 6c 61 70  ppend} {.    lap
4100: 70 65 6e 64 20 77 61 72 6e 4c 69 73 74 20 24 6d  pend warnList $m
4110: 73 67 0a 20 20 7d 0a 20 20 73 65 74 5f 74 65 73  sg.  }.  set_tes
4120: 74 5f 63 6f 75 6e 74 65 72 20 77 61 72 6e 5f 6c  t_counter warn_l
4130: 69 73 74 20 24 77 61 72 6e 4c 69 73 74 0a 7d 0a  ist $warnList.}.
4140: 0a 0a 23 20 49 6e 63 72 65 6d 65 6e 74 20 74 68  ..# Increment th
4150: 65 20 6e 75 6d 62 65 72 20 6f 66 20 74 65 73 74  e number of test
4160: 73 20 72 75 6e 0a 23 0a 70 72 6f 63 20 69 6e 63  s run.#.proc inc
4170: 72 5f 6e 74 65 73 74 20 7b 7d 20 7b 0a 20 20 73  r_ntest {} {.  s
4180: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20  et_test_counter 
4190: 63 6f 75 6e 74 20 5b 65 78 70 72 20 5b 73 65 74  count [expr [set
41a0: 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 63 6f  _test_counter co
41b0: 75 6e 74 5d 20 2b 20 31 5d 0a 7d 0a 0a 0a 23 20  unt] + 1].}...# 
41c0: 49 6e 76 6f 6b 65 20 74 68 65 20 64 6f 5f 74 65  Invoke the do_te
41d0: 73 74 20 70 72 6f 63 65 64 75 72 65 20 74 6f 20  st procedure to 
41e0: 72 75 6e 20 61 20 73 69 6e 67 6c 65 20 74 65 73  run a single tes
41f0: 74 0a 23 0a 70 72 6f 63 20 64 6f 5f 74 65 73 74  t.#.proc do_test
4200: 20 7b 6e 61 6d 65 20 63 6d 64 20 65 78 70 65 63   {name cmd expec
4210: 74 65 64 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20  ted} {.  global 
4220: 61 72 67 76 20 63 6d 64 6c 69 6e 65 61 72 67 0a  argv cmdlinearg.
4230: 0a 20 20 66 69 78 5f 74 65 73 74 6e 61 6d 65 20  .  fix_testname 
4240: 6e 61 6d 65 0a 0a 20 20 73 71 6c 69 74 65 33 5f  name..  sqlite3_
4250: 6d 65 6d 64 65 62 75 67 5f 73 65 74 74 69 74 6c  memdebug_settitl
4260: 65 20 24 6e 61 6d 65 0a 0a 23 20 20 69 66 20 7b  e $name..#  if {
4270: 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 76 5d 3d  [llength $argv]=
4280: 3d 30 7d 20 7b 0a 23 20 20 20 20 73 65 74 20 67  =0} {.#    set g
4290: 6f 20 31 0a 23 20 20 7d 20 65 6c 73 65 20 7b 0a  o 1.#  } else {.
42a0: 23 20 20 20 20 73 65 74 20 67 6f 20 30 0a 23 20  #    set go 0.# 
42b0: 20 20 20 66 6f 72 65 61 63 68 20 70 61 74 74 65     foreach patte
42c0: 72 6e 20 24 61 72 67 76 20 7b 0a 23 20 20 20 20  rn $argv {.#    
42d0: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61    if {[string ma
42e0: 74 63 68 20 24 70 61 74 74 65 72 6e 20 24 6e 61  tch $pattern $na
42f0: 6d 65 5d 7d 20 7b 0a 23 20 20 20 20 20 20 20 20  me]} {.#        
4300: 73 65 74 20 67 6f 20 31 0a 23 20 20 20 20 20 20  set go 1.#      
4310: 20 20 62 72 65 61 6b 0a 23 20 20 20 20 20 20 7d    break.#      }
4320: 0a 23 20 20 20 20 7d 0a 23 20 20 7d 0a 0a 20 20  .#    }.#  }..  
4330: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
4340: 20 3a 3a 47 28 70 65 72 6d 3a 70 72 65 66 69 78   ::G(perm:prefix
4350: 29 5d 7d 20 7b 0a 20 20 20 20 73 65 74 20 6e 61  )]} {.    set na
4360: 6d 65 20 22 24 3a 3a 47 28 70 65 72 6d 3a 70 72  me "$::G(perm:pr
4370: 65 66 69 78 29 24 6e 61 6d 65 22 0a 20 20 7d 0a  efix)$name".  }.
4380: 0a 20 20 69 6e 63 72 5f 6e 74 65 73 74 0a 20 20  .  incr_ntest.  
4390: 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20  puts -nonewline 
43a0: 24 6e 61 6d 65 2e 2e 2e 0a 20 20 66 6c 75 73 68  $name....  flush
43b0: 20 73 74 64 6f 75 74 0a 0a 20 20 69 66 20 7b 21   stdout..  if {!
43c0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 47  [info exists ::G
43d0: 28 6d 61 74 63 68 29 5d 20 7c 7c 20 5b 73 74 72  (match)] || [str
43e0: 69 6e 67 20 6d 61 74 63 68 20 24 3a 3a 47 28 6d  ing match $::G(m
43f0: 61 74 63 68 29 20 24 6e 61 6d 65 5d 7d 20 7b 0a  atch) $name]} {.
4400: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b      if {[catch {
4410: 75 70 6c 65 76 65 6c 20 23 30 20 22 24 63 6d 64  uplevel #0 "$cmd
4420: 3b 5c 6e 22 7d 20 72 65 73 75 6c 74 5d 7d 20 7b  ;\n"} result]} {
4430: 0a 20 20 20 20 20 20 70 75 74 73 20 22 5c 6e 45  .      puts "\nE
4440: 72 72 6f 72 3a 20 24 72 65 73 75 6c 74 22 0a 20  rror: $result". 
4450: 20 20 20 20 20 66 61 69 6c 5f 74 65 73 74 20 24       fail_test $
4460: 6e 61 6d 65 0a 20 20 20 20 7d 20 65 6c 73 65 20  name.    } else 
4470: 7b 0a 20 20 20 20 20 20 69 66 20 7b 5b 72 65 67  {.      if {[reg
4480: 65 78 70 20 7b 5e 7e 3f 2f 2e 2a 2f 24 7d 20 24  exp {^~?/.*/$} $
4490: 65 78 70 65 63 74 65 64 5d 7d 20 7b 0a 20 20 20  expected]} {.   
44a0: 20 20 20 20 20 23 20 22 65 78 70 65 63 74 65 64       # "expected
44b0: 22 20 69 73 20 6f 66 20 74 68 65 20 66 6f 72 6d  " is of the form
44c0: 20 22 2f 50 41 54 54 45 52 4e 2f 22 20 74 68 65   "/PATTERN/" the
44d0: 6e 20 74 68 65 20 72 65 73 75 6c 74 20 69 66 20  n the result if 
44e0: 63 6f 72 72 65 63 74 20 69 66 0a 20 20 20 20 20  correct if.     
44f0: 20 20 20 23 20 72 65 67 75 6c 61 72 20 65 78 70     # regular exp
4500: 72 65 73 73 69 6f 6e 20 50 41 54 54 45 52 4e 20  ression PATTERN 
4510: 6d 61 74 63 68 65 73 20 74 68 65 20 72 65 73 75  matches the resu
4520: 6c 74 2e 20 20 22 7e 2f 50 41 54 54 45 52 4e 2f  lt.  "~/PATTERN/
4530: 22 20 6d 65 61 6e 73 0a 20 20 20 20 20 20 20 20  " means.        
4540: 23 20 74 68 65 20 72 65 67 75 6c 61 72 20 65 78  # the regular ex
4550: 70 72 65 73 73 69 6f 6e 20 6d 75 73 74 20 6e 6f  pression must no
4560: 74 20 6d 61 74 63 68 2e 0a 20 20 20 20 20 20 20  t match..       
4570: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 69 6e 64   if {[string ind
4580: 65 78 20 24 65 78 70 65 63 74 65 64 20 30 5d 3d  ex $expected 0]=
4590: 3d 22 7e 22 7d 20 7b 0a 20 20 20 20 20 20 20 20  ="~"} {.        
45a0: 20 20 73 65 74 20 72 65 20 5b 73 74 72 69 6e 67    set re [string
45b0: 20 72 61 6e 67 65 20 24 65 78 70 65 63 74 65 64   range $expected
45c0: 20 32 20 65 6e 64 2d 31 5d 0a 20 20 20 20 20 20   2 end-1].      
45d0: 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20      if {[string 
45e0: 69 6e 64 65 78 20 24 72 65 20 30 5d 3d 3d 22 2a  index $re 0]=="*
45f0: 22 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20  "} {.           
4600: 20 23 20 49 66 20 74 68 65 20 72 65 67 75 6c 61   # If the regula
4610: 72 20 65 78 70 72 65 73 73 69 6f 6e 20 62 65 67  r expression beg
4620: 69 6e 73 20 77 69 74 68 20 2a 20 74 68 65 6e 20  ins with * then 
4630: 74 72 65 61 74 20 69 74 20 61 73 20 61 20 67 6c  treat it as a gl
4640: 6f 62 20 69 6e 73 74 65 61 64 0a 20 20 20 20 20  ob instead.     
4650: 20 20 20 20 20 20 20 73 65 74 20 6f 6b 20 5b 73         set ok [s
4660: 74 72 69 6e 67 20 6d 61 74 63 68 20 24 72 65 20  tring match $re 
4670: 24 72 65 73 75 6c 74 5d 0a 20 20 20 20 20 20 20  $result].       
4680: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20     } else {.    
4690: 20 20 20 20 20 20 20 20 73 65 74 20 72 65 20 5b          set re [
46a0: 73 74 72 69 6e 67 20 6d 61 70 20 7b 23 20 7b 5b  string map {# {[
46b0: 2d 30 2d 39 2e 5d 2b 7d 7d 20 24 72 65 5d 0a 20  -0-9.]+}} $re]. 
46c0: 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20 6f             set o
46d0: 6b 20 5b 72 65 67 65 78 70 20 24 72 65 20 24 72  k [regexp $re $r
46e0: 65 73 75 6c 74 5d 0a 20 20 20 20 20 20 20 20 20  esult].         
46f0: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 73 65 74   }.          set
4700: 20 6f 6b 20 5b 65 78 70 72 20 7b 21 24 6f 6b 7d   ok [expr {!$ok}
4710: 5d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65  ].        } else
4720: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 73 65 74   {.          set
4730: 20 72 65 20 5b 73 74 72 69 6e 67 20 72 61 6e 67   re [string rang
4740: 65 20 24 65 78 70 65 63 74 65 64 20 31 20 65 6e  e $expected 1 en
4750: 64 2d 31 5d 0a 20 20 20 20 20 20 20 20 20 20 69  d-1].          i
4760: 66 20 7b 5b 73 74 72 69 6e 67 20 69 6e 64 65 78  f {[string index
4770: 20 24 72 65 20 30 5d 3d 3d 22 2a 22 7d 20 7b 0a   $re 0]=="*"} {.
4780: 20 20 20 20 20 20 20 20 20 20 20 20 23 20 49 66              # If
4790: 20 74 68 65 20 72 65 67 75 6c 61 72 20 65 78 70   the regular exp
47a0: 72 65 73 73 69 6f 6e 20 62 65 67 69 6e 73 20 77  ression begins w
47b0: 69 74 68 20 2a 20 74 68 65 6e 20 74 72 65 61 74  ith * then treat
47c0: 20 69 74 20 61 73 20 61 20 67 6c 6f 62 20 69 6e   it as a glob in
47d0: 73 74 65 61 64 0a 20 20 20 20 20 20 20 20 20 20  stead.          
47e0: 20 20 73 65 74 20 6f 6b 20 5b 73 74 72 69 6e 67    set ok [string
47f0: 20 6d 61 74 63 68 20 24 72 65 20 24 72 65 73 75   match $re $resu
4800: 6c 74 5d 0a 20 20 20 20 20 20 20 20 20 20 7d 20  lt].          } 
4810: 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 20  else {.         
4820: 20 20 20 73 65 74 20 72 65 20 5b 73 74 72 69 6e     set re [strin
4830: 67 20 6d 61 70 20 7b 23 20 7b 5b 2d 30 2d 39 2e  g map {# {[-0-9.
4840: 5d 2b 7d 7d 20 24 72 65 5d 0a 20 20 20 20 20 20  ]+}} $re].      
4850: 20 20 20 20 20 20 73 65 74 20 6f 6b 20 5b 72 65        set ok [re
4860: 67 65 78 70 20 24 72 65 20 24 72 65 73 75 6c 74  gexp $re $result
4870: 5d 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20  ].          }.  
4880: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 20        }.      } 
4890: 65 6c 73 65 69 66 20 7b 5b 72 65 67 65 78 70 20  elseif {[regexp 
48a0: 7b 5e 7e 3f 5c 2a 2e 2a 5c 2a 24 7d 20 24 65 78  {^~?\*.*\*$} $ex
48b0: 70 65 63 74 65 64 5d 7d 20 7b 0a 20 20 20 20 20  pected]} {.     
48c0: 20 20 20 23 20 22 65 78 70 65 63 74 65 64 22 20     # "expected" 
48d0: 69 73 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 22  is of the form "
48e0: 2a 47 4c 4f 42 2a 22 20 74 68 65 6e 20 74 68 65  *GLOB*" then the
48f0: 20 72 65 73 75 6c 74 20 69 66 20 63 6f 72 72 65   result if corre
4900: 63 74 20 69 66 0a 20 20 20 20 20 20 20 20 23 20  ct if.        # 
4910: 67 6c 6f 62 20 70 61 74 74 65 72 6e 20 47 4c 4f  glob pattern GLO
4920: 42 20 6d 61 74 63 68 65 73 20 74 68 65 20 72 65  B matches the re
4930: 73 75 6c 74 2e 20 20 22 7e 2f 47 4c 4f 42 2f 22  sult.  "~/GLOB/"
4940: 20 6d 65 61 6e 73 0a 20 20 20 20 20 20 20 20 23   means.        #
4950: 20 74 68 65 20 67 6c 6f 62 20 6d 75 73 74 20 6e   the glob must n
4960: 6f 74 20 6d 61 74 63 68 2e 0a 20 20 20 20 20 20  ot match..      
4970: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 69 6e    if {[string in
4980: 64 65 78 20 24 65 78 70 65 63 74 65 64 20 30 5d  dex $expected 0]
4990: 3d 3d 22 7e 22 7d 20 7b 0a 20 20 20 20 20 20 20  =="~"} {.       
49a0: 20 20 20 73 65 74 20 65 20 5b 73 74 72 69 6e 67     set e [string
49b0: 20 72 61 6e 67 65 20 24 65 78 70 65 63 74 65 64   range $expected
49c0: 20 31 20 65 6e 64 5d 0a 20 20 20 20 20 20 20 20   1 end].        
49d0: 20 20 73 65 74 20 6f 6b 20 5b 65 78 70 72 20 7b    set ok [expr {
49e0: 21 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 20 24  ![string match $
49f0: 65 20 24 72 65 73 75 6c 74 5d 7d 5d 0a 20 20 20  e $result]}].   
4a00: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20       } else {.  
4a10: 20 20 20 20 20 20 20 20 73 65 74 20 6f 6b 20 5b          set ok [
4a20: 73 74 72 69 6e 67 20 6d 61 74 63 68 20 24 65 78  string match $ex
4a30: 70 65 63 74 65 64 20 24 72 65 73 75 6c 74 5d 0a  pected $result].
4a40: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
4a50: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20  } else {.       
4a60: 20 73 65 74 20 6f 6b 20 5b 65 78 70 72 20 7b 5b   set ok [expr {[
4a70: 73 74 72 69 6e 67 20 63 6f 6d 70 61 72 65 20 24  string compare $
4a80: 72 65 73 75 6c 74 20 24 65 78 70 65 63 74 65 64  result $expected
4a90: 5d 3d 3d 30 7d 5d 0a 20 20 20 20 20 20 7d 0a 20  ]==0}].      }. 
4aa0: 20 20 20 20 20 69 66 20 7b 21 24 6f 6b 7d 20 7b       if {!$ok} {
4ab0: 0a 20 20 20 20 20 20 20 20 23 20 69 66 20 7b 21  .        # if {!
4ac0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 74  [info exists ::t
4ad0: 65 73 74 70 72 65 66 69 78 5d 20 7c 7c 20 24 3a  estprefix] || $:
4ae0: 3a 74 65 73 74 70 72 65 66 69 78 20 65 71 20 22  :testprefix eq "
4af0: 22 7d 20 7b 0a 20 20 20 20 20 20 20 20 23 20 20  "} {.        #  
4b00: 20 65 72 72 6f 72 20 22 6e 6f 20 74 65 73 74 20   error "no test 
4b10: 70 72 65 66 69 78 22 0a 20 20 20 20 20 20 20 20  prefix".        
4b20: 23 20 7d 0a 20 20 20 20 20 20 20 20 70 75 74 73  # }.        puts
4b30: 20 22 5c 6e 45 78 70 65 63 74 65 64 3a 20 5c 5b   "\nExpected: \[
4b40: 24 65 78 70 65 63 74 65 64 5c 5d 5c 6e 20 20 20  $expected\]\n   
4b50: 20 20 47 6f 74 3a 20 5c 5b 24 72 65 73 75 6c 74    Got: \[$result
4b60: 5c 5d 22 0a 20 20 20 20 20 20 20 20 66 61 69 6c  \]".        fail
4b70: 5f 74 65 73 74 20 24 6e 61 6d 65 0a 20 20 20 20  _test $name.    
4b80: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20    } else {.     
4b90: 20 20 20 70 75 74 73 20 22 20 4f 6b 22 0a 20 20     puts " Ok".  
4ba0: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 20      }.    }.  } 
4bb0: 65 6c 73 65 20 7b 0a 20 20 20 20 70 75 74 73 20  else {.    puts 
4bc0: 22 20 4f 6d 69 74 74 65 64 22 0a 20 20 20 20 6f  " Omitted".    o
4bd0: 6d 69 74 5f 74 65 73 74 20 24 6e 61 6d 65 20 22  mit_test $name "
4be0: 70 61 74 74 65 72 6e 20 6d 69 73 6d 61 74 63 68  pattern mismatch
4bf0: 22 20 30 0a 20 20 7d 0a 20 20 66 6c 75 73 68 20  " 0.  }.  flush 
4c00: 73 74 64 6f 75 74 0a 7d 0a 0a 70 72 6f 63 20 63  stdout.}..proc c
4c10: 61 74 63 68 63 6d 64 20 7b 64 62 20 7b 63 6d 64  atchcmd {db {cmd
4c20: 20 22 22 7d 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c   ""}} {.  global
4c30: 20 43 4c 49 0a 20 20 73 65 74 20 6f 75 74 20 5b   CLI.  set out [
4c40: 6f 70 65 6e 20 63 6d 64 73 2e 74 78 74 20 77 5d  open cmds.txt w]
4c50: 0a 20 20 70 75 74 73 20 24 6f 75 74 20 24 63 6d  .  puts $out $cm
4c60: 64 0a 20 20 63 6c 6f 73 65 20 24 6f 75 74 0a 20  d.  close $out. 
4c70: 20 73 65 74 20 6c 69 6e 65 20 22 65 78 65 63 20   set line "exec 
4c80: 24 43 4c 49 20 24 64 62 20 3c 20 63 6d 64 73 2e  $CLI $db < cmds.
4c90: 74 78 74 22 0a 20 20 73 65 74 20 72 63 20 5b 63  txt".  set rc [c
4ca0: 61 74 63 68 20 7b 20 65 76 61 6c 20 24 6c 69 6e  atch { eval $lin
4cb0: 65 20 7d 20 6d 73 67 5d 0a 20 20 6c 69 73 74 20  e } msg].  list 
4cc0: 24 72 63 20 24 6d 73 67 0a 7d 0a 0a 70 72 6f 63  $rc $msg.}..proc
4cd0: 20 66 69 6c 65 70 61 74 68 5f 6e 6f 72 6d 61 6c   filepath_normal
4ce0: 69 7a 65 20 7b 70 7d 20 7b 0a 20 20 23 20 74 65  ize {p} {.  # te
4cf0: 73 74 20 63 61 73 65 73 20 73 68 6f 75 6c 64 20  st cases should 
4d00: 62 65 20 77 72 69 74 74 65 6e 20 74 6f 20 61 73  be written to as
4d10: 73 75 6d 65 20 22 75 6e 69 78 22 2d 6c 69 6b 65  sume "unix"-like
4d20: 20 66 69 6c 65 20 70 61 74 68 73 0a 20 20 69 66   file paths.  if
4d30: 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72   {$::tcl_platfor
4d40: 6d 28 70 6c 61 74 66 6f 72 6d 29 21 3d 22 75 6e  m(platform)!="un
4d50: 69 78 22 7d 20 7b 0a 20 20 20 20 23 20 6c 72 65  ix"} {.    # lre
4d60: 76 65 72 73 65 2a 32 20 61 73 20 61 20 68 61 63  verse*2 as a hac
4d70: 6b 20 74 6f 20 72 65 6d 6f 76 65 20 61 6e 79 20  k to remove any 
4d80: 75 6e 6e 65 65 64 65 64 20 7b 7d 20 61 66 74 65  unneeded {} afte
4d90: 72 20 74 68 65 20 73 74 72 69 6e 67 20 6d 61 70  r the string map
4da0: 0a 20 20 20 20 6c 72 65 76 65 72 73 65 20 5b 6c  .    lreverse [l
4db0: 72 65 76 65 72 73 65 20 5b 73 74 72 69 6e 67 20  reverse [string 
4dc0: 6d 61 70 20 7b 5c 5c 20 2f 7d 20 5b 72 65 67 73  map {\\ /} [regs
4dd0: 75 62 20 2d 6e 6f 63 61 73 65 20 2d 61 6c 6c 20  ub -nocase -all 
4de0: 7b 5b 61 2d 7a 5d 3a 5b 2f 5c 5c 5d 2b 7d 20 24  {[a-z]:[/\\]+} $
4df0: 70 20 7b 2f 7d 5d 5d 5d 0a 20 20 7d 20 7b 0a 20  p {/}]]].  } {. 
4e00: 20 20 20 73 65 74 20 70 0a 20 20 7d 0a 7d 0a 70     set p.  }.}.p
4e10: 72 6f 63 20 64 6f 5f 66 69 6c 65 70 61 74 68 5f  roc do_filepath_
4e20: 74 65 73 74 20 7b 6e 61 6d 65 20 63 6d 64 20 65  test {name cmd e
4e30: 78 70 65 63 74 65 64 7d 20 7b 0a 20 20 75 70 6c  xpected} {.  upl
4e40: 65 76 65 6c 20 5b 6c 69 73 74 20 64 6f 5f 74 65  evel [list do_te
4e50: 73 74 20 24 6e 61 6d 65 20 5b 0a 20 20 20 20 73  st $name [.    s
4e60: 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73  ubst -nocommands
4e70: 20 7b 20 66 69 6c 65 70 61 74 68 5f 6e 6f 72 6d   { filepath_norm
4e80: 61 6c 69 7a 65 20 5b 20 24 63 6d 64 20 5d 20 7d  alize [ $cmd ] }
4e90: 0a 20 20 5d 20 5b 66 69 6c 65 70 61 74 68 5f 6e  .  ] [filepath_n
4ea0: 6f 72 6d 61 6c 69 7a 65 20 24 65 78 70 65 63 74  ormalize $expect
4eb0: 65 64 5d 5d 0a 7d 0a 0a 70 72 6f 63 20 72 65 61  ed]].}..proc rea
4ec0: 6c 6e 75 6d 5f 6e 6f 72 6d 61 6c 69 7a 65 20 7b  lnum_normalize {
4ed0: 72 7d 20 7b 0a 20 20 23 20 64 69 66 66 65 72 65  r} {.  # differe
4ee0: 6e 74 20 54 43 4c 20 76 65 72 73 69 6f 6e 73 20  nt TCL versions 
4ef0: 64 69 73 70 6c 61 79 20 66 6c 6f 61 74 69 6e 67  display floating
4f00: 20 70 6f 69 6e 74 20 76 61 6c 75 65 73 20 64 69   point values di
4f10: 66 66 65 72 65 6e 74 6c 79 2e 0a 20 20 73 74 72  fferently..  str
4f20: 69 6e 67 20 6d 61 70 20 7b 31 2e 23 49 4e 46 20  ing map {1.#INF 
4f30: 69 6e 66 20 49 6e 66 20 69 6e 66 20 2e 30 65 20  inf Inf inf .0e 
4f40: 65 7d 20 5b 72 65 67 73 75 62 20 2d 61 6c 6c 20  e} [regsub -all 
4f50: 7b 28 65 5b 2b 2d 5d 29 30 2b 7d 20 24 72 20 7b  {(e[+-])0+} $r {
4f60: 5c 31 7d 5d 0a 7d 0a 70 72 6f 63 20 64 6f 5f 72  \1}].}.proc do_r
4f70: 65 61 6c 6e 75 6d 5f 74 65 73 74 20 7b 6e 61 6d  ealnum_test {nam
4f80: 65 20 63 6d 64 20 65 78 70 65 63 74 65 64 7d 20  e cmd expected} 
4f90: 7b 0a 20 20 75 70 6c 65 76 65 6c 20 5b 6c 69 73  {.  uplevel [lis
4fa0: 74 20 64 6f 5f 74 65 73 74 20 24 6e 61 6d 65 20  t do_test $name 
4fb0: 5b 0a 20 20 20 20 73 75 62 73 74 20 2d 6e 6f 63  [.    subst -noc
4fc0: 6f 6d 6d 61 6e 64 73 20 7b 20 72 65 61 6c 6e 75  ommands { realnu
4fd0: 6d 5f 6e 6f 72 6d 61 6c 69 7a 65 20 5b 20 24 63  m_normalize [ $c
4fe0: 6d 64 20 5d 20 7d 0a 20 20 5d 20 5b 72 65 61 6c  md ] }.  ] [real
4ff0: 6e 75 6d 5f 6e 6f 72 6d 61 6c 69 7a 65 20 24 65  num_normalize $e
5000: 78 70 65 63 74 65 64 5d 5d 0a 7d 0a 0a 70 72 6f  xpected]].}..pro
5010: 63 20 66 69 78 5f 74 65 73 74 6e 61 6d 65 20 7b  c fix_testname {
5020: 76 61 72 6e 61 6d 65 7d 20 7b 0a 20 20 75 70 76  varname} {.  upv
5030: 61 72 20 24 76 61 72 6e 61 6d 65 20 74 65 73 74  ar $varname test
5040: 6e 61 6d 65 0a 20 20 69 66 20 7b 5b 69 6e 66 6f  name.  if {[info
5050: 20 65 78 69 73 74 73 20 3a 3a 74 65 73 74 70 72   exists ::testpr
5060: 65 66 69 78 5d 0a 20 20 20 26 26 20 5b 73 74 72  efix].   && [str
5070: 69 6e 67 20 69 73 20 64 69 67 69 74 20 5b 73 74  ing is digit [st
5080: 72 69 6e 67 20 72 61 6e 67 65 20 24 74 65 73 74  ring range $test
5090: 6e 61 6d 65 20 30 20 30 5d 5d 0a 20 20 7d 20 7b  name 0 0]].  } {
50a0: 0a 20 20 20 20 73 65 74 20 74 65 73 74 6e 61 6d  .    set testnam
50b0: 65 20 22 24 7b 3a 3a 74 65 73 74 70 72 65 66 69  e "${::testprefi
50c0: 78 7d 2d 24 74 65 73 74 6e 61 6d 65 22 0a 20 20  x}-$testname".  
50d0: 7d 0a 7d 0a 0a 70 72 6f 63 20 64 6f 5f 65 78 65  }.}..proc do_exe
50e0: 63 73 71 6c 5f 74 65 73 74 20 7b 74 65 73 74 6e  csql_test {testn
50f0: 61 6d 65 20 73 71 6c 20 7b 72 65 73 75 6c 74 20  ame sql {result 
5100: 7b 7d 7d 7d 20 7b 0a 20 20 66 69 78 5f 74 65 73  {}}} {.  fix_tes
5110: 74 6e 61 6d 65 20 74 65 73 74 6e 61 6d 65 0a 20  tname testname. 
5120: 20 75 70 6c 65 76 65 6c 20 64 6f 5f 74 65 73 74   uplevel do_test
5130: 20 5b 6c 69 73 74 20 24 74 65 73 74 6e 61 6d 65   [list $testname
5140: 5d 20 5b 6c 69 73 74 20 22 65 78 65 63 73 71 6c  ] [list "execsql
5150: 20 7b 24 73 71 6c 7d 22 5d 20 5b 6c 69 73 74 20   {$sql}"] [list 
5160: 5b 6c 69 73 74 20 7b 2a 7d 24 72 65 73 75 6c 74  [list {*}$result
5170: 5d 5d 0a 7d 0a 70 72 6f 63 20 64 6f 5f 63 61 74  ]].}.proc do_cat
5180: 63 68 73 71 6c 5f 74 65 73 74 20 7b 74 65 73 74  chsql_test {test
5190: 6e 61 6d 65 20 73 71 6c 20 72 65 73 75 6c 74 7d  name sql result}
51a0: 20 7b 0a 20 20 66 69 78 5f 74 65 73 74 6e 61 6d   {.  fix_testnam
51b0: 65 20 74 65 73 74 6e 61 6d 65 0a 20 20 75 70 6c  e testname.  upl
51c0: 65 76 65 6c 20 64 6f 5f 74 65 73 74 20 5b 6c 69  evel do_test [li
51d0: 73 74 20 24 74 65 73 74 6e 61 6d 65 5d 20 5b 6c  st $testname] [l
51e0: 69 73 74 20 22 63 61 74 63 68 73 71 6c 20 7b 24  ist "catchsql {$
51f0: 73 71 6c 7d 22 5d 20 5b 6c 69 73 74 20 24 72 65  sql}"] [list $re
5200: 73 75 6c 74 5d 0a 7d 0a 70 72 6f 63 20 64 6f 5f  sult].}.proc do_
5210: 65 71 70 5f 74 65 73 74 20 7b 6e 61 6d 65 20 73  eqp_test {name s
5220: 71 6c 20 72 65 73 7d 20 7b 0a 20 20 75 70 6c 65  ql res} {.  uple
5230: 76 65 6c 20 64 6f 5f 65 78 65 63 73 71 6c 5f 74  vel do_execsql_t
5240: 65 73 74 20 24 6e 61 6d 65 20 5b 6c 69 73 74 20  est $name [list 
5250: 22 45 58 50 4c 41 49 4e 20 51 55 45 52 59 20 50  "EXPLAIN QUERY P
5260: 4c 41 4e 20 24 73 71 6c 22 5d 20 5b 6c 69 73 74  LAN $sql"] [list
5270: 20 24 72 65 73 5d 0a 7d 0a 0a 23 2d 2d 2d 2d 2d   $res].}..#-----
5280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
52a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
52b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
52c0: 2d 2d 2d 2d 0a 23 20 20 20 55 73 61 67 65 3a 20  ----.#   Usage: 
52d0: 64 6f 5f 73 65 6c 65 63 74 5f 74 65 73 74 73 20  do_select_tests 
52e0: 50 52 45 46 49 58 20 3f 53 57 49 54 43 48 45 53  PREFIX ?SWITCHES
52f0: 3f 20 54 45 53 54 4c 49 53 54 0a 23 0a 23 20 57  ? TESTLIST.#.# W
5300: 68 65 72 65 20 73 77 69 74 63 68 65 73 20 61 72  here switches ar
5310: 65 3a 0a 23 0a 23 20 20 20 2d 65 72 72 6f 72 66  e:.#.#   -errorf
5320: 6f 72 6d 61 74 20 46 4d 54 53 54 52 49 4e 47 0a  ormat FMTSTRING.
5330: 23 20 20 20 2d 63 6f 75 6e 74 0a 23 20 20 20 2d  #   -count.#   -
5340: 71 75 65 72 79 20 53 51 4c 0a 23 20 20 20 2d 74  query SQL.#   -t
5350: 63 6c 71 75 65 72 79 20 54 43 4c 0a 23 20 20 20  clquery TCL.#   
5360: 2d 72 65 70 61 69 72 20 54 43 4c 0a 23 0a 70 72  -repair TCL.#.pr
5370: 6f 63 20 64 6f 5f 73 65 6c 65 63 74 5f 74 65 73  oc do_select_tes
5380: 74 73 20 7b 70 72 65 66 69 78 20 61 72 67 73 7d  ts {prefix args}
5390: 20 7b 0a 0a 20 20 73 65 74 20 74 65 73 74 6c 69   {..  set testli
53a0: 73 74 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73  st [lindex $args
53b0: 20 65 6e 64 5d 0a 20 20 73 65 74 20 73 77 69 74   end].  set swit
53c0: 63 68 65 73 20 5b 6c 72 61 6e 67 65 20 24 61 72  ches [lrange $ar
53d0: 67 73 20 30 20 65 6e 64 2d 31 5d 0a 0a 20 20 73  gs 0 end-1]..  s
53e0: 65 74 20 65 72 72 66 6d 74 20 22 22 0a 20 20 73  et errfmt "".  s
53f0: 65 74 20 63 6f 75 6e 74 6f 6e 6c 79 20 30 0a 20  et countonly 0. 
5400: 20 73 65 74 20 74 63 6c 71 75 65 72 79 20 22 22   set tclquery ""
5410: 0a 20 20 73 65 74 20 72 65 70 61 69 72 20 22 22  .  set repair ""
5420: 0a 0a 20 20 66 6f 72 20 7b 73 65 74 20 69 20 30  ..  for {set i 0
5430: 7d 20 7b 24 69 20 3c 20 5b 6c 6c 65 6e 67 74 68  } {$i < [llength
5440: 20 24 73 77 69 74 63 68 65 73 5d 7d 20 7b 69 6e   $switches]} {in
5450: 63 72 20 69 7d 20 7b 0a 20 20 20 20 73 65 74 20  cr i} {.    set 
5460: 73 20 5b 6c 69 6e 64 65 78 20 24 73 77 69 74 63  s [lindex $switc
5470: 68 65 73 20 24 69 5d 0a 20 20 20 20 73 65 74 20  hes $i].    set 
5480: 6e 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68  n [string length
5490: 20 24 73 5d 0a 20 20 20 20 69 66 20 7b 24 6e 3e   $s].    if {$n>
54a0: 3d 32 20 26 26 20 5b 73 74 72 69 6e 67 20 65 71  =2 && [string eq
54b0: 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24 6e 20 24  ual -length $n $
54c0: 73 20 22 2d 71 75 65 72 79 22 5d 7d 20 7b 0a 20  s "-query"]} {. 
54d0: 20 20 20 20 20 73 65 74 20 74 63 6c 71 75 65 72       set tclquer
54e0: 79 20 5b 6c 69 73 74 20 65 78 65 63 73 71 6c 20  y [list execsql 
54f0: 5b 6c 69 6e 64 65 78 20 24 73 77 69 74 63 68 65  [lindex $switche
5500: 73 20 5b 69 6e 63 72 20 69 5d 5d 5d 0a 20 20 20  s [incr i]]].   
5510: 20 7d 20 65 6c 73 65 69 66 20 7b 24 6e 3e 3d 32   } elseif {$n>=2
5520: 20 26 26 20 5b 73 74 72 69 6e 67 20 65 71 75 61   && [string equa
5530: 6c 20 2d 6c 65 6e 67 74 68 20 24 6e 20 24 73 20  l -length $n $s 
5540: 22 2d 74 63 6c 71 75 65 72 79 22 5d 7d 20 7b 0a  "-tclquery"]} {.
5550: 20 20 20 20 20 20 73 65 74 20 74 63 6c 71 75 65        set tclque
5560: 72 79 20 5b 6c 69 6e 64 65 78 20 24 73 77 69 74  ry [lindex $swit
5570: 63 68 65 73 20 5b 69 6e 63 72 20 69 5d 5d 0a 20  ches [incr i]]. 
5580: 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 6e 3e     } elseif {$n>
5590: 3d 32 20 26 26 20 5b 73 74 72 69 6e 67 20 65 71  =2 && [string eq
55a0: 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24 6e 20 24  ual -length $n $
55b0: 73 20 22 2d 65 72 72 6f 72 66 6f 72 6d 61 74 22  s "-errorformat"
55c0: 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 65  ]} {.      set e
55d0: 72 72 66 6d 74 20 5b 6c 69 6e 64 65 78 20 24 73  rrfmt [lindex $s
55e0: 77 69 74 63 68 65 73 20 5b 69 6e 63 72 20 69 5d  witches [incr i]
55f0: 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b  ].    } elseif {
5600: 24 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e 67  $n>=2 && [string
5610: 20 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24   equal -length $
5620: 6e 20 24 73 20 22 2d 72 65 70 61 69 72 22 5d 7d  n $s "-repair"]}
5630: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 72 65 70   {.      set rep
5640: 61 69 72 20 5b 6c 69 6e 64 65 78 20 24 73 77 69  air [lindex $swi
5650: 74 63 68 65 73 20 5b 69 6e 63 72 20 69 5d 5d 0a  tches [incr i]].
5660: 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 6e      } elseif {$n
5670: 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e 67 20 65  >=2 && [string e
5680: 71 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24 6e 20  qual -length $n 
5690: 24 73 20 22 2d 63 6f 75 6e 74 22 5d 7d 20 7b 0a  $s "-count"]} {.
56a0: 20 20 20 20 20 20 73 65 74 20 63 6f 75 6e 74 6f        set counto
56b0: 6e 6c 79 20 31 0a 20 20 20 20 7d 20 65 6c 73 65  nly 1.    } else
56c0: 20 7b 0a 20 20 20 20 20 20 65 72 72 6f 72 20 22   {.      error "
56d0: 75 6e 6b 6e 6f 77 6e 20 73 77 69 74 63 68 3a 20  unknown switch: 
56e0: 24 73 22 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20  $s".    }.  }.. 
56f0: 20 69 66 20 7b 24 63 6f 75 6e 74 6f 6e 6c 79 20   if {$countonly 
5700: 26 26 20 24 65 72 72 66 6d 74 21 3d 22 22 7d 20  && $errfmt!=""} 
5710: 7b 0a 20 20 20 20 65 72 72 6f 72 20 22 43 61 6e  {.    error "Can
5720: 6e 6f 74 20 75 73 65 20 2d 63 6f 75 6e 74 20 61  not use -count a
5730: 6e 64 20 2d 65 72 72 6f 72 66 6f 72 6d 61 74 20  nd -errorformat 
5740: 74 6f 67 65 74 68 65 72 22 0a 20 20 7d 0a 20 20  together".  }.  
5750: 73 65 74 20 6e 54 65 73 74 6c 69 73 74 20 5b 6c  set nTestlist [l
5760: 6c 65 6e 67 74 68 20 24 74 65 73 74 6c 69 73 74  length $testlist
5770: 5d 0a 20 20 69 66 20 7b 24 6e 54 65 73 74 6c 69  ].  if {$nTestli
5780: 73 74 25 33 20 7c 7c 20 24 6e 54 65 73 74 6c 69  st%3 || $nTestli
5790: 73 74 3d 3d 30 20 7d 20 7b 0a 20 20 20 20 65 72  st==0 } {.    er
57a0: 72 6f 72 20 22 53 45 4c 45 43 54 20 74 65 73 74  ror "SELECT test
57b0: 20 6c 69 73 74 20 63 6f 6e 74 61 69 6e 73 20 5b   list contains [
57c0: 6c 6c 65 6e 67 74 68 20 24 74 65 73 74 6c 69 73  llength $testlis
57d0: 74 5d 20 65 6c 65 6d 65 6e 74 73 22 0a 20 20 7d  t] elements".  }
57e0: 0a 0a 20 20 65 76 61 6c 20 24 72 65 70 61 69 72  ..  eval $repair
57f0: 0a 20 20 66 6f 72 65 61 63 68 20 7b 74 6e 20 73  .  foreach {tn s
5800: 71 6c 20 72 65 73 7d 20 24 74 65 73 74 6c 69 73  ql res} $testlis
5810: 74 20 7b 0a 20 20 20 20 69 66 20 7b 24 74 63 6c  t {.    if {$tcl
5820: 71 75 65 72 79 20 21 3d 20 22 22 7d 20 7b 0a 20  query != ""} {. 
5830: 20 20 20 20 20 65 78 65 63 73 71 6c 20 24 73 71       execsql $sq
5840: 6c 0a 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20  l.      uplevel 
5850: 64 6f 5f 74 65 73 74 20 24 7b 70 72 65 66 69 78  do_test ${prefix
5860: 7d 2e 24 74 6e 20 5b 6c 69 73 74 20 24 74 63 6c  }.$tn [list $tcl
5870: 71 75 65 72 79 5d 20 5b 6c 69 73 74 20 5b 6c 69  query] [list [li
5880: 73 74 20 7b 2a 7d 24 72 65 73 5d 5d 0a 20 20 20  st {*}$res]].   
5890: 20 7d 20 65 6c 73 65 69 66 20 7b 24 63 6f 75 6e   } elseif {$coun
58a0: 74 6f 6e 6c 79 7d 20 7b 0a 20 20 20 20 20 20 73  tonly} {.      s
58b0: 65 74 20 6e 52 6f 77 20 30 0a 20 20 20 20 20 20  et nRow 0.      
58c0: 64 62 20 65 76 61 6c 20 24 73 71 6c 20 7b 69 6e  db eval $sql {in
58d0: 63 72 20 6e 52 6f 77 7d 0a 20 20 20 20 20 20 75  cr nRow}.      u
58e0: 70 6c 65 76 65 6c 20 64 6f 5f 74 65 73 74 20 24  plevel do_test $
58f0: 7b 70 72 65 66 69 78 7d 2e 24 74 6e 20 5b 6c 69  {prefix}.$tn [li
5900: 73 74 20 5b 6c 69 73 74 20 73 65 74 20 7b 7d 20  st [list set {} 
5910: 24 6e 52 6f 77 5d 5d 20 5b 6c 69 73 74 20 24 72  $nRow]] [list $r
5920: 65 73 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66  es].    } elseif
5930: 20 7b 24 65 72 72 66 6d 74 3d 3d 22 22 7d 20 7b   {$errfmt==""} {
5940: 0a 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20 64  .      uplevel d
5950: 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74 20 24  o_execsql_test $
5960: 7b 70 72 65 66 69 78 7d 2e 24 7b 74 6e 7d 20 5b  {prefix}.${tn} [
5970: 6c 69 73 74 20 24 73 71 6c 5d 20 5b 6c 69 73 74  list $sql] [list
5980: 20 5b 6c 69 73 74 20 7b 2a 7d 24 72 65 73 5d 5d   [list {*}$res]]
5990: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20  .    } else {.  
59a0: 20 20 20 20 73 65 74 20 72 65 73 20 5b 6c 69 73      set res [lis
59b0: 74 20 31 20 5b 73 74 72 69 6e 67 20 74 72 69 6d  t 1 [string trim
59c0: 20 5b 66 6f 72 6d 61 74 20 24 65 72 72 66 6d 74   [format $errfmt
59d0: 20 7b 2a 7d 24 72 65 73 5d 5d 5d 0a 20 20 20 20   {*}$res]]].    
59e0: 20 20 75 70 6c 65 76 65 6c 20 64 6f 5f 63 61 74    uplevel do_cat
59f0: 63 68 73 71 6c 5f 74 65 73 74 20 24 7b 70 72 65  chsql_test ${pre
5a00: 66 69 78 7d 2e 24 7b 74 6e 7d 20 5b 6c 69 73 74  fix}.${tn} [list
5a10: 20 24 73 71 6c 5d 20 5b 6c 69 73 74 20 24 72 65   $sql] [list $re
5a20: 73 5d 0a 20 20 20 20 7d 0a 20 20 20 20 65 76 61  s].    }.    eva
5a30: 6c 20 24 72 65 70 61 69 72 0a 20 20 7d 0a 0a 7d  l $repair.  }..}
5a40: 0a 0a 70 72 6f 63 20 64 65 6c 65 74 65 5f 61 6c  ..proc delete_al
5a50: 6c 5f 64 61 74 61 20 7b 7d 20 7b 0a 20 20 64 62  l_data {} {.  db
5a60: 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 74 62   eval {SELECT tb
5a70: 6c 5f 6e 61 6d 65 20 41 53 20 74 20 46 52 4f 4d  l_name AS t FROM
5a80: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 57   sqlite_master W
5a90: 48 45 52 45 20 74 79 70 65 20 3d 20 27 74 61 62  HERE type = 'tab
5aa0: 6c 65 27 7d 20 7b 0a 20 20 20 20 64 62 20 65 76  le'} {.    db ev
5ab0: 61 6c 20 22 44 45 4c 45 54 45 20 46 52 4f 4d 20  al "DELETE FROM 
5ac0: 27 5b 73 74 72 69 6e 67 20 6d 61 70 20 7b 27 20  '[string map {' 
5ad0: 27 27 7d 20 24 74 5d 27 22 0a 20 20 7d 0a 7d 0a  ''} $t]'".  }.}.
5ae0: 0a 23 20 52 75 6e 20 61 6e 20 53 51 4c 20 73 63  .# Run an SQL sc
5af0: 72 69 70 74 2e 0a 23 20 52 65 74 75 72 6e 20 74  ript..# Return t
5b00: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 6d 69 63  he number of mic
5b10: 72 6f 73 65 63 6f 6e 64 73 20 70 65 72 20 73 74  roseconds per st
5b20: 61 74 65 6d 65 6e 74 2e 0a 23 0a 70 72 6f 63 20  atement..#.proc 
5b30: 73 70 65 65 64 5f 74 72 69 61 6c 20 7b 6e 61 6d  speed_trial {nam
5b40: 65 20 6e 75 6d 73 74 6d 74 20 75 6e 69 74 73 20  e numstmt units 
5b50: 73 71 6c 7d 20 7b 0a 20 20 70 75 74 73 20 2d 6e  sql} {.  puts -n
5b60: 6f 6e 65 77 6c 69 6e 65 20 5b 66 6f 72 6d 61 74  onewline [format
5b70: 20 7b 25 2d 32 31 2e 32 31 73 20 7d 20 24 6e 61   {%-21.21s } $na
5b80: 6d 65 2e 2e 2e 5d 0a 20 20 66 6c 75 73 68 20 73  me...].  flush s
5b90: 74 64 6f 75 74 0a 20 20 73 65 74 20 73 70 65 65  tdout.  set spee
5ba0: 64 20 5b 74 69 6d 65 20 7b 73 71 6c 69 74 65 33  d [time {sqlite3
5bb0: 5f 65 78 65 63 5f 6e 72 20 64 62 20 24 73 71 6c  _exec_nr db $sql
5bc0: 7d 5d 0a 20 20 73 65 74 20 74 6d 20 5b 6c 69 6e  }].  set tm [lin
5bd0: 64 65 78 20 24 73 70 65 65 64 20 30 5d 0a 20 20  dex $speed 0].  
5be0: 69 66 20 7b 24 74 6d 20 3d 3d 20 30 7d 20 7b 0a  if {$tm == 0} {.
5bf0: 20 20 20 20 73 65 74 20 72 61 74 65 20 5b 66 6f      set rate [fo
5c00: 72 6d 61 74 20 25 32 30 73 20 22 6d 61 6e 79 22  rmat %20s "many"
5c10: 5d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20  ].  } else {.   
5c20: 20 73 65 74 20 72 61 74 65 20 5b 66 6f 72 6d 61   set rate [forma
5c30: 74 20 25 32 30 2e 35 66 20 5b 65 78 70 72 20 7b  t %20.5f [expr {
5c40: 31 30 30 30 30 30 30 2e 30 2a 24 6e 75 6d 73 74  1000000.0*$numst
5c50: 6d 74 2f 24 74 6d 7d 5d 5d 0a 20 20 7d 0a 20 20  mt/$tm}]].  }.  
5c60: 73 65 74 20 75 32 20 24 75 6e 69 74 73 2f 73 0a  set u2 $units/s.
5c70: 20 20 70 75 74 73 20 5b 66 6f 72 6d 61 74 20 7b    puts [format {
5c80: 25 31 32 64 20 75 53 20 25 73 20 25 73 7d 20 24  %12d uS %s %s} $
5c90: 74 6d 20 24 72 61 74 65 20 24 75 32 5d 0a 20 20  tm $rate $u2].  
5ca0: 67 6c 6f 62 61 6c 20 74 6f 74 61 6c 5f 74 69 6d  global total_tim
5cb0: 65 0a 20 20 73 65 74 20 74 6f 74 61 6c 5f 74 69  e.  set total_ti
5cc0: 6d 65 20 5b 65 78 70 72 20 7b 24 74 6f 74 61 6c  me [expr {$total
5cd0: 5f 74 69 6d 65 2b 24 74 6d 7d 5d 0a 20 20 6c 61  _time+$tm}].  la
5ce0: 70 70 65 6e 64 20 3a 3a 73 70 65 65 64 5f 74 72  ppend ::speed_tr
5cf0: 69 61 6c 5f 74 69 6d 65 73 20 24 6e 61 6d 65 20  ial_times $name 
5d00: 24 74 6d 0a 7d 0a 70 72 6f 63 20 73 70 65 65 64  $tm.}.proc speed
5d10: 5f 74 72 69 61 6c 5f 74 63 6c 20 7b 6e 61 6d 65  _trial_tcl {name
5d20: 20 6e 75 6d 73 74 6d 74 20 75 6e 69 74 73 20 73   numstmt units s
5d30: 63 72 69 70 74 7d 20 7b 0a 20 20 70 75 74 73 20  cript} {.  puts 
5d40: 2d 6e 6f 6e 65 77 6c 69 6e 65 20 5b 66 6f 72 6d  -nonewline [form
5d50: 61 74 20 7b 25 2d 32 31 2e 32 31 73 20 7d 20 24  at {%-21.21s } $
5d60: 6e 61 6d 65 2e 2e 2e 5d 0a 20 20 66 6c 75 73 68  name...].  flush
5d70: 20 73 74 64 6f 75 74 0a 20 20 73 65 74 20 73 70   stdout.  set sp
5d80: 65 65 64 20 5b 74 69 6d 65 20 7b 65 76 61 6c 20  eed [time {eval 
5d90: 24 73 63 72 69 70 74 7d 5d 0a 20 20 73 65 74 20  $script}].  set 
5da0: 74 6d 20 5b 6c 69 6e 64 65 78 20 24 73 70 65 65  tm [lindex $spee
5db0: 64 20 30 5d 0a 20 20 69 66 20 7b 24 74 6d 20 3d  d 0].  if {$tm =
5dc0: 3d 20 30 7d 20 7b 0a 20 20 20 20 73 65 74 20 72  = 0} {.    set r
5dd0: 61 74 65 20 5b 66 6f 72 6d 61 74 20 25 32 30 73  ate [format %20s
5de0: 20 22 6d 61 6e 79 22 5d 0a 20 20 7d 20 65 6c 73   "many"].  } els
5df0: 65 20 7b 0a 20 20 20 20 73 65 74 20 72 61 74 65  e {.    set rate
5e00: 20 5b 66 6f 72 6d 61 74 20 25 32 30 2e 35 66 20   [format %20.5f 
5e10: 5b 65 78 70 72 20 7b 31 30 30 30 30 30 30 2e 30  [expr {1000000.0
5e20: 2a 24 6e 75 6d 73 74 6d 74 2f 24 74 6d 7d 5d 5d  *$numstmt/$tm}]]
5e30: 0a 20 20 7d 0a 20 20 73 65 74 20 75 32 20 24 75  .  }.  set u2 $u
5e40: 6e 69 74 73 2f 73 0a 20 20 70 75 74 73 20 5b 66  nits/s.  puts [f
5e50: 6f 72 6d 61 74 20 7b 25 31 32 64 20 75 53 20 25  ormat {%12d uS %
5e60: 73 20 25 73 7d 20 24 74 6d 20 24 72 61 74 65 20  s %s} $tm $rate 
5e70: 24 75 32 5d 0a 20 20 67 6c 6f 62 61 6c 20 74 6f  $u2].  global to
5e80: 74 61 6c 5f 74 69 6d 65 0a 20 20 73 65 74 20 74  tal_time.  set t
5e90: 6f 74 61 6c 5f 74 69 6d 65 20 5b 65 78 70 72 20  otal_time [expr 
5ea0: 7b 24 74 6f 74 61 6c 5f 74 69 6d 65 2b 24 74 6d  {$total_time+$tm
5eb0: 7d 5d 0a 20 20 6c 61 70 70 65 6e 64 20 3a 3a 73  }].  lappend ::s
5ec0: 70 65 65 64 5f 74 72 69 61 6c 5f 74 69 6d 65 73  peed_trial_times
5ed0: 20 24 6e 61 6d 65 20 24 74 6d 0a 7d 0a 70 72 6f   $name $tm.}.pro
5ee0: 63 20 73 70 65 65 64 5f 74 72 69 61 6c 5f 69 6e  c speed_trial_in
5ef0: 69 74 20 7b 6e 61 6d 65 7d 20 7b 0a 20 20 67 6c  it {name} {.  gl
5f00: 6f 62 61 6c 20 74 6f 74 61 6c 5f 74 69 6d 65 0a  obal total_time.
5f10: 20 20 73 65 74 20 74 6f 74 61 6c 5f 74 69 6d 65    set total_time
5f20: 20 30 0a 20 20 73 65 74 20 3a 3a 73 70 65 65 64   0.  set ::speed
5f30: 5f 74 72 69 61 6c 5f 74 69 6d 65 73 20 5b 6c 69  _trial_times [li
5f40: 73 74 5d 0a 20 20 73 71 6c 69 74 65 33 20 76 65  st].  sqlite3 ve
5f50: 72 73 64 62 20 3a 6d 65 6d 6f 72 79 3a 0a 20 20  rsdb :memory:.  
5f60: 73 65 74 20 76 65 72 73 20 5b 76 65 72 73 64 62  set vers [versdb
5f70: 20 6f 6e 65 20 7b 53 45 4c 45 43 54 20 73 71 6c   one {SELECT sql
5f80: 69 74 65 5f 73 6f 75 72 63 65 5f 69 64 28 29 7d  ite_source_id()}
5f90: 5d 0a 20 20 76 65 72 73 64 62 20 63 6c 6f 73 65  ].  versdb close
5fa0: 0a 20 20 70 75 74 73 20 22 53 51 4c 69 74 65 20  .  puts "SQLite 
5fb0: 24 76 65 72 73 22 0a 7d 0a 70 72 6f 63 20 73 70  $vers".}.proc sp
5fc0: 65 65 64 5f 74 72 69 61 6c 5f 73 75 6d 6d 61 72  eed_trial_summar
5fd0: 79 20 7b 6e 61 6d 65 7d 20 7b 0a 20 20 67 6c 6f  y {name} {.  glo
5fe0: 62 61 6c 20 74 6f 74 61 6c 5f 74 69 6d 65 0a 20  bal total_time. 
5ff0: 20 70 75 74 73 20 5b 66 6f 72 6d 61 74 20 7b 25   puts [format {%
6000: 2d 32 31 2e 32 31 73 20 25 31 32 64 20 75 53 20  -21.21s %12d uS 
6010: 54 4f 54 41 4c 7d 20 24 6e 61 6d 65 20 24 74 6f  TOTAL} $name $to
6020: 74 61 6c 5f 74 69 6d 65 5d 0a 0a 20 20 69 66 20  tal_time]..  if 
6030: 7b 20 30 20 7d 20 7b 0a 20 20 20 20 73 71 6c 69  { 0 } {.    sqli
6040: 74 65 33 20 76 65 72 73 64 62 20 3a 6d 65 6d 6f  te3 versdb :memo
6050: 72 79 3a 0a 20 20 20 20 73 65 74 20 76 65 72 73  ry:.    set vers
6060: 20 5b 6c 69 6e 64 65 78 20 5b 76 65 72 73 64 62   [lindex [versdb
6070: 20 6f 6e 65 20 7b 53 45 4c 45 43 54 20 73 71 6c   one {SELECT sql
6080: 69 74 65 5f 73 6f 75 72 63 65 5f 69 64 28 29 7d  ite_source_id()}
6090: 5d 20 30 5d 0a 20 20 20 20 76 65 72 73 64 62 20  ] 0].    versdb 
60a0: 63 6c 6f 73 65 0a 20 20 20 20 70 75 74 73 20 22  close.    puts "
60b0: 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20  CREATE TABLE IF 
60c0: 4e 4f 54 20 45 58 49 53 54 53 20 74 69 6d 65 28  NOT EXISTS time(
60d0: 76 65 72 73 69 6f 6e 2c 20 73 63 72 69 70 74 2c  version, script,
60e0: 20 74 65 73 74 2c 20 75 73 29 3b 22 0a 20 20 20   test, us);".   
60f0: 20 66 6f 72 65 61 63 68 20 7b 74 65 73 74 20 75   foreach {test u
6100: 73 7d 20 24 3a 3a 73 70 65 65 64 5f 74 72 69 61  s} $::speed_tria
6110: 6c 5f 74 69 6d 65 73 20 7b 0a 20 20 20 20 20 20  l_times {.      
6120: 70 75 74 73 20 22 49 4e 53 45 52 54 20 49 4e 54  puts "INSERT INT
6130: 4f 20 74 69 6d 65 20 56 41 4c 55 45 53 28 27 24  O time VALUES('$
6140: 76 65 72 73 27 2c 20 27 24 6e 61 6d 65 27 2c 20  vers', '$name', 
6150: 27 24 74 65 73 74 27 2c 20 24 75 73 29 3b 22 0a  '$test', $us);".
6160: 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 23 20 52      }.  }.}..# R
6170: 75 6e 20 74 68 69 73 20 72 6f 75 74 69 6e 65 20  un this routine 
6180: 6c 61 73 74 0a 23 0a 70 72 6f 63 20 66 69 6e 69  last.#.proc fini
6190: 73 68 5f 74 65 73 74 20 7b 7d 20 7b 0a 20 20 63  sh_test {} {.  c
61a0: 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a  atch {db close}.
61b0: 20 20 63 61 74 63 68 20 7b 64 62 32 20 63 6c 6f    catch {db2 clo
61c0: 73 65 7d 0a 20 20 63 61 74 63 68 20 7b 64 62 33  se}.  catch {db3
61d0: 20 63 6c 6f 73 65 7d 0a 20 20 69 66 20 7b 30 3d   close}.  if {0=
61e0: 3d 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  =[info exists ::
61f0: 53 4c 41 56 45 5d 7d 20 7b 20 66 69 6e 61 6c 69  SLAVE]} { finali
6200: 7a 65 5f 74 65 73 74 69 6e 67 20 7d 0a 7d 0a 70  ze_testing }.}.p
6210: 72 6f 63 20 66 69 6e 61 6c 69 7a 65 5f 74 65 73  roc finalize_tes
6220: 74 69 6e 67 20 7b 7d 20 7b 0a 20 20 67 6c 6f 62  ting {} {.  glob
6230: 61 6c 20 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66  al sqlite_open_f
6240: 69 6c 65 5f 63 6f 75 6e 74 0a 0a 20 20 73 65 74  ile_count..  set
6250: 20 6f 6d 69 74 4c 69 73 74 20 5b 73 65 74 5f 74   omitList [set_t
6260: 65 73 74 5f 63 6f 75 6e 74 65 72 20 6f 6d 69 74  est_counter omit
6270: 5f 6c 69 73 74 5d 0a 0a 20 20 63 61 74 63 68 20  _list]..  catch 
6280: 7b 64 62 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74  {db close}.  cat
6290: 63 68 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 20  ch {db2 close}. 
62a0: 20 63 61 74 63 68 20 7b 64 62 33 20 63 6c 6f 73   catch {db3 clos
62b0: 65 7d 0a 0a 20 20 76 66 73 5f 75 6e 6c 69 6e 6b  e}..  vfs_unlink
62c0: 5f 74 65 73 74 0a 20 20 73 71 6c 69 74 65 33 20  _test.  sqlite3 
62d0: 64 62 20 7b 7d 0a 20 20 23 20 73 71 6c 69 74 65  db {}.  # sqlite
62e0: 33 5f 63 6c 65 61 72 5f 74 73 64 5f 6d 65 6d 64  3_clear_tsd_memd
62f0: 65 62 75 67 0a 20 20 64 62 20 63 6c 6f 73 65 0a  ebug.  db close.
6300: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 65 74 5f    sqlite3_reset_
6310: 61 75 74 6f 5f 65 78 74 65 6e 73 69 6f 6e 0a 0a  auto_extension..
6320: 20 20 73 71 6c 69 74 65 33 5f 73 6f 66 74 5f 68    sqlite3_soft_h
6330: 65 61 70 5f 6c 69 6d 69 74 20 30 0a 20 20 73 65  eap_limit 0.  se
6340: 74 20 6e 54 65 73 74 20 5b 69 6e 63 72 5f 6e 74  t nTest [incr_nt
6350: 65 73 74 5d 0a 20 20 73 65 74 20 6e 45 72 72 20  est].  set nErr 
6360: 5b 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65  [set_test_counte
6370: 72 20 65 72 72 6f 72 73 5d 0a 0a 20 20 73 65 74  r errors]..  set
6380: 20 6e 4b 6e 6f 77 6e 20 30 0a 20 20 69 66 20 7b   nKnown 0.  if {
6390: 5b 66 69 6c 65 20 72 65 61 64 61 62 6c 65 20 6b  [file readable k
63a0: 6e 6f 77 6e 2d 70 72 6f 62 6c 65 6d 73 2e 74 78  nown-problems.tx
63b0: 74 5d 7d 20 7b 0a 20 20 20 20 73 65 74 20 66 64  t]} {.    set fd
63c0: 20 5b 6f 70 65 6e 20 6b 6e 6f 77 6e 2d 70 72 6f   [open known-pro
63d0: 62 6c 65 6d 73 2e 74 78 74 5d 0a 20 20 20 20 73  blems.txt].    s
63e0: 65 74 20 63 6f 6e 74 65 6e 74 20 5b 72 65 61 64  et content [read
63f0: 20 24 66 64 5d 0a 20 20 20 20 63 6c 6f 73 65 20   $fd].    close 
6400: 24 66 64 0a 20 20 20 20 66 6f 72 65 61 63 68 20  $fd.    foreach 
6410: 78 20 24 63 6f 6e 74 65 6e 74 20 7b 73 65 74 20  x $content {set 
6420: 6b 6e 6f 77 6e 5f 65 72 72 6f 72 28 24 78 29 20  known_error($x) 
6430: 31 7d 0a 20 20 20 20 66 6f 72 65 61 63 68 20 78  1}.    foreach x
6440: 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74   [set_test_count
6450: 65 72 20 66 61 69 6c 5f 6c 69 73 74 5d 20 7b 0a  er fail_list] {.
6460: 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20        if {[info 
6470: 65 78 69 73 74 73 20 6b 6e 6f 77 6e 5f 65 72 72  exists known_err
6480: 6f 72 28 24 78 29 5d 7d 20 7b 69 6e 63 72 20 6e  or($x)]} {incr n
6490: 4b 6e 6f 77 6e 7d 0a 20 20 20 20 7d 0a 20 20 7d  Known}.    }.  }
64a0: 0a 20 20 69 66 20 7b 24 6e 4b 6e 6f 77 6e 3e 30  .  if {$nKnown>0
64b0: 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22 5b 65  } {.    puts "[e
64c0: 78 70 72 20 7b 24 6e 45 72 72 2d 24 6e 4b 6e 6f  xpr {$nErr-$nKno
64d0: 77 6e 7d 5d 20 6e 65 77 20 65 72 72 6f 72 73 20  wn}] new errors 
64e0: 61 6e 64 20 24 6e 4b 6e 6f 77 6e 20 6b 6e 6f 77  and $nKnown know
64f0: 6e 20 65 72 72 6f 72 73 5c 0a 20 20 20 20 20 20  n errors\.      
6500: 20 20 20 6f 75 74 20 6f 66 20 24 6e 54 65 73 74     out of $nTest
6510: 20 74 65 73 74 73 22 0a 20 20 7d 20 65 6c 73 65   tests".  } else
6520: 20 7b 0a 20 20 20 20 70 75 74 73 20 22 24 6e 45   {.    puts "$nE
6530: 72 72 20 65 72 72 6f 72 73 20 6f 75 74 20 6f 66  rr errors out of
6540: 20 24 6e 54 65 73 74 20 74 65 73 74 73 22 0a 20   $nTest tests". 
6550: 20 7d 0a 20 20 69 66 20 7b 24 6e 45 72 72 3e 24   }.  if {$nErr>$
6560: 6e 4b 6e 6f 77 6e 7d 20 7b 0a 20 20 20 20 70 75  nKnown} {.    pu
6570: 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 22 46  ts -nonewline "F
6580: 61 69 6c 75 72 65 73 20 6f 6e 20 74 68 65 73 65  ailures on these
6590: 20 74 65 73 74 73 3a 22 0a 20 20 20 20 66 6f 72   tests:".    for
65a0: 65 61 63 68 20 78 20 5b 73 65 74 5f 74 65 73 74  each x [set_test
65b0: 5f 63 6f 75 6e 74 65 72 20 66 61 69 6c 5f 6c 69  _counter fail_li
65c0: 73 74 5d 20 7b 0a 20 20 20 20 20 20 69 66 20 7b  st] {.      if {
65d0: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 6b 6e  ![info exists kn
65e0: 6f 77 6e 5f 65 72 72 6f 72 28 24 78 29 5d 7d 20  own_error($x)]} 
65f0: 7b 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65  {puts -nonewline
6600: 20 22 20 24 78 22 7d 0a 20 20 20 20 7d 0a 20 20   " $x"}.    }.  
6610: 20 20 70 75 74 73 20 22 22 0a 20 20 7d 0a 20 20    puts "".  }.  
6620: 66 6f 72 65 61 63 68 20 77 61 72 6e 69 6e 67 20  foreach warning 
6630: 5b 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65  [set_test_counte
6640: 72 20 77 61 72 6e 5f 6c 69 73 74 5d 20 7b 0a 20  r warn_list] {. 
6650: 20 20 20 70 75 74 73 20 22 57 61 72 6e 69 6e 67     puts "Warning
6660: 3a 20 24 77 61 72 6e 69 6e 67 22 0a 20 20 7d 0a  : $warning".  }.
6670: 20 20 72 75 6e 5f 74 68 72 65 61 64 5f 74 65 73    run_thread_tes
6680: 74 73 20 31 0a 20 20 69 66 20 7b 5b 6c 6c 65 6e  ts 1.  if {[llen
6690: 67 74 68 20 24 6f 6d 69 74 4c 69 73 74 5d 3e 30  gth $omitList]>0
66a0: 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22 4f 6d  } {.    puts "Om
66b0: 69 74 74 65 64 20 74 65 73 74 20 63 61 73 65 73  itted test cases
66c0: 3a 22 0a 20 20 20 20 73 65 74 20 70 72 65 63 20  :".    set prec 
66d0: 7b 7d 0a 20 20 20 20 66 6f 72 65 61 63 68 20 7b  {}.    foreach {
66e0: 72 65 63 7d 20 5b 6c 73 6f 72 74 20 24 6f 6d 69  rec} [lsort $omi
66f0: 74 4c 69 73 74 5d 20 7b 0a 20 20 20 20 20 20 69  tList] {.      i
6700: 66 20 7b 24 72 65 63 3d 3d 24 70 72 65 63 7d 20  f {$rec==$prec} 
6710: 63 6f 6e 74 69 6e 75 65 0a 20 20 20 20 20 20 73  continue.      s
6720: 65 74 20 70 72 65 63 20 24 72 65 63 0a 20 20 20  et prec $rec.   
6730: 20 20 20 70 75 74 73 20 5b 66 6f 72 6d 61 74 20     puts [format 
6740: 7b 20 20 25 2d 31 32 73 20 25 73 7d 20 5b 6c 69  {  %-12s %s} [li
6750: 6e 64 65 78 20 24 72 65 63 20 30 5d 20 5b 6c 69  ndex $rec 0] [li
6760: 6e 64 65 78 20 24 72 65 63 20 31 5d 5d 0a 20 20  ndex $rec 1]].  
6770: 20 20 7d 0a 20 20 7d 0a 20 20 69 66 20 7b 24 6e    }.  }.  if {$n
6780: 45 72 72 3e 30 20 26 26 20 21 5b 77 6f 72 6b 69  Err>0 && ![worki
6790: 6e 67 5f 36 34 62 69 74 5f 69 6e 74 5d 7d 20 7b  ng_64bit_int]} {
67a0: 0a 20 20 20 20 70 75 74 73 20 22 2a 2a 2a 2a 2a  .    puts "*****
67b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
67c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
67d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
67e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 0a 20  *************". 
67f0: 20 20 20 70 75 74 73 20 22 4e 2e 42 2e 3a 20 20     puts "N.B.:  
6800: 54 68 65 20 76 65 72 73 69 6f 6e 20 6f 66 20 54  The version of T
6810: 43 4c 20 74 68 61 74 20 79 6f 75 20 75 73 65 64  CL that you used
6820: 20 74 6f 20 62 75 69 6c 64 20 74 68 69 73 20 74   to build this t
6830: 65 73 74 20 68 61 72 6e 65 73 73 22 0a 20 20 20  est harness".   
6840: 20 70 75 74 73 20 22 69 73 20 64 65 66 65 63 74   puts "is defect
6850: 69 76 65 20 69 6e 20 74 68 61 74 20 69 74 20 64  ive in that it d
6860: 6f 65 73 20 6e 6f 74 20 73 75 70 70 6f 72 74 20  oes not support 
6870: 36 34 2d 62 69 74 20 69 6e 74 65 67 65 72 73 2e  64-bit integers.
6880: 20 20 53 6f 6d 65 20 6f 72 22 0a 20 20 20 20 70    Some or".    p
6890: 75 74 73 20 22 61 6c 6c 20 6f 66 20 74 68 65 20  uts "all of the 
68a0: 74 65 73 74 20 66 61 69 6c 75 72 65 73 20 61 62  test failures ab
68b0: 6f 76 65 20 6d 69 67 68 74 20 62 65 20 61 20 72  ove might be a r
68c0: 65 73 75 6c 74 20 66 72 6f 6d 20 74 68 69 73 20  esult from this 
68d0: 64 65 66 65 63 74 22 0a 20 20 20 20 70 75 74 73  defect".    puts
68e0: 20 22 69 6e 20 79 6f 75 72 20 54 43 4c 20 62 75   "in your TCL bu
68f0: 69 6c 64 2e 22 0a 20 20 20 20 70 75 74 73 20 22  ild.".    puts "
6900: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6910: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6920: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6930: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6940: 2a 2a 22 0a 20 20 7d 0a 20 20 69 66 20 7b 24 3a  **".  }.  if {$:
6950: 3a 63 6d 64 6c 69 6e 65 61 72 67 28 62 69 6e 61  :cmdlinearg(bina
6960: 72 79 6c 6f 67 29 7d 20 7b 0a 20 20 20 20 76 66  rylog)} {.    vf
6970: 73 6c 6f 67 20 66 69 6e 61 6c 69 7a 65 20 62 69  slog finalize bi
6980: 6e 61 72 79 6c 6f 67 0a 20 20 7d 0a 20 20 69 66  narylog.  }.  if
6990: 20 7b 24 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66   {$sqlite_open_f
69a0: 69 6c 65 5f 63 6f 75 6e 74 7d 20 7b 0a 20 20 20  ile_count} {.   
69b0: 20 70 75 74 73 20 22 24 73 71 6c 69 74 65 5f 6f   puts "$sqlite_o
69c0: 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 20 66  pen_file_count f
69d0: 69 6c 65 73 20 77 65 72 65 20 6c 65 66 74 20 6f  iles were left o
69e0: 70 65 6e 22 0a 20 20 20 20 69 6e 63 72 20 6e 45  pen".    incr nE
69f0: 72 72 0a 20 20 7d 0a 20 20 69 66 20 7b 5b 6c 69  rr.  }.  if {[li
6a00: 6e 64 65 78 20 5b 73 71 6c 69 74 65 33 5f 73 74  ndex [sqlite3_st
6a10: 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54  atus SQLITE_STAT
6a20: 55 53 5f 4d 41 4c 4c 4f 43 5f 43 4f 55 4e 54 20  US_MALLOC_COUNT 
6a30: 30 5d 20 31 5d 3e 30 20 7c 7c 0a 20 20 20 20 20  0] 1]>0 ||.     
6a40: 20 20 20 20 20 20 20 20 20 5b 73 71 6c 69 74 65           [sqlite
6a50: 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 64 5d 3e 30  3_memory_used]>0
6a60: 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22 55 6e  } {.    puts "Un
6a70: 66 72 65 65 64 20 6d 65 6d 6f 72 79 3a 20 5b 73  freed memory: [s
6a80: 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73  qlite3_memory_us
6a90: 65 64 5d 20 62 79 74 65 73 20 69 6e 5c 0a 20 20  ed] bytes in\.  
6aa0: 20 20 20 20 20 20 20 5b 6c 69 6e 64 65 78 20 5b         [lindex [
6ab0: 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53  sqlite3_status S
6ac0: 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 4d 41 4c  QLITE_STATUS_MAL
6ad0: 4c 4f 43 5f 43 4f 55 4e 54 20 30 5d 20 31 5d 20  LOC_COUNT 0] 1] 
6ae0: 61 6c 6c 6f 63 61 74 69 6f 6e 73 22 0a 20 20 20  allocations".   
6af0: 20 69 6e 63 72 20 6e 45 72 72 0a 20 20 20 20 69   incr nErr.    i
6b00: 66 63 61 70 61 62 6c 65 20 6d 65 6d 64 65 62 75  fcapable memdebu
6b10: 67 7c 7c 6d 65 6d 35 7c 7c 28 6d 65 6d 33 26 26  g||mem5||(mem3&&
6b20: 64 65 62 75 67 29 20 7b 0a 20 20 20 20 20 20 70  debug) {.      p
6b30: 75 74 73 20 22 57 72 69 74 69 6e 67 20 75 6e 66  uts "Writing unf
6b40: 72 65 65 64 20 6d 65 6d 6f 72 79 20 6c 6f 67 20  reed memory log 
6b50: 74 6f 20 5c 22 2e 2f 6d 65 6d 6c 65 61 6b 2e 74  to \"./memleak.t
6b60: 78 74 5c 22 22 0a 20 20 20 20 20 20 73 71 6c 69  xt\"".      sqli
6b70: 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 64 75 6d  te3_memdebug_dum
6b80: 70 20 2e 2f 6d 65 6d 6c 65 61 6b 2e 74 78 74 0a  p ./memleak.txt.
6b90: 20 20 20 20 7d 0a 20 20 7d 20 65 6c 73 65 20 7b      }.  } else {
6ba0: 0a 20 20 20 20 70 75 74 73 20 22 41 6c 6c 20 6d  .    puts "All m
6bb0: 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e  emory allocation
6bc0: 73 20 66 72 65 65 64 20 2d 20 6e 6f 20 6c 65 61  s freed - no lea
6bd0: 6b 73 22 0a 20 20 20 20 69 66 63 61 70 61 62 6c  ks".    ifcapabl
6be0: 65 20 6d 65 6d 64 65 62 75 67 7c 7c 6d 65 6d 35  e memdebug||mem5
6bf0: 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33   {.      sqlite3
6c00: 5f 6d 65 6d 64 65 62 75 67 5f 64 75 6d 70 20 2e  _memdebug_dump .
6c10: 2f 6d 65 6d 75 73 61 67 65 2e 74 78 74 0a 20 20  /memusage.txt.  
6c20: 20 20 7d 0a 20 20 7d 0a 20 20 73 68 6f 77 5f 6d    }.  }.  show_m
6c30: 65 6d 73 74 61 74 73 0a 20 20 70 75 74 73 20 22  emstats.  puts "
6c40: 4d 61 78 69 6d 75 6d 20 6d 65 6d 6f 72 79 20 75  Maximum memory u
6c50: 73 61 67 65 3a 20 5b 73 71 6c 69 74 65 33 5f 6d  sage: [sqlite3_m
6c60: 65 6d 6f 72 79 5f 68 69 67 68 77 61 74 65 72 20  emory_highwater 
6c70: 31 5d 20 62 79 74 65 73 22 0a 20 20 70 75 74 73  1] bytes".  puts
6c80: 20 22 43 75 72 72 65 6e 74 20 6d 65 6d 6f 72 79   "Current memory
6c90: 20 75 73 61 67 65 3a 20 5b 73 71 6c 69 74 65 33   usage: [sqlite3
6ca0: 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 61 74 65  _memory_highwate
6cb0: 72 5d 20 62 79 74 65 73 22 0a 20 20 69 66 20 7b  r] bytes".  if {
6cc0: 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73 20 73  [info commands s
6cd0: 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f  qlite3_memdebug_
6ce0: 6d 61 6c 6c 6f 63 5f 63 6f 75 6e 74 5d 20 6e 65  malloc_count] ne
6cf0: 20 22 22 7d 20 7b 0a 20 20 20 20 70 75 74 73 20   ""} {.    puts 
6d00: 22 4e 75 6d 62 65 72 20 6f 66 20 6d 61 6c 6c 6f  "Number of mallo
6d10: 63 28 29 20 20 3a 20 5b 73 71 6c 69 74 65 33 5f  c()  : [sqlite3_
6d20: 6d 65 6d 64 65 62 75 67 5f 6d 61 6c 6c 6f 63 5f  memdebug_malloc_
6d30: 63 6f 75 6e 74 5d 20 63 61 6c 6c 73 22 0a 20 20  count] calls".  
6d40: 7d 0a 20 20 69 66 20 7b 24 3a 3a 63 6d 64 6c 69  }.  if {$::cmdli
6d50: 6e 65 61 72 67 28 6d 61 6c 6c 6f 63 74 72 61 63  nearg(malloctrac
6d60: 65 29 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22  e)} {.    puts "
6d70: 57 72 69 74 69 6e 67 20 6d 61 6c 6c 6f 63 73 2e  Writing mallocs.
6d80: 73 71 6c 2e 2e 2e 22 0a 20 20 20 20 6d 65 6d 64  sql...".    memd
6d90: 65 62 75 67 5f 6c 6f 67 5f 73 71 6c 0a 20 20 20  ebug_log_sql.   
6da0: 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75   sqlite3_memdebu
6db0: 67 5f 6c 6f 67 20 73 74 6f 70 0a 20 20 20 20 73  g_log stop.    s
6dc0: 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f  qlite3_memdebug_
6dd0: 6c 6f 67 20 63 6c 65 61 72 0a 0a 20 20 20 20 69  log clear..    i
6de0: 66 20 7b 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 6f  f {[sqlite3_memo
6df0: 72 79 5f 75 73 65 64 5d 3e 30 7d 20 7b 0a 20 20  ry_used]>0} {.  
6e00: 20 20 20 20 70 75 74 73 20 22 57 72 69 74 69 6e      puts "Writin
6e10: 67 20 6c 65 61 6b 73 2e 73 71 6c 2e 2e 2e 22 0a  g leaks.sql...".
6e20: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65        sqlite3_me
6e30: 6d 64 65 62 75 67 5f 6c 6f 67 20 73 79 6e 63 0a  mdebug_log sync.
6e40: 20 20 20 20 20 20 6d 65 6d 64 65 62 75 67 5f 6c        memdebug_l
6e50: 6f 67 5f 73 71 6c 20 6c 65 61 6b 73 2e 73 71 6c  og_sql leaks.sql
6e60: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 66 6f 72  .    }.  }.  for
6e70: 65 61 63 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f  each f [glob -no
6e80: 63 6f 6d 70 6c 61 69 6e 20 74 65 73 74 2e 64 62  complain test.db
6e90: 2d 2a 2d 6a 6f 75 72 6e 61 6c 5d 20 7b 0a 20 20  -*-journal] {.  
6ea0: 20 20 66 6f 72 63 65 64 65 6c 65 74 65 20 24 66    forcedelete $f
6eb0: 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 66  .  }.  foreach f
6ec0: 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61   [glob -nocompla
6ed0: 69 6e 20 74 65 73 74 2e 64 62 2d 6d 6a 2a 5d 20  in test.db-mj*] 
6ee0: 7b 0a 20 20 20 20 66 6f 72 63 65 64 65 6c 65 74  {.    forcedelet
6ef0: 65 20 24 66 0a 20 20 7d 0a 20 20 65 78 69 74 20  e $f.  }.  exit 
6f00: 5b 65 78 70 72 20 7b 24 6e 45 72 72 3e 30 7d 5d  [expr {$nErr>0}]
6f10: 0a 7d 0a 0a 23 20 44 69 73 70 6c 61 79 20 6d 65  .}..# Display me
6f20: 6d 6f 72 79 20 73 74 61 74 69 73 74 69 63 73 20  mory statistics 
6f30: 66 6f 72 20 61 6e 61 6c 79 73 69 73 20 61 6e 64  for analysis and
6f40: 20 64 65 62 75 67 67 69 6e 67 20 70 75 72 70 6f   debugging purpo
6f50: 73 65 73 2e 0a 23 0a 70 72 6f 63 20 73 68 6f 77  ses..#.proc show
6f60: 5f 6d 65 6d 73 74 61 74 73 20 7b 7d 20 7b 0a 20  _memstats {} {. 
6f70: 20 73 65 74 20 78 20 5b 73 71 6c 69 74 65 33 5f   set x [sqlite3_
6f80: 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54  status SQLITE_ST
6f90: 41 54 55 53 5f 4d 45 4d 4f 52 59 5f 55 53 45 44  ATUS_MEMORY_USED
6fa0: 20 30 5d 0a 20 20 73 65 74 20 79 20 5b 73 71 6c   0].  set y [sql
6fb0: 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49  ite3_status SQLI
6fc0: 54 45 5f 53 54 41 54 55 53 5f 4d 41 4c 4c 4f 43  TE_STATUS_MALLOC
6fd0: 5f 53 49 5a 45 20 30 5d 0a 20 20 73 65 74 20 76  _SIZE 0].  set v
6fe0: 61 6c 20 5b 66 6f 72 6d 61 74 20 7b 6e 6f 77 20  al [format {now 
6ff0: 25 31 30 64 20 20 6d 61 78 20 25 31 30 64 20 20  %10d  max %10d  
7000: 6d 61 78 2d 73 69 7a 65 20 25 31 30 64 7d 20 5c  max-size %10d} \
7010: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b  .              [
7020: 6c 69 6e 64 65 78 20 24 78 20 31 5d 20 5b 6c 69  lindex $x 1] [li
7030: 6e 64 65 78 20 24 78 20 32 5d 20 5b 6c 69 6e 64  ndex $x 2] [lind
7040: 65 78 20 24 79 20 32 5d 5d 0a 20 20 70 75 74 73  ex $y 2]].  puts
7050: 20 22 4d 65 6d 6f 72 79 20 75 73 65 64 3a 20 20   "Memory used:  
7060: 20 20 20 20 20 20 20 20 24 76 61 6c 22 0a 20 20          $val".  
7070: 73 65 74 20 78 20 5b 73 71 6c 69 74 65 33 5f 73  set x [sqlite3_s
7080: 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41  tatus SQLITE_STA
7090: 54 55 53 5f 4d 41 4c 4c 4f 43 5f 43 4f 55 4e 54  TUS_MALLOC_COUNT
70a0: 20 30 5d 0a 20 20 73 65 74 20 76 61 6c 20 5b 66   0].  set val [f
70b0: 6f 72 6d 61 74 20 7b 6e 6f 77 20 25 31 30 64 20  ormat {now %10d 
70c0: 20 6d 61 78 20 25 31 30 64 7d 20 5b 6c 69 6e 64   max %10d} [lind
70d0: 65 78 20 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78  ex $x 1] [lindex
70e0: 20 24 78 20 32 5d 5d 0a 20 20 70 75 74 73 20 22   $x 2]].  puts "
70f0: 41 6c 6c 6f 63 61 74 69 6f 6e 20 63 6f 75 6e 74  Allocation count
7100: 3a 20 20 20 20 20 24 76 61 6c 22 0a 20 20 73 65  :     $val".  se
7110: 74 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61  t x [sqlite3_sta
7120: 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55  tus SQLITE_STATU
7130: 53 5f 50 41 47 45 43 41 43 48 45 5f 55 53 45 44  S_PAGECACHE_USED
7140: 20 30 5d 0a 20 20 73 65 74 20 79 20 5b 73 71 6c   0].  set y [sql
7150: 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49  ite3_status SQLI
7160: 54 45 5f 53 54 41 54 55 53 5f 50 41 47 45 43 41  TE_STATUS_PAGECA
7170: 43 48 45 5f 53 49 5a 45 20 30 5d 0a 20 20 73 65  CHE_SIZE 0].  se
7180: 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b 6e  t val [format {n
7190: 6f 77 20 25 31 30 64 20 20 6d 61 78 20 25 31 30  ow %10d  max %10
71a0: 64 20 20 6d 61 78 2d 73 69 7a 65 20 25 31 30 64  d  max-size %10d
71b0: 7d 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20  } \.            
71c0: 20 20 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d 20    [lindex $x 1] 
71d0: 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 20 5b 6c  [lindex $x 2] [l
71e0: 69 6e 64 65 78 20 24 79 20 32 5d 5d 0a 20 20 70  index $y 2]].  p
71f0: 75 74 73 20 22 50 61 67 65 2d 63 61 63 68 65 20  uts "Page-cache 
7200: 75 73 65 64 3a 20 20 20 20 20 20 24 76 61 6c 22  used:      $val"
7210: 0a 20 20 73 65 74 20 78 20 5b 73 71 6c 69 74 65  .  set x [sqlite
7220: 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f  3_status SQLITE_
7230: 53 54 41 54 55 53 5f 50 41 47 45 43 41 43 48 45  STATUS_PAGECACHE
7240: 5f 4f 56 45 52 46 4c 4f 57 20 30 5d 0a 20 20 73  _OVERFLOW 0].  s
7250: 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b  et val [format {
7260: 6e 6f 77 20 25 31 30 64 20 20 6d 61 78 20 25 31  now %10d  max %1
7270: 30 64 7d 20 5b 6c 69 6e 64 65 78 20 24 78 20 31  0d} [lindex $x 1
7280: 5d 20 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 5d  ] [lindex $x 2]]
7290: 0a 20 20 70 75 74 73 20 22 50 61 67 65 2d 63 61  .  puts "Page-ca
72a0: 63 68 65 20 6f 76 65 72 66 6c 6f 77 3a 20 20 24  che overflow:  $
72b0: 76 61 6c 22 0a 20 20 73 65 74 20 78 20 5b 73 71  val".  set x [sq
72c0: 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c  lite3_status SQL
72d0: 49 54 45 5f 53 54 41 54 55 53 5f 53 43 52 41 54  ITE_STATUS_SCRAT
72e0: 43 48 5f 55 53 45 44 20 30 5d 0a 20 20 73 65 74  CH_USED 0].  set
72f0: 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b 6e 6f   val [format {no
7300: 77 20 25 31 30 64 20 20 6d 61 78 20 25 31 30 64  w %10d  max %10d
7310: 7d 20 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d 20  } [lindex $x 1] 
7320: 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 5d 0a 20  [lindex $x 2]]. 
7330: 20 70 75 74 73 20 22 53 63 72 61 74 63 68 20 6d   puts "Scratch m
7340: 65 6d 6f 72 79 20 75 73 65 64 3a 20 20 24 76 61  emory used:  $va
7350: 6c 22 0a 20 20 73 65 74 20 78 20 5b 73 71 6c 69  l".  set x [sqli
7360: 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54  te3_status SQLIT
7370: 45 5f 53 54 41 54 55 53 5f 53 43 52 41 54 43 48  E_STATUS_SCRATCH
7380: 5f 4f 56 45 52 46 4c 4f 57 20 30 5d 0a 20 20 73  _OVERFLOW 0].  s
7390: 65 74 20 79 20 5b 73 71 6c 69 74 65 33 5f 73 74  et y [sqlite3_st
73a0: 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54  atus SQLITE_STAT
73b0: 55 53 5f 53 43 52 41 54 43 48 5f 53 49 5a 45 20  US_SCRATCH_SIZE 
73c0: 30 5d 0a 20 20 73 65 74 20 76 61 6c 20 5b 66 6f  0].  set val [fo
73d0: 72 6d 61 74 20 7b 6e 6f 77 20 25 31 30 64 20 20  rmat {now %10d  
73e0: 6d 61 78 20 25 31 30 64 20 20 6d 61 78 2d 73 69  max %10d  max-si
73f0: 7a 65 20 25 31 30 64 7d 20 5c 0a 20 20 20 20 20  ze %10d} \.     
7400: 20 20 20 20 20 20 20 20 20 20 5b 6c 69 6e 64 65            [linde
7410: 78 20 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20  x $x 1] [lindex 
7420: 24 78 20 32 5d 20 5b 6c 69 6e 64 65 78 20 24 79  $x 2] [lindex $y
7430: 20 32 5d 5d 0a 20 20 70 75 74 73 20 22 53 63 72   2]].  puts "Scr
7440: 61 74 63 68 20 6f 76 65 72 66 6c 6f 77 3a 20 20  atch overflow:  
7450: 20 20 20 24 76 61 6c 22 0a 20 20 69 66 63 61 70     $val".  ifcap
7460: 61 62 6c 65 20 79 79 74 72 61 63 6b 6d 61 78 73  able yytrackmaxs
7470: 74 61 63 6b 64 65 70 74 68 20 7b 0a 20 20 20 20  tackdepth {.    
7480: 73 65 74 20 78 20 5b 73 71 6c 69 74 65 33 5f 73  set x [sqlite3_s
7490: 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41  tatus SQLITE_STA
74a0: 54 55 53 5f 50 41 52 53 45 52 5f 53 54 41 43 4b  TUS_PARSER_STACK
74b0: 20 30 5d 0a 20 20 20 20 73 65 74 20 76 61 6c 20   0].    set val 
74c0: 5b 66 6f 72 6d 61 74 20 7b 20 20 20 20 20 20 20  [format {       
74d0: 20 20 20 20 20 20 20 20 6d 61 78 20 25 31 30 64          max %10d
74e0: 7d 20 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 5d  } [lindex $x 2]]
74f0: 0a 20 20 20 20 70 75 74 73 20 22 50 61 72 73 65  .    puts "Parse
7500: 72 20 73 74 61 63 6b 20 64 65 70 74 68 3a 20 20  r stack depth:  
7510: 20 20 24 76 61 6c 22 0a 20 20 7d 0a 7d 0a 0a 23    $val".  }.}..#
7520: 20 41 20 70 72 6f 63 65 64 75 72 65 20 74 6f 20   A procedure to 
7530: 65 78 65 63 75 74 65 20 53 51 4c 0a 23 0a 70 72  execute SQL.#.pr
7540: 6f 63 20 65 78 65 63 73 71 6c 20 7b 73 71 6c 20  oc execsql {sql 
7550: 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 23 20 70  {db db}} {.  # p
7560: 75 74 73 20 22 53 51 4c 20 3d 20 24 73 71 6c 22  uts "SQL = $sql"
7570: 0a 20 20 75 70 6c 65 76 65 6c 20 5b 6c 69 73 74  .  uplevel [list
7580: 20 24 64 62 20 65 76 61 6c 20 24 73 71 6c 5d 0a   $db eval $sql].
7590: 7d 0a 0a 23 20 45 78 65 63 75 74 65 20 53 51 4c  }..# Execute SQL
75a0: 20 61 6e 64 20 63 61 74 63 68 20 65 78 63 65 70   and catch excep
75b0: 74 69 6f 6e 73 2e 0a 23 0a 70 72 6f 63 20 63 61  tions..#.proc ca
75c0: 74 63 68 73 71 6c 20 7b 73 71 6c 20 7b 64 62 20  tchsql {sql {db 
75d0: 64 62 7d 7d 20 7b 0a 20 20 23 20 70 75 74 73 20  db}} {.  # puts 
75e0: 22 53 51 4c 20 3d 20 24 73 71 6c 22 0a 20 20 73  "SQL = $sql".  s
75f0: 65 74 20 72 20 5b 63 61 74 63 68 20 5b 6c 69 73  et r [catch [lis
7600: 74 20 75 70 6c 65 76 65 6c 20 5b 6c 69 73 74 20  t uplevel [list 
7610: 24 64 62 20 65 76 61 6c 20 24 73 71 6c 5d 5d 20  $db eval $sql]] 
7620: 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72  msg].  lappend r
7630: 20 24 6d 73 67 0a 20 20 72 65 74 75 72 6e 20 24   $msg.  return $
7640: 72 0a 7d 0a 0a 23 20 44 6f 20 61 6e 20 56 44 42  r.}..# Do an VDB
7650: 45 20 63 6f 64 65 20 64 75 6d 70 20 6f 6e 20 74  E code dump on t
7660: 68 65 20 53 51 4c 20 67 69 76 65 6e 0a 23 0a 70  he SQL given.#.p
7670: 72 6f 63 20 65 78 70 6c 61 69 6e 20 7b 73 71 6c  roc explain {sql
7680: 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 70 75   {db db}} {.  pu
7690: 74 73 20 22 22 0a 20 20 70 75 74 73 20 22 61 64  ts "".  puts "ad
76a0: 64 72 20 20 6f 70 63 6f 64 65 20 20 20 20 20 20  dr  opcode      
76b0: 20 20 70 31 20 20 20 20 20 20 70 32 20 20 20 20    p1      p2    
76c0: 20 20 70 33 20 20 20 20 20 20 70 34 20 20 20 20    p3      p4    
76d0: 20 20 20 20 20 20 20 20 20 20 20 70 35 20 20 23             p5  #
76e0: 22 0a 20 20 70 75 74 73 20 22 2d 2d 2d 2d 20 20  ".  puts "----  
76f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d  ------------  --
7700: 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d  ----  ------  --
7710: 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----  ----------
7720: 2d 2d 2d 2d 2d 20 20 2d 2d 20 20 2d 22 0a 20 20  -----  --  -".  
7730: 24 64 62 20 65 76 61 6c 20 22 65 78 70 6c 61 69  $db eval "explai
7740: 6e 20 24 73 71 6c 22 20 7b 7d 20 7b 0a 20 20 20  n $sql" {} {.   
7750: 20 70 75 74 73 20 5b 66 6f 72 6d 61 74 20 7b 25   puts [format {%
7760: 2d 34 64 20 20 25 2d 31 32 2e 31 32 73 20 20 25  -4d  %-12.12s  %
7770: 2d 36 64 20 20 25 2d 36 64 20 20 25 2d 36 64 20  -6d  %-6d  %-6d 
7780: 20 25 20 2d 31 37 73 20 25 73 20 20 25 73 7d 20   % -17s %s  %s} 
7790: 5c 0a 20 20 20 20 20 20 24 61 64 64 72 20 24 6f  \.      $addr $o
77a0: 70 63 6f 64 65 20 24 70 31 20 24 70 32 20 24 70  pcode $p1 $p2 $p
77b0: 33 20 24 70 34 20 24 70 35 20 24 63 6f 6d 6d 65  3 $p4 $p5 $comme
77c0: 6e 74 0a 20 20 20 20 5d 0a 20 20 7d 0a 7d 0a 0a  nt.    ].  }.}..
77d0: 70 72 6f 63 20 65 78 70 6c 61 69 6e 5f 69 20 7b  proc explain_i {
77e0: 73 71 6c 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20  sql {db db}} {. 
77f0: 20 70 75 74 73 20 22 22 0a 20 20 70 75 74 73 20   puts "".  puts 
7800: 22 61 64 64 72 20 20 6f 70 63 6f 64 65 20 20 20  "addr  opcode   
7810: 20 20 20 20 20 70 31 20 20 20 20 20 20 70 32 20       p1      p2 
7820: 20 20 20 20 20 70 33 20 20 20 20 20 20 70 34 20       p3      p4 
7830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70                 p
7840: 35 20 20 23 22 0a 20 20 70 75 74 73 20 22 2d 2d  5  #".  puts "--
7850: 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  --  ------------
7860: 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d    ------  ------
7870: 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d    ------  ------
7880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d 20 20  ----------  --  
7890: 2d 22 0a 0a 0a 20 20 23 20 53 65 74 20 75 70 20  -"...  # Set up 
78a0: 63 6f 6c 6f 72 73 20 66 6f 72 20 74 68 65 20 64  colors for the d
78b0: 69 66 66 65 72 65 6e 74 20 6f 70 63 6f 64 65 73  ifferent opcodes
78c0: 2e 20 53 63 68 65 6d 65 20 69 73 20 61 73 20 66  . Scheme is as f
78d0: 6f 6c 6c 6f 77 73 3a 0a 20 20 23 0a 20 20 23 20  ollows:.  #.  # 
78e0: 20 20 52 65 64 3a 20 20 20 4f 70 63 6f 64 65 73    Red:   Opcodes
78f0: 20 74 68 61 74 20 77 72 69 74 65 20 74 6f 20 61   that write to a
7900: 20 62 2d 74 72 65 65 2e 0a 20 20 23 20 20 20 42   b-tree..  #   B
7910: 6c 75 65 3a 20 20 4f 70 63 6f 64 65 73 20 74 68  lue:  Opcodes th
7920: 61 74 20 72 65 70 6f 73 69 74 69 6f 6e 20 6f 72  at reposition or
7930: 20 73 65 65 6b 20 61 20 63 75 72 73 6f 72 2e 20   seek a cursor. 
7940: 0a 20 20 23 20 20 20 47 72 65 65 6e 3a 20 54 68  .  #   Green: Th
7950: 65 20 52 65 73 75 6c 74 52 6f 77 20 6f 70 63 6f  e ResultRow opco
7960: 64 65 2e 0a 20 20 23 0a 20 20 73 65 74 20 52 20  de..  #.  set R 
7970: 22 5c 30 33 33 5c 5b 33 31 3b 31 6d 22 20 20 20  "\033\[31;1m"   
7980: 20 20 20 20 20 3b 23 20 52 65 64 20 66 67 0a 20       ;# Red fg. 
7990: 20 73 65 74 20 47 20 22 5c 30 33 33 5c 5b 33 32   set G "\033\[32
79a0: 3b 31 6d 22 20 20 20 20 20 20 20 20 3b 23 20 47  ;1m"        ;# G
79b0: 72 65 65 6e 20 66 67 0a 20 20 73 65 74 20 42 20  reen fg.  set B 
79c0: 22 5c 30 33 33 5c 5b 33 34 3b 31 6d 22 20 20 20  "\033\[34;1m"   
79d0: 20 20 20 20 20 3b 23 20 52 65 64 20 66 67 0a 20       ;# Red fg. 
79e0: 20 73 65 74 20 44 20 22 5c 30 33 33 5c 5b 33 39   set D "\033\[39
79f0: 3b 30 6d 22 20 20 20 20 20 20 20 20 3b 23 20 44  ;0m"        ;# D
7a00: 65 66 61 75 6c 74 20 66 67 0a 20 20 66 6f 72 65  efault fg.  fore
7a10: 61 63 68 20 6f 70 63 6f 64 65 20 7b 0a 20 20 20  ach opcode {.   
7a20: 20 20 20 53 65 65 6b 20 53 65 65 6b 47 65 20 53     Seek SeekGe S
7a30: 65 65 6b 47 74 20 53 65 65 6b 4c 65 20 53 65 65  eekGt SeekLe See
7a40: 6b 4c 74 20 4e 6f 74 46 6f 75 6e 64 20 4c 61 73  kLt NotFound Las
7a50: 74 20 52 65 77 69 6e 64 0a 20 20 20 20 20 20 4e  t Rewind.      N
7a60: 6f 43 6f 6e 66 6c 69 63 74 20 4e 65 78 74 20 50  oConflict Next P
7a70: 72 65 76 20 56 4e 65 78 74 20 56 50 72 65 76 20  rev VNext VPrev 
7a80: 56 46 69 6c 74 65 72 0a 20 20 7d 20 7b 0a 20 20  VFilter.  } {.  
7a90: 20 20 73 65 74 20 63 6f 6c 6f 72 28 24 6f 70 63    set color($opc
7aa0: 6f 64 65 29 20 24 42 0a 20 20 7d 0a 20 20 66 6f  ode) $B.  }.  fo
7ab0: 72 65 61 63 68 20 6f 70 63 6f 64 65 20 7b 52 65  reach opcode {Re
7ac0: 73 75 6c 74 52 6f 77 7d 20 7b 0a 20 20 20 20 73  sultRow} {.    s
7ad0: 65 74 20 63 6f 6c 6f 72 28 24 6f 70 63 6f 64 65  et color($opcode
7ae0: 29 20 24 47 0a 20 20 7d 0a 20 20 66 6f 72 65 61  ) $G.  }.  forea
7af0: 63 68 20 6f 70 63 6f 64 65 20 7b 49 64 78 49 6e  ch opcode {IdxIn
7b00: 73 65 72 74 20 49 6e 73 65 72 74 20 44 65 6c 65  sert Insert Dele
7b10: 74 65 20 49 64 78 44 65 6c 65 74 65 7d 20 7b 0a  te IdxDelete} {.
7b20: 20 20 20 20 73 65 74 20 63 6f 6c 6f 72 28 24 6f      set color($o
7b30: 70 63 6f 64 65 29 20 24 52 0a 20 20 7d 0a 0a 20  pcode) $R.  }.. 
7b40: 20 73 65 74 20 62 53 65 65 6e 47 6f 74 6f 20 30   set bSeenGoto 0
7b50: 0a 20 20 24 64 62 20 65 76 61 6c 20 22 65 78 70  .  $db eval "exp
7b60: 6c 61 69 6e 20 24 73 71 6c 22 20 7b 7d 20 7b 0a  lain $sql" {} {.
7b70: 20 20 20 20 73 65 74 20 78 28 24 61 64 64 72 29      set x($addr)
7b80: 20 30 0a 20 20 20 20 73 65 74 20 6f 70 28 24 61   0.    set op($a
7b90: 64 64 72 29 20 24 6f 70 63 6f 64 65 0a 0a 20 20  ddr) $opcode..  
7ba0: 20 20 69 66 20 7b 24 6f 70 63 6f 64 65 20 3d 3d    if {$opcode ==
7bb0: 20 22 47 6f 74 6f 22 20 26 26 20 28 24 62 53 65   "Goto" && ($bSe
7bc0: 65 6e 47 6f 74 6f 3d 3d 30 20 7c 7c 20 28 24 70  enGoto==0 || ($p
7bd0: 32 20 3e 20 24 61 64 64 72 2b 31 30 29 29 7d 20  2 > $addr+10))} 
7be0: 7b 0a 20 20 20 20 20 20 73 65 74 20 6c 69 6e 65  {.      set line
7bf0: 62 72 65 61 6b 28 24 70 32 29 20 31 0a 20 20 20  break($p2) 1.   
7c00: 20 20 20 73 65 74 20 62 53 65 65 6e 47 6f 74 6f     set bSeenGoto
7c10: 20 31 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66   1.    }..    if
7c20: 20 7b 24 6f 70 63 6f 64 65 3d 3d 22 4e 65 78 74   {$opcode=="Next
7c30: 22 20 20 7c 7c 20 24 6f 70 63 6f 64 65 3d 3d 22  "  || $opcode=="
7c40: 50 72 65 76 22 20 0a 20 20 20 20 20 7c 7c 20 24  Prev" .     || $
7c50: 6f 70 63 6f 64 65 3d 3d 22 56 4e 65 78 74 22 20  opcode=="VNext" 
7c60: 7c 7c 20 24 6f 70 63 6f 64 65 3d 3d 22 56 50 72  || $opcode=="VPr
7c70: 65 76 22 0a 20 20 20 20 7d 20 7b 0a 20 20 20 20  ev".    } {.    
7c80: 20 20 66 6f 72 20 7b 73 65 74 20 69 20 24 70 32    for {set i $p2
7c90: 7d 20 7b 24 69 3c 24 61 64 64 72 7d 20 7b 69 6e  } {$i<$addr} {in
7ca0: 63 72 20 69 7d 20 7b 0a 20 20 20 20 20 20 20 20  cr i} {.        
7cb0: 69 6e 63 72 20 78 28 24 69 29 20 32 0a 20 20 20  incr x($i) 2.   
7cc0: 20 20 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20     }.    }..    
7cd0: 69 66 20 7b 24 6f 70 63 6f 64 65 20 3d 3d 20 22  if {$opcode == "
7ce0: 47 6f 74 6f 22 20 26 26 20 24 70 32 3c 24 61 64  Goto" && $p2<$ad
7cf0: 64 72 20 26 26 20 24 6f 70 28 24 70 32 29 3d 3d  dr && $op($p2)==
7d00: 22 59 69 65 6c 64 22 7d 20 7b 0a 20 20 20 20 20  "Yield"} {.     
7d10: 20 66 6f 72 20 7b 73 65 74 20 69 20 5b 65 78 70   for {set i [exp
7d20: 72 20 24 70 32 2b 31 5d 7d 20 7b 24 69 3c 24 61  r $p2+1]} {$i<$a
7d30: 64 64 72 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a  ddr} {incr i} {.
7d40: 20 20 20 20 20 20 20 20 69 6e 63 72 20 78 28 24          incr x($
7d50: 69 29 20 32 0a 20 20 20 20 20 20 7d 0a 20 20 20  i) 2.      }.   
7d60: 20 7d 0a 0a 20 20 20 20 69 66 20 7b 24 6f 70 63   }..    if {$opc
7d70: 6f 64 65 20 3d 3d 20 22 48 61 6c 74 22 20 26 26  ode == "Halt" &&
7d80: 20 24 63 6f 6d 6d 65 6e 74 20 3d 3d 20 22 45 6e   $comment == "En
7d90: 64 20 6f 66 20 63 6f 72 6f 75 74 69 6e 65 22 7d  d of coroutine"}
7da0: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 6c 69 6e   {.      set lin
7db0: 65 62 72 65 61 6b 28 5b 65 78 70 72 20 24 61 64  ebreak([expr $ad
7dc0: 64 72 2b 31 5d 29 20 31 0a 20 20 20 20 7d 0a 20  dr+1]) 1.    }. 
7dd0: 20 7d 0a 0a 20 20 24 64 62 20 65 76 61 6c 20 22   }..  $db eval "
7de0: 65 78 70 6c 61 69 6e 20 24 73 71 6c 22 20 7b 7d  explain $sql" {}
7df0: 20 7b 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f   {.    if {[info
7e00: 20 65 78 69 73 74 73 20 6c 69 6e 65 62 72 65 61   exists linebrea
7e10: 6b 28 24 61 64 64 72 29 5d 7d 20 7b 0a 20 20 20  k($addr)]} {.   
7e20: 20 20 20 70 75 74 73 20 22 22 0a 20 20 20 20 7d     puts "".    }
7e30: 0a 20 20 20 20 73 65 74 20 49 20 5b 73 74 72 69  .    set I [stri
7e40: 6e 67 20 72 65 70 65 61 74 20 22 20 22 20 24 78  ng repeat " " $x
7e50: 28 24 61 64 64 72 29 5d 0a 0a 20 20 20 20 73 65  ($addr)]..    se
7e60: 74 20 63 6f 6c 20 22 22 0a 20 20 20 20 63 61 74  t col "".    cat
7e70: 63 68 20 7b 20 73 65 74 20 63 6f 6c 20 24 63 6f  ch { set col $co
7e80: 6c 6f 72 28 24 6f 70 63 6f 64 65 29 20 7d 0a 0a  lor($opcode) }..
7e90: 20 20 20 20 70 75 74 73 20 5b 66 6f 72 6d 61 74      puts [format
7ea0: 20 7b 25 2d 34 64 20 20 25 73 25 73 25 2d 31 32   {%-4d  %s%s%-12
7eb0: 2e 31 32 73 25 73 20 20 25 2d 36 64 20 20 25 2d  .12s%s  %-6d  %-
7ec0: 36 64 20 20 25 2d 36 64 20 20 25 20 2d 31 37 73  6d  %-6d  % -17s
7ed0: 20 25 73 20 20 25 73 7d 20 5c 0a 20 20 20 20 20   %s  %s} \.     
7ee0: 20 24 61 64 64 72 20 24 49 20 24 63 6f 6c 20 24   $addr $I $col $
7ef0: 6f 70 63 6f 64 65 20 24 44 20 24 70 31 20 24 70  opcode $D $p1 $p
7f00: 32 20 24 70 33 20 24 70 34 20 24 70 35 20 24 63  2 $p3 $p4 $p5 $c
7f10: 6f 6d 6d 65 6e 74 0a 20 20 20 20 5d 0a 20 20 7d  omment.    ].  }
7f20: 0a 20 20 70 75 74 73 20 22 2d 2d 2d 2d 20 20 2d  .  puts "----  -
7f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d  -----------  ---
7f40: 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d  ---  ------  ---
7f50: 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ---  -----------
7f60: 2d 2d 2d 2d 2d 20 20 2d 2d 20 20 2d 22 0a 7d 0a  -----  --  -".}.
7f70: 0a 23 20 53 68 6f 77 20 74 68 65 20 56 44 42 45  .# Show the VDBE
7f80: 20 70 72 6f 67 72 61 6d 20 66 6f 72 20 61 6e 20   program for an 
7f90: 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 20 62 75  SQL statement bu
7fa0: 74 20 6f 6d 69 74 20 74 68 65 20 54 72 61 63 65  t omit the Trace
7fb0: 0a 23 20 6f 70 63 6f 64 65 20 61 74 20 74 68 65  .# opcode at the
7fc0: 20 62 65 67 69 6e 6e 69 6e 67 2e 20 20 54 68 69   beginning.  Thi
7fd0: 73 20 70 72 6f 63 65 64 75 72 65 20 63 61 6e 20  s procedure can 
7fe0: 62 65 20 75 73 65 64 20 74 6f 20 70 72 6f 76 65  be used to prove
7ff0: 0a 23 20 74 68 61 74 20 64 69 66 66 65 72 65 6e  .# that differen
8000: 74 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 73  t SQL statements
8010: 20 67 65 6e 65 72 61 74 65 20 65 78 61 63 74 6c   generate exactl
8020: 79 20 74 68 65 20 73 61 6d 65 20 56 44 42 45 20  y the same VDBE 
8030: 63 6f 64 65 2e 0a 23 0a 70 72 6f 63 20 65 78 70  code..#.proc exp
8040: 6c 61 69 6e 5f 6e 6f 5f 74 72 61 63 65 20 7b 73  lain_no_trace {s
8050: 71 6c 7d 20 7b 0a 20 20 73 65 74 20 74 72 20 5b  ql} {.  set tr [
8060: 64 62 20 65 76 61 6c 20 22 45 58 50 4c 41 49 4e  db eval "EXPLAIN
8070: 20 24 73 71 6c 22 5d 0a 20 20 72 65 74 75 72 6e   $sql"].  return
8080: 20 5b 6c 72 61 6e 67 65 20 24 74 72 20 37 20 65   [lrange $tr 7 e
8090: 6e 64 5d 0a 7d 0a 0a 23 20 41 6e 6f 74 68 65 72  nd].}..# Another
80a0: 20 70 72 6f 63 65 64 75 72 65 20 74 6f 20 65 78   procedure to ex
80b0: 65 63 75 74 65 20 53 51 4c 2e 20 20 54 68 69 73  ecute SQL.  This
80c0: 20 6f 6e 65 20 69 6e 63 6c 75 64 65 73 20 74 68   one includes th
80d0: 65 20 66 69 65 6c 64 0a 23 20 6e 61 6d 65 73 20  e field.# names 
80e0: 69 6e 20 74 68 65 20 72 65 74 75 72 6e 65 64 20  in the returned 
80f0: 6c 69 73 74 2e 0a 23 0a 70 72 6f 63 20 65 78 65  list..#.proc exe
8100: 63 73 71 6c 32 20 7b 73 71 6c 7d 20 7b 0a 20 20  csql2 {sql} {.  
8110: 73 65 74 20 72 65 73 75 6c 74 20 7b 7d 0a 20 20  set result {}.  
8120: 64 62 20 65 76 61 6c 20 24 73 71 6c 20 64 61 74  db eval $sql dat
8130: 61 20 7b 0a 20 20 20 20 66 6f 72 65 61 63 68 20  a {.    foreach 
8140: 66 20 24 64 61 74 61 28 2a 29 20 7b 0a 20 20 20  f $data(*) {.   
8150: 20 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c     lappend resul
8160: 74 20 24 66 20 24 64 61 74 61 28 24 66 29 0a 20  t $f $data($f). 
8170: 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72     }.  }.  retur
8180: 6e 20 24 72 65 73 75 6c 74 0a 7d 0a 0a 23 20 55  n $result.}..# U
8190: 73 65 20 61 20 74 65 6d 70 6f 72 61 72 79 20 69  se a temporary i
81a0: 6e 2d 6d 65 6d 6f 72 79 20 64 61 74 61 62 61 73  n-memory databas
81b0: 65 20 74 6f 20 65 78 65 63 75 74 65 20 53 51 4c  e to execute SQL
81c0: 20 73 74 61 74 65 6d 65 6e 74 73 0a 23 0a 70 72   statements.#.pr
81d0: 6f 63 20 6d 65 6d 64 62 73 71 6c 20 7b 73 71 6c  oc memdbsql {sql
81e0: 7d 20 7b 0a 20 20 73 71 6c 69 74 65 33 20 6d 65  } {.  sqlite3 me
81f0: 6d 64 62 20 3a 6d 65 6d 6f 72 79 3a 0a 20 20 73  mdb :memory:.  s
8200: 65 74 20 72 65 73 75 6c 74 20 5b 6d 65 6d 64 62  et result [memdb
8210: 20 65 76 61 6c 20 24 73 71 6c 5d 0a 20 20 6d 65   eval $sql].  me
8220: 6d 64 62 20 63 6c 6f 73 65 0a 20 20 72 65 74 75  mdb close.  retu
8230: 72 6e 20 24 72 65 73 75 6c 74 0a 7d 0a 0a 23 20  rn $result.}..# 
8240: 55 73 65 20 74 68 65 20 6e 6f 6e 2d 63 61 6c 6c  Use the non-call
8250: 62 61 63 6b 20 41 50 49 20 74 6f 20 65 78 65 63  back API to exec
8260: 75 74 65 20 6d 75 6c 74 69 70 6c 65 20 53 51 4c  ute multiple SQL
8270: 20 73 74 61 74 65 6d 65 6e 74 73 0a 23 0a 70 72   statements.#.pr
8280: 6f 63 20 73 74 65 70 73 71 6c 20 7b 64 62 70 74  oc stepsql {dbpt
8290: 72 20 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20 73  r sql} {.  set s
82a0: 71 6c 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20  ql [string trim 
82b0: 24 73 71 6c 5d 0a 20 20 73 65 74 20 72 20 30 0a  $sql].  set r 0.
82c0: 20 20 77 68 69 6c 65 20 7b 5b 73 74 72 69 6e 67    while {[string
82d0: 20 6c 65 6e 67 74 68 20 24 73 71 6c 5d 3e 30 7d   length $sql]>0}
82e0: 20 7b 0a 20 20 20 20 69 66 20 7b 5b 63 61 74 63   {.    if {[catc
82f0: 68 20 7b 73 71 6c 69 74 65 33 5f 70 72 65 70 61  h {sqlite3_prepa
8300: 72 65 20 24 64 62 70 74 72 20 24 73 71 6c 20 2d  re $dbptr $sql -
8310: 31 20 73 71 6c 74 61 69 6c 7d 20 76 6d 5d 7d 20  1 sqltail} vm]} 
8320: 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b  {.      return [
8330: 6c 69 73 74 20 31 20 24 76 6d 5d 0a 20 20 20 20  list 1 $vm].    
8340: 7d 0a 20 20 20 20 73 65 74 20 73 71 6c 20 5b 73  }.    set sql [s
8350: 74 72 69 6e 67 20 74 72 69 6d 20 24 73 71 6c 74  tring trim $sqlt
8360: 61 69 6c 5d 0a 23 20 20 20 20 77 68 69 6c 65 20  ail].#    while 
8370: 7b 5b 73 71 6c 69 74 65 5f 73 74 65 70 20 24 76  {[sqlite_step $v
8380: 6d 20 4e 20 56 41 4c 20 43 4f 4c 5d 3d 3d 22 53  m N VAL COL]=="S
8390: 51 4c 49 54 45 5f 52 4f 57 22 7d 20 7b 0a 23 20  QLITE_ROW"} {.# 
83a0: 20 20 20 20 20 66 6f 72 65 61 63 68 20 76 20 24       foreach v $
83b0: 56 41 4c 20 7b 6c 61 70 70 65 6e 64 20 72 20 24  VAL {lappend r $
83c0: 76 7d 0a 23 20 20 20 20 7d 0a 20 20 20 20 77 68  v}.#    }.    wh
83d0: 69 6c 65 20 7b 5b 73 71 6c 69 74 65 33 5f 73 74  ile {[sqlite3_st
83e0: 65 70 20 24 76 6d 5d 3d 3d 22 53 51 4c 49 54 45  ep $vm]=="SQLITE
83f0: 5f 52 4f 57 22 7d 20 7b 0a 20 20 20 20 20 20 66  _ROW"} {.      f
8400: 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69  or {set i 0} {$i
8410: 3c 5b 73 71 6c 69 74 65 33 5f 64 61 74 61 5f 63  <[sqlite3_data_c
8420: 6f 75 6e 74 20 24 76 6d 5d 7d 20 7b 69 6e 63 72  ount $vm]} {incr
8430: 20 69 7d 20 7b 0a 20 20 20 20 20 20 20 20 6c 61   i} {.        la
8440: 70 70 65 6e 64 20 72 20 5b 73 71 6c 69 74 65 33  ppend r [sqlite3
8450: 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 20 24 76 6d  _column_text $vm
8460: 20 24 69 5d 0a 20 20 20 20 20 20 7d 0a 20 20 20   $i].      }.   
8470: 20 7d 0a 20 20 20 20 69 66 20 7b 5b 63 61 74 63   }.    if {[catc
8480: 68 20 7b 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c  h {sqlite3_final
8490: 69 7a 65 20 24 76 6d 7d 20 65 72 72 6d 73 67 5d  ize $vm} errmsg]
84a0: 7d 20 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e  } {.      return
84b0: 20 5b 6c 69 73 74 20 31 20 24 65 72 72 6d 73 67   [list 1 $errmsg
84c0: 5d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65  ].    }.  }.  re
84d0: 74 75 72 6e 20 24 72 0a 7d 0a 0a 23 20 44 6f 20  turn $r.}..# Do 
84e0: 61 6e 20 69 6e 74 65 67 72 69 74 79 20 63 68 65  an integrity che
84f0: 63 6b 20 6f 66 20 74 68 65 20 65 6e 74 69 72 65  ck of the entire
8500: 20 64 61 74 61 62 61 73 65 0a 23 0a 70 72 6f 63   database.#.proc
8510: 20 69 6e 74 65 67 72 69 74 79 5f 63 68 65 63 6b   integrity_check
8520: 20 7b 6e 61 6d 65 20 7b 64 62 20 64 62 7d 7d 20   {name {db db}} 
8530: 7b 0a 20 20 69 66 63 61 70 61 62 6c 65 20 69 6e  {.  ifcapable in
8540: 74 65 67 72 69 74 79 63 6b 20 7b 0a 20 20 20 20  tegrityck {.    
8550: 64 6f 5f 74 65 73 74 20 24 6e 61 6d 65 20 5b 6c  do_test $name [l
8560: 69 73 74 20 65 78 65 63 73 71 6c 20 7b 50 52 41  ist execsql {PRA
8570: 47 4d 41 20 69 6e 74 65 67 72 69 74 79 5f 63 68  GMA integrity_ch
8580: 65 63 6b 7d 20 24 64 62 5d 20 7b 6f 6b 7d 0a 20  eck} $db] {ok}. 
8590: 20 7d 0a 7d 0a 0a 23 20 43 68 65 63 6b 20 74 68   }.}..# Check th
85a0: 65 20 65 78 74 65 6e 64 65 64 20 65 72 72 6f 72  e extended error
85b0: 20 63 6f 64 65 0a 23 0a 70 72 6f 63 20 76 65 72   code.#.proc ver
85c0: 69 66 79 5f 65 78 5f 65 72 72 63 6f 64 65 20 7b  ify_ex_errcode {
85d0: 6e 61 6d 65 20 65 78 70 65 63 74 65 64 20 7b 64  name expected {d
85e0: 62 20 64 62 7d 7d 20 7b 0a 20 20 64 6f 5f 74 65  b db}} {.  do_te
85f0: 73 74 20 24 6e 61 6d 65 20 5b 6c 69 73 74 20 73  st $name [list s
8600: 71 6c 69 74 65 33 5f 65 78 74 65 6e 64 65 64 5f  qlite3_extended_
8610: 65 72 72 63 6f 64 65 20 24 64 62 5d 20 24 65 78  errcode $db] $ex
8620: 70 65 63 74 65 64 0a 7d 0a 0a 0a 23 20 52 65 74  pected.}...# Ret
8630: 75 72 6e 20 74 72 75 65 20 69 66 20 74 68 65 20  urn true if the 
8640: 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 20 70 61  SQL statement pa
8650: 73 73 65 64 20 61 73 20 74 68 65 20 73 65 63 6f  ssed as the seco
8660: 6e 64 20 61 72 67 75 6d 65 6e 74 20 75 73 65 73  nd argument uses
8670: 20 61 0a 23 20 73 74 61 74 65 6d 65 6e 74 20 74   a.# statement t
8680: 72 61 6e 73 61 63 74 69 6f 6e 2e 0a 23 0a 70 72  ransaction..#.pr
8690: 6f 63 20 73 71 6c 5f 75 73 65 73 5f 73 74 6d 74  oc sql_uses_stmt
86a0: 20 7b 64 62 20 73 71 6c 7d 20 7b 0a 20 20 73 65   {db sql} {.  se
86b0: 74 20 73 74 6d 74 20 5b 73 71 6c 69 74 65 33 5f  t stmt [sqlite3_
86c0: 70 72 65 70 61 72 65 20 24 64 62 20 24 73 71 6c  prepare $db $sql
86d0: 20 2d 31 20 64 75 6d 6d 79 5d 0a 20 20 73 65 74   -1 dummy].  set
86e0: 20 75 73 65 73 20 5b 75 73 65 73 5f 73 74 6d 74   uses [uses_stmt
86f0: 5f 6a 6f 75 72 6e 61 6c 20 24 73 74 6d 74 5d 0a  _journal $stmt].
8700: 20 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69    sqlite3_finali
8710: 7a 65 20 24 73 74 6d 74 0a 20 20 72 65 74 75 72  ze $stmt.  retur
8720: 6e 20 24 75 73 65 73 0a 7d 0a 0a 70 72 6f 63 20  n $uses.}..proc 
8730: 66 69 78 5f 69 66 63 61 70 61 62 6c 65 5f 65 78  fix_ifcapable_ex
8740: 70 72 20 7b 65 78 70 72 7d 20 7b 0a 20 20 73 65  pr {expr} {.  se
8750: 74 20 72 65 74 20 22 22 0a 20 20 73 65 74 20 73  t ret "".  set s
8760: 74 61 74 65 20 30 0a 20 20 66 6f 72 20 7b 73 65  tate 0.  for {se
8770: 74 20 69 20 30 7d 20 7b 24 69 20 3c 20 5b 73 74  t i 0} {$i < [st
8780: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 65 78 70  ring length $exp
8790: 72 5d 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20  r]} {incr i} {. 
87a0: 20 20 20 73 65 74 20 63 68 61 72 20 5b 73 74 72     set char [str
87b0: 69 6e 67 20 72 61 6e 67 65 20 24 65 78 70 72 20  ing range $expr 
87c0: 24 69 20 24 69 5d 0a 20 20 20 20 73 65 74 20 6e  $i $i].    set n
87d0: 65 77 73 74 61 74 65 20 5b 65 78 70 72 20 7b 5b  ewstate [expr {[
87e0: 73 74 72 69 6e 67 20 69 73 20 61 6c 6e 75 6d 20  string is alnum 
87f0: 24 63 68 61 72 5d 20 7c 7c 20 24 63 68 61 72 20  $char] || $char 
8800: 65 71 20 22 5f 22 7d 5d 0a 20 20 20 20 69 66 20  eq "_"}].    if 
8810: 7b 24 6e 65 77 73 74 61 74 65 20 26 26 20 21 24  {$newstate && !$
8820: 73 74 61 74 65 7d 20 7b 0a 20 20 20 20 20 20 61  state} {.      a
8830: 70 70 65 6e 64 20 72 65 74 20 7b 24 3a 3a 73 71  ppend ret {$::sq
8840: 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 28 7d 0a 20  lite_options(}. 
8850: 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 21 24 6e     }.    if {!$n
8860: 65 77 73 74 61 74 65 20 26 26 20 24 73 74 61 74  ewstate && $stat
8870: 65 7d 20 7b 0a 20 20 20 20 20 20 61 70 70 65 6e  e} {.      appen
8880: 64 20 72 65 74 20 29 0a 20 20 20 20 7d 0a 20 20  d ret ).    }.  
8890: 20 20 61 70 70 65 6e 64 20 72 65 74 20 24 63 68    append ret $ch
88a0: 61 72 0a 20 20 20 20 73 65 74 20 73 74 61 74 65  ar.    set state
88b0: 20 24 6e 65 77 73 74 61 74 65 0a 20 20 7d 0a 20   $newstate.  }. 
88c0: 20 69 66 20 7b 24 73 74 61 74 65 7d 20 7b 61 70   if {$state} {ap
88d0: 70 65 6e 64 20 72 65 74 20 29 7d 0a 20 20 72 65  pend ret )}.  re
88e0: 74 75 72 6e 20 24 72 65 74 0a 7d 0a 0a 23 20 52  turn $ret.}..# R
88f0: 65 74 75 72 6e 73 20 6e 6f 6e 2d 7a 65 72 6f 20  eturns non-zero 
8900: 69 66 20 74 68 65 20 63 61 70 61 62 69 6c 69 74  if the capabilit
8910: 69 65 73 20 61 72 65 20 70 72 65 73 65 6e 74 3b  ies are present;
8920: 20 7a 65 72 6f 20 6f 74 68 65 72 77 69 73 65 2e   zero otherwise.
8930: 0a 23 0a 70 72 6f 63 20 63 61 70 61 62 6c 65 20  .#.proc capable 
8940: 7b 65 78 70 72 7d 20 7b 0a 20 20 73 65 74 20 65  {expr} {.  set e
8950: 20 5b 66 69 78 5f 69 66 63 61 70 61 62 6c 65 5f   [fix_ifcapable_
8960: 65 78 70 72 20 24 65 78 70 72 5d 3b 20 72 65 74  expr $expr]; ret
8970: 75 72 6e 20 5b 65 78 70 72 20 28 24 65 29 5d 0a  urn [expr ($e)].
8980: 7d 0a 0a 23 20 45 76 61 6c 75 61 74 65 20 61 20  }..# Evaluate a 
8990: 62 6f 6f 6c 65 61 6e 20 65 78 70 72 65 73 73 69  boolean expressi
89a0: 6f 6e 20 6f 66 20 63 61 70 61 62 69 6c 69 74 69  on of capabiliti
89b0: 65 73 2e 20 20 49 66 20 74 72 75 65 2c 20 65 78  es.  If true, ex
89c0: 65 63 75 74 65 20 74 68 65 0a 23 20 63 6f 64 65  ecute the.# code
89d0: 2e 20 20 4f 6d 69 74 20 74 68 65 20 63 6f 64 65  .  Omit the code
89e0: 20 69 66 20 66 61 6c 73 65 2e 0a 23 0a 70 72 6f   if false..#.pro
89f0: 63 20 69 66 63 61 70 61 62 6c 65 20 7b 65 78 70  c ifcapable {exp
8a00: 72 20 63 6f 64 65 20 7b 65 6c 73 65 20 22 22 7d  r code {else ""}
8a10: 20 7b 65 6c 73 65 63 6f 64 65 20 22 22 7d 7d 20   {elsecode ""}} 
8a20: 7b 0a 20 20 23 72 65 67 73 75 62 20 2d 61 6c 6c  {.  #regsub -all
8a30: 20 7b 5b 61 2d 7a 5f 30 2d 39 5d 2b 7d 20 24 65   {[a-z_0-9]+} $e
8a40: 78 70 72 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 6f  xpr {$::sqlite_o
8a50: 70 74 69 6f 6e 73 28 26 29 7d 20 65 32 0a 20 20  ptions(&)} e2.  
8a60: 73 65 74 20 65 32 20 5b 66 69 78 5f 69 66 63 61  set e2 [fix_ifca
8a70: 70 61 62 6c 65 5f 65 78 70 72 20 24 65 78 70 72  pable_expr $expr
8a80: 5d 0a 20 20 69 66 20 28 24 65 32 29 20 7b 0a 20  ].  if ($e2) {. 
8a90: 20 20 20 73 65 74 20 63 20 5b 63 61 74 63 68 20     set c [catch 
8aa0: 7b 75 70 6c 65 76 65 6c 20 31 20 24 63 6f 64 65  {uplevel 1 $code
8ab0: 7d 20 72 5d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a  } r].  } else {.
8ac0: 20 20 20 20 73 65 74 20 63 20 5b 63 61 74 63 68      set c [catch
8ad0: 20 7b 75 70 6c 65 76 65 6c 20 31 20 24 65 6c 73   {uplevel 1 $els
8ae0: 65 63 6f 64 65 7d 20 72 5d 0a 20 20 7d 0a 20 20  ecode} r].  }.  
8af0: 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 24 63 20  return -code $c 
8b00: 24 72 0a 7d 0a 0a 23 20 54 68 69 73 20 70 72 6f  $r.}..# This pro
8b10: 63 20 65 78 65 63 73 20 61 20 73 65 70 65 72 61  c execs a sepera
8b20: 74 65 20 70 72 6f 63 65 73 73 20 74 68 61 74 20  te process that 
8b30: 63 72 61 73 68 65 73 20 6d 69 64 77 61 79 20 74  crashes midway t
8b40: 68 72 6f 75 67 68 20 65 78 65 63 75 74 69 6e 67  hrough executing
8b50: 0a 23 20 74 68 65 20 53 51 4c 20 73 63 72 69 70  .# the SQL scrip
8b60: 74 20 24 73 71 6c 20 6f 6e 20 64 61 74 61 62 61  t $sql on databa
8b70: 73 65 20 74 65 73 74 2e 64 62 2e 0a 23 0a 23 20  se test.db..#.# 
8b80: 54 68 65 20 63 72 61 73 68 20 6f 63 63 75 72 73  The crash occurs
8b90: 20 64 75 72 69 6e 67 20 61 20 73 79 6e 63 28 29   during a sync()
8ba0: 20 6f 66 20 66 69 6c 65 20 24 63 72 61 73 68 66   of file $crashf
8bb0: 69 6c 65 2e 20 57 68 65 6e 20 74 68 65 20 63 72  ile. When the cr
8bc0: 61 73 68 0a 23 20 6f 63 63 75 72 73 20 61 20 72  ash.# occurs a r
8bd0: 61 6e 64 6f 6d 20 73 75 62 73 65 74 20 6f 66 20  andom subset of 
8be0: 61 6c 6c 20 75 6e 73 79 6e 63 65 64 20 77 72 69  all unsynced wri
8bf0: 74 65 73 20 6d 61 64 65 20 62 79 20 74 68 65 20  tes made by the 
8c00: 70 72 6f 63 65 73 73 20 61 72 65 0a 23 20 77 72  process are.# wr
8c10: 69 74 74 65 6e 20 69 6e 74 6f 20 74 68 65 20 66  itten into the f
8c20: 69 6c 65 73 20 6f 6e 20 64 69 73 6b 2e 20 41 72  iles on disk. Ar
8c30: 67 75 6d 65 6e 74 20 24 63 72 61 73 68 64 65 6c  gument $crashdel
8c40: 61 79 20 69 6e 64 69 63 61 74 65 73 20 74 68 65  ay indicates the
8c50: 0a 23 20 6e 75 6d 62 65 72 20 6f 66 20 66 69 6c  .# number of fil
8c60: 65 20 73 79 6e 63 73 20 74 6f 20 77 61 69 74 20  e syncs to wait 
8c70: 62 65 66 6f 72 65 20 63 72 61 73 68 69 6e 67 2e  before crashing.
8c80: 0a 23 0a 23 20 54 68 65 20 72 65 74 75 72 6e 20  .#.# The return 
8c90: 76 61 6c 75 65 20 69 73 20 61 20 6c 69 73 74 20  value is a list 
8ca0: 6f 66 20 74 77 6f 20 65 6c 65 6d 65 6e 74 73 2e  of two elements.
8cb0: 20 54 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65   The first eleme
8cc0: 6e 74 20 69 73 20 61 0a 23 20 62 6f 6f 6c 65 61  nt is a.# boolea
8cd0: 6e 2c 20 69 6e 64 69 63 61 74 69 6e 67 20 77 68  n, indicating wh
8ce0: 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 68 65  ether or not the
8cf0: 20 70 72 6f 63 65 73 73 20 61 63 74 75 61 6c 6c   process actuall
8d00: 79 20 63 72 61 73 68 65 64 20 6f 72 0a 23 20 72  y crashed or.# r
8d10: 65 70 6f 72 74 65 64 20 73 6f 6d 65 20 6f 74 68  eported some oth
8d20: 65 72 20 65 72 72 6f 72 2e 20 54 68 65 20 73 65  er error. The se
8d30: 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 20 69 6e 20  cond element in 
8d40: 74 68 65 20 72 65 74 75 72 6e 65 64 20 6c 69 73  the returned lis
8d50: 74 20 69 73 20 74 68 65 0a 23 20 65 72 72 6f 72  t is the.# error
8d60: 20 6d 65 73 73 61 67 65 2e 20 54 68 69 73 20 69   message. This i
8d70: 73 20 22 63 68 69 6c 64 20 70 72 6f 63 65 73 73  s "child process
8d80: 20 65 78 69 74 65 64 20 61 62 6e 6f 72 6d 61 6c   exited abnormal
8d90: 6c 79 22 20 69 66 20 74 68 65 20 63 72 61 73 68  ly" if the crash
8da0: 0a 23 20 6f 63 63 75 72 72 65 64 2e 0a 23 0a 23  .# occurred..#.#
8db0: 20 20 20 63 72 61 73 68 73 71 6c 20 2d 64 65 6c     crashsql -del
8dc0: 61 79 20 43 52 41 53 48 44 45 4c 41 59 20 2d 66  ay CRASHDELAY -f
8dd0: 69 6c 65 20 43 52 41 53 48 46 49 4c 45 20 3f 2d  ile CRASHFILE ?-
8de0: 62 6c 6f 63 6b 73 69 7a 65 20 42 4c 4f 43 4b 53  blocksize BLOCKS
8df0: 49 5a 45 3f 20 24 73 71 6c 0a 23 0a 70 72 6f 63  IZE? $sql.#.proc
8e00: 20 63 72 61 73 68 73 71 6c 20 7b 61 72 67 73 7d   crashsql {args}
8e10: 20 7b 0a 0a 20 20 73 65 74 20 62 6c 6f 63 6b 73   {..  set blocks
8e20: 69 7a 65 20 22 22 0a 20 20 73 65 74 20 63 72 61  ize "".  set cra
8e30: 73 68 64 65 6c 61 79 20 31 0a 20 20 73 65 74 20  shdelay 1.  set 
8e40: 70 72 6e 67 73 65 65 64 20 30 0a 20 20 73 65 74  prngseed 0.  set
8e50: 20 6f 70 65 6e 64 62 20 7b 20 73 71 6c 69 74 65   opendb { sqlite
8e60: 33 20 64 62 20 74 65 73 74 2e 64 62 20 2d 76 66  3 db test.db -vf
8e70: 73 20 63 72 61 73 68 20 7d 0a 20 20 73 65 74 20  s crash }.  set 
8e80: 74 63 6c 62 6f 64 79 20 7b 7d 0a 20 20 73 65 74  tclbody {}.  set
8e90: 20 63 72 61 73 68 66 69 6c 65 20 22 22 0a 20 20   crashfile "".  
8ea0: 73 65 74 20 64 63 20 22 22 0a 20 20 73 65 74 20  set dc "".  set 
8eb0: 73 71 6c 20 5b 6c 69 6e 64 65 78 20 24 61 72 67  sql [lindex $arg
8ec0: 73 20 65 6e 64 5d 0a 0a 20 20 66 6f 72 20 7b 73  s end]..  for {s
8ed0: 65 74 20 69 69 20 30 7d 20 7b 24 69 69 20 3c 20  et ii 0} {$ii < 
8ee0: 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 73 5d 2d  [llength $args]-
8ef0: 31 7d 20 7b 69 6e 63 72 20 69 69 20 32 7d 20 7b  1} {incr ii 2} {
8f00: 0a 20 20 20 20 73 65 74 20 7a 20 5b 6c 69 6e 64  .    set z [lind
8f10: 65 78 20 24 61 72 67 73 20 24 69 69 5d 0a 20 20  ex $args $ii].  
8f20: 20 20 73 65 74 20 6e 20 5b 73 74 72 69 6e 67 20    set n [string 
8f30: 6c 65 6e 67 74 68 20 24 7a 5d 0a 20 20 20 20 73  length $z].    s
8f40: 65 74 20 7a 32 20 5b 6c 69 6e 64 65 78 20 24 61  et z2 [lindex $a
8f50: 72 67 73 20 5b 65 78 70 72 20 24 69 69 2b 31 5d  rgs [expr $ii+1]
8f60: 5d 0a 0a 20 20 20 20 69 66 20 20 20 20 20 7b 24  ]..    if     {$
8f70: 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e 67 20 66  n>1 && [string f
8f80: 69 72 73 74 20 24 7a 20 2d 64 65 6c 61 79 5d 3d  irst $z -delay]=
8f90: 3d 30 7d 20 20 20 20 20 7b 73 65 74 20 63 72 61  =0}     {set cra
8fa0: 73 68 64 65 6c 61 79 20 24 7a 32 7d 20 5c 0a 20  shdelay $z2} \. 
8fb0: 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 20     elseif {$n>1 
8fc0: 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74  && [string first
8fd0: 20 24 7a 20 2d 6f 70 65 6e 64 62 5d 3d 3d 30 7d   $z -opendb]==0}
8fe0: 20 20 20 20 7b 73 65 74 20 6f 70 65 6e 64 62 20      {set opendb 
8ff0: 24 7a 32 7d 20 5c 0a 20 20 20 20 65 6c 73 65 69  $z2} \.    elsei
9000: 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72 69  f {$n>1 && [stri
9010: 6e 67 20 66 69 72 73 74 20 24 7a 20 2d 73 65 65  ng first $z -see
9020: 64 5d 3d 3d 30 7d 20 20 20 20 20 20 7b 73 65 74  d]==0}      {set
9030: 20 70 72 6e 67 73 65 65 64 20 24 7a 32 7d 20 5c   prngseed $z2} \
9040: 0a 20 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e  .    elseif {$n>
9050: 31 20 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72  1 && [string fir
9060: 73 74 20 24 7a 20 2d 66 69 6c 65 5d 3d 3d 30 7d  st $z -file]==0}
9070: 20 20 20 20 20 20 7b 73 65 74 20 63 72 61 73 68        {set crash
9080: 66 69 6c 65 20 24 7a 32 7d 20 20 5c 0a 20 20 20  file $z2}  \.   
9090: 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 20 26 26   elseif {$n>1 &&
90a0: 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20 24   [string first $
90b0: 7a 20 2d 74 63 6c 62 6f 64 79 5d 3d 3d 30 7d 20  z -tclbody]==0} 
90c0: 20 20 7b 73 65 74 20 74 63 6c 62 6f 64 79 20 24    {set tclbody $
90d0: 7a 32 7d 20 20 5c 0a 20 20 20 20 65 6c 73 65 69  z2}  \.    elsei
90e0: 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72 69  f {$n>1 && [stri
90f0: 6e 67 20 66 69 72 73 74 20 24 7a 20 2d 62 6c 6f  ng first $z -blo
9100: 63 6b 73 69 7a 65 5d 3d 3d 30 7d 20 7b 73 65 74  cksize]==0} {set
9110: 20 62 6c 6f 63 6b 73 69 7a 65 20 22 2d 73 20 24   blocksize "-s $
9120: 7a 32 22 20 7d 20 5c 0a 20 20 20 20 65 6c 73 65  z2" } \.    else
9130: 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72  if {$n>1 && [str
9140: 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d 63 68  ing first $z -ch
9150: 61 72 61 63 74 65 72 69 73 74 69 63 73 5d 3d 3d  aracteristics]==
9160: 30 7d 20 7b 73 65 74 20 64 63 20 22 2d 63 20 7b  0} {set dc "-c {
9170: 24 7a 32 7d 22 20 7d 20 5c 0a 20 20 20 20 65 6c  $z2}" } \.    el
9180: 73 65 20 20 20 7b 20 65 72 72 6f 72 20 22 55 6e  se   { error "Un
9190: 72 65 63 6f 67 6e 69 7a 65 64 20 6f 70 74 69 6f  recognized optio
91a0: 6e 3a 20 24 7a 22 20 7d 0a 20 20 7d 0a 0a 20 20  n: $z" }.  }..  
91b0: 69 66 20 7b 24 63 72 61 73 68 66 69 6c 65 20 65  if {$crashfile e
91c0: 71 20 22 22 7d 20 7b 0a 20 20 20 20 65 72 72 6f  q ""} {.    erro
91d0: 72 20 22 43 6f 6d 70 75 6c 73 6f 72 79 20 6f 70  r "Compulsory op
91e0: 74 69 6f 6e 20 2d 66 69 6c 65 20 6d 69 73 73 69  tion -file missi
91f0: 6e 67 22 0a 20 20 7d 0a 0a 20 20 23 20 24 63 72  ng".  }..  # $cr
9200: 61 73 68 66 69 6c 65 20 67 65 74 73 20 63 6f 6d  ashfile gets com
9210: 70 61 72 65 64 20 74 6f 20 74 68 65 20 6e 61 74  pared to the nat
9220: 69 76 65 20 66 69 6c 65 6e 61 6d 65 20 69 6e 0a  ive filename in.
9230: 20 20 23 20 63 66 53 79 6e 63 28 29 2c 20 77 68    # cfSync(), wh
9240: 69 63 68 20 63 61 6e 20 62 65 20 64 69 66 66 65  ich can be diffe
9250: 72 65 6e 74 20 74 68 65 6e 20 77 68 61 74 20 54  rent then what T
9260: 43 4c 20 75 73 65 73 20 62 79 0a 20 20 23 20 64  CL uses by.  # d
9270: 65 66 61 75 6c 74 2c 20 73 6f 20 68 65 72 65 20  efault, so here 
9280: 77 65 20 66 6f 72 63 65 20 69 74 20 74 6f 20 74  we force it to t
9290: 68 65 20 22 6e 61 74 69 76 65 6e 61 6d 65 22 20  he "nativename" 
92a0: 66 6f 72 6d 61 74 2e 0a 20 20 73 65 74 20 63 66  format..  set cf
92b0: 69 6c 65 20 5b 73 74 72 69 6e 67 20 6d 61 70 20  ile [string map 
92c0: 7b 5c 5c 20 5c 5c 5c 5c 7d 20 5b 66 69 6c 65 20  {\\ \\\\} [file 
92d0: 6e 61 74 69 76 65 6e 61 6d 65 20 5b 66 69 6c 65  nativename [file
92e0: 20 6a 6f 69 6e 20 5b 67 65 74 5f 70 77 64 5d 20   join [get_pwd] 
92f0: 24 63 72 61 73 68 66 69 6c 65 5d 5d 5d 0a 0a 20  $crashfile]]].. 
9300: 20 73 65 74 20 66 20 5b 6f 70 65 6e 20 63 72 61   set f [open cra
9310: 73 68 2e 74 63 6c 20 77 5d 0a 20 20 70 75 74 73  sh.tcl w].  puts
9320: 20 24 66 20 22 73 71 6c 69 74 65 33 5f 63 72 61   $f "sqlite3_cra
9330: 73 68 5f 65 6e 61 62 6c 65 20 31 22 0a 20 20 70  sh_enable 1".  p
9340: 75 74 73 20 24 66 20 22 73 71 6c 69 74 65 33 5f  uts $f "sqlite3_
9350: 63 72 61 73 68 70 61 72 61 6d 73 20 24 62 6c 6f  crashparams $blo
9360: 63 6b 73 69 7a 65 20 24 64 63 20 24 63 72 61 73  cksize $dc $cras
9370: 68 64 65 6c 61 79 20 24 63 66 69 6c 65 22 0a 20  hdelay $cfile". 
9380: 20 70 75 74 73 20 24 66 20 22 73 71 6c 69 74 65   puts $f "sqlite
9390: 33 5f 74 65 73 74 5f 63 6f 6e 74 72 6f 6c 5f 70  3_test_control_p
93a0: 65 6e 64 69 6e 67 5f 62 79 74 65 20 24 3a 3a 73  ending_byte $::s
93b0: 71 6c 69 74 65 5f 70 65 6e 64 69 6e 67 5f 62 79  qlite_pending_by
93c0: 74 65 22 0a 20 20 70 75 74 73 20 24 66 20 24 6f  te".  puts $f $o
93d0: 70 65 6e 64 62 20 0a 0a 20 20 23 20 54 68 69 73  pendb ..  # This
93e0: 20 62 6c 6f 63 6b 20 73 65 74 73 20 74 68 65 20   block sets the 
93f0: 63 61 63 68 65 20 73 69 7a 65 20 6f 66 20 74 68  cache size of th
9400: 65 20 6d 61 69 6e 20 64 61 74 61 62 61 73 65 20  e main database 
9410: 74 6f 20 31 30 0a 20 20 23 20 70 61 67 65 73 2e  to 10.  # pages.
9420: 20 54 68 69 73 20 69 73 20 64 6f 6e 65 20 69 6e   This is done in
9430: 20 63 61 73 65 20 74 68 65 20 62 75 69 6c 64 20   case the build 
9440: 69 73 20 63 6f 6e 66 69 67 75 72 65 64 20 74 6f  is configured to
9450: 20 6f 6d 69 74 0a 20 20 23 20 22 50 52 41 47 4d   omit.  # "PRAGM
9460: 41 20 63 61 63 68 65 5f 73 69 7a 65 22 2e 0a 20  A cache_size".. 
9470: 20 70 75 74 73 20 24 66 20 7b 64 62 20 65 76 61   puts $f {db eva
9480: 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  l {SELECT * FROM
9490: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 3b 7d   sqlite_master;}
94a0: 7d 0a 20 20 70 75 74 73 20 24 66 20 7b 73 65 74  }.  puts $f {set
94b0: 20 62 74 20 5b 62 74 72 65 65 5f 66 72 6f 6d 5f   bt [btree_from_
94c0: 64 62 20 64 62 5d 7d 0a 20 20 70 75 74 73 20 24  db db]}.  puts $
94d0: 66 20 7b 62 74 72 65 65 5f 73 65 74 5f 63 61 63  f {btree_set_cac
94e0: 68 65 5f 73 69 7a 65 20 24 62 74 20 31 30 7d 0a  he_size $bt 10}.
94f0: 0a 20 20 69 66 20 7b 24 70 72 6e 67 73 65 65 64  .  if {$prngseed
9500: 7d 20 7b 0a 20 20 20 20 73 65 74 20 73 65 65 64  } {.    set seed
9510: 20 5b 65 78 70 72 20 7b 24 70 72 6e 67 73 65 65   [expr {$prngsee
9520: 64 25 31 30 30 30 37 2b 31 7d 5d 0a 20 20 20 20  d%10007+1}].    
9530: 23 20 70 75 74 73 20 73 65 65 64 3d 24 73 65 65  # puts seed=$see
9540: 64 0a 20 20 20 20 70 75 74 73 20 24 66 20 22 64  d.    puts $f "d
9550: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 72  b eval {SELECT r
9560: 61 6e 64 6f 6d 62 6c 6f 62 28 24 73 65 65 64 29  andomblob($seed)
9570: 7d 22 0a 20 20 7d 0a 0a 20 20 69 66 20 7b 5b 73  }".  }..  if {[s
9580: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 74 63  tring length $tc
9590: 6c 62 6f 64 79 5d 3e 30 7d 20 7b 0a 20 20 20 20  lbody]>0} {.    
95a0: 70 75 74 73 20 24 66 20 24 74 63 6c 62 6f 64 79  puts $f $tclbody
95b0: 0a 20 20 7d 0a 20 20 69 66 20 7b 5b 73 74 72 69  .  }.  if {[stri
95c0: 6e 67 20 6c 65 6e 67 74 68 20 24 73 71 6c 5d 3e  ng length $sql]>
95d0: 30 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 24 66  0} {.    puts $f
95e0: 20 22 64 62 20 65 76 61 6c 20 7b 22 0a 20 20 20   "db eval {".   
95f0: 20 70 75 74 73 20 24 66 20 20 20 22 24 73 71 6c   puts $f   "$sql
9600: 22 0a 20 20 20 20 70 75 74 73 20 24 66 20 22 7d  ".    puts $f "}
9610: 22 0a 20 20 7d 0a 20 20 63 6c 6f 73 65 20 24 66  ".  }.  close $f
9620: 0a 20 20 73 65 74 20 72 20 5b 63 61 74 63 68 20  .  set r [catch 
9630: 7b 0a 20 20 20 20 65 78 65 63 20 5b 69 6e 66 6f  {.    exec [info
9640: 20 6e 61 6d 65 6f 66 65 78 65 63 5d 20 63 72 61   nameofexec] cra
9650: 73 68 2e 74 63 6c 20 3e 40 73 74 64 6f 75 74 0a  sh.tcl >@stdout.
9660: 20 20 7d 20 6d 73 67 5d 0a 0a 20 20 23 20 57 69    } msg]..  # Wi
9670: 6e 64 6f 77 73 2f 41 63 74 69 76 65 53 74 61 74  ndows/ActiveStat
9680: 65 20 54 43 4c 20 72 65 74 75 72 6e 73 20 61 20  e TCL returns a 
9690: 73 6c 69 67 68 74 6c 79 20 64 69 66 66 65 72 65  slightly differe
96a0: 6e 74 0a 20 20 23 20 65 72 72 6f 72 20 6d 65 73  nt.  # error mes
96b0: 73 61 67 65 2e 20 20 57 65 20 6d 61 70 20 74 68  sage.  We map th
96c0: 61 74 20 74 6f 20 74 68 65 20 65 78 70 65 63 74  at to the expect
96d0: 65 64 20 6d 65 73 73 61 67 65 0a 20 20 23 20 73  ed message.  # s
96e0: 6f 20 74 68 61 74 20 77 65 20 64 6f 6e 27 74 20  o that we don't 
96f0: 68 61 76 65 20 74 6f 20 63 68 61 6e 67 65 20 61  have to change a
9700: 6c 6c 20 6f 66 20 74 68 65 20 74 65 73 74 0a 20  ll of the test. 
9710: 20 23 20 63 61 73 65 73 2e 0a 20 20 69 66 20 7b   # cases..  if {
9720: 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28  $::tcl_platform(
9730: 70 6c 61 74 66 6f 72 6d 29 3d 3d 22 77 69 6e 64  platform)=="wind
9740: 6f 77 73 22 7d 20 7b 0a 20 20 20 20 69 66 20 7b  ows"} {.    if {
9750: 24 6d 73 67 3d 3d 22 63 68 69 6c 64 20 6b 69 6c  $msg=="child kil
9760: 6c 65 64 3a 20 75 6e 6b 6e 6f 77 6e 20 73 69 67  led: unknown sig
9770: 6e 61 6c 22 7d 20 7b 0a 20 20 20 20 20 20 73 65  nal"} {.      se
9780: 74 20 6d 73 67 20 22 63 68 69 6c 64 20 70 72 6f  t msg "child pro
9790: 63 65 73 73 20 65 78 69 74 65 64 20 61 62 6e 6f  cess exited abno
97a0: 72 6d 61 6c 6c 79 22 0a 20 20 20 20 7d 0a 20 20  rmally".    }.  
97b0: 7d 0a 0a 20 20 6c 61 70 70 65 6e 64 20 72 20 24  }..  lappend r $
97c0: 6d 73 67 0a 7d 0a 0a 70 72 6f 63 20 72 75 6e 5f  msg.}..proc run_
97d0: 69 6f 65 72 72 5f 70 72 65 70 20 7b 7d 20 7b 0a  ioerr_prep {} {.
97e0: 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69    set ::sqlite_i
97f0: 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20  o_error_pending 
9800: 30 0a 20 20 63 61 74 63 68 20 7b 64 62 20 63 6c  0.  catch {db cl
9810: 6f 73 65 7d 0a 20 20 63 61 74 63 68 20 7b 64 62  ose}.  catch {db
9820: 32 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68  2 close}.  catch
9830: 20 7b 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65   {forcedelete te
9840: 73 74 2e 64 62 7d 0a 20 20 63 61 74 63 68 20 7b  st.db}.  catch {
9850: 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73 74  forcedelete test
9860: 2e 64 62 2d 6a 6f 75 72 6e 61 6c 7d 0a 20 20 63  .db-journal}.  c
9870: 61 74 63 68 20 7b 66 6f 72 63 65 64 65 6c 65 74  atch {forcedelet
9880: 65 20 74 65 73 74 32 2e 64 62 7d 0a 20 20 63 61  e test2.db}.  ca
9890: 74 63 68 20 7b 66 6f 72 63 65 64 65 6c 65 74 65  tch {forcedelete
98a0: 20 74 65 73 74 32 2e 64 62 2d 6a 6f 75 72 6e 61   test2.db-journa
98b0: 6c 7d 0a 20 20 73 65 74 20 3a 3a 44 42 20 5b 73  l}.  set ::DB [s
98c0: 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64  qlite3 db test.d
98d0: 62 3b 20 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65  b; sqlite3_conne
98e0: 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62  ction_pointer db
98f0: 5d 0a 20 20 73 71 6c 69 74 65 33 5f 65 78 74 65  ].  sqlite3_exte
9900: 6e 64 65 64 5f 72 65 73 75 6c 74 5f 63 6f 64 65  nded_result_code
9910: 73 20 24 3a 3a 44 42 20 24 3a 3a 69 6f 65 72 72  s $::DB $::ioerr
9920: 6f 70 74 73 28 2d 65 72 63 29 0a 20 20 69 66 20  opts(-erc).  if 
9930: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
9940: 69 6f 65 72 72 6f 70 74 73 28 2d 74 63 6c 70 72  ioerropts(-tclpr
9950: 65 70 29 5d 7d 20 7b 0a 20 20 20 20 65 76 61 6c  ep)]} {.    eval
9960: 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 74   $::ioerropts(-t
9970: 63 6c 70 72 65 70 29 0a 20 20 7d 0a 20 20 69 66  clprep).  }.  if
9980: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
9990: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73 71 6c 70  :ioerropts(-sqlp
99a0: 72 65 70 29 5d 7d 20 7b 0a 20 20 20 20 65 78 65  rep)]} {.    exe
99b0: 63 73 71 6c 20 24 3a 3a 69 6f 65 72 72 6f 70 74  csql $::ioerropt
99c0: 73 28 2d 73 71 6c 70 72 65 70 29 0a 20 20 7d 0a  s(-sqlprep).  }.
99d0: 20 20 65 78 70 72 20 30 0a 7d 0a 0a 23 20 55 73    expr 0.}..# Us
99e0: 61 67 65 3a 20 64 6f 5f 69 6f 65 72 72 5f 74 65  age: do_ioerr_te
99f0: 73 74 20 3c 74 65 73 74 20 6e 75 6d 62 65 72 3e  st <test number>
9a00: 20 3c 6f 70 74 69 6f 6e 73 2e 2e 2e 3e 0a 23 0a   <options...>.#.
9a10: 23 20 54 68 69 73 20 70 72 6f 63 20 69 73 20 75  # This proc is u
9a20: 73 65 64 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74  sed to implement
9a30: 20 74 65 73 74 20 63 61 73 65 73 20 74 68 61 74   test cases that
9a40: 20 63 68 65 63 6b 20 74 68 61 74 20 49 4f 20 65   check that IO e
9a50: 72 72 6f 72 73 0a 23 20 61 72 65 20 63 6f 72 72  rrors.# are corr
9a60: 65 63 74 6c 79 20 68 61 6e 64 6c 65 64 2e 20 54  ectly handled. T
9a70: 68 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e  he first argumen
9a80: 74 2c 20 3c 74 65 73 74 20 6e 75 6d 62 65 72 3e  t, <test number>
9a90: 2c 20 69 73 20 61 6e 20 69 6e 74 65 67 65 72 0a  , is an integer.
9aa0: 23 20 75 73 65 64 20 74 6f 20 6e 61 6d 65 20 74  # used to name t
9ab0: 68 65 20 74 65 73 74 73 20 65 78 65 63 75 74 65  he tests execute
9ac0: 64 20 62 79 20 74 68 69 73 20 70 72 6f 63 2e 20  d by this proc. 
9ad0: 4f 70 74 69 6f 6e 73 20 61 72 65 20 61 73 20 66  Options are as f
9ae0: 6f 6c 6c 6f 77 73 3a 0a 23 0a 23 20 20 20 20 20  ollows:.#.#     
9af0: 2d 74 63 6c 70 72 65 70 20 20 20 20 20 20 20 20  -tclprep        
9b00: 20 20 54 43 4c 20 73 63 72 69 70 74 20 74 6f 20    TCL script to 
9b10: 72 75 6e 20 74 6f 20 70 72 65 70 61 72 65 20 74  run to prepare t
9b20: 65 73 74 2e 0a 23 20 20 20 20 20 2d 73 71 6c 70  est..#     -sqlp
9b30: 72 65 70 20 20 20 20 20 20 20 20 20 20 53 51 4c  rep          SQL
9b40: 20 73 63 72 69 70 74 20 74 6f 20 72 75 6e 20 74   script to run t
9b50: 6f 20 70 72 65 70 61 72 65 20 74 65 73 74 2e 0a  o prepare test..
9b60: 23 20 20 20 20 20 2d 74 63 6c 62 6f 64 79 20 20  #     -tclbody  
9b70: 20 20 20 20 20 20 20 20 54 43 4c 20 73 63 72 69          TCL scri
9b80: 70 74 20 74 6f 20 72 75 6e 20 77 69 74 68 20 49  pt to run with I
9b90: 4f 20 65 72 72 6f 72 20 73 69 6d 75 6c 61 74 69  O error simulati
9ba0: 6f 6e 2e 0a 23 20 20 20 20 20 2d 73 71 6c 62 6f  on..#     -sqlbo
9bb0: 64 79 20 20 20 20 20 20 20 20 20 20 54 43 4c 20  dy          TCL 
9bc0: 73 63 72 69 70 74 20 74 6f 20 72 75 6e 20 77 69  script to run wi
9bd0: 74 68 20 49 4f 20 65 72 72 6f 72 20 73 69 6d 75  th IO error simu
9be0: 6c 61 74 69 6f 6e 2e 0a 23 20 20 20 20 20 2d 65  lation..#     -e
9bf0: 78 63 6c 75 64 65 20 20 20 20 20 20 20 20 20 20  xclude          
9c00: 4c 69 73 74 20 6f 66 20 27 4e 27 20 76 61 6c 75  List of 'N' valu
9c10: 65 73 20 6e 6f 74 20 74 6f 20 74 65 73 74 2e 0a  es not to test..
9c20: 23 20 20 20 20 20 2d 65 72 63 20 20 20 20 20 20  #     -erc      
9c30: 20 20 20 20 20 20 20 20 55 73 65 20 65 78 74 65          Use exte
9c40: 6e 64 65 64 20 72 65 73 75 6c 74 20 63 6f 64 65  nded result code
9c50: 73 0a 23 20 20 20 20 20 2d 70 65 72 73 69 73 74  s.#     -persist
9c60: 20 20 20 20 20 20 20 20 20 20 4d 61 6b 65 20 73            Make s
9c70: 69 6d 75 6c 61 74 65 64 20 49 2f 4f 20 65 72 72  imulated I/O err
9c80: 6f 72 73 20 70 65 72 73 69 73 74 65 6e 74 0a 23  ors persistent.#
9c90: 20 20 20 20 20 2d 73 74 61 72 74 20 20 20 20 20       -start     
9ca0: 20 20 20 20 20 20 20 56 61 6c 75 65 20 6f 66 20         Value of 
9cb0: 27 4e 27 20 74 6f 20 62 65 67 69 6e 20 77 69 74  'N' to begin wit
9cc0: 68 20 28 64 65 66 61 75 6c 74 20 31 29 0a 23 0a  h (default 1).#.
9cd0: 23 20 20 20 20 20 2d 63 6b 73 75 6d 20 20 20 20  #     -cksum    
9ce0: 20 20 20 20 20 20 20 20 42 6f 6f 6c 65 61 6e 2e          Boolean.
9cf0: 20 49 66 20 74 72 75 65 2c 20 74 65 73 74 20 74   If true, test t
9d00: 68 61 74 20 74 68 65 20 64 61 74 61 62 61 73 65  hat the database
9d10: 20 64 6f 65 73 0a 23 20 20 20 20 20 20 20 20 20   does.#         
9d20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f                no
9d30: 74 20 63 68 61 6e 67 65 20 64 75 72 69 6e 67 20  t change during 
9d40: 74 68 65 20 65 78 65 63 75 74 69 6f 6e 20 6f 66  the execution of
9d50: 20 74 68 65 20 74 65 73 74 20 63 61 73 65 2e 0a   the test case..
9d60: 23 0a 70 72 6f 63 20 64 6f 5f 69 6f 65 72 72 5f  #.proc do_ioerr_
9d70: 74 65 73 74 20 7b 74 65 73 74 6e 61 6d 65 20 61  test {testname a
9d80: 72 67 73 7d 20 7b 0a 0a 20 20 73 65 74 20 3a 3a  rgs} {..  set ::
9d90: 69 6f 65 72 72 6f 70 74 73 28 2d 73 74 61 72 74  ioerropts(-start
9da0: 29 20 31 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72  ) 1.  set ::ioer
9db0: 72 6f 70 74 73 28 2d 63 6b 73 75 6d 29 20 30 0a  ropts(-cksum) 0.
9dc0: 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74    set ::ioerropt
9dd0: 73 28 2d 65 72 63 29 20 30 0a 20 20 73 65 74 20  s(-erc) 0.  set 
9de0: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6f 75  ::ioerropts(-cou
9df0: 6e 74 29 20 31 30 30 30 30 30 30 30 30 0a 20 20  nt) 100000000.  
9e00: 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28  set ::ioerropts(
9e10: 2d 70 65 72 73 69 73 74 29 20 31 0a 20 20 73 65  -persist) 1.  se
9e20: 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63  t ::ioerropts(-c
9e30: 6b 72 65 66 63 6f 75 6e 74 29 20 30 0a 20 20 73  krefcount) 0.  s
9e40: 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d  et ::ioerropts(-
9e50: 72 65 73 74 6f 72 65 70 72 6e 67 29 20 31 0a 20  restoreprng) 1. 
9e60: 20 61 72 72 61 79 20 73 65 74 20 3a 3a 69 6f 65   array set ::ioe
9e70: 72 72 6f 70 74 73 20 24 61 72 67 73 0a 0a 20 20  rropts $args..  
9e80: 23 20 54 45 4d 50 4f 52 41 52 59 3a 20 46 6f 72  # TEMPORARY: For
9e90: 20 33 2e 35 2e 39 2c 20 64 69 73 61 62 6c 65 20   3.5.9, disable 
9ea0: 74 65 73 74 69 6e 67 20 6f 66 20 65 78 74 65 6e  testing of exten
9eb0: 64 65 64 20 72 65 73 75 6c 74 20 63 6f 64 65 73  ded result codes
9ec0: 2e 20 54 68 65 72 65 20 61 72 65 0a 20 20 23 20  . There are.  # 
9ed0: 61 20 63 6f 75 70 6c 65 20 6f 66 20 6f 62 73 63  a couple of obsc
9ee0: 75 72 65 20 49 4f 20 65 72 72 6f 72 73 20 74 68  ure IO errors th
9ef0: 61 74 20 64 6f 20 6e 6f 74 20 72 65 74 75 72 6e  at do not return
9f00: 20 74 68 65 6d 2e 0a 20 20 73 65 74 20 3a 3a 69   them..  set ::i
9f10: 6f 65 72 72 6f 70 74 73 28 2d 65 72 63 29 20 30  oerropts(-erc) 0
9f20: 0a 0a 20 20 23 20 43 72 65 61 74 65 20 61 20 73  ..  # Create a s
9f30: 69 6e 67 6c 65 20 54 43 4c 20 73 63 72 69 70 74  ingle TCL script
9f40: 20 66 72 6f 6d 20 74 68 65 20 54 43 4c 20 61 6e   from the TCL an
9f50: 64 20 53 51 4c 20 73 70 65 63 69 66 69 65 64 0a  d SQL specified.
9f60: 20 20 23 20 61 73 20 74 68 65 20 62 6f 64 79 20    # as the body 
9f70: 6f 66 20 74 68 65 20 74 65 73 74 2e 0a 20 20 73  of the test..  s
9f80: 65 74 20 3a 3a 69 6f 65 72 72 6f 72 62 6f 64 79  et ::ioerrorbody
9f90: 20 7b 7d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20   {}.  if {[info 
9fa0: 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70  exists ::ioerrop
9fb0: 74 73 28 2d 74 63 6c 62 6f 64 79 29 5d 7d 20 7b  ts(-tclbody)]} {
9fc0: 0a 20 20 20 20 61 70 70 65 6e 64 20 3a 3a 69 6f  .    append ::io
9fd0: 65 72 72 6f 72 62 6f 64 79 20 22 24 3a 3a 69 6f  errorbody "$::io
9fe0: 65 72 72 6f 70 74 73 28 2d 74 63 6c 62 6f 64 79  erropts(-tclbody
9ff0: 29 5c 6e 22 0a 20 20 7d 0a 20 20 69 66 20 7b 5b  )\n".  }.  if {[
a000: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f  info exists ::io
a010: 65 72 72 6f 70 74 73 28 2d 73 71 6c 62 6f 64 79  erropts(-sqlbody
a020: 29 5d 7d 20 7b 0a 20 20 20 20 61 70 70 65 6e 64  )]} {.    append
a030: 20 3a 3a 69 6f 65 72 72 6f 72 62 6f 64 79 20 22   ::ioerrorbody "
a040: 64 62 20 65 76 61 6c 20 7b 24 3a 3a 69 6f 65 72  db eval {$::ioer
a050: 72 6f 70 74 73 28 2d 73 71 6c 62 6f 64 79 29 7d  ropts(-sqlbody)}
a060: 22 0a 20 20 7d 0a 0a 20 20 73 61 76 65 5f 70 72  ".  }..  save_pr
a070: 6e 67 5f 73 74 61 74 65 0a 20 20 69 66 20 7b 24  ng_state.  if {$
a080: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 73  ::ioerropts(-cks
a090: 75 6d 29 7d 20 7b 0a 20 20 20 20 72 75 6e 5f 69  um)} {.    run_i
a0a0: 6f 65 72 72 5f 70 72 65 70 0a 20 20 20 20 65 76  oerr_prep.    ev
a0b0: 61 6c 20 24 3a 3a 69 6f 65 72 72 6f 72 62 6f 64  al $::ioerrorbod
a0c0: 79 0a 20 20 20 20 73 65 74 20 3a 3a 67 6f 6f 64  y.    set ::good
a0d0: 63 6b 73 75 6d 20 5b 63 6b 73 75 6d 5d 0a 20 20  cksum [cksum].  
a0e0: 7d 0a 0a 20 20 73 65 74 20 3a 3a 67 6f 20 31 0a  }..  set ::go 1.
a0f0: 20 20 23 72 65 73 65 74 5f 70 72 6e 67 5f 73 74    #reset_prng_st
a100: 61 74 65 0a 20 20 66 6f 72 20 7b 73 65 74 20 6e  ate.  for {set n
a110: 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73   $::ioerropts(-s
a120: 74 61 72 74 29 7d 20 7b 24 3a 3a 67 6f 7d 20 7b  tart)} {$::go} {
a130: 69 6e 63 72 20 6e 7d 20 7b 0a 20 20 20 20 73 65  incr n} {.    se
a140: 74 20 3a 3a 54 4e 20 24 6e 0a 20 20 20 20 69 6e  t ::TN $n.    in
a150: 63 72 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d  cr ::ioerropts(-
a160: 63 6f 75 6e 74 29 20 2d 31 0a 20 20 20 20 69 66  count) -1.    if
a170: 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d   {$::ioerropts(-
a180: 63 6f 75 6e 74 29 3c 30 7d 20 62 72 65 61 6b 0a  count)<0} break.
a190: 0a 20 20 20 20 23 20 53 6b 69 70 20 74 68 69 73  .    # Skip this
a1a0: 20 49 4f 20 65 72 72 6f 72 20 69 66 20 69 74 20   IO error if it 
a1b0: 77 61 73 20 73 70 65 63 69 66 69 65 64 20 77 69  was specified wi
a1c0: 74 68 20 74 68 65 20 22 2d 65 78 63 6c 75 64 65  th the "-exclude
a1d0: 22 20 6f 70 74 69 6f 6e 2e 0a 20 20 20 20 69 66  " option..    if
a1e0: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
a1f0: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 65 78 63 6c  :ioerropts(-excl
a200: 75 64 65 29 5d 7d 20 7b 0a 20 20 20 20 20 20 69  ude)]} {.      i
a210: 66 20 7b 5b 6c 73 65 61 72 63 68 20 24 3a 3a 69  f {[lsearch $::i
a220: 6f 65 72 72 6f 70 74 73 28 2d 65 78 63 6c 75 64  oerropts(-exclud
a230: 65 29 20 24 6e 5d 21 3d 2d 31 7d 20 63 6f 6e 74  e) $n]!=-1} cont
a240: 69 6e 75 65 0a 20 20 20 20 7d 0a 20 20 20 20 69  inue.    }.    i
a250: 66 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28  f {$::ioerropts(
a260: 2d 72 65 73 74 6f 72 65 70 72 6e 67 29 7d 20 7b  -restoreprng)} {
a270: 0a 20 20 20 20 20 20 72 65 73 74 6f 72 65 5f 70  .      restore_p
a280: 72 6e 67 5f 73 74 61 74 65 0a 20 20 20 20 7d 0a  rng_state.    }.
a290: 0a 20 20 20 20 23 20 44 65 6c 65 74 65 20 74 68  .    # Delete th
a2a0: 65 20 66 69 6c 65 73 20 74 65 73 74 2e 64 62 20  e files test.db 
a2b0: 61 6e 64 20 74 65 73 74 32 2e 64 62 2c 20 74 68  and test2.db, th
a2c0: 65 6e 20 65 78 65 63 75 74 65 20 74 68 65 20 54  en execute the T
a2d0: 43 4c 20 61 6e 64 0a 20 20 20 20 23 20 53 51 4c  CL and.    # SQL
a2e0: 20 28 69 6e 20 74 68 61 74 20 6f 72 64 65 72 29   (in that order)
a2f0: 20 74 6f 20 70 72 65 70 61 72 65 20 66 6f 72 20   to prepare for 
a300: 74 68 65 20 74 65 73 74 20 63 61 73 65 2e 0a 20  the test case.. 
a310: 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74     do_test $test
a320: 6e 61 6d 65 2e 24 6e 2e 31 20 7b 0a 20 20 20 20  name.$n.1 {.    
a330: 20 20 72 75 6e 5f 69 6f 65 72 72 5f 70 72 65 70    run_ioerr_prep
a340: 0a 20 20 20 20 7d 20 7b 30 7d 0a 0a 20 20 20 20  .    } {0}..    
a350: 23 20 52 65 61 64 20 74 68 65 20 27 63 68 65 63  # Read the 'chec
a360: 6b 73 75 6d 27 20 6f 66 20 74 68 65 20 64 61 74  ksum' of the dat
a370: 61 62 61 73 65 2e 0a 20 20 20 20 69 66 20 7b 24  abase..    if {$
a380: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 73  ::ioerropts(-cks
a390: 75 6d 29 7d 20 7b 0a 20 20 20 20 20 20 73 65 74  um)} {.      set
a3a0: 20 3a 3a 63 68 65 63 6b 73 75 6d 20 5b 63 6b 73   ::checksum [cks
a3b0: 75 6d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23  um].    }..    #
a3c0: 20 53 65 74 20 74 68 65 20 4e 74 68 20 49 4f 20   Set the Nth IO 
a3d0: 65 72 72 6f 72 20 74 6f 20 66 61 69 6c 2e 0a 20  error to fail.. 
a3e0: 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74     do_test $test
a3f0: 6e 61 6d 65 2e 24 6e 2e 32 20 5b 73 75 62 73 74  name.$n.2 [subst
a400: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 73   {.      set ::s
a410: 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70  qlite_io_error_p
a420: 65 72 73 69 73 74 20 24 3a 3a 69 6f 65 72 72 6f  ersist $::ioerro
a430: 70 74 73 28 2d 70 65 72 73 69 73 74 29 0a 20 20  pts(-persist).  
a440: 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65      set ::sqlite
a450: 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e  _io_error_pendin
a460: 67 20 24 6e 0a 20 20 20 20 7d 5d 20 24 6e 0a 0a  g $n.    }] $n..
a470: 20 20 20 20 23 20 45 78 65 63 75 74 65 20 74 68      # Execute th
a480: 65 20 54 43 4c 20 73 63 72 69 70 74 20 63 72 65  e TCL script cre
a490: 61 74 65 64 20 66 6f 72 20 74 68 65 20 62 6f 64  ated for the bod
a4a0: 79 20 6f 66 20 74 68 69 73 20 74 65 73 74 2e 20  y of this test. 
a4b0: 49 66 0a 20 20 20 20 23 20 61 74 20 6c 65 61 73  If.    # at leas
a4c0: 74 20 4e 20 49 4f 20 6f 70 65 72 61 74 69 6f 6e  t N IO operation
a4d0: 73 20 70 65 72 66 6f 72 6d 65 64 20 62 79 20 53  s performed by S
a4e0: 51 4c 69 74 65 20 61 73 20 61 20 72 65 73 75 6c  QLite as a resul
a4f0: 74 20 6f 66 0a 20 20 20 20 23 20 74 68 65 20 73  t of.    # the s
a500: 63 72 69 70 74 2c 20 74 68 65 20 4e 74 68 20 77  cript, the Nth w
a510: 69 6c 6c 20 66 61 69 6c 2e 0a 20 20 20 20 64 6f  ill fail..    do
a520: 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e  _test $testname.
a530: 24 6e 2e 33 20 7b 0a 20 20 20 20 20 20 73 65 74  $n.3 {.      set
a540: 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72   ::sqlite_io_err
a550: 6f 72 5f 68 69 74 20 30 0a 20 20 20 20 20 20 73  or_hit 0.      s
a560: 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65  et ::sqlite_io_e
a570: 72 72 6f 72 5f 68 61 72 64 68 69 74 20 30 0a 20  rror_hardhit 0. 
a580: 20 20 20 20 20 73 65 74 20 72 20 5b 63 61 74 63       set r [catc
a590: 68 20 24 3a 3a 69 6f 65 72 72 6f 72 62 6f 64 79  h $::ioerrorbody
a5a0: 20 6d 73 67 5d 0a 20 20 20 20 20 20 73 65 74 20   msg].      set 
a5b0: 3a 3a 65 72 72 73 65 65 6e 20 24 72 0a 20 20 20  ::errseen $r.   
a5c0: 20 20 20 73 65 74 20 72 63 20 5b 73 71 6c 69 74     set rc [sqlit
a5d0: 65 33 5f 65 72 72 63 6f 64 65 20 24 3a 3a 44 42  e3_errcode $::DB
a5e0: 5d 0a 20 20 20 20 20 20 69 66 20 7b 24 3a 3a 69  ].      if {$::i
a5f0: 6f 65 72 72 6f 70 74 73 28 2d 65 72 63 29 7d 20  oerropts(-erc)} 
a600: 7b 0a 20 20 20 20 20 20 20 20 23 20 49 66 20 77  {.        # If w
a610: 65 20 61 72 65 20 69 6e 20 65 78 74 65 6e 64 65  e are in extende
a620: 64 20 72 65 73 75 6c 74 20 63 6f 64 65 20 6d 6f  d result code mo
a630: 64 65 2c 20 6d 61 6b 65 20 73 75 72 65 20 61 6c  de, make sure al
a640: 6c 20 6f 66 20 74 68 65 0a 20 20 20 20 20 20 20  l of the.       
a650: 20 23 20 49 4f 45 52 52 73 20 77 65 20 67 65 74   # IOERRs we get
a660: 20 62 61 63 6b 20 72 65 61 6c 6c 79 20 64 6f 20   back really do 
a670: 68 61 76 65 20 74 68 65 69 72 20 65 78 74 65 6e  have their exten
a680: 64 65 64 20 63 6f 64 65 20 76 61 6c 75 65 73 2e  ded code values.
a690: 0a 20 20 20 20 20 20 20 20 23 20 49 66 20 61 6e  .        # If an
a6a0: 20 65 78 74 65 6e 64 65 64 20 72 65 73 75 6c 74   extended result
a6b0: 20 63 6f 64 65 20 69 73 20 72 65 74 75 72 6e 65   code is returne
a6c0: 64 2c 20 74 68 65 20 73 71 6c 69 74 65 33 5f 65  d, the sqlite3_e
a6d0: 72 72 63 6f 64 65 0a 20 20 20 20 20 20 20 20 23  rrcode.        #
a6e0: 20 54 43 4c 63 6f 6d 6d 61 6e 64 20 77 69 6c 6c   TCLcommand will
a6f0: 20 72 65 74 75 72 6e 20 61 20 73 74 72 69 6e 67   return a string
a700: 20 6f 66 20 74 68 65 20 66 6f 72 6d 3a 20 20 53   of the form:  S
a710: 51 4c 49 54 45 5f 49 4f 45 52 52 2b 6e 6e 6e 6e  QLITE_IOERR+nnnn
a720: 0a 20 20 20 20 20 20 20 20 23 20 77 68 65 72 65  .        # where
a730: 20 6e 6e 6e 6e 20 69 73 20 61 20 6e 75 6d 62 65   nnnn is a numbe
a740: 72 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 72  r.        if {[r
a750: 65 67 65 78 70 20 7b 5e 53 51 4c 49 54 45 5f 49  egexp {^SQLITE_I
a760: 4f 45 52 52 7d 20 24 72 63 5d 20 26 26 20 21 5b  OERR} $rc] && ![
a770: 72 65 67 65 78 70 20 7b 49 4f 45 52 52 5c 2b 5c  regexp {IOERR\+\
a780: 64 7d 20 24 72 63 5d 7d 20 7b 0a 20 20 20 20 20  d} $rc]} {.     
a790: 20 20 20 20 20 72 65 74 75 72 6e 20 24 72 63 0a       return $rc.
a7a0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
a7b0: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20  } else {.       
a7c0: 20 23 20 49 66 20 77 65 20 61 72 65 20 6e 6f 74   # If we are not
a7d0: 20 69 6e 20 65 78 74 65 6e 64 65 64 20 72 65 73   in extended res
a7e0: 75 6c 74 20 63 6f 64 65 20 6d 6f 64 65 2c 20 6d  ult code mode, m
a7f0: 61 6b 65 20 73 75 72 65 20 6e 6f 0a 20 20 20 20  ake sure no.    
a800: 20 20 20 20 23 20 65 78 74 65 6e 64 65 64 20 65      # extended e
a810: 72 72 6f 72 20 63 6f 64 65 73 20 61 72 65 20 72  rror codes are r
a820: 65 74 75 72 6e 65 64 2e 0a 20 20 20 20 20 20 20  eturned..       
a830: 20 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 5c 2b   if {[regexp {\+
a840: 5c 64 7d 20 24 72 63 5d 7d 20 7b 0a 20 20 20 20  \d} $rc]} {.    
a850: 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 72 63        return $rc
a860: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
a870: 20 7d 0a 20 20 20 20 20 20 23 20 54 68 65 20 74   }.      # The t
a880: 65 73 74 20 72 65 70 65 61 74 73 20 61 73 20 6c  est repeats as l
a890: 6f 6e 67 20 61 73 20 24 3a 3a 67 6f 20 69 73 20  ong as $::go is 
a8a0: 6e 6f 6e 2d 7a 65 72 6f 2e 20 20 24 3a 3a 67 6f  non-zero.  $::go
a8b0: 20 73 74 61 72 74 73 20 6f 75 74 0a 20 20 20 20   starts out.    
a8c0: 20 20 23 20 61 73 20 31 2e 20 20 57 68 65 6e 20    # as 1.  When 
a8d0: 61 20 74 65 73 74 20 72 75 6e 73 20 74 6f 20 63  a test runs to c
a8e0: 6f 6d 70 6c 65 74 69 6f 6e 20 77 69 74 68 6f 75  ompletion withou
a8f0: 74 20 68 69 74 74 69 6e 67 20 61 6e 20 49 2f 4f  t hitting an I/O
a900: 0a 20 20 20 20 20 20 23 20 65 72 72 6f 72 2c 20  .      # error, 
a910: 74 68 61 74 20 6d 65 61 6e 73 20 74 68 65 72 65  that means there
a920: 20 69 73 20 6e 6f 20 70 6f 69 6e 74 20 69 6e 20   is no point in 
a930: 63 6f 6e 74 69 6e 75 69 6e 67 20 77 69 74 68 20  continuing with 
a940: 74 68 69 73 20 74 65 73 74 0a 20 20 20 20 20 20  this test.      
a950: 23 20 63 61 73 65 20 73 6f 20 73 65 74 20 24 3a  # case so set $:
a960: 3a 67 6f 20 74 6f 20 7a 65 72 6f 2e 0a 20 20 20  :go to zero..   
a970: 20 20 20 23 0a 20 20 20 20 20 20 69 66 20 7b 24     #.      if {$
a980: 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f  ::sqlite_io_erro
a990: 72 5f 70 65 6e 64 69 6e 67 3e 30 7d 20 7b 0a 20  r_pending>0} {. 
a9a0: 20 20 20 20 20 20 20 73 65 74 20 3a 3a 67 6f 20         set ::go 
a9b0: 30 0a 20 20 20 20 20 20 20 20 73 65 74 20 71 20  0.        set q 
a9c0: 30 0a 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a  0.        set ::
a9d0: 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f  sqlite_io_error_
a9e0: 70 65 6e 64 69 6e 67 20 30 0a 20 20 20 20 20 20  pending 0.      
a9f0: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20  } else {.       
aa00: 20 73 65 74 20 71 20 31 0a 20 20 20 20 20 20 7d   set q 1.      }
aa10: 0a 0a 20 20 20 20 20 20 73 65 74 20 73 20 5b 65  ..      set s [e
aa20: 78 70 72 20 24 3a 3a 73 71 6c 69 74 65 5f 69 6f  xpr $::sqlite_io
aa30: 5f 65 72 72 6f 72 5f 68 69 74 3d 3d 30 5d 0a 20  _error_hit==0]. 
aa40: 20 20 20 20 20 69 66 20 7b 24 3a 3a 73 71 6c 69       if {$::sqli
aa50: 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 69 74 3e  te_io_error_hit>
aa60: 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72  $::sqlite_io_err
aa70: 6f 72 5f 68 61 72 64 68 69 74 20 26 26 20 24 72  or_hardhit && $r
aa80: 3d 3d 30 7d 20 7b 0a 20 20 20 20 20 20 20 20 73  ==0} {.        s
aa90: 65 74 20 72 20 31 0a 20 20 20 20 20 20 7d 0a 20  et r 1.      }. 
aaa0: 20 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74       set ::sqlit
aab0: 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 69 74 20 30  e_io_error_hit 0
aac0: 0a 0a 20 20 20 20 20 20 23 20 4f 6e 65 20 6f 66  ..      # One of
aad0: 20 74 77 6f 20 74 68 69 6e 67 73 20 6d 75 73 74   two things must
aae0: 20 68 61 76 65 20 68 61 70 70 65 6e 65 64 2e 20   have happened. 
aaf0: 65 69 74 68 65 72 0a 20 20 20 20 20 20 23 20 20  either.      #  
ab00: 20 31 2e 20 20 57 65 20 6e 65 76 65 72 20 68 69   1.  We never hi
ab10: 74 20 74 68 65 20 49 4f 20 65 72 72 6f 72 20 61  t the IO error a
ab20: 6e 64 20 74 68 65 20 53 51 4c 20 72 65 74 75 72  nd the SQL retur
ab30: 6e 65 64 20 4f 4b 0a 20 20 20 20 20 20 23 20 20  ned OK.      #  
ab40: 20 32 2e 20 20 41 6e 20 49 4f 20 65 72 72 6f 72   2.  An IO error
ab50: 20 77 61 73 20 68 69 74 20 61 6e 64 20 74 68 65   was hit and the
ab60: 20 53 51 4c 20 66 61 69 6c 65 64 0a 20 20 20 20   SQL failed.    
ab70: 20 20 23 0a 20 20 20 20 20 20 23 70 75 74 73 20    #.      #puts 
ab80: 22 73 3d 24 73 20 72 3d 24 72 20 71 3d 24 71 22  "s=$s r=$r q=$q"
ab90: 0a 20 20 20 20 20 20 65 78 70 72 20 7b 20 28 24  .      expr { ($
aba0: 73 20 26 26 20 21 24 72 20 26 26 20 21 24 71 29  s && !$r && !$q)
abb0: 20 7c 7c 20 28 21 24 73 20 26 26 20 24 72 20 26   || (!$s && $r &
abc0: 26 20 24 71 29 20 7d 0a 20 20 20 20 7d 20 7b 31  & $q) }.    } {1
abd0: 7d 0a 0a 20 20 20 20 73 65 74 20 3a 3a 73 71 6c  }..    set ::sql
abe0: 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 69 74  ite_io_error_hit
abf0: 20 30 0a 20 20 20 20 73 65 74 20 3a 3a 73 71 6c   0.    set ::sql
ac00: 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e  ite_io_error_pen
ac10: 64 69 6e 67 20 30 0a 0a 20 20 20 20 23 20 43 68  ding 0..    # Ch
ac20: 65 63 6b 20 74 68 61 74 20 6e 6f 20 70 61 67 65  eck that no page
ac30: 20 72 65 66 65 72 65 6e 63 65 73 20 77 65 72 65   references were
ac40: 20 6c 65 61 6b 65 64 2e 20 54 68 65 72 65 20 73   leaked. There s
ac50: 68 6f 75 6c 64 20 62 65 0a 20 20 20 20 23 20 61  hould be.    # a
ac60: 20 73 69 6e 67 6c 65 20 72 65 66 65 72 65 6e 63   single referenc
ac70: 65 20 69 66 20 74 68 65 72 65 20 69 73 20 73 74  e if there is st
ac80: 69 6c 6c 20 61 6e 20 61 63 74 69 76 65 20 74 72  ill an active tr
ac90: 61 6e 73 61 63 74 69 6f 6e 2c 0a 20 20 20 20 23  ansaction,.    #
aca0: 20 6f 72 20 7a 65 72 6f 20 6f 74 68 65 72 77 69   or zero otherwi
acb0: 73 65 2e 0a 20 20 20 20 23 0a 20 20 20 20 23 20  se..    #.    # 
acc0: 55 50 44 41 54 45 3a 20 49 66 20 74 68 65 20 49  UPDATE: If the I
acd0: 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 73 20 61  O error occurs a
ace0: 66 74 65 72 20 61 20 27 42 45 47 49 4e 27 20 62  fter a 'BEGIN' b
acf0: 75 74 20 62 65 66 6f 72 65 20 61 6e 79 0a 20 20  ut before any.  
ad00: 20 20 23 20 6c 6f 63 6b 73 20 61 72 65 20 65 73    # locks are es
ad10: 74 61 62 6c 69 73 68 65 64 20 6f 6e 20 64 61 74  tablished on dat
ad20: 61 62 61 73 65 20 66 69 6c 65 73 20 28 69 2e 65  abase files (i.e
ad30: 2e 20 69 66 20 74 68 65 20 65 72 72 6f 72 0a 20  . if the error. 
ad40: 20 20 20 23 20 6f 63 63 75 72 73 20 77 68 69 6c     # occurs whil
ad50: 65 20 61 74 74 65 6d 70 74 69 6e 67 20 74 6f 20  e attempting to 
ad60: 64 65 74 65 63 74 20 61 20 68 6f 74 2d 6a 6f 75  detect a hot-jou
ad70: 72 6e 61 6c 20 66 69 6c 65 29 2c 20 74 68 65 6e  rnal file), then
ad80: 0a 20 20 20 20 23 20 74 68 65 72 65 20 6d 61 79  .    # there may
ad90: 20 30 20 70 61 67 65 20 72 65 66 65 72 65 6e 63   0 page referenc
ada0: 65 73 20 61 6e 64 20 61 6e 20 61 63 74 69 76 65  es and an active
adb0: 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 61 63 63   transaction acc
adc0: 6f 72 64 69 6e 67 0a 20 20 20 20 23 20 74 6f 20  ording.    # to 
add0: 5b 73 71 6c 69 74 65 33 5f 67 65 74 5f 61 75 74  [sqlite3_get_aut
ade0: 6f 63 6f 6d 6d 69 74 5d 2e 0a 20 20 20 20 23 0a  ocommit]..    #.
adf0: 20 20 20 20 69 66 20 7b 24 3a 3a 67 6f 20 26 26      if {$::go &&
ae00: 20 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72   $::sqlite_io_er
ae10: 72 6f 72 5f 68 61 72 64 68 69 74 20 26 26 20 24  ror_hardhit && $
ae20: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 72  ::ioerropts(-ckr
ae30: 65 66 63 6f 75 6e 74 29 7d 20 7b 0a 20 20 20 20  efcount)} {.    
ae40: 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74 6e    do_test $testn
ae50: 61 6d 65 2e 24 6e 2e 34 20 7b 0a 20 20 20 20 20  ame.$n.4 {.     
ae60: 20 20 20 73 65 74 20 62 74 20 5b 62 74 72 65 65     set bt [btree
ae70: 5f 66 72 6f 6d 5f 64 62 20 64 62 5d 0a 20 20 20  _from_db db].   
ae80: 20 20 20 20 20 64 62 5f 65 6e 74 65 72 20 64 62       db_enter db
ae90: 0a 20 20 20 20 20 20 20 20 61 72 72 61 79 20 73  .        array s
aea0: 65 74 20 73 74 61 74 73 20 5b 62 74 72 65 65 5f  et stats [btree_
aeb0: 70 61 67 65 72 5f 73 74 61 74 73 20 24 62 74 5d  pager_stats $bt]
aec0: 0a 20 20 20 20 20 20 20 20 64 62 5f 6c 65 61 76  .        db_leav
aed0: 65 20 64 62 0a 20 20 20 20 20 20 20 20 73 65 74  e db.        set
aee0: 20 6e 52 65 66 20 24 73 74 61 74 73 28 72 65 66   nRef $stats(ref
aef0: 29 0a 20 20 20 20 20 20 20 20 65 78 70 72 20 7b  ).        expr {
af00: 24 6e 52 65 66 20 3d 3d 20 30 20 7c 7c 20 28 5b  $nRef == 0 || ([
af10: 73 71 6c 69 74 65 33 5f 67 65 74 5f 61 75 74 6f  sqlite3_get_auto
af20: 63 6f 6d 6d 69 74 20 64 62 5d 3d 3d 30 20 26 26  commit db]==0 &&
af30: 20 24 6e 52 65 66 20 3d 3d 20 31 29 7d 0a 20 20   $nRef == 1)}.  
af40: 20 20 20 20 7d 20 7b 31 7d 0a 20 20 20 20 7d 0a      } {1}.    }.
af50: 0a 20 20 20 20 23 20 49 66 20 74 68 65 72 65 20  .    # If there 
af60: 69 73 20 61 6e 20 6f 70 65 6e 20 64 61 74 61 62  is an open datab
af70: 61 73 65 20 68 61 6e 64 6c 65 20 61 6e 64 20 6e  ase handle and n
af80: 6f 20 6f 70 65 6e 20 74 72 61 6e 73 61 63 74 69  o open transacti
af90: 6f 6e 2c 0a 20 20 20 20 23 20 61 6e 64 20 74 68  on,.    # and th
afa0: 65 20 70 61 67 65 72 20 69 73 20 6e 6f 74 20 72  e pager is not r
afb0: 75 6e 6e 69 6e 67 20 69 6e 20 65 78 63 6c 75 73  unning in exclus
afc0: 69 76 65 2d 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65  ive-locking mode
afd0: 2c 0a 20 20 20 20 23 20 63 68 65 63 6b 20 74 68  ,.    # check th
afe0: 61 74 20 74 68 65 20 70 61 67 65 72 20 69 73 20  at the pager is 
aff0: 69 6e 20 22 75 6e 6c 6f 63 6b 65 64 22 20 73 74  in "unlocked" st
b000: 61 74 65 2e 20 54 68 65 6f 72 65 74 69 63 61 6c  ate. Theoretical
b010: 6c 79 2c 0a 20 20 20 20 23 20 69 66 20 61 20 63  ly,.    # if a c
b020: 61 6c 6c 20 74 6f 20 78 55 6e 6c 6f 63 6b 28 29  all to xUnlock()
b030: 20 66 61 69 6c 65 64 20 64 75 65 20 74 6f 20 61   failed due to a
b040: 6e 20 49 4f 20 65 72 72 6f 72 20 74 68 65 20 75  n IO error the u
b050: 6e 64 65 72 6c 79 69 6e 67 0a 20 20 20 20 23 20  nderlying.    # 
b060: 66 69 6c 65 20 6d 61 79 20 73 74 69 6c 6c 20 62  file may still b
b070: 65 20 6c 6f 63 6b 65 64 2e 0a 20 20 20 20 23 0a  e locked..    #.
b080: 20 20 20 20 69 66 63 61 70 61 62 6c 65 20 70 72      ifcapable pr
b090: 61 67 6d 61 20 7b 0a 20 20 20 20 20 20 69 66 20  agma {.      if 
b0a0: 7b 20 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73  { [info commands
b0b0: 20 64 62 5d 20 6e 65 20 22 22 0a 20 20 20 20 20   db] ne "".     
b0c0: 20 20 20 26 26 20 24 3a 3a 69 6f 65 72 72 6f 70     && $::ioerrop
b0d0: 74 73 28 2d 63 6b 72 65 66 63 6f 75 6e 74 29 0a  ts(-ckrefcount).
b0e0: 20 20 20 20 20 20 20 20 26 26 20 5b 64 62 20 6f          && [db o
b0f0: 6e 65 20 7b 70 72 61 67 6d 61 20 6c 6f 63 6b 69  ne {pragma locki
b100: 6e 67 5f 6d 6f 64 65 7d 5d 20 65 71 20 22 6e 6f  ng_mode}] eq "no
b110: 72 6d 61 6c 22 0a 20 20 20 20 20 20 20 20 26 26  rmal".        &&
b120: 20 5b 73 71 6c 69 74 65 33 5f 67 65 74 5f 61 75   [sqlite3_get_au
b130: 74 6f 63 6f 6d 6d 69 74 20 64 62 5d 0a 20 20 20  tocommit db].   
b140: 20 20 20 7d 20 7b 0a 20 20 20 20 20 20 20 20 64     } {.        d
b150: 6f 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65  o_test $testname
b160: 2e 24 6e 2e 35 20 7b 0a 20 20 20 20 20 20 20 20  .$n.5 {.        
b170: 20 20 73 65 74 20 62 74 20 5b 62 74 72 65 65 5f    set bt [btree_
b180: 66 72 6f 6d 5f 64 62 20 64 62 5d 0a 20 20 20 20  from_db db].    
b190: 20 20 20 20 20 20 64 62 5f 65 6e 74 65 72 20 64        db_enter d
b1a0: 62 0a 20 20 20 20 20 20 20 20 20 20 61 72 72 61  b.          arra
b1b0: 79 20 73 65 74 20 73 74 61 74 73 20 5b 62 74 72  y set stats [btr
b1c0: 65 65 5f 70 61 67 65 72 5f 73 74 61 74 73 20 24  ee_pager_stats $
b1d0: 62 74 5d 0a 20 20 20 20 20 20 20 20 20 20 64 62  bt].          db
b1e0: 5f 6c 65 61 76 65 20 64 62 0a 20 20 20 20 20 20  _leave db.      
b1f0: 20 20 20 20 73 65 74 20 73 74 61 74 73 28 73 74      set stats(st
b200: 61 74 65 29 0a 20 20 20 20 20 20 20 20 7d 20 30  ate).        } 0
b210: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 0a  .      }.    }..
b220: 20 20 20 20 23 20 49 66 20 61 6e 20 49 4f 20 65      # If an IO e
b230: 72 72 6f 72 20 6f 63 63 75 72 72 65 64 2c 20 74  rror occurred, t
b240: 68 65 6e 20 74 68 65 20 63 68 65 63 6b 73 75 6d  hen the checksum
b250: 20 6f 66 20 74 68 65 20 64 61 74 61 62 61 73 65   of the database
b260: 20 73 68 6f 75 6c 64 0a 20 20 20 20 23 20 62 65   should.    # be
b270: 20 74 68 65 20 73 61 6d 65 20 61 73 20 62 65 66   the same as bef
b280: 6f 72 65 20 74 68 65 20 73 63 72 69 70 74 20 74  ore the script t
b290: 68 61 74 20 63 61 75 73 65 64 20 74 68 65 20 49  hat caused the I
b2a0: 4f 20 65 72 72 6f 72 20 77 61 73 20 72 75 6e 2e  O error was run.
b2b0: 0a 20 20 20 20 23 0a 20 20 20 20 69 66 20 7b 24  .    #.    if {$
b2c0: 3a 3a 67 6f 20 26 26 20 24 3a 3a 73 71 6c 69 74  ::go && $::sqlit
b2d0: 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72 64 68  e_io_error_hardh
b2e0: 69 74 20 26 26 20 24 3a 3a 69 6f 65 72 72 6f 70  it && $::ioerrop
b2f0: 74 73 28 2d 63 6b 73 75 6d 29 7d 20 7b 0a 20 20  ts(-cksum)} {.  
b300: 20 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73      do_test $tes
b310: 74 6e 61 6d 65 2e 24 6e 2e 36 20 7b 0a 20 20 20  tname.$n.6 {.   
b320: 20 20 20 20 20 63 61 74 63 68 20 7b 64 62 20 63       catch {db c
b330: 6c 6f 73 65 7d 0a 20 20 20 20 20 20 20 20 63 61  lose}.        ca
b340: 74 63 68 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a  tch {db2 close}.
b350: 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 44 42          set ::DB
b360: 20 5b 73 71 6c 69 74 65 33 20 64 62 20 74 65 73   [sqlite3 db tes
b370: 74 2e 64 62 3b 20 73 71 6c 69 74 65 33 5f 63 6f  t.db; sqlite3_co
b380: 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72  nnection_pointer
b390: 20 64 62 5d 0a 20 20 20 20 20 20 20 20 73 65 74   db].        set
b3a0: 20 6e 6f 77 63 6b 73 75 6d 20 5b 63 6b 73 75 6d   nowcksum [cksum
b3b0: 5d 0a 20 20 20 20 20 20 20 20 73 65 74 20 72 65  ].        set re
b3c0: 73 20 5b 65 78 70 72 20 7b 24 6e 6f 77 63 6b 73  s [expr {$nowcks
b3d0: 75 6d 3d 3d 24 3a 3a 63 68 65 63 6b 73 75 6d 20  um==$::checksum 
b3e0: 7c 7c 20 24 6e 6f 77 63 6b 73 75 6d 3d 3d 24 3a  || $nowcksum==$:
b3f0: 3a 67 6f 6f 64 63 6b 73 75 6d 7d 5d 0a 20 20 20  :goodcksum}].   
b400: 20 20 20 20 20 69 66 20 7b 24 72 65 73 3d 3d 30       if {$res==0
b410: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 70 75  } {.          pu
b420: 74 73 20 22 6e 6f 77 3d 24 6e 6f 77 63 6b 73 75  ts "now=$nowcksu
b430: 6d 22 0a 20 20 20 20 20 20 20 20 20 20 70 75 74  m".          put
b440: 73 20 22 74 68 65 3d 24 3a 3a 63 68 65 63 6b 73  s "the=$::checks
b450: 75 6d 22 0a 20 20 20 20 20 20 20 20 20 20 70 75  um".          pu
b460: 74 73 20 22 66 77 64 3d 24 3a 3a 67 6f 6f 64 63  ts "fwd=$::goodc
b470: 6b 73 75 6d 22 0a 20 20 20 20 20 20 20 20 7d 0a  ksum".        }.
b480: 20 20 20 20 20 20 20 20 73 65 74 20 72 65 73 0a          set res.
b490: 20 20 20 20 20 20 7d 20 31 0a 20 20 20 20 7d 0a        } 1.    }.
b4a0: 0a 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74  .    set ::sqlit
b4b0: 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72 64 68  e_io_error_hardh
b4c0: 69 74 20 30 0a 20 20 20 20 73 65 74 20 3a 3a 73  it 0.    set ::s
b4d0: 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70  qlite_io_error_p
b4e0: 65 6e 64 69 6e 67 20 30 0a 20 20 20 20 69 66 20  ending 0.    if 
b4f0: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
b500: 69 6f 65 72 72 6f 70 74 73 28 2d 63 6c 65 61 6e  ioerropts(-clean
b510: 75 70 29 5d 7d 20 7b 0a 20 20 20 20 20 20 63 61  up)]} {.      ca
b520: 74 63 68 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73  tch $::ioerropts
b530: 28 2d 63 6c 65 61 6e 75 70 29 0a 20 20 20 20 7d  (-cleanup).    }
b540: 0a 20 20 7d 0a 20 20 73 65 74 20 3a 3a 73 71 6c  .  }.  set ::sql
b550: 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e  ite_io_error_pen
b560: 64 69 6e 67 20 30 0a 20 20 73 65 74 20 3a 3a 73  ding 0.  set ::s
b570: 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70  qlite_io_error_p
b580: 65 72 73 69 73 74 20 30 0a 20 20 75 6e 73 65 74  ersist 0.  unset
b590: 20 3a 3a 69 6f 65 72 72 6f 70 74 73 0a 7d 0a 0a   ::ioerropts.}..
b5a0: 23 20 52 65 74 75 72 6e 20 61 20 63 68 65 63 6b  # Return a check
b5b0: 73 75 6d 20 62 61 73 65 64 20 6f 6e 20 74 68 65  sum based on the
b5c0: 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65   contents of the
b5d0: 20 6d 61 69 6e 20 64 61 74 61 62 61 73 65 20 61   main database a
b5e0: 73 73 6f 63 69 61 74 65 64 0a 23 20 77 69 74 68  ssociated.# with
b5f0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 24 64 62 0a   connection $db.
b600: 23 0a 70 72 6f 63 20 63 6b 73 75 6d 20 7b 7b 64  #.proc cksum {{d
b610: 62 20 64 62 7d 7d 20 7b 0a 20 20 73 65 74 20 74  b db}} {.  set t
b620: 78 74 20 5b 24 64 62 20 65 76 61 6c 20 7b 0a 20  xt [$db eval {. 
b630: 20 20 20 20 20 53 45 4c 45 43 54 20 6e 61 6d 65       SELECT name
b640: 2c 20 74 79 70 65 2c 20 73 71 6c 20 46 52 4f 4d  , type, sql FROM
b650: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 6f   sqlite_master o
b660: 72 64 65 72 20 62 79 20 6e 61 6d 65 0a 20 20 7d  rder by name.  }
b670: 5d 5c 6e 0a 20 20 66 6f 72 65 61 63 68 20 74 62  ]\n.  foreach tb
b680: 6c 20 5b 24 64 62 20 65 76 61 6c 20 7b 0a 20 20  l [$db eval {.  
b690: 20 20 20 20 53 45 4c 45 43 54 20 6e 61 6d 65 20      SELECT name 
b6a0: 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74  FROM sqlite_mast
b6b0: 65 72 20 57 48 45 52 45 20 74 79 70 65 3d 27 74  er WHERE type='t
b6c0: 61 62 6c 65 27 20 6f 72 64 65 72 20 62 79 20 6e  able' order by n
b6d0: 61 6d 65 0a 20 20 7d 5d 20 7b 0a 20 20 20 20 61  ame.  }] {.    a
b6e0: 70 70 65 6e 64 20 74 78 74 20 5b 24 64 62 20 65  ppend txt [$db e
b6f0: 76 61 6c 20 22 53 45 4c 45 43 54 20 2a 20 46 52  val "SELECT * FR
b700: 4f 4d 20 24 74 62 6c 22 5d 5c 6e 0a 20 20 7d 0a  OM $tbl"]\n.  }.
b710: 20 20 66 6f 72 65 61 63 68 20 70 72 61 67 20 7b    foreach prag {
b720: 64 65 66 61 75 6c 74 5f 73 79 6e 63 68 72 6f 6e  default_synchron
b730: 6f 75 73 20 64 65 66 61 75 6c 74 5f 63 61 63 68  ous default_cach
b740: 65 5f 73 69 7a 65 7d 20 7b 0a 20 20 20 20 61 70  e_size} {.    ap
b750: 70 65 6e 64 20 74 78 74 20 24 70 72 61 67 2d 5b  pend txt $prag-[
b760: 24 64 62 20 65 76 61 6c 20 22 50 52 41 47 4d 41  $db eval "PRAGMA
b770: 20 24 70 72 61 67 22 5d 5c 6e 0a 20 20 7d 0a 20   $prag"]\n.  }. 
b780: 20 73 65 74 20 63 6b 73 75 6d 20 5b 73 74 72 69   set cksum [stri
b790: 6e 67 20 6c 65 6e 67 74 68 20 24 74 78 74 5d 2d  ng length $txt]-
b7a0: 5b 6d 64 35 20 24 74 78 74 5d 0a 20 20 23 20 70  [md5 $txt].  # p
b7b0: 75 74 73 20 24 63 6b 73 75 6d 2d 5b 66 69 6c 65  uts $cksum-[file
b7c0: 20 73 69 7a 65 20 74 65 73 74 2e 64 62 5d 0a 20   size test.db]. 
b7d0: 20 72 65 74 75 72 6e 20 24 63 6b 73 75 6d 0a 7d   return $cksum.}
b7e0: 0a 0a 23 20 47 65 6e 65 72 61 74 65 20 61 20 63  ..# Generate a c
b7f0: 68 65 63 6b 73 75 6d 20 62 61 73 65 64 20 6f 6e  hecksum based on
b800: 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66   the contents of
b810: 20 74 68 65 20 6d 61 69 6e 20 61 6e 64 20 74 65   the main and te
b820: 6d 70 20 74 61 62 6c 65 73 0a 23 20 64 61 74 61  mp tables.# data
b830: 62 61 73 65 20 24 64 62 2e 20 49 66 20 74 68 65  base $db. If the
b840: 20 63 68 65 63 6b 73 75 6d 20 6f 66 20 74 77 6f   checksum of two
b850: 20 64 61 74 61 62 61 73 65 73 20 69 73 20 74 68   databases is th
b860: 65 20 73 61 6d 65 2c 20 61 6e 64 20 74 68 65 0a  e same, and the.
b870: 23 20 69 6e 74 65 67 72 69 74 79 2d 63 68 65 63  # integrity-chec
b880: 6b 20 70 61 73 73 65 73 20 66 6f 72 20 62 6f 74  k passes for bot
b890: 68 2c 20 74 68 65 20 74 77 6f 20 64 61 74 61 62  h, the two datab
b8a0: 61 73 65 73 20 61 72 65 20 69 64 65 6e 74 69 63  ases are identic
b8b0: 61 6c 2e 0a 23 0a 70 72 6f 63 20 61 6c 6c 63 6b  al..#.proc allck
b8c0: 73 75 6d 20 7b 7b 64 62 20 64 62 7d 7d 20 7b 0a  sum {{db db}} {.
b8d0: 20 20 73 65 74 20 72 65 74 20 5b 6c 69 73 74 5d    set ret [list]
b8e0: 0a 20 20 69 66 63 61 70 61 62 6c 65 20 74 65 6d  .  ifcapable tem
b8f0: 70 64 62 20 7b 0a 20 20 20 20 73 65 74 20 73 71  pdb {.    set sq
b900: 6c 20 7b 0a 20 20 20 20 20 20 53 45 4c 45 43 54  l {.      SELECT
b910: 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74   name FROM sqlit
b920: 65 5f 6d 61 73 74 65 72 20 57 48 45 52 45 20 74  e_master WHERE t
b930: 79 70 65 20 3d 20 27 74 61 62 6c 65 27 20 55 4e  ype = 'table' UN
b940: 49 4f 4e 0a 20 20 20 20 20 20 53 45 4c 45 43 54  ION.      SELECT
b950: 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74   name FROM sqlit
b960: 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 20 57 48  e_temp_master WH
b970: 45 52 45 20 74 79 70 65 20 3d 20 27 74 61 62 6c  ERE type = 'tabl
b980: 65 27 20 55 4e 49 4f 4e 0a 20 20 20 20 20 20 53  e' UNION.      S
b990: 45 4c 45 43 54 20 27 73 71 6c 69 74 65 5f 6d 61  ELECT 'sqlite_ma
b9a0: 73 74 65 72 27 20 55 4e 49 4f 4e 0a 20 20 20 20  ster' UNION.    
b9b0: 20 20 53 45 4c 45 43 54 20 27 73 71 6c 69 74 65    SELECT 'sqlite
b9c0: 5f 74 65 6d 70 5f 6d 61 73 74 65 72 27 20 4f 52  _temp_master' OR
b9d0: 44 45 52 20 42 59 20 31 0a 20 20 20 20 7d 0a 20  DER BY 1.    }. 
b9e0: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65   } else {.    se
b9f0: 74 20 73 71 6c 20 7b 0a 20 20 20 20 20 20 53 45  t sql {.      SE
ba00: 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73  LECT name FROM s
ba10: 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 57 48 45  qlite_master WHE
ba20: 52 45 20 74 79 70 65 20 3d 20 27 74 61 62 6c 65  RE type = 'table
ba30: 27 20 55 4e 49 4f 4e 0a 20 20 20 20 20 20 53 45  ' UNION.      SE
ba40: 4c 45 43 54 20 27 73 71 6c 69 74 65 5f 6d 61 73  LECT 'sqlite_mas
ba50: 74 65 72 27 20 4f 52 44 45 52 20 42 59 20 31 0a  ter' ORDER BY 1.
ba60: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 65 74 20      }.  }.  set 
ba70: 74 62 6c 6c 69 73 74 20 5b 24 64 62 20 65 76 61  tbllist [$db eva
ba80: 6c 20 24 73 71 6c 5d 0a 20 20 73 65 74 20 74 78  l $sql].  set tx
ba90: 74 20 7b 7d 0a 20 20 66 6f 72 65 61 63 68 20 74  t {}.  foreach t
baa0: 62 6c 20 24 74 62 6c 6c 69 73 74 20 7b 0a 20 20  bl $tbllist {.  
bab0: 20 20 61 70 70 65 6e 64 20 74 78 74 20 5b 24 64    append txt [$d
bac0: 62 20 65 76 61 6c 20 22 53 45 4c 45 43 54 20 2a  b eval "SELECT *
bad0: 20 46 52 4f 4d 20 24 74 62 6c 22 5d 0a 20 20 7d   FROM $tbl"].  }
bae0: 0a 20 20 66 6f 72 65 61 63 68 20 70 72 61 67 20  .  foreach prag 
baf0: 7b 64 65 66 61 75 6c 74 5f 63 61 63 68 65 5f 73  {default_cache_s
bb00: 69 7a 65 7d 20 7b 0a 20 20 20 20 61 70 70 65 6e  ize} {.    appen
bb10: 64 20 74 78 74 20 24 70 72 61 67 2d 5b 24 64 62  d txt $prag-[$db
bb20: 20 65 76 61 6c 20 22 50 52 41 47 4d 41 20 24 70   eval "PRAGMA $p
bb30: 72 61 67 22 5d 5c 6e 0a 20 20 7d 0a 20 20 23 20  rag"]\n.  }.  # 
bb40: 70 75 74 73 20 74 78 74 3d 24 74 78 74 0a 20 20  puts txt=$txt.  
bb50: 72 65 74 75 72 6e 20 5b 6d 64 35 20 24 74 78 74  return [md5 $txt
bb60: 5d 0a 7d 0a 0a 23 20 47 65 6e 65 72 61 74 65 20  ].}..# Generate 
bb70: 61 20 63 68 65 63 6b 73 75 6d 20 62 61 73 65 64  a checksum based
bb80: 20 6f 6e 20 74 68 65 20 63 6f 6e 74 65 6e 74 73   on the contents
bb90: 20 6f 66 20 61 20 73 69 6e 67 6c 65 20 64 61 74   of a single dat
bba0: 61 62 61 73 65 20 77 69 74 68 0a 23 20 61 20 64  abase with.# a d
bbb0: 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69  atabase connecti
bbc0: 6f 6e 2e 20 20 54 68 65 20 6e 61 6d 65 20 6f 66  on.  The name of
bbd0: 20 74 68 65 20 64 61 74 61 62 61 73 65 20 69 73   the database is
bbe0: 20 24 64 62 6e 61 6d 65 2e 0a 23 20 45 78 61 6d   $dbname..# Exam
bbf0: 70 6c 65 73 20 6f 66 20 24 64 62 6e 61 6d 65 20  ples of $dbname 
bc00: 61 72 65 20 22 74 65 6d 70 22 20 6f 72 20 22 6d  are "temp" or "m
bc10: 61 69 6e 22 2e 0a 23 0a 70 72 6f 63 20 64 62 63  ain"..#.proc dbc
bc20: 6b 73 75 6d 20 7b 64 62 20 64 62 6e 61 6d 65 7d  ksum {db dbname}
bc30: 20 7b 0a 20 20 69 66 20 7b 24 64 62 6e 61 6d 65   {.  if {$dbname
bc40: 3d 3d 22 74 65 6d 70 22 7d 20 7b 0a 20 20 20 20  =="temp"} {.    
bc50: 73 65 74 20 6d 61 73 74 65 72 20 73 71 6c 69 74  set master sqlit
bc60: 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 0a 20 20  e_temp_master.  
bc70: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65 74  } else {.    set
bc80: 20 6d 61 73 74 65 72 20 24 64 62 6e 61 6d 65 2e   master $dbname.
bc90: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 0a 20 20  sqlite_master.  
bca0: 7d 0a 20 20 73 65 74 20 61 6c 6c 74 61 62 20 5b  }.  set alltab [
bcb0: 24 64 62 20 65 76 61 6c 20 22 53 45 4c 45 43 54  $db eval "SELECT
bcc0: 20 6e 61 6d 65 20 46 52 4f 4d 20 24 6d 61 73 74   name FROM $mast
bcd0: 65 72 20 57 48 45 52 45 20 74 79 70 65 3d 27 74  er WHERE type='t
bce0: 61 62 6c 65 27 22 5d 0a 20 20 73 65 74 20 74 78  able'"].  set tx
bcf0: 74 20 5b 24 64 62 20 65 76 61 6c 20 22 53 45 4c  t [$db eval "SEL
bd00: 45 43 54 20 2a 20 46 52 4f 4d 20 24 6d 61 73 74  ECT * FROM $mast
bd10: 65 72 22 5d 5c 6e 0a 20 20 66 6f 72 65 61 63 68  er"]\n.  foreach
bd20: 20 74 61 62 20 24 61 6c 6c 74 61 62 20 7b 0a 20   tab $alltab {. 
bd30: 20 20 20 61 70 70 65 6e 64 20 74 78 74 20 5b 24     append txt [$
bd40: 64 62 20 65 76 61 6c 20 22 53 45 4c 45 43 54 20  db eval "SELECT 
bd50: 2a 20 46 52 4f 4d 20 24 64 62 6e 61 6d 65 2e 24  * FROM $dbname.$
bd60: 74 61 62 22 5d 5c 6e 0a 20 20 7d 0a 20 20 72 65  tab"]\n.  }.  re
bd70: 74 75 72 6e 20 5b 6d 64 35 20 24 74 78 74 5d 0a  turn [md5 $txt].
bd80: 7d 0a 0a 70 72 6f 63 20 6d 65 6d 64 65 62 75 67  }..proc memdebug
bd90: 5f 6c 6f 67 5f 73 71 6c 20 7b 7b 66 69 6c 65 6e  _log_sql {{filen
bda0: 61 6d 65 20 6d 61 6c 6c 6f 63 73 2e 73 71 6c 7d  ame mallocs.sql}
bdb0: 7d 20 7b 0a 0a 20 20 73 65 74 20 64 61 74 61 20  } {..  set data 
bdc0: 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75  [sqlite3_memdebu
bdd0: 67 5f 6c 6f 67 20 64 75 6d 70 5d 0a 20 20 73 65  g_log dump].  se
bde0: 74 20 6e 46 72 61 6d 65 20 5b 65 78 70 72 20 5b  t nFrame [expr [
bdf0: 6c 6c 65 6e 67 74 68 20 5b 6c 69 6e 64 65 78 20  llength [lindex 
be00: 24 64 61 74 61 20 30 5d 5d 2d 32 5d 0a 20 20 69  $data 0]]-2].  i
be10: 66 20 7b 24 6e 46 72 61 6d 65 20 3c 20 30 7d 20  f {$nFrame < 0} 
be20: 7b 20 72 65 74 75 72 6e 20 22 22 20 7d 0a 0a 20  { return "" }.. 
be30: 20 73 65 74 20 64 61 74 61 62 61 73 65 20 74 65   set database te
be40: 6d 70 0a 0a 20 20 73 65 74 20 74 62 6c 20 22 43  mp..  set tbl "C
be50: 52 45 41 54 45 20 54 41 42 4c 45 20 24 7b 64 61  REATE TABLE ${da
be60: 74 61 62 61 73 65 7d 2e 6d 61 6c 6c 6f 63 28 7a  tabase}.malloc(z
be70: 54 65 73 74 2c 20 6e 43 61 6c 6c 2c 20 6e 42 79  Test, nCall, nBy
be80: 74 65 2c 20 6c 53 74 61 63 6b 29 3b 22 0a 0a 20  te, lStack);".. 
be90: 20 73 65 74 20 73 71 6c 20 22 22 0a 20 20 66 6f   set sql "".  fo
bea0: 72 65 61 63 68 20 65 20 24 64 61 74 61 20 7b 0a  reach e $data {.
beb0: 20 20 20 20 73 65 74 20 6e 43 61 6c 6c 20 5b 6c      set nCall [l
bec0: 69 6e 64 65 78 20 24 65 20 30 5d 0a 20 20 20 20  index $e 0].    
bed0: 73 65 74 20 6e 42 79 74 65 20 5b 6c 69 6e 64 65  set nByte [linde
bee0: 78 20 24 65 20 31 5d 0a 20 20 20 20 73 65 74 20  x $e 1].    set 
bef0: 6c 53 74 61 63 6b 20 5b 6c 72 61 6e 67 65 20 24  lStack [lrange $
bf00: 65 20 32 20 65 6e 64 5d 0a 20 20 20 20 61 70 70  e 2 end].    app
bf10: 65 6e 64 20 73 71 6c 20 22 49 4e 53 45 52 54 20  end sql "INSERT 
bf20: 49 4e 54 4f 20 24 7b 64 61 74 61 62 61 73 65 7d  INTO ${database}
bf30: 2e 6d 61 6c 6c 6f 63 20 56 41 4c 55 45 53 22 0a  .malloc VALUES".
bf40: 20 20 20 20 61 70 70 65 6e 64 20 73 71 6c 20 22      append sql "
bf50: 28 27 74 65 73 74 27 2c 20 24 6e 43 61 6c 6c 2c  ('test', $nCall,
bf60: 20 24 6e 42 79 74 65 2c 20 27 24 6c 53 74 61 63   $nByte, '$lStac
bf70: 6b 27 29 3b 5c 6e 22 0a 20 20 20 20 66 6f 72 65  k');\n".    fore
bf80: 61 63 68 20 66 20 24 6c 53 74 61 63 6b 20 7b 0a  ach f $lStack {.
bf90: 20 20 20 20 20 20 73 65 74 20 66 72 61 6d 65 73        set frames
bfa0: 28 24 66 29 20 31 0a 20 20 20 20 7d 0a 20 20 7d  ($f) 1.    }.  }
bfb0: 0a 0a 20 20 73 65 74 20 74 62 6c 32 20 22 43 52  ..  set tbl2 "CR
bfc0: 45 41 54 45 20 54 41 42 4c 45 20 24 7b 64 61 74  EATE TABLE ${dat
bfd0: 61 62 61 73 65 7d 2e 66 72 61 6d 65 28 66 72 61  abase}.frame(fra
bfe0: 6d 65 20 49 4e 54 45 47 45 52 20 50 52 49 4d 41  me INTEGER PRIMA
bff0: 52 59 20 4b 45 59 2c 20 6c 69 6e 65 29 3b 5c 6e  RY KEY, line);\n
c000: 22 0a 20 20 73 65 74 20 74 62 6c 33 20 22 43 52  ".  set tbl3 "CR
c010: 45 41 54 45 20 54 41 42 4c 45 20 24 7b 64 61 74  EATE TABLE ${dat
c020: 61 62 61 73 65 7d 2e 66 69 6c 65 28 6e 61 6d 65  abase}.file(name
c030: 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 63 6f   PRIMARY KEY, co
c040: 6e 74 65 6e 74 29 3b 5c 6e 22 0a 0a 20 20 66 6f  ntent);\n"..  fo
c050: 72 65 61 63 68 20 66 20 5b 61 72 72 61 79 20 6e  reach f [array n
c060: 61 6d 65 73 20 66 72 61 6d 65 73 5d 20 7b 0a 20  ames frames] {. 
c070: 20 20 20 73 65 74 20 61 64 64 72 20 5b 66 6f 72     set addr [for
c080: 6d 61 74 20 25 78 20 24 66 5d 0a 20 20 20 20 73  mat %x $f].    s
c090: 65 74 20 63 6d 64 20 22 61 64 64 72 32 6c 69 6e  et cmd "addr2lin
c0a0: 65 20 2d 65 20 5b 69 6e 66 6f 20 6e 61 6d 65 6f  e -e [info nameo
c0b0: 66 65 78 65 63 5d 20 24 61 64 64 72 22 0a 20 20  fexec] $addr".  
c0c0: 20 20 73 65 74 20 6c 69 6e 65 20 5b 65 76 61 6c    set line [eval
c0d0: 20 65 78 65 63 20 24 63 6d 64 5d 0a 20 20 20 20   exec $cmd].    
c0e0: 61 70 70 65 6e 64 20 73 71 6c 20 22 49 4e 53 45  append sql "INSE
c0f0: 52 54 20 49 4e 54 4f 20 24 7b 64 61 74 61 62 61  RT INTO ${databa
c100: 73 65 7d 2e 66 72 61 6d 65 20 56 41 4c 55 45 53  se}.frame VALUES
c110: 28 24 66 2c 20 27 24 6c 69 6e 65 27 29 3b 5c 6e  ($f, '$line');\n
c120: 22 0a 0a 20 20 20 20 73 65 74 20 66 69 6c 65 20  "..    set file 
c130: 5b 6c 69 6e 64 65 78 20 5b 73 70 6c 69 74 20 24  [lindex [split $
c140: 6c 69 6e 65 20 3a 5d 20 30 5d 0a 20 20 20 20 73  line :] 0].    s
c150: 65 74 20 66 69 6c 65 73 28 24 66 69 6c 65 29 20  et files($file) 
c160: 31 0a 20 20 7d 0a 0a 20 20 66 6f 72 65 61 63 68  1.  }..  foreach
c170: 20 66 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20   f [array names 
c180: 66 69 6c 65 73 5d 20 7b 0a 20 20 20 20 73 65 74  files] {.    set
c190: 20 63 6f 6e 74 65 6e 74 73 20 22 22 0a 20 20 20   contents "".   
c1a0: 20 63 61 74 63 68 20 7b 0a 20 20 20 20 20 20 73   catch {.      s
c1b0: 65 74 20 66 64 20 5b 6f 70 65 6e 20 24 66 5d 0a  et fd [open $f].
c1c0: 20 20 20 20 20 20 73 65 74 20 63 6f 6e 74 65 6e        set conten
c1d0: 74 73 20 5b 72 65 61 64 20 24 66 64 5d 0a 20 20  ts [read $fd].  
c1e0: 20 20 20 20 63 6c 6f 73 65 20 24 66 64 0a 20 20      close $fd.  
c1f0: 20 20 7d 0a 20 20 20 20 73 65 74 20 63 6f 6e 74    }.    set cont
c200: 65 6e 74 73 20 5b 73 74 72 69 6e 67 20 6d 61 70  ents [string map
c210: 20 7b 27 20 27 27 7d 20 24 63 6f 6e 74 65 6e 74   {' ''} $content
c220: 73 5d 0a 20 20 20 20 61 70 70 65 6e 64 20 73 71  s].    append sq
c230: 6c 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 24  l "INSERT INTO $
c240: 7b 64 61 74 61 62 61 73 65 7d 2e 66 69 6c 65 20  {database}.file 
c250: 56 41 4c 55 45 53 28 27 24 66 27 2c 20 27 24 63  VALUES('$f', '$c
c260: 6f 6e 74 65 6e 74 73 27 29 3b 5c 6e 22 0a 20 20  ontents');\n".  
c270: 7d 0a 0a 20 20 73 65 74 20 66 64 20 5b 6f 70 65  }..  set fd [ope
c280: 6e 20 24 66 69 6c 65 6e 61 6d 65 20 77 5d 0a 20  n $filename w]. 
c290: 20 70 75 74 73 20 24 66 64 20 22 42 45 47 49 4e   puts $fd "BEGIN
c2a0: 3b 20 24 7b 74 62 6c 7d 24 7b 74 62 6c 32 7d 24  ; ${tbl}${tbl2}$
c2b0: 7b 74 62 6c 33 7d 24 7b 73 71 6c 7d 20 3b 20 43  {tbl3}${sql} ; C
c2c0: 4f 4d 4d 49 54 3b 22 0a 20 20 63 6c 6f 73 65 20  OMMIT;".  close 
c2d0: 24 66 64 0a 7d 0a 0a 23 20 44 72 6f 70 20 61 6c  $fd.}..# Drop al
c2e0: 6c 20 74 61 62 6c 65 73 20 69 6e 20 64 61 74 61  l tables in data
c2f0: 62 61 73 65 20 5b 64 62 5d 0a 70 72 6f 63 20 64  base [db].proc d
c300: 72 6f 70 5f 61 6c 6c 5f 74 61 62 6c 65 73 20 7b  rop_all_tables {
c310: 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 69 66 63  {db db}} {.  ifc
c320: 61 70 61 62 6c 65 20 74 72 69 67 67 65 72 26 26  apable trigger&&
c330: 66 6f 72 65 69 67 6e 6b 65 79 20 7b 0a 20 20 20  foreignkey {.   
c340: 20 73 65 74 20 70 6b 20 5b 24 64 62 20 6f 6e 65   set pk [$db one
c350: 20 22 50 52 41 47 4d 41 20 66 6f 72 65 69 67 6e   "PRAGMA foreign
c360: 5f 6b 65 79 73 22 5d 0a 20 20 20 20 24 64 62 20  _keys"].    $db 
c370: 65 76 61 6c 20 22 50 52 41 47 4d 41 20 66 6f 72  eval "PRAGMA for
c380: 65 69 67 6e 5f 6b 65 79 73 20 3d 20 4f 46 46 22  eign_keys = OFF"
c390: 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 7b  .  }.  foreach {
c3a0: 69 64 78 20 6e 61 6d 65 20 66 69 6c 65 7d 20 5b  idx name file} [
c3b0: 64 62 20 65 76 61 6c 20 7b 50 52 41 47 4d 41 20  db eval {PRAGMA 
c3c0: 64 61 74 61 62 61 73 65 5f 6c 69 73 74 7d 5d 20  database_list}] 
c3d0: 7b 0a 20 20 20 20 69 66 20 7b 24 69 64 78 3d 3d  {.    if {$idx==
c3e0: 31 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 6d  1} {.      set m
c3f0: 61 73 74 65 72 20 73 71 6c 69 74 65 5f 74 65 6d  aster sqlite_tem
c400: 70 5f 6d 61 73 74 65 72 0a 20 20 20 20 7d 20 65  p_master.    } e
c410: 6c 73 65 20 7b 0a 20 20 20 20 20 20 73 65 74 20  lse {.      set 
c420: 6d 61 73 74 65 72 20 24 6e 61 6d 65 2e 73 71 6c  master $name.sql
c430: 69 74 65 5f 6d 61 73 74 65 72 0a 20 20 20 20 7d  ite_master.    }
c440: 0a 20 20 20 20 66 6f 72 65 61 63 68 20 7b 74 20  .    foreach {t 
c450: 74 79 70 65 7d 20 5b 24 64 62 20 65 76 61 6c 20  type} [$db eval 
c460: 22 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 6e  ".      SELECT n
c470: 61 6d 65 2c 20 74 79 70 65 20 46 52 4f 4d 20 24  ame, type FROM $
c480: 6d 61 73 74 65 72 0a 20 20 20 20 20 20 57 48 45  master.      WHE
c490: 52 45 20 74 79 70 65 20 49 4e 28 27 74 61 62 6c  RE type IN('tabl
c4a0: 65 27 2c 20 27 76 69 65 77 27 29 20 41 4e 44 20  e', 'view') AND 
c4b0: 6e 61 6d 65 20 4e 4f 54 20 4c 49 4b 45 20 27 73  name NOT LIKE 's
c4c0: 71 6c 69 74 65 58 5f 25 27 20 45 53 43 41 50 45  qliteX_%' ESCAPE
c4d0: 20 27 58 27 0a 20 20 20 20 22 5d 20 7b 0a 20 20   'X'.    "] {.  
c4e0: 20 20 20 20 24 64 62 20 65 76 61 6c 20 22 44 52      $db eval "DR
c4f0: 4f 50 20 24 74 79 70 65 20 5c 22 24 74 5c 22 22  OP $type \"$t\""
c500: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 63  .    }.  }.  ifc
c510: 61 70 61 62 6c 65 20 74 72 69 67 67 65 72 26 26  apable trigger&&
c520: 66 6f 72 65 69 67 6e 6b 65 79 20 7b 0a 20 20 20  foreignkey {.   
c530: 20 24 64 62 20 65 76 61 6c 20 22 50 52 41 47 4d   $db eval "PRAGM
c540: 41 20 66 6f 72 65 69 67 6e 5f 6b 65 79 73 20 3d  A foreign_keys =
c550: 20 24 70 6b 22 0a 20 20 7d 0a 7d 0a 0a 23 2d 2d   $pk".  }.}..#--
c560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c5a0: 2d 2d 2d 2d 2d 2d 2d 0a 23 20 49 66 20 61 20 74  -------.# If a t
c5b0: 65 73 74 20 73 63 72 69 70 74 20 69 73 20 65 78  est script is ex
c5c0: 65 63 75 74 65 64 20 77 69 74 68 20 67 6c 6f 62  ecuted with glob
c5d0: 61 6c 20 76 61 72 69 61 62 6c 65 20 24 3a 3a 47  al variable $::G
c5e0: 28 70 65 72 6d 3a 6e 61 6d 65 29 20 73 65 74 20  (perm:name) set 
c5f0: 74 6f 0a 23 20 22 77 61 6c 22 2c 20 74 68 65 6e  to.# "wal", then
c600: 20 74 68 65 20 74 65 73 74 73 20 61 72 65 20 72   the tests are r
c610: 75 6e 20 69 6e 20 57 41 4c 20 6d 6f 64 65 2e 20  un in WAL mode. 
c620: 4f 74 68 65 72 77 69 73 65 2c 20 74 68 65 79 20  Otherwise, they 
c630: 73 68 6f 75 6c 64 20 62 65 20 72 75 6e 0a 23 20  should be run.# 
c640: 69 6e 20 72 6f 6c 6c 62 61 63 6b 20 6d 6f 64 65  in rollback mode
c650: 2e 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20  . The following 
c660: 54 63 6c 20 70 72 6f 63 73 20 61 72 65 20 75 73  Tcl procs are us
c670: 65 64 20 74 6f 20 6d 61 6b 65 20 74 68 69 73 20  ed to make this 
c680: 6c 65 73 73 0a 23 20 69 6e 74 72 75 73 69 76 65  less.# intrusive
c690: 3a 0a 23 0a 23 20 20 20 77 61 6c 5f 73 65 74 5f  :.#.#   wal_set_
c6a0: 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3f 44 42  journal_mode ?DB
c6b0: 3f 0a 23 0a 23 20 20 20 20 20 49 66 20 72 75 6e  ?.#.#     If run
c6c0: 6e 69 6e 67 20 61 20 57 41 4c 20 74 65 73 74 2c  ning a WAL test,
c6d0: 20 65 78 65 63 75 74 65 20 22 50 52 41 47 4d 41   execute "PRAGMA
c6e0: 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20   journal_mode = 
c6f0: 77 61 6c 22 20 75 73 69 6e 67 0a 23 20 20 20 20  wal" using.#    
c700: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 6e 64   connection hand
c710: 6c 65 20 44 42 2e 20 4f 74 68 65 72 77 69 73 65  le DB. Otherwise
c720: 2c 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69  , this command i
c730: 73 20 61 20 6e 6f 2d 6f 70 2e 0a 23 0a 23 20 20  s a no-op..#.#  
c740: 20 77 61 6c 5f 63 68 65 63 6b 5f 6a 6f 75 72 6e   wal_check_journ
c750: 61 6c 5f 6d 6f 64 65 20 54 45 53 54 4e 41 4d 45  al_mode TESTNAME
c760: 20 3f 44 42 3f 0a 23 0a 23 20 20 20 20 20 49 66   ?DB?.#.#     If
c770: 20 72 75 6e 6e 69 6e 67 20 61 20 57 41 4c 20 74   running a WAL t
c780: 65 73 74 2c 20 65 78 65 63 75 74 65 20 61 20 74  est, execute a t
c790: 65 73 74 73 20 63 61 73 65 20 74 68 61 74 20 66  ests case that f
c7a0: 61 69 6c 73 20 69 66 20 74 68 65 20 6d 61 69 6e  ails if the main
c7b0: 0a 23 20 20 20 20 20 64 61 74 61 62 61 73 65 20  .#     database 
c7c0: 66 6f 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68  for connection h
c7d0: 61 6e 64 6c 65 20 44 42 20 69 73 20 6e 6f 74 20  andle DB is not 
c7e0: 63 75 72 72 65 6e 74 6c 79 20 61 20 57 41 4c 20  currently a WAL 
c7f0: 64 61 74 61 62 61 73 65 2e 0a 23 20 20 20 20 20  database..#     
c800: 4f 74 68 65 72 77 69 73 65 20 28 69 66 20 6e 6f  Otherwise (if no
c810: 74 20 72 75 6e 6e 69 6e 67 20 61 20 57 41 4c 20  t running a WAL 
c820: 70 65 72 6d 75 74 61 74 69 6f 6e 29 20 74 68 69  permutation) thi
c830: 73 20 69 73 20 61 20 6e 6f 2d 6f 70 2e 0a 23 0a  s is a no-op..#.
c840: 23 20 20 20 77 61 6c 5f 69 73 5f 77 61 6c 5f 6d  #   wal_is_wal_m
c850: 6f 64 65 0a 23 0a 23 20 20 20 20 20 52 65 74 75  ode.#.#     Retu
c860: 72 6e 73 20 74 72 75 65 20 69 66 20 74 68 69 73  rns true if this
c870: 20 74 65 73 74 20 73 68 6f 75 6c 64 20 62 65 20   test should be 
c880: 72 75 6e 20 69 6e 20 57 41 4c 20 6d 6f 64 65 2e  run in WAL mode.
c890: 20 46 61 6c 73 65 20 6f 74 68 65 72 77 69 73 65   False otherwise
c8a0: 2e 0a 23 0a 70 72 6f 63 20 77 61 6c 5f 69 73 5f  ..#.proc wal_is_
c8b0: 77 61 6c 5f 6d 6f 64 65 20 7b 7d 20 7b 0a 20 20  wal_mode {} {.  
c8c0: 65 78 70 72 20 7b 5b 70 65 72 6d 75 74 61 74 69  expr {[permutati
c8d0: 6f 6e 5d 20 65 71 20 22 77 61 6c 22 7d 0a 7d 0a  on] eq "wal"}.}.
c8e0: 70 72 6f 63 20 77 61 6c 5f 73 65 74 5f 6a 6f 75  proc wal_set_jou
c8f0: 72 6e 61 6c 5f 6d 6f 64 65 20 7b 7b 64 62 20 64  rnal_mode {{db d
c900: 62 7d 7d 20 7b 0a 20 20 69 66 20 7b 20 5b 77 61  b}} {.  if { [wa
c910: 6c 5f 69 73 5f 77 61 6c 5f 6d 6f 64 65 5d 20 7d  l_is_wal_mode] }
c920: 20 7b 0a 20 20 20 20 24 64 62 20 65 76 61 6c 20   {.    $db eval 
c930: 22 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f  "PRAGMA journal_
c940: 6d 6f 64 65 20 3d 20 57 41 4c 22 0a 20 20 7d 0a  mode = WAL".  }.
c950: 7d 0a 70 72 6f 63 20 77 61 6c 5f 63 68 65 63 6b  }.proc wal_check
c960: 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 7b 74  _journal_mode {t
c970: 65 73 74 6e 61 6d 65 20 7b 64 62 20 64 62 7d 7d  estname {db db}}
c980: 20 7b 0a 20 20 69 66 20 7b 20 5b 77 61 6c 5f 69   {.  if { [wal_i
c990: 73 5f 77 61 6c 5f 6d 6f 64 65 5d 20 7d 20 7b 0a  s_wal_mode] } {.
c9a0: 20 20 20 20 24 64 62 20 65 76 61 6c 20 7b 20 53      $db eval { S
c9b0: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73 71 6c  ELECT * FROM sql
c9c0: 69 74 65 5f 6d 61 73 74 65 72 20 7d 0a 20 20 20  ite_master }.   
c9d0: 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74 6e 61   do_test $testna
c9e0: 6d 65 20 5b 6c 69 73 74 20 24 64 62 20 65 76 61  me [list $db eva
c9f0: 6c 20 22 50 52 41 47 4d 41 20 6d 61 69 6e 2e 6a  l "PRAGMA main.j
ca00: 6f 75 72 6e 61 6c 5f 6d 6f 64 65 22 5d 20 7b 77  ournal_mode"] {w
ca10: 61 6c 7d 0a 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20  al}.  }.}..proc 
ca20: 70 65 72 6d 75 74 61 74 69 6f 6e 20 7b 7d 20 7b  permutation {} {
ca30: 0a 20 20 73 65 74 20 70 65 72 6d 20 22 22 0a 20  .  set perm "". 
ca40: 20 63 61 74 63 68 20 7b 73 65 74 20 70 65 72 6d   catch {set perm
ca50: 20 24 3a 3a 47 28 70 65 72 6d 3a 6e 61 6d 65 29   $::G(perm:name)
ca60: 7d 0a 20 20 73 65 74 20 70 65 72 6d 0a 7d 0a 70  }.  set perm.}.p
ca70: 72 6f 63 20 70 72 65 73 71 6c 20 7b 7d 20 7b 0a  roc presql {} {.
ca80: 20 20 73 65 74 20 70 72 65 73 71 6c 20 22 22 0a    set presql "".
ca90: 20 20 63 61 74 63 68 20 7b 73 65 74 20 70 72 65    catch {set pre
caa0: 73 71 6c 20 24 3a 3a 47 28 70 65 72 6d 3a 70 72  sql $::G(perm:pr
cab0: 65 73 71 6c 29 7d 0a 20 20 73 65 74 20 70 72 65  esql)}.  set pre
cac0: 73 71 6c 0a 7d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d  sql.}..#--------
cad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
caf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cb00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cb10: 2d 0a 23 0a 70 72 6f 63 20 73 6c 61 76 65 5f 74  -.#.proc slave_t
cb20: 65 73 74 5f 73 63 72 69 70 74 20 7b 73 63 72 69  est_script {scri
cb30: 70 74 7d 20 7b 0a 0a 20 20 23 20 43 72 65 61 74  pt} {..  # Creat
cb40: 65 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65  e the interprete
cb50: 72 20 75 73 65 64 20 74 6f 20 72 75 6e 20 74 68  r used to run th
cb60: 65 20 74 65 73 74 20 73 63 72 69 70 74 2e 0a 20  e test script.. 
cb70: 20 69 6e 74 65 72 70 20 63 72 65 61 74 65 20 74   interp create t
cb80: 69 6e 74 65 72 70 0a 0a 20 20 23 20 50 6f 70 75  interp..  # Popu
cb90: 6c 61 74 65 20 73 6f 6d 65 20 67 6c 6f 62 61 6c  late some global
cba0: 20 76 61 72 69 61 62 6c 65 73 20 74 68 61 74 20   variables that 
cbb0: 74 65 73 74 65 72 2e 74 63 6c 20 65 78 70 65 63  tester.tcl expec
cbc0: 74 73 20 74 6f 20 73 65 65 2e 0a 20 20 66 6f 72  ts to see..  for
cbd0: 65 61 63 68 20 7b 76 61 72 20 76 61 6c 75 65 7d  each {var value}
cbe0: 20 5b 6c 69 73 74 20 20 20 20 20 20 20 20 20 20   [list          
cbf0: 20 20 20 20 5c 0a 20 20 20 20 3a 3a 61 72 67 76      \.    ::argv
cc00: 30 20 24 3a 3a 61 72 67 76 30 20 20 20 20 20 20  0 $::argv0      
cc10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c                 \
cc20: 0a 20 20 20 20 3a 3a 61 72 67 76 20 20 7b 7d 20  .    ::argv  {} 
cc30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
cc40: 20 20 20 20 20 20 20 20 20 20 5c 0a 20 20 20 20            \.    
cc50: 3a 3a 53 4c 41 56 45 20 31 20 20 20 20 20 20 20  ::SLAVE 1       
cc60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
cc70: 20 20 20 20 20 5c 0a 20 20 5d 20 7b 0a 20 20 20       \.  ] {.   
cc80: 20 69 6e 74 65 72 70 20 65 76 61 6c 20 74 69 6e   interp eval tin
cc90: 74 65 72 70 20 5b 6c 69 73 74 20 73 65 74 20 24  terp [list set $
cca0: 76 61 72 20 24 76 61 6c 75 65 5d 0a 20 20 7d 0a  var $value].  }.
ccb0: 0a 20 20 23 20 54 68 65 20 61 6c 69 61 73 20 75  .  # The alias u
ccc0: 73 65 64 20 74 6f 20 61 63 63 65 73 73 20 74 68  sed to access th
ccd0: 65 20 67 6c 6f 62 61 6c 20 74 65 73 74 20 63 6f  e global test co
cce0: 75 6e 74 65 72 73 2e 0a 20 20 74 69 6e 74 65 72  unters..  tinter
ccf0: 70 20 61 6c 69 61 73 20 73 65 74 5f 74 65 73 74  p alias set_test
cd00: 5f 63 6f 75 6e 74 65 72 20 73 65 74 5f 74 65 73  _counter set_tes
cd10: 74 5f 63 6f 75 6e 74 65 72 0a 0a 20 20 23 20 53  t_counter..  # S
cd20: 65 74 20 75 70 20 74 68 65 20 3a 3a 63 6d 64 6c  et up the ::cmdl
cd30: 69 6e 65 61 72 67 20 61 72 72 61 79 20 69 6e 20  inearg array in 
cd40: 74 68 65 20 73 6c 61 76 65 2e 0a 20 20 69 6e 74  the slave..  int
cd50: 65 72 70 20 65 76 61 6c 20 74 69 6e 74 65 72 70  erp eval tinterp
cd60: 20 5b 6c 69 73 74 20 61 72 72 61 79 20 73 65 74   [list array set
cd70: 20 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 20 5b 61   ::cmdlinearg [a
cd80: 72 72 61 79 20 67 65 74 20 3a 3a 63 6d 64 6c 69  rray get ::cmdli
cd90: 6e 65 61 72 67 5d 5d 0a 0a 20 20 23 20 53 65 74  nearg]]..  # Set
cda0: 20 75 70 20 74 68 65 20 3a 3a 47 20 61 72 72 61   up the ::G arra
cdb0: 79 20 69 6e 20 74 68 65 20 73 6c 61 76 65 2e 0a  y in the slave..
cdc0: 20 20 69 6e 74 65 72 70 20 65 76 61 6c 20 74 69    interp eval ti
cdd0: 6e 74 65 72 70 20 5b 6c 69 73 74 20 61 72 72 61  nterp [list arra
cde0: 79 20 73 65 74 20 3a 3a 47 20 5b 61 72 72 61 79  y set ::G [array
cdf0: 20 67 65 74 20 3a 3a 47 5d 5d 0a 0a 20 20 23 20   get ::G]]..  # 
ce00: 4c 6f 61 64 20 74 68 65 20 76 61 72 69 6f 75 73  Load the various
ce10: 20 74 65 73 74 20 69 6e 74 65 72 66 61 63 65 73   test interfaces
ce20: 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 69 6e 20   implemented in 
ce30: 43 2e 0a 20 20 6c 6f 61 64 5f 74 65 73 74 66 69  C..  load_testfi
ce40: 78 74 75 72 65 5f 65 78 74 65 6e 73 69 6f 6e 73  xture_extensions
ce50: 20 74 69 6e 74 65 72 70 0a 0a 20 20 23 20 52 75   tinterp..  # Ru
ce60: 6e 20 74 68 65 20 74 65 73 74 20 73 63 72 69 70  n the test scrip
ce70: 74 2e 0a 20 20 69 6e 74 65 72 70 20 65 76 61 6c  t..  interp eval
ce80: 20 74 69 6e 74 65 72 70 20 24 73 63 72 69 70 74   tinterp $script
ce90: 0a 0a 20 20 23 20 43 68 65 63 6b 20 69 66 20 74  ..  # Check if t
cea0: 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 20 63  he interpreter c
ceb0: 61 6c 6c 20 5b 72 75 6e 5f 74 68 72 65 61 64 5f  all [run_thread_
cec0: 74 65 73 74 73 5d 0a 20 20 69 66 20 7b 20 5b 69  tests].  if { [i
ced0: 6e 74 65 72 70 20 65 76 61 6c 20 74 69 6e 74 65  nterp eval tinte
cee0: 72 70 20 7b 69 6e 66 6f 20 65 78 69 73 74 73 20  rp {info exists 
cef0: 3a 3a 72 75 6e 5f 74 68 72 65 61 64 5f 74 65 73  ::run_thread_tes
cf00: 74 73 5f 63 61 6c 6c 65 64 7d 5d 20 7d 20 7b 0a  ts_called}] } {.
cf10: 20 20 20 20 73 65 74 20 3a 3a 72 75 6e 5f 74 68      set ::run_th
cf20: 72 65 61 64 5f 74 65 73 74 73 5f 63 61 6c 6c 65  read_tests_calle
cf30: 64 20 31 0a 20 20 7d 0a 0a 20 20 23 20 44 65 6c  d 1.  }..  # Del
cf40: 65 74 65 20 74 68 65 20 69 6e 74 65 72 70 72 65  ete the interpre
cf50: 74 65 72 20 75 73 65 64 20 74 6f 20 72 75 6e 20  ter used to run 
cf60: 74 68 65 20 74 65 73 74 20 73 63 72 69 70 74 2e  the test script.
cf70: 0a 20 20 69 6e 74 65 72 70 20 64 65 6c 65 74 65  .  interp delete
cf80: 20 74 69 6e 74 65 72 70 0a 7d 0a 0a 70 72 6f 63   tinterp.}..proc
cf90: 20 73 6c 61 76 65 5f 74 65 73 74 5f 66 69 6c 65   slave_test_file
cfa0: 20 7b 7a 46 69 6c 65 7d 20 7b 0a 20 20 73 65 74   {zFile} {.  set
cfb0: 20 74 61 69 6c 20 5b 66 69 6c 65 20 74 61 69 6c   tail [file tail
cfc0: 20 24 7a 46 69 6c 65 5d 0a 0a 20 20 69 66 20 7b   $zFile]..  if {
cfd0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 47  [info exists ::G
cfe0: 28 73 74 61 72 74 3a 70 65 72 6d 75 74 61 74 69  (start:permutati
cff0: 6f 6e 29 5d 7d 20 7b 0a 20 20 20 20 69 66 20 7b  on)]} {.    if {
d000: 5b 70 65 72 6d 75 74 61 74 69 6f 6e 5d 20 21 3d  [permutation] !=
d010: 20 24 3a 3a 47 28 73 74 61 72 74 3a 70 65 72 6d   $::G(start:perm
d020: 75 74 61 74 69 6f 6e 29 7d 20 72 65 74 75 72 6e  utation)} return
d030: 0a 20 20 20 20 75 6e 73 65 74 20 3a 3a 47 28 73  .    unset ::G(s
d040: 74 61 72 74 3a 70 65 72 6d 75 74 61 74 69 6f 6e  tart:permutation
d050: 29 0a 20 20 7d 0a 20 20 69 66 20 7b 5b 69 6e 66  ).  }.  if {[inf
d060: 6f 20 65 78 69 73 74 73 20 3a 3a 47 28 73 74 61  o exists ::G(sta
d070: 72 74 3a 66 69 6c 65 29 5d 7d 20 7b 0a 20 20 20  rt:file)]} {.   
d080: 20 69 66 20 7b 24 74 61 69 6c 20 21 3d 20 24 3a   if {$tail != $:
d090: 3a 47 28 73 74 61 72 74 3a 66 69 6c 65 29 20 26  :G(start:file) &
d0a0: 26 20 24 74 61 69 6c 21 3d 22 24 3a 3a 47 28 73  & $tail!="$::G(s
d0b0: 74 61 72 74 3a 66 69 6c 65 29 2e 74 65 73 74 22  tart:file).test"
d0c0: 7d 20 72 65 74 75 72 6e 0a 20 20 20 20 75 6e 73  } return.    uns
d0d0: 65 74 20 3a 3a 47 28 73 74 61 72 74 3a 66 69 6c  et ::G(start:fil
d0e0: 65 29 0a 20 20 7d 0a 0a 20 20 23 20 52 65 6d 65  e).  }..  # Reme
d0f0: 6d 62 65 72 20 74 68 65 20 76 61 6c 75 65 20 6f  mber the value o
d100: 66 20 74 68 65 20 73 68 61 72 65 64 2d 63 61 63  f the shared-cac
d110: 68 65 20 73 65 74 74 69 6e 67 2e 20 53 6f 20 74  he setting. So t
d120: 68 61 74 20 69 74 20 69 73 20 70 6f 73 73 69 62  hat it is possib
d130: 6c 65 0a 20 20 23 20 74 6f 20 63 68 65 63 6b 20  le.  # to check 
d140: 61 66 74 65 72 77 61 72 64 73 20 74 68 61 74 20  afterwards that 
d150: 69 74 20 77 61 73 20 6e 6f 74 20 6d 6f 64 69 66  it was not modif
d160: 69 65 64 20 62 79 20 74 68 65 20 74 65 73 74 20  ied by the test 
d170: 73 63 72 69 70 74 2e 0a 20 20 23 0a 20 20 69 66  script..  #.  if
d180: 63 61 70 61 62 6c 65 20 73 68 61 72 65 64 5f 63  capable shared_c
d190: 61 63 68 65 20 7b 20 73 65 74 20 73 63 73 20 5b  ache { set scs [
d1a0: 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 73  sqlite3_enable_s
d1b0: 68 61 72 65 64 5f 63 61 63 68 65 5d 20 7d 0a 0a  hared_cache] }..
d1c0: 20 20 23 20 52 75 6e 20 74 68 65 20 74 65 73 74    # Run the test
d1d0: 20 73 63 72 69 70 74 20 69 6e 20 61 20 73 6c 61   script in a sla
d1e0: 76 65 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a  ve interpreter..
d1f0: 20 20 23 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63    #.  unset -noc
d200: 6f 6d 70 6c 61 69 6e 20 3a 3a 72 75 6e 5f 74 68  omplain ::run_th
d210: 72 65 61 64 5f 74 65 73 74 73 5f 63 61 6c 6c 65  read_tests_calle
d220: 64 0a 20 20 72 65 73 65 74 5f 70 72 6e 67 5f 73  d.  reset_prng_s
d230: 74 61 74 65 0a 20 20 73 65 74 20 3a 3a 73 71 6c  tate.  set ::sql
d240: 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f  ite_open_file_co
d250: 75 6e 74 20 30 0a 20 20 73 65 74 20 74 69 6d 65  unt 0.  set time
d260: 20 5b 74 69 6d 65 20 7b 20 73 6c 61 76 65 5f 74   [time { slave_t
d270: 65 73 74 5f 73 63 72 69 70 74 20 5b 6c 69 73 74  est_script [list
d280: 20 73 6f 75 72 63 65 20 24 7a 46 69 6c 65 5d 20   source $zFile] 
d290: 7d 5d 0a 20 20 73 65 74 20 6d 73 20 5b 65 78 70  }].  set ms [exp
d2a0: 72 20 5b 6c 69 6e 64 65 78 20 24 74 69 6d 65 20  r [lindex $time 
d2b0: 30 5d 20 2f 20 31 30 30 30 5d 0a 0a 20 20 23 20  0] / 1000]..  # 
d2c0: 54 65 73 74 20 74 68 61 74 20 61 6c 6c 20 66 69  Test that all fi
d2d0: 6c 65 73 20 6f 70 65 6e 65 64 20 62 79 20 74 68  les opened by th
d2e0: 65 20 74 65 73 74 20 73 63 72 69 70 74 20 77 65  e test script we
d2f0: 72 65 20 63 6c 6f 73 65 64 2e 20 4f 6d 69 74 20  re closed. Omit 
d300: 74 68 69 73 0a 20 20 23 20 69 66 20 74 68 65 20  this.  # if the 
d310: 74 65 73 74 20 73 63 72 69 70 74 20 68 61 73 20  test script has 
d320: 22 74 68 72 65 61 64 22 20 69 6e 20 69 74 73 20  "thread" in its 
d330: 6e 61 6d 65 2e 20 54 68 65 20 6f 70 65 6e 20 66  name. The open f
d340: 69 6c 65 20 63 6f 75 6e 74 65 72 0a 20 20 23 20  ile counter.  # 
d350: 69 73 20 6e 6f 74 20 74 68 72 65 61 64 2d 73 61  is not thread-sa
d360: 66 65 2e 0a 20 20 23 0a 20 20 69 66 20 7b 5b 69  fe..  #.  if {[i
d370: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 72 75 6e  nfo exists ::run
d380: 5f 74 68 72 65 61 64 5f 74 65 73 74 73 5f 63 61  _thread_tests_ca
d390: 6c 6c 65 64 5d 3d 3d 30 7d 20 7b 0a 20 20 20 20  lled]==0} {.    
d3a0: 64 6f 5f 74 65 73 74 20 24 7b 74 61 69 6c 7d 2d  do_test ${tail}-
d3b0: 63 6c 6f 73 65 61 6c 6c 66 69 6c 65 73 20 7b 20  closeallfiles { 
d3c0: 65 78 70 72 20 7b 24 3a 3a 73 71 6c 69 74 65 5f  expr {$::sqlite_
d3d0: 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 3e  open_file_count>
d3e0: 30 7d 20 7d 20 7b 30 7d 0a 20 20 7d 0a 20 20 73  0} } {0}.  }.  s
d3f0: 65 74 20 3a 3a 73 71 6c 69 74 65 5f 6f 70 65 6e  et ::sqlite_open
d400: 5f 66 69 6c 65 5f 63 6f 75 6e 74 20 30 0a 0a 20  _file_count 0.. 
d410: 20 23 20 54 65 73 74 20 74 68 61 74 20 74 68 65   # Test that the
d420: 20 67 6c 6f 62 61 6c 20 22 73 68 61 72 65 64 2d   global "shared-
d430: 63 61 63 68 65 22 20 73 65 74 74 69 6e 67 20 77  cache" setting w
d440: 61 73 20 6e 6f 74 20 61 6c 74 65 72 65 64 20 62  as not altered b
d450: 79 0a 20 20 23 20 74 68 65 20 74 65 73 74 20 73  y.  # the test s
d460: 63 72 69 70 74 2e 0a 20 20 23 0a 20 20 69 66 63  cript..  #.  ifc
d470: 61 70 61 62 6c 65 20 73 68 61 72 65 64 5f 63 61  apable shared_ca
d480: 63 68 65 20 7b 0a 20 20 20 20 73 65 74 20 72 65  che {.    set re
d490: 73 20 5b 65 78 70 72 20 7b 5b 73 71 6c 69 74 65  s [expr {[sqlite
d4a0: 33 5f 65 6e 61 62 6c 65 5f 73 68 61 72 65 64 5f  3_enable_shared_
d4b0: 63 61 63 68 65 5d 20 3d 3d 20 24 73 63 73 7d 5d  cache] == $scs}]
d4c0: 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 24 7b 74  .    do_test ${t
d4d0: 61 69 6c 7d 2d 73 68 61 72 65 64 63 61 63 68 65  ail}-sharedcache
d4e0: 73 65 74 74 69 6e 67 20 5b 6c 69 73 74 20 73 65  setting [list se
d4f0: 74 20 7b 7d 20 24 72 65 73 5d 20 31 0a 20 20 7d  t {} $res] 1.  }
d500: 0a 0a 20 20 23 20 41 64 64 20 73 6f 6d 65 20 69  ..  # Add some i
d510: 6e 66 6f 20 74 6f 20 74 68 65 20 6f 75 74 70 75  nfo to the outpu
d520: 74 2e 0a 20 20 23 0a 20 20 70 75 74 73 20 22 54  t..  #.  puts "T
d530: 69 6d 65 3a 20 24 74 61 69 6c 20 24 6d 73 20 6d  ime: $tail $ms m
d540: 73 22 0a 20 20 73 68 6f 77 5f 6d 65 6d 73 74 61  s".  show_memsta
d550: 74 73 0a 7d 0a 0a 23 20 4f 70 65 6e 20 61 20 6e  ts.}..# Open a n
d560: 65 77 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6f 6e  ew connection on
d570: 20 64 61 74 61 62 61 73 65 20 74 65 73 74 2e 64   database test.d
d580: 62 20 61 6e 64 20 65 78 65 63 75 74 65 20 74 68  b and execute th
d590: 65 20 53 51 4c 20 73 63 72 69 70 74 0a 23 20 73  e SQL script.# s
d5a0: 75 70 70 6c 69 65 64 20 61 73 20 61 6e 20 61 72  upplied as an ar
d5b0: 67 75 6d 65 6e 74 2e 20 42 65 66 6f 72 65 20 72  gument. Before r
d5c0: 65 74 75 72 6e 69 6e 67 2c 20 63 6c 6f 73 65 20  eturning, close 
d5d0: 74 68 65 20 6e 65 77 20 63 6f 6e 65 63 74 69 6f  the new conectio
d5e0: 6e 20 61 6e 64 0a 23 20 72 65 73 74 6f 72 65 20  n and.# restore 
d5f0: 74 68 65 20 34 20 62 79 74 65 20 66 69 65 6c 64  the 4 byte field
d600: 73 20 73 74 61 72 74 69 6e 67 20 61 74 20 68 65  s starting at he
d610: 61 64 65 72 20 6f 66 66 73 65 74 73 20 32 38 2c  ader offsets 28,
d620: 20 39 32 20 61 6e 64 20 39 36 0a 23 20 74 6f 20   92 and 96.# to 
d630: 74 68 65 20 76 61 6c 75 65 73 20 74 68 65 79 20  the values they 
d640: 68 65 6c 64 20 62 65 66 6f 72 65 20 74 68 65 20  held before the 
d650: 53 51 4c 20 77 61 73 20 65 78 65 63 75 74 65 64  SQL was executed
d660: 2e 20 54 68 69 73 20 73 69 6d 75 6c 61 74 65 73  . This simulates
d670: 0a 23 20 61 20 77 72 69 74 65 20 62 79 20 61 20  .# a write by a 
d680: 70 72 65 2d 33 2e 37 2e 30 20 63 6c 69 65 6e 74  pre-3.7.0 client
d690: 2e 0a 23 0a 70 72 6f 63 20 73 71 6c 33 36 32 33  ..#.proc sql3623
d6a0: 31 20 7b 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20  1 {sql} {.  set 
d6b0: 42 20 5b 68 65 78 69 6f 5f 72 65 61 64 20 74 65  B [hexio_read te
d6c0: 73 74 2e 64 62 20 39 32 20 38 5d 0a 20 20 73 65  st.db 92 8].  se
d6d0: 74 20 41 20 5b 68 65 78 69 6f 5f 72 65 61 64 20  t A [hexio_read 
d6e0: 74 65 73 74 2e 64 62 20 32 38 20 34 5d 0a 20 20  test.db 28 4].  
d6f0: 73 71 6c 69 74 65 33 20 64 62 33 36 32 33 31 20  sqlite3 db36231 
d700: 74 65 73 74 2e 64 62 0a 20 20 63 61 74 63 68 20  test.db.  catch 
d710: 7b 20 64 62 33 36 32 33 31 20 66 75 6e 63 20 61  { db36231 func a
d720: 5f 73 74 72 69 6e 67 20 61 5f 73 74 72 69 6e 67  _string a_string
d730: 20 7d 0a 20 20 65 78 65 63 73 71 6c 20 24 73 71   }.  execsql $sq
d740: 6c 20 64 62 33 36 32 33 31 0a 20 20 64 62 33 36  l db36231.  db36
d750: 32 33 31 20 63 6c 6f 73 65 0a 20 20 68 65 78 69  231 close.  hexi
d760: 6f 5f 77 72 69 74 65 20 74 65 73 74 2e 64 62 20  o_write test.db 
d770: 32 38 20 24 41 0a 20 20 68 65 78 69 6f 5f 77 72  28 $A.  hexio_wr
d780: 69 74 65 20 74 65 73 74 2e 64 62 20 39 32 20 24  ite test.db 92 $
d790: 42 0a 20 20 72 65 74 75 72 6e 20 22 22 0a 7d 0a  B.  return "".}.
d7a0: 0a 70 72 6f 63 20 64 62 5f 73 61 76 65 20 7b 7d  .proc db_save {}
d7b0: 20 7b 0a 20 20 66 6f 72 65 61 63 68 20 66 20 5b   {.  foreach f [
d7c0: 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  glob -nocomplain
d7d0: 20 73 76 5f 74 65 73 74 2e 64 62 2a 5d 20 7b 20   sv_test.db*] { 
d7e0: 66 6f 72 63 65 64 65 6c 65 74 65 20 24 66 20 7d  forcedelete $f }
d7f0: 0a 20 20 66 6f 72 65 61 63 68 20 66 20 5b 67 6c  .  foreach f [gl
d800: 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74  ob -nocomplain t
d810: 65 73 74 2e 64 62 2a 5d 20 7b 0a 20 20 20 20 73  est.db*] {.    s
d820: 65 74 20 66 32 20 22 73 76 5f 24 66 22 0a 20 20  et f2 "sv_$f".  
d830: 20 20 66 6f 72 63 65 63 6f 70 79 20 24 66 20 24    forcecopy $f $
d840: 66 32 0a 20 20 7d 0a 7d 0a 70 72 6f 63 20 64 62  f2.  }.}.proc db
d850: 5f 73 61 76 65 5f 61 6e 64 5f 63 6c 6f 73 65 20  _save_and_close 
d860: 7b 7d 20 7b 0a 20 20 64 62 5f 73 61 76 65 0a 20  {} {.  db_save. 
d870: 20 63 61 74 63 68 20 7b 20 64 62 20 63 6c 6f 73   catch { db clos
d880: 65 20 7d 0a 20 20 72 65 74 75 72 6e 20 22 22 0a  e }.  return "".
d890: 7d 0a 70 72 6f 63 20 64 62 5f 72 65 73 74 6f 72  }.proc db_restor
d8a0: 65 20 7b 7d 20 7b 0a 20 20 66 6f 72 65 61 63 68  e {} {.  foreach
d8b0: 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70   f [glob -nocomp
d8c0: 6c 61 69 6e 20 74 65 73 74 2e 64 62 2a 5d 20 7b  lain test.db*] {
d8d0: 20 66 6f 72 63 65 64 65 6c 65 74 65 20 24 66 20   forcedelete $f 
d8e0: 7d 0a 20 20 66 6f 72 65 61 63 68 20 66 32 20 5b  }.  foreach f2 [
d8f0: 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  glob -nocomplain
d900: 20 73 76 5f 74 65 73 74 2e 64 62 2a 5d 20 7b 0a   sv_test.db*] {.
d910: 20 20 20 20 73 65 74 20 66 20 5b 73 74 72 69 6e      set f [strin
d920: 67 20 72 61 6e 67 65 20 24 66 32 20 33 20 65 6e  g range $f2 3 en
d930: 64 5d 0a 20 20 20 20 66 6f 72 63 65 63 6f 70 79  d].    forcecopy
d940: 20 24 66 32 20 24 66 0a 20 20 7d 0a 7d 0a 70 72   $f2 $f.  }.}.pr
d950: 6f 63 20 64 62 5f 72 65 73 74 6f 72 65 5f 61 6e  oc db_restore_an
d960: 64 5f 72 65 6f 70 65 6e 20 7b 7b 64 62 66 69 6c  d_reopen {{dbfil
d970: 65 20 74 65 73 74 2e 64 62 7d 7d 20 7b 0a 20 20  e test.db}} {.  
d980: 63 61 74 63 68 20 7b 20 64 62 20 63 6c 6f 73 65  catch { db close
d990: 20 7d 0a 20 20 64 62 5f 72 65 73 74 6f 72 65 0a   }.  db_restore.
d9a0: 20 20 73 71 6c 69 74 65 33 20 64 62 20 24 64 62    sqlite3 db $db
d9b0: 66 69 6c 65 0a 7d 0a 70 72 6f 63 20 64 62 5f 64  file.}.proc db_d
d9c0: 65 6c 65 74 65 5f 61 6e 64 5f 72 65 6f 70 65 6e  elete_and_reopen
d9d0: 20 7b 7b 66 69 6c 65 20 74 65 73 74 2e 64 62 7d   {{file test.db}
d9e0: 7d 20 7b 0a 20 20 63 61 74 63 68 20 7b 20 64 62  } {.  catch { db
d9f0: 20 63 6c 6f 73 65 20 7d 0a 20 20 66 6f 72 65 61   close }.  forea
da00: 63 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f  ch f [glob -noco
da10: 6d 70 6c 61 69 6e 20 74 65 73 74 2e 64 62 2a 5d  mplain test.db*]
da20: 20 7b 20 66 6f 72 63 65 64 65 6c 65 74 65 20 24   { forcedelete $
da30: 66 20 7d 0a 20 20 73 71 6c 69 74 65 33 20 64 62  f }.  sqlite3 db
da40: 20 24 66 69 6c 65 0a 7d 0a 0a 23 20 49 66 20 74   $file.}..# If t
da50: 68 65 20 6c 69 62 72 61 72 79 20 69 73 20 63 6f  he library is co
da60: 6d 70 69 6c 65 64 20 77 69 74 68 20 74 68 65 20  mpiled with the 
da70: 53 51 4c 49 54 45 5f 44 45 46 41 55 4c 54 5f 41  SQLITE_DEFAULT_A
da80: 55 54 4f 56 41 43 55 55 4d 20 6d 61 63 72 6f 20  UTOVACUUM macro 
da90: 73 65 74 0a 23 20 74 6f 20 6e 6f 6e 2d 7a 65 72  set.# to non-zer
daa0: 6f 2c 20 74 68 65 6e 20 73 65 74 20 74 68 65 20  o, then set the 
dab0: 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20  global variable 
dac0: 24 41 55 54 4f 56 41 43 55 55 4d 20 74 6f 20 31  $AUTOVACUUM to 1
dad0: 2e 0a 73 65 74 20 41 55 54 4f 56 41 43 55 55 4d  ..set AUTOVACUUM
dae0: 20 24 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73   $sqlite_options
daf0: 28 64 65 66 61 75 6c 74 5f 61 75 74 6f 76 61 63  (default_autovac
db00: 75 75 6d 29 0a 0a 23 20 4d 61 6b 65 20 73 75 72  uum)..# Make sur
db10: 65 20 74 68 65 20 46 54 53 20 65 6e 68 61 6e 63  e the FTS enhanc
db20: 65 64 20 71 75 65 72 79 20 73 79 6e 74 61 78 20  ed query syntax 
db30: 69 73 20 64 69 73 61 62 6c 65 64 2e 0a 73 65 74  is disabled..set
db40: 20 73 71 6c 69 74 65 5f 66 74 73 33 5f 65 6e 61   sqlite_fts3_ena
db50: 62 6c 65 5f 70 61 72 65 6e 74 68 65 73 65 73 20  ble_parentheses 
db60: 30 0a 0a 23 20 44 75 72 69 6e 67 20 74 65 73 74  0..# During test
db70: 69 6e 67 2c 20 61 73 73 75 6d 65 20 74 68 61 74  ing, assume that
db80: 20 61 6c 6c 20 64 61 74 61 62 61 73 65 20 66 69   all database fi
db90: 6c 65 73 20 61 72 65 20 77 65 6c 6c 2d 66 6f 72  les are well-for
dba0: 6d 65 64 2e 20 20 54 68 65 0a 23 20 66 65 77 20  med.  The.# few 
dbb0: 74 65 73 74 20 63 61 73 65 73 20 74 68 61 74 20  test cases that 
dbc0: 64 65 6c 69 62 65 72 61 74 65 6c 79 20 63 6f 72  deliberately cor
dbd0: 72 75 70 74 20 64 61 74 61 62 61 73 65 20 66 69  rupt database fi
dbe0: 6c 65 73 20 73 68 6f 75 6c 64 20 72 65 73 63 69  les should resci
dbf0: 6e 64 20 0a 23 20 74 68 69 73 20 73 65 74 74 69  nd .# this setti
dc00: 6e 67 20 62 79 20 69 6e 76 6f 6b 69 6e 67 20 22  ng by invoking "
dc10: 64 61 74 61 62 61 73 65 5f 63 61 6e 5f 62 65 5f  database_can_be_
dc20: 63 6f 72 72 75 70 74 22 0a 23 0a 64 61 74 61 62  corrupt".#.datab
dc30: 61 73 65 5f 6e 65 76 65 72 5f 63 6f 72 72 75 70  ase_never_corrup
dc40: 74 0a 0a 73 6f 75 72 63 65 20 24 74 65 73 74 64  t..source $testd
dc50: 69 72 2f 74 68 72 65 61 64 5f 63 6f 6d 6d 6f 6e  ir/thread_common
dc60: 2e 74 63 6c 0a 73 6f 75 72 63 65 20 24 74 65 73  .tcl.source $tes
dc70: 74 64 69 72 2f 6d 61 6c 6c 6f 63 5f 63 6f 6d 6d  tdir/malloc_comm
dc80: 6f 6e 2e 74 63 6c 0a                             on.tcl.