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 20 0a 23 20 74 65 73 74 20 reating .# test
02a0: 63 61 73 65 73 20 61 72 65 20 61 73 20 66 6f 6c cases are as fol
02b0: 6c 6f 77 73 3a 0a 23 0a 23 20 43 6f 6d 6d 61 6e lows:.#.# Comman
02c0: 64 73 20 74 6f 20 6d 61 6e 69 70 75 6c 61 74 65 ds to manipulate
02d0: 20 74 68 65 20 64 62 20 61 6e 64 20 74 68 65 20 the db and the
02e0: 66 69 6c 65 2d 73 79 73 74 65 6d 20 61 74 20 61 file-system at a
02f0: 20 68 69 67 68 20 6c 65 76 65 6c 3a 0a 23 0a 23 high level:.#.#
0300: 20 20 20 20 20 20 63 6f 70 79 5f 66 69 6c 65 20 copy_file
0310: 20 20 20 20 20 20 20 20 20 20 20 20 20 46 52 4f FRO
0320: 4d 20 54 4f 0a 23 20 20 20 20 20 20 64 72 6f 70 M TO.# drop
0330: 5f 61 6c 6c 5f 74 61 62 6c 65 20 20 20 20 20 20 _all_table
0340: 20 20 20 3f 44 42 3f 0a 23 20 20 20 20 20 20 66 ?DB?.# f
0350: 6f 72 63 65 64 65 6c 65 74 65 20 20 20 20 20 20 orcedelete
0360: 20 20 20 20 20 20 46 49 4c 45 4e 41 4d 45 0a 23 FILENAME.#
0370: 0a 23 20 54 65 73 74 20 74 68 65 20 63 61 70 61 .# Test the capa
0380: 62 69 6c 69 74 79 20 6f 66 20 74 68 65 20 53 51 bility of the SQ
0390: 4c 69 74 65 20 76 65 72 73 69 6f 6e 20 62 75 69 Lite version bui
03a0: 6c 74 20 69 6e 74 6f 20 74 68 65 20 69 6e 74 65 lt into the inte
03b0: 72 70 72 65 74 65 72 20 74 6f 0a 23 20 64 65 74 rpreter to.# det
03c0: 65 72 6d 69 6e 65 20 69 66 20 61 20 73 70 65 63 ermine if a spec
03d0: 69 66 69 63 20 74 65 73 74 20 63 61 6e 20 62 65 ific test can be
03e0: 20 72 75 6e 3a 0a 23 0a 23 20 20 20 20 20 20 69 run:.#.# i
03f0: 66 63 61 70 61 62 6c 65 20 20 20 20 20 20 20 20 fcapable
0400: 20 20 20 20 20 20 45 58 50 52 0a 23 0a 23 20 43 EXPR.#.# C
0410: 61 6c 75 6c 61 74 65 20 63 68 65 63 6b 73 75 6d alulate checksum
0420: 73 20 62 61 73 65 64 20 6f 6e 20 64 61 74 61 62 s based on datab
0430: 61 73 65 20 63 6f 6e 74 65 6e 74 73 3a 0a 23 0a ase contents:.#.
0440: 23 20 20 20 20 20 20 64 62 63 6b 73 75 6d 20 20 # dbcksum
0450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 42 DB
0460: 20 44 42 4e 41 4d 45 0a 23 20 20 20 20 20 20 61 DBNAME.# a
0470: 6c 6c 63 6b 73 75 6d 20 20 20 20 20 20 20 20 20 llcksum
0480: 20 20 20 20 20 20 3f 44 42 3f 0a 23 20 20 20 20 ?DB?.#
0490: 20 20 63 6b 73 75 6d 20 20 20 20 20 20 20 20 20 cksum
04a0: 20 20 20 20 20 20 20 20 20 3f 44 42 3f 0a 23 0a ?DB?.#.
04b0: 23 20 43 6f 6d 6d 61 6e 64 73 20 74 6f 20 65 78 # Commands to ex
04c0: 65 63 75 74 65 2f 65 78 70 6c 61 69 6e 20 53 51 ecute/explain SQ
04d0: 4c 20 73 74 61 74 65 6d 65 6e 74 73 3a 0a 23 0a L statements:.#.
04e0: 23 20 20 20 20 20 20 73 74 65 70 73 71 6c 20 20 # stepsql
04f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 42 DB
0500: 20 53 51 4c 0a 23 20 20 20 20 20 20 65 78 65 63 SQL.# exec
0510: 73 71 6c 32 20 20 20 20 20 20 20 20 20 20 20 20 sql2
0520: 20 20 20 53 51 4c 0a 23 20 20 20 20 20 20 65 78 SQL.# ex
0530: 70 6c 61 69 6e 5f 6e 6f 5f 74 72 61 63 65 20 20 plain_no_trace
0540: 20 20 20 20 20 53 51 4c 0a 23 20 20 20 20 20 20 SQL.#
0550: 65 78 70 6c 61 69 6e 20 20 20 20 20 20 20 20 20 explain
0560: 20 20 20 20 20 20 20 53 51 4c 20 3f 44 42 3f 0a SQL ?DB?.
0570: 23 20 20 20 20 20 20 63 61 74 63 68 73 71 6c 20 # catchsql
0580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51 SQ
0590: 4c 20 3f 44 42 3f 0a 23 20 20 20 20 20 20 65 78 L ?DB?.# ex
05a0: 65 63 73 71 6c 20 20 20 20 20 20 20 20 20 20 20 ecsql
05b0: 20 20 20 20 20 53 51 4c 20 3f 44 42 3f 0a 23 0a SQL ?DB?.#.
05c0: 23 20 43 6f 6d 6d 61 6e 64 73 20 74 6f 20 72 75 # Commands to ru
05d0: 6e 20 74 65 73 74 20 63 61 73 65 73 3a 0a 23 0a n test cases:.#.
05e0: 23 20 20 20 20 20 20 64 6f 5f 69 6f 65 72 72 5f # do_ioerr_
05f0: 74 65 73 74 20 20 20 20 20 20 20 20 20 20 54 45 test TE
0600: 53 54 4e 41 4d 45 20 41 52 47 53 2e 2e 2e 0a 23 STNAME ARGS....#
0610: 20 20 20 20 20 20 63 72 61 73 68 73 71 6c 20 20 crashsql
0620: 20 20 20 20 20 20 20 20 20 20 20 20 20 41 52 47 ARG
0630: 53 2e 2e 2e 0a 23 20 20 20 20 20 20 69 6e 74 65 S....# inte
0640: 67 72 69 74 79 5f 63 68 65 63 6b 20 20 20 20 20 grity_check
0650: 20 20 20 54 45 53 54 4e 41 4d 45 20 3f 44 42 3f TESTNAME ?DB?
0660: 0a 23 20 20 20 20 20 20 64 6f 5f 74 65 73 74 20 .# do_test
0670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 T
0680: 45 53 54 4e 41 4d 45 20 53 43 52 49 50 54 20 45 ESTNAME SCRIPT E
0690: 58 50 45 43 54 45 44 0a 23 20 20 20 20 20 20 64 XPECTED.# d
06a0: 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74 20 20 o_execsql_test
06b0: 20 20 20 20 20 20 54 45 53 54 4e 41 4d 45 20 53 TESTNAME S
06c0: 51 4c 20 45 58 50 45 43 54 45 44 0a 23 20 20 20 QL EXPECTED.#
06d0: 20 20 20 64 6f 5f 63 61 74 63 68 73 71 6c 5f 74 do_catchsql_t
06e0: 65 73 74 20 20 20 20 20 20 20 54 45 53 54 4e 41 est TESTNA
06f0: 4d 45 20 53 51 4c 20 45 58 50 45 43 54 45 44 0a ME SQL EXPECTED.
0700: 23 0a 23 20 43 6f 6d 6d 61 6e 64 73 20 70 72 6f #.# Commands pro
0710: 76 69 64 69 6e 67 20 61 20 6c 6f 77 65 72 20 6c viding a lower l
0720: 65 76 65 6c 20 69 6e 74 65 72 66 61 63 65 20 74 evel interface t
0730: 6f 20 74 68 65 20 67 6c 6f 62 61 6c 20 74 65 73 o the global tes
0740: 74 20 63 6f 75 6e 74 65 72 73 3a 0a 23 0a 23 20 t counters:.#.#
0750: 20 20 20 20 20 73 65 74 5f 74 65 73 74 5f 63 6f set_test_co
0760: 75 6e 74 65 72 20 20 20 20 20 20 20 43 4f 55 4e unter COUN
0770: 54 45 52 20 3f 56 41 4c 55 45 3f 0a 23 20 20 20 TER ?VALUE?.#
0780: 20 20 20 6f 6d 69 74 5f 74 65 73 74 20 20 20 20 omit_test
0790: 20 20 20 20 20 20 20 20 20 20 54 45 53 54 4e 41 TESTNA
07a0: 4d 45 20 52 45 41 53 4f 4e 0a 23 20 20 20 20 20 ME REASON.#
07b0: 20 66 61 69 6c 5f 74 65 73 74 20 20 20 20 20 20 fail_test
07c0: 20 20 20 20 20 20 20 20 54 45 53 54 4e 41 4d 45 TESTNAME
07d0: 0a 23 20 20 20 20 20 20 69 6e 63 72 5f 6e 74 65 .# incr_nte
07e0: 73 74 0a 23 0a 23 20 43 6f 6d 6d 61 6e 64 20 72 st.#.# Command r
07f0: 75 6e 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 un at the end of
0800: 20 65 61 63 68 20 74 65 73 74 20 66 69 6c 65 3a each test file:
0810: 0a 23 0a 23 20 20 20 20 20 20 66 69 6e 69 73 68 .#.# finish
0820: 5f 74 65 73 74 0a 23 0a 23 20 43 6f 6d 6d 61 6e _test.#.# Comman
0830: 64 73 20 74 6f 20 68 65 6c 70 20 63 72 65 61 74 ds to help creat
0840: 65 20 74 65 73 74 20 66 69 6c 65 73 20 74 68 61 e test files tha
0850: 74 20 72 75 6e 20 77 69 74 68 20 74 68 65 20 22 t run with the "
0860: 57 41 4c 22 20 61 6e 64 20 6f 74 68 65 72 0a 23 WAL" and other.#
0870: 20 70 65 72 6d 75 74 61 74 69 6f 6e 73 20 28 73 permutations (s
0880: 65 65 20 66 69 6c 65 20 70 65 72 6d 75 74 61 74 ee file permutat
0890: 69 6f 6e 73 2e 74 65 73 74 29 3a 0a 23 0a 23 20 ions.test):.#.#
08a0: 20 20 20 20 20 77 61 6c 5f 69 73 5f 77 61 6c 5f wal_is_wal_
08b0: 6d 6f 64 65 0a 23 20 20 20 20 20 20 77 61 6c 5f mode.# wal_
08c0: 73 65 74 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 set_journal_mode
08d0: 20 20 20 3f 44 42 3f 0a 23 20 20 20 20 20 20 77 ?DB?.# w
08e0: 61 6c 5f 63 68 65 63 6b 5f 6a 6f 75 72 6e 61 6c al_check_journal
08f0: 5f 6d 6f 64 65 20 54 45 53 54 4e 41 4d 45 3f 44 _mode TESTNAME?D
0900: 42 3f 0a 23 20 20 20 20 20 20 70 65 72 6d 75 74 B?.# permut
0910: 61 74 69 6f 6e 0a 23 20 20 20 20 20 20 70 72 65 ation.# pre
0920: 73 71 6c 0a 23 0a 0a 23 20 53 65 74 20 74 68 65 sql.#..# Set the
0930: 20 70 72 65 63 69 73 69 6f 6e 20 6f 66 20 46 50 precision of FP
0940: 20 61 72 69 74 68 6d 61 74 69 63 20 75 73 65 64 arithmatic used
0950: 20 62 79 20 74 68 65 20 69 6e 74 65 72 70 72 65 by the interpre
0960: 74 65 72 2e 20 41 6e 64 20 0a 23 20 63 6f 6e 66 ter. And .# conf
0970: 69 67 75 72 65 20 53 51 4c 69 74 65 20 74 6f 20 igure SQLite to
0980: 74 61 6b 65 20 64 61 74 61 62 61 73 65 20 66 69 take database fi
0990: 6c 65 20 6c 6f 63 6b 73 20 6f 6e 20 74 68 65 20 le locks on the
09a0: 70 61 67 65 20 74 68 61 74 20 62 65 67 69 6e 73 page that begins
09b0: 0a 23 20 36 34 4b 42 20 69 6e 74 6f 20 74 68 65 .# 64KB into the
09c0: 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 69 database file i
09d0: 6e 73 74 65 61 64 20 6f 66 20 74 68 65 20 6f 6e nstead of the on
09e0: 65 20 31 47 42 20 69 6e 2e 20 54 68 69 73 20 6d e 1GB in. This m
09f0: 65 61 6e 73 0a 23 20 74 68 65 20 63 6f 64 65 20 eans.# the code
0a00: 74 68 61 74 20 68 61 6e 64 6c 65 73 20 74 68 61 that handles tha
0a10: 74 20 73 70 65 63 69 61 6c 20 63 61 73 65 20 63 t special case c
0a20: 61 6e 20 62 65 20 74 65 73 74 65 64 20 77 69 74 an be tested wit
0a30: 68 6f 75 74 20 63 72 65 61 74 69 6e 67 0a 23 20 hout creating.#
0a40: 76 65 72 79 20 6c 61 72 67 65 20 64 61 74 61 62 very large datab
0a50: 61 73 65 20 66 69 6c 65 73 2e 0a 23 0a 73 65 74 ase files..#.set
0a60: 20 74 63 6c 5f 70 72 65 63 69 73 69 6f 6e 20 31 tcl_precision 1
0a70: 35 0a 73 71 6c 69 74 65 33 5f 74 65 73 74 5f 63 5.sqlite3_test_c
0a80: 6f 6e 74 72 6f 6c 5f 70 65 6e 64 69 6e 67 5f 62 ontrol_pending_b
0a90: 79 74 65 20 30 78 30 30 31 30 30 30 30 0a 0a 0a yte 0x0010000...
0aa0: 23 20 49 66 20 74 68 65 20 70 61 67 65 72 20 63 # If the pager c
0ab0: 6f 64 65 63 20 69 73 20 61 76 61 69 6c 61 62 6c odec is availabl
0ac0: 65 2c 20 63 72 65 61 74 65 20 61 20 77 72 61 70 e, create a wrap
0ad0: 70 65 72 20 66 6f 72 20 74 68 65 20 5b 73 71 6c per for the [sql
0ae0: 69 74 65 33 5d 20 0a 23 20 63 6f 6d 6d 61 6e 64 ite3] .# command
0af0: 20 74 68 61 74 20 61 70 70 65 6e 64 73 20 22 2d that appends "-
0b00: 6b 65 79 20 7b 78 79 7a 7a 79 7d 22 20 74 6f 20 key {xyzzy}" to
0b10: 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 the command line
0b20: 2e 20 69 2e 65 2e 20 74 68 69 73 3a 0a 23 0a 23 . i.e. this:.#.#
0b30: 20 20 20 20 20 73 71 6c 69 74 65 33 20 64 62 20 sqlite3 db
0b40: 74 65 73 74 2e 64 62 0a 23 0a 23 20 62 65 63 6f test.db.#.# beco
0b50: 6d 65 73 0a 23 0a 23 20 20 20 20 20 73 71 6c 69 mes.#.# sqli
0b60: 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 20 2d te3 db test.db -
0b70: 6b 65 79 20 7b 78 79 7a 7a 79 7d 0a 23 0a 69 66 key {xyzzy}.#.if
0b80: 20 7b 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 20 {[info command
0b90: 73 71 6c 69 74 65 5f 6f 72 69 67 5d 3d 3d 22 22 sqlite_orig]==""
0ba0: 7d 20 7b 0a 20 20 72 65 6e 61 6d 65 20 73 71 6c } {. rename sql
0bb0: 69 74 65 33 20 73 71 6c 69 74 65 5f 6f 72 69 67 ite3 sqlite_orig
0bc0: 0a 20 20 70 72 6f 63 20 73 71 6c 69 74 65 33 20 . proc sqlite3
0bd0: 7b 61 72 67 73 7d 20 7b 0a 20 20 20 20 69 66 20 {args} {. if
0be0: 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 73 5d {[llength $args]
0bf0: 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e 67 20 69 >=2 && [string i
0c00: 6e 64 65 78 20 5b 6c 69 6e 64 65 78 20 24 61 72 ndex [lindex $ar
0c10: 67 73 20 30 5d 20 30 5d 21 3d 22 2d 22 7d 20 7b gs 0] 0]!="-"} {
0c20: 0a 20 20 20 20 20 20 23 20 54 68 69 73 20 63 6f . # This co
0c30: 6d 6d 61 6e 64 20 69 73 20 6f 70 65 6e 69 6e 67 mmand is opening
0c40: 20 61 20 6e 65 77 20 64 61 74 61 62 61 73 65 20 a new database
0c50: 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 20 20 20 20 connection..
0c60: 20 20 23 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 #. if {[i
0c70: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 47 28 70 nfo exists ::G(p
0c80: 65 72 6d 3a 73 71 6c 69 74 65 33 5f 61 72 67 73 erm:sqlite3_args
0c90: 29 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 73 65 )]} {. se
0ca0: 74 20 61 72 67 73 20 5b 63 6f 6e 63 61 74 20 24 t args [concat $
0cb0: 61 72 67 73 20 24 3a 3a 47 28 70 65 72 6d 3a 73 args $::G(perm:s
0cc0: 71 6c 69 74 65 33 5f 61 72 67 73 29 5d 0a 20 20 qlite3_args)].
0cd0: 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66 20 7b }. if {
0ce0: 5b 73 71 6c 69 74 65 5f 6f 72 69 67 20 2d 68 61 [sqlite_orig -ha
0cf0: 73 2d 63 6f 64 65 63 5d 20 26 26 20 21 5b 69 6e s-codec] && ![in
0d00: 66 6f 20 65 78 69 73 74 73 20 3a 3a 64 6f 5f 6e fo exists ::do_n
0d10: 6f 74 5f 75 73 65 5f 63 6f 64 65 63 5d 7d 20 7b ot_use_codec]} {
0d20: 0a 20 20 20 20 20 20 20 20 6c 61 70 70 65 6e 64 . lappend
0d30: 20 61 72 67 73 20 2d 6b 65 79 20 7b 78 79 7a 7a args -key {xyzz
0d40: 79 7d 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 y}. }..
0d50: 20 20 73 65 74 20 72 65 73 20 5b 75 70 6c 65 76 set res [uplev
0d60: 65 6c 20 31 20 73 71 6c 69 74 65 5f 6f 72 69 67 el 1 sqlite_orig
0d70: 20 24 61 72 67 73 5d 0a 20 20 20 20 20 20 69 66 $args]. if
0d80: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a {[info exists :
0d90: 3a 47 28 70 65 72 6d 3a 70 72 65 73 71 6c 29 5d :G(perm:presql)]
0da0: 7d 20 7b 0a 20 20 20 20 20 20 20 20 5b 6c 69 6e } {. [lin
0db0: 64 65 78 20 24 61 72 67 73 20 30 5d 20 65 76 61 dex $args 0] eva
0dc0: 6c 20 24 3a 3a 47 28 70 65 72 6d 3a 70 72 65 73 l $::G(perm:pres
0dd0: 71 6c 29 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 ql). }.
0de0: 20 20 73 65 74 20 72 65 73 0a 20 20 20 20 7d 20 set res. }
0df0: 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 23 20 54 else {. # T
0e00: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 6e his command is n
0e10: 6f 74 20 6f 70 65 6e 69 6e 67 20 61 20 6e 65 77 ot opening a new
0e20: 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 database connec
0e30: 74 69 6f 6e 2e 20 50 61 73 73 20 74 68 65 20 0a tion. Pass the .
0e40: 20 20 20 20 20 20 23 20 61 72 67 75 6d 65 6e 74 # argument
0e50: 73 20 74 68 72 6f 75 67 68 20 74 6f 20 74 68 65 s through to the
0e60: 20 43 20 69 6d 70 6c 65 6d 65 6e 61 74 69 6f 6e C implemenation
0e70: 20 61 73 20 74 68 65 20 61 72 65 2e 0a 20 20 20 as the are..
0e80: 20 20 20 23 0a 20 20 20 20 20 20 75 70 6c 65 76 #. uplev
0e90: 65 6c 20 31 20 73 71 6c 69 74 65 5f 6f 72 69 67 el 1 sqlite_orig
0ea0: 20 24 61 72 67 73 0a 20 20 20 20 7d 0a 20 20 7d $args. }. }
0eb0: 0a 7d 0a 0a 70 72 6f 63 20 65 78 65 63 70 72 65 .}..proc execpre
0ec0: 73 71 6c 20 7b 68 61 6e 64 6c 65 20 61 72 67 73 sql {handle args
0ed0: 7d 20 7b 0a 20 20 74 72 61 63 65 20 72 65 6d 6f } {. trace remo
0ee0: 76 65 20 65 78 65 63 75 74 69 6f 6e 20 24 68 61 ve execution $ha
0ef0: 6e 64 6c 65 20 65 6e 74 65 72 20 5b 6c 69 73 74 ndle enter [list
0f00: 20 65 78 65 63 70 72 65 73 71 6c 20 24 68 61 6e execpresql $han
0f10: 64 6c 65 5d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f dle]. if {[info
0f20: 20 65 78 69 73 74 73 20 3a 3a 47 28 70 65 72 6d exists ::G(perm
0f30: 3a 70 72 65 73 71 6c 29 5d 7d 20 7b 0a 20 20 20 :presql)]} {.
0f40: 20 24 68 61 6e 64 6c 65 20 65 76 61 6c 20 24 3a $handle eval $:
0f50: 3a 47 28 70 65 72 6d 3a 70 72 65 73 71 6c 29 0a :G(perm:presql).
0f60: 20 20 7d 0a 7d 0a 0a 23 20 54 68 69 73 20 63 6f }.}..# This co
0f70: 6d 6d 61 6e 64 20 73 68 6f 75 6c 64 20 62 65 20 mmand should be
0f80: 63 61 6c 6c 65 64 20 61 66 74 65 72 20 6c 6f 61 called after loa
0f90: 64 69 6e 67 20 74 65 73 74 65 72 2e 74 63 6c 20 ding tester.tcl
0fa0: 66 72 6f 6d 20 77 69 74 68 69 6e 0a 23 20 61 6c from within.# al
0fb0: 6c 20 74 65 73 74 20 73 63 72 69 70 74 73 20 74 l test scripts t
0fc0: 68 61 74 20 61 72 65 20 69 6e 63 6f 6d 70 61 74 hat are incompat
0fd0: 69 62 6c 65 20 77 69 74 68 20 65 6e 63 72 79 70 ible with encryp
0fe0: 74 69 6f 6e 20 63 6f 64 65 63 73 2e 0a 23 0a 70 tion codecs..#.p
0ff0: 72 6f 63 20 64 6f 5f 6e 6f 74 5f 75 73 65 5f 63 roc do_not_use_c
1000: 6f 64 65 63 20 7b 7d 20 7b 0a 20 20 73 65 74 20 odec {} {. set
1010: 3a 3a 64 6f 5f 6e 6f 74 5f 75 73 65 5f 63 6f 64 ::do_not_use_cod
1020: 65 63 20 31 0a 20 20 72 65 73 65 74 5f 64 62 0a ec 1. reset_db.
1030: 7d 0a 0a 23 20 54 68 65 20 66 6f 6c 6c 6f 77 69 }..# The followi
1040: 6e 67 20 62 6c 6f 63 6b 20 6f 6e 6c 79 20 72 75 ng block only ru
1050: 6e 73 20 74 68 65 20 66 69 72 73 74 20 74 69 6d ns the first tim
1060: 65 20 74 68 69 73 20 66 69 6c 65 20 69 73 20 73 e this file is s
1070: 6f 75 72 63 65 64 2e 20 49 74 0a 23 20 64 6f 65 ourced. It.# doe
1080: 73 20 6e 6f 74 20 72 75 6e 20 69 6e 20 73 6c 61 s not run in sla
1090: 76 65 20 69 6e 74 65 72 70 72 65 74 65 72 73 20 ve interpreters
10a0: 28 73 69 6e 63 65 20 74 68 65 20 3a 3a 63 6d 64 (since the ::cmd
10b0: 6c 69 6e 65 61 72 67 20 61 72 72 61 79 20 69 73 linearg array is
10c0: 0a 23 20 70 6f 70 75 6c 61 74 65 64 20 62 65 66 .# populated bef
10d0: 6f 72 65 20 74 68 65 20 74 65 73 74 20 73 63 72 ore the test scr
10e0: 69 70 74 20 69 73 20 72 75 6e 20 69 6e 20 73 6c ipt is run in sl
10f0: 61 76 65 20 69 6e 74 65 72 70 72 65 74 65 72 73 ave interpreters
1100: 29 2e 0a 23 0a 69 66 20 7b 5b 69 6e 66 6f 20 65 )..#.if {[info e
1110: 78 69 73 74 73 20 63 6d 64 6c 69 6e 65 61 72 67 xists cmdlinearg
1120: 5d 3d 3d 30 7d 20 7b 0a 0a 20 20 23 20 50 61 72 ]==0} {.. # Par
1130: 73 65 20 61 6e 79 20 6f 70 74 69 6f 6e 73 20 73 se any options s
1140: 70 65 63 69 66 69 65 64 20 69 6e 20 74 68 65 20 pecified in the
1150: 24 61 72 67 76 20 61 72 72 61 79 2e 20 54 68 69 $argv array. Thi
1160: 73 20 73 63 72 69 70 74 20 61 63 63 65 70 74 73 s script accepts
1170: 20 74 68 65 20 0a 20 20 23 20 66 6f 6c 6c 6f 77 the . # follow
1180: 69 6e 67 20 6f 70 74 69 6f 6e 73 3a 20 0a 20 20 ing options: .
1190: 23 0a 20 20 23 20 20 20 2d 2d 70 61 75 73 65 0a #. # --pause.
11a0: 20 20 23 20 20 20 2d 2d 73 6f 66 74 2d 68 65 61 # --soft-hea
11b0: 70 2d 6c 69 6d 69 74 3d 4e 4e 0a 20 20 23 20 20 p-limit=NN. #
11c0: 20 2d 2d 6d 61 78 65 72 72 6f 72 3d 4e 4e 0a 20 --maxerror=NN.
11d0: 20 23 20 20 20 2d 2d 6d 61 6c 6c 6f 63 74 72 61 # --malloctra
11e0: 63 65 3d 4e 0a 20 20 23 20 20 20 2d 2d 62 61 63 ce=N. # --bac
11f0: 6b 74 72 61 63 65 3d 4e 0a 20 20 23 20 20 20 2d ktrace=N. # -
1200: 2d 62 69 6e 61 72 79 6c 6f 67 3d 4e 0a 20 20 23 -binarylog=N. #
1210: 20 20 20 2d 2d 73 6f 61 6b 3d 4e 0a 20 20 23 0a --soak=N. #.
1220: 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 set cmdlinearg
1230: 28 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74 (soft-heap-limit
1240: 29 20 20 20 20 30 0a 20 20 73 65 74 20 63 6d 64 ) 0. set cmd
1250: 6c 69 6e 65 61 72 67 28 6d 61 78 65 72 72 6f 72 linearg(maxerror
1260: 29 20 20 20 20 20 20 20 20 31 30 30 30 0a 20 20 ) 1000.
1270: 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 6d set cmdlinearg(m
1280: 61 6c 6c 6f 63 74 72 61 63 65 29 20 20 20 20 20 alloctrace)
1290: 20 20 20 30 0a 20 20 73 65 74 20 63 6d 64 6c 69 0. set cmdli
12a0: 6e 65 61 72 67 28 62 61 63 6b 74 72 61 63 65 29 nearg(backtrace)
12b0: 20 20 20 20 20 20 20 20 20 31 30 0a 20 20 73 65 10. se
12c0: 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 62 69 6e t cmdlinearg(bin
12d0: 61 72 79 6c 6f 67 29 20 20 20 20 20 20 20 20 20 arylog)
12e0: 20 30 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 0. set cmdline
12f0: 61 72 67 28 73 6f 61 6b 29 20 20 20 20 20 20 20 arg(soak)
1300: 20 20 20 20 20 20 20 20 30 0a 0a 20 20 73 65 74 0.. set
1310: 20 6c 65 66 74 6f 76 65 72 20 5b 6c 69 73 74 5d leftover [list]
1320: 0a 20 20 66 6f 72 65 61 63 68 20 61 20 24 61 72 . foreach a $ar
1330: 67 76 20 7b 0a 20 20 20 20 73 77 69 74 63 68 20 gv {. switch
1340: 2d 72 65 67 65 78 70 20 2d 2d 20 24 61 20 7b 0a -regexp -- $a {.
1350: 20 20 20 20 20 20 7b 5e 2d 2b 70 61 75 73 65 24 {^-+pause$
1360: 7d 20 7b 0a 20 20 20 20 20 20 20 20 23 20 57 61 } {. # Wa
1370: 69 74 20 66 6f 72 20 75 73 65 72 20 69 6e 70 75 it for user inpu
1380: 74 20 62 65 66 6f 72 65 20 63 6f 6e 74 69 6e 75 t before continu
1390: 69 6e 67 2e 20 54 68 69 73 20 69 73 20 74 6f 20 ing. This is to
13a0: 67 69 76 65 20 74 68 65 20 75 73 65 72 20 61 6e give the user an
13b0: 20 0a 20 20 20 20 20 20 20 20 23 20 6f 70 70 6f . # oppo
13c0: 72 74 75 6e 69 74 79 20 74 6f 20 63 6f 6e 6e 65 rtunity to conne
13d0: 63 74 20 70 72 6f 66 69 6c 69 6e 67 20 74 6f 6f ct profiling too
13e0: 6c 73 20 74 6f 20 74 68 65 20 70 72 6f 63 65 73 ls to the proces
13f0: 73 2e 0a 20 20 20 20 20 20 20 20 70 75 74 73 20 s.. puts
1400: 2d 6e 6f 6e 65 77 6c 69 6e 65 20 22 50 72 65 73 -nonewline "Pres
1410: 73 20 52 45 54 55 52 4e 20 74 6f 20 62 65 67 69 s RETURN to begi
1420: 6e 2e 2e 2e 22 0a 20 20 20 20 20 20 20 20 66 6c n...". fl
1430: 75 73 68 20 73 74 64 6f 75 74 0a 20 20 20 20 20 ush stdout.
1440: 20 20 20 67 65 74 73 20 73 74 64 69 6e 0a 20 20 gets stdin.
1450: 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b }. {^-+
1460: 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74 3d soft-heap-limit=
1470: 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20 20 66 .+$} {. f
1480: 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79 20 63 6d oreach {dummy cm
1490: 64 6c 69 6e 65 61 72 67 28 73 6f 66 74 2d 68 65 dlinearg(soft-he
14a0: 61 70 2d 6c 69 6d 69 74 29 7d 20 5b 73 70 6c 69 ap-limit)} [spli
14b0: 74 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 t $a =] break.
14c0: 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b }. {^-+
14d0: 6d 61 78 65 72 72 6f 72 3d 2e 2b 24 7d 20 7b 0a maxerror=.+$} {.
14e0: 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 foreach
14f0: 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 {dummy cmdlinear
1500: 67 28 6d 61 78 65 72 72 6f 72 29 7d 20 5b 73 70 g(maxerror)} [sp
1510: 6c 69 74 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a lit $a =] break.
1520: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e }. {^
1530: 2d 2b 6d 61 6c 6c 6f 63 74 72 61 63 65 3d 2e 2b -+malloctrace=.+
1540: 24 7d 20 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 $} {. for
1550: 65 61 63 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c each {dummy cmdl
1560: 69 6e 65 61 72 67 28 6d 61 6c 6c 6f 63 74 72 61 inearg(malloctra
1570: 63 65 29 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d ce)} [split $a =
1580: 5d 20 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 ] break.
1590: 69 66 20 7b 24 63 6d 64 6c 69 6e 65 61 72 67 28 if {$cmdlinearg(
15a0: 6d 61 6c 6c 6f 63 74 72 61 63 65 29 7d 20 7b 0a malloctrace)} {.
15b0: 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 sqlite
15c0: 33 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 20 73 3_memdebug_log s
15d0: 74 61 72 74 0a 20 20 20 20 20 20 20 20 7d 0a 20 tart. }.
15e0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d }. {^-
15f0: 2b 62 61 63 6b 74 72 61 63 65 3d 2e 2b 24 7d 20 +backtrace=.+$}
1600: 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 {. foreac
1610: 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 h {dummy cmdline
1620: 61 72 67 28 62 61 63 6b 74 72 61 63 65 29 7d 20 arg(backtrace)}
1630: 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20 62 72 65 [split $a =] bre
1640: 61 6b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 ak. sqlit
1650: 65 33 5f 6d 65 6d 64 65 62 75 67 5f 62 61 63 6b e3_memdebug_back
1660: 74 72 61 63 65 20 24 76 61 6c 75 65 0a 20 20 20 trace $value.
1670: 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 62 }. {^-+b
1680: 69 6e 61 72 79 6c 6f 67 3d 2e 2b 24 7d 20 7b 0a inarylog=.+$} {.
1690: 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 foreach
16a0: 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 {dummy cmdlinear
16b0: 67 28 62 69 6e 61 72 79 6c 6f 67 29 7d 20 5b 73 g(binarylog)} [s
16c0: 70 6c 69 74 20 24 61 20 3d 5d 20 62 72 65 61 6b plit $a =] break
16d0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b . }. {
16e0: 5e 2d 2b 73 6f 61 6b 3d 2e 2b 24 7d 20 7b 0a 20 ^-+soak=.+$} {.
16f0: 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b foreach {
1700: 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 dummy cmdlinearg
1710: 28 73 6f 61 6b 29 7d 20 5b 73 70 6c 69 74 20 24 (soak)} [split $
1720: 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20 20 a =] break.
1730: 20 20 20 73 65 74 20 3a 3a 47 28 69 73 73 6f 61 set ::G(issoa
1740: 6b 29 20 24 63 6d 64 6c 69 6e 65 61 72 67 28 73 k) $cmdlinearg(s
1750: 6f 61 6b 29 0a 20 20 20 20 20 20 7d 0a 20 20 20 oak). }.
1760: 20 20 20 64 65 66 61 75 6c 74 20 7b 0a 20 20 20 default {.
1770: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 6c 65 66 lappend lef
1780: 74 6f 76 65 72 20 24 61 0a 20 20 20 20 20 20 7d tover $a. }
1790: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 65 74 . }. }. set
17a0: 20 61 72 67 76 20 24 6c 65 66 74 6f 76 65 72 0a argv $leftover.
17b0: 0a 20 20 23 20 49 6e 73 74 61 6c 6c 20 74 68 65 . # Install the
17c0: 20 6d 61 6c 6c 6f 63 20 6c 61 79 65 72 20 75 73 malloc layer us
17d0: 65 64 20 74 6f 20 69 6e 6a 65 63 74 20 4f 4f 4d ed to inject OOM
17e0: 20 65 72 72 6f 72 73 2e 20 41 6e 64 20 74 68 65 errors. And the
17f0: 20 27 61 75 74 6f 6d 61 74 69 63 27 0a 20 20 23 'automatic'. #
1800: 20 65 78 74 65 6e 73 69 6f 6e 73 2e 20 54 68 69 extensions. Thi
1810: 73 20 6f 6e 6c 79 20 6e 65 65 64 73 20 74 6f 20 s only needs to
1820: 62 65 20 64 6f 6e 65 20 6f 6e 63 65 20 66 6f 72 be done once for
1830: 20 74 68 65 20 70 72 6f 63 65 73 73 2e 0a 20 20 the process..
1840: 23 0a 20 20 73 71 6c 69 74 65 33 5f 73 68 75 74 #. sqlite3_shut
1850: 64 6f 77 6e 20 0a 20 20 69 6e 73 74 61 6c 6c 5f down . install_
1860: 6d 61 6c 6c 6f 63 5f 66 61 75 6c 74 73 69 6d 20 malloc_faultsim
1870: 31 20 0a 20 20 73 71 6c 69 74 65 33 5f 69 6e 69 1 . sqlite3_ini
1880: 74 69 61 6c 69 7a 65 0a 20 20 61 75 74 6f 69 6e tialize. autoin
1890: 73 74 61 6c 6c 5f 74 65 73 74 5f 66 75 6e 63 74 stall_test_funct
18a0: 69 6f 6e 73 0a 0a 20 20 23 20 49 66 20 74 68 65 ions.. # If the
18b0: 20 2d 2d 62 69 6e 61 72 79 6c 6f 67 20 6f 70 74 --binarylog opt
18c0: 69 6f 6e 20 77 61 73 20 73 70 65 63 69 66 69 65 ion was specifie
18d0: 64 2c 20 63 72 65 61 74 65 20 74 68 65 20 6c 6f d, create the lo
18e0: 67 67 69 6e 67 20 56 46 53 2e 20 54 68 69 73 0a gging VFS. This.
18f0: 20 20 23 20 63 61 6c 6c 20 69 6e 73 74 61 6c 6c # call install
1900: 73 20 74 68 65 20 6e 65 77 20 56 46 53 20 61 73 s the new VFS as
1910: 20 74 68 65 20 64 65 66 61 75 6c 74 20 66 6f 72 the default for
1920: 20 61 6c 6c 20 53 51 4c 69 74 65 20 63 6f 6e 6e all SQLite conn
1930: 65 63 74 69 6f 6e 73 2e 0a 20 20 23 0a 20 20 69 ections.. #. i
1940: 66 20 7b 24 63 6d 64 6c 69 6e 65 61 72 67 28 62 f {$cmdlinearg(b
1950: 69 6e 61 72 79 6c 6f 67 29 7d 20 7b 0a 20 20 20 inarylog)} {.
1960: 20 76 66 73 6c 6f 67 20 6e 65 77 20 62 69 6e 61 vfslog new bina
1970: 72 79 6c 6f 67 20 7b 7d 20 76 66 73 6c 6f 67 2e rylog {} vfslog.
1980: 62 69 6e 0a 20 20 7d 0a 0a 20 20 23 20 53 65 74 bin. }.. # Set
1990: 20 74 68 65 20 62 61 63 6b 74 72 61 63 65 20 64 the backtrace d
19a0: 65 70 74 68 2c 20 69 66 20 6d 61 6c 6c 6f 63 20 epth, if malloc
19b0: 74 72 61 63 69 6e 67 20 69 73 20 65 6e 61 62 6c tracing is enabl
19c0: 65 64 2e 0a 20 20 23 0a 20 20 69 66 20 7b 24 63 ed.. #. if {$c
19d0: 6d 64 6c 69 6e 65 61 72 67 28 6d 61 6c 6c 6f 63 mdlinearg(malloc
19e0: 74 72 61 63 65 29 7d 20 7b 0a 20 20 20 20 73 71 trace)} {. sq
19f0: 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 62 lite3_memdebug_b
1a00: 61 63 6b 74 72 61 63 65 20 24 63 6d 64 6c 69 6e acktrace $cmdlin
1a10: 65 61 72 67 28 62 61 63 6b 74 72 61 63 65 29 0a earg(backtrace).
1a20: 20 20 7d 0a 7d 0a 0a 23 20 55 70 64 61 74 65 20 }.}..# Update
1a30: 74 68 65 20 73 6f 66 74 2d 68 65 61 70 2d 6c 69 the soft-heap-li
1a40: 6d 69 74 20 65 61 63 68 20 74 69 6d 65 20 74 68 mit each time th
1a50: 69 73 20 73 63 72 69 70 74 20 69 73 20 72 75 6e is script is run
1a60: 2e 20 49 6e 20 74 68 61 74 0a 23 20 77 61 79 20 . In that.# way
1a70: 69 66 20 61 6e 20 69 6e 64 69 76 69 64 75 61 6c if an individual
1a80: 20 74 65 73 74 20 66 69 6c 65 20 63 68 61 6e 67 test file chang
1a90: 65 73 20 74 68 65 20 73 6f 66 74 2d 68 65 61 70 es the soft-heap
1aa0: 2d 6c 69 6d 69 74 2c 20 69 74 0a 23 20 77 69 6c -limit, it.# wil
1ab0: 6c 20 62 65 20 72 65 73 65 74 20 61 74 20 74 68 l be reset at th
1ac0: 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 6e e start of the n
1ad0: 65 78 74 20 74 65 73 74 20 66 69 6c 65 2e 0a 23 ext test file..#
1ae0: 0a 73 71 6c 69 74 65 33 5f 73 6f 66 74 5f 68 65 .sqlite3_soft_he
1af0: 61 70 5f 6c 69 6d 69 74 20 24 63 6d 64 6c 69 6e ap_limit $cmdlin
1b00: 65 61 72 67 28 73 6f 66 74 2d 68 65 61 70 2d 6c earg(soft-heap-l
1b10: 69 6d 69 74 29 0a 0a 23 20 43 72 65 61 74 65 20 imit)..# Create
1b20: 61 20 74 65 73 74 20 64 61 74 61 62 61 73 65 0a a test database.
1b30: 23 0a 70 72 6f 63 20 72 65 73 65 74 5f 64 62 20 #.proc reset_db
1b40: 7b 7d 20 7b 0a 20 20 63 61 74 63 68 20 7b 64 62 {} {. catch {db
1b50: 20 63 6c 6f 73 65 7d 0a 20 20 66 69 6c 65 20 64 close}. file d
1b60: 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 74 65 73 elete -force tes
1b70: 74 2e 64 62 0a 20 20 66 69 6c 65 20 64 65 6c 65 t.db. file dele
1b80: 74 65 20 2d 66 6f 72 63 65 20 74 65 73 74 2e 64 te -force test.d
1b90: 62 2d 6a 6f 75 72 6e 61 6c 0a 20 20 66 69 6c 65 b-journal. file
1ba0: 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 74 delete -force t
1bb0: 65 73 74 2e 64 62 2d 77 61 6c 0a 20 20 73 71 6c est.db-wal. sql
1bc0: 69 74 65 33 20 64 62 20 2e 2f 74 65 73 74 2e 64 ite3 db ./test.d
1bd0: 62 0a 20 20 73 65 74 20 3a 3a 44 42 20 5b 73 71 b. set ::DB [sq
1be0: 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e lite3_connection
1bf0: 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 20 20 69 _pointer db]. i
1c00: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 f {[info exists
1c10: 3a 3a 53 45 54 55 50 5f 53 51 4c 5d 7d 20 7b 0a ::SETUP_SQL]} {.
1c20: 20 20 20 20 64 62 20 65 76 61 6c 20 24 3a 3a 53 db eval $::S
1c30: 45 54 55 50 5f 53 51 4c 0a 20 20 7d 0a 7d 0a 72 ETUP_SQL. }.}.r
1c40: 65 73 65 74 5f 64 62 0a 0a 23 20 41 62 6f 72 74 eset_db..# Abort
1c50: 20 65 61 72 6c 79 20 69 66 20 74 68 69 73 20 73 early if this s
1c60: 63 72 69 70 74 20 68 61 73 20 62 65 65 6e 20 72 cript has been r
1c70: 75 6e 20 62 65 66 6f 72 65 2e 0a 23 0a 69 66 20 un before..#.if
1c80: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 54 43 {[info exists TC
1c90: 28 63 6f 75 6e 74 29 5d 7d 20 72 65 74 75 72 6e (count)]} return
1ca0: 0a 0a 23 20 4d 61 6b 65 20 73 75 72 65 20 6d 65 ..# Make sure me
1cb0: 6d 6f 72 79 20 73 74 61 74 69 73 74 69 63 73 20 mory statistics
1cc0: 61 72 65 20 65 6e 61 62 6c 65 64 2e 0a 23 0a 73 are enabled..#.s
1cd0: 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 5f 6d 65 qlite3_config_me
1ce0: 6d 73 74 61 74 75 73 20 31 0a 0a 23 20 49 6e 69 mstatus 1..# Ini
1cf0: 74 69 61 6c 69 7a 65 20 74 68 65 20 74 65 73 74 tialize the test
1d00: 20 63 6f 75 6e 74 65 72 73 20 61 6e 64 20 73 65 counters and se
1d10: 74 20 75 70 20 63 6f 6d 6d 61 6e 64 73 20 74 6f t up commands to
1d20: 20 61 63 63 65 73 73 20 74 68 65 6d 2e 0a 23 20 access them..#
1d30: 4f 72 2c 20 69 66 20 74 68 69 73 20 69 73 20 61 Or, if this is a
1d40: 20 73 6c 61 76 65 20 69 6e 74 65 72 70 72 65 74 slave interpret
1d50: 65 72 2c 20 73 65 74 20 75 70 20 61 6c 69 61 73 er, set up alias
1d60: 65 73 20 74 6f 20 77 72 69 74 65 20 74 68 65 0a es to write the.
1d70: 23 20 63 6f 75 6e 74 65 72 73 20 69 6e 20 74 68 # counters in th
1d80: 65 20 70 61 72 65 6e 74 20 69 6e 74 65 72 70 72 e parent interpr
1d90: 65 74 65 72 2e 0a 23 0a 69 66 20 7b 30 3d 3d 5b eter..#.if {0==[
1da0: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 53 4c info exists ::SL
1db0: 41 56 45 5d 7d 20 7b 0a 20 20 73 65 74 20 54 43 AVE]} {. set TC
1dc0: 28 65 72 72 6f 72 73 29 20 20 20 20 30 0a 20 20 (errors) 0.
1dd0: 73 65 74 20 54 43 28 63 6f 75 6e 74 29 20 20 20 set TC(count)
1de0: 20 20 30 0a 20 20 73 65 74 20 54 43 28 66 61 69 0. set TC(fai
1df0: 6c 5f 6c 69 73 74 29 20 5b 6c 69 73 74 5d 0a 20 l_list) [list].
1e00: 20 73 65 74 20 54 43 28 6f 6d 69 74 5f 6c 69 73 set TC(omit_lis
1e10: 74 29 20 5b 6c 69 73 74 5d 0a 0a 20 20 70 72 6f t) [list].. pro
1e20: 63 20 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 c set_test_count
1e30: 65 72 20 7b 63 6f 75 6e 74 65 72 20 61 72 67 73 er {counter args
1e40: 7d 20 7b 0a 20 20 20 20 69 66 20 7b 5b 6c 6c 65 } {. if {[lle
1e50: 6e 67 74 68 20 24 61 72 67 73 5d 7d 20 7b 0a 20 ngth $args]} {.
1e60: 20 20 20 20 20 73 65 74 20 3a 3a 54 43 28 24 63 set ::TC($c
1e70: 6f 75 6e 74 65 72 29 20 5b 6c 69 6e 64 65 78 20 ounter) [lindex
1e80: 24 61 72 67 73 20 30 5d 0a 20 20 20 20 7d 0a 20 $args 0]. }.
1e90: 20 20 20 73 65 74 20 3a 3a 54 43 28 24 63 6f 75 set ::TC($cou
1ea0: 6e 74 65 72 29 0a 20 20 7d 0a 7d 0a 0a 23 20 52 nter). }.}..# R
1eb0: 65 63 6f 72 64 20 74 68 65 20 66 61 63 74 20 74 ecord the fact t
1ec0: 68 61 74 20 61 20 73 65 71 75 65 6e 63 65 20 6f hat a sequence o
1ed0: 66 20 74 65 73 74 73 20 77 65 72 65 20 6f 6d 69 f tests were omi
1ee0: 74 74 65 64 2e 0a 23 0a 70 72 6f 63 20 6f 6d 69 tted..#.proc omi
1ef0: 74 5f 74 65 73 74 20 7b 6e 61 6d 65 20 72 65 61 t_test {name rea
1f00: 73 6f 6e 7d 20 7b 0a 20 20 73 65 74 20 6f 6d 69 son} {. set omi
1f10: 74 4c 69 73 74 20 5b 73 65 74 5f 74 65 73 74 5f tList [set_test_
1f20: 63 6f 75 6e 74 65 72 20 6f 6d 69 74 5f 6c 69 73 counter omit_lis
1f30: 74 5d 0a 20 20 6c 61 70 70 65 6e 64 20 6f 6d 69 t]. lappend omi
1f40: 74 4c 69 73 74 20 5b 6c 69 73 74 20 24 6e 61 6d tList [list $nam
1f50: 65 20 24 72 65 61 73 6f 6e 5d 0a 20 20 73 65 74 e $reason]. set
1f60: 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 6f 6d _test_counter om
1f70: 69 74 5f 6c 69 73 74 20 24 6f 6d 69 74 4c 69 73 it_list $omitLis
1f80: 74 0a 7d 0a 0a 23 20 52 65 63 6f 72 64 20 74 68 t.}..# Record th
1f90: 65 20 66 61 63 74 20 74 68 61 74 20 61 20 74 65 e fact that a te
1fa0: 73 74 20 66 61 69 6c 65 64 2e 0a 23 0a 70 72 6f st failed..#.pro
1fb0: 63 20 66 61 69 6c 5f 74 65 73 74 20 7b 6e 61 6d c fail_test {nam
1fc0: 65 7d 20 7b 0a 20 20 73 65 74 20 66 20 5b 73 65 e} {. set f [se
1fd0: 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 66 t_test_counter f
1fe0: 61 69 6c 5f 6c 69 73 74 5d 0a 20 20 6c 61 70 70 ail_list]. lapp
1ff0: 65 6e 64 20 66 20 24 6e 61 6d 65 0a 20 20 73 65 end f $name. se
2000: 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 66 t_test_counter f
2010: 61 69 6c 5f 6c 69 73 74 20 24 66 0a 20 20 73 65 ail_list $f. se
2020: 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 65 t_test_counter e
2030: 72 72 6f 72 73 20 5b 65 78 70 72 20 5b 73 65 74 rrors [expr [set
2040: 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 65 72 _test_counter er
2050: 72 6f 72 73 5d 20 2b 20 31 5d 0a 0a 20 20 73 65 rors] + 1].. se
2060: 74 20 6e 46 61 69 6c 20 5b 73 65 74 5f 74 65 73 t nFail [set_tes
2070: 74 5f 63 6f 75 6e 74 65 72 20 65 72 72 6f 72 73 t_counter errors
2080: 5d 0a 20 20 69 66 20 7b 24 6e 46 61 69 6c 3e 3d ]. if {$nFail>=
2090: 24 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 $::cmdlinearg(ma
20a0: 78 65 72 72 6f 72 29 7d 20 7b 0a 20 20 20 20 70 xerror)} {. p
20b0: 75 74 73 20 22 2a 2a 2a 20 47 69 76 69 6e 67 20 uts "*** Giving
20c0: 75 70 2e 2e 2e 22 0a 20 20 20 20 66 69 6e 61 6c up...". final
20d0: 69 7a 65 5f 74 65 73 74 69 6e 67 0a 20 20 7d 0a ize_testing. }.
20e0: 7d 0a 0a 23 20 49 6e 63 72 65 6d 65 6e 74 20 74 }..# Increment t
20f0: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 74 65 73 he number of tes
2100: 74 73 20 72 75 6e 0a 23 0a 70 72 6f 63 20 69 6e ts run.#.proc in
2110: 63 72 5f 6e 74 65 73 74 20 7b 7d 20 7b 0a 20 20 cr_ntest {} {.
2120: 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 set_test_counter
2130: 20 63 6f 75 6e 74 20 5b 65 78 70 72 20 5b 73 65 count [expr [se
2140: 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 63 t_test_counter c
2150: 6f 75 6e 74 5d 20 2b 20 31 5d 0a 7d 0a 0a 0a 23 ount] + 1].}...#
2160: 20 49 6e 76 6f 6b 65 20 74 68 65 20 64 6f 5f 74 Invoke the do_t
2170: 65 73 74 20 70 72 6f 63 65 64 75 72 65 20 74 6f est procedure to
2180: 20 72 75 6e 20 61 20 73 69 6e 67 6c 65 20 74 65 run a single te
2190: 73 74 20 0a 23 0a 70 72 6f 63 20 64 6f 5f 74 65 st .#.proc do_te
21a0: 73 74 20 7b 6e 61 6d 65 20 63 6d 64 20 65 78 70 st {name cmd exp
21b0: 65 63 74 65 64 7d 20 7b 0a 0a 20 20 67 6c 6f 62 ected} {.. glob
21c0: 61 6c 20 61 72 67 76 20 63 6d 64 6c 69 6e 65 61 al argv cmdlinea
21d0: 72 67 0a 0a 20 20 73 71 6c 69 74 65 33 5f 6d 65 rg.. sqlite3_me
21e0: 6d 64 65 62 75 67 5f 73 65 74 74 69 74 6c 65 20 mdebug_settitle
21f0: 24 6e 61 6d 65 0a 0a 23 20 20 69 66 20 7b 5b 6c $name..# if {[l
2200: 6c 65 6e 67 74 68 20 24 61 72 67 76 5d 3d 3d 30 length $argv]==0
2210: 7d 20 7b 20 0a 23 20 20 20 20 73 65 74 20 67 6f } { .# set go
2220: 20 31 0a 23 20 20 7d 20 65 6c 73 65 20 7b 0a 23 1.# } else {.#
2230: 20 20 20 20 73 65 74 20 67 6f 20 30 0a 23 20 20 set go 0.#
2240: 20 20 66 6f 72 65 61 63 68 20 70 61 74 74 65 72 foreach patter
2250: 6e 20 24 61 72 67 76 20 7b 0a 23 20 20 20 20 20 n $argv {.#
2260: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 if {[string mat
2270: 63 68 20 24 70 61 74 74 65 72 6e 20 24 6e 61 6d ch $pattern $nam
2280: 65 5d 7d 20 7b 0a 23 20 20 20 20 20 20 20 20 73 e]} {.# s
2290: 65 74 20 67 6f 20 31 0a 23 20 20 20 20 20 20 20 et go 1.#
22a0: 20 62 72 65 61 6b 0a 23 20 20 20 20 20 20 7d 0a break.# }.
22b0: 23 20 20 20 20 7d 0a 23 20 20 7d 0a 0a 20 20 69 # }.# }.. i
22c0: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 f {[info exists
22d0: 3a 3a 47 28 70 65 72 6d 3a 70 72 65 66 69 78 29 ::G(perm:prefix)
22e0: 5d 7d 20 7b 0a 20 20 20 20 73 65 74 20 6e 61 6d ]} {. set nam
22f0: 65 20 22 24 3a 3a 47 28 70 65 72 6d 3a 70 72 65 e "$::G(perm:pre
2300: 66 69 78 29 24 6e 61 6d 65 22 0a 20 20 7d 0a 0a fix)$name". }..
2310: 20 20 69 6e 63 72 5f 6e 74 65 73 74 0a 20 20 70 incr_ntest. p
2320: 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 24 uts -nonewline $
2330: 6e 61 6d 65 2e 2e 2e 0a 20 20 66 6c 75 73 68 20 name.... flush
2340: 73 74 64 6f 75 74 0a 20 20 69 66 20 7b 5b 63 61 stdout. if {[ca
2350: 74 63 68 20 7b 75 70 6c 65 76 65 6c 20 23 30 20 tch {uplevel #0
2360: 22 24 63 6d 64 3b 5c 6e 22 7d 20 72 65 73 75 6c "$cmd;\n"} resul
2370: 74 5d 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22 t]} {. puts "
2380: 5c 6e 45 72 72 6f 72 3a 20 24 72 65 73 75 6c 74 \nError: $result
2390: 22 0a 20 20 20 20 66 61 69 6c 5f 74 65 73 74 20 ". fail_test
23a0: 24 6e 61 6d 65 0a 20 20 7d 20 65 6c 73 65 69 66 $name. } elseif
23b0: 20 7b 5b 73 74 72 69 6e 67 20 63 6f 6d 70 61 72 {[string compar
23c0: 65 20 24 72 65 73 75 6c 74 20 24 65 78 70 65 63 e $result $expec
23d0: 74 65 64 5d 7d 20 7b 0a 20 20 20 20 70 75 74 73 ted]} {. puts
23e0: 20 22 5c 6e 45 78 70 65 63 74 65 64 3a 20 5c 5b "\nExpected: \[
23f0: 24 65 78 70 65 63 74 65 64 5c 5d 5c 6e 20 20 20 $expected\]\n
2400: 20 20 47 6f 74 3a 20 5c 5b 24 72 65 73 75 6c 74 Got: \[$result
2410: 5c 5d 22 0a 20 20 20 20 66 61 69 6c 5f 74 65 73 \]". fail_tes
2420: 74 20 24 6e 61 6d 65 0a 20 20 7d 20 65 6c 73 65 t $name. } else
2430: 20 7b 0a 20 20 20 20 70 75 74 73 20 22 20 4f 6b {. puts " Ok
2440: 22 0a 20 20 7d 0a 20 20 66 6c 75 73 68 20 73 74 ". }. flush st
2450: 64 6f 75 74 0a 7d 0a 0a 70 72 6f 63 20 66 69 78 dout.}..proc fix
2460: 5f 74 65 73 74 6e 61 6d 65 20 7b 76 61 72 6e 61 _testname {varna
2470: 6d 65 7d 20 7b 0a 20 20 75 70 76 61 72 20 24 76 me} {. upvar $v
2480: 61 72 6e 61 6d 65 20 74 65 73 74 6e 61 6d 65 0a arname testname.
2490: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 if {[info exis
24a0: 74 73 20 3a 3a 74 65 73 74 70 72 65 66 69 78 5d ts ::testprefix]
24b0: 20 0a 20 20 20 26 26 20 5b 73 74 72 69 6e 67 20 . && [string
24c0: 69 73 20 64 69 67 69 74 20 5b 73 74 72 69 6e 67 is digit [string
24d0: 20 72 61 6e 67 65 20 24 74 65 73 74 6e 61 6d 65 range $testname
24e0: 20 30 20 30 5d 5d 0a 20 20 7d 20 7b 0a 20 20 20 0 0]]. } {.
24f0: 20 73 65 74 20 74 65 73 74 6e 61 6d 65 20 22 24 set testname "$
2500: 7b 3a 3a 74 65 73 74 70 72 65 66 69 78 7d 2d 24 {::testprefix}-$
2510: 74 65 73 74 6e 61 6d 65 22 0a 20 20 7d 0a 7d 0a testname". }.}.
2520: 20 20 20 20 0a 70 72 6f 63 20 64 6f 5f 65 78 65 .proc do_exe
2530: 63 73 71 6c 5f 74 65 73 74 20 7b 74 65 73 74 6e csql_test {testn
2540: 61 6d 65 20 73 71 6c 20 7b 72 65 73 75 6c 74 20 ame sql {result
2550: 7b 7d 7d 7d 20 7b 0a 20 20 66 69 78 5f 74 65 73 {}}} {. fix_tes
2560: 74 6e 61 6d 65 20 74 65 73 74 6e 61 6d 65 0a 20 tname testname.
2570: 20 75 70 6c 65 76 65 6c 20 64 6f 5f 74 65 73 74 uplevel do_test
2580: 20 24 74 65 73 74 6e 61 6d 65 20 5b 6c 69 73 74 $testname [list
2590: 20 22 65 78 65 63 73 71 6c 20 7b 24 73 71 6c 7d "execsql {$sql}
25a0: 22 5d 20 5b 6c 69 73 74 20 24 72 65 73 75 6c 74 "] [list $result
25b0: 5d 0a 7d 0a 70 72 6f 63 20 64 6f 5f 63 61 74 63 ].}.proc do_catc
25c0: 68 73 71 6c 5f 74 65 73 74 20 7b 74 65 73 74 6e hsql_test {testn
25d0: 61 6d 65 20 73 71 6c 20 72 65 73 75 6c 74 7d 20 ame sql result}
25e0: 7b 0a 20 20 66 69 78 5f 74 65 73 74 6e 61 6d 65 {. fix_testname
25f0: 20 74 65 73 74 6e 61 6d 65 0a 20 20 75 70 6c 65 testname. uple
2600: 76 65 6c 20 64 6f 5f 74 65 73 74 20 24 74 65 73 vel do_test $tes
2610: 74 6e 61 6d 65 20 5b 6c 69 73 74 20 22 63 61 74 tname [list "cat
2620: 63 68 73 71 6c 20 7b 24 73 71 6c 7d 22 5d 20 5b chsql {$sql}"] [
2630: 6c 69 73 74 20 24 72 65 73 75 6c 74 5d 0a 7d 0a list $result].}.
2640: 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .#--------------
2650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 20 20 -----------.#
2690: 55 73 61 67 65 3a 20 64 6f 5f 73 65 6c 65 63 74 Usage: do_select
26a0: 5f 74 65 73 74 73 20 50 52 45 46 49 58 20 3f 53 _tests PREFIX ?S
26b0: 57 49 54 43 48 45 53 3f 20 54 45 53 54 4c 49 53 WITCHES? TESTLIS
26c0: 54 0a 23 0a 23 20 57 68 65 72 65 20 73 77 69 74 T.#.# Where swit
26d0: 63 68 65 73 20 61 72 65 3a 0a 23 0a 23 20 20 20 ches are:.#.#
26e0: 2d 65 72 72 6f 72 66 6f 72 6d 61 74 20 46 4d 54 -errorformat FMT
26f0: 53 54 52 49 4e 47 0a 23 20 20 20 2d 63 6f 75 6e STRING.# -coun
2700: 74 0a 23 20 20 20 2d 71 75 65 72 79 20 53 51 4c t.# -query SQL
2710: 0a 23 20 20 20 2d 74 63 6c 71 75 65 72 79 20 54 .# -tclquery T
2720: 43 4c 0a 23 20 20 20 2d 72 65 70 61 69 72 20 54 CL.# -repair T
2730: 43 4c 0a 23 0a 70 72 6f 63 20 64 6f 5f 73 65 6c CL.#.proc do_sel
2740: 65 63 74 5f 74 65 73 74 73 20 7b 70 72 65 66 69 ect_tests {prefi
2750: 78 20 61 72 67 73 7d 20 7b 0a 0a 20 20 73 65 74 x args} {.. set
2760: 20 74 65 73 74 6c 69 73 74 20 5b 6c 69 6e 64 65 testlist [linde
2770: 78 20 24 61 72 67 73 20 65 6e 64 5d 0a 20 20 73 x $args end]. s
2780: 65 74 20 73 77 69 74 63 68 65 73 20 5b 6c 72 61 et switches [lra
2790: 6e 67 65 20 24 61 72 67 73 20 30 20 65 6e 64 2d nge $args 0 end-
27a0: 31 5d 0a 0a 20 20 73 65 74 20 65 72 72 66 6d 74 1].. set errfmt
27b0: 20 22 22 0a 20 20 73 65 74 20 63 6f 75 6e 74 6f "". set counto
27c0: 6e 6c 79 20 30 0a 20 20 73 65 74 20 74 63 6c 71 nly 0. set tclq
27d0: 75 65 72 79 20 22 22 0a 20 20 73 65 74 20 72 65 uery "". set re
27e0: 70 61 69 72 20 22 22 0a 0a 20 20 66 6f 72 20 7b pair "".. for {
27f0: 73 65 74 20 69 20 30 7d 20 7b 24 69 20 3c 20 5b set i 0} {$i < [
2800: 6c 6c 65 6e 67 74 68 20 24 73 77 69 74 63 68 65 llength $switche
2810: 73 5d 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 s]} {incr i} {.
2820: 20 20 20 73 65 74 20 73 20 5b 6c 69 6e 64 65 78 set s [lindex
2830: 20 24 73 77 69 74 63 68 65 73 20 24 69 5d 0a 20 $switches $i].
2840: 20 20 20 73 65 74 20 6e 20 5b 73 74 72 69 6e 67 set n [string
2850: 20 6c 65 6e 67 74 68 20 24 73 5d 0a 20 20 20 20 length $s].
2860: 69 66 20 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74 if {$n>=2 && [st
2870: 72 69 6e 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67 ring equal -leng
2880: 74 68 20 24 6e 20 24 73 20 22 2d 71 75 65 72 79 th $n $s "-query
2890: 22 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 "]} {. set
28a0: 74 63 6c 71 75 65 72 79 20 5b 6c 69 73 74 20 65 tclquery [list e
28b0: 78 65 63 73 71 6c 20 5b 6c 69 6e 64 65 78 20 24 xecsql [lindex $
28c0: 73 77 69 74 63 68 65 73 20 5b 69 6e 63 72 20 69 switches [incr i
28d0: 5d 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66 ]]]. } elseif
28e0: 20 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69 {$n>=2 && [stri
28f0: 6e 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68 ng equal -length
2900: 20 24 6e 20 24 73 20 22 2d 74 63 6c 71 75 65 72 $n $s "-tclquer
2910: 79 22 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 y"]} {. set
2920: 20 74 63 6c 71 75 65 72 79 20 5b 6c 69 6e 64 65 tclquery [linde
2930: 78 20 24 73 77 69 74 63 68 65 73 20 5b 69 6e 63 x $switches [inc
2940: 72 20 69 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65 r i]]. } else
2950: 69 66 20 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74 if {$n>=2 && [st
2960: 72 69 6e 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67 ring equal -leng
2970: 74 68 20 24 6e 20 24 73 20 22 2d 65 72 72 6f 72 th $n $s "-error
2980: 66 6f 72 6d 61 74 22 5d 7d 20 7b 0a 20 20 20 20 format"]} {.
2990: 20 20 73 65 74 20 65 72 72 66 6d 74 20 5b 6c 69 set errfmt [li
29a0: 6e 64 65 78 20 24 73 77 69 74 63 68 65 73 20 5b ndex $switches [
29b0: 69 6e 63 72 20 69 5d 5d 0a 20 20 20 20 7d 20 65 incr i]]. } e
29c0: 6c 73 65 69 66 20 7b 24 6e 3e 3d 32 20 26 26 20 lseif {$n>=2 &&
29d0: 5b 73 74 72 69 6e 67 20 65 71 75 61 6c 20 2d 6c [string equal -l
29e0: 65 6e 67 74 68 20 24 6e 20 24 73 20 22 2d 72 65 ength $n $s "-re
29f0: 70 61 69 72 22 5d 7d 20 7b 0a 20 20 20 20 20 20 pair"]} {.
2a00: 73 65 74 20 72 65 70 61 69 72 20 5b 6c 69 6e 64 set repair [lind
2a10: 65 78 20 24 73 77 69 74 63 68 65 73 20 5b 69 6e ex $switches [in
2a20: 63 72 20 69 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 cr i]]. } els
2a30: 65 69 66 20 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 eif {$n>=2 && [s
2a40: 74 72 69 6e 67 20 65 71 75 61 6c 20 2d 6c 65 6e tring equal -len
2a50: 67 74 68 20 24 6e 20 24 73 20 22 2d 63 6f 75 6e gth $n $s "-coun
2a60: 74 22 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 t"]} {. set
2a70: 20 63 6f 75 6e 74 6f 6e 6c 79 20 31 0a 20 20 20 countonly 1.
2a80: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 } else {.
2a90: 65 72 72 6f 72 20 22 75 6e 6b 6e 6f 77 6e 20 73 error "unknown s
2aa0: 77 69 74 63 68 3a 20 24 73 22 0a 20 20 20 20 7d witch: $s". }
2ab0: 0a 20 20 7d 0a 0a 20 20 69 66 20 7b 24 63 6f 75 . }.. if {$cou
2ac0: 6e 74 6f 6e 6c 79 20 26 26 20 24 65 72 72 66 6d ntonly && $errfm
2ad0: 74 21 3d 22 22 7d 20 7b 0a 20 20 20 20 65 72 72 t!=""} {. err
2ae0: 6f 72 20 22 43 61 6e 6e 6f 74 20 75 73 65 20 2d or "Cannot use -
2af0: 63 6f 75 6e 74 20 61 6e 64 20 2d 65 72 72 6f 72 count and -error
2b00: 66 6f 72 6d 61 74 20 74 6f 67 65 74 68 65 72 22 format together"
2b10: 0a 20 20 7d 0a 20 20 73 65 74 20 6e 54 65 73 74 . }. set nTest
2b20: 6c 69 73 74 20 5b 6c 6c 65 6e 67 74 68 20 24 74 list [llength $t
2b30: 65 73 74 6c 69 73 74 5d 0a 20 20 69 66 20 7b 24 estlist]. if {$
2b40: 6e 54 65 73 74 6c 69 73 74 25 33 20 7c 7c 20 24 nTestlist%3 || $
2b50: 6e 54 65 73 74 6c 69 73 74 3d 3d 30 20 7d 20 7b nTestlist==0 } {
2b60: 0a 20 20 20 20 65 72 72 6f 72 20 22 53 45 4c 45 . error "SELE
2b70: 43 54 20 74 65 73 74 20 6c 69 73 74 20 63 6f 6e CT test list con
2b80: 74 61 69 6e 73 20 5b 6c 6c 65 6e 67 74 68 20 24 tains [llength $
2b90: 74 65 73 74 6c 69 73 74 5d 20 65 6c 65 6d 65 6e testlist] elemen
2ba0: 74 73 22 0a 20 20 7d 0a 0a 20 20 65 76 61 6c 20 ts". }.. eval
2bb0: 24 72 65 70 61 69 72 0a 20 20 66 6f 72 65 61 63 $repair. foreac
2bc0: 68 20 7b 74 6e 20 73 71 6c 20 72 65 73 7d 20 24 h {tn sql res} $
2bd0: 74 65 73 74 6c 69 73 74 20 7b 0a 20 20 20 20 69 testlist {. i
2be0: 66 20 7b 24 74 63 6c 71 75 65 72 79 20 21 3d 20 f {$tclquery !=
2bf0: 22 22 7d 20 7b 0a 20 20 20 20 20 20 65 78 65 63 ""} {. exec
2c00: 73 71 6c 20 24 73 71 6c 0a 20 20 20 20 20 20 75 sql $sql. u
2c10: 70 6c 65 76 65 6c 20 64 6f 5f 74 65 73 74 20 24 plevel do_test $
2c20: 7b 70 72 65 66 69 78 7d 2e 24 74 6e 20 5b 6c 69 {prefix}.$tn [li
2c30: 73 74 20 24 74 63 6c 71 75 65 72 79 5d 20 5b 6c st $tclquery] [l
2c40: 69 73 74 20 5b 6c 69 73 74 20 7b 2a 7d 24 72 65 ist [list {*}$re
2c50: 73 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66 s]]. } elseif
2c60: 20 7b 24 63 6f 75 6e 74 6f 6e 6c 79 7d 20 7b 0a {$countonly} {.
2c70: 20 20 20 20 20 20 73 65 74 20 6e 52 6f 77 20 30 set nRow 0
2c80: 0a 20 20 20 20 20 20 64 62 20 65 76 61 6c 20 24 . db eval $
2c90: 73 71 6c 20 7b 69 6e 63 72 20 6e 52 6f 77 7d 0a sql {incr nRow}.
2ca0: 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20 64 6f uplevel do
2cb0: 5f 74 65 73 74 20 24 7b 70 72 65 66 69 78 7d 2e _test ${prefix}.
2cc0: 24 74 6e 20 5b 6c 69 73 74 20 5b 6c 69 73 74 20 $tn [list [list
2cd0: 73 65 74 20 7b 7d 20 24 6e 52 6f 77 5d 5d 20 5b set {} $nRow]] [
2ce0: 6c 69 73 74 20 24 72 65 73 5d 0a 20 20 20 20 7d list $res]. }
2cf0: 20 65 6c 73 65 69 66 20 7b 24 65 72 72 66 6d 74 elseif {$errfmt
2d00: 3d 3d 22 22 7d 20 7b 0a 20 20 20 20 20 20 75 70 ==""} {. up
2d10: 6c 65 76 65 6c 20 64 6f 5f 65 78 65 63 73 71 6c level do_execsql
2d20: 5f 74 65 73 74 20 24 7b 70 72 65 66 69 78 7d 2e _test ${prefix}.
2d30: 24 7b 74 6e 7d 20 5b 6c 69 73 74 20 24 73 71 6c ${tn} [list $sql
2d40: 5d 20 5b 6c 69 73 74 20 5b 6c 69 73 74 20 7b 2a ] [list [list {*
2d50: 7d 24 72 65 73 5d 5d 0a 20 20 20 20 7d 20 65 6c }$res]]. } el
2d60: 73 65 20 7b 0a 20 20 20 20 20 20 73 65 74 20 72 se {. set r
2d70: 65 73 20 5b 6c 69 73 74 20 31 20 5b 73 74 72 69 es [list 1 [stri
2d80: 6e 67 20 74 72 69 6d 20 5b 66 6f 72 6d 61 74 20 ng trim [format
2d90: 24 65 72 72 66 6d 74 20 7b 2a 7d 24 72 65 73 5d $errfmt {*}$res]
2da0: 5d 5d 0a 20 20 20 20 20 20 75 70 6c 65 76 65 6c ]]. uplevel
2db0: 20 64 6f 5f 63 61 74 63 68 73 71 6c 5f 74 65 73 do_catchsql_tes
2dc0: 74 20 24 7b 70 72 65 66 69 78 7d 2e 24 7b 74 6e t ${prefix}.${tn
2dd0: 7d 20 5b 6c 69 73 74 20 24 73 71 6c 5d 20 5b 6c } [list $sql] [l
2de0: 69 73 74 20 24 72 65 73 5d 0a 20 20 20 20 7d 0a ist $res]. }.
2df0: 20 20 20 20 65 76 61 6c 20 24 72 65 70 61 69 72 eval $repair
2e00: 0a 20 20 7d 0a 0a 7d 0a 0a 70 72 6f 63 20 64 65 . }..}..proc de
2e10: 6c 65 74 65 5f 61 6c 6c 5f 64 61 74 61 20 7b 7d lete_all_data {}
2e20: 20 7b 0a 20 20 64 62 20 65 76 61 6c 20 7b 53 45 {. db eval {SE
2e30: 4c 45 43 54 20 74 62 6c 5f 6e 61 6d 65 20 41 53 LECT tbl_name AS
2e40: 20 74 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d t FROM sqlite_m
2e50: 61 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65 aster WHERE type
2e60: 20 3d 20 27 74 61 62 6c 65 27 7d 20 7b 0a 20 20 = 'table'} {.
2e70: 20 20 64 62 20 65 76 61 6c 20 22 44 45 4c 45 54 db eval "DELET
2e80: 45 20 46 52 4f 4d 20 27 5b 73 74 72 69 6e 67 20 E FROM '[string
2e90: 6d 61 70 20 7b 27 20 27 27 7d 20 24 74 5d 27 22 map {' ''} $t]'"
2ea0: 0a 20 20 7d 0a 7d 0a 0a 23 20 52 75 6e 20 61 6e . }.}..# Run an
2eb0: 20 53 51 4c 20 73 63 72 69 70 74 2e 20 20 0a 23 SQL script. .#
2ec0: 20 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 Return the numb
2ed0: 65 72 20 6f 66 20 6d 69 63 72 6f 73 65 63 6f 6e er of microsecon
2ee0: 64 73 20 70 65 72 20 73 74 61 74 65 6d 65 6e 74 ds per statement
2ef0: 2e 0a 23 0a 70 72 6f 63 20 73 70 65 65 64 5f 74 ..#.proc speed_t
2f00: 72 69 61 6c 20 7b 6e 61 6d 65 20 6e 75 6d 73 74 rial {name numst
2f10: 6d 74 20 75 6e 69 74 73 20 73 71 6c 7d 20 7b 0a mt units sql} {.
2f20: 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e puts -nonewlin
2f30: 65 20 5b 66 6f 72 6d 61 74 20 7b 25 2d 32 31 2e e [format {%-21.
2f40: 32 31 73 20 7d 20 24 6e 61 6d 65 2e 2e 2e 5d 0a 21s } $name...].
2f50: 20 20 66 6c 75 73 68 20 73 74 64 6f 75 74 0a 20 flush stdout.
2f60: 20 73 65 74 20 73 70 65 65 64 20 5b 74 69 6d 65 set speed [time
2f70: 20 7b 73 71 6c 69 74 65 33 5f 65 78 65 63 5f 6e {sqlite3_exec_n
2f80: 72 20 64 62 20 24 73 71 6c 7d 5d 0a 20 20 73 65 r db $sql}]. se
2f90: 74 20 74 6d 20 5b 6c 69 6e 64 65 78 20 24 73 70 t tm [lindex $sp
2fa0: 65 65 64 20 30 5d 0a 20 20 69 66 20 7b 24 74 6d eed 0]. if {$tm
2fb0: 20 3d 3d 20 30 7d 20 7b 0a 20 20 20 20 73 65 74 == 0} {. set
2fc0: 20 72 61 74 65 20 5b 66 6f 72 6d 61 74 20 25 32 rate [format %2
2fd0: 30 73 20 22 6d 61 6e 79 22 5d 0a 20 20 7d 20 65 0s "many"]. } e
2fe0: 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20 72 61 lse {. set ra
2ff0: 74 65 20 5b 66 6f 72 6d 61 74 20 25 32 30 2e 35 te [format %20.5
3000: 66 20 5b 65 78 70 72 20 7b 31 30 30 30 30 30 30 f [expr {1000000
3010: 2e 30 2a 24 6e 75 6d 73 74 6d 74 2f 24 74 6d 7d .0*$numstmt/$tm}
3020: 5d 5d 0a 20 20 7d 0a 20 20 73 65 74 20 75 32 20 ]]. }. set u2
3030: 24 75 6e 69 74 73 2f 73 0a 20 20 70 75 74 73 20 $units/s. puts
3040: 5b 66 6f 72 6d 61 74 20 7b 25 31 32 64 20 75 53 [format {%12d uS
3050: 20 25 73 20 25 73 7d 20 24 74 6d 20 24 72 61 74 %s %s} $tm $rat
3060: 65 20 24 75 32 5d 0a 20 20 67 6c 6f 62 61 6c 20 e $u2]. global
3070: 74 6f 74 61 6c 5f 74 69 6d 65 0a 20 20 73 65 74 total_time. set
3080: 20 74 6f 74 61 6c 5f 74 69 6d 65 20 5b 65 78 70 total_time [exp
3090: 72 20 7b 24 74 6f 74 61 6c 5f 74 69 6d 65 2b 24 r {$total_time+$
30a0: 74 6d 7d 5d 0a 7d 0a 70 72 6f 63 20 73 70 65 65 tm}].}.proc spee
30b0: 64 5f 74 72 69 61 6c 5f 74 63 6c 20 7b 6e 61 6d d_trial_tcl {nam
30c0: 65 20 6e 75 6d 73 74 6d 74 20 75 6e 69 74 73 20 e numstmt units
30d0: 73 63 72 69 70 74 7d 20 7b 0a 20 20 70 75 74 73 script} {. puts
30e0: 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 5b 66 6f 72 -nonewline [for
30f0: 6d 61 74 20 7b 25 2d 32 31 2e 32 31 73 20 7d 20 mat {%-21.21s }
3100: 24 6e 61 6d 65 2e 2e 2e 5d 0a 20 20 66 6c 75 73 $name...]. flus
3110: 68 20 73 74 64 6f 75 74 0a 20 20 73 65 74 20 73 h stdout. set s
3120: 70 65 65 64 20 5b 74 69 6d 65 20 7b 65 76 61 6c peed [time {eval
3130: 20 24 73 63 72 69 70 74 7d 5d 0a 20 20 73 65 74 $script}]. set
3140: 20 74 6d 20 5b 6c 69 6e 64 65 78 20 24 73 70 65 tm [lindex $spe
3150: 65 64 20 30 5d 0a 20 20 69 66 20 7b 24 74 6d 20 ed 0]. if {$tm
3160: 3d 3d 20 30 7d 20 7b 0a 20 20 20 20 73 65 74 20 == 0} {. set
3170: 72 61 74 65 20 5b 66 6f 72 6d 61 74 20 25 32 30 rate [format %20
3180: 73 20 22 6d 61 6e 79 22 5d 0a 20 20 7d 20 65 6c s "many"]. } el
3190: 73 65 20 7b 0a 20 20 20 20 73 65 74 20 72 61 74 se {. set rat
31a0: 65 20 5b 66 6f 72 6d 61 74 20 25 32 30 2e 35 66 e [format %20.5f
31b0: 20 5b 65 78 70 72 20 7b 31 30 30 30 30 30 30 2e [expr {1000000.
31c0: 30 2a 24 6e 75 6d 73 74 6d 74 2f 24 74 6d 7d 5d 0*$numstmt/$tm}]
31d0: 5d 0a 20 20 7d 0a 20 20 73 65 74 20 75 32 20 24 ]. }. set u2 $
31e0: 75 6e 69 74 73 2f 73 0a 20 20 70 75 74 73 20 5b units/s. puts [
31f0: 66 6f 72 6d 61 74 20 7b 25 31 32 64 20 75 53 20 format {%12d uS
3200: 25 73 20 25 73 7d 20 24 74 6d 20 24 72 61 74 65 %s %s} $tm $rate
3210: 20 24 75 32 5d 0a 20 20 67 6c 6f 62 61 6c 20 74 $u2]. global t
3220: 6f 74 61 6c 5f 74 69 6d 65 0a 20 20 73 65 74 20 otal_time. set
3230: 74 6f 74 61 6c 5f 74 69 6d 65 20 5b 65 78 70 72 total_time [expr
3240: 20 7b 24 74 6f 74 61 6c 5f 74 69 6d 65 2b 24 74 {$total_time+$t
3250: 6d 7d 5d 0a 7d 0a 70 72 6f 63 20 73 70 65 65 64 m}].}.proc speed
3260: 5f 74 72 69 61 6c 5f 69 6e 69 74 20 7b 6e 61 6d _trial_init {nam
3270: 65 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 74 6f e} {. global to
3280: 74 61 6c 5f 74 69 6d 65 0a 20 20 73 65 74 20 74 tal_time. set t
3290: 6f 74 61 6c 5f 74 69 6d 65 20 30 0a 20 20 73 71 otal_time 0. sq
32a0: 6c 69 74 65 33 20 76 65 72 73 64 62 20 3a 6d 65 lite3 versdb :me
32b0: 6d 6f 72 79 3a 0a 20 20 73 65 74 20 76 65 72 73 mory:. set vers
32c0: 20 5b 76 65 72 73 64 62 20 6f 6e 65 20 7b 53 45 [versdb one {SE
32d0: 4c 45 43 54 20 73 71 6c 69 74 65 5f 73 6f 75 72 LECT sqlite_sour
32e0: 63 65 5f 69 64 28 29 7d 5d 0a 20 20 76 65 72 73 ce_id()}]. vers
32f0: 64 62 20 63 6c 6f 73 65 0a 20 20 70 75 74 73 20 db close. puts
3300: 22 53 51 4c 69 74 65 20 24 76 65 72 73 22 0a 7d "SQLite $vers".}
3310: 0a 70 72 6f 63 20 73 70 65 65 64 5f 74 72 69 61 .proc speed_tria
3320: 6c 5f 73 75 6d 6d 61 72 79 20 7b 6e 61 6d 65 7d l_summary {name}
3330: 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 74 6f 74 61 {. global tota
3340: 6c 5f 74 69 6d 65 0a 20 20 70 75 74 73 20 5b 66 l_time. puts [f
3350: 6f 72 6d 61 74 20 7b 25 2d 32 31 2e 32 31 73 20 ormat {%-21.21s
3360: 25 31 32 64 20 75 53 20 54 4f 54 41 4c 7d 20 24 %12d uS TOTAL} $
3370: 6e 61 6d 65 20 24 74 6f 74 61 6c 5f 74 69 6d 65 name $total_time
3380: 5d 0a 7d 0a 0a 23 20 52 75 6e 20 74 68 69 73 20 ].}..# Run this
3390: 72 6f 75 74 69 6e 65 20 6c 61 73 74 0a 23 0a 70 routine last.#.p
33a0: 72 6f 63 20 66 69 6e 69 73 68 5f 74 65 73 74 20 roc finish_test
33b0: 7b 7d 20 7b 0a 20 20 63 61 74 63 68 20 7b 64 62 {} {. catch {db
33c0: 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68 20 close}. catch
33d0: 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 20 20 63 61 {db2 close}. ca
33e0: 74 63 68 20 7b 64 62 33 20 63 6c 6f 73 65 7d 0a tch {db3 close}.
33f0: 20 20 69 66 20 7b 30 3d 3d 5b 69 6e 66 6f 20 65 if {0==[info e
3400: 78 69 73 74 73 20 3a 3a 53 4c 41 56 45 5d 7d 20 xists ::SLAVE]}
3410: 7b 20 66 69 6e 61 6c 69 7a 65 5f 74 65 73 74 69 { finalize_testi
3420: 6e 67 20 7d 0a 7d 0a 70 72 6f 63 20 66 69 6e 61 ng }.}.proc fina
3430: 6c 69 7a 65 5f 74 65 73 74 69 6e 67 20 7b 7d 20 lize_testing {}
3440: 7b 0a 20 20 67 6c 6f 62 61 6c 20 73 71 6c 69 74 {. global sqlit
3450: 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e e_open_file_coun
3460: 74 0a 0a 20 20 73 65 74 20 6f 6d 69 74 4c 69 73 t.. set omitLis
3470: 74 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e t [set_test_coun
3480: 74 65 72 20 6f 6d 69 74 5f 6c 69 73 74 5d 0a 0a ter omit_list]..
3490: 20 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 catch {db clos
34a0: 65 7d 0a 20 20 63 61 74 63 68 20 7b 64 62 32 20 e}. catch {db2
34b0: 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68 20 7b close}. catch {
34c0: 64 62 33 20 63 6c 6f 73 65 7d 0a 0a 20 20 76 66 db3 close}.. vf
34d0: 73 5f 75 6e 6c 69 6e 6b 5f 74 65 73 74 0a 20 20 s_unlink_test.
34e0: 73 71 6c 69 74 65 33 20 64 62 20 7b 7d 0a 20 20 sqlite3 db {}.
34f0: 23 20 73 71 6c 69 74 65 33 5f 63 6c 65 61 72 5f # sqlite3_clear_
3500: 74 73 64 5f 6d 65 6d 64 65 62 75 67 0a 20 20 64 tsd_memdebug. d
3510: 62 20 63 6c 6f 73 65 0a 20 20 73 71 6c 69 74 65 b close. sqlite
3520: 33 5f 72 65 73 65 74 5f 61 75 74 6f 5f 65 78 74 3_reset_auto_ext
3530: 65 6e 73 69 6f 6e 0a 0a 20 20 73 71 6c 69 74 65 ension.. sqlite
3540: 33 5f 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69 3_soft_heap_limi
3550: 74 20 30 0a 20 20 73 65 74 20 6e 54 65 73 74 20 t 0. set nTest
3560: 5b 69 6e 63 72 5f 6e 74 65 73 74 5d 0a 20 20 73 [incr_ntest]. s
3570: 65 74 20 6e 45 72 72 20 5b 73 65 74 5f 74 65 73 et nErr [set_tes
3580: 74 5f 63 6f 75 6e 74 65 72 20 65 72 72 6f 72 73 t_counter errors
3590: 5d 0a 0a 20 20 70 75 74 73 20 22 24 6e 45 72 72 ].. puts "$nErr
35a0: 20 65 72 72 6f 72 73 20 6f 75 74 20 6f 66 20 24 errors out of $
35b0: 6e 54 65 73 74 20 74 65 73 74 73 22 0a 20 20 69 nTest tests". i
35c0: 66 20 7b 24 6e 45 72 72 3e 30 7d 20 7b 0a 20 20 f {$nErr>0} {.
35d0: 20 20 70 75 74 73 20 22 46 61 69 6c 75 72 65 73 puts "Failures
35e0: 20 6f 6e 20 74 68 65 73 65 20 74 65 73 74 73 3a on these tests:
35f0: 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 [set_test_count
3600: 65 72 20 66 61 69 6c 5f 6c 69 73 74 5d 22 0a 20 er fail_list]".
3610: 20 7d 0a 20 20 72 75 6e 5f 74 68 72 65 61 64 5f }. run_thread_
3620: 74 65 73 74 73 20 31 0a 20 20 69 66 20 7b 5b 6c tests 1. if {[l
3630: 6c 65 6e 67 74 68 20 24 6f 6d 69 74 4c 69 73 74 length $omitList
3640: 5d 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 ]>0} {. puts
3650: 22 4f 6d 69 74 74 65 64 20 74 65 73 74 20 63 61 "Omitted test ca
3660: 73 65 73 3a 22 0a 20 20 20 20 73 65 74 20 70 72 ses:". set pr
3670: 65 63 20 7b 7d 0a 20 20 20 20 66 6f 72 65 61 63 ec {}. foreac
3680: 68 20 7b 72 65 63 7d 20 5b 6c 73 6f 72 74 20 24 h {rec} [lsort $
3690: 6f 6d 69 74 4c 69 73 74 5d 20 7b 0a 20 20 20 20 omitList] {.
36a0: 20 20 69 66 20 7b 24 72 65 63 3d 3d 24 70 72 65 if {$rec==$pre
36b0: 63 7d 20 63 6f 6e 74 69 6e 75 65 0a 20 20 20 20 c} continue.
36c0: 20 20 73 65 74 20 70 72 65 63 20 24 72 65 63 0a set prec $rec.
36d0: 20 20 20 20 20 20 70 75 74 73 20 5b 66 6f 72 6d puts [form
36e0: 61 74 20 7b 20 20 25 2d 31 32 73 20 25 73 7d 20 at { %-12s %s}
36f0: 5b 6c 69 6e 64 65 78 20 24 72 65 63 20 30 5d 20 [lindex $rec 0]
3700: 5b 6c 69 6e 64 65 78 20 24 72 65 63 20 31 5d 5d [lindex $rec 1]]
3710: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 20 . }. }. if
3720: 7b 24 6e 45 72 72 3e 30 20 26 26 20 21 5b 77 6f {$nErr>0 && ![wo
3730: 72 6b 69 6e 67 5f 36 34 62 69 74 5f 69 6e 74 5d rking_64bit_int]
3740: 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22 2a 2a } {. puts "**
3750: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3760: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3770: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3780: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3790: 22 0a 20 20 20 20 70 75 74 73 20 22 4e 2e 42 2e ". puts "N.B.
37a0: 3a 20 20 54 68 65 20 76 65 72 73 69 6f 6e 20 6f : The version o
37b0: 66 20 54 43 4c 20 74 68 61 74 20 79 6f 75 20 75 f TCL that you u
37c0: 73 65 64 20 74 6f 20 62 75 69 6c 64 20 74 68 69 sed to build thi
37d0: 73 20 74 65 73 74 20 68 61 72 6e 65 73 73 22 0a s test harness".
37e0: 20 20 20 20 70 75 74 73 20 22 69 73 20 64 65 66 puts "is def
37f0: 65 63 74 69 76 65 20 69 6e 20 74 68 61 74 20 69 ective in that i
3800: 74 20 64 6f 65 73 20 6e 6f 74 20 73 75 70 70 6f t does not suppo
3810: 72 74 20 36 34 2d 62 69 74 20 69 6e 74 65 67 65 rt 64-bit intege
3820: 72 73 2e 20 20 53 6f 6d 65 20 6f 72 22 0a 20 20 rs. Some or".
3830: 20 20 70 75 74 73 20 22 61 6c 6c 20 6f 66 20 74 puts "all of t
3840: 68 65 20 74 65 73 74 20 66 61 69 6c 75 72 65 73 he test failures
3850: 20 61 62 6f 76 65 20 6d 69 67 68 74 20 62 65 20 above might be
3860: 61 20 72 65 73 75 6c 74 20 66 72 6f 6d 20 74 68 a result from th
3870: 69 73 20 64 65 66 65 63 74 22 0a 20 20 20 20 70 is defect". p
3880: 75 74 73 20 22 69 6e 20 79 6f 75 72 20 54 43 4c uts "in your TCL
3890: 20 62 75 69 6c 64 2e 22 0a 20 20 20 20 70 75 74 build.". put
38a0: 73 20 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a s "*************
38b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
38c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
38d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
38e0: 2a 2a 2a 2a 2a 22 0a 20 20 7d 0a 20 20 69 66 20 *****". }. if
38f0: 7b 24 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 28 62 {$::cmdlinearg(b
3900: 69 6e 61 72 79 6c 6f 67 29 7d 20 7b 0a 20 20 20 inarylog)} {.
3910: 20 76 66 73 6c 6f 67 20 66 69 6e 61 6c 69 7a 65 vfslog finalize
3920: 20 62 69 6e 61 72 79 6c 6f 67 0a 20 20 7d 0a 20 binarylog. }.
3930: 20 69 66 20 7b 24 73 71 6c 69 74 65 5f 6f 70 65 if {$sqlite_ope
3940: 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 7d 20 7b 0a n_file_count} {.
3950: 20 20 20 20 70 75 74 73 20 22 24 73 71 6c 69 74 puts "$sqlit
3960: 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e e_open_file_coun
3970: 74 20 66 69 6c 65 73 20 77 65 72 65 20 6c 65 66 t files were lef
3980: 74 20 6f 70 65 6e 22 0a 20 20 20 20 69 6e 63 72 t open". incr
3990: 20 6e 45 72 72 0a 20 20 7d 0a 20 20 69 66 20 7b nErr. }. if {
39a0: 5b 6c 69 6e 64 65 78 20 5b 73 71 6c 69 74 65 33 [lindex [sqlite3
39b0: 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53 _status SQLITE_S
39c0: 54 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f 43 4f 55 TATUS_MALLOC_COU
39d0: 4e 54 20 30 5d 20 31 5d 3e 30 20 7c 7c 0a 20 20 NT 0] 1]>0 ||.
39e0: 20 20 20 20 20 20 20 20 20 20 20 20 5b 73 71 6c [sql
39f0: 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 64 ite3_memory_used
3a00: 5d 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 ]>0} {. puts
3a10: 22 55 6e 66 72 65 65 64 20 6d 65 6d 6f 72 79 3a "Unfreed memory:
3a20: 20 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 [sqlite3_memory
3a30: 5f 75 73 65 64 5d 20 62 79 74 65 73 20 69 6e 5c _used] bytes in\
3a40: 0a 20 20 20 20 20 20 20 20 20 5b 6c 69 6e 64 65 . [linde
3a50: 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75 x [sqlite3_statu
3a60: 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f s SQLITE_STATUS_
3a70: 4d 41 4c 4c 4f 43 5f 43 4f 55 4e 54 20 30 5d 20 MALLOC_COUNT 0]
3a80: 31 5d 20 61 6c 6c 6f 63 61 74 69 6f 6e 73 22 0a 1] allocations".
3a90: 20 20 20 20 69 6e 63 72 20 6e 45 72 72 0a 20 20 incr nErr.
3aa0: 20 20 69 66 63 61 70 61 62 6c 65 20 6d 65 6d 64 ifcapable memd
3ab0: 65 62 75 67 7c 7c 6d 65 6d 35 7c 7c 28 6d 65 6d ebug||mem5||(mem
3ac0: 33 26 26 64 65 62 75 67 29 20 7b 0a 20 20 20 20 3&&debug) {.
3ad0: 20 20 70 75 74 73 20 22 57 72 69 74 69 6e 67 20 puts "Writing
3ae0: 75 6e 66 72 65 65 64 20 6d 65 6d 6f 72 79 20 6c unfreed memory l
3af0: 6f 67 20 74 6f 20 5c 22 2e 2f 6d 65 6d 6c 65 61 og to \"./memlea
3b00: 6b 2e 74 78 74 5c 22 22 0a 20 20 20 20 20 20 73 k.txt\"". s
3b10: 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f qlite3_memdebug_
3b20: 64 75 6d 70 20 2e 2f 6d 65 6d 6c 65 61 6b 2e 74 dump ./memleak.t
3b30: 78 74 0a 20 20 20 20 7d 0a 20 20 7d 20 65 6c 73 xt. }. } els
3b40: 65 20 7b 0a 20 20 20 20 70 75 74 73 20 22 41 6c e {. puts "Al
3b50: 6c 20 6d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 l memory allocat
3b60: 69 6f 6e 73 20 66 72 65 65 64 20 2d 20 6e 6f 20 ions freed - no
3b70: 6c 65 61 6b 73 22 0a 20 20 20 20 69 66 63 61 70 leaks". ifcap
3b80: 61 62 6c 65 20 6d 65 6d 64 65 62 75 67 7c 7c 6d able memdebug||m
3b90: 65 6d 35 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 em5 {. sqli
3ba0: 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 64 75 6d te3_memdebug_dum
3bb0: 70 20 2e 2f 6d 65 6d 75 73 61 67 65 2e 74 78 74 p ./memusage.txt
3bc0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 68 6f . }. }. sho
3bd0: 77 5f 6d 65 6d 73 74 61 74 73 0a 20 20 70 75 74 w_memstats. put
3be0: 73 20 22 4d 61 78 69 6d 75 6d 20 6d 65 6d 6f 72 s "Maximum memor
3bf0: 79 20 75 73 61 67 65 3a 20 5b 73 71 6c 69 74 65 y usage: [sqlite
3c00: 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 61 74 3_memory_highwat
3c10: 65 72 20 31 5d 20 62 79 74 65 73 22 0a 20 20 70 er 1] bytes". p
3c20: 75 74 73 20 22 43 75 72 72 65 6e 74 20 6d 65 6d uts "Current mem
3c30: 6f 72 79 20 75 73 61 67 65 3a 20 5b 73 71 6c 69 ory usage: [sqli
3c40: 74 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 te3_memory_highw
3c50: 61 74 65 72 5d 20 62 79 74 65 73 22 0a 20 20 69 ater] bytes". i
3c60: 66 20 7b 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 f {[info command
3c70: 73 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 s sqlite3_memdeb
3c80: 75 67 5f 6d 61 6c 6c 6f 63 5f 63 6f 75 6e 74 5d ug_malloc_count]
3c90: 20 6e 65 20 22 22 7d 20 7b 0a 20 20 20 20 70 75 ne ""} {. pu
3ca0: 74 73 20 22 4e 75 6d 62 65 72 20 6f 66 20 6d 61 ts "Number of ma
3cb0: 6c 6c 6f 63 28 29 20 20 3a 20 5b 73 71 6c 69 74 lloc() : [sqlit
3cc0: 65 33 5f 6d 65 6d 64 65 62 75 67 5f 6d 61 6c 6c e3_memdebug_mall
3cd0: 6f 63 5f 63 6f 75 6e 74 5d 20 63 61 6c 6c 73 22 oc_count] calls"
3ce0: 0a 20 20 7d 0a 20 20 69 66 20 7b 24 3a 3a 63 6d . }. if {$::cm
3cf0: 64 6c 69 6e 65 61 72 67 28 6d 61 6c 6c 6f 63 74 dlinearg(malloct
3d00: 72 61 63 65 29 7d 20 7b 0a 20 20 20 20 70 75 74 race)} {. put
3d10: 73 20 22 57 72 69 74 69 6e 67 20 6d 61 6c 6c 6f s "Writing mallo
3d20: 63 73 2e 73 71 6c 2e 2e 2e 22 0a 20 20 20 20 6d cs.sql...". m
3d30: 65 6d 64 65 62 75 67 5f 6c 6f 67 5f 73 71 6c 0a emdebug_log_sql.
3d40: 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 sqlite3_memd
3d50: 65 62 75 67 5f 6c 6f 67 20 73 74 6f 70 0a 20 20 ebug_log stop.
3d60: 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 sqlite3_memdeb
3d70: 75 67 5f 6c 6f 67 20 63 6c 65 61 72 0a 0a 20 20 ug_log clear..
3d80: 20 20 69 66 20 7b 5b 73 71 6c 69 74 65 33 5f 6d if {[sqlite3_m
3d90: 65 6d 6f 72 79 5f 75 73 65 64 5d 3e 30 7d 20 7b emory_used]>0} {
3da0: 0a 20 20 20 20 20 20 70 75 74 73 20 22 57 72 69 . puts "Wri
3db0: 74 69 6e 67 20 6c 65 61 6b 73 2e 73 71 6c 2e 2e ting leaks.sql..
3dc0: 2e 22 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 .". sqlite3
3dd0: 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 20 73 79 _memdebug_log sy
3de0: 6e 63 0a 20 20 20 20 20 20 6d 65 6d 64 65 62 75 nc. memdebu
3df0: 67 5f 6c 6f 67 5f 73 71 6c 20 6c 65 61 6b 73 2e g_log_sql leaks.
3e00: 73 71 6c 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 sql. }. }.
3e10: 66 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f 62 20 foreach f [glob
3e20: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 73 74 -nocomplain test
3e30: 2e 64 62 2d 2a 2d 6a 6f 75 72 6e 61 6c 5d 20 7b .db-*-journal] {
3e40: 0a 20 20 20 20 66 69 6c 65 20 64 65 6c 65 74 65 . file delete
3e50: 20 2d 66 6f 72 63 65 20 24 66 0a 20 20 7d 0a 20 -force $f. }.
3e60: 20 66 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f 62 foreach f [glob
3e70: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 73 -nocomplain tes
3e80: 74 2e 64 62 2d 6d 6a 2a 5d 20 7b 0a 20 20 20 20 t.db-mj*] {.
3e90: 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 file delete -for
3ea0: 63 65 20 24 66 0a 20 20 7d 0a 20 20 65 78 69 74 ce $f. }. exit
3eb0: 20 5b 65 78 70 72 20 7b 24 6e 45 72 72 3e 30 7d [expr {$nErr>0}
3ec0: 5d 0a 7d 0a 0a 23 20 44 69 73 70 6c 61 79 20 6d ].}..# Display m
3ed0: 65 6d 6f 72 79 20 73 74 61 74 69 73 74 69 63 73 emory statistics
3ee0: 20 66 6f 72 20 61 6e 61 6c 79 73 69 73 20 61 6e for analysis an
3ef0: 64 20 64 65 62 75 67 67 69 6e 67 20 70 75 72 70 d debugging purp
3f00: 6f 73 65 73 2e 0a 23 0a 70 72 6f 63 20 73 68 6f oses..#.proc sho
3f10: 77 5f 6d 65 6d 73 74 61 74 73 20 7b 7d 20 7b 0a w_memstats {} {.
3f20: 20 20 73 65 74 20 78 20 5b 73 71 6c 69 74 65 33 set x [sqlite3
3f30: 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53 _status SQLITE_S
3f40: 54 41 54 55 53 5f 4d 45 4d 4f 52 59 5f 55 53 45 TATUS_MEMORY_USE
3f50: 44 20 30 5d 0a 20 20 73 65 74 20 79 20 5b 73 71 D 0]. set y [sq
3f60: 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c lite3_status SQL
3f70: 49 54 45 5f 53 54 41 54 55 53 5f 4d 41 4c 4c 4f ITE_STATUS_MALLO
3f80: 43 5f 53 49 5a 45 20 30 5d 0a 20 20 73 65 74 20 C_SIZE 0]. set
3f90: 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b 6e 6f 77 val [format {now
3fa0: 20 25 31 30 64 20 20 6d 61 78 20 25 31 30 64 20 %10d max %10d
3fb0: 20 6d 61 78 2d 73 69 7a 65 20 25 31 30 64 7d 20 max-size %10d}
3fc0: 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 \.
3fd0: 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d 20 5b 6c [lindex $x 1] [l
3fe0: 69 6e 64 65 78 20 24 78 20 32 5d 20 5b 6c 69 6e index $x 2] [lin
3ff0: 64 65 78 20 24 79 20 32 5d 5d 0a 20 20 70 75 74 dex $y 2]]. put
4000: 73 20 22 4d 65 6d 6f 72 79 20 75 73 65 64 3a 20 s "Memory used:
4010: 20 20 20 20 20 20 20 20 20 24 76 61 6c 22 0a 20 $val".
4020: 20 73 65 74 20 78 20 5b 73 71 6c 69 74 65 33 5f set x [sqlite3_
4030: 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 status SQLITE_ST
4040: 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f 43 4f 55 4e ATUS_MALLOC_COUN
4050: 54 20 30 5d 0a 20 20 73 65 74 20 76 61 6c 20 5b T 0]. set val [
4060: 66 6f 72 6d 61 74 20 7b 6e 6f 77 20 25 31 30 64 format {now %10d
4070: 20 20 6d 61 78 20 25 31 30 64 7d 20 5b 6c 69 6e max %10d} [lin
4080: 64 65 78 20 24 78 20 31 5d 20 5b 6c 69 6e 64 65 dex $x 1] [linde
4090: 78 20 24 78 20 32 5d 5d 0a 20 20 70 75 74 73 20 x $x 2]]. puts
40a0: 22 41 6c 6c 6f 63 61 74 69 6f 6e 20 63 6f 75 6e "Allocation coun
40b0: 74 3a 20 20 20 20 20 24 76 61 6c 22 0a 20 20 73 t: $val". s
40c0: 65 74 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 et x [sqlite3_st
40d0: 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 atus SQLITE_STAT
40e0: 55 53 5f 50 41 47 45 43 41 43 48 45 5f 55 53 45 US_PAGECACHE_USE
40f0: 44 20 30 5d 0a 20 20 73 65 74 20 79 20 5b 73 71 D 0]. set y [sq
4100: 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c lite3_status SQL
4110: 49 54 45 5f 53 54 41 54 55 53 5f 50 41 47 45 43 ITE_STATUS_PAGEC
4120: 41 43 48 45 5f 53 49 5a 45 20 30 5d 0a 20 20 73 ACHE_SIZE 0]. s
4130: 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b et val [format {
4140: 6e 6f 77 20 25 31 30 64 20 20 6d 61 78 20 25 31 now %10d max %1
4150: 30 64 20 20 6d 61 78 2d 73 69 7a 65 20 25 31 30 0d max-size %10
4160: 64 7d 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 d} \.
4170: 20 20 20 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d [lindex $x 1]
4180: 20 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 20 5b [lindex $x 2] [
4190: 6c 69 6e 64 65 78 20 24 79 20 32 5d 5d 0a 20 20 lindex $y 2]].
41a0: 70 75 74 73 20 22 50 61 67 65 2d 63 61 63 68 65 puts "Page-cache
41b0: 20 75 73 65 64 3a 20 20 20 20 20 20 24 76 61 6c used: $val
41c0: 22 0a 20 20 73 65 74 20 78 20 5b 73 71 6c 69 74 ". set x [sqlit
41d0: 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45 e3_status SQLITE
41e0: 5f 53 54 41 54 55 53 5f 50 41 47 45 43 41 43 48 _STATUS_PAGECACH
41f0: 45 5f 4f 56 45 52 46 4c 4f 57 20 30 5d 0a 20 20 E_OVERFLOW 0].
4200: 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20 set val [format
4210: 7b 6e 6f 77 20 25 31 30 64 20 20 6d 61 78 20 25 {now %10d max %
4220: 31 30 64 7d 20 5b 6c 69 6e 64 65 78 20 24 78 20 10d} [lindex $x
4230: 31 5d 20 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 1] [lindex $x 2]
4240: 5d 0a 20 20 70 75 74 73 20 22 50 61 67 65 2d 63 ]. puts "Page-c
4250: 61 63 68 65 20 6f 76 65 72 66 6c 6f 77 3a 20 20 ache overflow:
4260: 24 76 61 6c 22 0a 20 20 73 65 74 20 78 20 5b 73 $val". set x [s
4270: 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 qlite3_status SQ
4280: 4c 49 54 45 5f 53 54 41 54 55 53 5f 53 43 52 41 LITE_STATUS_SCRA
4290: 54 43 48 5f 55 53 45 44 20 30 5d 0a 20 20 73 65 TCH_USED 0]. se
42a0: 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b 6e t val [format {n
42b0: 6f 77 20 25 31 30 64 20 20 6d 61 78 20 25 31 30 ow %10d max %10
42c0: 64 7d 20 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d d} [lindex $x 1]
42d0: 20 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 5d 0a [lindex $x 2]].
42e0: 20 20 70 75 74 73 20 22 53 63 72 61 74 63 68 20 puts "Scratch
42f0: 6d 65 6d 6f 72 79 20 75 73 65 64 3a 20 20 24 76 memory used: $v
4300: 61 6c 22 0a 20 20 73 65 74 20 78 20 5b 73 71 6c al". set x [sql
4310: 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c 49 ite3_status SQLI
4320: 54 45 5f 53 54 41 54 55 53 5f 53 43 52 41 54 43 TE_STATUS_SCRATC
4330: 48 5f 4f 56 45 52 46 4c 4f 57 20 30 5d 0a 20 20 H_OVERFLOW 0].
4340: 73 65 74 20 79 20 5b 73 71 6c 69 74 65 33 5f 73 set y [sqlite3_s
4350: 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 tatus SQLITE_STA
4360: 54 55 53 5f 53 43 52 41 54 43 48 5f 53 49 5a 45 TUS_SCRATCH_SIZE
4370: 20 30 5d 0a 20 20 73 65 74 20 76 61 6c 20 5b 66 0]. set val [f
4380: 6f 72 6d 61 74 20 7b 6e 6f 77 20 25 31 30 64 20 ormat {now %10d
4390: 20 6d 61 78 20 25 31 30 64 20 20 6d 61 78 2d 73 max %10d max-s
43a0: 69 7a 65 20 25 31 30 64 7d 20 5c 0a 20 20 20 20 ize %10d} \.
43b0: 20 20 20 20 20 20 20 20 20 20 20 5b 6c 69 6e 64 [lind
43c0: 65 78 20 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78 ex $x 1] [lindex
43d0: 20 24 78 20 32 5d 20 5b 6c 69 6e 64 65 78 20 24 $x 2] [lindex $
43e0: 79 20 32 5d 5d 0a 20 20 70 75 74 73 20 22 53 63 y 2]]. puts "Sc
43f0: 72 61 74 63 68 20 6f 76 65 72 66 6c 6f 77 3a 20 ratch overflow:
4400: 20 20 20 20 24 76 61 6c 22 0a 20 20 69 66 63 61 $val". ifca
4410: 70 61 62 6c 65 20 79 79 74 72 61 63 6b 6d 61 78 pable yytrackmax
4420: 73 74 61 63 6b 64 65 70 74 68 20 7b 0a 20 20 20 stackdepth {.
4430: 20 73 65 74 20 78 20 5b 73 71 6c 69 74 65 33 5f set x [sqlite3_
4440: 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 status SQLITE_ST
4450: 41 54 55 53 5f 50 41 52 53 45 52 5f 53 54 41 43 ATUS_PARSER_STAC
4460: 4b 20 30 5d 0a 20 20 20 20 73 65 74 20 76 61 6c K 0]. set val
4470: 20 5b 66 6f 72 6d 61 74 20 7b 20 20 20 20 20 20 [format {
4480: 20 20 20 20 20 20 20 20 20 6d 61 78 20 25 31 30 max %10
4490: 64 7d 20 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d d} [lindex $x 2]
44a0: 5d 0a 20 20 20 20 70 75 74 73 20 22 50 61 72 73 ]. puts "Pars
44b0: 65 72 20 73 74 61 63 6b 20 64 65 70 74 68 3a 20 er stack depth:
44c0: 20 20 20 24 76 61 6c 22 0a 20 20 7d 0a 7d 0a 0a $val". }.}..
44d0: 23 20 41 20 70 72 6f 63 65 64 75 72 65 20 74 6f # A procedure to
44e0: 20 65 78 65 63 75 74 65 20 53 51 4c 0a 23 0a 70 execute SQL.#.p
44f0: 72 6f 63 20 65 78 65 63 73 71 6c 20 7b 73 71 6c roc execsql {sql
4500: 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 23 20 {db db}} {. #
4510: 70 75 74 73 20 22 53 51 4c 20 3d 20 24 73 71 6c puts "SQL = $sql
4520: 22 0a 20 20 75 70 6c 65 76 65 6c 20 5b 6c 69 73 ". uplevel [lis
4530: 74 20 24 64 62 20 65 76 61 6c 20 24 73 71 6c 5d t $db eval $sql]
4540: 0a 7d 0a 0a 23 20 45 78 65 63 75 74 65 20 53 51 .}..# Execute SQ
4550: 4c 20 61 6e 64 20 63 61 74 63 68 20 65 78 63 65 L and catch exce
4560: 70 74 69 6f 6e 73 2e 0a 23 0a 70 72 6f 63 20 63 ptions..#.proc c
4570: 61 74 63 68 73 71 6c 20 7b 73 71 6c 20 7b 64 62 atchsql {sql {db
4580: 20 64 62 7d 7d 20 7b 0a 20 20 23 20 70 75 74 73 db}} {. # puts
4590: 20 22 53 51 4c 20 3d 20 24 73 71 6c 22 0a 20 20 "SQL = $sql".
45a0: 73 65 74 20 72 20 5b 63 61 74 63 68 20 5b 6c 69 set r [catch [li
45b0: 73 74 20 75 70 6c 65 76 65 6c 20 5b 6c 69 73 74 st uplevel [list
45c0: 20 24 64 62 20 65 76 61 6c 20 24 73 71 6c 5d 5d $db eval $sql]]
45d0: 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20 msg]. lappend
45e0: 72 20 24 6d 73 67 0a 20 20 72 65 74 75 72 6e 20 r $msg. return
45f0: 24 72 0a 7d 0a 0a 23 20 44 6f 20 61 6e 20 56 44 $r.}..# Do an VD
4600: 42 45 20 63 6f 64 65 20 64 75 6d 70 20 6f 6e 20 BE code dump on
4610: 74 68 65 20 53 51 4c 20 67 69 76 65 6e 0a 23 0a the SQL given.#.
4620: 70 72 6f 63 20 65 78 70 6c 61 69 6e 20 7b 73 71 proc explain {sq
4630: 6c 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 70 l {db db}} {. p
4640: 75 74 73 20 22 22 0a 20 20 70 75 74 73 20 22 61 uts "". puts "a
4650: 64 64 72 20 20 6f 70 63 6f 64 65 20 20 20 20 20 ddr opcode
4660: 20 20 20 70 31 20 20 20 20 20 20 70 32 20 20 20 p1 p2
4670: 20 20 20 70 33 20 20 20 20 20 20 70 34 20 20 20 p3 p4
4680: 20 20 20 20 20 20 20 20 20 20 20 20 70 35 20 20 p5
4690: 23 22 0a 20 20 70 75 74 73 20 22 2d 2d 2d 2d 20 #". puts "----
46a0: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d ------------ -
46b0: 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d ----- ------ -
46c0: 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d ----- ---------
46d0: 2d 2d 2d 2d 2d 2d 20 20 2d 2d 20 20 2d 22 0a 20 ------ -- -".
46e0: 20 24 64 62 20 65 76 61 6c 20 22 65 78 70 6c 61 $db eval "expla
46f0: 69 6e 20 24 73 71 6c 22 20 7b 7d 20 7b 0a 20 20 in $sql" {} {.
4700: 20 20 70 75 74 73 20 5b 66 6f 72 6d 61 74 20 7b puts [format {
4710: 25 2d 34 64 20 20 25 2d 31 32 2e 31 32 73 20 20 %-4d %-12.12s
4720: 25 2d 36 64 20 20 25 2d 36 64 20 20 25 2d 36 64 %-6d %-6d %-6d
4730: 20 20 25 20 2d 31 37 73 20 25 73 20 20 25 73 7d % -17s %s %s}
4740: 20 5c 0a 20 20 20 20 20 20 24 61 64 64 72 20 24 \. $addr $
4750: 6f 70 63 6f 64 65 20 24 70 31 20 24 70 32 20 24 opcode $p1 $p2 $
4760: 70 33 20 24 70 34 20 24 70 35 20 24 63 6f 6d 6d p3 $p4 $p5 $comm
4770: 65 6e 74 0a 20 20 20 20 5d 0a 20 20 7d 0a 7d 0a ent. ]. }.}.
4780: 0a 23 20 53 68 6f 77 20 74 68 65 20 56 44 42 45 .# Show the VDBE
4790: 20 70 72 6f 67 72 61 6d 20 66 6f 72 20 61 6e 20 program for an
47a0: 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 20 62 75 SQL statement bu
47b0: 74 20 6f 6d 69 74 20 74 68 65 20 54 72 61 63 65 t omit the Trace
47c0: 0a 23 20 6f 70 63 6f 64 65 20 61 74 20 74 68 65 .# opcode at the
47d0: 20 62 65 67 69 6e 6e 69 6e 67 2e 20 20 54 68 69 beginning. Thi
47e0: 73 20 70 72 6f 63 65 64 75 72 65 20 63 61 6e 20 s procedure can
47f0: 62 65 20 75 73 65 64 20 74 6f 20 70 72 6f 76 65 be used to prove
4800: 0a 23 20 74 68 61 74 20 64 69 66 66 65 72 65 6e .# that differen
4810: 74 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 73 t SQL statements
4820: 20 67 65 6e 65 72 61 74 65 20 65 78 61 63 74 6c generate exactl
4830: 79 20 74 68 65 20 73 61 6d 65 20 56 44 42 45 20 y the same VDBE
4840: 63 6f 64 65 2e 0a 23 0a 70 72 6f 63 20 65 78 70 code..#.proc exp
4850: 6c 61 69 6e 5f 6e 6f 5f 74 72 61 63 65 20 7b 73 lain_no_trace {s
4860: 71 6c 7d 20 7b 0a 20 20 73 65 74 20 74 72 20 5b ql} {. set tr [
4870: 64 62 20 65 76 61 6c 20 22 45 58 50 4c 41 49 4e db eval "EXPLAIN
4880: 20 24 73 71 6c 22 5d 0a 20 20 72 65 74 75 72 6e $sql"]. return
4890: 20 5b 6c 72 61 6e 67 65 20 24 74 72 20 37 20 65 [lrange $tr 7 e
48a0: 6e 64 5d 0a 7d 0a 0a 23 20 41 6e 6f 74 68 65 72 nd].}..# Another
48b0: 20 70 72 6f 63 65 64 75 72 65 20 74 6f 20 65 78 procedure to ex
48c0: 65 63 75 74 65 20 53 51 4c 2e 20 20 54 68 69 73 ecute SQL. This
48d0: 20 6f 6e 65 20 69 6e 63 6c 75 64 65 73 20 74 68 one includes th
48e0: 65 20 66 69 65 6c 64 0a 23 20 6e 61 6d 65 73 20 e field.# names
48f0: 69 6e 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 in the returned
4900: 6c 69 73 74 2e 0a 23 0a 70 72 6f 63 20 65 78 65 list..#.proc exe
4910: 63 73 71 6c 32 20 7b 73 71 6c 7d 20 7b 0a 20 20 csql2 {sql} {.
4920: 73 65 74 20 72 65 73 75 6c 74 20 7b 7d 0a 20 20 set result {}.
4930: 64 62 20 65 76 61 6c 20 24 73 71 6c 20 64 61 74 db eval $sql dat
4940: 61 20 7b 0a 20 20 20 20 66 6f 72 65 61 63 68 20 a {. foreach
4950: 66 20 24 64 61 74 61 28 2a 29 20 7b 0a 20 20 20 f $data(*) {.
4960: 20 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c lappend resul
4970: 74 20 24 66 20 24 64 61 74 61 28 24 66 29 0a 20 t $f $data($f).
4980: 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 }. }. retur
4990: 6e 20 24 72 65 73 75 6c 74 0a 7d 0a 0a 23 20 55 n $result.}..# U
49a0: 73 65 20 74 68 65 20 6e 6f 6e 2d 63 61 6c 6c 62 se the non-callb
49b0: 61 63 6b 20 41 50 49 20 74 6f 20 65 78 65 63 75 ack API to execu
49c0: 74 65 20 6d 75 6c 74 69 70 6c 65 20 53 51 4c 20 te multiple SQL
49d0: 73 74 61 74 65 6d 65 6e 74 73 0a 23 0a 70 72 6f statements.#.pro
49e0: 63 20 73 74 65 70 73 71 6c 20 7b 64 62 70 74 72 c stepsql {dbptr
49f0: 20 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20 73 71 sql} {. set sq
4a00: 6c 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24 l [string trim $
4a10: 73 71 6c 5d 0a 20 20 73 65 74 20 72 20 30 0a 20 sql]. set r 0.
4a20: 20 77 68 69 6c 65 20 7b 5b 73 74 72 69 6e 67 20 while {[string
4a30: 6c 65 6e 67 74 68 20 24 73 71 6c 5d 3e 30 7d 20 length $sql]>0}
4a40: 7b 0a 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 {. if {[catch
4a50: 20 7b 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 {sqlite3_prepar
4a60: 65 20 24 64 62 70 74 72 20 24 73 71 6c 20 2d 31 e $dbptr $sql -1
4a70: 20 73 71 6c 74 61 69 6c 7d 20 76 6d 5d 7d 20 7b sqltail} vm]} {
4a80: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c . return [l
4a90: 69 73 74 20 31 20 24 76 6d 5d 0a 20 20 20 20 7d ist 1 $vm]. }
4aa0: 0a 20 20 20 20 73 65 74 20 73 71 6c 20 5b 73 74 . set sql [st
4ab0: 72 69 6e 67 20 74 72 69 6d 20 24 73 71 6c 74 61 ring trim $sqlta
4ac0: 69 6c 5d 0a 23 20 20 20 20 77 68 69 6c 65 20 7b il].# while {
4ad0: 5b 73 71 6c 69 74 65 5f 73 74 65 70 20 24 76 6d [sqlite_step $vm
4ae0: 20 4e 20 56 41 4c 20 43 4f 4c 5d 3d 3d 22 53 51 N VAL COL]=="SQ
4af0: 4c 49 54 45 5f 52 4f 57 22 7d 20 7b 0a 23 20 20 LITE_ROW"} {.#
4b00: 20 20 20 20 66 6f 72 65 61 63 68 20 76 20 24 56 foreach v $V
4b10: 41 4c 20 7b 6c 61 70 70 65 6e 64 20 72 20 24 76 AL {lappend r $v
4b20: 7d 0a 23 20 20 20 20 7d 0a 20 20 20 20 77 68 69 }.# }. whi
4b30: 6c 65 20 7b 5b 73 71 6c 69 74 65 33 5f 73 74 65 le {[sqlite3_ste
4b40: 70 20 24 76 6d 5d 3d 3d 22 53 51 4c 49 54 45 5f p $vm]=="SQLITE_
4b50: 52 4f 57 22 7d 20 7b 0a 20 20 20 20 20 20 66 6f ROW"} {. fo
4b60: 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 3c r {set i 0} {$i<
4b70: 5b 73 71 6c 69 74 65 33 5f 64 61 74 61 5f 63 6f [sqlite3_data_co
4b80: 75 6e 74 20 24 76 6d 5d 7d 20 7b 69 6e 63 72 20 unt $vm]} {incr
4b90: 69 7d 20 7b 0a 20 20 20 20 20 20 20 20 6c 61 70 i} {. lap
4ba0: 70 65 6e 64 20 72 20 5b 73 71 6c 69 74 65 33 5f pend r [sqlite3_
4bb0: 63 6f 6c 75 6d 6e 5f 74 65 78 74 20 24 76 6d 20 column_text $vm
4bc0: 24 69 5d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 $i]. }.
4bd0: 7d 0a 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 }. if {[catch
4be0: 20 7b 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 {sqlite3_finali
4bf0: 7a 65 20 24 76 6d 7d 20 65 72 72 6d 73 67 5d 7d ze $vm} errmsg]}
4c00: 20 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 {. return
4c10: 5b 6c 69 73 74 20 31 20 24 65 72 72 6d 73 67 5d [list 1 $errmsg]
4c20: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 . }. }. ret
4c30: 75 72 6e 20 24 72 0a 7d 0a 0a 23 20 44 65 6c 65 urn $r.}..# Dele
4c40: 74 65 20 61 20 66 69 6c 65 20 6f 72 20 64 69 72 te a file or dir
4c50: 65 63 74 6f 72 79 0a 23 0a 70 72 6f 63 20 66 6f ectory.#.proc fo
4c60: 72 63 65 64 65 6c 65 74 65 20 7b 61 72 67 73 7d rcedelete {args}
4c70: 20 7b 0a 20 20 66 6f 72 65 61 63 68 20 66 69 6c {. foreach fil
4c80: 65 6e 61 6d 65 20 24 61 72 67 73 20 7b 0a 20 20 ename $args {.
4c90: 20 20 23 20 4f 6e 20 77 69 6e 64 6f 77 73 2c 20 # On windows,
4ca0: 73 6f 6d 65 74 69 6d 65 73 20 65 76 65 6e 20 61 sometimes even a
4cb0: 20 5b 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 [file delete -f
4cc0: 6f 72 63 65 5d 20 63 61 6e 20 66 61 69 6c 20 6a orce] can fail j
4cd0: 75 73 74 20 61 66 74 65 72 0a 20 20 20 20 23 20 ust after. #
4ce0: 61 20 66 69 6c 65 20 69 73 20 63 6c 6f 73 65 64 a file is closed
4cf0: 2e 20 54 68 65 20 63 61 75 73 65 20 69 73 20 75 . The cause is u
4d00: 73 75 61 6c 6c 79 20 22 74 61 67 2d 61 6c 6f 6e sually "tag-alon
4d10: 67 73 22 20 2d 20 70 72 6f 67 72 61 6d 73 20 6c gs" - programs l
4d20: 69 6b 65 0a 20 20 20 20 23 20 61 6e 74 69 2d 76 ike. # anti-v
4d30: 69 72 75 73 20 73 6f 66 74 77 61 72 65 2c 20 61 irus software, a
4d40: 75 74 6f 6d 61 74 69 63 20 62 61 63 6b 75 70 20 utomatic backup
4d50: 74 6f 6f 6c 73 20 61 6e 64 20 76 61 72 69 6f 75 tools and variou
4d60: 73 20 65 78 70 6c 6f 72 65 72 0a 20 20 20 20 23 s explorer. #
4d70: 20 65 78 74 65 6e 73 69 6f 6e 73 20 74 68 61 74 extensions that
4d80: 20 6b 65 65 70 20 61 20 66 69 6c 65 20 6f 70 65 keep a file ope
4d90: 6e 20 61 20 6c 69 74 74 6c 65 20 6c 6f 6e 67 65 n a little longe
4da0: 72 20 74 68 61 6e 20 77 65 20 65 78 70 65 63 74 r than we expect
4db0: 2c 20 63 61 75 73 69 6e 67 0a 20 20 20 20 23 20 , causing. #
4dc0: 74 68 65 20 64 65 6c 65 74 65 20 74 6f 20 66 61 the delete to fa
4dd0: 69 6c 2e 0a 20 20 20 20 23 0a 20 20 20 20 23 20 il.. #. #
4de0: 54 68 65 20 73 6f 6c 75 74 69 6f 6e 20 69 73 20 The solution is
4df0: 74 6f 20 77 61 69 74 20 61 20 73 68 6f 72 74 20 to wait a short
4e00: 61 6d 6f 75 6e 74 20 6f 66 20 74 69 6d 65 20 62 amount of time b
4e10: 65 66 6f 72 65 20 72 65 74 72 79 69 6e 67 20 74 efore retrying t
4e20: 68 65 20 0a 20 20 20 20 23 20 64 65 6c 65 74 65 he . # delete
4e30: 2e 0a 20 20 20 20 23 0a 20 20 20 20 73 65 74 20 .. #. set
4e40: 6e 52 65 74 72 79 20 20 35 30 20 20 20 20 20 20 nRetry 50
4e50: 20 20 20 20 20 20 20 20 20 20 20 20 3b 23 20 4d ;# M
4e60: 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 aximum number of
4e70: 20 72 65 74 72 69 65 73 2e 0a 20 20 20 20 73 65 retries.. se
4e80: 74 20 6e 44 65 6c 61 79 20 31 30 30 20 20 20 20 t nDelay 100
4e90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 23 ;#
4ea0: 20 44 65 6c 61 79 20 69 6e 20 6d 73 20 62 65 66 Delay in ms bef
4eb0: 6f 72 65 20 72 65 74 72 79 69 6e 67 2e 0a 20 20 ore retrying..
4ec0: 20 20 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 for {set i 0}
4ed0: 7b 24 69 3c 24 6e 52 65 74 72 79 7d 20 7b 69 6e {$i<$nRetry} {in
4ee0: 63 72 20 69 7d 20 7b 0a 20 20 20 20 20 20 73 65 cr i} {. se
4ef0: 74 20 72 63 20 5b 63 61 74 63 68 20 7b 66 69 6c t rc [catch {fil
4f00: 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 e delete -force
4f10: 24 66 69 6c 65 6e 61 6d 65 7d 20 6d 73 67 5d 0a $filename} msg].
4f20: 20 20 20 20 20 20 69 66 20 7b 24 72 63 3d 3d 30 if {$rc==0
4f30: 7d 20 62 72 65 61 6b 0a 20 20 20 20 20 20 61 66 } break. af
4f40: 74 65 72 20 24 6e 44 65 6c 61 79 0a 20 20 20 20 ter $nDelay.
4f50: 7d 0a 20 20 20 20 69 66 20 7b 24 72 63 7d 20 7b }. if {$rc} {
4f60: 20 65 72 72 6f 72 20 24 6d 73 67 20 7d 0a 20 20 error $msg }.
4f70: 7d 0a 7d 0a 0a 23 20 44 6f 20 61 6e 20 69 6e 74 }.}..# Do an int
4f80: 65 67 72 69 74 79 20 63 68 65 63 6b 20 6f 66 20 egrity check of
4f90: 74 68 65 20 65 6e 74 69 72 65 20 64 61 74 61 62 the entire datab
4fa0: 61 73 65 0a 23 0a 70 72 6f 63 20 69 6e 74 65 67 ase.#.proc integ
4fb0: 72 69 74 79 5f 63 68 65 63 6b 20 7b 6e 61 6d 65 rity_check {name
4fc0: 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 69 66 {db db}} {. if
4fd0: 63 61 70 61 62 6c 65 20 69 6e 74 65 67 72 69 74 capable integrit
4fe0: 79 63 6b 20 7b 0a 20 20 20 20 64 6f 5f 74 65 73 yck {. do_tes
4ff0: 74 20 24 6e 61 6d 65 20 5b 6c 69 73 74 20 65 78 t $name [list ex
5000: 65 63 73 71 6c 20 7b 50 52 41 47 4d 41 20 69 6e ecsql {PRAGMA in
5010: 74 65 67 72 69 74 79 5f 63 68 65 63 6b 7d 20 24 tegrity_check} $
5020: 64 62 5d 20 7b 6f 6b 7d 0a 20 20 7d 0a 7d 0a 0a db] {ok}. }.}..
5030: 70 72 6f 63 20 66 69 78 5f 69 66 63 61 70 61 62 proc fix_ifcapab
5040: 6c 65 5f 65 78 70 72 20 7b 65 78 70 72 7d 20 7b le_expr {expr} {
5050: 0a 20 20 73 65 74 20 72 65 74 20 22 22 0a 20 20 . set ret "".
5060: 73 65 74 20 73 74 61 74 65 20 30 0a 20 20 66 6f set state 0. fo
5070: 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 20 r {set i 0} {$i
5080: 3c 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 < [string length
5090: 20 24 65 78 70 72 5d 7d 20 7b 69 6e 63 72 20 69 $expr]} {incr i
50a0: 7d 20 7b 0a 20 20 20 20 73 65 74 20 63 68 61 72 } {. set char
50b0: 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 [string range $
50c0: 65 78 70 72 20 24 69 20 24 69 5d 0a 20 20 20 20 expr $i $i].
50d0: 73 65 74 20 6e 65 77 73 74 61 74 65 20 5b 65 78 set newstate [ex
50e0: 70 72 20 7b 5b 73 74 72 69 6e 67 20 69 73 20 61 pr {[string is a
50f0: 6c 6e 75 6d 20 24 63 68 61 72 5d 20 7c 7c 20 24 lnum $char] || $
5100: 63 68 61 72 20 65 71 20 22 5f 22 7d 5d 0a 20 20 char eq "_"}].
5110: 20 20 69 66 20 7b 24 6e 65 77 73 74 61 74 65 20 if {$newstate
5120: 26 26 20 21 24 73 74 61 74 65 7d 20 7b 0a 20 20 && !$state} {.
5130: 20 20 20 20 61 70 70 65 6e 64 20 72 65 74 20 7b append ret {
5140: 24 3a 3a 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e $::sqlite_option
5150: 73 28 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 s(}. }. if
5160: 20 7b 21 24 6e 65 77 73 74 61 74 65 20 26 26 20 {!$newstate &&
5170: 24 73 74 61 74 65 7d 20 7b 0a 20 20 20 20 20 20 $state} {.
5180: 61 70 70 65 6e 64 20 72 65 74 20 29 0a 20 20 20 append ret ).
5190: 20 7d 0a 20 20 20 20 61 70 70 65 6e 64 20 72 65 }. append re
51a0: 74 20 24 63 68 61 72 0a 20 20 20 20 73 65 74 20 t $char. set
51b0: 73 74 61 74 65 20 24 6e 65 77 73 74 61 74 65 0a state $newstate.
51c0: 20 20 7d 0a 20 20 69 66 20 7b 24 73 74 61 74 65 }. if {$state
51d0: 7d 20 7b 61 70 70 65 6e 64 20 72 65 74 20 29 7d } {append ret )}
51e0: 0a 20 20 72 65 74 75 72 6e 20 24 72 65 74 0a 7d . return $ret.}
51f0: 0a 0a 23 20 45 76 61 6c 75 61 74 65 20 61 20 62 ..# Evaluate a b
5200: 6f 6f 6c 65 61 6e 20 65 78 70 72 65 73 73 69 6f oolean expressio
5210: 6e 20 6f 66 20 63 61 70 61 62 69 6c 69 74 69 65 n of capabilitie
5220: 73 2e 20 20 49 66 20 74 72 75 65 2c 20 65 78 65 s. If true, exe
5230: 63 75 74 65 20 74 68 65 0a 23 20 63 6f 64 65 2e cute the.# code.
5240: 20 20 4f 6d 69 74 20 74 68 65 20 63 6f 64 65 20 Omit the code
5250: 69 66 20 66 61 6c 73 65 2e 0a 23 0a 70 72 6f 63 if false..#.proc
5260: 20 69 66 63 61 70 61 62 6c 65 20 7b 65 78 70 72 ifcapable {expr
5270: 20 63 6f 64 65 20 7b 65 6c 73 65 20 22 22 7d 20 code {else ""}
5280: 7b 65 6c 73 65 63 6f 64 65 20 22 22 7d 7d 20 7b {elsecode ""}} {
5290: 0a 20 20 23 72 65 67 73 75 62 20 2d 61 6c 6c 20 . #regsub -all
52a0: 7b 5b 61 2d 7a 5f 30 2d 39 5d 2b 7d 20 24 65 78 {[a-z_0-9]+} $ex
52b0: 70 72 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 6f 70 pr {$::sqlite_op
52c0: 74 69 6f 6e 73 28 26 29 7d 20 65 32 0a 20 20 73 tions(&)} e2. s
52d0: 65 74 20 65 32 20 5b 66 69 78 5f 69 66 63 61 70 et e2 [fix_ifcap
52e0: 61 62 6c 65 5f 65 78 70 72 20 24 65 78 70 72 5d able_expr $expr]
52f0: 0a 20 20 69 66 20 28 24 65 32 29 20 7b 0a 20 20 . if ($e2) {.
5300: 20 20 73 65 74 20 63 20 5b 63 61 74 63 68 20 7b set c [catch {
5310: 75 70 6c 65 76 65 6c 20 31 20 24 63 6f 64 65 7d uplevel 1 $code}
5320: 20 72 5d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 r]. } else {.
5330: 20 20 20 73 65 74 20 63 20 5b 63 61 74 63 68 20 set c [catch
5340: 7b 75 70 6c 65 76 65 6c 20 31 20 24 65 6c 73 65 {uplevel 1 $else
5350: 63 6f 64 65 7d 20 72 5d 0a 20 20 7d 0a 20 20 72 code} r]. }. r
5360: 65 74 75 72 6e 20 2d 63 6f 64 65 20 24 63 20 24 eturn -code $c $
5370: 72 0a 7d 0a 0a 23 20 54 68 69 73 20 70 72 6f 63 r.}..# This proc
5380: 20 65 78 65 63 73 20 61 20 73 65 70 65 72 61 74 execs a seperat
5390: 65 20 70 72 6f 63 65 73 73 20 74 68 61 74 20 63 e process that c
53a0: 72 61 73 68 65 73 20 6d 69 64 77 61 79 20 74 68 rashes midway th
53b0: 72 6f 75 67 68 20 65 78 65 63 75 74 69 6e 67 0a rough executing.
53c0: 23 20 74 68 65 20 53 51 4c 20 73 63 72 69 70 74 # the SQL script
53d0: 20 24 73 71 6c 20 6f 6e 20 64 61 74 61 62 61 73 $sql on databas
53e0: 65 20 74 65 73 74 2e 64 62 2e 0a 23 0a 23 20 54 e test.db..#.# T
53f0: 68 65 20 63 72 61 73 68 20 6f 63 63 75 72 73 20 he crash occurs
5400: 64 75 72 69 6e 67 20 61 20 73 79 6e 63 28 29 20 during a sync()
5410: 6f 66 20 66 69 6c 65 20 24 63 72 61 73 68 66 69 of file $crashfi
5420: 6c 65 2e 20 57 68 65 6e 20 74 68 65 20 63 72 61 le. When the cra
5430: 73 68 0a 23 20 6f 63 63 75 72 73 20 61 20 72 61 sh.# occurs a ra
5440: 6e 64 6f 6d 20 73 75 62 73 65 74 20 6f 66 20 61 ndom subset of a
5450: 6c 6c 20 75 6e 73 79 6e 63 65 64 20 77 72 69 74 ll unsynced writ
5460: 65 73 20 6d 61 64 65 20 62 79 20 74 68 65 20 70 es made by the p
5470: 72 6f 63 65 73 73 20 61 72 65 0a 23 20 77 72 69 rocess are.# wri
5480: 74 74 65 6e 20 69 6e 74 6f 20 74 68 65 20 66 69 tten into the fi
5490: 6c 65 73 20 6f 6e 20 64 69 73 6b 2e 20 41 72 67 les on disk. Arg
54a0: 75 6d 65 6e 74 20 24 63 72 61 73 68 64 65 6c 61 ument $crashdela
54b0: 79 20 69 6e 64 69 63 61 74 65 73 20 74 68 65 0a y indicates the.
54c0: 23 20 6e 75 6d 62 65 72 20 6f 66 20 66 69 6c 65 # number of file
54d0: 20 73 79 6e 63 73 20 74 6f 20 77 61 69 74 20 62 syncs to wait b
54e0: 65 66 6f 72 65 20 63 72 61 73 68 69 6e 67 2e 0a efore crashing..
54f0: 23 0a 23 20 54 68 65 20 72 65 74 75 72 6e 20 76 #.# The return v
5500: 61 6c 75 65 20 69 73 20 61 20 6c 69 73 74 20 6f alue is a list o
5510: 66 20 74 77 6f 20 65 6c 65 6d 65 6e 74 73 2e 20 f two elements.
5520: 54 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e The first elemen
5530: 74 20 69 73 20 61 0a 23 20 62 6f 6f 6c 65 61 6e t is a.# boolean
5540: 2c 20 69 6e 64 69 63 61 74 69 6e 67 20 77 68 65 , indicating whe
5550: 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 68 65 20 ther or not the
5560: 70 72 6f 63 65 73 73 20 61 63 74 75 61 6c 6c 79 process actually
5570: 20 63 72 61 73 68 65 64 20 6f 72 0a 23 20 72 65 crashed or.# re
5580: 70 6f 72 74 65 64 20 73 6f 6d 65 20 6f 74 68 65 ported some othe
5590: 72 20 65 72 72 6f 72 2e 20 54 68 65 20 73 65 63 r error. The sec
55a0: 6f 6e 64 20 65 6c 65 6d 65 6e 74 20 69 6e 20 74 ond element in t
55b0: 68 65 20 72 65 74 75 72 6e 65 64 20 6c 69 73 74 he returned list
55c0: 20 69 73 20 74 68 65 0a 23 20 65 72 72 6f 72 20 is the.# error
55d0: 6d 65 73 73 61 67 65 2e 20 54 68 69 73 20 69 73 message. This is
55e0: 20 22 63 68 69 6c 64 20 70 72 6f 63 65 73 73 20 "child process
55f0: 65 78 69 74 65 64 20 61 62 6e 6f 72 6d 61 6c 6c exited abnormall
5600: 79 22 20 69 66 20 74 68 65 20 63 72 61 73 68 0a y" if the crash.
5610: 23 20 6f 63 63 75 72 65 64 2e 0a 23 0a 23 20 20 # occured..#.#
5620: 20 63 72 61 73 68 73 71 6c 20 2d 64 65 6c 61 79 crashsql -delay
5630: 20 43 52 41 53 48 44 45 4c 41 59 20 2d 66 69 6c CRASHDELAY -fil
5640: 65 20 43 52 41 53 48 46 49 4c 45 20 3f 2d 62 6c e CRASHFILE ?-bl
5650: 6f 63 6b 73 69 7a 65 20 42 4c 4f 43 4b 53 49 5a ocksize BLOCKSIZ
5660: 45 3f 20 24 73 71 6c 0a 23 0a 70 72 6f 63 20 63 E? $sql.#.proc c
5670: 72 61 73 68 73 71 6c 20 7b 61 72 67 73 7d 20 7b rashsql {args} {
5680: 0a 0a 20 20 73 65 74 20 62 6c 6f 63 6b 73 69 7a .. set blocksiz
5690: 65 20 22 22 0a 20 20 73 65 74 20 63 72 61 73 68 e "". set crash
56a0: 64 65 6c 61 79 20 31 0a 20 20 73 65 74 20 70 72 delay 1. set pr
56b0: 6e 67 73 65 65 64 20 30 0a 20 20 73 65 74 20 74 ngseed 0. set t
56c0: 63 6c 62 6f 64 79 20 7b 7d 0a 20 20 73 65 74 20 clbody {}. set
56d0: 63 72 61 73 68 66 69 6c 65 20 22 22 0a 20 20 73 crashfile "". s
56e0: 65 74 20 64 63 20 22 22 0a 20 20 73 65 74 20 73 et dc "". set s
56f0: 71 6c 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 ql [lindex $args
5700: 20 65 6e 64 5d 0a 20 20 0a 20 20 66 6f 72 20 7b end]. . for {
5710: 73 65 74 20 69 69 20 30 7d 20 7b 24 69 69 20 3c set ii 0} {$ii <
5720: 20 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 73 5d [llength $args]
5730: 2d 31 7d 20 7b 69 6e 63 72 20 69 69 20 32 7d 20 -1} {incr ii 2}
5740: 7b 0a 20 20 20 20 73 65 74 20 7a 20 5b 6c 69 6e {. set z [lin
5750: 64 65 78 20 24 61 72 67 73 20 24 69 69 5d 0a 20 dex $args $ii].
5760: 20 20 20 73 65 74 20 6e 20 5b 73 74 72 69 6e 67 set n [string
5770: 20 6c 65 6e 67 74 68 20 24 7a 5d 0a 20 20 20 20 length $z].
5780: 73 65 74 20 7a 32 20 5b 6c 69 6e 64 65 78 20 24 set z2 [lindex $
5790: 61 72 67 73 20 5b 65 78 70 72 20 24 69 69 2b 31 args [expr $ii+1
57a0: 5d 5d 0a 0a 20 20 20 20 69 66 20 20 20 20 20 7b ]].. if {
57b0: 24 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e 67 20 $n>1 && [string
57c0: 66 69 72 73 74 20 24 7a 20 2d 64 65 6c 61 79 5d first $z -delay]
57d0: 3d 3d 30 7d 20 20 20 20 20 7b 73 65 74 20 63 72 ==0} {set cr
57e0: 61 73 68 64 65 6c 61 79 20 24 7a 32 7d 20 5c 0a ashdelay $z2} \.
57f0: 20 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 elseif {$n>1
5800: 20 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73 && [string firs
5810: 74 20 24 7a 20 2d 73 65 65 64 5d 3d 3d 30 7d 20 t $z -seed]==0}
5820: 20 20 20 20 20 7b 73 65 74 20 70 72 6e 67 73 65 {set prngse
5830: 65 64 20 24 7a 32 7d 20 5c 0a 20 20 20 20 65 6c ed $z2} \. el
5840: 73 65 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 seif {$n>1 && [s
5850: 74 72 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d tring first $z -
5860: 66 69 6c 65 5d 3d 3d 30 7d 20 20 20 20 20 20 7b file]==0} {
5870: 73 65 74 20 63 72 61 73 68 66 69 6c 65 20 24 7a set crashfile $z
5880: 32 7d 20 20 5c 0a 20 20 20 20 65 6c 73 65 69 66 2} \. elseif
5890: 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e {$n>1 && [strin
58a0: 67 20 66 69 72 73 74 20 24 7a 20 2d 74 63 6c 62 g first $z -tclb
58b0: 6f 64 79 5d 3d 3d 30 7d 20 20 20 7b 73 65 74 20 ody]==0} {set
58c0: 74 63 6c 62 6f 64 79 20 24 7a 32 7d 20 20 5c 0a tclbody $z2} \.
58d0: 20 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 elseif {$n>1
58e0: 20 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73 && [string firs
58f0: 74 20 24 7a 20 2d 62 6c 6f 63 6b 73 69 7a 65 5d t $z -blocksize]
5900: 3d 3d 30 7d 20 7b 73 65 74 20 62 6c 6f 63 6b 73 ==0} {set blocks
5910: 69 7a 65 20 22 2d 73 20 24 7a 32 22 20 7d 20 5c ize "-s $z2" } \
5920: 0a 20 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e . elseif {$n>
5930: 31 20 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72 1 && [string fir
5940: 73 74 20 24 7a 20 2d 63 68 61 72 61 63 74 65 72 st $z -character
5950: 69 73 74 69 63 73 5d 3d 3d 30 7d 20 7b 73 65 74 istics]==0} {set
5960: 20 64 63 20 22 2d 63 20 7b 24 7a 32 7d 22 20 7d dc "-c {$z2}" }
5970: 20 5c 0a 20 20 20 20 65 6c 73 65 20 20 20 7b 20 \. else {
5980: 65 72 72 6f 72 20 22 55 6e 72 65 63 6f 67 6e 69 error "Unrecogni
5990: 7a 65 64 20 6f 70 74 69 6f 6e 3a 20 24 7a 22 20 zed option: $z"
59a0: 7d 0a 20 20 7d 0a 0a 20 20 69 66 20 7b 24 63 72 }. }.. if {$cr
59b0: 61 73 68 66 69 6c 65 20 65 71 20 22 22 7d 20 7b ashfile eq ""} {
59c0: 0a 20 20 20 20 65 72 72 6f 72 20 22 43 6f 6d 70 . error "Comp
59d0: 75 6c 73 6f 72 79 20 6f 70 74 69 6f 6e 20 2d 66 ulsory option -f
59e0: 69 6c 65 20 6d 69 73 73 69 6e 67 22 0a 20 20 7d ile missing". }
59f0: 0a 0a 20 20 23 20 24 63 72 61 73 68 66 69 6c 65 .. # $crashfile
5a00: 20 67 65 74 73 20 63 6f 6d 70 61 72 65 64 20 74 gets compared t
5a10: 6f 20 74 68 65 20 6e 61 74 69 76 65 20 66 69 6c o the native fil
5a20: 65 6e 61 6d 65 20 69 6e 20 0a 20 20 23 20 63 66 ename in . # cf
5a30: 53 79 6e 63 28 29 2c 20 77 68 69 63 68 20 63 61 Sync(), which ca
5a40: 6e 20 62 65 20 64 69 66 66 65 72 65 6e 74 20 74 n be different t
5a50: 68 65 6e 20 77 68 61 74 20 54 43 4c 20 75 73 65 hen what TCL use
5a60: 73 20 62 79 0a 20 20 23 20 64 65 66 61 75 6c 74 s by. # default
5a70: 2c 20 73 6f 20 68 65 72 65 20 77 65 20 66 6f 72 , so here we for
5a80: 63 65 20 69 74 20 74 6f 20 74 68 65 20 22 6e 61 ce it to the "na
5a90: 74 69 76 65 6e 61 6d 65 22 20 66 6f 72 6d 61 74 tivename" format
5aa0: 2e 0a 20 20 73 65 74 20 63 66 69 6c 65 20 5b 73 .. set cfile [s
5ab0: 74 72 69 6e 67 20 6d 61 70 20 7b 5c 5c 20 5c 5c tring map {\\ \\
5ac0: 5c 5c 7d 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 \\} [file native
5ad0: 6e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 name [file join
5ae0: 5b 70 77 64 5d 20 24 63 72 61 73 68 66 69 6c 65 [pwd] $crashfile
5af0: 5d 5d 5d 0a 0a 20 20 73 65 74 20 66 20 5b 6f 70 ]]].. set f [op
5b00: 65 6e 20 63 72 61 73 68 2e 74 63 6c 20 77 5d 0a en crash.tcl w].
5b10: 20 20 70 75 74 73 20 24 66 20 22 73 71 6c 69 74 puts $f "sqlit
5b20: 65 33 5f 63 72 61 73 68 5f 65 6e 61 62 6c 65 20 e3_crash_enable
5b30: 31 22 0a 20 20 70 75 74 73 20 24 66 20 22 73 71 1". puts $f "sq
5b40: 6c 69 74 65 33 5f 63 72 61 73 68 70 61 72 61 6d lite3_crashparam
5b50: 73 20 24 62 6c 6f 63 6b 73 69 7a 65 20 24 64 63 s $blocksize $dc
5b60: 20 24 63 72 61 73 68 64 65 6c 61 79 20 24 63 66 $crashdelay $cf
5b70: 69 6c 65 22 0a 20 20 70 75 74 73 20 24 66 20 22 ile". puts $f "
5b80: 73 71 6c 69 74 65 33 5f 74 65 73 74 5f 63 6f 6e sqlite3_test_con
5b90: 74 72 6f 6c 5f 70 65 6e 64 69 6e 67 5f 62 79 74 trol_pending_byt
5ba0: 65 20 24 3a 3a 73 71 6c 69 74 65 5f 70 65 6e 64 e $::sqlite_pend
5bb0: 69 6e 67 5f 62 79 74 65 22 0a 20 20 70 75 74 73 ing_byte". puts
5bc0: 20 24 66 20 22 73 71 6c 69 74 65 33 20 64 62 20 $f "sqlite3 db
5bd0: 74 65 73 74 2e 64 62 20 2d 76 66 73 20 63 72 61 test.db -vfs cra
5be0: 73 68 22 0a 0a 20 20 23 20 54 68 69 73 20 62 6c sh".. # This bl
5bf0: 6f 63 6b 20 73 65 74 73 20 74 68 65 20 63 61 63 ock sets the cac
5c00: 68 65 20 73 69 7a 65 20 6f 66 20 74 68 65 20 6d he size of the m
5c10: 61 69 6e 20 64 61 74 61 62 61 73 65 20 74 6f 20 ain database to
5c20: 31 30 0a 20 20 23 20 70 61 67 65 73 2e 20 54 68 10. # pages. Th
5c30: 69 73 20 69 73 20 64 6f 6e 65 20 69 6e 20 63 61 is is done in ca
5c40: 73 65 20 74 68 65 20 62 75 69 6c 64 20 69 73 20 se the build is
5c50: 63 6f 6e 66 69 67 75 72 65 64 20 74 6f 20 6f 6d configured to om
5c60: 69 74 0a 20 20 23 20 22 50 52 41 47 4d 41 20 63 it. # "PRAGMA c
5c70: 61 63 68 65 5f 73 69 7a 65 22 2e 0a 20 20 70 75 ache_size".. pu
5c80: 74 73 20 24 66 20 7b 64 62 20 65 76 61 6c 20 7b ts $f {db eval {
5c90: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73 71 SELECT * FROM sq
5ca0: 6c 69 74 65 5f 6d 61 73 74 65 72 3b 7d 7d 0a 20 lite_master;}}.
5cb0: 20 70 75 74 73 20 24 66 20 7b 73 65 74 20 62 74 puts $f {set bt
5cc0: 20 5b 62 74 72 65 65 5f 66 72 6f 6d 5f 64 62 20 [btree_from_db
5cd0: 64 62 5d 7d 0a 20 20 70 75 74 73 20 24 66 20 7b db]}. puts $f {
5ce0: 62 74 72 65 65 5f 73 65 74 5f 63 61 63 68 65 5f btree_set_cache_
5cf0: 73 69 7a 65 20 24 62 74 20 31 30 7d 0a 20 20 69 size $bt 10}. i
5d00: 66 20 7b 24 70 72 6e 67 73 65 65 64 7d 20 7b 0a f {$prngseed} {.
5d10: 20 20 20 20 73 65 74 20 73 65 65 64 20 5b 65 78 set seed [ex
5d20: 70 72 20 7b 24 70 72 6e 67 73 65 65 64 25 31 30 pr {$prngseed%10
5d30: 30 30 37 2b 31 7d 5d 0a 20 20 20 20 23 20 70 75 007+1}]. # pu
5d40: 74 73 20 73 65 65 64 3d 24 73 65 65 64 0a 20 20 ts seed=$seed.
5d50: 20 20 70 75 74 73 20 24 66 20 22 64 62 20 65 76 puts $f "db ev
5d60: 61 6c 20 7b 53 45 4c 45 43 54 20 72 61 6e 64 6f al {SELECT rando
5d70: 6d 62 6c 6f 62 28 24 73 65 65 64 29 7d 22 0a 20 mblob($seed)}".
5d80: 20 7d 0a 0a 20 20 69 66 20 7b 5b 73 74 72 69 6e }.. if {[strin
5d90: 67 20 6c 65 6e 67 74 68 20 24 74 63 6c 62 6f 64 g length $tclbod
5da0: 79 5d 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73 y]>0} {. puts
5db0: 20 24 66 20 24 74 63 6c 62 6f 64 79 0a 20 20 7d $f $tclbody. }
5dc0: 0a 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c . if {[string l
5dd0: 65 6e 67 74 68 20 24 73 71 6c 5d 3e 30 7d 20 7b ength $sql]>0} {
5de0: 0a 20 20 20 20 70 75 74 73 20 24 66 20 22 64 62 . puts $f "db
5df0: 20 65 76 61 6c 20 7b 22 0a 20 20 20 20 70 75 74 eval {". put
5e00: 73 20 24 66 20 20 20 22 24 73 71 6c 22 0a 20 20 s $f "$sql".
5e10: 20 20 70 75 74 73 20 24 66 20 22 7d 22 0a 20 20 puts $f "}".
5e20: 7d 0a 20 20 63 6c 6f 73 65 20 24 66 0a 20 20 73 }. close $f. s
5e30: 65 74 20 72 20 5b 63 61 74 63 68 20 7b 0a 20 20 et r [catch {.
5e40: 20 20 65 78 65 63 20 5b 69 6e 66 6f 20 6e 61 6d exec [info nam
5e50: 65 6f 66 65 78 65 63 5d 20 63 72 61 73 68 2e 74 eofexec] crash.t
5e60: 63 6c 20 3e 40 73 74 64 6f 75 74 0a 20 20 7d 20 cl >@stdout. }
5e70: 6d 73 67 5d 0a 20 20 0a 20 20 23 20 57 69 6e 64 msg]. . # Wind
5e80: 6f 77 73 2f 41 63 74 69 76 65 53 74 61 74 65 20 ows/ActiveState
5e90: 54 43 4c 20 72 65 74 75 72 6e 73 20 61 20 73 6c TCL returns a sl
5ea0: 69 67 68 74 6c 79 20 64 69 66 66 65 72 65 6e 74 ightly different
5eb0: 0a 20 20 23 20 65 72 72 6f 72 20 6d 65 73 73 61 . # error messa
5ec0: 67 65 2e 20 20 57 65 20 6d 61 70 20 74 68 61 74 ge. We map that
5ed0: 20 74 6f 20 74 68 65 20 65 78 70 65 63 74 65 64 to the expected
5ee0: 20 6d 65 73 73 61 67 65 0a 20 20 23 20 73 6f 20 message. # so
5ef0: 74 68 61 74 20 77 65 20 64 6f 6e 27 74 20 68 61 that we don't ha
5f00: 76 65 20 74 6f 20 63 68 61 6e 67 65 20 61 6c 6c ve to change all
5f10: 20 6f 66 20 74 68 65 20 74 65 73 74 0a 20 20 23 of the test. #
5f20: 20 63 61 73 65 73 2e 0a 20 20 69 66 20 7b 24 3a cases.. if {$:
5f30: 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 70 6c :tcl_platform(pl
5f40: 61 74 66 6f 72 6d 29 3d 3d 22 77 69 6e 64 6f 77 atform)=="window
5f50: 73 22 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 6d s"} {. if {$m
5f60: 73 67 3d 3d 22 63 68 69 6c 64 20 6b 69 6c 6c 65 sg=="child kille
5f70: 64 3a 20 75 6e 6b 6e 6f 77 6e 20 73 69 67 6e 61 d: unknown signa
5f80: 6c 22 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 l"} {. set
5f90: 6d 73 67 20 22 63 68 69 6c 64 20 70 72 6f 63 65 msg "child proce
5fa0: 73 73 20 65 78 69 74 65 64 20 61 62 6e 6f 72 6d ss exited abnorm
5fb0: 61 6c 6c 79 22 0a 20 20 20 20 7d 0a 20 20 7d 0a ally". }. }.
5fc0: 20 20 0a 20 20 6c 61 70 70 65 6e 64 20 72 20 24 . lappend r $
5fd0: 6d 73 67 0a 7d 0a 0a 23 20 55 73 61 67 65 3a 20 msg.}..# Usage:
5fe0: 64 6f 5f 69 6f 65 72 72 5f 74 65 73 74 20 3c 74 do_ioerr_test <t
5ff0: 65 73 74 20 6e 75 6d 62 65 72 3e 20 3c 6f 70 74 est number> <opt
6000: 69 6f 6e 73 2e 2e 2e 3e 0a 23 0a 23 20 54 68 69 ions...>.#.# Thi
6010: 73 20 70 72 6f 63 20 69 73 20 75 73 65 64 20 74 s proc is used t
6020: 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 74 65 73 74 o implement test
6030: 20 63 61 73 65 73 20 74 68 61 74 20 63 68 65 63 cases that chec
6040: 6b 20 74 68 61 74 20 49 4f 20 65 72 72 6f 72 73 k that IO errors
6050: 0a 23 20 61 72 65 20 63 6f 72 72 65 63 74 6c 79 .# are correctly
6060: 20 68 61 6e 64 6c 65 64 2e 20 54 68 65 20 66 69 handled. The fi
6070: 72 73 74 20 61 72 67 75 6d 65 6e 74 2c 20 3c 74 rst argument, <t
6080: 65 73 74 20 6e 75 6d 62 65 72 3e 2c 20 69 73 20 est number>, is
6090: 61 6e 20 69 6e 74 65 67 65 72 20 0a 23 20 75 73 an integer .# us
60a0: 65 64 20 74 6f 20 6e 61 6d 65 20 74 68 65 20 74 ed to name the t
60b0: 65 73 74 73 20 65 78 65 63 75 74 65 64 20 62 79 ests executed by
60c0: 20 74 68 69 73 20 70 72 6f 63 2e 20 4f 70 74 69 this proc. Opti
60d0: 6f 6e 73 20 61 72 65 20 61 73 20 66 6f 6c 6c 6f ons are as follo
60e0: 77 73 3a 0a 23 0a 23 20 20 20 20 20 2d 74 63 6c ws:.#.# -tcl
60f0: 70 72 65 70 20 20 20 20 20 20 20 20 20 20 54 43 prep TC
6100: 4c 20 73 63 72 69 70 74 20 74 6f 20 72 75 6e 20 L script to run
6110: 74 6f 20 70 72 65 70 61 72 65 20 74 65 73 74 2e to prepare test.
6120: 0a 23 20 20 20 20 20 2d 73 71 6c 70 72 65 70 20 .# -sqlprep
6130: 20 20 20 20 20 20 20 20 20 53 51 4c 20 73 63 72 SQL scr
6140: 69 70 74 20 74 6f 20 72 75 6e 20 74 6f 20 70 72 ipt to run to pr
6150: 65 70 61 72 65 20 74 65 73 74 2e 0a 23 20 20 20 epare test..#
6160: 20 20 2d 74 63 6c 62 6f 64 79 20 20 20 20 20 20 -tclbody
6170: 20 20 20 20 54 43 4c 20 73 63 72 69 70 74 20 74 TCL script t
6180: 6f 20 72 75 6e 20 77 69 74 68 20 49 4f 20 65 72 o run with IO er
6190: 72 6f 72 20 73 69 6d 75 6c 61 74 69 6f 6e 2e 0a ror simulation..
61a0: 23 20 20 20 20 20 2d 73 71 6c 62 6f 64 79 20 20 # -sqlbody
61b0: 20 20 20 20 20 20 20 20 54 43 4c 20 73 63 72 69 TCL scri
61c0: 70 74 20 74 6f 20 72 75 6e 20 77 69 74 68 20 49 pt to run with I
61d0: 4f 20 65 72 72 6f 72 20 73 69 6d 75 6c 61 74 69 O error simulati
61e0: 6f 6e 2e 0a 23 20 20 20 20 20 2d 65 78 63 6c 75 on..# -exclu
61f0: 64 65 20 20 20 20 20 20 20 20 20 20 4c 69 73 74 de List
6200: 20 6f 66 20 27 4e 27 20 76 61 6c 75 65 73 20 6e of 'N' values n
6210: 6f 74 20 74 6f 20 74 65 73 74 2e 0a 23 20 20 20 ot to test..#
6220: 20 20 2d 65 72 63 20 20 20 20 20 20 20 20 20 20 -erc
6230: 20 20 20 20 55 73 65 20 65 78 74 65 6e 64 65 64 Use extended
6240: 20 72 65 73 75 6c 74 20 63 6f 64 65 73 0a 23 20 result codes.#
6250: 20 20 20 20 2d 70 65 72 73 69 73 74 20 20 20 20 -persist
6260: 20 20 20 20 20 20 4d 61 6b 65 20 73 69 6d 75 6c Make simul
6270: 61 74 65 64 20 49 2f 4f 20 65 72 72 6f 72 73 20 ated I/O errors
6280: 70 65 72 73 69 73 74 65 6e 74 0a 23 20 20 20 20 persistent.#
6290: 20 2d 73 74 61 72 74 20 20 20 20 20 20 20 20 20 -start
62a0: 20 20 20 56 61 6c 75 65 20 6f 66 20 27 4e 27 20 Value of 'N'
62b0: 74 6f 20 62 65 67 69 6e 20 77 69 74 68 20 28 64 to begin with (d
62c0: 65 66 61 75 6c 74 20 31 29 0a 23 0a 23 20 20 20 efault 1).#.#
62d0: 20 20 2d 63 6b 73 75 6d 20 20 20 20 20 20 20 20 -cksum
62e0: 20 20 20 20 42 6f 6f 6c 65 61 6e 2e 20 49 66 20 Boolean. If
62f0: 74 72 75 65 2c 20 74 65 73 74 20 74 68 61 74 20 true, test that
6300: 74 68 65 20 64 61 74 61 62 61 73 65 20 64 6f 65 the database doe
6310: 73 0a 23 20 20 20 20 20 20 20 20 20 20 20 20 20 s.#
6320: 20 20 20 20 20 20 20 20 20 20 6e 6f 74 20 63 68 not ch
6330: 61 6e 67 65 20 64 75 72 69 6e 67 20 74 68 65 20 ange during the
6340: 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 74 68 65 execution of the
6350: 20 74 65 73 74 20 63 61 73 65 2e 0a 23 0a 70 72 test case..#.pr
6360: 6f 63 20 64 6f 5f 69 6f 65 72 72 5f 74 65 73 74 oc do_ioerr_test
6370: 20 7b 74 65 73 74 6e 61 6d 65 20 61 72 67 73 7d {testname args}
6380: 20 7b 0a 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 {.. set ::ioer
6390: 72 6f 70 74 73 28 2d 73 74 61 72 74 29 20 31 0a ropts(-start) 1.
63a0: 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 set ::ioerropt
63b0: 73 28 2d 63 6b 73 75 6d 29 20 30 0a 20 20 73 65 s(-cksum) 0. se
63c0: 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 65 t ::ioerropts(-e
63d0: 72 63 29 20 30 0a 20 20 73 65 74 20 3a 3a 69 6f rc) 0. set ::io
63e0: 65 72 72 6f 70 74 73 28 2d 63 6f 75 6e 74 29 20 erropts(-count)
63f0: 31 30 30 30 30 30 30 30 30 0a 20 20 73 65 74 20 100000000. set
6400: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 70 65 72 ::ioerropts(-per
6410: 73 69 73 74 29 20 31 0a 20 20 73 65 74 20 3a 3a sist) 1. set ::
6420: 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 72 65 66 ioerropts(-ckref
6430: 63 6f 75 6e 74 29 20 30 0a 20 20 73 65 74 20 3a count) 0. set :
6440: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 72 65 73 74 :ioerropts(-rest
6450: 6f 72 65 70 72 6e 67 29 20 31 0a 20 20 61 72 72 oreprng) 1. arr
6460: 61 79 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 ay set ::ioerrop
6470: 74 73 20 24 61 72 67 73 0a 0a 20 20 23 20 54 45 ts $args.. # TE
6480: 4d 50 4f 52 41 52 59 3a 20 46 6f 72 20 33 2e 35 MPORARY: For 3.5
6490: 2e 39 2c 20 64 69 73 61 62 6c 65 20 74 65 73 74 .9, disable test
64a0: 69 6e 67 20 6f 66 20 65 78 74 65 6e 64 65 64 20 ing of extended
64b0: 72 65 73 75 6c 74 20 63 6f 64 65 73 2e 20 54 68 result codes. Th
64c0: 65 72 65 20 61 72 65 0a 20 20 23 20 61 20 63 6f ere are. # a co
64d0: 75 70 6c 65 20 6f 66 20 6f 62 73 63 75 72 65 20 uple of obscure
64e0: 49 4f 20 65 72 72 6f 72 73 20 74 68 61 74 20 64 IO errors that d
64f0: 6f 20 6e 6f 74 20 72 65 74 75 72 6e 20 74 68 65 o not return the
6500: 6d 2e 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 m.. set ::ioerr
6510: 6f 70 74 73 28 2d 65 72 63 29 20 30 0a 0a 20 20 opts(-erc) 0..
6520: 73 65 74 20 3a 3a 67 6f 20 31 0a 20 20 23 72 65 set ::go 1. #re
6530: 73 65 74 5f 70 72 6e 67 5f 73 74 61 74 65 0a 20 set_prng_state.
6540: 20 73 61 76 65 5f 70 72 6e 67 5f 73 74 61 74 65 save_prng_state
6550: 0a 20 20 66 6f 72 20 7b 73 65 74 20 6e 20 24 3a . for {set n $:
6560: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73 74 61 72 :ioerropts(-star
6570: 74 29 7d 20 7b 24 3a 3a 67 6f 7d 20 7b 69 6e 63 t)} {$::go} {inc
6580: 72 20 6e 7d 20 7b 0a 20 20 20 20 73 65 74 20 3a r n} {. set :
6590: 3a 54 4e 20 24 6e 0a 20 20 20 20 69 6e 63 72 20 :TN $n. incr
65a0: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6f 75 ::ioerropts(-cou
65b0: 6e 74 29 20 2d 31 0a 20 20 20 20 69 66 20 7b 24 nt) -1. if {$
65c0: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6f 75 ::ioerropts(-cou
65d0: 6e 74 29 3c 30 7d 20 62 72 65 61 6b 0a 20 0a 20 nt)<0} break. .
65e0: 20 20 20 23 20 53 6b 69 70 20 74 68 69 73 20 49 # Skip this I
65f0: 4f 20 65 72 72 6f 72 20 69 66 20 69 74 20 77 61 O error if it wa
6600: 73 20 73 70 65 63 69 66 69 65 64 20 77 69 74 68 s specified with
6610: 20 74 68 65 20 22 2d 65 78 63 6c 75 64 65 22 20 the "-exclude"
6620: 6f 70 74 69 6f 6e 2e 0a 20 20 20 20 69 66 20 7b option.. if {
6630: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 69 [info exists ::i
6640: 6f 65 72 72 6f 70 74 73 28 2d 65 78 63 6c 75 64 oerropts(-exclud
6650: 65 29 5d 7d 20 7b 0a 20 20 20 20 20 20 69 66 20 e)]} {. if
6660: 7b 5b 6c 73 65 61 72 63 68 20 24 3a 3a 69 6f 65 {[lsearch $::ioe
6670: 72 72 6f 70 74 73 28 2d 65 78 63 6c 75 64 65 29 rropts(-exclude)
6680: 20 24 6e 5d 21 3d 2d 31 7d 20 63 6f 6e 74 69 6e $n]!=-1} contin
6690: 75 65 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 ue. }. if
66a0: 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 72 {$::ioerropts(-r
66b0: 65 73 74 6f 72 65 70 72 6e 67 29 7d 20 7b 0a 20 estoreprng)} {.
66c0: 20 20 20 20 20 72 65 73 74 6f 72 65 5f 70 72 6e restore_prn
66d0: 67 5f 73 74 61 74 65 0a 20 20 20 20 7d 0a 0a 20 g_state. }..
66e0: 20 20 20 23 20 44 65 6c 65 74 65 20 74 68 65 20 # Delete the
66f0: 66 69 6c 65 73 20 74 65 73 74 2e 64 62 20 61 6e files test.db an
6700: 64 20 74 65 73 74 32 2e 64 62 2c 20 74 68 65 6e d test2.db, then
6710: 20 65 78 65 63 75 74 65 20 74 68 65 20 54 43 4c execute the TCL
6720: 20 61 6e 64 20 0a 20 20 20 20 23 20 53 51 4c 20 and . # SQL
6730: 28 69 6e 20 74 68 61 74 20 6f 72 64 65 72 29 20 (in that order)
6740: 74 6f 20 70 72 65 70 61 72 65 20 66 6f 72 20 74 to prepare for t
6750: 68 65 20 74 65 73 74 20 63 61 73 65 2e 0a 20 20 he test case..
6760: 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74 6e do_test $testn
6770: 61 6d 65 2e 24 6e 2e 31 20 7b 0a 20 20 20 20 20 ame.$n.1 {.
6780: 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f set ::sqlite_io
6790: 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 _error_pending 0
67a0: 0a 20 20 20 20 20 20 63 61 74 63 68 20 7b 64 62 . catch {db
67b0: 20 63 6c 6f 73 65 7d 0a 20 20 20 20 20 20 63 61 close}. ca
67c0: 74 63 68 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a tch {db2 close}.
67d0: 20 20 20 20 20 20 63 61 74 63 68 20 7b 66 69 6c catch {fil
67e0: 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 e delete -force
67f0: 74 65 73 74 2e 64 62 7d 0a 20 20 20 20 20 20 63 test.db}. c
6800: 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 atch {file delet
6810: 65 20 2d 66 6f 72 63 65 20 74 65 73 74 2e 64 62 e -force test.db
6820: 2d 6a 6f 75 72 6e 61 6c 7d 0a 20 20 20 20 20 20 -journal}.
6830: 63 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 catch {file dele
6840: 74 65 20 2d 66 6f 72 63 65 20 74 65 73 74 32 2e te -force test2.
6850: 64 62 7d 0a 20 20 20 20 20 20 63 61 74 63 68 20 db}. catch
6860: 7b 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f {file delete -fo
6870: 72 63 65 20 74 65 73 74 32 2e 64 62 2d 6a 6f 75 rce test2.db-jou
6880: 72 6e 61 6c 7d 0a 20 20 20 20 20 20 73 65 74 20 rnal}. set
6890: 3a 3a 44 42 20 5b 73 71 6c 69 74 65 33 20 64 62 ::DB [sqlite3 db
68a0: 20 74 65 73 74 2e 64 62 3b 20 73 71 6c 69 74 65 test.db; sqlite
68b0: 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 3_connection_poi
68c0: 6e 74 65 72 20 64 62 5d 0a 20 20 20 20 20 20 73 nter db]. s
68d0: 71 6c 69 74 65 33 5f 65 78 74 65 6e 64 65 64 5f qlite3_extended_
68e0: 72 65 73 75 6c 74 5f 63 6f 64 65 73 20 24 3a 3a result_codes $::
68f0: 44 42 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 DB $::ioerropts(
6900: 2d 65 72 63 29 0a 20 20 20 20 20 20 69 66 20 7b -erc). if {
6910: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 69 [info exists ::i
6920: 6f 65 72 72 6f 70 74 73 28 2d 74 63 6c 70 72 65 oerropts(-tclpre
6930: 70 29 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 65 p)]} {. e
6940: 76 61 6c 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 val $::ioerropts
6950: 28 2d 74 63 6c 70 72 65 70 29 0a 20 20 20 20 20 (-tclprep).
6960: 20 7d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e }. if {[in
6970: 66 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 fo exists ::ioer
6980: 72 6f 70 74 73 28 2d 73 71 6c 70 72 65 70 29 5d ropts(-sqlprep)]
6990: 7d 20 7b 0a 20 20 20 20 20 20 20 20 65 78 65 63 } {. exec
69a0: 73 71 6c 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 sql $::ioerropts
69b0: 28 2d 73 71 6c 70 72 65 70 29 0a 20 20 20 20 20 (-sqlprep).
69c0: 20 7d 0a 20 20 20 20 20 20 65 78 70 72 20 30 0a }. expr 0.
69d0: 20 20 20 20 7d 20 7b 30 7d 0a 0a 20 20 20 20 23 } {0}.. #
69e0: 20 52 65 61 64 20 74 68 65 20 27 63 68 65 63 6b Read the 'check
69f0: 73 75 6d 27 20 6f 66 20 74 68 65 20 64 61 74 61 sum' of the data
6a00: 62 61 73 65 2e 0a 20 20 20 20 69 66 20 7b 24 3a base.. if {$:
6a10: 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b 73 75 :ioerropts(-cksu
6a20: 6d 29 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 m)} {. set
6a30: 63 68 65 63 6b 73 75 6d 20 5b 63 6b 73 75 6d 5d checksum [cksum]
6a40: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 53 65 . }.. # Se
6a50: 74 20 74 68 65 20 4e 74 68 20 49 4f 20 65 72 72 t the Nth IO err
6a60: 6f 72 20 74 6f 20 66 61 69 6c 2e 0a 20 20 20 20 or to fail..
6a70: 64 6f 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d do_test $testnam
6a80: 65 2e 24 6e 2e 32 20 5b 73 75 62 73 74 20 7b 0a e.$n.2 [subst {.
6a90: 20 20 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 set ::sqli
6aa0: 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 72 73 te_io_error_pers
6ab0: 69 73 74 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 ist $::ioerropts
6ac0: 28 2d 70 65 72 73 69 73 74 29 0a 20 20 20 20 20 (-persist).
6ad0: 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f set ::sqlite_io
6ae0: 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 24 _error_pending $
6af0: 6e 0a 20 20 20 20 7d 5d 20 24 6e 0a 20 20 0a 20 n. }] $n. .
6b00: 20 20 20 23 20 43 72 65 61 74 65 20 61 20 73 69 # Create a si
6b10: 6e 67 6c 65 20 54 43 4c 20 73 63 72 69 70 74 20 ngle TCL script
6b20: 66 72 6f 6d 20 74 68 65 20 54 43 4c 20 61 6e 64 from the TCL and
6b30: 20 53 51 4c 20 73 70 65 63 69 66 69 65 64 0a 20 SQL specified.
6b40: 20 20 20 23 20 61 73 20 74 68 65 20 62 6f 64 79 # as the body
6b50: 20 6f 66 20 74 68 65 20 74 65 73 74 2e 0a 20 20 of the test..
6b60: 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 72 62 set ::ioerrorb
6b70: 6f 64 79 20 7b 7d 0a 20 20 20 20 69 66 20 7b 5b ody {}. if {[
6b80: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f info exists ::io
6b90: 65 72 72 6f 70 74 73 28 2d 74 63 6c 62 6f 64 79 erropts(-tclbody
6ba0: 29 5d 7d 20 7b 0a 20 20 20 20 20 20 61 70 70 65 )]} {. appe
6bb0: 6e 64 20 3a 3a 69 6f 65 72 72 6f 72 62 6f 64 79 nd ::ioerrorbody
6bc0: 20 22 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d "$::ioerropts(-
6bd0: 74 63 6c 62 6f 64 79 29 5c 6e 22 0a 20 20 20 20 tclbody)\n".
6be0: 7d 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 }. if {[info
6bf0: 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70 exists ::ioerrop
6c00: 74 73 28 2d 73 71 6c 62 6f 64 79 29 5d 7d 20 7b ts(-sqlbody)]} {
6c10: 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20 3a 3a . append ::
6c20: 69 6f 65 72 72 6f 72 62 6f 64 79 20 22 64 62 20 ioerrorbody "db
6c30: 65 76 61 6c 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 eval {$::ioerrop
6c40: 74 73 28 2d 73 71 6c 62 6f 64 79 29 7d 22 0a 20 ts(-sqlbody)}".
6c50: 20 20 20 7d 0a 0a 20 20 20 20 23 20 45 78 65 63 }.. # Exec
6c60: 75 74 65 20 74 68 65 20 54 43 4c 20 53 63 72 69 ute the TCL Scri
6c70: 70 74 20 63 72 65 61 74 65 64 20 69 6e 20 74 68 pt created in th
6c80: 65 20 61 62 6f 76 65 20 62 6c 6f 63 6b 2e 20 49 e above block. I
6c90: 66 0a 20 20 20 20 23 20 74 68 65 72 65 20 61 72 f. # there ar
6ca0: 65 20 61 74 20 6c 65 61 73 74 20 4e 20 49 4f 20 e at least N IO
6cb0: 6f 70 65 72 61 74 69 6f 6e 73 20 70 65 72 66 6f operations perfo
6cc0: 72 6d 65 64 20 62 79 20 53 51 4c 69 74 65 20 61 rmed by SQLite a
6cd0: 73 0a 20 20 20 20 23 20 61 20 72 65 73 75 6c 74 s. # a result
6ce0: 20 6f 66 20 74 68 65 20 73 63 72 69 70 74 2c 20 of the script,
6cf0: 74 68 65 20 4e 74 68 20 77 69 6c 6c 20 66 61 69 the Nth will fai
6d00: 6c 2e 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 24 l.. do_test $
6d10: 74 65 73 74 6e 61 6d 65 2e 24 6e 2e 33 20 7b 0a testname.$n.3 {.
6d20: 20 20 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 set ::sqli
6d30: 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 69 74 20 te_io_error_hit
6d40: 30 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 73 71 0. set ::sq
6d50: 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 lite_io_error_ha
6d60: 72 64 68 69 74 20 30 0a 20 20 20 20 20 20 73 65 rdhit 0. se
6d70: 74 20 72 20 5b 63 61 74 63 68 20 24 3a 3a 69 6f t r [catch $::io
6d80: 65 72 72 6f 72 62 6f 64 79 20 6d 73 67 5d 0a 20 errorbody msg].
6d90: 20 20 20 20 20 73 65 74 20 3a 3a 65 72 72 73 65 set ::errse
6da0: 65 6e 20 24 72 0a 20 20 20 20 20 20 73 65 74 20 en $r. set
6db0: 72 63 20 5b 73 71 6c 69 74 65 33 5f 65 72 72 63 rc [sqlite3_errc
6dc0: 6f 64 65 20 24 3a 3a 44 42 5d 0a 20 20 20 20 20 ode $::DB].
6dd0: 20 69 66 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 if {$::ioerropt
6de0: 73 28 2d 65 72 63 29 7d 20 7b 0a 20 20 20 20 20 s(-erc)} {.
6df0: 20 20 20 23 20 49 66 20 77 65 20 61 72 65 20 69 # If we are i
6e00: 6e 20 65 78 74 65 6e 64 65 64 20 72 65 73 75 6c n extended resul
6e10: 74 20 63 6f 64 65 20 6d 6f 64 65 2c 20 6d 61 6b t code mode, mak
6e20: 65 20 73 75 72 65 20 61 6c 6c 20 6f 66 20 74 68 e sure all of th
6e30: 65 0a 20 20 20 20 20 20 20 20 23 20 49 4f 45 52 e. # IOER
6e40: 52 73 20 77 65 20 67 65 74 20 62 61 63 6b 20 72 Rs we get back r
6e50: 65 61 6c 6c 79 20 64 6f 20 68 61 76 65 20 74 68 eally do have th
6e60: 65 69 72 20 65 78 74 65 6e 64 65 64 20 63 6f 64 eir extended cod
6e70: 65 20 76 61 6c 75 65 73 2e 0a 20 20 20 20 20 20 e values..
6e80: 20 20 23 20 49 66 20 61 6e 20 65 78 74 65 6e 64 # If an extend
6e90: 65 64 20 72 65 73 75 6c 74 20 63 6f 64 65 20 69 ed result code i
6ea0: 73 20 72 65 74 75 72 6e 65 64 2c 20 74 68 65 20 s returned, the
6eb0: 73 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 65 0a sqlite3_errcode.
6ec0: 20 20 20 20 20 20 20 20 23 20 54 43 4c 63 6f 6d # TCLcom
6ed0: 6d 61 6e 64 20 77 69 6c 6c 20 72 65 74 75 72 6e mand will return
6ee0: 20 61 20 73 74 72 69 6e 67 20 6f 66 20 74 68 65 a string of the
6ef0: 20 66 6f 72 6d 3a 20 20 53 51 4c 49 54 45 5f 49 form: SQLITE_I
6f00: 4f 45 52 52 2b 6e 6e 6e 6e 0a 20 20 20 20 20 20 OERR+nnnn.
6f10: 20 20 23 20 77 68 65 72 65 20 6e 6e 6e 6e 20 69 # where nnnn i
6f20: 73 20 61 20 6e 75 6d 62 65 72 0a 20 20 20 20 20 s a number.
6f30: 20 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20 7b if {[regexp {
6f40: 5e 53 51 4c 49 54 45 5f 49 4f 45 52 52 7d 20 24 ^SQLITE_IOERR} $
6f50: 72 63 5d 20 26 26 20 21 5b 72 65 67 65 78 70 20 rc] && ![regexp
6f60: 7b 49 4f 45 52 52 5c 2b 5c 64 7d 20 24 72 63 5d {IOERR\+\d} $rc]
6f70: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 } {. re
6f80: 74 75 72 6e 20 24 72 63 0a 20 20 20 20 20 20 20 turn $rc.
6f90: 20 7d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 }. } else
6fa0: 7b 0a 20 20 20 20 20 20 20 20 23 20 49 66 20 77 {. # If w
6fb0: 65 20 61 72 65 20 6e 6f 74 20 69 6e 20 65 78 74 e are not in ext
6fc0: 65 6e 64 65 64 20 72 65 73 75 6c 74 20 63 6f 64 ended result cod
6fd0: 65 20 6d 6f 64 65 2c 20 6d 61 6b 65 20 73 75 72 e mode, make sur
6fe0: 65 20 6e 6f 0a 20 20 20 20 20 20 20 20 23 20 65 e no. # e
6ff0: 78 74 65 6e 64 65 64 20 65 72 72 6f 72 20 63 6f xtended error co
7000: 64 65 73 20 61 72 65 20 72 65 74 75 72 6e 65 64 des are returned
7010: 2e 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 72 .. if {[r
7020: 65 67 65 78 70 20 7b 5c 2b 5c 64 7d 20 24 72 63 egexp {\+\d} $rc
7030: 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 72 ]} {. r
7040: 65 74 75 72 6e 20 24 72 63 0a 20 20 20 20 20 20 eturn $rc.
7050: 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 }. }.
7060: 20 20 23 20 54 68 65 20 74 65 73 74 20 72 65 70 # The test rep
7070: 65 61 74 73 20 61 73 20 6c 6f 6e 67 20 61 73 20 eats as long as
7080: 24 3a 3a 67 6f 20 69 73 20 6e 6f 6e 2d 7a 65 72 $::go is non-zer
7090: 6f 2e 20 20 24 3a 3a 67 6f 20 73 74 61 72 74 73 o. $::go starts
70a0: 20 6f 75 74 0a 20 20 20 20 20 20 23 20 61 73 20 out. # as
70b0: 31 2e 20 20 57 68 65 6e 20 61 20 74 65 73 74 20 1. When a test
70c0: 72 75 6e 73 20 74 6f 20 63 6f 6d 70 6c 65 74 69 runs to completi
70d0: 6f 6e 20 77 69 74 68 6f 75 74 20 68 69 74 74 69 on without hitti
70e0: 6e 67 20 61 6e 20 49 2f 4f 0a 20 20 20 20 20 20 ng an I/O.
70f0: 23 20 65 72 72 6f 72 2c 20 74 68 61 74 20 6d 65 # error, that me
7100: 61 6e 73 20 74 68 65 72 65 20 69 73 20 6e 6f 20 ans there is no
7110: 70 6f 69 6e 74 20 69 6e 20 63 6f 6e 74 69 6e 75 point in continu
7120: 69 6e 67 20 77 69 74 68 20 74 68 69 73 20 74 65 ing with this te
7130: 73 74 0a 20 20 20 20 20 20 23 20 63 61 73 65 20 st. # case
7140: 73 6f 20 73 65 74 20 24 3a 3a 67 6f 20 74 6f 20 so set $::go to
7150: 7a 65 72 6f 2e 0a 20 20 20 20 20 20 23 0a 20 20 zero.. #.
7160: 20 20 20 20 69 66 20 7b 24 3a 3a 73 71 6c 69 74 if {$::sqlit
7170: 65 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 e_io_error_pendi
7180: 6e 67 3e 30 7d 20 7b 0a 20 20 20 20 20 20 20 20 ng>0} {.
7190: 73 65 74 20 3a 3a 67 6f 20 30 0a 20 20 20 20 20 set ::go 0.
71a0: 20 20 20 73 65 74 20 71 20 30 0a 20 20 20 20 20 set q 0.
71b0: 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f set ::sqlite_
71c0: 69 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 io_error_pending
71d0: 20 30 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 0. } else
71e0: 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 71 20 {. set q
71f0: 31 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 1. }..
7200: 20 73 65 74 20 73 20 5b 65 78 70 72 20 24 3a 3a set s [expr $::
7210: 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f sqlite_io_error_
7220: 68 69 74 3d 3d 30 5d 0a 20 20 20 20 20 20 69 66 hit==0]. if
7230: 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 {$::sqlite_io_e
7240: 72 72 6f 72 5f 68 69 74 3e 24 3a 3a 73 71 6c 69 rror_hit>$::sqli
7250: 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72 64 te_io_error_hard
7260: 68 69 74 20 26 26 20 24 72 3d 3d 30 7d 20 7b 0a hit && $r==0} {.
7270: 20 20 20 20 20 20 20 20 73 65 74 20 72 20 31 0a set r 1.
7280: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 73 65 }. se
7290: 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 t ::sqlite_io_er
72a0: 72 6f 72 5f 68 69 74 20 30 0a 0a 20 20 20 20 20 ror_hit 0..
72b0: 20 23 20 4f 6e 65 20 6f 66 20 74 77 6f 20 74 68 # One of two th
72c0: 69 6e 67 73 20 6d 75 73 74 20 68 61 76 65 20 68 ings must have h
72d0: 61 70 70 65 6e 65 64 2e 20 65 69 74 68 65 72 0a appened. either.
72e0: 20 20 20 20 20 20 23 20 20 20 31 2e 20 20 57 65 # 1. We
72f0: 20 6e 65 76 65 72 20 68 69 74 20 74 68 65 20 49 never hit the I
7300: 4f 20 65 72 72 6f 72 20 61 6e 64 20 74 68 65 20 O error and the
7310: 53 51 4c 20 72 65 74 75 72 6e 65 64 20 4f 4b 0a SQL returned OK.
7320: 20 20 20 20 20 20 23 20 20 20 32 2e 20 20 41 6e # 2. An
7330: 20 49 4f 20 65 72 72 6f 72 20 77 61 73 20 68 69 IO error was hi
7340: 74 20 61 6e 64 20 74 68 65 20 53 51 4c 20 66 61 t and the SQL fa
7350: 69 6c 65 64 0a 20 20 20 20 20 20 23 0a 20 20 20 iled. #.
7360: 20 20 20 23 70 75 74 73 20 22 73 3d 24 73 20 72 #puts "s=$s r
7370: 3d 24 72 20 71 3d 24 71 22 0a 20 20 20 20 20 20 =$r q=$q".
7380: 65 78 70 72 20 7b 20 28 24 73 20 26 26 20 21 24 expr { ($s && !$
7390: 72 20 26 26 20 21 24 71 29 20 7c 7c 20 28 21 24 r && !$q) || (!$
73a0: 73 20 26 26 20 24 72 20 26 26 20 24 71 29 20 7d s && $r && $q) }
73b0: 0a 20 20 20 20 7d 20 7b 31 7d 0a 0a 20 20 20 20 . } {1}..
73c0: 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f set ::sqlite_io_
73d0: 65 72 72 6f 72 5f 68 69 74 20 30 0a 20 20 20 20 error_hit 0.
73e0: 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f set ::sqlite_io_
73f0: 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a error_pending 0.
7400: 0a 20 20 20 20 23 20 43 68 65 63 6b 20 74 68 61 . # Check tha
7410: 74 20 6e 6f 20 70 61 67 65 20 72 65 66 65 72 65 t no page refere
7420: 6e 63 65 73 20 77 65 72 65 20 6c 65 61 6b 65 64 nces were leaked
7430: 2e 20 54 68 65 72 65 20 73 68 6f 75 6c 64 20 62 . There should b
7440: 65 20 0a 20 20 20 20 23 20 61 20 73 69 6e 67 6c e . # a singl
7450: 65 20 72 65 66 65 72 65 6e 63 65 20 69 66 20 74 e reference if t
7460: 68 65 72 65 20 69 73 20 73 74 69 6c 6c 20 61 6e here is still an
7470: 20 61 63 74 69 76 65 20 74 72 61 6e 73 61 63 74 active transact
7480: 69 6f 6e 2c 20 0a 20 20 20 20 23 20 6f 72 20 7a ion, . # or z
7490: 65 72 6f 20 6f 74 68 65 72 77 69 73 65 2e 0a 20 ero otherwise..
74a0: 20 20 20 23 0a 20 20 20 20 23 20 55 50 44 41 54 #. # UPDAT
74b0: 45 3a 20 49 66 20 74 68 65 20 49 4f 20 65 72 72 E: If the IO err
74c0: 6f 72 20 6f 63 63 75 72 73 20 61 66 74 65 72 20 or occurs after
74d0: 61 20 27 42 45 47 49 4e 27 20 62 75 74 20 62 65 a 'BEGIN' but be
74e0: 66 6f 72 65 20 61 6e 79 0a 20 20 20 20 23 20 6c fore any. # l
74f0: 6f 63 6b 73 20 61 72 65 20 65 73 74 61 62 6c 69 ocks are establi
7500: 73 68 65 64 20 6f 6e 20 64 61 74 61 62 61 73 65 shed on database
7510: 20 66 69 6c 65 73 20 28 69 2e 65 2e 20 69 66 20 files (i.e. if
7520: 74 68 65 20 65 72 72 6f 72 20 0a 20 20 20 20 23 the error . #
7530: 20 6f 63 63 75 72 73 20 77 68 69 6c 65 20 61 74 occurs while at
7540: 74 65 6d 70 74 69 6e 67 20 74 6f 20 64 65 74 65 tempting to dete
7550: 63 74 20 61 20 68 6f 74 2d 6a 6f 75 72 6e 61 6c ct a hot-journal
7560: 20 66 69 6c 65 29 2c 20 74 68 65 6e 0a 20 20 20 file), then.
7570: 20 23 20 74 68 65 72 65 20 6d 61 79 20 30 20 70 # there may 0 p
7580: 61 67 65 20 72 65 66 65 72 65 6e 63 65 73 20 61 age references a
7590: 6e 64 20 61 6e 20 61 63 74 69 76 65 20 74 72 61 nd an active tra
75a0: 6e 73 61 63 74 69 6f 6e 20 61 63 63 6f 72 64 69 nsaction accordi
75b0: 6e 67 0a 20 20 20 20 23 20 74 6f 20 5b 73 71 6c ng. # to [sql
75c0: 69 74 65 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d ite3_get_autocom
75d0: 6d 69 74 5d 2e 0a 20 20 20 20 23 0a 20 20 20 20 mit].. #.
75e0: 69 66 20 7b 24 3a 3a 67 6f 20 26 26 20 24 3a 3a if {$::go && $::
75f0: 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f sqlite_io_error_
7600: 68 61 72 64 68 69 74 20 26 26 20 24 3a 3a 69 6f hardhit && $::io
7610: 65 72 72 6f 70 74 73 28 2d 63 6b 72 65 66 63 6f erropts(-ckrefco
7620: 75 6e 74 29 7d 20 7b 0a 20 20 20 20 20 20 64 6f unt)} {. do
7630: 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e _test $testname.
7640: 24 6e 2e 34 20 7b 0a 20 20 20 20 20 20 20 20 73 $n.4 {. s
7650: 65 74 20 62 74 20 5b 62 74 72 65 65 5f 66 72 6f et bt [btree_fro
7660: 6d 5f 64 62 20 64 62 5d 0a 20 20 20 20 20 20 20 m_db db].
7670: 20 64 62 5f 65 6e 74 65 72 20 64 62 0a 20 20 20 db_enter db.
7680: 20 20 20 20 20 61 72 72 61 79 20 73 65 74 20 73 array set s
7690: 74 61 74 73 20 5b 62 74 72 65 65 5f 70 61 67 65 tats [btree_page
76a0: 72 5f 73 74 61 74 73 20 24 62 74 5d 0a 20 20 20 r_stats $bt].
76b0: 20 20 20 20 20 64 62 5f 6c 65 61 76 65 20 64 62 db_leave db
76c0: 0a 20 20 20 20 20 20 20 20 73 65 74 20 6e 52 65 . set nRe
76d0: 66 20 24 73 74 61 74 73 28 72 65 66 29 0a 20 20 f $stats(ref).
76e0: 20 20 20 20 20 20 65 78 70 72 20 7b 24 6e 52 65 expr {$nRe
76f0: 66 20 3d 3d 20 30 20 7c 7c 20 28 5b 73 71 6c 69 f == 0 || ([sqli
7700: 74 65 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d te3_get_autocomm
7710: 69 74 20 64 62 5d 3d 3d 30 20 26 26 20 24 6e 52 it db]==0 && $nR
7720: 65 66 20 3d 3d 20 31 29 7d 0a 20 20 20 20 20 20 ef == 1)}.
7730: 7d 20 7b 31 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 } {1}. }..
7740: 20 23 20 49 66 20 74 68 65 72 65 20 69 73 20 61 # If there is a
7750: 6e 20 6f 70 65 6e 20 64 61 74 61 62 61 73 65 20 n open database
7760: 68 61 6e 64 6c 65 20 61 6e 64 20 6e 6f 20 6f 70 handle and no op
7770: 65 6e 20 74 72 61 6e 73 61 63 74 69 6f 6e 2c 20 en transaction,
7780: 0a 20 20 20 20 23 20 61 6e 64 20 74 68 65 20 70 . # and the p
7790: 61 67 65 72 20 69 73 20 6e 6f 74 20 72 75 6e 6e ager is not runn
77a0: 69 6e 67 20 69 6e 20 65 78 63 6c 75 73 69 76 65 ing in exclusive
77b0: 2d 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2c 0a 20 -locking mode,.
77c0: 20 20 20 23 20 63 68 65 63 6b 20 74 68 61 74 20 # check that
77d0: 74 68 65 20 70 61 67 65 72 20 69 73 20 69 6e 20 the pager is in
77e0: 22 75 6e 6c 6f 63 6b 65 64 22 20 73 74 61 74 65 "unlocked" state
77f0: 2e 20 54 68 65 6f 72 65 74 69 63 61 6c 6c 79 2c . Theoretically,
7800: 0a 20 20 20 20 23 20 69 66 20 61 20 63 61 6c 6c . # if a call
7810: 20 74 6f 20 78 55 6e 6c 6f 63 6b 28 29 20 66 61 to xUnlock() fa
7820: 69 6c 65 64 20 64 75 65 20 74 6f 20 61 6e 20 49 iled due to an I
7830: 4f 20 65 72 72 6f 72 20 74 68 65 20 75 6e 64 65 O error the unde
7840: 72 6c 79 69 6e 67 0a 20 20 20 20 23 20 66 69 6c rlying. # fil
7850: 65 20 6d 61 79 20 73 74 69 6c 6c 20 62 65 20 6c e may still be l
7860: 6f 63 6b 65 64 2e 0a 20 20 20 20 23 0a 20 20 20 ocked.. #.
7870: 20 69 66 63 61 70 61 62 6c 65 20 70 72 61 67 6d ifcapable pragm
7880: 61 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 20 5b a {. if { [
7890: 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73 20 64 62 info commands db
78a0: 5d 20 6e 65 20 22 22 0a 20 20 20 20 20 20 20 20 ] ne "".
78b0: 26 26 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 && $::ioerropts(
78c0: 2d 63 6b 72 65 66 63 6f 75 6e 74 29 0a 20 20 20 -ckrefcount).
78d0: 20 20 20 20 20 26 26 20 5b 64 62 20 6f 6e 65 20 && [db one
78e0: 7b 70 72 61 67 6d 61 20 6c 6f 63 6b 69 6e 67 5f {pragma locking_
78f0: 6d 6f 64 65 7d 5d 20 65 71 20 22 6e 6f 72 6d 61 mode}] eq "norma
7900: 6c 22 0a 20 20 20 20 20 20 20 20 26 26 20 5b 73 l". && [s
7910: 71 6c 69 74 65 33 5f 67 65 74 5f 61 75 74 6f 63 qlite3_get_autoc
7920: 6f 6d 6d 69 74 20 64 62 5d 0a 20 20 20 20 20 20 ommit db].
7930: 7d 20 7b 0a 20 20 20 20 20 20 20 20 64 6f 5f 74 } {. do_t
7940: 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e est $testname.$n
7950: 2e 35 20 7b 0a 20 20 20 20 20 20 20 20 20 20 73 .5 {. s
7960: 65 74 20 62 74 20 5b 62 74 72 65 65 5f 66 72 6f et bt [btree_fro
7970: 6d 5f 64 62 20 64 62 5d 0a 20 20 20 20 20 20 20 m_db db].
7980: 20 20 20 64 62 5f 65 6e 74 65 72 20 64 62 0a 20 db_enter db.
7990: 20 20 20 20 20 20 20 20 20 61 72 72 61 79 20 73 array s
79a0: 65 74 20 73 74 61 74 73 20 5b 62 74 72 65 65 5f et stats [btree_
79b0: 70 61 67 65 72 5f 73 74 61 74 73 20 24 62 74 5d pager_stats $bt]
79c0: 0a 20 20 20 20 20 20 20 20 20 20 64 62 5f 6c 65 . db_le
79d0: 61 76 65 20 64 62 0a 20 20 20 20 20 20 20 20 20 ave db.
79e0: 20 73 65 74 20 73 74 61 74 73 28 73 74 61 74 65 set stats(state
79f0: 29 0a 20 20 20 20 20 20 20 20 7d 20 30 0a 20 20 ). } 0.
7a00: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 }. }..
7a10: 20 23 20 49 66 20 61 6e 20 49 4f 20 65 72 72 6f # If an IO erro
7a20: 72 20 6f 63 63 75 72 65 64 2c 20 74 68 65 6e 20 r occured, then
7a30: 74 68 65 20 63 68 65 63 6b 73 75 6d 20 6f 66 20 the checksum of
7a40: 74 68 65 20 64 61 74 61 62 61 73 65 20 73 68 6f the database sho
7a50: 75 6c 64 0a 20 20 20 20 23 20 62 65 20 74 68 65 uld. # be the
7a60: 20 73 61 6d 65 20 61 73 20 62 65 66 6f 72 65 20 same as before
7a70: 74 68 65 20 73 63 72 69 70 74 20 74 68 61 74 20 the script that
7a80: 63 61 75 73 65 64 20 74 68 65 20 49 4f 20 65 72 caused the IO er
7a90: 72 6f 72 20 77 61 73 20 72 75 6e 2e 0a 20 20 20 ror was run..
7aa0: 20 23 0a 20 20 20 20 69 66 20 7b 24 3a 3a 67 6f #. if {$::go
7ab0: 20 26 26 20 24 3a 3a 73 71 6c 69 74 65 5f 69 6f && $::sqlite_io
7ac0: 5f 65 72 72 6f 72 5f 68 61 72 64 68 69 74 20 26 _error_hardhit &
7ad0: 26 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d & $::ioerropts(-
7ae0: 63 6b 73 75 6d 29 7d 20 7b 0a 20 20 20 20 20 20 cksum)} {.
7af0: 64 6f 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d do_test $testnam
7b00: 65 2e 24 6e 2e 36 20 7b 0a 20 20 20 20 20 20 20 e.$n.6 {.
7b10: 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 catch {db close
7b20: 7d 0a 20 20 20 20 20 20 20 20 63 61 74 63 68 20 }. catch
7b30: 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 20 20 20 20 {db2 close}.
7b40: 20 20 20 20 73 65 74 20 3a 3a 44 42 20 5b 73 71 set ::DB [sq
7b50: 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 lite3 db test.db
7b60: 3b 20 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 ; sqlite3_connec
7b70: 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d tion_pointer db]
7b80: 0a 20 20 20 20 20 20 20 20 63 6b 73 75 6d 0a 20 . cksum.
7b90: 20 20 20 20 20 7d 20 24 63 68 65 63 6b 73 75 6d } $checksum
7ba0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 65 74 20 . }.. set
7bb0: 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f ::sqlite_io_erro
7bc0: 72 5f 68 61 72 64 68 69 74 20 30 0a 20 20 20 20 r_hardhit 0.
7bd0: 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f set ::sqlite_io_
7be0: 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a error_pending 0.
7bf0: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 if {[info ex
7c00: 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74 73 ists ::ioerropts
7c10: 28 2d 63 6c 65 61 6e 75 70 29 5d 7d 20 7b 0a 20 (-cleanup)]} {.
7c20: 20 20 20 20 20 63 61 74 63 68 20 24 3a 3a 69 6f catch $::io
7c30: 65 72 72 6f 70 74 73 28 2d 63 6c 65 61 6e 75 70 erropts(-cleanup
7c40: 29 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 65 ). }. }. se
7c50: 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 t ::sqlite_io_er
7c60: 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 0a 20 20 ror_pending 0.
7c70: 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f set ::sqlite_io_
7c80: 65 72 72 6f 72 5f 70 65 72 73 69 73 74 20 30 0a error_persist 0.
7c90: 20 20 75 6e 73 65 74 20 3a 3a 69 6f 65 72 72 6f unset ::ioerro
7ca0: 70 74 73 0a 7d 0a 0a 23 20 52 65 74 75 72 6e 20 pts.}..# Return
7cb0: 61 20 63 68 65 63 6b 73 75 6d 20 62 61 73 65 64 a checksum based
7cc0: 20 6f 6e 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 on the contents
7cd0: 20 6f 66 20 74 68 65 20 6d 61 69 6e 20 64 61 74 of the main dat
7ce0: 61 62 61 73 65 20 61 73 73 6f 63 69 61 74 65 64 abase associated
7cf0: 0a 23 20 77 69 74 68 20 63 6f 6e 6e 65 63 74 69 .# with connecti
7d00: 6f 6e 20 24 64 62 0a 23 0a 70 72 6f 63 20 63 6b on $db.#.proc ck
7d10: 73 75 6d 20 7b 7b 64 62 20 64 62 7d 7d 20 7b 0a sum {{db db}} {.
7d20: 20 20 73 65 74 20 74 78 74 20 5b 24 64 62 20 65 set txt [$db e
7d30: 76 61 6c 20 7b 0a 20 20 20 20 20 20 53 45 4c 45 val {. SELE
7d40: 43 54 20 6e 61 6d 65 2c 20 74 79 70 65 2c 20 73 CT name, type, s
7d50: 71 6c 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d ql FROM sqlite_m
7d60: 61 73 74 65 72 20 6f 72 64 65 72 20 62 79 20 6e aster order by n
7d70: 61 6d 65 0a 20 20 7d 5d 5c 6e 0a 20 20 66 6f 72 ame. }]\n. for
7d80: 65 61 63 68 20 74 62 6c 20 5b 24 64 62 20 65 76 each tbl [$db ev
7d90: 61 6c 20 7b 0a 20 20 20 20 20 20 53 45 4c 45 43 al {. SELEC
7da0: 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 T name FROM sqli
7db0: 74 65 5f 6d 61 73 74 65 72 20 57 48 45 52 45 20 te_master WHERE
7dc0: 74 79 70 65 3d 27 74 61 62 6c 65 27 20 6f 72 64 type='table' ord
7dd0: 65 72 20 62 79 20 6e 61 6d 65 0a 20 20 7d 5d 20 er by name. }]
7de0: 7b 0a 20 20 20 20 61 70 70 65 6e 64 20 74 78 74 {. append txt
7df0: 20 5b 24 64 62 20 65 76 61 6c 20 22 53 45 4c 45 [$db eval "SELE
7e00: 43 54 20 2a 20 46 52 4f 4d 20 24 74 62 6c 22 5d CT * FROM $tbl"]
7e10: 5c 6e 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63 68 \n. }. foreach
7e20: 20 70 72 61 67 20 7b 64 65 66 61 75 6c 74 5f 73 prag {default_s
7e30: 79 6e 63 68 72 6f 6e 6f 75 73 20 64 65 66 61 75 ynchronous defau
7e40: 6c 74 5f 63 61 63 68 65 5f 73 69 7a 65 7d 20 7b lt_cache_size} {
7e50: 0a 20 20 20 20 61 70 70 65 6e 64 20 74 78 74 20 . append txt
7e60: 24 70 72 61 67 2d 5b 24 64 62 20 65 76 61 6c 20 $prag-[$db eval
7e70: 22 50 52 41 47 4d 41 20 24 70 72 61 67 22 5d 5c "PRAGMA $prag"]\
7e80: 6e 0a 20 20 7d 0a 20 20 73 65 74 20 63 6b 73 75 n. }. set cksu
7e90: 6d 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 m [string length
7ea0: 20 24 74 78 74 5d 2d 5b 6d 64 35 20 24 74 78 74 $txt]-[md5 $txt
7eb0: 5d 0a 20 20 23 20 70 75 74 73 20 24 63 6b 73 75 ]. # puts $cksu
7ec0: 6d 2d 5b 66 69 6c 65 20 73 69 7a 65 20 74 65 73 m-[file size tes
7ed0: 74 2e 64 62 5d 0a 20 20 72 65 74 75 72 6e 20 24 t.db]. return $
7ee0: 63 6b 73 75 6d 0a 7d 0a 0a 23 20 47 65 6e 65 72 cksum.}..# Gener
7ef0: 61 74 65 20 61 20 63 68 65 63 6b 73 75 6d 20 62 ate a checksum b
7f00: 61 73 65 64 20 6f 6e 20 74 68 65 20 63 6f 6e 74 ased on the cont
7f10: 65 6e 74 73 20 6f 66 20 74 68 65 20 6d 61 69 6e ents of the main
7f20: 20 61 6e 64 20 74 65 6d 70 20 74 61 62 6c 65 73 and temp tables
7f30: 0a 23 20 64 61 74 61 62 61 73 65 20 24 64 62 2e .# database $db.
7f40: 20 49 66 20 74 68 65 20 63 68 65 63 6b 73 75 6d If the checksum
7f50: 20 6f 66 20 74 77 6f 20 64 61 74 61 62 61 73 65 of two database
7f60: 73 20 69 73 20 74 68 65 20 73 61 6d 65 2c 20 61 s is the same, a
7f70: 6e 64 20 74 68 65 0a 23 20 69 6e 74 65 67 72 69 nd the.# integri
7f80: 74 79 2d 63 68 65 63 6b 20 70 61 73 73 65 73 20 ty-check passes
7f90: 66 6f 72 20 62 6f 74 68 2c 20 74 68 65 20 74 77 for both, the tw
7fa0: 6f 20 64 61 74 61 62 61 73 65 73 20 61 72 65 20 o databases are
7fb0: 69 64 65 6e 74 69 63 61 6c 2e 0a 23 0a 70 72 6f identical..#.pro
7fc0: 63 20 61 6c 6c 63 6b 73 75 6d 20 7b 7b 64 62 20 c allcksum {{db
7fd0: 64 62 7d 7d 20 7b 0a 20 20 73 65 74 20 72 65 74 db}} {. set ret
7fe0: 20 5b 6c 69 73 74 5d 0a 20 20 69 66 63 61 70 61 [list]. ifcapa
7ff0: 62 6c 65 20 74 65 6d 70 64 62 20 7b 0a 20 20 20 ble tempdb {.
8000: 20 73 65 74 20 73 71 6c 20 7b 0a 20 20 20 20 20 set sql {.
8010: 20 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f SELECT name FRO
8020: 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 M sqlite_master
8030: 57 48 45 52 45 20 74 79 70 65 20 3d 20 27 74 61 WHERE type = 'ta
8040: 62 6c 65 27 20 55 4e 49 4f 4e 0a 20 20 20 20 20 ble' UNION.
8050: 20 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f SELECT name FRO
8060: 4d 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 M sqlite_temp_ma
8070: 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65 20 ster WHERE type
8080: 3d 20 27 74 61 62 6c 65 27 20 55 4e 49 4f 4e 0a = 'table' UNION.
8090: 20 20 20 20 20 20 53 45 4c 45 43 54 20 27 73 71 SELECT 'sq
80a0: 6c 69 74 65 5f 6d 61 73 74 65 72 27 20 55 4e 49 lite_master' UNI
80b0: 4f 4e 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 ON. SELECT
80c0: 27 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 'sqlite_temp_mas
80d0: 74 65 72 27 20 4f 52 44 45 52 20 42 59 20 31 0a ter' ORDER BY 1.
80e0: 20 20 20 20 7d 0a 20 20 7d 20 65 6c 73 65 20 7b }. } else {
80f0: 0a 20 20 20 20 73 65 74 20 73 71 6c 20 7b 0a 20 . set sql {.
8100: 20 20 20 20 20 53 45 4c 45 43 54 20 6e 61 6d 65 SELECT name
8110: 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 FROM sqlite_mas
8120: 74 65 72 20 57 48 45 52 45 20 74 79 70 65 20 3d ter WHERE type =
8130: 20 27 74 61 62 6c 65 27 20 55 4e 49 4f 4e 0a 20 'table' UNION.
8140: 20 20 20 20 20 53 45 4c 45 43 54 20 27 73 71 6c SELECT 'sql
8150: 69 74 65 5f 6d 61 73 74 65 72 27 20 4f 52 44 45 ite_master' ORDE
8160: 52 20 42 59 20 31 0a 20 20 20 20 7d 0a 20 20 7d R BY 1. }. }
8170: 0a 20 20 73 65 74 20 74 62 6c 6c 69 73 74 20 5b . set tbllist [
8180: 24 64 62 20 65 76 61 6c 20 24 73 71 6c 5d 0a 20 $db eval $sql].
8190: 20 73 65 74 20 74 78 74 20 7b 7d 0a 20 20 66 6f set txt {}. fo
81a0: 72 65 61 63 68 20 74 62 6c 20 24 74 62 6c 6c 69 reach tbl $tblli
81b0: 73 74 20 7b 0a 20 20 20 20 61 70 70 65 6e 64 20 st {. append
81c0: 74 78 74 20 5b 24 64 62 20 65 76 61 6c 20 22 53 txt [$db eval "S
81d0: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 24 74 62 ELECT * FROM $tb
81e0: 6c 22 5d 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63 l"]. }. foreac
81f0: 68 20 70 72 61 67 20 7b 64 65 66 61 75 6c 74 5f h prag {default_
8200: 63 61 63 68 65 5f 73 69 7a 65 7d 20 7b 0a 20 20 cache_size} {.
8210: 20 20 61 70 70 65 6e 64 20 74 78 74 20 24 70 72 append txt $pr
8220: 61 67 2d 5b 24 64 62 20 65 76 61 6c 20 22 50 52 ag-[$db eval "PR
8230: 41 47 4d 41 20 24 70 72 61 67 22 5d 5c 6e 0a 20 AGMA $prag"]\n.
8240: 20 7d 0a 20 20 23 20 70 75 74 73 20 74 78 74 3d }. # puts txt=
8250: 24 74 78 74 0a 20 20 72 65 74 75 72 6e 20 5b 6d $txt. return [m
8260: 64 35 20 24 74 78 74 5d 0a 7d 0a 0a 23 20 47 65 d5 $txt].}..# Ge
8270: 6e 65 72 61 74 65 20 61 20 63 68 65 63 6b 73 75 nerate a checksu
8280: 6d 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 63 m based on the c
8290: 6f 6e 74 65 6e 74 73 20 6f 66 20 61 20 73 69 6e ontents of a sin
82a0: 67 6c 65 20 64 61 74 61 62 61 73 65 20 77 69 74 gle database wit
82b0: 68 0a 23 20 61 20 64 61 74 61 62 61 73 65 20 63 h.# a database c
82c0: 6f 6e 6e 65 63 74 69 6f 6e 2e 20 20 54 68 65 20 onnection. The
82d0: 6e 61 6d 65 20 6f 66 20 74 68 65 20 64 61 74 61 name of the data
82e0: 62 61 73 65 20 69 73 20 24 64 62 6e 61 6d 65 2e base is $dbname.
82f0: 20 20 0a 23 20 45 78 61 6d 70 6c 65 73 20 6f 66 .# Examples of
8300: 20 24 64 62 6e 61 6d 65 20 61 72 65 20 22 74 65 $dbname are "te
8310: 6d 70 22 20 6f 72 20 22 6d 61 69 6e 22 2e 0a 23 mp" or "main"..#
8320: 0a 70 72 6f 63 20 64 62 63 6b 73 75 6d 20 7b 64 .proc dbcksum {d
8330: 62 20 64 62 6e 61 6d 65 7d 20 7b 0a 20 20 69 66 b dbname} {. if
8340: 20 7b 24 64 62 6e 61 6d 65 3d 3d 22 74 65 6d 70 {$dbname=="temp
8350: 22 7d 20 7b 0a 20 20 20 20 73 65 74 20 6d 61 73 "} {. set mas
8360: 74 65 72 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f ter sqlite_temp_
8370: 6d 61 73 74 65 72 0a 20 20 7d 20 65 6c 73 65 20 master. } else
8380: 7b 0a 20 20 20 20 73 65 74 20 6d 61 73 74 65 72 {. set master
8390: 20 24 64 62 6e 61 6d 65 2e 73 71 6c 69 74 65 5f $dbname.sqlite_
83a0: 6d 61 73 74 65 72 0a 20 20 7d 0a 20 20 73 65 74 master. }. set
83b0: 20 61 6c 6c 74 61 62 20 5b 24 64 62 20 65 76 61 alltab [$db eva
83c0: 6c 20 22 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 l "SELECT name F
83d0: 52 4f 4d 20 24 6d 61 73 74 65 72 20 57 48 45 52 ROM $master WHER
83e0: 45 20 74 79 70 65 3d 27 74 61 62 6c 65 27 22 5d E type='table'"]
83f0: 0a 20 20 73 65 74 20 74 78 74 20 5b 24 64 62 20 . set txt [$db
8400: 65 76 61 6c 20 22 53 45 4c 45 43 54 20 2a 20 46 eval "SELECT * F
8410: 52 4f 4d 20 24 6d 61 73 74 65 72 22 5d 5c 6e 0a ROM $master"]\n.
8420: 20 20 66 6f 72 65 61 63 68 20 74 61 62 20 24 61 foreach tab $a
8430: 6c 6c 74 61 62 20 7b 0a 20 20 20 20 61 70 70 65 lltab {. appe
8440: 6e 64 20 74 78 74 20 5b 24 64 62 20 65 76 61 6c nd txt [$db eval
8450: 20 22 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 "SELECT * FROM
8460: 24 64 62 6e 61 6d 65 2e 24 74 61 62 22 5d 5c 6e $dbname.$tab"]\n
8470: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 5b 6d . }. return [m
8480: 64 35 20 24 74 78 74 5d 0a 7d 0a 0a 70 72 6f 63 d5 $txt].}..proc
8490: 20 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 5f 73 71 memdebug_log_sq
84a0: 6c 20 7b 7b 66 69 6c 65 6e 61 6d 65 20 6d 61 6c l {{filename mal
84b0: 6c 6f 63 73 2e 73 71 6c 7d 7d 20 7b 0a 0a 20 20 locs.sql}} {..
84c0: 73 65 74 20 64 61 74 61 20 5b 73 71 6c 69 74 65 set data [sqlite
84d0: 33 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 20 64 3_memdebug_log d
84e0: 75 6d 70 5d 0a 20 20 73 65 74 20 6e 46 72 61 6d ump]. set nFram
84f0: 65 20 5b 65 78 70 72 20 5b 6c 6c 65 6e 67 74 68 e [expr [llength
8500: 20 5b 6c 69 6e 64 65 78 20 24 64 61 74 61 20 30 [lindex $data 0
8510: 5d 5d 2d 32 5d 0a 20 20 69 66 20 7b 24 6e 46 72 ]]-2]. if {$nFr
8520: 61 6d 65 20 3c 20 30 7d 20 7b 20 72 65 74 75 72 ame < 0} { retur
8530: 6e 20 22 22 20 7d 0a 0a 20 20 73 65 74 20 64 61 n "" }.. set da
8540: 74 61 62 61 73 65 20 74 65 6d 70 0a 0a 20 20 73 tabase temp.. s
8550: 65 74 20 74 62 6c 20 22 43 52 45 41 54 45 20 54 et tbl "CREATE T
8560: 41 42 4c 45 20 24 7b 64 61 74 61 62 61 73 65 7d ABLE ${database}
8570: 2e 6d 61 6c 6c 6f 63 28 7a 54 65 73 74 2c 20 6e .malloc(zTest, n
8580: 43 61 6c 6c 2c 20 6e 42 79 74 65 2c 20 6c 53 74 Call, nByte, lSt
8590: 61 63 6b 29 3b 22 0a 0a 20 20 73 65 74 20 73 71 ack);".. set sq
85a0: 6c 20 22 22 0a 20 20 66 6f 72 65 61 63 68 20 65 l "". foreach e
85b0: 20 24 64 61 74 61 20 7b 0a 20 20 20 20 73 65 74 $data {. set
85c0: 20 6e 43 61 6c 6c 20 5b 6c 69 6e 64 65 78 20 24 nCall [lindex $
85d0: 65 20 30 5d 0a 20 20 20 20 73 65 74 20 6e 42 79 e 0]. set nBy
85e0: 74 65 20 5b 6c 69 6e 64 65 78 20 24 65 20 31 5d te [lindex $e 1]
85f0: 0a 20 20 20 20 73 65 74 20 6c 53 74 61 63 6b 20 . set lStack
8600: 5b 6c 72 61 6e 67 65 20 24 65 20 32 20 65 6e 64 [lrange $e 2 end
8610: 5d 0a 20 20 20 20 61 70 70 65 6e 64 20 73 71 6c ]. append sql
8620: 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 24 7b "INSERT INTO ${
8630: 64 61 74 61 62 61 73 65 7d 2e 6d 61 6c 6c 6f 63 database}.malloc
8640: 20 56 41 4c 55 45 53 22 0a 20 20 20 20 61 70 70 VALUES". app
8650: 65 6e 64 20 73 71 6c 20 22 28 27 74 65 73 74 27 end sql "('test'
8660: 2c 20 24 6e 43 61 6c 6c 2c 20 24 6e 42 79 74 65 , $nCall, $nByte
8670: 2c 20 27 24 6c 53 74 61 63 6b 27 29 3b 5c 6e 22 , '$lStack');\n"
8680: 0a 20 20 20 20 66 6f 72 65 61 63 68 20 66 20 24 . foreach f $
8690: 6c 53 74 61 63 6b 20 7b 0a 20 20 20 20 20 20 73 lStack {. s
86a0: 65 74 20 66 72 61 6d 65 73 28 24 66 29 20 31 0a et frames($f) 1.
86b0: 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 73 65 74 }. }.. set
86c0: 20 74 62 6c 32 20 22 43 52 45 41 54 45 20 54 41 tbl2 "CREATE TA
86d0: 42 4c 45 20 24 7b 64 61 74 61 62 61 73 65 7d 2e BLE ${database}.
86e0: 66 72 61 6d 65 28 66 72 61 6d 65 20 49 4e 54 45 frame(frame INTE
86f0: 47 45 52 20 50 52 49 4d 41 52 59 20 4b 45 59 2c GER PRIMARY KEY,
8700: 20 6c 69 6e 65 29 3b 5c 6e 22 0a 20 20 73 65 74 line);\n". set
8710: 20 74 62 6c 33 20 22 43 52 45 41 54 45 20 54 41 tbl3 "CREATE TA
8720: 42 4c 45 20 24 7b 64 61 74 61 62 61 73 65 7d 2e BLE ${database}.
8730: 66 69 6c 65 28 6e 61 6d 65 20 50 52 49 4d 41 52 file(name PRIMAR
8740: 59 20 4b 45 59 2c 20 63 6f 6e 74 65 6e 74 29 3b Y KEY, content);
8750: 5c 6e 22 0a 0a 20 20 66 6f 72 65 61 63 68 20 66 \n".. foreach f
8760: 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 66 72 [array names fr
8770: 61 6d 65 73 5d 20 7b 0a 20 20 20 20 73 65 74 20 ames] {. set
8780: 61 64 64 72 20 5b 66 6f 72 6d 61 74 20 25 78 20 addr [format %x
8790: 24 66 5d 0a 20 20 20 20 73 65 74 20 63 6d 64 20 $f]. set cmd
87a0: 22 61 64 64 72 32 6c 69 6e 65 20 2d 65 20 5b 69 "addr2line -e [i
87b0: 6e 66 6f 20 6e 61 6d 65 6f 66 65 78 65 63 5d 20 nfo nameofexec]
87c0: 24 61 64 64 72 22 0a 20 20 20 20 73 65 74 20 6c $addr". set l
87d0: 69 6e 65 20 5b 65 76 61 6c 20 65 78 65 63 20 24 ine [eval exec $
87e0: 63 6d 64 5d 0a 20 20 20 20 61 70 70 65 6e 64 20 cmd]. append
87f0: 73 71 6c 20 22 49 4e 53 45 52 54 20 49 4e 54 4f sql "INSERT INTO
8800: 20 24 7b 64 61 74 61 62 61 73 65 7d 2e 66 72 61 ${database}.fra
8810: 6d 65 20 56 41 4c 55 45 53 28 24 66 2c 20 27 24 me VALUES($f, '$
8820: 6c 69 6e 65 27 29 3b 5c 6e 22 0a 0a 20 20 20 20 line');\n"..
8830: 73 65 74 20 66 69 6c 65 20 5b 6c 69 6e 64 65 78 set file [lindex
8840: 20 5b 73 70 6c 69 74 20 24 6c 69 6e 65 20 3a 5d [split $line :]
8850: 20 30 5d 0a 20 20 20 20 73 65 74 20 66 69 6c 65 0]. set file
8860: 73 28 24 66 69 6c 65 29 20 31 0a 20 20 7d 0a 0a s($file) 1. }..
8870: 20 20 66 6f 72 65 61 63 68 20 66 20 5b 61 72 72 foreach f [arr
8880: 61 79 20 6e 61 6d 65 73 20 66 69 6c 65 73 5d 20 ay names files]
8890: 7b 0a 20 20 20 20 73 65 74 20 63 6f 6e 74 65 6e {. set conten
88a0: 74 73 20 22 22 0a 20 20 20 20 63 61 74 63 68 20 ts "". catch
88b0: 7b 0a 20 20 20 20 20 20 73 65 74 20 66 64 20 5b {. set fd [
88c0: 6f 70 65 6e 20 24 66 5d 0a 20 20 20 20 20 20 73 open $f]. s
88d0: 65 74 20 63 6f 6e 74 65 6e 74 73 20 5b 72 65 61 et contents [rea
88e0: 64 20 24 66 64 5d 0a 20 20 20 20 20 20 63 6c 6f d $fd]. clo
88f0: 73 65 20 24 66 64 0a 20 20 20 20 7d 0a 20 20 20 se $fd. }.
8900: 20 73 65 74 20 63 6f 6e 74 65 6e 74 73 20 5b 73 set contents [s
8910: 74 72 69 6e 67 20 6d 61 70 20 7b 27 20 27 27 7d tring map {' ''}
8920: 20 24 63 6f 6e 74 65 6e 74 73 5d 0a 20 20 20 20 $contents].
8930: 61 70 70 65 6e 64 20 73 71 6c 20 22 49 4e 53 45 append sql "INSE
8940: 52 54 20 49 4e 54 4f 20 24 7b 64 61 74 61 62 61 RT INTO ${databa
8950: 73 65 7d 2e 66 69 6c 65 20 56 41 4c 55 45 53 28 se}.file VALUES(
8960: 27 24 66 27 2c 20 27 24 63 6f 6e 74 65 6e 74 73 '$f', '$contents
8970: 27 29 3b 5c 6e 22 0a 20 20 7d 0a 0a 20 20 73 65 ');\n". }.. se
8980: 74 20 66 64 20 5b 6f 70 65 6e 20 24 66 69 6c 65 t fd [open $file
8990: 6e 61 6d 65 20 77 5d 0a 20 20 70 75 74 73 20 24 name w]. puts $
89a0: 66 64 20 22 42 45 47 49 4e 3b 20 24 7b 74 62 6c fd "BEGIN; ${tbl
89b0: 7d 24 7b 74 62 6c 32 7d 24 7b 74 62 6c 33 7d 24 }${tbl2}${tbl3}$
89c0: 7b 73 71 6c 7d 20 3b 20 43 4f 4d 4d 49 54 3b 22 {sql} ; COMMIT;"
89d0: 0a 20 20 63 6c 6f 73 65 20 24 66 64 0a 7d 0a 0a . close $fd.}..
89e0: 23 20 43 6f 70 79 20 66 69 6c 65 20 24 66 72 6f # Copy file $fro
89f0: 6d 20 69 6e 74 6f 20 24 74 6f 2e 20 54 68 69 73 m into $to. This
8a00: 20 69 73 20 75 73 65 64 20 62 65 63 61 75 73 65 is used because
8a10: 20 73 6f 6d 65 20 76 65 72 73 69 6f 6e 73 20 6f some versions o
8a20: 66 0a 23 20 54 43 4c 20 66 6f 72 20 77 69 6e 64 f.# TCL for wind
8a30: 6f 77 73 20 28 6e 6f 74 61 62 6c 79 20 74 68 65 ows (notably the
8a40: 20 38 2e 34 2e 31 20 62 69 6e 61 72 79 20 70 61 8.4.1 binary pa
8a50: 63 6b 61 67 65 20 73 68 69 70 70 65 64 20 77 69 ckage shipped wi
8a60: 74 68 20 74 68 65 0a 23 20 63 75 72 72 65 6e 74 th the.# current
8a70: 20 6d 69 6e 67 77 20 72 65 6c 65 61 73 65 29 20 mingw release)
8a80: 68 61 76 65 20 61 20 62 72 6f 6b 65 6e 20 22 66 have a broken "f
8a90: 69 6c 65 20 63 6f 70 79 22 20 63 6f 6d 6d 61 6e ile copy" comman
8aa0: 64 2e 0a 23 0a 70 72 6f 63 20 63 6f 70 79 5f 66 d..#.proc copy_f
8ab0: 69 6c 65 20 7b 66 72 6f 6d 20 74 6f 7d 20 7b 0a ile {from to} {.
8ac0: 20 20 69 66 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61 if {$::tcl_pla
8ad0: 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 3d tform(platform)=
8ae0: 3d 22 75 6e 69 78 22 7d 20 7b 0a 20 20 20 20 66 ="unix"} {. f
8af0: 69 6c 65 20 63 6f 70 79 20 2d 66 6f 72 63 65 20 ile copy -force
8b00: 24 66 72 6f 6d 20 24 74 6f 0a 20 20 7d 20 65 6c $from $to. } el
8b10: 73 65 20 7b 0a 20 20 20 20 73 65 74 20 66 20 5b se {. set f [
8b20: 6f 70 65 6e 20 24 66 72 6f 6d 5d 0a 20 20 20 20 open $from].
8b30: 66 63 6f 6e 66 69 67 75 72 65 20 24 66 20 2d 74 fconfigure $f -t
8b40: 72 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72 ranslation binar
8b50: 79 0a 20 20 20 20 73 65 74 20 74 20 5b 6f 70 65 y. set t [ope
8b60: 6e 20 24 74 6f 20 77 5d 0a 20 20 20 20 66 63 6f n $to w]. fco
8b70: 6e 66 69 67 75 72 65 20 24 74 20 2d 74 72 61 6e nfigure $t -tran
8b80: 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72 79 0a 20 slation binary.
8b90: 20 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 puts -nonewli
8ba0: 6e 65 20 24 74 20 5b 72 65 61 64 20 24 66 20 5b ne $t [read $f [
8bb0: 66 69 6c 65 20 73 69 7a 65 20 24 66 72 6f 6d 5d file size $from]
8bc0: 5d 0a 20 20 20 20 63 6c 6f 73 65 20 24 74 0a 20 ]. close $t.
8bd0: 20 20 20 63 6c 6f 73 65 20 24 66 0a 20 20 7d 0a close $f. }.
8be0: 7d 0a 0a 23 20 44 72 6f 70 20 61 6c 6c 20 74 61 }..# Drop all ta
8bf0: 62 6c 65 73 20 69 6e 20 64 61 74 61 62 61 73 65 bles in database
8c00: 20 5b 64 62 5d 0a 70 72 6f 63 20 64 72 6f 70 5f [db].proc drop_
8c10: 61 6c 6c 5f 74 61 62 6c 65 73 20 7b 7b 64 62 20 all_tables {{db
8c20: 64 62 7d 7d 20 7b 0a 20 20 69 66 63 61 70 61 62 db}} {. ifcapab
8c30: 6c 65 20 74 72 69 67 67 65 72 26 26 66 6f 72 65 le trigger&&fore
8c40: 69 67 6e 6b 65 79 20 7b 0a 20 20 20 20 73 65 74 ignkey {. set
8c50: 20 70 6b 20 5b 24 64 62 20 6f 6e 65 20 22 50 52 pk [$db one "PR
8c60: 41 47 4d 41 20 66 6f 72 65 69 67 6e 5f 6b 65 79 AGMA foreign_key
8c70: 73 22 5d 0a 20 20 20 20 24 64 62 20 65 76 61 6c s"]. $db eval
8c80: 20 22 50 52 41 47 4d 41 20 66 6f 72 65 69 67 6e "PRAGMA foreign
8c90: 5f 6b 65 79 73 20 3d 20 4f 46 46 22 0a 20 20 7d _keys = OFF". }
8ca0: 0a 20 20 66 6f 72 65 61 63 68 20 7b 69 64 78 20 . foreach {idx
8cb0: 6e 61 6d 65 20 66 69 6c 65 7d 20 5b 64 62 20 65 name file} [db e
8cc0: 76 61 6c 20 7b 50 52 41 47 4d 41 20 64 61 74 61 val {PRAGMA data
8cd0: 62 61 73 65 5f 6c 69 73 74 7d 5d 20 7b 0a 20 20 base_list}] {.
8ce0: 20 20 69 66 20 7b 24 69 64 78 3d 3d 31 7d 20 7b if {$idx==1} {
8cf0: 0a 20 20 20 20 20 20 73 65 74 20 6d 61 73 74 65 . set maste
8d00: 72 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 r sqlite_temp_ma
8d10: 73 74 65 72 0a 20 20 20 20 7d 20 65 6c 73 65 20 ster. } else
8d20: 7b 0a 20 20 20 20 20 20 73 65 74 20 6d 61 73 74 {. set mast
8d30: 65 72 20 24 6e 61 6d 65 2e 73 71 6c 69 74 65 5f er $name.sqlite_
8d40: 6d 61 73 74 65 72 0a 20 20 20 20 7d 0a 20 20 20 master. }.
8d50: 20 66 6f 72 65 61 63 68 20 7b 74 20 74 79 70 65 foreach {t type
8d60: 7d 20 5b 24 64 62 20 65 76 61 6c 20 22 0a 20 20 } [$db eval ".
8d70: 20 20 20 20 53 45 4c 45 43 54 20 6e 61 6d 65 2c SELECT name,
8d80: 20 74 79 70 65 20 46 52 4f 4d 20 24 6d 61 73 74 type FROM $mast
8d90: 65 72 0a 20 20 20 20 20 20 57 48 45 52 45 20 74 er. WHERE t
8da0: 79 70 65 20 49 4e 28 27 74 61 62 6c 65 27 2c 20 ype IN('table',
8db0: 27 76 69 65 77 27 29 20 41 4e 44 20 6e 61 6d 65 'view') AND name
8dc0: 20 4e 4f 54 20 4c 49 4b 45 20 27 73 71 6c 69 74 NOT LIKE 'sqlit
8dd0: 65 58 5f 25 27 20 45 53 43 41 50 45 20 27 58 27 eX_%' ESCAPE 'X'
8de0: 0a 20 20 20 20 22 5d 20 7b 0a 20 20 20 20 20 20 . "] {.
8df0: 24 64 62 20 65 76 61 6c 20 22 44 52 4f 50 20 24 $db eval "DROP $
8e00: 74 79 70 65 20 5c 22 24 74 5c 22 22 0a 20 20 20 type \"$t\"".
8e10: 20 7d 0a 20 20 7d 0a 20 20 69 66 63 61 70 61 62 }. }. ifcapab
8e20: 6c 65 20 74 72 69 67 67 65 72 26 26 66 6f 72 65 le trigger&&fore
8e30: 69 67 6e 6b 65 79 20 7b 0a 20 20 20 20 24 64 62 ignkey {. $db
8e40: 20 65 76 61 6c 20 22 50 52 41 47 4d 41 20 66 6f eval "PRAGMA fo
8e50: 72 65 69 67 6e 5f 6b 65 79 73 20 3d 20 24 70 6b reign_keys = $pk
8e60: 22 0a 20 20 7d 0a 7d 0a 0a 23 2d 2d 2d 2d 2d 2d ". }.}..#------
8e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8eb0: 2d 2d 2d 0a 23 20 49 66 20 61 20 74 65 73 74 20 ---.# If a test
8ec0: 73 63 72 69 70 74 20 69 73 20 65 78 65 63 75 74 script is execut
8ed0: 65 64 20 77 69 74 68 20 67 6c 6f 62 61 6c 20 76 ed with global v
8ee0: 61 72 69 61 62 6c 65 20 24 3a 3a 47 28 70 65 72 ariable $::G(per
8ef0: 6d 3a 6e 61 6d 65 29 20 73 65 74 20 74 6f 0a 23 m:name) set to.#
8f00: 20 22 77 61 6c 22 2c 20 74 68 65 6e 20 74 68 65 "wal", then the
8f10: 20 74 65 73 74 73 20 61 72 65 20 72 75 6e 20 69 tests are run i
8f20: 6e 20 57 41 4c 20 6d 6f 64 65 2e 20 4f 74 68 65 n WAL mode. Othe
8f30: 72 77 69 73 65 2c 20 74 68 65 79 20 73 68 6f 75 rwise, they shou
8f40: 6c 64 20 62 65 20 72 75 6e 20 0a 23 20 69 6e 20 ld be run .# in
8f50: 72 6f 6c 6c 62 61 63 6b 20 6d 6f 64 65 2e 20 54 rollback mode. T
8f60: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 54 63 6c he following Tcl
8f70: 20 70 72 6f 63 73 20 61 72 65 20 75 73 65 64 20 procs are used
8f80: 74 6f 20 6d 61 6b 65 20 74 68 69 73 20 6c 65 73 to make this les
8f90: 73 20 0a 23 20 69 6e 74 72 75 73 69 76 65 3a 0a s .# intrusive:.
8fa0: 23 0a 23 20 20 20 77 61 6c 5f 73 65 74 5f 6a 6f #.# wal_set_jo
8fb0: 75 72 6e 61 6c 5f 6d 6f 64 65 20 3f 44 42 3f 0a urnal_mode ?DB?.
8fc0: 23 0a 23 20 20 20 20 20 49 66 20 72 75 6e 6e 69 #.# If runni
8fd0: 6e 67 20 61 20 57 41 4c 20 74 65 73 74 2c 20 65 ng a WAL test, e
8fe0: 78 65 63 75 74 65 20 22 50 52 41 47 4d 41 20 6a xecute "PRAGMA j
8ff0: 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20 77 61 ournal_mode = wa
9000: 6c 22 20 75 73 69 6e 67 0a 23 20 20 20 20 20 63 l" using.# c
9010: 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 6e 64 6c 65 onnection handle
9020: 20 44 42 2e 20 4f 74 68 65 72 77 69 73 65 2c 20 DB. Otherwise,
9030: 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 this command is
9040: 61 20 6e 6f 2d 6f 70 2e 0a 23 0a 23 20 20 20 77 a no-op..#.# w
9050: 61 6c 5f 63 68 65 63 6b 5f 6a 6f 75 72 6e 61 6c al_check_journal
9060: 5f 6d 6f 64 65 20 54 45 53 54 4e 41 4d 45 20 3f _mode TESTNAME ?
9070: 44 42 3f 0a 23 0a 23 20 20 20 20 20 49 66 20 72 DB?.#.# If r
9080: 75 6e 6e 69 6e 67 20 61 20 57 41 4c 20 74 65 73 unning a WAL tes
9090: 74 2c 20 65 78 65 63 75 74 65 20 61 20 74 65 73 t, execute a tes
90a0: 74 73 20 63 61 73 65 20 74 68 61 74 20 66 61 69 ts case that fai
90b0: 6c 73 20 69 66 20 74 68 65 20 6d 61 69 6e 0a 23 ls if the main.#
90c0: 20 20 20 20 20 64 61 74 61 62 61 73 65 20 66 6f database fo
90d0: 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 6e r connection han
90e0: 64 6c 65 20 44 42 20 69 73 20 6e 6f 74 20 63 75 dle DB is not cu
90f0: 72 72 65 6e 74 6c 79 20 61 20 57 41 4c 20 64 61 rrently a WAL da
9100: 74 61 62 61 73 65 2e 0a 23 20 20 20 20 20 4f 74 tabase..# Ot
9110: 68 65 72 77 69 73 65 20 28 69 66 20 6e 6f 74 20 herwise (if not
9120: 72 75 6e 6e 69 6e 67 20 61 20 57 41 4c 20 70 65 running a WAL pe
9130: 72 6d 75 74 61 74 69 6f 6e 29 20 74 68 69 73 20 rmutation) this
9140: 69 73 20 61 20 6e 6f 2d 6f 70 2e 0a 23 0a 23 20 is a no-op..#.#
9150: 20 20 77 61 6c 5f 69 73 5f 77 61 6c 5f 6d 6f 64 wal_is_wal_mod
9160: 65 0a 23 20 20 20 0a 23 20 20 20 20 20 52 65 74 e.# .# Ret
9170: 75 72 6e 73 20 74 72 75 65 20 69 66 20 74 68 69 urns true if thi
9180: 73 20 74 65 73 74 20 73 68 6f 75 6c 64 20 62 65 s test should be
9190: 20 72 75 6e 20 69 6e 20 57 41 4c 20 6d 6f 64 65 run in WAL mode
91a0: 2e 20 46 61 6c 73 65 20 6f 74 68 65 72 77 69 73 . False otherwis
91b0: 65 2e 0a 23 20 0a 70 72 6f 63 20 77 61 6c 5f 69 e..# .proc wal_i
91c0: 73 5f 77 61 6c 5f 6d 6f 64 65 20 7b 7d 20 7b 0a s_wal_mode {} {.
91d0: 20 20 65 78 70 72 20 7b 5b 70 65 72 6d 75 74 61 expr {[permuta
91e0: 74 69 6f 6e 5d 20 65 71 20 22 77 61 6c 22 7d 0a tion] eq "wal"}.
91f0: 7d 0a 70 72 6f 63 20 77 61 6c 5f 73 65 74 5f 6a }.proc wal_set_j
9200: 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 7b 7b 64 62 ournal_mode {{db
9210: 20 64 62 7d 7d 20 7b 0a 20 20 69 66 20 7b 20 5b db}} {. if { [
9220: 77 61 6c 5f 69 73 5f 77 61 6c 5f 6d 6f 64 65 5d wal_is_wal_mode]
9230: 20 7d 20 7b 0a 20 20 20 20 24 64 62 20 65 76 61 } {. $db eva
9240: 6c 20 22 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 l "PRAGMA journa
9250: 6c 5f 6d 6f 64 65 20 3d 20 57 41 4c 22 0a 20 20 l_mode = WAL".
9260: 7d 0a 7d 0a 70 72 6f 63 20 77 61 6c 5f 63 68 65 }.}.proc wal_che
9270: 63 6b 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 ck_journal_mode
9280: 7b 74 65 73 74 6e 61 6d 65 20 7b 64 62 20 64 62 {testname {db db
9290: 7d 7d 20 7b 0a 20 20 69 66 20 7b 20 5b 77 61 6c }} {. if { [wal
92a0: 5f 69 73 5f 77 61 6c 5f 6d 6f 64 65 5d 20 7d 20 _is_wal_mode] }
92b0: 7b 0a 20 20 20 20 24 64 62 20 65 76 61 6c 20 7b {. $db eval {
92c0: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73 SELECT * FROM s
92d0: 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 7d 0a 20 qlite_master }.
92e0: 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74 do_test $test
92f0: 6e 61 6d 65 20 5b 6c 69 73 74 20 24 64 62 20 65 name [list $db e
9300: 76 61 6c 20 22 50 52 41 47 4d 41 20 6d 61 69 6e val "PRAGMA main
9310: 2e 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 22 5d 20 .journal_mode"]
9320: 7b 77 61 6c 7d 0a 20 20 7d 0a 7d 0a 0a 70 72 6f {wal}. }.}..pro
9330: 63 20 70 65 72 6d 75 74 61 74 69 6f 6e 20 7b 7d c permutation {}
9340: 20 7b 0a 20 20 73 65 74 20 70 65 72 6d 20 22 22 {. set perm ""
9350: 0a 20 20 63 61 74 63 68 20 7b 73 65 74 20 70 65 . catch {set pe
9360: 72 6d 20 24 3a 3a 47 28 70 65 72 6d 3a 6e 61 6d rm $::G(perm:nam
9370: 65 29 7d 0a 20 20 73 65 74 20 70 65 72 6d 0a 7d e)}. set perm.}
9380: 0a 70 72 6f 63 20 70 72 65 73 71 6c 20 7b 7d 20 .proc presql {}
9390: 7b 0a 20 20 73 65 74 20 70 72 65 73 71 6c 20 22 {. set presql "
93a0: 22 0a 20 20 63 61 74 63 68 20 7b 73 65 74 20 70 ". catch {set p
93b0: 72 65 73 71 6c 20 24 3a 3a 47 28 70 65 72 6d 3a resql $::G(perm:
93c0: 70 72 65 73 71 6c 29 7d 0a 20 20 73 65 74 20 70 presql)}. set p
93d0: 72 65 73 71 6c 0a 7d 0a 0a 23 2d 2d 2d 2d 2d 2d resql.}..#------
93e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
93f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9420: 2d 2d 2d 0a 23 0a 70 72 6f 63 20 73 6c 61 76 65 ---.#.proc slave
9430: 5f 74 65 73 74 5f 73 63 72 69 70 74 20 7b 73 63 _test_script {sc
9440: 72 69 70 74 7d 20 7b 0a 0a 20 20 23 20 43 72 65 ript} {.. # Cre
9450: 61 74 65 20 74 68 65 20 69 6e 74 65 72 70 72 65 ate the interpre
9460: 74 65 72 20 75 73 65 64 20 74 6f 20 72 75 6e 20 ter used to run
9470: 74 68 65 20 74 65 73 74 20 73 63 72 69 70 74 2e the test script.
9480: 0a 20 20 69 6e 74 65 72 70 20 63 72 65 61 74 65 . interp create
9490: 20 74 69 6e 74 65 72 70 0a 0a 20 20 23 20 50 6f tinterp.. # Po
94a0: 70 75 6c 61 74 65 20 73 6f 6d 65 20 67 6c 6f 62 pulate some glob
94b0: 61 6c 20 76 61 72 69 61 62 6c 65 73 20 74 68 61 al variables tha
94c0: 74 20 74 65 73 74 65 72 2e 74 63 6c 20 65 78 70 t tester.tcl exp
94d0: 65 63 74 73 20 74 6f 20 73 65 65 2e 0a 20 20 66 ects to see.. f
94e0: 6f 72 65 61 63 68 20 7b 76 61 72 20 76 61 6c 75 oreach {var valu
94f0: 65 7d 20 5b 6c 69 73 74 20 20 20 20 20 20 20 20 e} [list
9500: 20 20 20 20 20 20 5c 0a 20 20 20 20 3a 3a 61 72 \. ::ar
9510: 67 76 30 20 24 3a 3a 61 72 67 76 30 20 20 20 20 gv0 $::argv0
9520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
9530: 20 5c 0a 20 20 20 20 3a 3a 61 72 67 76 20 20 7b \. ::argv {
9540: 7d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 }
9550: 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a 20 20 \.
9560: 20 20 3a 3a 53 4c 41 56 45 20 31 20 20 20 20 20 ::SLAVE 1
9570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
9580: 20 20 20 20 20 20 20 5c 0a 20 20 5d 20 7b 0a 20 \. ] {.
9590: 20 20 20 69 6e 74 65 72 70 20 65 76 61 6c 20 74 interp eval t
95a0: 69 6e 74 65 72 70 20 5b 6c 69 73 74 20 73 65 74 interp [list set
95b0: 20 24 76 61 72 20 24 76 61 6c 75 65 5d 0a 20 20 $var $value].
95c0: 7d 0a 0a 20 20 23 20 54 68 65 20 61 6c 69 61 73 }.. # The alias
95d0: 20 75 73 65 64 20 74 6f 20 61 63 63 65 73 73 20 used to access
95e0: 74 68 65 20 67 6c 6f 62 61 6c 20 74 65 73 74 20 the global test
95f0: 63 6f 75 6e 74 65 72 73 2e 0a 20 20 74 69 6e 74 counters.. tint
9600: 65 72 70 20 61 6c 69 61 73 20 73 65 74 5f 74 65 erp alias set_te
9610: 73 74 5f 63 6f 75 6e 74 65 72 20 73 65 74 5f 74 st_counter set_t
9620: 65 73 74 5f 63 6f 75 6e 74 65 72 0a 0a 20 20 23 est_counter.. #
9630: 20 53 65 74 20 75 70 20 74 68 65 20 3a 3a 63 6d Set up the ::cm
9640: 64 6c 69 6e 65 61 72 67 20 61 72 72 61 79 20 69 dlinearg array i
9650: 6e 20 74 68 65 20 73 6c 61 76 65 2e 0a 20 20 69 n the slave.. i
9660: 6e 74 65 72 70 20 65 76 61 6c 20 74 69 6e 74 65 nterp eval tinte
9670: 72 70 20 5b 6c 69 73 74 20 61 72 72 61 79 20 73 rp [list array s
9680: 65 74 20 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 20 et ::cmdlinearg
9690: 5b 61 72 72 61 79 20 67 65 74 20 3a 3a 63 6d 64 [array get ::cmd
96a0: 6c 69 6e 65 61 72 67 5d 5d 0a 0a 20 20 23 20 53 linearg]].. # S
96b0: 65 74 20 75 70 20 74 68 65 20 3a 3a 47 20 61 72 et up the ::G ar
96c0: 72 61 79 20 69 6e 20 74 68 65 20 73 6c 61 76 65 ray in the slave
96d0: 2e 0a 20 20 69 6e 74 65 72 70 20 65 76 61 6c 20 .. interp eval
96e0: 74 69 6e 74 65 72 70 20 5b 6c 69 73 74 20 61 72 tinterp [list ar
96f0: 72 61 79 20 73 65 74 20 3a 3a 47 20 5b 61 72 72 ray set ::G [arr
9700: 61 79 20 67 65 74 20 3a 3a 47 5d 5d 0a 0a 20 20 ay get ::G]]..
9710: 23 20 4c 6f 61 64 20 74 68 65 20 76 61 72 69 6f # Load the vario
9720: 75 73 20 74 65 73 74 20 69 6e 74 65 72 66 61 63 us test interfac
9730: 65 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 69 es implemented i
9740: 6e 20 43 2e 0a 20 20 6c 6f 61 64 5f 74 65 73 74 n C.. load_test
9750: 66 69 78 74 75 72 65 5f 65 78 74 65 6e 73 69 6f fixture_extensio
9760: 6e 73 20 74 69 6e 74 65 72 70 0a 0a 20 20 23 20 ns tinterp.. #
9770: 52 75 6e 20 74 68 65 20 74 65 73 74 20 73 63 72 Run the test scr
9780: 69 70 74 2e 0a 20 20 69 6e 74 65 72 70 20 65 76 ipt.. interp ev
9790: 61 6c 20 74 69 6e 74 65 72 70 20 24 73 63 72 69 al tinterp $scri
97a0: 70 74 0a 0a 20 20 23 20 43 68 65 63 6b 20 69 66 pt.. # Check if
97b0: 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 the interpreter
97c0: 20 63 61 6c 6c 20 5b 72 75 6e 5f 74 68 72 65 61 call [run_threa
97d0: 64 5f 74 65 73 74 73 5d 0a 20 20 69 66 20 7b 20 d_tests]. if {
97e0: 5b 69 6e 74 65 72 70 20 65 76 61 6c 20 74 69 6e [interp eval tin
97f0: 74 65 72 70 20 7b 69 6e 66 6f 20 65 78 69 73 74 terp {info exist
9800: 73 20 3a 3a 72 75 6e 5f 74 68 72 65 61 64 5f 74 s ::run_thread_t
9810: 65 73 74 73 5f 63 61 6c 6c 65 64 7d 5d 20 7d 20 ests_called}] }
9820: 7b 0a 20 20 20 20 73 65 74 20 3a 3a 72 75 6e 5f {. set ::run_
9830: 74 68 72 65 61 64 5f 74 65 73 74 73 5f 63 61 6c thread_tests_cal
9840: 6c 65 64 20 31 0a 20 20 7d 0a 0a 20 20 23 20 44 led 1. }.. # D
9850: 65 6c 65 74 65 20 74 68 65 20 69 6e 74 65 72 70 elete the interp
9860: 72 65 74 65 72 20 75 73 65 64 20 74 6f 20 72 75 reter used to ru
9870: 6e 20 74 68 65 20 74 65 73 74 20 73 63 72 69 70 n the test scrip
9880: 74 2e 0a 20 20 69 6e 74 65 72 70 20 64 65 6c 65 t.. interp dele
9890: 74 65 20 74 69 6e 74 65 72 70 0a 7d 0a 0a 70 72 te tinterp.}..pr
98a0: 6f 63 20 73 6c 61 76 65 5f 74 65 73 74 5f 66 69 oc slave_test_fi
98b0: 6c 65 20 7b 7a 46 69 6c 65 7d 20 7b 0a 20 20 73 le {zFile} {. s
98c0: 65 74 20 74 61 69 6c 20 5b 66 69 6c 65 20 74 61 et tail [file ta
98d0: 69 6c 20 24 7a 46 69 6c 65 5d 0a 0a 20 20 23 20 il $zFile].. #
98e0: 52 65 6d 65 6d 62 65 72 20 74 68 65 20 76 61 6c Remember the val
98f0: 75 65 20 6f 66 20 74 68 65 20 73 68 61 72 65 64 ue of the shared
9900: 2d 63 61 63 68 65 20 73 65 74 74 69 6e 67 2e 20 -cache setting.
9910: 53 6f 20 74 68 61 74 20 69 74 20 69 73 20 70 6f So that it is po
9920: 73 73 69 62 6c 65 0a 20 20 23 20 74 6f 20 63 68 ssible. # to ch
9930: 65 63 6b 20 61 66 74 65 72 77 61 72 64 73 20 74 eck afterwards t
9940: 68 61 74 20 69 74 20 77 61 73 20 6e 6f 74 20 6d hat it was not m
9950: 6f 64 69 66 69 65 64 20 62 79 20 74 68 65 20 74 odified by the t
9960: 65 73 74 20 73 63 72 69 70 74 2e 0a 20 20 23 0a est script.. #.
9970: 20 20 69 66 63 61 70 61 62 6c 65 20 73 68 61 72 ifcapable shar
9980: 65 64 5f 63 61 63 68 65 20 7b 20 73 65 74 20 73 ed_cache { set s
9990: 63 73 20 5b 73 71 6c 69 74 65 33 5f 65 6e 61 62 cs [sqlite3_enab
99a0: 6c 65 5f 73 68 61 72 65 64 5f 63 61 63 68 65 5d le_shared_cache]
99b0: 20 7d 0a 0a 20 20 23 20 52 75 6e 20 74 68 65 20 }.. # Run the
99c0: 74 65 73 74 20 73 63 72 69 70 74 20 69 6e 20 61 test script in a
99d0: 20 73 6c 61 76 65 20 69 6e 74 65 72 70 72 65 74 slave interpret
99e0: 65 72 2e 0a 20 20 23 0a 20 20 75 6e 73 65 74 20 er.. #. unset
99f0: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 3a 3a 72 75 -nocomplain ::ru
9a00: 6e 5f 74 68 72 65 61 64 5f 74 65 73 74 73 5f 63 n_thread_tests_c
9a10: 61 6c 6c 65 64 0a 20 20 72 65 73 65 74 5f 70 72 alled. reset_pr
9a20: 6e 67 5f 73 74 61 74 65 0a 20 20 73 65 74 20 3a ng_state. set :
9a30: 3a 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c :sqlite_open_fil
9a40: 65 5f 63 6f 75 6e 74 20 30 0a 20 20 73 65 74 20 e_count 0. set
9a50: 74 69 6d 65 20 5b 74 69 6d 65 20 7b 20 73 6c 61 time [time { sla
9a60: 76 65 5f 74 65 73 74 5f 73 63 72 69 70 74 20 5b ve_test_script [
9a70: 6c 69 73 74 20 73 6f 75 72 63 65 20 24 7a 46 69 list source $zFi
9a80: 6c 65 5d 20 7d 5d 0a 20 20 73 65 74 20 6d 73 20 le] }]. set ms
9a90: 5b 65 78 70 72 20 5b 6c 69 6e 64 65 78 20 24 74 [expr [lindex $t
9aa0: 69 6d 65 20 30 5d 20 2f 20 31 30 30 30 5d 0a 0a ime 0] / 1000]..
9ab0: 20 20 23 20 54 65 73 74 20 74 68 61 74 20 61 6c # Test that al
9ac0: 6c 20 66 69 6c 65 73 20 6f 70 65 6e 65 64 20 62 l files opened b
9ad0: 79 20 74 68 65 20 74 65 73 74 20 73 63 72 69 70 y the test scrip
9ae0: 74 20 77 65 72 65 20 63 6c 6f 73 65 64 2e 20 4f t were closed. O
9af0: 6d 69 74 20 74 68 69 73 0a 20 20 23 20 69 66 20 mit this. # if
9b00: 74 68 65 20 74 65 73 74 20 73 63 72 69 70 74 20 the test script
9b10: 68 61 73 20 22 74 68 72 65 61 64 22 20 69 6e 20 has "thread" in
9b20: 69 74 73 20 6e 61 6d 65 2e 20 54 68 65 20 6f 70 its name. The op
9b30: 65 6e 20 66 69 6c 65 20 63 6f 75 6e 74 65 72 0a en file counter.
9b40: 20 20 23 20 69 73 20 6e 6f 74 20 74 68 72 65 61 # is not threa
9b50: 64 2d 73 61 66 65 2e 0a 20 20 23 0a 20 20 69 66 d-safe.. #. if
9b60: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a {[info exists :
9b70: 3a 72 75 6e 5f 74 68 72 65 61 64 5f 74 65 73 74 :run_thread_test
9b80: 73 5f 63 61 6c 6c 65 64 5d 3d 3d 30 7d 20 7b 0a s_called]==0} {.
9b90: 20 20 20 20 64 6f 5f 74 65 73 74 20 24 7b 74 61 do_test ${ta
9ba0: 69 6c 7d 2d 63 6c 6f 73 65 61 6c 6c 66 69 6c 65 il}-closeallfile
9bb0: 73 20 7b 20 65 78 70 72 20 7b 24 3a 3a 73 71 6c s { expr {$::sql
9bc0: 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f ite_open_file_co
9bd0: 75 6e 74 3e 30 7d 20 7d 20 7b 30 7d 0a 20 20 7d unt>0} } {0}. }
9be0: 0a 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f . set ::sqlite_
9bf0: 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 20 open_file_count
9c00: 30 0a 0a 20 20 23 20 54 65 73 74 20 74 68 61 74 0.. # Test that
9c10: 20 74 68 65 20 67 6c 6f 62 61 6c 20 22 73 68 61 the global "sha
9c20: 72 65 64 2d 63 61 63 68 65 22 20 73 65 74 74 69 red-cache" setti
9c30: 6e 67 20 77 61 73 20 6e 6f 74 20 61 6c 74 65 72 ng was not alter
9c40: 65 64 20 62 79 20 0a 20 20 23 20 74 68 65 20 74 ed by . # the t
9c50: 65 73 74 20 73 63 72 69 70 74 2e 0a 20 20 23 0a est script.. #.
9c60: 20 20 69 66 63 61 70 61 62 6c 65 20 73 68 61 72 ifcapable shar
9c70: 65 64 5f 63 61 63 68 65 20 7b 20 0a 20 20 20 20 ed_cache { .
9c80: 73 65 74 20 72 65 73 20 5b 65 78 70 72 20 7b 5b set res [expr {[
9c90: 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 73 sqlite3_enable_s
9ca0: 68 61 72 65 64 5f 63 61 63 68 65 5d 20 3d 3d 20 hared_cache] ==
9cb0: 24 73 63 73 7d 5d 0a 20 20 20 20 64 6f 5f 74 65 $scs}]. do_te
9cc0: 73 74 20 24 7b 74 61 69 6c 7d 2d 73 68 61 72 65 st ${tail}-share
9cd0: 64 63 61 63 68 65 73 65 74 74 69 6e 67 20 5b 6c dcachesetting [l
9ce0: 69 73 74 20 73 65 74 20 7b 7d 20 24 72 65 73 5d ist set {} $res]
9cf0: 20 31 0a 20 20 7d 0a 0a 20 20 23 20 41 64 64 20 1. }.. # Add
9d00: 73 6f 6d 65 20 69 6e 66 6f 20 74 6f 20 74 68 65 some info to the
9d10: 20 6f 75 74 70 75 74 2e 0a 20 20 23 0a 20 20 70 output.. #. p
9d20: 75 74 73 20 22 54 69 6d 65 3a 20 24 74 61 69 6c uts "Time: $tail
9d30: 20 24 6d 73 20 6d 73 22 0a 20 20 73 68 6f 77 5f $ms ms". show_
9d40: 6d 65 6d 73 74 61 74 73 0a 7d 0a 0a 23 20 4f 70 memstats.}..# Op
9d50: 65 6e 20 61 20 6e 65 77 20 63 6f 6e 6e 65 63 74 en a new connect
9d60: 69 6f 6e 20 6f 6e 20 64 61 74 61 62 61 73 65 20 ion on database
9d70: 74 65 73 74 2e 64 62 20 61 6e 64 20 65 78 65 63 test.db and exec
9d80: 75 74 65 20 74 68 65 20 53 51 4c 20 73 63 72 69 ute the SQL scri
9d90: 70 74 0a 23 20 73 75 70 70 6c 69 65 64 20 61 73 pt.# supplied as
9da0: 20 61 6e 20 61 72 67 75 6d 65 6e 74 2e 20 42 65 an argument. Be
9db0: 66 6f 72 65 20 72 65 74 75 72 6e 69 6e 67 2c 20 fore returning,
9dc0: 63 6c 6f 73 65 20 74 68 65 20 6e 65 77 20 63 6f close the new co
9dd0: 6e 65 63 74 69 6f 6e 20 61 6e 64 0a 23 20 72 65 nection and.# re
9de0: 73 74 6f 72 65 20 74 68 65 20 34 20 62 79 74 65 store the 4 byte
9df0: 20 66 69 65 6c 64 73 20 73 74 61 72 74 69 6e 67 fields starting
9e00: 20 61 74 20 68 65 61 64 65 72 20 6f 66 66 73 65 at header offse
9e10: 74 73 20 32 38 2c 20 39 32 20 61 6e 64 20 39 36 ts 28, 92 and 96
9e20: 0a 23 20 74 6f 20 74 68 65 20 76 61 6c 75 65 73 .# to the values
9e30: 20 74 68 65 79 20 68 65 6c 64 20 62 65 66 6f 72 they held befor
9e40: 65 20 74 68 65 20 53 51 4c 20 77 61 73 20 65 78 e the SQL was ex
9e50: 65 63 75 74 65 64 2e 20 54 68 69 73 20 73 69 6d ecuted. This sim
9e60: 75 6c 61 74 65 73 0a 23 20 61 20 77 72 69 74 65 ulates.# a write
9e70: 20 62 79 20 61 20 70 72 65 2d 33 2e 37 2e 30 20 by a pre-3.7.0
9e80: 63 6c 69 65 6e 74 2e 0a 23 0a 70 72 6f 63 20 73 client..#.proc s
9e90: 71 6c 33 36 32 33 31 20 7b 73 71 6c 7d 20 7b 0a ql36231 {sql} {.
9ea0: 20 20 73 65 74 20 42 20 5b 68 65 78 69 6f 5f 72 set B [hexio_r
9eb0: 65 61 64 20 74 65 73 74 2e 64 62 20 39 32 20 38 ead test.db 92 8
9ec0: 5d 0a 20 20 73 65 74 20 41 20 5b 68 65 78 69 6f ]. set A [hexio
9ed0: 5f 72 65 61 64 20 74 65 73 74 2e 64 62 20 32 38 _read test.db 28
9ee0: 20 34 5d 0a 20 20 73 71 6c 69 74 65 33 20 64 62 4]. sqlite3 db
9ef0: 33 36 32 33 31 20 74 65 73 74 2e 64 62 0a 20 20 36231 test.db.
9f00: 63 61 74 63 68 20 7b 20 64 62 33 36 32 33 31 20 catch { db36231
9f10: 66 75 6e 63 20 61 5f 73 74 72 69 6e 67 20 61 5f func a_string a_
9f20: 73 74 72 69 6e 67 20 7d 0a 20 20 65 78 65 63 73 string }. execs
9f30: 71 6c 20 24 73 71 6c 20 64 62 33 36 32 33 31 0a ql $sql db36231.
9f40: 20 20 64 62 33 36 32 33 31 20 63 6c 6f 73 65 0a db36231 close.
9f50: 20 20 68 65 78 69 6f 5f 77 72 69 74 65 20 74 65 hexio_write te
9f60: 73 74 2e 64 62 20 32 38 20 24 41 0a 20 20 68 65 st.db 28 $A. he
9f70: 78 69 6f 5f 77 72 69 74 65 20 74 65 73 74 2e 64 xio_write test.d
9f80: 62 20 39 32 20 24 42 0a 20 20 72 65 74 75 72 6e b 92 $B. return
9f90: 20 22 22 0a 7d 0a 0a 23 20 49 66 20 74 68 65 20 "".}..# If the
9fa0: 6c 69 62 72 61 72 79 20 69 73 20 63 6f 6d 70 69 library is compi
9fb0: 6c 65 64 20 77 69 74 68 20 74 68 65 20 53 51 4c led with the SQL
9fc0: 49 54 45 5f 44 45 46 41 55 4c 54 5f 41 55 54 4f ITE_DEFAULT_AUTO
9fd0: 56 41 43 55 55 4d 20 6d 61 63 72 6f 20 73 65 74 VACUUM macro set
9fe0: 0a 23 20 74 6f 20 6e 6f 6e 2d 7a 65 72 6f 2c 20 .# to non-zero,
9ff0: 74 68 65 6e 20 73 65 74 20 74 68 65 20 67 6c 6f then set the glo
a000: 62 61 6c 20 76 61 72 69 61 62 6c 65 20 24 41 55 bal variable $AU
a010: 54 4f 56 41 43 55 55 4d 20 74 6f 20 31 2e 0a 73 TOVACUUM to 1..s
a020: 65 74 20 41 55 54 4f 56 41 43 55 55 4d 20 24 73 et AUTOVACUUM $s
a030: 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 28 64 65 qlite_options(de
a040: 66 61 75 6c 74 5f 61 75 74 6f 76 61 63 75 75 6d fault_autovacuum
a050: 29 0a 0a 73 6f 75 72 63 65 20 24 74 65 73 74 64 )..source $testd
a060: 69 72 2f 74 68 72 65 61 64 5f 63 6f 6d 6d 6f 6e ir/thread_common
a070: 2e 74 63 6c 0a .tcl.