0000: 23 20 32 30 30 31 20 53 65 70 74 65 6d 62 65 72 # 2001 September
0010: 20 31 35 0a 23 0a 23 20 54 68 65 20 61 75 74 68 15.#.# The auth
0020: 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70 or disclaims cop
0030: 79 72 69 67 68 74 20 74 6f 20 74 68 69 73 20 73 yright to this s
0040: 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20 ource code. In
0050: 70 6c 61 63 65 20 6f 66 0a 23 20 61 20 6c 65 67 place of.# a leg
0060: 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 65 20 al notice, here
0070: 69 73 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a 23 is a blessing:.#
0080: 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 64 6f .# May you do
0090: 20 67 6f 6f 64 20 61 6e 64 20 6e 6f 74 20 65 76 good and not ev
00a0: 69 6c 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 il..# May you
00b0: 20 66 69 6e 64 20 66 6f 72 67 69 76 65 6e 65 73 find forgivenes
00c0: 73 20 66 6f 72 20 79 6f 75 72 73 65 6c 66 20 61 s for yourself a
00d0: 6e 64 20 66 6f 72 67 69 76 65 20 6f 74 68 65 72 nd forgive other
00e0: 73 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 s..# May you
00f0: 73 68 61 72 65 20 66 72 65 65 6c 79 2c 20 6e 65 share freely, ne
0100: 76 65 72 20 74 61 6b 69 6e 67 20 6d 6f 72 65 20 ver taking more
0110: 74 68 61 6e 20 79 6f 75 20 67 69 76 65 2e 0a 23 than you give..#
0120: 0a 23 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .#**************
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 23 20 54 68 69 73 *********.# This
0170: 20 66 69 6c 65 20 69 6d 70 6c 65 6d 65 6e 74 73 file implements
0180: 20 73 6f 6d 65 20 63 6f 6d 6d 6f 6e 20 54 43 4c some common TCL
0190: 20 72 6f 75 74 69 6e 65 73 20 75 73 65 64 20 66 routines used f
01a0: 6f 72 20 72 65 67 72 65 73 73 69 6f 6e 0a 23 20 or regression.#
01b0: 74 65 73 74 69 6e 67 20 74 68 65 20 53 51 4c 69 testing the SQLi
01c0: 74 65 20 6c 69 62 72 61 72 79 0a 23 0a 23 20 24 te library.#.# $
01d0: 49 64 3a 20 74 65 73 74 65 72 2e 74 63 6c 2c 76 Id: tester.tcl,v
01e0: 20 31 2e 31 34 33 20 32 30 30 39 2f 30 34 2f 30 1.143 2009/04/0
01f0: 39 20 30 31 3a 32 33 3a 34 39 20 64 72 68 20 45 9 01:23:49 drh E
0200: 78 70 20 24 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d xp $..#---------
0210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0250: 0a 23 20 54 68 65 20 63 6f 6d 6d 61 6e 64 73 20 .# The commands
0260: 70 72 6f 76 69 64 65 64 20 62 79 20 74 68 65 20 provided by the
0270: 63 6f 64 65 20 69 6e 20 74 68 69 73 20 66 69 6c code in this fil
0280: 65 20 74 6f 20 68 65 6c 70 20 77 69 74 68 20 63 e to help with c
0290: 72 65 61 74 69 6e 67 0a 23 20 74 65 73 74 20 63 reating.# test c
02a0: 61 73 65 73 20 61 72 65 20 61 73 20 66 6f 6c 6c ases are as foll
02b0: 6f 77 73 3a 0a 23 0a 23 20 43 6f 6d 6d 61 6e 64 ows:.#.# Command
02c0: 73 20 74 6f 20 6d 61 6e 69 70 75 6c 61 74 65 20 s to manipulate
02d0: 74 68 65 20 64 62 20 61 6e 64 20 74 68 65 20 66 the db and the f
02e0: 69 6c 65 2d 73 79 73 74 65 6d 20 61 74 20 61 20 ile-system at a
02f0: 68 69 67 68 20 6c 65 76 65 6c 3a 0a 23 0a 23 20 high level:.#.#
0300: 20 20 20 20 20 69 73 5f 72 65 6c 61 74 69 76 65 is_relative
0310: 5f 66 69 6c 65 0a 23 20 20 20 20 20 20 74 65 73 _file.# tes
0320: 74 5f 70 77 64 0a 23 20 20 20 20 20 20 67 65 74 t_pwd.# get
0330: 5f 70 77 64 0a 23 20 20 20 20 20 20 63 6f 70 79 _pwd.# copy
0340: 5f 66 69 6c 65 20 20 20 20 20 20 20 20 20 20 20 _file
0350: 20 20 20 46 52 4f 4d 20 54 4f 0a 23 20 20 20 20 FROM TO.#
0360: 20 20 64 65 6c 65 74 65 5f 66 69 6c 65 20 20 20 delete_file
0370: 20 20 20 20 20 20 20 20 20 46 49 4c 45 4e 41 4d FILENAM
0380: 45 0a 23 20 20 20 20 20 20 64 72 6f 70 5f 61 6c E.# drop_al
0390: 6c 5f 74 61 62 6c 65 73 20 20 20 20 20 20 20 20 l_tables
03a0: 3f 44 42 3f 0a 23 20 20 20 20 20 20 66 6f 72 63 ?DB?.# forc
03b0: 65 63 6f 70 79 20 20 20 20 20 20 20 20 20 20 20 ecopy
03c0: 20 20 20 46 52 4f 4d 20 54 4f 0a 23 20 20 20 20 FROM TO.#
03d0: 20 20 66 6f 72 63 65 64 65 6c 65 74 65 20 20 20 forcedelete
03e0: 20 20 20 20 20 20 20 20 20 46 49 4c 45 4e 41 4d FILENAM
03f0: 45 0a 23 0a 23 20 54 65 73 74 20 74 68 65 20 63 E.#.# Test the c
0400: 61 70 61 62 69 6c 69 74 79 20 6f 66 20 74 68 65 apability of the
0410: 20 53 51 4c 69 74 65 20 76 65 72 73 69 6f 6e 20 SQLite version
0420: 62 75 69 6c 74 20 69 6e 74 6f 20 74 68 65 20 69 built into the i
0430: 6e 74 65 72 70 72 65 74 65 72 20 74 6f 0a 23 20 nterpreter to.#
0440: 64 65 74 65 72 6d 69 6e 65 20 69 66 20 61 20 73 determine if a s
0450: 70 65 63 69 66 69 63 20 74 65 73 74 20 63 61 6e pecific test can
0460: 20 62 65 20 72 75 6e 3a 0a 23 0a 23 20 20 20 20 be run:.#.#
0470: 20 20 63 61 70 61 62 6c 65 20 20 20 20 20 20 20 capable
0480: 20 20 20 20 20 20 20 20 20 45 58 50 52 0a 23 20 EXPR.#
0490: 20 20 20 20 20 69 66 63 61 70 61 62 6c 65 20 20 ifcapable
04a0: 20 20 20 20 20 20 20 20 20 20 20 20 45 58 50 52 EXPR
04b0: 0a 23 0a 23 20 43 61 6c 75 6c 61 74 65 20 63 68 .#.# Calulate ch
04c0: 65 63 6b 73 75 6d 73 20 62 61 73 65 64 20 6f 6e ecksums based on
04d0: 20 64 61 74 61 62 61 73 65 20 63 6f 6e 74 65 6e database conten
04e0: 74 73 3a 0a 23 0a 23 20 20 20 20 20 20 64 62 63 ts:.#.# dbc
04f0: 6b 73 75 6d 20 20 20 20 20 20 20 20 20 20 20 20 ksum
0500: 20 20 20 20 44 42 20 44 42 4e 41 4d 45 0a 23 20 DB DBNAME.#
0510: 20 20 20 20 20 61 6c 6c 63 6b 73 75 6d 20 20 20 allcksum
0520: 20 20 20 20 20 20 20 20 20 20 20 20 3f 44 42 3f ?DB?
0530: 0a 23 20 20 20 20 20 20 63 6b 73 75 6d 20 20 20 .# cksum
0540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3f ?
0550: 44 42 3f 0a 23 0a 23 20 43 6f 6d 6d 61 6e 64 73 DB?.#.# Commands
0560: 20 74 6f 20 65 78 65 63 75 74 65 2f 65 78 70 6c to execute/expl
0570: 61 69 6e 20 53 51 4c 20 73 74 61 74 65 6d 65 6e ain SQL statemen
0580: 74 73 3a 0a 23 0a 23 20 20 20 20 20 20 6d 65 6d ts:.#.# mem
0590: 64 62 73 71 6c 20 20 20 20 20 20 20 20 20 20 20 dbsql
05a0: 20 20 20 20 53 51 4c 0a 23 20 20 20 20 20 20 73 SQL.# s
05b0: 74 65 70 73 71 6c 20 20 20 20 20 20 20 20 20 20 tepsql
05c0: 20 20 20 20 20 20 44 42 20 53 51 4c 0a 23 20 20 DB SQL.#
05d0: 20 20 20 20 65 78 65 63 73 71 6c 32 20 20 20 20 execsql2
05e0: 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 0a 23 SQL.#
05f0: 20 20 20 20 20 20 65 78 70 6c 61 69 6e 5f 6e 6f explain_no
0600: 5f 74 72 61 63 65 20 20 20 20 20 20 20 53 51 4c _trace SQL
0610: 0a 23 20 20 20 20 20 20 65 78 70 6c 61 69 6e 20 .# explain
0620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 S
0630: 51 4c 20 3f 44 42 3f 0a 23 20 20 20 20 20 20 63 QL ?DB?.# c
0640: 61 74 63 68 73 71 6c 20 20 20 20 20 20 20 20 20 atchsql
0650: 20 20 20 20 20 20 53 51 4c 20 3f 44 42 3f 0a 23 SQL ?DB?.#
0660: 20 20 20 20 20 20 65 78 65 63 73 71 6c 20 20 20 execsql
0670: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51 4c SQL
0680: 20 3f 44 42 3f 0a 23 0a 23 20 43 6f 6d 6d 61 6e ?DB?.#.# Comman
0690: 64 73 20 74 6f 20 72 75 6e 20 74 65 73 74 20 63 ds to run test c
06a0: 61 73 65 73 3a 0a 23 0a 23 20 20 20 20 20 20 64 ases:.#.# d
06b0: 6f 5f 69 6f 65 72 72 5f 74 65 73 74 20 20 20 20 o_ioerr_test
06c0: 20 20 20 20 20 20 54 45 53 54 4e 41 4d 45 20 41 TESTNAME A
06d0: 52 47 53 2e 2e 2e 0a 23 20 20 20 20 20 20 63 72 RGS....# cr
06e0: 61 73 68 73 71 6c 20 20 20 20 20 20 20 20 20 20 ashsql
06f0: 20 20 20 20 20 41 52 47 53 2e 2e 2e 0a 23 20 20 ARGS....#
0700: 20 20 20 20 69 6e 74 65 67 72 69 74 79 5f 63 68 integrity_ch
0710: 65 63 6b 20 20 20 20 20 20 20 20 54 45 53 54 4e eck TESTN
0720: 41 4d 45 20 3f 44 42 3f 0a 23 20 20 20 20 20 20 AME ?DB?.#
0730: 76 65 72 69 66 79 5f 65 78 5f 65 72 72 63 6f 64 verify_ex_errcod
0740: 65 20 20 20 20 20 20 54 45 53 54 4e 41 4d 45 20 e TESTNAME
0750: 45 58 50 45 43 54 45 44 20 3f 44 42 3f 0a 23 20 EXPECTED ?DB?.#
0760: 20 20 20 20 20 64 6f 5f 74 65 73 74 20 20 20 20 do_test
0770: 20 20 20 20 20 20 20 20 20 20 20 20 54 45 53 54 TEST
0780: 4e 41 4d 45 20 53 43 52 49 50 54 20 45 58 50 45 NAME SCRIPT EXPE
0790: 43 54 45 44 0a 23 20 20 20 20 20 20 64 6f 5f 65 CTED.# do_e
07a0: 78 65 63 73 71 6c 5f 74 65 73 74 20 20 20 20 20 xecsql_test
07b0: 20 20 20 54 45 53 54 4e 41 4d 45 20 53 51 4c 20 TESTNAME SQL
07c0: 45 58 50 45 43 54 45 44 0a 23 20 20 20 20 20 20 EXPECTED.#
07d0: 64 6f 5f 63 61 74 63 68 73 71 6c 5f 74 65 73 74 do_catchsql_test
07e0: 20 20 20 20 20 20 20 54 45 53 54 4e 41 4d 45 20 TESTNAME
07f0: 53 51 4c 20 45 58 50 45 43 54 45 44 0a 23 20 20 SQL EXPECTED.#
0800: 20 20 20 20 64 6f 5f 74 69 6d 65 64 5f 65 78 65 do_timed_exe
0810: 63 73 71 6c 5f 74 65 73 74 20 20 54 45 53 54 4e csql_test TESTN
0820: 41 4d 45 20 53 51 4c 20 45 58 50 45 43 54 45 44 AME SQL EXPECTED
0830: 0a 23 0a 23 20 43 6f 6d 6d 61 6e 64 73 20 70 72 .#.# Commands pr
0840: 6f 76 69 64 69 6e 67 20 61 20 6c 6f 77 65 72 20 oviding a lower
0850: 6c 65 76 65 6c 20 69 6e 74 65 72 66 61 63 65 20 level interface
0860: 74 6f 20 74 68 65 20 67 6c 6f 62 61 6c 20 74 65 to the global te
0870: 73 74 20 63 6f 75 6e 74 65 72 73 3a 0a 23 0a 23 st counters:.#.#
0880: 20 20 20 20 20 20 73 65 74 5f 74 65 73 74 5f 63 set_test_c
0890: 6f 75 6e 74 65 72 20 20 20 20 20 20 20 43 4f 55 ounter COU
08a0: 4e 54 45 52 20 3f 56 41 4c 55 45 3f 0a 23 20 20 NTER ?VALUE?.#
08b0: 20 20 20 20 6f 6d 69 74 5f 74 65 73 74 20 20 20 omit_test
08c0: 20 20 20 20 20 20 20 20 20 20 20 54 45 53 54 4e TESTN
08d0: 41 4d 45 20 52 45 41 53 4f 4e 20 3f 41 50 50 45 AME REASON ?APPE
08e0: 4e 44 3f 0a 23 20 20 20 20 20 20 66 61 69 6c 5f ND?.# fail_
08f0: 74 65 73 74 20 20 20 20 20 20 20 20 20 20 20 20 test
0900: 20 20 54 45 53 54 4e 41 4d 45 0a 23 20 20 20 20 TESTNAME.#
0910: 20 20 69 6e 63 72 5f 6e 74 65 73 74 0a 23 0a 23 incr_ntest.#.#
0920: 20 43 6f 6d 6d 61 6e 64 20 72 75 6e 20 61 74 20 Command run at
0930: 74 68 65 20 65 6e 64 20 6f 66 20 65 61 63 68 20 the end of each
0940: 74 65 73 74 20 66 69 6c 65 3a 0a 23 0a 23 20 20 test file:.#.#
0950: 20 20 20 20 66 69 6e 69 73 68 5f 74 65 73 74 0a finish_test.
0960: 23 0a 23 20 43 6f 6d 6d 61 6e 64 73 20 74 6f 20 #.# Commands to
0970: 68 65 6c 70 20 63 72 65 61 74 65 20 74 65 73 74 help create test
0980: 20 66 69 6c 65 73 20 74 68 61 74 20 72 75 6e 20 files that run
0990: 77 69 74 68 20 74 68 65 20 22 57 41 4c 22 20 61 with the "WAL" a
09a0: 6e 64 20 6f 74 68 65 72 0a 23 20 70 65 72 6d 75 nd other.# permu
09b0: 74 61 74 69 6f 6e 73 20 28 73 65 65 20 66 69 6c tations (see fil
09c0: 65 20 70 65 72 6d 75 74 61 74 69 6f 6e 73 2e 74 e permutations.t
09d0: 65 73 74 29 3a 0a 23 0a 23 20 20 20 20 20 20 77 est):.#.# w
09e0: 61 6c 5f 69 73 5f 77 61 6c 5f 6d 6f 64 65 0a 23 al_is_wal_mode.#
09f0: 20 20 20 20 20 20 77 61 6c 5f 73 65 74 5f 6a 6f wal_set_jo
0a00: 75 72 6e 61 6c 5f 6d 6f 64 65 20 20 20 3f 44 42 urnal_mode ?DB
0a10: 3f 0a 23 20 20 20 20 20 20 77 61 6c 5f 63 68 65 ?.# wal_che
0a20: 63 6b 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 ck_journal_mode
0a30: 54 45 53 54 4e 41 4d 45 3f 44 42 3f 0a 23 20 20 TESTNAME?DB?.#
0a40: 20 20 20 20 70 65 72 6d 75 74 61 74 69 6f 6e 0a permutation.
0a50: 23 20 20 20 20 20 20 70 72 65 73 71 6c 0a 23 0a # presql.#.
0a60: 23 20 43 6f 6d 6d 61 6e 64 20 74 6f 20 74 65 73 # Command to tes
0a70: 74 20 77 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 t whether or not
0a80: 20 2d 2d 76 65 72 62 6f 73 65 3d 31 20 77 61 73 --verbose=1 was
0a90: 20 73 70 65 63 69 66 69 65 64 20 6f 6e 20 74 68 specified on th
0aa0: 65 20 63 6f 6d 6d 61 6e 64 0a 23 20 6c 69 6e 65 e command.# line
0ab0: 20 28 72 65 74 75 72 6e 73 20 30 20 66 6f 72 20 (returns 0 for
0ac0: 6e 6f 74 2d 76 65 72 62 6f 73 65 2c 20 31 20 66 not-verbose, 1 f
0ad0: 6f 72 20 76 65 72 62 6f 73 65 20 61 6e 64 20 32 or verbose and 2
0ae0: 20 66 6f 72 20 22 76 65 72 62 6f 73 65 20 69 6e for "verbose in
0af0: 20 74 68 65 0a 23 20 6f 75 74 70 75 74 20 66 69 the.# output fi
0b00: 6c 65 20 6f 6e 6c 79 22 29 2e 0a 23 0a 23 20 20 le only")..#.#
0b10: 20 20 20 20 76 65 72 62 6f 73 65 0a 23 0a 0a 23 verbose.#..#
0b20: 20 53 65 74 20 74 68 65 20 70 72 65 63 69 73 69 Set the precisi
0b30: 6f 6e 20 6f 66 20 46 50 20 61 72 69 74 68 6d 61 on of FP arithma
0b40: 74 69 63 20 75 73 65 64 20 62 79 20 74 68 65 20 tic used by the
0b50: 69 6e 74 65 72 70 72 65 74 65 72 2e 20 41 6e 64 interpreter. And
0b60: 0a 23 20 63 6f 6e 66 69 67 75 72 65 20 53 51 4c .# configure SQL
0b70: 69 74 65 20 74 6f 20 74 61 6b 65 20 64 61 74 61 ite to take data
0b80: 62 61 73 65 20 66 69 6c 65 20 6c 6f 63 6b 73 20 base file locks
0b90: 6f 6e 20 74 68 65 20 70 61 67 65 20 74 68 61 74 on the page that
0ba0: 20 62 65 67 69 6e 73 0a 23 20 36 34 4b 42 20 69 begins.# 64KB i
0bb0: 6e 74 6f 20 74 68 65 20 64 61 74 61 62 61 73 65 nto the database
0bc0: 20 66 69 6c 65 20 69 6e 73 74 65 61 64 20 6f 66 file instead of
0bd0: 20 74 68 65 20 6f 6e 65 20 31 47 42 20 69 6e 2e the one 1GB in.
0be0: 20 54 68 69 73 20 6d 65 61 6e 73 0a 23 20 74 68 This means.# th
0bf0: 65 20 63 6f 64 65 20 74 68 61 74 20 68 61 6e 64 e code that hand
0c00: 6c 65 73 20 74 68 61 74 20 73 70 65 63 69 61 6c les that special
0c10: 20 63 61 73 65 20 63 61 6e 20 62 65 20 74 65 73 case can be tes
0c20: 74 65 64 20 77 69 74 68 6f 75 74 20 63 72 65 61 ted without crea
0c30: 74 69 6e 67 0a 23 20 76 65 72 79 20 6c 61 72 67 ting.# very larg
0c40: 65 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 73 e database files
0c50: 2e 0a 23 0a 73 65 74 20 74 63 6c 5f 70 72 65 63 ..#.set tcl_prec
0c60: 69 73 69 6f 6e 20 31 35 0a 73 71 6c 69 74 65 33 ision 15.sqlite3
0c70: 5f 74 65 73 74 5f 63 6f 6e 74 72 6f 6c 5f 70 65 _test_control_pe
0c80: 6e 64 69 6e 67 5f 62 79 74 65 20 30 78 30 30 31 nding_byte 0x001
0c90: 30 30 30 30 0a 0a 0a 23 20 49 66 20 74 68 65 20 0000...# If the
0ca0: 70 61 67 65 72 20 63 6f 64 65 63 20 69 73 20 61 pager codec is a
0cb0: 76 61 69 6c 61 62 6c 65 2c 20 63 72 65 61 74 65 vailable, create
0cc0: 20 61 20 77 72 61 70 70 65 72 20 66 6f 72 20 74 a wrapper for t
0cd0: 68 65 20 5b 73 71 6c 69 74 65 33 5d 0a 23 20 63 he [sqlite3].# c
0ce0: 6f 6d 6d 61 6e 64 20 74 68 61 74 20 61 70 70 65 ommand that appe
0cf0: 6e 64 73 20 22 2d 6b 65 79 20 7b 78 79 7a 7a 79 nds "-key {xyzzy
0d00: 7d 22 20 74 6f 20 74 68 65 20 63 6f 6d 6d 61 6e }" to the comman
0d10: 64 20 6c 69 6e 65 2e 20 69 2e 65 2e 20 74 68 69 d line. i.e. thi
0d20: 73 3a 0a 23 0a 23 20 20 20 20 20 73 71 6c 69 74 s:.#.# sqlit
0d30: 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a 23 0a e3 db test.db.#.
0d40: 23 20 62 65 63 6f 6d 65 73 0a 23 0a 23 20 20 20 # becomes.#.#
0d50: 20 20 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 sqlite3 db tes
0d60: 74 2e 64 62 20 2d 6b 65 79 20 7b 78 79 7a 7a 79 t.db -key {xyzzy
0d70: 7d 0a 23 0a 69 66 20 7b 5b 69 6e 66 6f 20 63 6f }.#.if {[info co
0d80: 6d 6d 61 6e 64 20 73 71 6c 69 74 65 5f 6f 72 69 mmand sqlite_ori
0d90: 67 5d 3d 3d 22 22 7d 20 7b 0a 20 20 72 65 6e 61 g]==""} {. rena
0da0: 6d 65 20 73 71 6c 69 74 65 33 20 73 71 6c 69 74 me sqlite3 sqlit
0db0: 65 5f 6f 72 69 67 0a 20 20 70 72 6f 63 20 73 71 e_orig. proc sq
0dc0: 6c 69 74 65 33 20 7b 61 72 67 73 7d 20 7b 0a 20 lite3 {args} {.
0dd0: 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 if {[llength
0de0: 24 61 72 67 73 5d 3e 3d 32 20 26 26 20 5b 73 74 $args]>=2 && [st
0df0: 72 69 6e 67 20 69 6e 64 65 78 20 5b 6c 69 6e 64 ring index [lind
0e00: 65 78 20 24 61 72 67 73 20 30 5d 20 30 5d 21 3d ex $args 0] 0]!=
0e10: 22 2d 22 7d 20 7b 0a 20 20 20 20 20 20 23 20 54 "-"} {. # T
0e20: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 6f his command is o
0e30: 70 65 6e 69 6e 67 20 61 20 6e 65 77 20 64 61 74 pening a new dat
0e40: 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e abase connection
0e50: 2e 0a 20 20 20 20 20 20 23 0a 20 20 20 20 20 20 .. #.
0e60: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 if {[info exists
0e70: 20 3a 3a 47 28 70 65 72 6d 3a 73 71 6c 69 74 65 ::G(perm:sqlite
0e80: 33 5f 61 72 67 73 29 5d 7d 20 7b 0a 20 20 20 20 3_args)]} {.
0e90: 20 20 20 20 73 65 74 20 61 72 67 73 20 5b 63 6f set args [co
0ea0: 6e 63 61 74 20 24 61 72 67 73 20 24 3a 3a 47 28 ncat $args $::G(
0eb0: 70 65 72 6d 3a 73 71 6c 69 74 65 33 5f 61 72 67 perm:sqlite3_arg
0ec0: 73 29 5d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 s)]. }.
0ed0: 20 20 69 66 20 7b 5b 73 71 6c 69 74 65 5f 6f 72 if {[sqlite_or
0ee0: 69 67 20 2d 68 61 73 2d 63 6f 64 65 63 5d 20 26 ig -has-codec] &
0ef0: 26 20 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 & ![info exists
0f00: 3a 3a 64 6f 5f 6e 6f 74 5f 75 73 65 5f 63 6f 64 ::do_not_use_cod
0f10: 65 63 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 6c ec]} {. l
0f20: 61 70 70 65 6e 64 20 61 72 67 73 20 2d 6b 65 79 append args -key
0f30: 20 7b 78 79 7a 7a 79 7d 0a 20 20 20 20 20 20 7d {xyzzy}. }
0f40: 0a 0a 20 20 20 20 20 20 73 65 74 20 72 65 73 20 .. set res
0f50: 5b 75 70 6c 65 76 65 6c 20 31 20 73 71 6c 69 74 [uplevel 1 sqlit
0f60: 65 5f 6f 72 69 67 20 24 61 72 67 73 5d 0a 20 20 e_orig $args].
0f70: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 if {[info ex
0f80: 69 73 74 73 20 3a 3a 47 28 70 65 72 6d 3a 70 72 ists ::G(perm:pr
0f90: 65 73 71 6c 29 5d 7d 20 7b 0a 20 20 20 20 20 20 esql)]} {.
0fa0: 20 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20 [lindex $args
0fb0: 30 5d 20 65 76 61 6c 20 24 3a 3a 47 28 70 65 72 0] eval $::G(per
0fc0: 6d 3a 70 72 65 73 71 6c 29 0a 20 20 20 20 20 20 m:presql).
0fd0: 7d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 }. if {[inf
0fe0: 6f 20 65 78 69 73 74 73 20 3a 3a 47 28 70 65 72 o exists ::G(per
0ff0: 6d 3a 64 62 63 6f 6e 66 69 67 29 5d 7d 20 7b 0a m:dbconfig)]} {.
1000: 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 64 62 set ::db
1010: 68 61 6e 64 6c 65 20 5b 6c 69 6e 64 65 78 20 24 handle [lindex $
1020: 61 72 67 73 20 30 5d 0a 20 20 20 20 20 20 20 20 args 0].
1030: 75 70 6c 65 76 65 6c 20 23 30 20 24 3a 3a 47 28 uplevel #0 $::G(
1040: 70 65 72 6d 3a 64 62 63 6f 6e 66 69 67 29 0a 20 perm:dbconfig).
1050: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 73 65 74 }. set
1060: 20 72 65 73 0a 20 20 20 20 7d 20 65 6c 73 65 20 res. } else
1070: 7b 0a 20 20 20 20 20 20 23 20 54 68 69 73 20 63 {. # This c
1080: 6f 6d 6d 61 6e 64 20 69 73 20 6e 6f 74 20 6f 70 ommand is not op
1090: 65 6e 69 6e 67 20 61 20 6e 65 77 20 64 61 74 61 ening a new data
10a0: 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e base connection.
10b0: 20 50 61 73 73 20 74 68 65 0a 20 20 20 20 20 20 Pass the.
10c0: 23 20 61 72 67 75 6d 65 6e 74 73 20 74 68 72 6f # arguments thro
10d0: 75 67 68 20 74 6f 20 74 68 65 20 43 20 69 6d 70 ugh to the C imp
10e0: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 73 20 74 lementation as t
10f0: 68 65 20 61 72 65 2e 0a 20 20 20 20 20 20 23 0a he are.. #.
1100: 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20 31 20 uplevel 1
1110: 73 71 6c 69 74 65 5f 6f 72 69 67 20 24 61 72 67 sqlite_orig $arg
1120: 73 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 70 s. }. }.}..p
1130: 72 6f 63 20 67 65 74 46 69 6c 65 52 65 74 72 69 roc getFileRetri
1140: 65 73 20 7b 7d 20 7b 0a 20 20 69 66 20 7b 21 5b es {} {. if {![
1150: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 47 28 info exists ::G(
1160: 66 69 6c 65 2d 72 65 74 72 69 65 73 29 5d 7d 20 file-retries)]}
1170: 7b 0a 20 20 20 20 23 0a 20 20 20 20 23 20 4e 4f {. #. # NO
1180: 54 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 64 TE: Return the d
1190: 65 66 61 75 6c 74 20 6e 75 6d 62 65 72 20 6f 66 efault number of
11a0: 20 72 65 74 72 69 65 73 20 66 6f 72 20 5b 66 69 retries for [fi
11b0: 6c 65 5d 20 6f 70 65 72 61 74 69 6f 6e 73 2e 20 le] operations.
11c0: 20 41 0a 20 20 20 20 23 20 20 20 20 20 20 20 76 A. # v
11d0: 61 6c 75 65 20 6f 66 20 7a 65 72 6f 20 6f 72 20 alue of zero or
11e0: 6c 65 73 73 20 68 65 72 65 20 6d 65 61 6e 73 20 less here means
11f0: 22 64 69 73 61 62 6c 65 64 22 2e 0a 20 20 20 20 "disabled"..
1200: 23 0a 20 20 20 20 72 65 74 75 72 6e 20 5b 65 78 #. return [ex
1210: 70 72 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 pr {$::tcl_platf
1220: 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 20 65 71 orm(platform) eq
1230: 20 22 77 69 6e 64 6f 77 73 22 20 3f 20 35 30 20 "windows" ? 50
1240: 3a 20 30 7d 5d 0a 20 20 7d 0a 20 20 72 65 74 75 : 0}]. }. retu
1250: 72 6e 20 24 3a 3a 47 28 66 69 6c 65 2d 72 65 74 rn $::G(file-ret
1260: 72 69 65 73 29 0a 7d 0a 0a 70 72 6f 63 20 67 65 ries).}..proc ge
1270: 74 46 69 6c 65 52 65 74 72 79 44 65 6c 61 79 20 tFileRetryDelay
1280: 7b 7d 20 7b 0a 20 20 69 66 20 7b 21 5b 69 6e 66 {} {. if {![inf
1290: 6f 20 65 78 69 73 74 73 20 3a 3a 47 28 66 69 6c o exists ::G(fil
12a0: 65 2d 72 65 74 72 79 2d 64 65 6c 61 79 29 5d 7d e-retry-delay)]}
12b0: 20 7b 0a 20 20 20 20 23 0a 20 20 20 20 23 20 4e {. #. # N
12c0: 4f 54 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 OTE: Return the
12d0: 64 65 66 61 75 6c 74 20 6e 75 6d 62 65 72 20 6f default number o
12e0: 66 20 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 20 74 f milliseconds t
12f0: 6f 20 77 61 69 74 20 77 68 65 6e 20 72 65 74 72 o wait when retr
1300: 79 69 6e 67 0a 20 20 20 20 23 20 20 20 20 20 20 ying. #
1310: 20 66 61 69 6c 65 64 20 5b 66 69 6c 65 5d 20 6f failed [file] o
1320: 70 65 72 61 74 69 6f 6e 73 2e 20 20 41 20 76 61 perations. A va
1330: 6c 75 65 20 6f 66 20 7a 65 72 6f 20 6f 72 20 6c lue of zero or l
1340: 65 73 73 20 6d 65 61 6e 73 20 22 64 6f 20 6e 6f ess means "do no
1350: 74 0a 20 20 20 20 23 20 20 20 20 20 20 20 77 61 t. # wa
1360: 69 74 22 2e 0a 20 20 20 20 23 0a 20 20 20 20 72 it".. #. r
1370: 65 74 75 72 6e 20 31 30 30 3b 20 23 20 54 4f 44 eturn 100; # TOD
1380: 4f 3a 20 47 6f 6f 64 20 64 65 66 61 75 6c 74 3f O: Good default?
1390: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 24 3a . }. return $:
13a0: 3a 47 28 66 69 6c 65 2d 72 65 74 72 79 2d 64 65 :G(file-retry-de
13b0: 6c 61 79 29 0a 7d 0a 0a 23 20 52 65 74 75 72 6e lay).}..# Return
13c0: 20 74 68 65 20 73 74 72 69 6e 67 20 72 65 70 72 the string repr
13d0: 65 73 65 6e 74 69 6e 67 20 74 68 65 20 6e 61 6d esenting the nam
13e0: 65 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 e of the current
13f0: 20 64 69 72 65 63 74 6f 72 79 2e 20 20 4f 6e 0a directory. On.
1400: 23 20 57 69 6e 64 6f 77 73 2c 20 74 68 65 20 72 # Windows, the r
1410: 65 73 75 6c 74 20 69 73 20 22 6e 6f 72 6d 61 6c esult is "normal
1420: 69 7a 65 64 22 20 74 6f 20 77 68 61 74 65 76 65 ized" to whateve
1430: 72 20 6f 75 72 20 70 61 72 65 6e 74 20 63 6f 6d r our parent com
1440: 6d 61 6e 64 20 73 68 65 6c 6c 0a 23 20 69 73 20 mand shell.# is
1450: 75 73 69 6e 67 20 74 6f 20 70 72 65 76 65 6e 74 using to prevent
1460: 20 63 61 73 65 2d 6d 69 73 6d 61 74 63 68 20 69 case-mismatch i
1470: 73 73 75 65 73 2e 0a 23 0a 70 72 6f 63 20 67 65 ssues..#.proc ge
1480: 74 5f 70 77 64 20 7b 7d 20 7b 0a 20 20 69 66 20 t_pwd {} {. if
1490: 7b 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d {$::tcl_platform
14a0: 28 70 6c 61 74 66 6f 72 6d 29 20 65 71 20 22 77 (platform) eq "w
14b0: 69 6e 64 6f 77 73 22 7d 20 7b 0a 20 20 20 20 23 indows"} {. #
14c0: 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 61 6e . # NOTE: Can
14d0: 6e 6f 74 20 75 73 65 20 5b 66 69 6c 65 20 6e 6f not use [file no
14e0: 72 6d 61 6c 69 7a 65 5d 20 68 65 72 65 20 62 65 rmalize] here be
14f0: 63 61 75 73 65 20 69 74 20 77 6f 75 6c 64 20 61 cause it would a
1500: 6c 74 65 72 20 74 68 65 0a 20 20 20 20 23 20 20 lter the. #
1510: 20 20 20 20 20 63 61 73 65 20 6f 66 20 74 68 65 case of the
1520: 20 72 65 73 75 6c 74 20 74 6f 20 77 68 61 74 20 result to what
1530: 54 63 6c 20 63 6f 6e 73 69 64 65 72 73 20 63 61 Tcl considers ca
1540: 6e 6f 6e 69 63 61 6c 2c 20 77 68 69 63 68 20 77 nonical, which w
1550: 6f 75 6c 64 0a 20 20 20 20 23 20 20 20 20 20 20 ould. #
1560: 20 64 65 66 65 61 74 20 74 68 65 20 70 75 72 70 defeat the purp
1570: 6f 73 65 20 6f 66 20 74 68 69 73 20 70 72 6f 63 ose of this proc
1580: 65 64 75 72 65 2e 0a 20 20 20 20 23 0a 20 20 20 edure.. #.
1590: 20 72 65 74 75 72 6e 20 5b 73 74 72 69 6e 67 20 return [string
15a0: 6d 61 70 20 5b 6c 69 73 74 20 5c 5c 20 2f 5d 20 map [list \\ /]
15b0: 5c 0a 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e \. [strin
15c0: 67 20 74 72 69 6d 20 5b 65 78 65 63 20 2d 2d 20 g trim [exec --
15d0: 24 3a 3a 65 6e 76 28 43 6f 6d 53 70 65 63 29 20 $::env(ComSpec)
15e0: 2f 63 20 65 63 68 6f 20 25 43 44 25 5d 5d 5d 0a /c echo %CD%]]].
15f0: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 72 } else {. r
1600: 65 74 75 72 6e 20 5b 70 77 64 5d 0a 20 20 7d 0a eturn [pwd]. }.
1610: 7d 0a 0a 23 20 43 6f 70 79 20 66 69 6c 65 20 24 }..# Copy file $
1620: 66 72 6f 6d 20 69 6e 74 6f 20 24 74 6f 2e 20 54 from into $to. T
1630: 68 69 73 20 69 73 20 75 73 65 64 20 62 65 63 61 his is used beca
1640: 75 73 65 20 73 6f 6d 65 20 76 65 72 73 69 6f 6e use some version
1650: 73 20 6f 66 0a 23 20 54 43 4c 20 66 6f 72 20 77 s of.# TCL for w
1660: 69 6e 64 6f 77 73 20 28 6e 6f 74 61 62 6c 79 20 indows (notably
1670: 74 68 65 20 38 2e 34 2e 31 20 62 69 6e 61 72 79 the 8.4.1 binary
1680: 20 70 61 63 6b 61 67 65 20 73 68 69 70 70 65 64 package shipped
1690: 20 77 69 74 68 20 74 68 65 0a 23 20 63 75 72 72 with the.# curr
16a0: 65 6e 74 20 6d 69 6e 67 77 20 72 65 6c 65 61 73 ent mingw releas
16b0: 65 29 20 68 61 76 65 20 61 20 62 72 6f 6b 65 6e e) have a broken
16c0: 20 22 66 69 6c 65 20 63 6f 70 79 22 20 63 6f 6d "file copy" com
16d0: 6d 61 6e 64 2e 0a 23 0a 70 72 6f 63 20 63 6f 70 mand..#.proc cop
16e0: 79 5f 66 69 6c 65 20 7b 66 72 6f 6d 20 74 6f 7d y_file {from to}
16f0: 20 7b 0a 20 20 64 6f 5f 63 6f 70 79 5f 66 69 6c {. do_copy_fil
1700: 65 20 66 61 6c 73 65 20 24 66 72 6f 6d 20 24 74 e false $from $t
1710: 6f 0a 7d 0a 0a 70 72 6f 63 20 66 6f 72 63 65 63 o.}..proc forcec
1720: 6f 70 79 20 7b 66 72 6f 6d 20 74 6f 7d 20 7b 0a opy {from to} {.
1730: 20 20 64 6f 5f 63 6f 70 79 5f 66 69 6c 65 20 74 do_copy_file t
1740: 72 75 65 20 24 66 72 6f 6d 20 24 74 6f 0a 7d 0a rue $from $to.}.
1750: 0a 70 72 6f 63 20 64 6f 5f 63 6f 70 79 5f 66 69 .proc do_copy_fi
1760: 6c 65 20 7b 66 6f 72 63 65 20 66 72 6f 6d 20 74 le {force from t
1770: 6f 7d 20 7b 0a 20 20 73 65 74 20 6e 52 65 74 72 o} {. set nRetr
1780: 79 20 5b 67 65 74 46 69 6c 65 52 65 74 72 69 65 y [getFileRetrie
1790: 73 5d 20 20 20 20 20 3b 23 20 4d 61 78 69 6d 75 s] ;# Maximu
17a0: 6d 20 6e 75 6d 62 65 72 20 6f 66 20 72 65 74 72 m number of retr
17b0: 69 65 73 2e 0a 20 20 73 65 74 20 6e 44 65 6c 61 ies.. set nDela
17c0: 79 20 5b 67 65 74 46 69 6c 65 52 65 74 72 79 44 y [getFileRetryD
17d0: 65 6c 61 79 5d 20 20 3b 23 20 44 65 6c 61 79 20 elay] ;# Delay
17e0: 69 6e 20 6d 73 20 62 65 66 6f 72 65 20 72 65 74 in ms before ret
17f0: 72 79 69 6e 67 2e 0a 0a 20 20 23 20 4f 6e 20 77 rying... # On w
1800: 69 6e 64 6f 77 73 2c 20 73 6f 6d 65 74 69 6d 65 indows, sometime
1810: 73 20 65 76 65 6e 20 61 20 5b 66 69 6c 65 20 63 s even a [file c
1820: 6f 70 79 20 2d 66 6f 72 63 65 5d 20 63 61 6e 20 opy -force] can
1830: 66 61 69 6c 2e 20 54 68 65 20 63 61 75 73 65 20 fail. The cause
1840: 69 73 0a 20 20 23 20 75 73 75 61 6c 6c 79 20 22 is. # usually "
1850: 74 61 67 2d 61 6c 6f 6e 67 73 22 20 2d 20 70 72 tag-alongs" - pr
1860: 6f 67 72 61 6d 73 20 6c 69 6b 65 20 61 6e 74 69 ograms like anti
1870: 2d 76 69 72 75 73 20 73 6f 66 74 77 61 72 65 2c -virus software,
1880: 20 61 75 74 6f 6d 61 74 69 63 20 62 61 63 6b 75 automatic backu
1890: 70 0a 20 20 23 20 74 6f 6f 6c 73 20 61 6e 64 20 p. # tools and
18a0: 76 61 72 69 6f 75 73 20 65 78 70 6c 6f 72 65 72 various explorer
18b0: 20 65 78 74 65 6e 73 69 6f 6e 73 20 74 68 61 74 extensions that
18c0: 20 6b 65 65 70 20 61 20 66 69 6c 65 20 6f 70 65 keep a file ope
18d0: 6e 20 61 20 6c 69 74 74 6c 65 20 6c 6f 6e 67 65 n a little longe
18e0: 72 0a 20 20 23 20 74 68 61 6e 20 77 65 20 65 78 r. # than we ex
18f0: 70 65 63 74 2c 20 63 61 75 73 69 6e 67 20 74 68 pect, causing th
1900: 65 20 64 65 6c 65 74 65 20 74 6f 20 66 61 69 6c e delete to fail
1910: 2e 0a 20 20 23 0a 20 20 23 20 54 68 65 20 73 6f .. #. # The so
1920: 6c 75 74 69 6f 6e 20 69 73 20 74 6f 20 77 61 69 lution is to wai
1930: 74 20 61 20 73 68 6f 72 74 20 61 6d 6f 75 6e 74 t a short amount
1940: 20 6f 66 20 74 69 6d 65 20 62 65 66 6f 72 65 20 of time before
1950: 72 65 74 72 79 69 6e 67 20 74 68 65 20 63 6f 70 retrying the cop
1960: 79 2e 0a 20 20 23 0a 20 20 69 66 20 7b 24 6e 52 y.. #. if {$nR
1970: 65 74 72 79 20 3e 20 30 7d 20 7b 0a 20 20 20 20 etry > 0} {.
1980: 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 for {set i 0} {$
1990: 69 3c 24 6e 52 65 74 72 79 7d 20 7b 69 6e 63 72 i<$nRetry} {incr
19a0: 20 69 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 i} {. set
19b0: 72 63 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 rc [catch {.
19c0: 20 20 20 20 69 66 20 7b 24 66 6f 72 63 65 7d 20 if {$force}
19d0: 7b 0a 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 {. file
19e0: 20 63 6f 70 79 20 2d 66 6f 72 63 65 20 24 66 72 copy -force $fr
19f0: 6f 6d 20 24 74 6f 0a 20 20 20 20 20 20 20 20 7d om $to. }
1a00: 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 else {.
1a10: 20 20 66 69 6c 65 20 63 6f 70 79 20 24 66 72 6f file copy $fro
1a20: 6d 20 24 74 6f 0a 20 20 20 20 20 20 20 20 7d 0a m $to. }.
1a30: 20 20 20 20 20 20 7d 20 6d 73 67 5d 0a 20 20 20 } msg].
1a40: 20 20 20 69 66 20 7b 24 72 63 3d 3d 30 7d 20 62 if {$rc==0} b
1a50: 72 65 61 6b 0a 20 20 20 20 20 20 69 66 20 7b 24 reak. if {$
1a60: 6e 44 65 6c 61 79 20 3e 20 30 7d 20 7b 20 61 66 nDelay > 0} { af
1a70: 74 65 72 20 24 6e 44 65 6c 61 79 20 7d 0a 20 20 ter $nDelay }.
1a80: 20 20 7d 0a 20 20 20 20 69 66 20 7b 24 72 63 7d }. if {$rc}
1a90: 20 7b 20 65 72 72 6f 72 20 24 6d 73 67 20 7d 0a { error $msg }.
1aa0: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 69 } else {. i
1ab0: 66 20 7b 24 66 6f 72 63 65 7d 20 7b 0a 20 20 20 f {$force} {.
1ac0: 20 20 20 66 69 6c 65 20 63 6f 70 79 20 2d 66 6f file copy -fo
1ad0: 72 63 65 20 24 66 72 6f 6d 20 24 74 6f 0a 20 20 rce $from $to.
1ae0: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 } else {.
1af0: 20 66 69 6c 65 20 63 6f 70 79 20 24 66 72 6f 6d file copy $from
1b00: 20 24 74 6f 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d $to. }. }.}
1b10: 0a 0a 23 20 43 68 65 63 6b 20 69 66 20 61 20 66 ..# Check if a f
1b20: 69 6c 65 20 6e 61 6d 65 20 69 73 20 72 65 6c 61 ile name is rela
1b30: 74 69 76 65 0a 23 0a 70 72 6f 63 20 69 73 5f 72 tive.#.proc is_r
1b40: 65 6c 61 74 69 76 65 5f 66 69 6c 65 20 7b 20 66 elative_file { f
1b50: 69 6c 65 20 7d 20 7b 0a 20 20 72 65 74 75 72 6e ile } {. return
1b60: 20 5b 65 78 70 72 20 7b 5b 66 69 6c 65 20 70 61 [expr {[file pa
1b70: 74 68 74 79 70 65 20 24 66 69 6c 65 5d 20 21 3d thtype $file] !=
1b80: 20 22 61 62 73 6f 6c 75 74 65 22 7d 5d 0a 7d 0a "absolute"}].}.
1b90: 0a 23 20 49 66 20 74 68 65 20 56 46 53 20 73 75 .# If the VFS su
1ba0: 70 70 6f 72 74 73 20 75 73 69 6e 67 20 74 68 65 pports using the
1bb0: 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f current directo
1bc0: 72 79 2c 20 72 65 74 75 72 6e 73 20 5b 70 77 64 ry, returns [pwd
1bd0: 5d 3b 0a 23 20 6f 74 68 65 72 77 69 73 65 2c 20 ];.# otherwise,
1be0: 69 74 20 72 65 74 75 72 6e 73 20 6f 6e 6c 79 20 it returns only
1bf0: 74 68 65 20 70 72 6f 76 69 64 65 64 20 73 75 66 the provided suf
1c00: 66 69 78 20 73 74 72 69 6e 67 20 28 77 68 69 63 fix string (whic
1c10: 68 20 69 73 0a 23 20 65 6d 70 74 79 20 62 79 20 h is.# empty by
1c20: 64 65 66 61 75 6c 74 29 2e 0a 23 0a 70 72 6f 63 default)..#.proc
1c30: 20 74 65 73 74 5f 70 77 64 20 7b 20 61 72 67 73 test_pwd { args
1c40: 20 7d 20 7b 0a 20 20 69 66 20 7b 5b 6c 6c 65 6e } {. if {[llen
1c50: 67 74 68 20 24 61 72 67 73 5d 20 3e 20 30 7d 20 gth $args] > 0}
1c60: 7b 0a 20 20 20 20 73 65 74 20 73 75 66 66 69 78 {. set suffix
1c70: 31 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20 1 [lindex $args
1c80: 30 5d 0a 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 0]. if {[llen
1c90: 67 74 68 20 24 61 72 67 73 5d 20 3e 20 31 7d 20 gth $args] > 1}
1ca0: 7b 0a 20 20 20 20 20 20 73 65 74 20 73 75 66 66 {. set suff
1cb0: 69 78 32 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 ix2 [lindex $arg
1cc0: 73 20 31 5d 0a 20 20 20 20 7d 20 65 6c 73 65 20 s 1]. } else
1cd0: 7b 0a 20 20 20 20 20 20 73 65 74 20 73 75 66 66 {. set suff
1ce0: 69 78 32 20 24 73 75 66 66 69 78 31 0a 20 20 20 ix2 $suffix1.
1cf0: 20 7d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 }. } else {.
1d00: 20 20 73 65 74 20 73 75 66 66 69 78 31 20 22 22 set suffix1 ""
1d10: 3b 20 73 65 74 20 73 75 66 66 69 78 32 20 22 22 ; set suffix2 ""
1d20: 0a 20 20 7d 0a 20 20 69 66 63 61 70 61 62 6c 65 . }. ifcapable
1d30: 20 63 75 72 64 69 72 20 7b 0a 20 20 20 20 72 65 curdir {. re
1d40: 74 75 72 6e 20 22 5b 67 65 74 5f 70 77 64 5d 24 turn "[get_pwd]$
1d50: 73 75 66 66 69 78 31 22 0a 20 20 7d 20 65 6c 73 suffix1". } els
1d60: 65 20 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 24 e {. return $
1d70: 73 75 66 66 69 78 32 0a 20 20 7d 0a 7d 0a 0a 23 suffix2. }.}..#
1d80: 20 44 65 6c 65 74 65 20 61 20 66 69 6c 65 20 6f Delete a file o
1d90: 72 20 64 69 72 65 63 74 6f 72 79 0a 23 0a 70 72 r directory.#.pr
1da0: 6f 63 20 64 65 6c 65 74 65 5f 66 69 6c 65 20 7b oc delete_file {
1db0: 61 72 67 73 7d 20 7b 0a 20 20 64 6f 5f 64 65 6c args} {. do_del
1dc0: 65 74 65 5f 66 69 6c 65 20 66 61 6c 73 65 20 7b ete_file false {
1dd0: 2a 7d 24 61 72 67 73 0a 7d 0a 0a 70 72 6f 63 20 *}$args.}..proc
1de0: 66 6f 72 63 65 64 65 6c 65 74 65 20 7b 61 72 67 forcedelete {arg
1df0: 73 7d 20 7b 0a 20 20 64 6f 5f 64 65 6c 65 74 65 s} {. do_delete
1e00: 5f 66 69 6c 65 20 74 72 75 65 20 7b 2a 7d 24 61 _file true {*}$a
1e10: 72 67 73 0a 7d 0a 0a 70 72 6f 63 20 64 6f 5f 64 rgs.}..proc do_d
1e20: 65 6c 65 74 65 5f 66 69 6c 65 20 7b 66 6f 72 63 elete_file {forc
1e30: 65 20 61 72 67 73 7d 20 7b 0a 20 20 73 65 74 20 e args} {. set
1e40: 6e 52 65 74 72 79 20 5b 67 65 74 46 69 6c 65 52 nRetry [getFileR
1e50: 65 74 72 69 65 73 5d 20 20 20 20 20 3b 23 20 4d etries] ;# M
1e60: 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 aximum number of
1e70: 20 72 65 74 72 69 65 73 2e 0a 20 20 73 65 74 20 retries.. set
1e80: 6e 44 65 6c 61 79 20 5b 67 65 74 46 69 6c 65 52 nDelay [getFileR
1e90: 65 74 72 79 44 65 6c 61 79 5d 20 20 3b 23 20 44 etryDelay] ;# D
1ea0: 65 6c 61 79 20 69 6e 20 6d 73 20 62 65 66 6f 72 elay in ms befor
1eb0: 65 20 72 65 74 72 79 69 6e 67 2e 0a 0a 20 20 66 e retrying... f
1ec0: 6f 72 65 61 63 68 20 66 69 6c 65 6e 61 6d 65 20 oreach filename
1ed0: 24 61 72 67 73 20 7b 0a 20 20 20 20 23 20 4f 6e $args {. # On
1ee0: 20 77 69 6e 64 6f 77 73 2c 20 73 6f 6d 65 74 69 windows, someti
1ef0: 6d 65 73 20 65 76 65 6e 20 61 20 5b 66 69 6c 65 mes even a [file
1f00: 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 5d 20 delete -force]
1f10: 63 61 6e 20 66 61 69 6c 20 6a 75 73 74 20 61 66 can fail just af
1f20: 74 65 72 0a 20 20 20 20 23 20 61 20 66 69 6c 65 ter. # a file
1f30: 20 69 73 20 63 6c 6f 73 65 64 2e 20 54 68 65 20 is closed. The
1f40: 63 61 75 73 65 20 69 73 20 75 73 75 61 6c 6c 79 cause is usually
1f50: 20 22 74 61 67 2d 61 6c 6f 6e 67 73 22 20 2d 20 "tag-alongs" -
1f60: 70 72 6f 67 72 61 6d 73 20 6c 69 6b 65 0a 20 20 programs like.
1f70: 20 20 23 20 61 6e 74 69 2d 76 69 72 75 73 20 73 # anti-virus s
1f80: 6f 66 74 77 61 72 65 2c 20 61 75 74 6f 6d 61 74 oftware, automat
1f90: 69 63 20 62 61 63 6b 75 70 20 74 6f 6f 6c 73 20 ic backup tools
1fa0: 61 6e 64 20 76 61 72 69 6f 75 73 20 65 78 70 6c and various expl
1fb0: 6f 72 65 72 0a 20 20 20 20 23 20 65 78 74 65 6e orer. # exten
1fc0: 73 69 6f 6e 73 20 74 68 61 74 20 6b 65 65 70 20 sions that keep
1fd0: 61 20 66 69 6c 65 20 6f 70 65 6e 20 61 20 6c 69 a file open a li
1fe0: 74 74 6c 65 20 6c 6f 6e 67 65 72 20 74 68 61 6e ttle longer than
1ff0: 20 77 65 20 65 78 70 65 63 74 2c 20 63 61 75 73 we expect, caus
2000: 69 6e 67 0a 20 20 20 20 23 20 74 68 65 20 64 65 ing. # the de
2010: 6c 65 74 65 20 74 6f 20 66 61 69 6c 2e 0a 20 20 lete to fail..
2020: 20 20 23 0a 20 20 20 20 23 20 54 68 65 20 73 6f #. # The so
2030: 6c 75 74 69 6f 6e 20 69 73 20 74 6f 20 77 61 69 lution is to wai
2040: 74 20 61 20 73 68 6f 72 74 20 61 6d 6f 75 6e 74 t a short amount
2050: 20 6f 66 20 74 69 6d 65 20 62 65 66 6f 72 65 20 of time before
2060: 72 65 74 72 79 69 6e 67 20 74 68 65 0a 20 20 20 retrying the.
2070: 20 23 20 64 65 6c 65 74 65 2e 0a 20 20 20 20 23 # delete.. #
2080: 0a 20 20 20 20 69 66 20 7b 24 6e 52 65 74 72 79 . if {$nRetry
2090: 20 3e 20 30 7d 20 7b 0a 20 20 20 20 20 20 66 6f > 0} {. fo
20a0: 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 3c r {set i 0} {$i<
20b0: 24 6e 52 65 74 72 79 7d 20 7b 69 6e 63 72 20 69 $nRetry} {incr i
20c0: 7d 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 } {. set
20d0: 72 63 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 rc [catch {.
20e0: 20 20 20 20 20 20 69 66 20 7b 24 66 6f 72 63 65 if {$force
20f0: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 } {.
2100: 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 file delete -for
2110: 63 65 20 24 66 69 6c 65 6e 61 6d 65 0a 20 20 20 ce $filename.
2120: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a } else {.
2130: 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 file
2140: 20 64 65 6c 65 74 65 20 24 66 69 6c 65 6e 61 6d delete $filenam
2150: 65 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 e. }.
2160: 20 20 20 20 20 20 7d 20 6d 73 67 5d 0a 20 20 20 } msg].
2170: 20 20 20 20 20 69 66 20 7b 24 72 63 3d 3d 30 7d if {$rc==0}
2180: 20 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 69 break. i
2190: 66 20 7b 24 6e 44 65 6c 61 79 20 3e 20 30 7d 20 f {$nDelay > 0}
21a0: 7b 20 61 66 74 65 72 20 24 6e 44 65 6c 61 79 20 { after $nDelay
21b0: 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }. }.
21c0: 69 66 20 7b 24 72 63 7d 20 7b 20 65 72 72 6f 72 if {$rc} { error
21d0: 20 24 6d 73 67 20 7d 0a 20 20 20 20 7d 20 65 6c $msg }. } el
21e0: 73 65 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 24 se {. if {$
21f0: 66 6f 72 63 65 7d 20 7b 0a 20 20 20 20 20 20 20 force} {.
2200: 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f file delete -fo
2210: 72 63 65 20 24 66 69 6c 65 6e 61 6d 65 0a 20 20 rce $filename.
2220: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 } else {.
2230: 20 20 20 20 20 66 69 6c 65 20 64 65 6c 65 74 65 file delete
2240: 20 24 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 $filename.
2250: 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a }. }. }.}..
2260: 69 66 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 if {$::tcl_platf
2270: 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 20 65 71 orm(platform) eq
2280: 20 22 77 69 6e 64 6f 77 73 22 7d 20 7b 0a 20 20 "windows"} {.
2290: 70 72 6f 63 20 64 6f 5f 72 65 6d 6f 76 65 5f 77 proc do_remove_w
22a0: 69 6e 33 32 5f 64 69 72 20 7b 61 72 67 73 7d 20 in32_dir {args}
22b0: 7b 0a 20 20 20 20 73 65 74 20 6e 52 65 74 72 79 {. set nRetry
22c0: 20 5b 67 65 74 46 69 6c 65 52 65 74 72 69 65 73 [getFileRetries
22d0: 5d 20 20 20 20 20 3b 23 20 4d 61 78 69 6d 75 6d ] ;# Maximum
22e0: 20 6e 75 6d 62 65 72 20 6f 66 20 72 65 74 72 69 number of retri
22f0: 65 73 2e 0a 20 20 20 20 73 65 74 20 6e 44 65 6c es.. set nDel
2300: 61 79 20 5b 67 65 74 46 69 6c 65 52 65 74 72 79 ay [getFileRetry
2310: 44 65 6c 61 79 5d 20 20 3b 23 20 44 65 6c 61 79 Delay] ;# Delay
2320: 20 69 6e 20 6d 73 20 62 65 66 6f 72 65 20 72 65 in ms before re
2330: 74 72 79 69 6e 67 2e 0a 0a 20 20 20 20 66 6f 72 trying... for
2340: 65 61 63 68 20 64 69 72 4e 61 6d 65 20 24 61 72 each dirName $ar
2350: 67 73 20 7b 0a 20 20 20 20 20 20 23 20 4f 6e 20 gs {. # On
2360: 77 69 6e 64 6f 77 73 2c 20 73 6f 6d 65 74 69 6d windows, sometim
2370: 65 73 20 65 76 65 6e 20 61 20 5b 72 65 6d 6f 76 es even a [remov
2380: 65 5f 77 69 6e 33 32 5f 64 69 72 5d 20 63 61 6e e_win32_dir] can
2390: 20 66 61 69 6c 20 6a 75 73 74 20 61 66 74 65 72 fail just after
23a0: 0a 20 20 20 20 20 20 23 20 61 20 64 69 72 65 63 . # a direc
23b0: 74 6f 72 79 20 69 73 20 65 6d 70 74 69 65 64 2e tory is emptied.
23c0: 20 54 68 65 20 63 61 75 73 65 20 69 73 20 75 73 The cause is us
23d0: 75 61 6c 6c 79 20 22 74 61 67 2d 61 6c 6f 6e 67 ually "tag-along
23e0: 73 22 20 2d 20 70 72 6f 67 72 61 6d 73 0a 20 20 s" - programs.
23f0: 20 20 20 20 23 20 6c 69 6b 65 20 61 6e 74 69 2d # like anti-
2400: 76 69 72 75 73 20 73 6f 66 74 77 61 72 65 2c 20 virus software,
2410: 61 75 74 6f 6d 61 74 69 63 20 62 61 63 6b 75 70 automatic backup
2420: 20 74 6f 6f 6c 73 20 61 6e 64 20 76 61 72 69 6f tools and vario
2430: 75 73 20 65 78 70 6c 6f 72 65 72 0a 20 20 20 20 us explorer.
2440: 20 20 23 20 65 78 74 65 6e 73 69 6f 6e 73 20 74 # extensions t
2450: 68 61 74 20 6b 65 65 70 20 61 20 66 69 6c 65 20 hat keep a file
2460: 6f 70 65 6e 20 61 20 6c 69 74 74 6c 65 20 6c 6f open a little lo
2470: 6e 67 65 72 20 74 68 61 6e 20 77 65 20 65 78 70 nger than we exp
2480: 65 63 74 2c 0a 20 20 20 20 20 20 23 20 63 61 75 ect,. # cau
2490: 73 69 6e 67 20 74 68 65 20 64 65 6c 65 74 65 20 sing the delete
24a0: 74 6f 20 66 61 69 6c 2e 0a 20 20 20 20 20 20 23 to fail.. #
24b0: 0a 20 20 20 20 20 20 23 20 54 68 65 20 73 6f 6c . # The sol
24c0: 75 74 69 6f 6e 20 69 73 20 74 6f 20 77 61 69 74 ution is to wait
24d0: 20 61 20 73 68 6f 72 74 20 61 6d 6f 75 6e 74 20 a short amount
24e0: 6f 66 20 74 69 6d 65 20 62 65 66 6f 72 65 20 72 of time before r
24f0: 65 74 72 79 69 6e 67 20 74 68 65 0a 20 20 20 20 etrying the.
2500: 20 20 23 20 72 65 6d 6f 76 61 6c 2e 0a 20 20 20 # removal..
2510: 20 20 20 23 0a 20 20 20 20 20 20 69 66 20 7b 24 #. if {$
2520: 6e 52 65 74 72 79 20 3e 20 30 7d 20 7b 0a 20 20 nRetry > 0} {.
2530: 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69 for {set i
2540: 20 30 7d 20 7b 24 69 20 3c 20 24 6e 52 65 74 72 0} {$i < $nRetr
2550: 79 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 y} {incr i} {.
2560: 20 20 20 20 20 20 20 20 73 65 74 20 72 63 20 5b set rc [
2570: 63 61 74 63 68 20 7b 0a 20 20 20 20 20 20 20 20 catch {.
2580: 20 20 20 20 72 65 6d 6f 76 65 5f 77 69 6e 33 32 remove_win32
2590: 5f 64 69 72 20 24 64 69 72 4e 61 6d 65 0a 20 20 _dir $dirName.
25a0: 20 20 20 20 20 20 20 20 7d 20 6d 73 67 5d 0a 20 } msg].
25b0: 20 20 20 20 20 20 20 20 20 69 66 20 7b 24 72 63 if {$rc
25c0: 20 3d 3d 20 30 7d 20 62 72 65 61 6b 0a 20 20 20 == 0} break.
25d0: 20 20 20 20 20 20 20 69 66 20 7b 24 6e 44 65 6c if {$nDel
25e0: 61 79 20 3e 20 30 7d 20 7b 20 61 66 74 65 72 20 ay > 0} { after
25f0: 24 6e 44 65 6c 61 79 20 7d 0a 20 20 20 20 20 20 $nDelay }.
2600: 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 20 7b }. if {
2610: 24 72 63 7d 20 7b 20 65 72 72 6f 72 20 24 6d 73 $rc} { error $ms
2620: 67 20 7d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 g }. } else
2630: 20 7b 0a 20 20 20 20 20 20 20 20 72 65 6d 6f 76 {. remov
2640: 65 5f 77 69 6e 33 32 5f 64 69 72 20 24 64 69 72 e_win32_dir $dir
2650: 4e 61 6d 65 0a 20 20 20 20 20 20 7d 0a 20 20 20 Name. }.
2660: 20 7d 0a 20 20 7d 0a 0a 20 20 70 72 6f 63 20 64 }. }.. proc d
2670: 6f 5f 64 65 6c 65 74 65 5f 77 69 6e 33 32 5f 66 o_delete_win32_f
2680: 69 6c 65 20 7b 61 72 67 73 7d 20 7b 0a 20 20 20 ile {args} {.
2690: 20 73 65 74 20 6e 52 65 74 72 79 20 5b 67 65 74 set nRetry [get
26a0: 46 69 6c 65 52 65 74 72 69 65 73 5d 20 20 20 20 FileRetries]
26b0: 20 3b 23 20 4d 61 78 69 6d 75 6d 20 6e 75 6d 62 ;# Maximum numb
26c0: 65 72 20 6f 66 20 72 65 74 72 69 65 73 2e 0a 20 er of retries..
26d0: 20 20 20 73 65 74 20 6e 44 65 6c 61 79 20 5b 67 set nDelay [g
26e0: 65 74 46 69 6c 65 52 65 74 72 79 44 65 6c 61 79 etFileRetryDelay
26f0: 5d 20 20 3b 23 20 44 65 6c 61 79 20 69 6e 20 6d ] ;# Delay in m
2700: 73 20 62 65 66 6f 72 65 20 72 65 74 72 79 69 6e s before retryin
2710: 67 2e 0a 0a 20 20 20 20 66 6f 72 65 61 63 68 20 g... foreach
2720: 66 69 6c 65 4e 61 6d 65 20 24 61 72 67 73 20 7b fileName $args {
2730: 0a 20 20 20 20 20 20 23 20 4f 6e 20 77 69 6e 64 . # On wind
2740: 6f 77 73 2c 20 73 6f 6d 65 74 69 6d 65 73 20 65 ows, sometimes e
2750: 76 65 6e 20 61 20 5b 64 65 6c 65 74 65 5f 77 69 ven a [delete_wi
2760: 6e 33 32 5f 66 69 6c 65 5d 20 63 61 6e 20 66 61 n32_file] can fa
2770: 69 6c 20 6a 75 73 74 20 61 66 74 65 72 0a 20 20 il just after.
2780: 20 20 20 20 23 20 61 20 66 69 6c 65 20 69 73 20 # a file is
2790: 63 6c 6f 73 65 64 2e 20 54 68 65 20 63 61 75 73 closed. The caus
27a0: 65 20 69 73 20 75 73 75 61 6c 6c 79 20 22 74 61 e is usually "ta
27b0: 67 2d 61 6c 6f 6e 67 73 22 20 2d 20 70 72 6f 67 g-alongs" - prog
27c0: 72 61 6d 73 20 6c 69 6b 65 0a 20 20 20 20 20 20 rams like.
27d0: 23 20 61 6e 74 69 2d 76 69 72 75 73 20 73 6f 66 # anti-virus sof
27e0: 74 77 61 72 65 2c 20 61 75 74 6f 6d 61 74 69 63 tware, automatic
27f0: 20 62 61 63 6b 75 70 20 74 6f 6f 6c 73 20 61 6e backup tools an
2800: 64 20 76 61 72 69 6f 75 73 20 65 78 70 6c 6f 72 d various explor
2810: 65 72 0a 20 20 20 20 20 20 23 20 65 78 74 65 6e er. # exten
2820: 73 69 6f 6e 73 20 74 68 61 74 20 6b 65 65 70 20 sions that keep
2830: 61 20 66 69 6c 65 20 6f 70 65 6e 20 61 20 6c 69 a file open a li
2840: 74 74 6c 65 20 6c 6f 6e 67 65 72 20 74 68 61 6e ttle longer than
2850: 20 77 65 20 65 78 70 65 63 74 2c 0a 20 20 20 20 we expect,.
2860: 20 20 23 20 63 61 75 73 69 6e 67 20 74 68 65 20 # causing the
2870: 64 65 6c 65 74 65 20 74 6f 20 66 61 69 6c 2e 0a delete to fail..
2880: 20 20 20 20 20 20 23 0a 20 20 20 20 20 20 23 20 #. #
2890: 54 68 65 20 73 6f 6c 75 74 69 6f 6e 20 69 73 20 The solution is
28a0: 74 6f 20 77 61 69 74 20 61 20 73 68 6f 72 74 20 to wait a short
28b0: 61 6d 6f 75 6e 74 20 6f 66 20 74 69 6d 65 20 62 amount of time b
28c0: 65 66 6f 72 65 20 72 65 74 72 79 69 6e 67 20 74 efore retrying t
28d0: 68 65 0a 20 20 20 20 20 20 23 20 64 65 6c 65 74 he. # delet
28e0: 65 2e 0a 20 20 20 20 20 20 23 0a 20 20 20 20 20 e.. #.
28f0: 20 69 66 20 7b 24 6e 52 65 74 72 79 20 3e 20 30 if {$nRetry > 0
2900: 7d 20 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 20 } {. for
2910: 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 20 3c 20 {set i 0} {$i <
2920: 24 6e 52 65 74 72 79 7d 20 7b 69 6e 63 72 20 69 $nRetry} {incr i
2930: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 73 65 } {. se
2940: 74 20 72 63 20 5b 63 61 74 63 68 20 7b 0a 20 20 t rc [catch {.
2950: 20 20 20 20 20 20 20 20 20 20 64 65 6c 65 74 65 delete
2960: 5f 77 69 6e 33 32 5f 66 69 6c 65 20 24 66 69 6c _win32_file $fil
2970: 65 4e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 eName.
2980: 7d 20 6d 73 67 5d 0a 20 20 20 20 20 20 20 20 20 } msg].
2990: 20 69 66 20 7b 24 72 63 20 3d 3d 20 30 7d 20 62 if {$rc == 0} b
29a0: 72 65 61 6b 0a 20 20 20 20 20 20 20 20 20 20 69 reak. i
29b0: 66 20 7b 24 6e 44 65 6c 61 79 20 3e 20 30 7d 20 f {$nDelay > 0}
29c0: 7b 20 61 66 74 65 72 20 24 6e 44 65 6c 61 79 20 { after $nDelay
29d0: 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 }. }.
29e0: 20 20 20 20 69 66 20 7b 24 72 63 7d 20 7b 20 65 if {$rc} { e
29f0: 72 72 6f 72 20 24 6d 73 67 20 7d 0a 20 20 20 20 rror $msg }.
2a00: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 } else {.
2a10: 20 20 20 64 65 6c 65 74 65 5f 77 69 6e 33 32 5f delete_win32_
2a20: 66 69 6c 65 20 24 66 69 6c 65 4e 61 6d 65 0a 20 file $fileName.
2a30: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d }. }. }
2a40: 0a 7d 0a 0a 70 72 6f 63 20 65 78 65 63 70 72 65 .}..proc execpre
2a50: 73 71 6c 20 7b 68 61 6e 64 6c 65 20 61 72 67 73 sql {handle args
2a60: 7d 20 7b 0a 20 20 74 72 61 63 65 20 72 65 6d 6f } {. trace remo
2a70: 76 65 20 65 78 65 63 75 74 69 6f 6e 20 24 68 61 ve execution $ha
2a80: 6e 64 6c 65 20 65 6e 74 65 72 20 5b 6c 69 73 74 ndle enter [list
2a90: 20 65 78 65 63 70 72 65 73 71 6c 20 24 68 61 6e execpresql $han
2aa0: 64 6c 65 5d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f dle]. if {[info
2ab0: 20 65 78 69 73 74 73 20 3a 3a 47 28 70 65 72 6d exists ::G(perm
2ac0: 3a 70 72 65 73 71 6c 29 5d 7d 20 7b 0a 20 20 20 :presql)]} {.
2ad0: 20 24 68 61 6e 64 6c 65 20 65 76 61 6c 20 24 3a $handle eval $:
2ae0: 3a 47 28 70 65 72 6d 3a 70 72 65 73 71 6c 29 0a :G(perm:presql).
2af0: 20 20 7d 0a 7d 0a 0a 23 20 54 68 69 73 20 63 6f }.}..# This co
2b00: 6d 6d 61 6e 64 20 73 68 6f 75 6c 64 20 62 65 20 mmand should be
2b10: 63 61 6c 6c 65 64 20 61 66 74 65 72 20 6c 6f 61 called after loa
2b20: 64 69 6e 67 20 74 65 73 74 65 72 2e 74 63 6c 20 ding tester.tcl
2b30: 66 72 6f 6d 20 77 69 74 68 69 6e 0a 23 20 61 6c from within.# al
2b40: 6c 20 74 65 73 74 20 73 63 72 69 70 74 73 20 74 l test scripts t
2b50: 68 61 74 20 61 72 65 20 69 6e 63 6f 6d 70 61 74 hat are incompat
2b60: 69 62 6c 65 20 77 69 74 68 20 65 6e 63 72 79 70 ible with encryp
2b70: 74 69 6f 6e 20 63 6f 64 65 63 73 2e 0a 23 0a 70 tion codecs..#.p
2b80: 72 6f 63 20 64 6f 5f 6e 6f 74 5f 75 73 65 5f 63 roc do_not_use_c
2b90: 6f 64 65 63 20 7b 7d 20 7b 0a 20 20 73 65 74 20 odec {} {. set
2ba0: 3a 3a 64 6f 5f 6e 6f 74 5f 75 73 65 5f 63 6f 64 ::do_not_use_cod
2bb0: 65 63 20 31 0a 20 20 72 65 73 65 74 5f 64 62 0a ec 1. reset_db.
2bc0: 7d 0a 0a 23 20 50 72 69 6e 74 20 61 20 48 45 4c }..# Print a HEL
2bd0: 50 20 6d 65 73 73 61 67 65 20 61 6e 64 20 65 78 P message and ex
2be0: 69 74 0a 23 0a 70 72 6f 63 20 70 72 69 6e 74 5f it.#.proc print_
2bf0: 68 65 6c 70 5f 61 6e 64 5f 71 75 69 74 20 7b 7d help_and_quit {}
2c00: 20 7b 0a 20 20 70 75 74 73 20 7b 4f 70 74 69 6f {. puts {Optio
2c10: 6e 73 3a 0a 20 20 2d 2d 70 61 75 73 65 20 20 20 ns:. --pause
2c20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
2c30: 61 69 74 20 66 6f 72 20 75 73 65 72 20 69 6e 70 ait for user inp
2c40: 75 74 20 62 65 66 6f 72 65 20 63 6f 6e 74 69 6e ut before contin
2c50: 75 69 6e 67 0a 20 20 2d 2d 73 6f 66 74 2d 68 65 uing. --soft-he
2c60: 61 70 2d 6c 69 6d 69 74 3d 4e 20 20 20 20 20 20 ap-limit=N
2c70: 53 65 74 20 74 68 65 20 73 6f 66 74 2d 68 65 61 Set the soft-hea
2c80: 70 2d 6c 69 6d 69 74 20 74 6f 20 4e 0a 20 20 2d p-limit to N. -
2c90: 2d 6d 61 78 65 72 72 6f 72 3d 4e 20 20 20 20 20 -maxerror=N
2ca0: 20 20 20 20 20 20 20 20 51 75 69 74 20 61 66 74 Quit aft
2cb0: 65 72 20 4e 20 65 72 72 6f 72 73 0a 20 20 2d 2d er N errors. --
2cc0: 76 65 72 62 6f 73 65 3d 28 30 7c 31 29 20 20 20 verbose=(0|1)
2cd0: 20 20 20 20 20 20 20 43 6f 6e 74 72 6f 6c 20 74 Control t
2ce0: 68 65 20 61 6d 6f 75 6e 74 20 6f 66 20 6f 75 74 he amount of out
2cf0: 70 75 74 2e 20 20 44 65 66 61 75 6c 74 20 27 31 put. Default '1
2d00: 27 0a 20 20 2d 2d 6f 75 74 70 75 74 3d 46 49 4c '. --output=FIL
2d10: 45 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 E set
2d20: 20 2d 2d 76 65 72 62 6f 73 65 3d 32 20 61 6e 64 --verbose=2 and
2d30: 20 6f 75 74 70 75 74 20 74 6f 20 46 49 4c 45 2e output to FILE.
2d40: 20 20 49 6d 70 6c 69 65 73 20 2d 71 0a 20 20 2d Implies -q. -
2d50: 71 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 q
2d60: 20 20 20 20 20 20 20 20 53 68 6f 72 74 68 61 6e Shorthan
2d70: 64 20 66 6f 72 20 2d 2d 76 65 72 62 6f 73 65 3d d for --verbose=
2d80: 30 0a 20 20 2d 2d 68 65 6c 70 20 20 20 20 20 20 0. --help
2d90: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 68 69 Thi
2da0: 73 20 6d 65 73 73 61 67 65 0a 7d 0a 20 20 65 78 s message.}. ex
2db0: 69 74 20 31 0a 7d 0a 0a 23 20 54 68 65 20 66 6f it 1.}..# The fo
2dc0: 6c 6c 6f 77 69 6e 67 20 62 6c 6f 63 6b 20 6f 6e llowing block on
2dd0: 6c 79 20 72 75 6e 73 20 74 68 65 20 66 69 72 73 ly runs the firs
2de0: 74 20 74 69 6d 65 20 74 68 69 73 20 66 69 6c 65 t time this file
2df0: 20 69 73 20 73 6f 75 72 63 65 64 2e 20 49 74 0a is sourced. It.
2e00: 23 20 64 6f 65 73 20 6e 6f 74 20 72 75 6e 20 69 # does not run i
2e10: 6e 20 73 6c 61 76 65 20 69 6e 74 65 72 70 72 65 n slave interpre
2e20: 74 65 72 73 20 28 73 69 6e 63 65 20 74 68 65 20 ters (since the
2e30: 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 20 61 72 72 ::cmdlinearg arr
2e40: 61 79 20 69 73 0a 23 20 70 6f 70 75 6c 61 74 65 ay is.# populate
2e50: 64 20 62 65 66 6f 72 65 20 74 68 65 20 74 65 73 d before the tes
2e60: 74 20 73 63 72 69 70 74 20 69 73 20 72 75 6e 20 t script is run
2e70: 69 6e 20 73 6c 61 76 65 20 69 6e 74 65 72 70 72 in slave interpr
2e80: 65 74 65 72 73 29 2e 0a 23 0a 69 66 20 7b 5b 69 eters)..#.if {[i
2e90: 6e 66 6f 20 65 78 69 73 74 73 20 63 6d 64 6c 69 nfo exists cmdli
2ea0: 6e 65 61 72 67 5d 3d 3d 30 7d 20 7b 0a 0a 20 20 nearg]==0} {..
2eb0: 23 20 50 61 72 73 65 20 61 6e 79 20 6f 70 74 69 # Parse any opti
2ec0: 6f 6e 73 20 73 70 65 63 69 66 69 65 64 20 69 6e ons specified in
2ed0: 20 74 68 65 20 24 61 72 67 76 20 61 72 72 61 79 the $argv array
2ee0: 2e 20 54 68 69 73 20 73 63 72 69 70 74 20 61 63 . This script ac
2ef0: 63 65 70 74 73 20 74 68 65 0a 20 20 23 20 66 6f cepts the. # fo
2f00: 6c 6c 6f 77 69 6e 67 20 6f 70 74 69 6f 6e 73 3a llowing options:
2f10: 0a 20 20 23 0a 20 20 23 20 20 20 2d 2d 70 61 75 . #. # --pau
2f20: 73 65 0a 20 20 23 20 20 20 2d 2d 73 6f 66 74 2d se. # --soft-
2f30: 68 65 61 70 2d 6c 69 6d 69 74 3d 4e 4e 0a 20 20 heap-limit=NN.
2f40: 23 20 20 20 2d 2d 6d 61 78 65 72 72 6f 72 3d 4e # --maxerror=N
2f50: 4e 0a 20 20 23 20 20 20 2d 2d 6d 61 6c 6c 6f 63 N. # --malloc
2f60: 74 72 61 63 65 3d 4e 0a 20 20 23 20 20 20 2d 2d trace=N. # --
2f70: 62 61 63 6b 74 72 61 63 65 3d 4e 0a 20 20 23 20 backtrace=N. #
2f80: 20 20 2d 2d 62 69 6e 61 72 79 6c 6f 67 3d 4e 0a --binarylog=N.
2f90: 20 20 23 20 20 20 2d 2d 73 6f 61 6b 3d 4e 0a 20 # --soak=N.
2fa0: 20 23 20 20 20 2d 2d 66 69 6c 65 2d 72 65 74 72 # --file-retr
2fb0: 69 65 73 3d 4e 0a 20 20 23 20 20 20 2d 2d 66 69 ies=N. # --fi
2fc0: 6c 65 2d 72 65 74 72 79 2d 64 65 6c 61 79 3d 4e le-retry-delay=N
2fd0: 0a 20 20 23 20 20 20 2d 2d 73 74 61 72 74 3d 5b . # --start=[
2fe0: 24 70 65 72 6d 75 74 61 74 69 6f 6e 3a 5d 24 74 $permutation:]$t
2ff0: 65 73 74 66 69 6c 65 0a 20 20 23 20 20 20 2d 2d estfile. # --
3000: 6d 61 74 63 68 3d 24 70 61 74 74 65 72 6e 0a 20 match=$pattern.
3010: 20 23 20 20 20 2d 2d 76 65 72 62 6f 73 65 3d 24 # --verbose=$
3020: 76 61 6c 0a 20 20 23 20 20 20 2d 2d 6f 75 74 70 val. # --outp
3030: 75 74 3d 24 66 69 6c 65 6e 61 6d 65 0a 20 20 23 ut=$filename. #
3040: 20 20 20 2d 71 20 20 20 20 20 20 20 20 20 20 20 -q
3050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3060: 20 20 20 20 20 20 20 20 20 20 20 52 65 64 75 63 Reduc
3070: 65 20 6f 75 74 70 75 74 0a 20 20 23 20 20 20 2d e output. # -
3080: 2d 74 65 73 74 64 69 72 3d 24 64 69 72 20 20 20 -testdir=$dir
3090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
30a0: 20 20 20 20 20 20 20 52 75 6e 20 74 65 73 74 73 Run tests
30b0: 20 69 6e 20 73 75 62 64 69 72 65 63 74 6f 72 79 in subdirectory
30c0: 20 24 64 69 72 0a 20 20 23 20 20 20 2d 2d 68 65 $dir. # --he
30d0: 6c 70 0a 20 20 23 0a 20 20 73 65 74 20 63 6d 64 lp. #. set cmd
30e0: 6c 69 6e 65 61 72 67 28 73 6f 66 74 2d 68 65 61 linearg(soft-hea
30f0: 70 2d 6c 69 6d 69 74 29 20 20 20 20 30 0a 20 20 p-limit) 0.
3100: 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 6d set cmdlinearg(m
3110: 61 78 65 72 72 6f 72 29 20 20 20 20 20 20 20 20 axerror)
3120: 31 30 30 30 0a 20 20 73 65 74 20 63 6d 64 6c 69 1000. set cmdli
3130: 6e 65 61 72 67 28 6d 61 6c 6c 6f 63 74 72 61 63 nearg(malloctrac
3140: 65 29 20 20 20 20 20 20 20 20 30 0a 20 20 73 65 e) 0. se
3150: 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 62 61 63 t cmdlinearg(bac
3160: 6b 74 72 61 63 65 29 20 20 20 20 20 20 20 20 20 ktrace)
3170: 31 30 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 10. set cmdline
3180: 61 72 67 28 62 69 6e 61 72 79 6c 6f 67 29 20 20 arg(binarylog)
3190: 20 20 20 20 20 20 20 20 30 0a 20 20 73 65 74 20 0. set
31a0: 63 6d 64 6c 69 6e 65 61 72 67 28 73 6f 61 6b 29 cmdlinearg(soak)
31b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 0
31c0: 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 . set cmdlinear
31d0: 67 28 66 69 6c 65 2d 72 65 74 72 69 65 73 29 20 g(file-retries)
31e0: 20 20 20 20 20 20 30 0a 20 20 73 65 74 20 63 6d 0. set cm
31f0: 64 6c 69 6e 65 61 72 67 28 66 69 6c 65 2d 72 65 dlinearg(file-re
3200: 74 72 79 2d 64 65 6c 61 79 29 20 20 20 30 0a 20 try-delay) 0.
3210: 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 set cmdlinearg(
3220: 73 74 61 72 74 29 20 20 20 20 20 20 20 20 20 20 start)
3230: 20 20 20 22 22 0a 20 20 73 65 74 20 63 6d 64 6c "". set cmdl
3240: 69 6e 65 61 72 67 28 6d 61 74 63 68 29 20 20 20 inearg(match)
3250: 20 20 20 20 20 20 20 20 20 20 22 22 0a 20 20 73 "". s
3260: 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 76 65 et cmdlinearg(ve
3270: 72 62 6f 73 65 29 20 20 20 20 20 20 20 20 20 20 rbose)
3280: 20 22 22 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e "". set cmdlin
3290: 65 61 72 67 28 6f 75 74 70 75 74 29 20 20 20 20 earg(output)
32a0: 20 20 20 20 20 20 20 20 22 22 0a 20 20 73 65 74 "". set
32b0: 20 63 6d 64 6c 69 6e 65 61 72 67 28 74 65 73 74 cmdlinearg(test
32c0: 64 69 72 29 20 20 20 20 20 20 20 20 20 20 20 22 dir) "
32d0: 74 65 73 74 64 69 72 22 0a 0a 20 20 73 65 74 20 testdir".. set
32e0: 6c 65 66 74 6f 76 65 72 20 5b 6c 69 73 74 5d 0a leftover [list].
32f0: 20 20 66 6f 72 65 61 63 68 20 61 20 24 61 72 67 foreach a $arg
3300: 76 20 7b 0a 20 20 20 20 73 77 69 74 63 68 20 2d v {. switch -
3310: 72 65 67 65 78 70 20 2d 2d 20 24 61 20 7b 0a 20 regexp -- $a {.
3320: 20 20 20 20 20 7b 5e 2d 2b 70 61 75 73 65 24 7d {^-+pause$}
3330: 20 7b 0a 20 20 20 20 20 20 20 20 23 20 57 61 69 {. # Wai
3340: 74 20 66 6f 72 20 75 73 65 72 20 69 6e 70 75 74 t for user input
3350: 20 62 65 66 6f 72 65 20 63 6f 6e 74 69 6e 75 69 before continui
3360: 6e 67 2e 20 54 68 69 73 20 69 73 20 74 6f 20 67 ng. This is to g
3370: 69 76 65 20 74 68 65 20 75 73 65 72 20 61 6e 0a ive the user an.
3380: 20 20 20 20 20 20 20 20 23 20 6f 70 70 6f 72 74 # opport
3390: 75 6e 69 74 79 20 74 6f 20 63 6f 6e 6e 65 63 74 unity to connect
33a0: 20 70 72 6f 66 69 6c 69 6e 67 20 74 6f 6f 6c 73 profiling tools
33b0: 20 74 6f 20 74 68 65 20 70 72 6f 63 65 73 73 2e to the process.
33c0: 0a 20 20 20 20 20 20 20 20 70 75 74 73 20 2d 6e . puts -n
33d0: 6f 6e 65 77 6c 69 6e 65 20 22 50 72 65 73 73 20 onewline "Press
33e0: 52 45 54 55 52 4e 20 74 6f 20 62 65 67 69 6e 2e RETURN to begin.
33f0: 2e 2e 22 0a 20 20 20 20 20 20 20 20 66 6c 75 73 ..". flus
3400: 68 20 73 74 64 6f 75 74 0a 20 20 20 20 20 20 20 h stdout.
3410: 20 67 65 74 73 20 73 74 64 69 6e 0a 20 20 20 20 gets stdin.
3420: 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 73 6f }. {^-+so
3430: 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74 3d 2e 2b ft-heap-limit=.+
3440: 24 7d 20 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 $} {. for
3450: 65 61 63 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c each {dummy cmdl
3460: 69 6e 65 61 72 67 28 73 6f 66 74 2d 68 65 61 70 inearg(soft-heap
3470: 2d 6c 69 6d 69 74 29 7d 20 5b 73 70 6c 69 74 20 -limit)} [split
3480: 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20 $a =] break.
3490: 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 6d 61 }. {^-+ma
34a0: 78 65 72 72 6f 72 3d 2e 2b 24 7d 20 7b 0a 20 20 xerror=.+$} {.
34b0: 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64 foreach {d
34c0: 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 ummy cmdlinearg(
34d0: 6d 61 78 65 72 72 6f 72 29 7d 20 5b 73 70 6c 69 maxerror)} [spli
34e0: 74 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 t $a =] break.
34f0: 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b }. {^-+
3500: 6d 61 6c 6c 6f 63 74 72 61 63 65 3d 2e 2b 24 7d malloctrace=.+$}
3510: 20 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61 {. forea
3520: 63 68 20 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e ch {dummy cmdlin
3530: 65 61 72 67 28 6d 61 6c 6c 6f 63 74 72 61 63 65 earg(malloctrace
3540: 29 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20 )} [split $a =]
3550: 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 69 66 break. if
3560: 20 7b 24 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 {$cmdlinearg(ma
3570: 6c 6c 6f 63 74 72 61 63 65 29 7d 20 7b 0a 20 20 lloctrace)} {.
3580: 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f sqlite3_
3590: 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 20 73 74 61 memdebug_log sta
35a0: 72 74 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 rt. }.
35b0: 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 62 }. {^-+b
35c0: 61 63 6b 74 72 61 63 65 3d 2e 2b 24 7d 20 7b 0a acktrace=.+$} {.
35d0: 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 foreach
35e0: 7b 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 {dummy cmdlinear
35f0: 67 28 62 61 63 6b 74 72 61 63 65 29 7d 20 5b 73 g(backtrace)} [s
3600: 70 6c 69 74 20 24 61 20 3d 5d 20 62 72 65 61 6b plit $a =] break
3610: 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 . sqlite3
3620: 5f 6d 65 6d 64 65 62 75 67 5f 62 61 63 6b 74 72 _memdebug_backtr
3630: 61 63 65 20 24 76 61 6c 75 65 0a 20 20 20 20 20 ace $value.
3640: 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 62 69 6e }. {^-+bin
3650: 61 72 79 6c 6f 67 3d 2e 2b 24 7d 20 7b 0a 20 20 arylog=.+$} {.
3660: 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64 foreach {d
3670: 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 ummy cmdlinearg(
3680: 62 69 6e 61 72 79 6c 6f 67 29 7d 20 5b 73 70 6c binarylog)} [spl
3690: 69 74 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20 it $a =] break.
36a0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d }. {^-
36b0: 2b 73 6f 61 6b 3d 2e 2b 24 7d 20 7b 0a 20 20 20 +soak=.+$} {.
36c0: 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64 75 foreach {du
36d0: 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 73 mmy cmdlinearg(s
36e0: 6f 61 6b 29 7d 20 5b 73 70 6c 69 74 20 24 61 20 oak)} [split $a
36f0: 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20 20 20 20 =] break.
3700: 20 73 65 74 20 3a 3a 47 28 69 73 73 6f 61 6b 29 set ::G(issoak)
3710: 20 24 63 6d 64 6c 69 6e 65 61 72 67 28 73 6f 61 $cmdlinearg(soa
3720: 6b 29 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 k). }.
3730: 20 7b 5e 2d 2b 66 69 6c 65 2d 72 65 74 72 69 65 {^-+file-retrie
3740: 73 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20 s=.+$} {.
3750: 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79 20 foreach {dummy
3760: 63 6d 64 6c 69 6e 65 61 72 67 28 66 69 6c 65 2d cmdlinearg(file-
3770: 72 65 74 72 69 65 73 29 7d 20 5b 73 70 6c 69 74 retries)} [split
3780: 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 $a =] break.
3790: 20 20 20 20 20 73 65 74 20 3a 3a 47 28 66 69 6c set ::G(fil
37a0: 65 2d 72 65 74 72 69 65 73 29 20 24 63 6d 64 6c e-retries) $cmdl
37b0: 69 6e 65 61 72 67 28 66 69 6c 65 2d 72 65 74 72 inearg(file-retr
37c0: 69 65 73 29 0a 20 20 20 20 20 20 7d 0a 20 20 20 ies). }.
37d0: 20 20 20 7b 5e 2d 2b 66 69 6c 65 2d 72 65 74 72 {^-+file-retr
37e0: 79 2d 64 65 6c 61 79 3d 2e 2b 24 7d 20 7b 0a 20 y-delay=.+$} {.
37f0: 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b foreach {
3800: 64 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 dummy cmdlinearg
3810: 28 66 69 6c 65 2d 72 65 74 72 79 2d 64 65 6c 61 (file-retry-dela
3820: 79 29 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d y)} [split $a =]
3830: 20 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 73 break. s
3840: 65 74 20 3a 3a 47 28 66 69 6c 65 2d 72 65 74 72 et ::G(file-retr
3850: 79 2d 64 65 6c 61 79 29 20 24 63 6d 64 6c 69 6e y-delay) $cmdlin
3860: 65 61 72 67 28 66 69 6c 65 2d 72 65 74 72 79 2d earg(file-retry-
3870: 64 65 6c 61 79 29 0a 20 20 20 20 20 20 7d 0a 20 delay). }.
3880: 20 20 20 20 20 7b 5e 2d 2b 73 74 61 72 74 3d 2e {^-+start=.
3890: 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20 20 66 6f +$} {. fo
38a0: 72 65 61 63 68 20 7b 64 75 6d 6d 79 20 63 6d 64 reach {dummy cmd
38b0: 6c 69 6e 65 61 72 67 28 73 74 61 72 74 29 7d 20 linearg(start)}
38c0: 5b 73 70 6c 69 74 20 24 61 20 3d 5d 20 62 72 65 [split $a =] bre
38d0: 61 6b 0a 0a 20 20 20 20 20 20 20 20 73 65 74 20 ak.. set
38e0: 3a 3a 47 28 73 74 61 72 74 3a 66 69 6c 65 29 20 ::G(start:file)
38f0: 24 63 6d 64 6c 69 6e 65 61 72 67 28 73 74 61 72 $cmdlinearg(star
3900: 74 29 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b t). if {[
3910: 72 65 67 65 78 70 20 7b 28 2e 2a 29 3a 28 2e 2a regexp {(.*):(.*
3920: 29 7d 20 24 63 6d 64 6c 69 6e 65 61 72 67 28 73 )} $cmdlinearg(s
3930: 74 61 72 74 29 20 2d 3e 20 73 2e 70 65 72 6d 20 tart) -> s.perm
3940: 73 2e 66 69 6c 65 5d 7d 20 7b 0a 20 20 20 20 20 s.file]} {.
3950: 20 20 20 20 20 73 65 74 20 3a 3a 47 28 73 74 61 set ::G(sta
3960: 72 74 3a 70 65 72 6d 75 74 61 74 69 6f 6e 29 20 rt:permutation)
3970: 24 7b 73 2e 70 65 72 6d 7d 0a 20 20 20 20 20 20 ${s.perm}.
3980: 20 20 20 20 73 65 74 20 3a 3a 47 28 73 74 61 72 set ::G(star
3990: 74 3a 66 69 6c 65 29 20 20 20 20 20 20 20 20 24 t:file) $
39a0: 7b 73 2e 66 69 6c 65 7d 0a 20 20 20 20 20 20 20 {s.file}.
39b0: 20 7d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 24 }. if {$
39c0: 3a 3a 47 28 73 74 61 72 74 3a 66 69 6c 65 29 20 ::G(start:file)
39d0: 3d 3d 20 22 22 7d 20 7b 75 6e 73 65 74 20 3a 3a == ""} {unset ::
39e0: 47 28 73 74 61 72 74 3a 66 69 6c 65 29 7d 0a 20 G(start:file)}.
39f0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d }. {^-
3a00: 2b 6d 61 74 63 68 3d 2e 2b 24 7d 20 7b 0a 20 20 +match=.+$} {.
3a10: 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64 foreach {d
3a20: 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 ummy cmdlinearg(
3a30: 6d 61 74 63 68 29 7d 20 5b 73 70 6c 69 74 20 24 match)} [split $
3a40: 61 20 3d 5d 20 62 72 65 61 6b 0a 0a 20 20 20 20 a =] break..
3a50: 20 20 20 20 73 65 74 20 3a 3a 47 28 6d 61 74 63 set ::G(matc
3a60: 68 29 20 24 63 6d 64 6c 69 6e 65 61 72 67 28 6d h) $cmdlinearg(m
3a70: 61 74 63 68 29 0a 20 20 20 20 20 20 20 20 69 66 atch). if
3a80: 20 7b 24 3a 3a 47 28 6d 61 74 63 68 29 20 3d 3d {$::G(match) ==
3a90: 20 22 22 7d 20 7b 75 6e 73 65 74 20 3a 3a 47 28 ""} {unset ::G(
3aa0: 6d 61 74 63 68 29 7d 0a 20 20 20 20 20 20 7d 0a match)}. }.
3ab0: 0a 20 20 20 20 20 20 7b 5e 2d 2b 6f 75 74 70 75 . {^-+outpu
3ac0: 74 3d 2e 2b 24 7d 20 7b 0a 20 20 20 20 20 20 20 t=.+$} {.
3ad0: 20 66 6f 72 65 61 63 68 20 7b 64 75 6d 6d 79 20 foreach {dummy
3ae0: 63 6d 64 6c 69 6e 65 61 72 67 28 6f 75 74 70 75 cmdlinearg(outpu
3af0: 74 29 7d 20 5b 73 70 6c 69 74 20 24 61 20 3d 5d t)} [split $a =]
3b00: 20 62 72 65 61 6b 0a 20 20 20 20 20 20 20 20 69 break. i
3b10: 66 20 7b 24 63 6d 64 6c 69 6e 65 61 72 67 28 76 f {$cmdlinearg(v
3b20: 65 72 62 6f 73 65 29 3d 3d 22 22 7d 20 7b 0a 20 erbose)==""} {.
3b30: 20 20 20 20 20 20 20 20 20 73 65 74 20 63 6d 64 set cmd
3b40: 6c 69 6e 65 61 72 67 28 76 65 72 62 6f 73 65 29 linearg(verbose)
3b50: 20 32 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 2. }.
3b60: 20 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 76 }. {^-+v
3b70: 65 72 62 6f 73 65 3d 2e 2b 24 7d 20 7b 0a 20 20 erbose=.+$} {.
3b80: 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64 foreach {d
3b90: 75 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 ummy cmdlinearg(
3ba0: 76 65 72 62 6f 73 65 29 7d 20 5b 73 70 6c 69 74 verbose)} [split
3bb0: 20 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 $a =] break.
3bc0: 20 20 20 20 20 69 66 20 7b 24 63 6d 64 6c 69 6e if {$cmdlin
3bd0: 65 61 72 67 28 76 65 72 62 6f 73 65 29 3d 3d 22 earg(verbose)=="
3be0: 66 69 6c 65 22 7d 20 7b 0a 20 20 20 20 20 20 20 file"} {.
3bf0: 20 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 set cmdlinear
3c00: 67 28 76 65 72 62 6f 73 65 29 20 32 0a 20 20 20 g(verbose) 2.
3c10: 20 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b } elseif {[
3c20: 73 74 72 69 6e 67 20 69 73 20 62 6f 6f 6c 65 61 string is boolea
3c30: 6e 20 2d 73 74 72 69 63 74 20 24 63 6d 64 6c 69 n -strict $cmdli
3c40: 6e 65 61 72 67 28 76 65 72 62 6f 73 65 29 5d 3d nearg(verbose)]=
3c50: 3d 30 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 =0} {.
3c60: 65 72 72 6f 72 20 22 6f 70 74 69 6f 6e 20 2d 2d error "option --
3c70: 76 65 72 62 6f 73 65 3d 20 6d 75 73 74 20 62 65 verbose= must be
3c80: 20 73 65 74 20 74 6f 20 61 20 62 6f 6f 6c 65 61 set to a boolea
3c90: 6e 20 6f 72 20 74 6f 20 5c 22 66 69 6c 65 5c 22 n or to \"file\"
3ca0: 22 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ". }.
3cb0: 20 20 7d 0a 20 20 20 20 20 20 7b 5e 2d 2b 74 65 }. {^-+te
3cc0: 73 74 64 69 72 3d 2e 2a 24 7d 20 7b 0a 20 20 20 stdir=.*$} {.
3cd0: 20 20 20 20 20 66 6f 72 65 61 63 68 20 7b 64 75 foreach {du
3ce0: 6d 6d 79 20 63 6d 64 6c 69 6e 65 61 72 67 28 74 mmy cmdlinearg(t
3cf0: 65 73 74 64 69 72 29 7d 20 5b 73 70 6c 69 74 20 estdir)} [split
3d00: 24 61 20 3d 5d 20 62 72 65 61 6b 0a 20 20 20 20 $a =] break.
3d10: 20 20 7d 0a 20 20 20 20 20 20 7b 2e 2a 68 65 6c }. {.*hel
3d20: 70 2e 2a 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 p.*} {.
3d30: 70 72 69 6e 74 5f 68 65 6c 70 5f 61 6e 64 5f 71 print_help_and_q
3d40: 75 69 74 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 uit. }.
3d50: 20 20 7b 5e 2d 71 24 7d 20 7b 0a 20 20 20 20 20 {^-q$} {.
3d60: 20 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 set cmdlinear
3d70: 67 28 6f 75 74 70 75 74 29 20 74 65 73 74 2d 6f g(output) test-o
3d80: 75 74 2e 74 78 74 0a 20 20 20 20 20 20 20 20 73 ut.txt. s
3d90: 65 74 20 63 6d 64 6c 69 6e 65 61 72 67 28 76 65 et cmdlinearg(ve
3da0: 72 62 6f 73 65 29 20 32 0a 20 20 20 20 20 20 7d rbose) 2. }
3db0: 0a 0a 20 20 20 20 20 20 64 65 66 61 75 6c 74 20 .. default
3dc0: 7b 0a 20 20 20 20 20 20 20 20 6c 61 70 70 65 6e {. lappen
3dd0: 64 20 6c 65 66 74 6f 76 65 72 20 5b 66 69 6c 65 d leftover [file
3de0: 20 6e 6f 72 6d 61 6c 69 7a 65 20 24 61 5d 0a 20 normalize $a].
3df0: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d }. }. }
3e00: 0a 20 20 73 65 74 20 63 6d 64 6c 69 6e 65 61 72 . set cmdlinear
3e10: 67 28 54 45 53 54 46 49 58 54 55 52 45 5f 48 4f g(TESTFIXTURE_HO
3e20: 4d 45 29 20 5b 70 77 64 5d 0a 20 20 69 66 20 7b ME) [pwd]. if {
3e30: 24 63 6d 64 6c 69 6e 65 61 72 67 28 74 65 73 74 $cmdlinearg(test
3e40: 64 69 72 29 21 3d 22 22 7d 20 7b 0a 20 20 20 20 dir)!=""} {.
3e50: 66 69 6c 65 20 6d 6b 64 69 72 20 24 63 6d 64 6c file mkdir $cmdl
3e60: 69 6e 65 61 72 67 28 74 65 73 74 64 69 72 29 0a inearg(testdir).
3e70: 20 20 20 20 63 64 20 24 63 6d 64 6c 69 6e 65 61 cd $cmdlinea
3e80: 72 67 28 74 65 73 74 64 69 72 29 0a 20 20 7d 0a rg(testdir). }.
3e90: 20 20 73 65 74 20 61 72 67 76 20 24 6c 65 66 74 set argv $left
3ea0: 6f 76 65 72 0a 0a 20 20 23 20 49 6e 73 74 61 6c over.. # Instal
3eb0: 6c 20 74 68 65 20 6d 61 6c 6c 6f 63 20 6c 61 79 l the malloc lay
3ec0: 65 72 20 75 73 65 64 20 74 6f 20 69 6e 6a 65 63 er used to injec
3ed0: 74 20 4f 4f 4d 20 65 72 72 6f 72 73 2e 20 41 6e t OOM errors. An
3ee0: 64 20 74 68 65 20 27 61 75 74 6f 6d 61 74 69 63 d the 'automatic
3ef0: 27 0a 20 20 23 20 65 78 74 65 6e 73 69 6f 6e 73 '. # extensions
3f00: 2e 20 54 68 69 73 20 6f 6e 6c 79 20 6e 65 65 64 . This only need
3f10: 73 20 74 6f 20 62 65 20 64 6f 6e 65 20 6f 6e 63 s to be done onc
3f20: 65 20 66 6f 72 20 74 68 65 20 70 72 6f 63 65 73 e for the proces
3f30: 73 2e 0a 20 20 23 0a 20 20 73 71 6c 69 74 65 33 s.. #. sqlite3
3f40: 5f 73 68 75 74 64 6f 77 6e 0a 20 20 69 6e 73 74 _shutdown. inst
3f50: 61 6c 6c 5f 6d 61 6c 6c 6f 63 5f 66 61 75 6c 74 all_malloc_fault
3f60: 73 69 6d 20 31 0a 20 20 73 71 6c 69 74 65 33 5f sim 1. sqlite3_
3f70: 69 6e 69 74 69 61 6c 69 7a 65 0a 20 20 61 75 74 initialize. aut
3f80: 6f 69 6e 73 74 61 6c 6c 5f 74 65 73 74 5f 66 75 oinstall_test_fu
3f90: 6e 63 74 69 6f 6e 73 0a 0a 20 20 23 20 49 66 20 nctions.. # If
3fa0: 74 68 65 20 2d 2d 62 69 6e 61 72 79 6c 6f 67 20 the --binarylog
3fb0: 6f 70 74 69 6f 6e 20 77 61 73 20 73 70 65 63 69 option was speci
3fc0: 66 69 65 64 2c 20 63 72 65 61 74 65 20 74 68 65 fied, create the
3fd0: 20 6c 6f 67 67 69 6e 67 20 56 46 53 2e 20 54 68 logging VFS. Th
3fe0: 69 73 0a 20 20 23 20 63 61 6c 6c 20 69 6e 73 74 is. # call inst
3ff0: 61 6c 6c 73 20 74 68 65 20 6e 65 77 20 56 46 53 alls the new VFS
4000: 20 61 73 20 74 68 65 20 64 65 66 61 75 6c 74 20 as the default
4010: 66 6f 72 20 61 6c 6c 20 53 51 4c 69 74 65 20 63 for all SQLite c
4020: 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 20 20 23 0a onnections.. #.
4030: 20 20 69 66 20 7b 24 63 6d 64 6c 69 6e 65 61 72 if {$cmdlinear
4040: 67 28 62 69 6e 61 72 79 6c 6f 67 29 7d 20 7b 0a g(binarylog)} {.
4050: 20 20 20 20 76 66 73 6c 6f 67 20 6e 65 77 20 62 vfslog new b
4060: 69 6e 61 72 79 6c 6f 67 20 7b 7d 20 76 66 73 6c inarylog {} vfsl
4070: 6f 67 2e 62 69 6e 0a 20 20 7d 0a 0a 20 20 23 20 og.bin. }.. #
4080: 53 65 74 20 74 68 65 20 62 61 63 6b 74 72 61 63 Set the backtrac
4090: 65 20 64 65 70 74 68 2c 20 69 66 20 6d 61 6c 6c e depth, if mall
40a0: 6f 63 20 74 72 61 63 69 6e 67 20 69 73 20 65 6e oc tracing is en
40b0: 61 62 6c 65 64 2e 0a 20 20 23 0a 20 20 69 66 20 abled.. #. if
40c0: 7b 24 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 6c {$cmdlinearg(mal
40d0: 6c 6f 63 74 72 61 63 65 29 7d 20 7b 0a 20 20 20 loctrace)} {.
40e0: 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 sqlite3_memdebu
40f0: 67 5f 62 61 63 6b 74 72 61 63 65 20 24 63 6d 64 g_backtrace $cmd
4100: 6c 69 6e 65 61 72 67 28 62 61 63 6b 74 72 61 63 linearg(backtrac
4110: 65 29 0a 20 20 7d 0a 0a 20 20 69 66 20 7b 24 63 e). }.. if {$c
4120: 6d 64 6c 69 6e 65 61 72 67 28 6f 75 74 70 75 74 mdlinearg(output
4130: 29 21 3d 22 22 7d 20 7b 0a 20 20 20 20 70 75 74 )!=""} {. put
4140: 73 20 22 43 6f 70 79 69 6e 67 20 6f 75 74 70 75 s "Copying outpu
4150: 74 20 74 6f 20 66 69 6c 65 20 24 63 6d 64 6c 69 t to file $cmdli
4160: 6e 65 61 72 67 28 6f 75 74 70 75 74 29 22 0a 20 nearg(output)".
4170: 20 20 20 73 65 74 20 3a 3a 47 28 6f 75 74 70 75 set ::G(outpu
4180: 74 5f 66 64 29 20 5b 6f 70 65 6e 20 24 63 6d 64 t_fd) [open $cmd
4190: 6c 69 6e 65 61 72 67 28 6f 75 74 70 75 74 29 20 linearg(output)
41a0: 77 5d 0a 20 20 20 20 66 63 6f 6e 66 69 67 75 72 w]. fconfigur
41b0: 65 20 24 3a 3a 47 28 6f 75 74 70 75 74 5f 66 64 e $::G(output_fd
41c0: 29 20 2d 62 75 66 66 65 72 69 6e 67 20 6c 69 6e ) -buffering lin
41d0: 65 0a 20 20 7d 0a 0a 20 20 69 66 20 7b 24 63 6d e. }.. if {$cm
41e0: 64 6c 69 6e 65 61 72 67 28 76 65 72 62 6f 73 65 dlinearg(verbose
41f0: 29 3d 3d 22 22 7d 20 7b 0a 20 20 20 20 73 65 74 )==""} {. set
4200: 20 63 6d 64 6c 69 6e 65 61 72 67 28 76 65 72 62 cmdlinearg(verb
4210: 6f 73 65 29 20 31 0a 20 20 7d 0a 7d 0a 0a 23 20 ose) 1. }.}..#
4220: 55 70 64 61 74 65 20 74 68 65 20 73 6f 66 74 2d Update the soft-
4230: 68 65 61 70 2d 6c 69 6d 69 74 20 65 61 63 68 20 heap-limit each
4240: 74 69 6d 65 20 74 68 69 73 20 73 63 72 69 70 74 time this script
4250: 20 69 73 20 72 75 6e 2e 20 49 6e 20 74 68 61 74 is run. In that
4260: 0a 23 20 77 61 79 20 69 66 20 61 6e 20 69 6e 64 .# way if an ind
4270: 69 76 69 64 75 61 6c 20 74 65 73 74 20 66 69 6c ividual test fil
4280: 65 20 63 68 61 6e 67 65 73 20 74 68 65 20 73 6f e changes the so
4290: 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74 2c 20 69 ft-heap-limit, i
42a0: 74 0a 23 20 77 69 6c 6c 20 62 65 20 72 65 73 65 t.# will be rese
42b0: 74 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f t at the start o
42c0: 66 20 74 68 65 20 6e 65 78 74 20 74 65 73 74 20 f the next test
42d0: 66 69 6c 65 2e 0a 23 0a 73 71 6c 69 74 65 33 5f file..#.sqlite3_
42e0: 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69 74 20 soft_heap_limit
42f0: 24 63 6d 64 6c 69 6e 65 61 72 67 28 73 6f 66 74 $cmdlinearg(soft
4300: 2d 68 65 61 70 2d 6c 69 6d 69 74 29 0a 0a 23 20 -heap-limit)..#
4310: 43 72 65 61 74 65 20 61 20 74 65 73 74 20 64 61 Create a test da
4320: 74 61 62 61 73 65 0a 23 0a 70 72 6f 63 20 72 65 tabase.#.proc re
4330: 73 65 74 5f 64 62 20 7b 7d 20 7b 0a 20 20 63 61 set_db {} {. ca
4340: 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 20 tch {db close}.
4350: 20 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73 forcedelete tes
4360: 74 2e 64 62 0a 20 20 66 6f 72 63 65 64 65 6c 65 t.db. forcedele
4370: 74 65 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72 6e te test.db-journ
4380: 61 6c 0a 20 20 66 6f 72 63 65 64 65 6c 65 74 65 al. forcedelete
4390: 20 74 65 73 74 2e 64 62 2d 77 61 6c 0a 20 20 73 test.db-wal. s
43a0: 71 6c 69 74 65 33 20 64 62 20 2e 2f 74 65 73 74 qlite3 db ./test
43b0: 2e 64 62 0a 20 20 73 65 74 20 3a 3a 44 42 20 5b .db. set ::DB [
43c0: 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 sqlite3_connecti
43d0: 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 20 on_pointer db].
43e0: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 if {[info exist
43f0: 73 20 3a 3a 53 45 54 55 50 5f 53 51 4c 5d 7d 20 s ::SETUP_SQL]}
4400: 7b 0a 20 20 20 20 64 62 20 65 76 61 6c 20 24 3a {. db eval $:
4410: 3a 53 45 54 55 50 5f 53 51 4c 0a 20 20 7d 0a 7d :SETUP_SQL. }.}
4420: 0a 72 65 73 65 74 5f 64 62 0a 0a 23 20 41 62 6f .reset_db..# Abo
4430: 72 74 20 65 61 72 6c 79 20 69 66 20 74 68 69 73 rt early if this
4440: 20 73 63 72 69 70 74 20 68 61 73 20 62 65 65 6e script has been
4450: 20 72 75 6e 20 62 65 66 6f 72 65 2e 0a 23 0a 69 run before..#.i
4460: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 f {[info exists
4470: 54 43 28 63 6f 75 6e 74 29 5d 7d 20 72 65 74 75 TC(count)]} retu
4480: 72 6e 0a 0a 23 20 4d 61 6b 65 20 73 75 72 65 20 rn..# Make sure
4490: 6d 65 6d 6f 72 79 20 73 74 61 74 69 73 74 69 63 memory statistic
44a0: 73 20 61 72 65 20 65 6e 61 62 6c 65 64 2e 0a 23 s are enabled..#
44b0: 0a 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 5f .sqlite3_config_
44c0: 6d 65 6d 73 74 61 74 75 73 20 31 0a 0a 23 20 49 memstatus 1..# I
44d0: 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 74 65 nitialize the te
44e0: 73 74 20 63 6f 75 6e 74 65 72 73 20 61 6e 64 20 st counters and
44f0: 73 65 74 20 75 70 20 63 6f 6d 6d 61 6e 64 73 20 set up commands
4500: 74 6f 20 61 63 63 65 73 73 20 74 68 65 6d 2e 0a to access them..
4510: 23 20 4f 72 2c 20 69 66 20 74 68 69 73 20 69 73 # Or, if this is
4520: 20 61 20 73 6c 61 76 65 20 69 6e 74 65 72 70 72 a slave interpr
4530: 65 74 65 72 2c 20 73 65 74 20 75 70 20 61 6c 69 eter, set up ali
4540: 61 73 65 73 20 74 6f 20 77 72 69 74 65 20 74 68 ases to write th
4550: 65 0a 23 20 63 6f 75 6e 74 65 72 73 20 69 6e 20 e.# counters in
4560: 74 68 65 20 70 61 72 65 6e 74 20 69 6e 74 65 72 the parent inter
4570: 70 72 65 74 65 72 2e 0a 23 0a 69 66 20 7b 30 3d preter..#.if {0=
4580: 3d 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a =[info exists ::
4590: 53 4c 41 56 45 5d 7d 20 7b 0a 20 20 73 65 74 20 SLAVE]} {. set
45a0: 54 43 28 65 72 72 6f 72 73 29 20 20 20 20 30 0a TC(errors) 0.
45b0: 20 20 73 65 74 20 54 43 28 63 6f 75 6e 74 29 20 set TC(count)
45c0: 20 20 20 20 30 0a 20 20 73 65 74 20 54 43 28 66 0. set TC(f
45d0: 61 69 6c 5f 6c 69 73 74 29 20 5b 6c 69 73 74 5d ail_list) [list]
45e0: 0a 20 20 73 65 74 20 54 43 28 6f 6d 69 74 5f 6c . set TC(omit_l
45f0: 69 73 74 29 20 5b 6c 69 73 74 5d 0a 20 20 73 65 ist) [list]. se
4600: 74 20 54 43 28 77 61 72 6e 5f 6c 69 73 74 29 20 t TC(warn_list)
4610: 5b 6c 69 73 74 5d 0a 0a 20 20 70 72 6f 63 20 73 [list].. proc s
4620: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 et_test_counter
4630: 7b 63 6f 75 6e 74 65 72 20 61 72 67 73 7d 20 7b {counter args} {
4640: 0a 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 . if {[llengt
4650: 68 20 24 61 72 67 73 5d 7d 20 7b 0a 20 20 20 20 h $args]} {.
4660: 20 20 73 65 74 20 3a 3a 54 43 28 24 63 6f 75 6e set ::TC($coun
4670: 74 65 72 29 20 5b 6c 69 6e 64 65 78 20 24 61 72 ter) [lindex $ar
4680: 67 73 20 30 5d 0a 20 20 20 20 7d 0a 20 20 20 20 gs 0]. }.
4690: 73 65 74 20 3a 3a 54 43 28 24 63 6f 75 6e 74 65 set ::TC($counte
46a0: 72 29 0a 20 20 7d 0a 7d 0a 0a 23 20 52 65 63 6f r). }.}..# Reco
46b0: 72 64 20 74 68 65 20 66 61 63 74 20 74 68 61 74 rd the fact that
46c0: 20 61 20 73 65 71 75 65 6e 63 65 20 6f 66 20 74 a sequence of t
46d0: 65 73 74 73 20 77 65 72 65 20 6f 6d 69 74 74 65 ests were omitte
46e0: 64 2e 0a 23 0a 70 72 6f 63 20 6f 6d 69 74 5f 74 d..#.proc omit_t
46f0: 65 73 74 20 7b 6e 61 6d 65 20 72 65 61 73 6f 6e est {name reason
4700: 20 7b 61 70 70 65 6e 64 20 31 7d 7d 20 7b 0a 20 {append 1}} {.
4710: 20 73 65 74 20 6f 6d 69 74 4c 69 73 74 20 5b 73 set omitList [s
4720: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 et_test_counter
4730: 6f 6d 69 74 5f 6c 69 73 74 5d 0a 20 20 69 66 20 omit_list]. if
4740: 7b 24 61 70 70 65 6e 64 7d 20 7b 0a 20 20 20 20 {$append} {.
4750: 6c 61 70 70 65 6e 64 20 6f 6d 69 74 4c 69 73 74 lappend omitList
4760: 20 5b 6c 69 73 74 20 24 6e 61 6d 65 20 24 72 65 [list $name $re
4770: 61 73 6f 6e 5d 0a 20 20 7d 0a 20 20 73 65 74 5f ason]. }. set_
4780: 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 6f 6d 69 test_counter omi
4790: 74 5f 6c 69 73 74 20 24 6f 6d 69 74 4c 69 73 74 t_list $omitList
47a0: 0a 7d 0a 0a 23 20 52 65 63 6f 72 64 20 74 68 65 .}..# Record the
47b0: 20 66 61 63 74 20 74 68 61 74 20 61 20 74 65 73 fact that a tes
47c0: 74 20 66 61 69 6c 65 64 2e 0a 23 0a 70 72 6f 63 t failed..#.proc
47d0: 20 66 61 69 6c 5f 74 65 73 74 20 7b 6e 61 6d 65 fail_test {name
47e0: 7d 20 7b 0a 20 20 73 65 74 20 66 20 5b 73 65 74 } {. set f [set
47f0: 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 66 61 _test_counter fa
4800: 69 6c 5f 6c 69 73 74 5d 0a 20 20 6c 61 70 70 65 il_list]. lappe
4810: 6e 64 20 66 20 24 6e 61 6d 65 0a 20 20 73 65 74 nd f $name. set
4820: 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 66 61 _test_counter fa
4830: 69 6c 5f 6c 69 73 74 20 24 66 0a 20 20 73 65 74 il_list $f. set
4840: 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 65 72 _test_counter er
4850: 72 6f 72 73 20 5b 65 78 70 72 20 5b 73 65 74 5f rors [expr [set_
4860: 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 65 72 72 test_counter err
4870: 6f 72 73 5d 20 2b 20 31 5d 0a 0a 20 20 73 65 74 ors] + 1].. set
4880: 20 6e 46 61 69 6c 20 5b 73 65 74 5f 74 65 73 74 nFail [set_test
4890: 5f 63 6f 75 6e 74 65 72 20 65 72 72 6f 72 73 5d _counter errors]
48a0: 0a 20 20 69 66 20 7b 24 6e 46 61 69 6c 3e 3d 24 . if {$nFail>=$
48b0: 3a 3a 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 78 ::cmdlinearg(max
48c0: 65 72 72 6f 72 29 7d 20 7b 0a 20 20 20 20 6f 75 error)} {. ou
48d0: 74 70 75 74 32 20 22 2a 2a 2a 20 47 69 76 69 6e tput2 "*** Givin
48e0: 67 20 75 70 2e 2e 2e 22 0a 20 20 20 20 66 69 6e g up...". fin
48f0: 61 6c 69 7a 65 5f 74 65 73 74 69 6e 67 0a 20 20 alize_testing.
4900: 7d 0a 7d 0a 0a 23 20 52 65 6d 65 6d 62 65 72 20 }.}..# Remember
4910: 61 20 77 61 72 6e 69 6e 67 20 6d 65 73 73 61 67 a warning messag
4920: 65 20 74 6f 20 62 65 20 64 69 73 70 6c 61 79 65 e to be displaye
4930: 64 20 61 74 20 74 68 65 20 63 6f 6e 63 6c 75 73 d at the conclus
4940: 69 6f 6e 20 6f 66 20 61 6c 6c 20 74 65 73 74 69 ion of all testi
4950: 6e 67 0a 23 0a 70 72 6f 63 20 77 61 72 6e 69 6e ng.#.proc warnin
4960: 67 20 7b 6d 73 67 20 7b 61 70 70 65 6e 64 20 31 g {msg {append 1
4970: 7d 7d 20 7b 0a 20 20 6f 75 74 70 75 74 32 20 22 }} {. output2 "
4980: 57 61 72 6e 69 6e 67 3a 20 24 6d 73 67 22 0a 20 Warning: $msg".
4990: 20 73 65 74 20 77 61 72 6e 4c 69 73 74 20 5b 73 set warnList [s
49a0: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 et_test_counter
49b0: 77 61 72 6e 5f 6c 69 73 74 5d 0a 20 20 69 66 20 warn_list]. if
49c0: 7b 24 61 70 70 65 6e 64 7d 20 7b 0a 20 20 20 20 {$append} {.
49d0: 6c 61 70 70 65 6e 64 20 77 61 72 6e 4c 69 73 74 lappend warnList
49e0: 20 24 6d 73 67 0a 20 20 7d 0a 20 20 73 65 74 5f $msg. }. set_
49f0: 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 77 61 72 test_counter war
4a00: 6e 5f 6c 69 73 74 20 24 77 61 72 6e 4c 69 73 74 n_list $warnList
4a10: 0a 7d 0a 0a 0a 23 20 49 6e 63 72 65 6d 65 6e 74 .}...# Increment
4a20: 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 74 the number of t
4a30: 65 73 74 73 20 72 75 6e 0a 23 0a 70 72 6f 63 20 ests run.#.proc
4a40: 69 6e 63 72 5f 6e 74 65 73 74 20 7b 7d 20 7b 0a incr_ntest {} {.
4a50: 20 20 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 set_test_count
4a60: 65 72 20 63 6f 75 6e 74 20 5b 65 78 70 72 20 5b er count [expr [
4a70: 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 set_test_counter
4a80: 20 63 6f 75 6e 74 5d 20 2b 20 31 5d 0a 7d 0a 0a count] + 1].}..
4a90: 23 20 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 # Return true if
4aa0: 20 2d 2d 76 65 72 62 6f 73 65 3d 31 20 77 61 73 --verbose=1 was
4ab0: 20 73 70 65 63 69 66 69 65 64 20 6f 6e 20 74 68 specified on th
4ac0: 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 2e 20 e command line.
4ad0: 4f 74 68 65 72 77 69 73 65 2c 0a 23 20 72 65 74 Otherwise,.# ret
4ae0: 75 72 6e 20 66 61 6c 73 65 2e 0a 23 0a 70 72 6f urn false..#.pro
4af0: 63 20 76 65 72 62 6f 73 65 20 7b 7d 20 7b 0a 20 c verbose {} {.
4b00: 20 72 65 74 75 72 6e 20 24 3a 3a 63 6d 64 6c 69 return $::cmdli
4b10: 6e 65 61 72 67 28 76 65 72 62 6f 73 65 29 0a 7d nearg(verbose).}
4b20: 0a 0a 23 20 55 73 65 20 74 68 65 20 66 6f 6c 6c ..# Use the foll
4b30: 6f 77 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 20 69 owing commands i
4b40: 6e 73 74 65 61 64 20 6f 66 20 5b 70 75 74 73 5d nstead of [puts]
4b50: 20 66 6f 72 20 74 65 73 74 20 6f 75 74 70 75 74 for test output
4b60: 20 77 69 74 68 69 6e 0a 23 20 74 68 69 73 20 66 within.# this f
4b70: 69 6c 65 2e 20 54 65 73 74 20 73 63 72 69 70 74 ile. Test script
4b80: 73 20 63 61 6e 20 73 74 69 6c 6c 20 75 73 65 20 s can still use
4b90: 72 65 67 75 6c 61 72 20 5b 70 75 74 73 5d 2c 20 regular [puts],
4ba0: 77 68 69 63 68 20 69 73 20 64 69 72 65 63 74 65 which is directe
4bb0: 64 0a 23 20 74 6f 20 73 74 64 6f 75 74 20 61 6e d.# to stdout an
4bc0: 64 2c 20 69 66 20 6f 6e 65 20 69 73 20 6f 70 65 d, if one is ope
4bd0: 6e 2c 20 74 68 65 20 2d 2d 6f 75 74 70 75 74 20 n, the --output
4be0: 66 69 6c 65 2e 0a 23 0a 23 20 6f 75 74 70 75 74 file..#.# output
4bf0: 31 3a 20 6f 75 74 70 75 74 20 74 68 61 74 20 73 1: output that s
4c00: 68 6f 75 6c 64 20 62 65 20 70 72 69 6e 74 65 64 hould be printed
4c10: 20 69 66 20 2d 2d 76 65 72 62 6f 73 65 3d 31 20 if --verbose=1
4c20: 77 61 73 20 73 70 65 63 69 66 69 65 64 2e 0a 23 was specified..#
4c30: 20 6f 75 74 70 75 74 32 3a 20 6f 75 74 70 75 74 output2: output
4c40: 20 74 68 61 74 20 73 68 6f 75 6c 64 20 62 65 20 that should be
4c50: 70 72 69 6e 74 65 64 20 75 6e 63 6f 6e 64 69 74 printed uncondit
4c60: 69 6f 6e 61 6c 6c 79 2e 0a 23 20 6f 75 74 70 75 ionally..# outpu
4c70: 74 32 5f 69 66 5f 6e 6f 5f 76 65 72 62 6f 73 65 t2_if_no_verbose
4c80: 3a 20 6f 75 74 70 75 74 20 74 68 61 74 20 73 68 : output that sh
4c90: 6f 75 6c 64 20 62 65 20 70 72 69 6e 74 65 64 20 ould be printed
4ca0: 6f 6e 6c 79 20 69 66 20 2d 2d 76 65 72 62 6f 73 only if --verbos
4cb0: 65 3d 30 2e 0a 23 0a 70 72 6f 63 20 6f 75 74 70 e=0..#.proc outp
4cc0: 75 74 31 20 7b 61 72 67 73 7d 20 7b 0a 20 20 73 ut1 {args} {. s
4cd0: 65 74 20 76 20 5b 76 65 72 62 6f 73 65 5d 0a 20 et v [verbose].
4ce0: 20 69 66 20 7b 24 76 3d 3d 31 7d 20 7b 0a 20 20 if {$v==1} {.
4cf0: 20 20 75 70 6c 65 76 65 6c 20 6f 75 74 70 75 74 uplevel output
4d00: 32 20 24 61 72 67 73 0a 20 20 7d 20 65 6c 73 65 2 $args. } else
4d10: 69 66 20 7b 24 76 3d 3d 32 7d 20 7b 0a 20 20 20 if {$v==2} {.
4d20: 20 75 70 6c 65 76 65 6c 20 70 75 74 73 20 5b 6c uplevel puts [l
4d30: 72 61 6e 67 65 20 24 61 72 67 73 20 30 20 65 6e range $args 0 en
4d40: 64 2d 31 5d 20 24 3a 3a 47 28 6f 75 74 70 75 74 d-1] $::G(output
4d50: 5f 66 64 29 20 5b 6c 72 61 6e 67 65 20 24 61 72 _fd) [lrange $ar
4d60: 67 73 20 65 6e 64 20 65 6e 64 5d 0a 20 20 7d 0a gs end end]. }.
4d70: 7d 0a 70 72 6f 63 20 6f 75 74 70 75 74 32 20 7b }.proc output2 {
4d80: 61 72 67 73 7d 20 7b 0a 20 20 73 65 74 20 6e 41 args} {. set nA
4d90: 72 67 20 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 rg [llength $arg
4da0: 73 5d 0a 20 20 75 70 6c 65 76 65 6c 20 70 75 74 s]. uplevel put
4db0: 73 20 24 61 72 67 73 0a 7d 0a 70 72 6f 63 20 6f s $args.}.proc o
4dc0: 75 74 70 75 74 32 5f 69 66 5f 6e 6f 5f 76 65 72 utput2_if_no_ver
4dd0: 62 6f 73 65 20 7b 61 72 67 73 7d 20 7b 0a 20 20 bose {args} {.
4de0: 73 65 74 20 76 20 5b 76 65 72 62 6f 73 65 5d 0a set v [verbose].
4df0: 20 20 69 66 20 7b 24 76 3d 3d 30 7d 20 7b 0a 20 if {$v==0} {.
4e00: 20 20 20 75 70 6c 65 76 65 6c 20 6f 75 74 70 75 uplevel outpu
4e10: 74 32 20 24 61 72 67 73 0a 20 20 7d 20 65 6c 73 t2 $args. } els
4e20: 65 69 66 20 7b 24 76 3d 3d 32 7d 20 7b 0a 20 20 eif {$v==2} {.
4e30: 20 20 75 70 6c 65 76 65 6c 20 70 75 74 73 20 5b uplevel puts [
4e40: 6c 72 61 6e 67 65 20 24 61 72 67 73 20 30 20 65 lrange $args 0 e
4e50: 6e 64 2d 31 5d 20 73 74 64 6f 75 74 20 5b 6c 72 nd-1] stdout [lr
4e60: 61 6e 67 65 20 24 61 72 67 73 20 65 6e 64 20 65 ange $args end e
4e70: 6e 64 5d 0a 20 20 7d 0a 7d 0a 0a 23 20 4f 76 65 nd]. }.}..# Ove
4e80: 72 72 69 64 65 20 74 68 65 20 5b 70 75 74 73 5d rride the [puts]
4e90: 20 63 6f 6d 6d 61 6e 64 20 73 6f 20 74 68 61 74 command so that
4ea0: 20 69 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 69 if no channel i
4eb0: 73 20 65 78 70 6c 69 63 69 74 6c 79 20 0a 23 20 s explicitly .#
4ec0: 73 70 65 63 69 66 69 65 64 20 74 68 65 20 73 74 specified the st
4ed0: 72 69 6e 67 20 69 73 20 77 72 69 74 74 65 6e 20 ring is written
4ee0: 74 6f 20 62 6f 74 68 20 73 74 64 6f 75 74 20 61 to both stdout a
4ef0: 6e 64 20 74 6f 20 74 68 65 20 66 69 6c 65 20 0a nd to the file .
4f00: 23 20 73 70 65 63 69 66 69 65 64 20 62 79 20 22 # specified by "
4f10: 2d 2d 6f 75 74 70 75 74 3d 22 2c 20 69 66 20 61 --output=", if a
4f20: 6e 79 2e 0a 23 0a 70 72 6f 63 20 70 75 74 73 5f ny..#.proc puts_
4f30: 6f 76 65 72 72 69 64 65 20 7b 61 72 67 73 7d 20 override {args}
4f40: 7b 0a 20 20 73 65 74 20 6e 41 72 67 20 5b 6c 6c {. set nArg [ll
4f50: 65 6e 67 74 68 20 24 61 72 67 73 5d 0a 20 20 69 ength $args]. i
4f60: 66 20 7b 24 6e 41 72 67 3d 3d 31 20 7c 7c 20 28 f {$nArg==1 || (
4f70: 24 6e 41 72 67 3d 3d 32 20 26 26 20 5b 73 74 72 $nArg==2 && [str
4f80: 69 6e 67 20 66 69 72 73 74 20 5b 6c 69 6e 64 65 ing first [linde
4f90: 78 20 24 61 72 67 73 20 30 5d 20 2d 6e 6f 6e 65 x $args 0] -none
4fa0: 77 6c 69 6e 65 5d 3d 3d 30 29 7d 20 7b 0a 20 20 wline]==0)} {.
4fb0: 20 20 75 70 6c 65 76 65 6c 20 70 75 74 73 5f 6f uplevel puts_o
4fc0: 72 69 67 69 6e 61 6c 20 24 61 72 67 73 0a 20 20 riginal $args.
4fd0: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 if {[info exis
4fe0: 74 73 20 3a 3a 47 28 6f 75 74 70 75 74 5f 66 64 ts ::G(output_fd
4ff0: 29 5d 7d 20 7b 0a 20 20 20 20 20 20 75 70 6c 65 )]} {. uple
5000: 76 65 6c 20 70 75 74 73 20 5b 6c 72 61 6e 67 65 vel puts [lrange
5010: 20 24 61 72 67 73 20 30 20 65 6e 64 2d 31 5d 20 $args 0 end-1]
5020: 24 3a 3a 47 28 6f 75 74 70 75 74 5f 66 64 29 20 $::G(output_fd)
5030: 5b 6c 72 61 6e 67 65 20 24 61 72 67 73 20 65 6e [lrange $args en
5040: 64 20 65 6e 64 5d 0a 20 20 20 20 7d 0a 20 20 7d d end]. }. }
5050: 20 65 6c 73 65 20 7b 0a 20 20 20 20 23 20 41 20 else {. # A
5060: 63 68 61 6e 6e 65 6c 20 77 61 73 20 65 78 70 6c channel was expl
5070: 69 63 69 74 6c 79 20 73 70 65 63 69 66 69 65 64 icitly specified
5080: 2e 0a 20 20 20 20 75 70 6c 65 76 65 6c 20 70 75 .. uplevel pu
5090: 74 73 5f 6f 72 69 67 69 6e 61 6c 20 24 61 72 67 ts_original $arg
50a0: 73 0a 20 20 7d 0a 7d 0a 72 65 6e 61 6d 65 20 70 s. }.}.rename p
50b0: 75 74 73 20 70 75 74 73 5f 6f 72 69 67 69 6e 61 uts puts_origina
50c0: 6c 0a 70 72 6f 63 20 70 75 74 73 20 7b 61 72 67 l.proc puts {arg
50d0: 73 7d 20 7b 20 75 70 6c 65 76 65 6c 20 70 75 74 s} { uplevel put
50e0: 73 5f 6f 76 65 72 72 69 64 65 20 24 61 72 67 73 s_override $args
50f0: 20 7d 0a 0a 0a 23 20 49 6e 76 6f 6b 65 20 74 68 }...# Invoke th
5100: 65 20 64 6f 5f 74 65 73 74 20 70 72 6f 63 65 64 e do_test proced
5110: 75 72 65 20 74 6f 20 72 75 6e 20 61 20 73 69 6e ure to run a sin
5120: 67 6c 65 20 74 65 73 74 0a 23 0a 70 72 6f 63 20 gle test.#.proc
5130: 64 6f 5f 74 65 73 74 20 7b 6e 61 6d 65 20 63 6d do_test {name cm
5140: 64 20 65 78 70 65 63 74 65 64 7d 20 7b 0a 20 20 d expected} {.
5150: 67 6c 6f 62 61 6c 20 61 72 67 76 20 63 6d 64 6c global argv cmdl
5160: 69 6e 65 61 72 67 0a 0a 20 20 66 69 78 5f 74 65 inearg.. fix_te
5170: 73 74 6e 61 6d 65 20 6e 61 6d 65 0a 0a 20 20 73 stname name.. s
5180: 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f qlite3_memdebug_
5190: 73 65 74 74 69 74 6c 65 20 24 6e 61 6d 65 0a 0a settitle $name..
51a0: 23 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 # if {[llength
51b0: 24 61 72 67 76 5d 3d 3d 30 7d 20 7b 0a 23 20 20 $argv]==0} {.#
51c0: 20 20 73 65 74 20 67 6f 20 31 0a 23 20 20 7d 20 set go 1.# }
51d0: 65 6c 73 65 20 7b 0a 23 20 20 20 20 73 65 74 20 else {.# set
51e0: 67 6f 20 30 0a 23 20 20 20 20 66 6f 72 65 61 63 go 0.# foreac
51f0: 68 20 70 61 74 74 65 72 6e 20 24 61 72 67 76 20 h pattern $argv
5200: 7b 0a 23 20 20 20 20 20 20 69 66 20 7b 5b 73 74 {.# if {[st
5210: 72 69 6e 67 20 6d 61 74 63 68 20 24 70 61 74 74 ring match $patt
5220: 65 72 6e 20 24 6e 61 6d 65 5d 7d 20 7b 0a 23 20 ern $name]} {.#
5230: 20 20 20 20 20 20 20 73 65 74 20 67 6f 20 31 0a set go 1.
5240: 23 20 20 20 20 20 20 20 20 62 72 65 61 6b 0a 23 # break.#
5250: 20 20 20 20 20 20 7d 0a 23 20 20 20 20 7d 0a 23 }.# }.#
5260: 20 20 7d 0a 0a 20 20 69 66 20 7b 5b 69 6e 66 6f }.. if {[info
5270: 20 65 78 69 73 74 73 20 3a 3a 47 28 70 65 72 6d exists ::G(perm
5280: 3a 70 72 65 66 69 78 29 5d 7d 20 7b 0a 20 20 20 :prefix)]} {.
5290: 20 73 65 74 20 6e 61 6d 65 20 22 24 3a 3a 47 28 set name "$::G(
52a0: 70 65 72 6d 3a 70 72 65 66 69 78 29 24 6e 61 6d perm:prefix)$nam
52b0: 65 22 0a 20 20 7d 0a 0a 20 20 69 6e 63 72 5f 6e e". }.. incr_n
52c0: 74 65 73 74 0a 20 20 6f 75 74 70 75 74 31 20 2d test. output1 -
52d0: 6e 6f 6e 65 77 6c 69 6e 65 20 24 6e 61 6d 65 2e nonewline $name.
52e0: 2e 2e 0a 20 20 66 6c 75 73 68 20 73 74 64 6f 75 ... flush stdou
52f0: 74 0a 0a 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 t.. if {![info
5300: 65 78 69 73 74 73 20 3a 3a 47 28 6d 61 74 63 68 exists ::G(match
5310: 29 5d 20 7c 7c 20 5b 73 74 72 69 6e 67 20 6d 61 )] || [string ma
5320: 74 63 68 20 24 3a 3a 47 28 6d 61 74 63 68 29 20 tch $::G(match)
5330: 24 6e 61 6d 65 5d 7d 20 7b 0a 20 20 20 20 69 66 $name]} {. if
5340: 20 7b 5b 63 61 74 63 68 20 7b 75 70 6c 65 76 65 {[catch {upleve
5350: 6c 20 23 30 20 22 24 63 6d 64 3b 5c 6e 22 7d 20 l #0 "$cmd;\n"}
5360: 72 65 73 75 6c 74 5d 7d 20 7b 0a 20 20 20 20 20 result]} {.
5370: 20 6f 75 74 70 75 74 32 5f 69 66 5f 6e 6f 5f 76 output2_if_no_v
5380: 65 72 62 6f 73 65 20 2d 6e 6f 6e 65 77 6c 69 6e erbose -nonewlin
5390: 65 20 24 6e 61 6d 65 2e 2e 2e 0a 20 20 20 20 20 e $name....
53a0: 20 6f 75 74 70 75 74 32 20 22 5c 6e 45 72 72 6f output2 "\nErro
53b0: 72 3a 20 24 72 65 73 75 6c 74 22 0a 20 20 20 20 r: $result".
53c0: 20 20 66 61 69 6c 5f 74 65 73 74 20 24 6e 61 6d fail_test $nam
53d0: 65 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 e. } else {.
53e0: 20 20 20 20 20 69 66 20 7b 5b 72 65 67 65 78 70 if {[regexp
53f0: 20 7b 5e 7e 3f 2f 2e 2a 2f 24 7d 20 24 65 78 70 {^~?/.*/$} $exp
5400: 65 63 74 65 64 5d 7d 20 7b 0a 20 20 20 20 20 20 ected]} {.
5410: 20 20 23 20 22 65 78 70 65 63 74 65 64 22 20 69 # "expected" i
5420: 73 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 22 2f s of the form "/
5430: 50 41 54 54 45 52 4e 2f 22 20 74 68 65 6e 20 74 PATTERN/" then t
5440: 68 65 20 72 65 73 75 6c 74 20 69 66 20 63 6f 72 he result if cor
5450: 72 65 63 74 20 69 66 0a 20 20 20 20 20 20 20 20 rect if.
5460: 23 20 72 65 67 75 6c 61 72 20 65 78 70 72 65 73 # regular expres
5470: 73 69 6f 6e 20 50 41 54 54 45 52 4e 20 6d 61 74 sion PATTERN mat
5480: 63 68 65 73 20 74 68 65 20 72 65 73 75 6c 74 2e ches the result.
5490: 20 20 22 7e 2f 50 41 54 54 45 52 4e 2f 22 20 6d "~/PATTERN/" m
54a0: 65 61 6e 73 0a 20 20 20 20 20 20 20 20 23 20 74 eans. # t
54b0: 68 65 20 72 65 67 75 6c 61 72 20 65 78 70 72 65 he regular expre
54c0: 73 73 69 6f 6e 20 6d 75 73 74 20 6e 6f 74 20 6d ssion must not m
54d0: 61 74 63 68 2e 0a 20 20 20 20 20 20 20 20 69 66 atch.. if
54e0: 20 7b 5b 73 74 72 69 6e 67 20 69 6e 64 65 78 20 {[string index
54f0: 24 65 78 70 65 63 74 65 64 20 30 5d 3d 3d 22 7e $expected 0]=="~
5500: 22 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 73 "} {. s
5510: 65 74 20 72 65 20 5b 73 74 72 69 6e 67 20 72 61 et re [string ra
5520: 6e 67 65 20 24 65 78 70 65 63 74 65 64 20 32 20 nge $expected 2
5530: 65 6e 64 2d 31 5d 0a 20 20 20 20 20 20 20 20 20 end-1].
5540: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 69 6e 64 if {[string ind
5550: 65 78 20 24 72 65 20 30 5d 3d 3d 22 2a 22 7d 20 ex $re 0]=="*"}
5560: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20 {. #
5570: 49 66 20 74 68 65 20 72 65 67 75 6c 61 72 20 65 If the regular e
5580: 78 70 72 65 73 73 69 6f 6e 20 62 65 67 69 6e 73 xpression begins
5590: 20 77 69 74 68 20 2a 20 74 68 65 6e 20 74 72 65 with * then tre
55a0: 61 74 20 69 74 20 61 73 20 61 20 67 6c 6f 62 20 at it as a glob
55b0: 69 6e 73 74 65 61 64 0a 20 20 20 20 20 20 20 20 instead.
55c0: 20 20 20 20 73 65 74 20 6f 6b 20 5b 73 74 72 69 set ok [stri
55d0: 6e 67 20 6d 61 74 63 68 20 24 72 65 20 24 72 65 ng match $re $re
55e0: 73 75 6c 74 5d 0a 20 20 20 20 20 20 20 20 20 20 sult].
55f0: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 } else {.
5600: 20 20 20 20 20 73 65 74 20 72 65 20 5b 73 74 72 set re [str
5610: 69 6e 67 20 6d 61 70 20 7b 23 20 7b 5b 2d 30 2d ing map {# {[-0-
5620: 39 2e 5d 2b 7d 7d 20 24 72 65 5d 0a 20 20 20 20 9.]+}} $re].
5630: 20 20 20 20 20 20 20 20 73 65 74 20 6f 6b 20 5b set ok [
5640: 72 65 67 65 78 70 20 24 72 65 20 24 72 65 73 75 regexp $re $resu
5650: 6c 74 5d 0a 20 20 20 20 20 20 20 20 20 20 7d 0a lt]. }.
5660: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 6f 6b set ok
5670: 20 5b 65 78 70 72 20 7b 21 24 6f 6b 7d 5d 0a 20 [expr {!$ok}].
5680: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a } else {.
5690: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 72 65 set re
56a0: 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 [string range $
56b0: 65 78 70 65 63 74 65 64 20 31 20 65 6e 64 2d 31 expected 1 end-1
56c0: 5d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b ]. if {
56d0: 5b 73 74 72 69 6e 67 20 69 6e 64 65 78 20 24 72 [string index $r
56e0: 65 20 30 5d 3d 3d 22 2a 22 7d 20 7b 0a 20 20 20 e 0]=="*"} {.
56f0: 20 20 20 20 20 20 20 20 20 23 20 49 66 20 74 68 # If th
5700: 65 20 72 65 67 75 6c 61 72 20 65 78 70 72 65 73 e regular expres
5710: 73 69 6f 6e 20 62 65 67 69 6e 73 20 77 69 74 68 sion begins with
5720: 20 2a 20 74 68 65 6e 20 74 72 65 61 74 20 69 74 * then treat it
5730: 20 61 73 20 61 20 67 6c 6f 62 20 69 6e 73 74 65 as a glob inste
5740: 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 ad. s
5750: 65 74 20 6f 6b 20 5b 73 74 72 69 6e 67 20 6d 61 et ok [string ma
5760: 74 63 68 20 24 72 65 20 24 72 65 73 75 6c 74 5d tch $re $result]
5770: 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 . } els
5780: 65 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 e {.
5790: 73 65 74 20 72 65 20 5b 73 74 72 69 6e 67 20 6d set re [string m
57a0: 61 70 20 7b 23 20 7b 5b 2d 30 2d 39 2e 5d 2b 7d ap {# {[-0-9.]+}
57b0: 7d 20 24 72 65 5d 0a 20 20 20 20 20 20 20 20 20 } $re].
57c0: 20 20 20 73 65 74 20 6f 6b 20 5b 72 65 67 65 78 set ok [regex
57d0: 70 20 24 72 65 20 24 72 65 73 75 6c 74 5d 0a 20 p $re $result].
57e0: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 }.
57f0: 20 20 20 7d 0a 20 20 20 20 20 20 7d 20 65 6c 73 }. } els
5800: 65 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 5e 7e eif {[regexp {^~
5810: 3f 5c 2a 2e 2a 5c 2a 24 7d 20 24 65 78 70 65 63 ?\*.*\*$} $expec
5820: 74 65 64 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 ted]} {.
5830: 23 20 22 65 78 70 65 63 74 65 64 22 20 69 73 20 # "expected" is
5840: 6f 66 20 74 68 65 20 66 6f 72 6d 20 22 2a 47 4c of the form "*GL
5850: 4f 42 2a 22 20 74 68 65 6e 20 74 68 65 20 72 65 OB*" then the re
5860: 73 75 6c 74 20 69 66 20 63 6f 72 72 65 63 74 20 sult if correct
5870: 69 66 0a 20 20 20 20 20 20 20 20 23 20 67 6c 6f if. # glo
5880: 62 20 70 61 74 74 65 72 6e 20 47 4c 4f 42 20 6d b pattern GLOB m
5890: 61 74 63 68 65 73 20 74 68 65 20 72 65 73 75 6c atches the resul
58a0: 74 2e 20 20 22 7e 2f 47 4c 4f 42 2f 22 20 6d 65 t. "~/GLOB/" me
58b0: 61 6e 73 0a 20 20 20 20 20 20 20 20 23 20 74 68 ans. # th
58c0: 65 20 67 6c 6f 62 20 6d 75 73 74 20 6e 6f 74 20 e glob must not
58d0: 6d 61 74 63 68 2e 0a 20 20 20 20 20 20 20 20 69 match.. i
58e0: 66 20 7b 5b 73 74 72 69 6e 67 20 69 6e 64 65 78 f {[string index
58f0: 20 24 65 78 70 65 63 74 65 64 20 30 5d 3d 3d 22 $expected 0]=="
5900: 7e 22 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 ~"} {.
5910: 73 65 74 20 65 20 5b 73 74 72 69 6e 67 20 72 61 set e [string ra
5920: 6e 67 65 20 24 65 78 70 65 63 74 65 64 20 31 20 nge $expected 1
5930: 65 6e 64 5d 0a 20 20 20 20 20 20 20 20 20 20 73 end]. s
5940: 65 74 20 6f 6b 20 5b 65 78 70 72 20 7b 21 5b 73 et ok [expr {![s
5950: 74 72 69 6e 67 20 6d 61 74 63 68 20 24 65 20 24 tring match $e $
5960: 72 65 73 75 6c 74 5d 7d 5d 0a 20 20 20 20 20 20 result]}].
5970: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 } else {.
5980: 20 20 20 20 20 73 65 74 20 6f 6b 20 5b 73 74 72 set ok [str
5990: 69 6e 67 20 6d 61 74 63 68 20 24 65 78 70 65 63 ing match $expec
59a0: 74 65 64 20 24 72 65 73 75 6c 74 5d 0a 20 20 20 ted $result].
59b0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 20 65 }. } e
59c0: 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 73 65 lse {. se
59d0: 74 20 6f 6b 20 5b 65 78 70 72 20 7b 5b 73 74 72 t ok [expr {[str
59e0: 69 6e 67 20 63 6f 6d 70 61 72 65 20 24 72 65 73 ing compare $res
59f0: 75 6c 74 20 24 65 78 70 65 63 74 65 64 5d 3d 3d ult $expected]==
5a00: 30 7d 5d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 0}]. }.
5a10: 20 20 69 66 20 7b 21 24 6f 6b 7d 20 7b 0a 20 20 if {!$ok} {.
5a20: 20 20 20 20 20 20 23 20 69 66 20 7b 21 5b 69 6e # if {![in
5a30: 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 65 73 74 fo exists ::test
5a40: 70 72 65 66 69 78 5d 20 7c 7c 20 24 3a 3a 74 65 prefix] || $::te
5a50: 73 74 70 72 65 66 69 78 20 65 71 20 22 22 7d 20 stprefix eq ""}
5a60: 7b 0a 20 20 20 20 20 20 20 20 23 20 20 20 65 72 {. # er
5a70: 72 6f 72 20 22 6e 6f 20 74 65 73 74 20 70 72 65 ror "no test pre
5a80: 66 69 78 22 0a 20 20 20 20 20 20 20 20 23 20 7d fix". # }
5a90: 0a 20 20 20 20 20 20 20 20 6f 75 74 70 75 74 31 . output1
5aa0: 20 22 22 0a 20 20 20 20 20 20 20 20 6f 75 74 70 "". outp
5ab0: 75 74 32 20 22 21 20 24 6e 61 6d 65 20 65 78 70 ut2 "! $name exp
5ac0: 65 63 74 65 64 3a 20 5c 5b 24 65 78 70 65 63 74 ected: \[$expect
5ad0: 65 64 5c 5d 5c 6e 21 20 24 6e 61 6d 65 20 67 6f ed\]\n! $name go
5ae0: 74 3a 20 20 20 20 20 20 5c 5b 24 72 65 73 75 6c t: \[$resul
5af0: 74 5c 5d 22 0a 20 20 20 20 20 20 20 20 66 61 69 t\]". fai
5b00: 6c 5f 74 65 73 74 20 24 6e 61 6d 65 0a 20 20 20 l_test $name.
5b10: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 } else {.
5b20: 20 20 20 20 6f 75 74 70 75 74 31 20 22 20 4f 6b output1 " Ok
5b30: 22 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a ". }. }.
5b40: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 6f } else {. o
5b50: 75 74 70 75 74 31 20 22 20 4f 6d 69 74 74 65 64 utput1 " Omitted
5b60: 22 0a 20 20 20 20 6f 6d 69 74 5f 74 65 73 74 20 ". omit_test
5b70: 24 6e 61 6d 65 20 22 70 61 74 74 65 72 6e 20 6d $name "pattern m
5b80: 69 73 6d 61 74 63 68 22 20 30 0a 20 20 7d 0a 20 ismatch" 0. }.
5b90: 20 66 6c 75 73 68 20 73 74 64 6f 75 74 0a 7d 0a flush stdout.}.
5ba0: 0a 70 72 6f 63 20 64 75 6d 70 62 79 74 65 73 20 .proc dumpbytes
5bb0: 7b 73 7d 20 7b 0a 20 20 73 65 74 20 72 20 22 22 {s} {. set r ""
5bc0: 0a 20 20 66 6f 72 20 7b 73 65 74 20 69 20 30 7d . for {set i 0}
5bd0: 20 7b 24 69 20 3c 20 5b 73 74 72 69 6e 67 20 6c {$i < [string l
5be0: 65 6e 67 74 68 20 24 73 5d 7d 20 7b 69 6e 63 72 ength $s]} {incr
5bf0: 20 69 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 69 i} {. if {$i
5c00: 20 3e 20 30 7d 20 7b 61 70 70 65 6e 64 20 72 20 > 0} {append r
5c10: 22 20 22 7d 0a 20 20 20 20 61 70 70 65 6e 64 20 " "}. append
5c20: 72 20 5b 66 6f 72 6d 61 74 20 25 30 32 58 20 5b r [format %02X [
5c30: 73 63 61 6e 20 5b 73 74 72 69 6e 67 20 69 6e 64 scan [string ind
5c40: 65 78 20 24 73 20 24 69 5d 20 25 63 5d 5d 0a 20 ex $s $i] %c]].
5c50: 20 7d 0a 20 20 72 65 74 75 72 6e 20 24 72 0a 7d }. return $r.}
5c60: 0a 0a 70 72 6f 63 20 63 61 74 63 68 63 6d 64 20 ..proc catchcmd
5c70: 7b 64 62 20 7b 63 6d 64 20 22 22 7d 7d 20 7b 0a {db {cmd ""}} {.
5c80: 20 20 67 6c 6f 62 61 6c 20 43 4c 49 0a 20 20 73 global CLI. s
5c90: 65 74 20 6f 75 74 20 5b 6f 70 65 6e 20 63 6d 64 et out [open cmd
5ca0: 73 2e 74 78 74 20 77 5d 0a 20 20 70 75 74 73 20 s.txt w]. puts
5cb0: 24 6f 75 74 20 24 63 6d 64 0a 20 20 63 6c 6f 73 $out $cmd. clos
5cc0: 65 20 24 6f 75 74 0a 20 20 73 65 74 20 6c 69 6e e $out. set lin
5cd0: 65 20 22 65 78 65 63 20 24 43 4c 49 20 24 64 62 e "exec $CLI $db
5ce0: 20 3c 20 63 6d 64 73 2e 74 78 74 22 0a 20 20 73 < cmds.txt". s
5cf0: 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b 20 65 et rc [catch { e
5d00: 76 61 6c 20 24 6c 69 6e 65 20 7d 20 6d 73 67 5d val $line } msg]
5d10: 0a 20 20 6c 69 73 74 20 24 72 63 20 24 6d 73 67 . list $rc $msg
5d20: 0a 7d 0a 0a 70 72 6f 63 20 63 61 74 63 68 63 6d .}..proc catchcm
5d30: 64 65 78 20 7b 64 62 20 7b 63 6d 64 20 22 22 7d dex {db {cmd ""}
5d40: 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 43 4c 49 } {. global CLI
5d50: 0a 20 20 73 65 74 20 6f 75 74 20 5b 6f 70 65 6e . set out [open
5d60: 20 63 6d 64 73 2e 74 78 74 20 77 5d 0a 20 20 66 cmds.txt w]. f
5d70: 63 6f 6e 66 69 67 75 72 65 20 24 6f 75 74 20 2d configure $out -
5d80: 65 6e 63 6f 64 69 6e 67 20 62 69 6e 61 72 79 20 encoding binary
5d90: 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e -translation bin
5da0: 61 72 79 0a 20 20 70 75 74 73 20 2d 6e 6f 6e 65 ary. puts -none
5db0: 77 6c 69 6e 65 20 24 6f 75 74 20 24 63 6d 64 0a wline $out $cmd.
5dc0: 20 20 63 6c 6f 73 65 20 24 6f 75 74 0a 20 20 73 close $out. s
5dd0: 65 74 20 6c 69 6e 65 20 22 65 78 65 63 20 2d 6b et line "exec -k
5de0: 65 65 70 6e 65 77 6c 69 6e 65 20 2d 2d 20 24 43 eepnewline -- $C
5df0: 4c 49 20 24 64 62 20 3c 20 63 6d 64 73 2e 74 78 LI $db < cmds.tx
5e00: 74 22 0a 20 20 73 65 74 20 63 68 61 6e 73 20 5b t". set chans [
5e10: 6c 69 73 74 20 73 74 64 69 6e 20 73 74 64 6f 75 list stdin stdou
5e20: 74 20 73 74 64 65 72 72 5d 0a 20 20 66 6f 72 65 t stderr]. fore
5e30: 61 63 68 20 63 68 61 6e 20 24 63 68 61 6e 73 20 ach chan $chans
5e40: 7b 0a 20 20 20 20 63 61 74 63 68 20 7b 0a 20 20 {. catch {.
5e50: 20 20 20 20 73 65 74 20 6d 6f 64 65 73 28 24 63 set modes($c
5e60: 68 61 6e 29 20 5b 66 63 6f 6e 66 69 67 75 72 65 han) [fconfigure
5e70: 20 24 63 68 61 6e 5d 0a 20 20 20 20 20 20 66 63 $chan]. fc
5e80: 6f 6e 66 69 67 75 72 65 20 24 63 68 61 6e 20 2d onfigure $chan -
5e90: 65 6e 63 6f 64 69 6e 67 20 62 69 6e 61 72 79 20 encoding binary
5ea0: 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e -translation bin
5eb0: 61 72 79 20 2d 62 75 66 66 65 72 69 6e 67 20 6e ary -buffering n
5ec0: 6f 6e 65 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 one. }. }.
5ed0: 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b 20 set rc [catch {
5ee0: 65 76 61 6c 20 24 6c 69 6e 65 20 7d 20 6d 73 67 eval $line } msg
5ef0: 5d 0a 20 20 66 6f 72 65 61 63 68 20 63 68 61 6e ]. foreach chan
5f00: 20 24 63 68 61 6e 73 20 7b 0a 20 20 20 20 63 61 $chans {. ca
5f10: 74 63 68 20 7b 0a 20 20 20 20 20 20 65 76 61 6c tch {. eval
5f20: 20 66 63 6f 6e 66 69 67 75 72 65 20 5b 6c 69 73 fconfigure [lis
5f30: 74 20 24 63 68 61 6e 5d 20 24 6d 6f 64 65 73 28 t $chan] $modes(
5f40: 24 63 68 61 6e 29 0a 20 20 20 20 7d 0a 20 20 7d $chan). }. }
5f50: 0a 20 20 23 20 70 75 74 73 20 5b 64 75 6d 70 62 . # puts [dumpb
5f60: 79 74 65 73 20 24 6d 73 67 5d 0a 20 20 6c 69 73 ytes $msg]. lis
5f70: 74 20 24 72 63 20 24 6d 73 67 0a 7d 0a 0a 70 72 t $rc $msg.}..pr
5f80: 6f 63 20 66 69 6c 65 70 61 74 68 5f 6e 6f 72 6d oc filepath_norm
5f90: 61 6c 69 7a 65 20 7b 70 7d 20 7b 0a 20 20 23 20 alize {p} {. #
5fa0: 74 65 73 74 20 63 61 73 65 73 20 73 68 6f 75 6c test cases shoul
5fb0: 64 20 62 65 20 77 72 69 74 74 65 6e 20 74 6f 20 d be written to
5fc0: 61 73 73 75 6d 65 20 22 75 6e 69 78 22 2d 6c 69 assume "unix"-li
5fd0: 6b 65 20 66 69 6c 65 20 70 61 74 68 73 0a 20 20 ke file paths.
5fe0: 69 66 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 if {$::tcl_platf
5ff0: 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 21 3d 22 orm(platform)!="
6000: 75 6e 69 78 22 7d 20 7b 0a 20 20 20 20 23 20 6c unix"} {. # l
6010: 72 65 76 65 72 73 65 2a 32 20 61 73 20 61 20 68 reverse*2 as a h
6020: 61 63 6b 20 74 6f 20 72 65 6d 6f 76 65 20 61 6e ack to remove an
6030: 79 20 75 6e 6e 65 65 64 65 64 20 7b 7d 20 61 66 y unneeded {} af
6040: 74 65 72 20 74 68 65 20 73 74 72 69 6e 67 20 6d ter the string m
6050: 61 70 0a 20 20 20 20 6c 72 65 76 65 72 73 65 20 ap. lreverse
6060: 5b 6c 72 65 76 65 72 73 65 20 5b 73 74 72 69 6e [lreverse [strin
6070: 67 20 6d 61 70 20 7b 5c 5c 20 2f 7d 20 5b 72 65 g map {\\ /} [re
6080: 67 73 75 62 20 2d 6e 6f 63 61 73 65 20 2d 61 6c gsub -nocase -al
6090: 6c 20 7b 5b 61 2d 7a 5d 3a 5b 2f 5c 5c 5d 2b 7d l {[a-z]:[/\\]+}
60a0: 20 24 70 20 7b 2f 7d 5d 5d 5d 0a 20 20 7d 20 7b $p {/}]]]. } {
60b0: 0a 20 20 20 20 73 65 74 20 70 0a 20 20 7d 0a 7d . set p. }.}
60c0: 0a 70 72 6f 63 20 64 6f 5f 66 69 6c 65 70 61 74 .proc do_filepat
60d0: 68 5f 74 65 73 74 20 7b 6e 61 6d 65 20 63 6d 64 h_test {name cmd
60e0: 20 65 78 70 65 63 74 65 64 7d 20 7b 0a 20 20 75 expected} {. u
60f0: 70 6c 65 76 65 6c 20 5b 6c 69 73 74 20 64 6f 5f plevel [list do_
6100: 74 65 73 74 20 24 6e 61 6d 65 20 5b 0a 20 20 20 test $name [.
6110: 20 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e subst -nocomman
6120: 64 73 20 7b 20 66 69 6c 65 70 61 74 68 5f 6e 6f ds { filepath_no
6130: 72 6d 61 6c 69 7a 65 20 5b 20 24 63 6d 64 20 5d rmalize [ $cmd ]
6140: 20 7d 0a 20 20 5d 20 5b 66 69 6c 65 70 61 74 68 }. ] [filepath
6150: 5f 6e 6f 72 6d 61 6c 69 7a 65 20 24 65 78 70 65 _normalize $expe
6160: 63 74 65 64 5d 5d 0a 7d 0a 0a 70 72 6f 63 20 72 cted]].}..proc r
6170: 65 61 6c 6e 75 6d 5f 6e 6f 72 6d 61 6c 69 7a 65 ealnum_normalize
6180: 20 7b 72 7d 20 7b 0a 20 20 23 20 64 69 66 66 65 {r} {. # diffe
6190: 72 65 6e 74 20 54 43 4c 20 76 65 72 73 69 6f 6e rent TCL version
61a0: 73 20 64 69 73 70 6c 61 79 20 66 6c 6f 61 74 69 s display floati
61b0: 6e 67 20 70 6f 69 6e 74 20 76 61 6c 75 65 73 20 ng point values
61c0: 64 69 66 66 65 72 65 6e 74 6c 79 2e 0a 20 20 73 differently.. s
61d0: 74 72 69 6e 67 20 6d 61 70 20 7b 31 2e 23 49 4e tring map {1.#IN
61e0: 46 20 69 6e 66 20 49 6e 66 20 69 6e 66 20 2e 30 F inf Inf inf .0
61f0: 65 20 65 7d 20 5b 72 65 67 73 75 62 20 2d 61 6c e e} [regsub -al
6200: 6c 20 7b 28 65 5b 2b 2d 5d 29 30 2b 7d 20 24 72 l {(e[+-])0+} $r
6210: 20 7b 5c 31 7d 5d 0a 7d 0a 70 72 6f 63 20 64 6f {\1}].}.proc do
6220: 5f 72 65 61 6c 6e 75 6d 5f 74 65 73 74 20 7b 6e _realnum_test {n
6230: 61 6d 65 20 63 6d 64 20 65 78 70 65 63 74 65 64 ame cmd expected
6240: 7d 20 7b 0a 20 20 75 70 6c 65 76 65 6c 20 5b 6c } {. uplevel [l
6250: 69 73 74 20 64 6f 5f 74 65 73 74 20 24 6e 61 6d ist do_test $nam
6260: 65 20 5b 0a 20 20 20 20 73 75 62 73 74 20 2d 6e e [. subst -n
6270: 6f 63 6f 6d 6d 61 6e 64 73 20 7b 20 72 65 61 6c ocommands { real
6280: 6e 75 6d 5f 6e 6f 72 6d 61 6c 69 7a 65 20 5b 20 num_normalize [
6290: 24 63 6d 64 20 5d 20 7d 0a 20 20 5d 20 5b 72 65 $cmd ] }. ] [re
62a0: 61 6c 6e 75 6d 5f 6e 6f 72 6d 61 6c 69 7a 65 20 alnum_normalize
62b0: 24 65 78 70 65 63 74 65 64 5d 5d 0a 7d 0a 0a 70 $expected]].}..p
62c0: 72 6f 63 20 66 69 78 5f 74 65 73 74 6e 61 6d 65 roc fix_testname
62d0: 20 7b 76 61 72 6e 61 6d 65 7d 20 7b 0a 20 20 75 {varname} {. u
62e0: 70 76 61 72 20 24 76 61 72 6e 61 6d 65 20 74 65 pvar $varname te
62f0: 73 74 6e 61 6d 65 0a 20 20 69 66 20 7b 5b 69 6e stname. if {[in
6300: 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 65 73 74 fo exists ::test
6310: 70 72 65 66 69 78 5d 0a 20 20 20 26 26 20 5b 73 prefix]. && [s
6320: 74 72 69 6e 67 20 69 73 20 64 69 67 69 74 20 5b tring is digit [
6330: 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 74 65 string range $te
6340: 73 74 6e 61 6d 65 20 30 20 30 5d 5d 0a 20 20 7d stname 0 0]]. }
6350: 20 7b 0a 20 20 20 20 73 65 74 20 74 65 73 74 6e {. set testn
6360: 61 6d 65 20 22 24 7b 3a 3a 74 65 73 74 70 72 65 ame "${::testpre
6370: 66 69 78 7d 2d 24 74 65 73 74 6e 61 6d 65 22 0a fix}-$testname".
6380: 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20 64 6f 5f 65 }.}..proc do_e
6390: 78 65 63 73 71 6c 5f 74 65 73 74 20 7b 74 65 73 xecsql_test {tes
63a0: 74 6e 61 6d 65 20 73 71 6c 20 7b 72 65 73 75 6c tname sql {resul
63b0: 74 20 7b 7d 7d 7d 20 7b 0a 20 20 66 69 78 5f 74 t {}}} {. fix_t
63c0: 65 73 74 6e 61 6d 65 20 74 65 73 74 6e 61 6d 65 estname testname
63d0: 0a 20 20 75 70 6c 65 76 65 6c 20 64 6f 5f 74 65 . uplevel do_te
63e0: 73 74 20 5b 6c 69 73 74 20 24 74 65 73 74 6e 61 st [list $testna
63f0: 6d 65 5d 20 5b 6c 69 73 74 20 22 65 78 65 63 73 me] [list "execs
6400: 71 6c 20 7b 24 73 71 6c 7d 22 5d 20 5b 6c 69 73 ql {$sql}"] [lis
6410: 74 20 5b 6c 69 73 74 20 7b 2a 7d 24 72 65 73 75 t [list {*}$resu
6420: 6c 74 5d 5d 0a 7d 0a 70 72 6f 63 20 64 6f 5f 63 lt]].}.proc do_c
6430: 61 74 63 68 73 71 6c 5f 74 65 73 74 20 7b 74 65 atchsql_test {te
6440: 73 74 6e 61 6d 65 20 73 71 6c 20 72 65 73 75 6c stname sql resul
6450: 74 7d 20 7b 0a 20 20 66 69 78 5f 74 65 73 74 6e t} {. fix_testn
6460: 61 6d 65 20 74 65 73 74 6e 61 6d 65 0a 20 20 75 ame testname. u
6470: 70 6c 65 76 65 6c 20 64 6f 5f 74 65 73 74 20 5b plevel do_test [
6480: 6c 69 73 74 20 24 74 65 73 74 6e 61 6d 65 5d 20 list $testname]
6490: 5b 6c 69 73 74 20 22 63 61 74 63 68 73 71 6c 20 [list "catchsql
64a0: 7b 24 73 71 6c 7d 22 5d 20 5b 6c 69 73 74 20 24 {$sql}"] [list $
64b0: 72 65 73 75 6c 74 5d 0a 7d 0a 70 72 6f 63 20 64 result].}.proc d
64c0: 6f 5f 74 69 6d 65 64 5f 65 78 65 63 73 71 6c 5f o_timed_execsql_
64d0: 74 65 73 74 20 7b 74 65 73 74 6e 61 6d 65 20 73 test {testname s
64e0: 71 6c 20 7b 72 65 73 75 6c 74 20 7b 7d 7d 7d 20 ql {result {}}}
64f0: 7b 0a 20 20 66 69 78 5f 74 65 73 74 6e 61 6d 65 {. fix_testname
6500: 20 74 65 73 74 6e 61 6d 65 0a 20 20 75 70 6c 65 testname. uple
6510: 76 65 6c 20 64 6f 5f 74 65 73 74 20 5b 6c 69 73 vel do_test [lis
6520: 74 20 24 74 65 73 74 6e 61 6d 65 5d 20 5b 6c 69 t $testname] [li
6530: 73 74 20 22 65 78 65 63 73 71 6c 5f 74 69 6d 65 st "execsql_time
6540: 64 20 7b 24 73 71 6c 7d 22 5d 5c 0a 20 20 20 20 d {$sql}"]\.
6550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b [
6570: 6c 69 73 74 20 5b 6c 69 73 74 20 7b 2a 7d 24 72 list [list {*}$r
6580: 65 73 75 6c 74 5d 5d 0a 7d 0a 70 72 6f 63 20 64 esult]].}.proc d
6590: 6f 5f 65 71 70 5f 74 65 73 74 20 7b 6e 61 6d 65 o_eqp_test {name
65a0: 20 73 71 6c 20 72 65 73 7d 20 7b 0a 20 20 75 70 sql res} {. up
65b0: 6c 65 76 65 6c 20 64 6f 5f 65 78 65 63 73 71 6c level do_execsql
65c0: 5f 74 65 73 74 20 24 6e 61 6d 65 20 5b 6c 69 73 _test $name [lis
65d0: 74 20 22 45 58 50 4c 41 49 4e 20 51 55 45 52 59 t "EXPLAIN QUERY
65e0: 20 50 4c 41 4e 20 24 73 71 6c 22 5d 20 5b 6c 69 PLAN $sql"] [li
65f0: 73 74 20 24 72 65 73 5d 0a 7d 0a 0a 23 2d 2d 2d st $res].}..#---
6600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6640: 2d 2d 2d 2d 2d 2d 0a 23 20 20 20 55 73 61 67 65 ------.# Usage
6650: 3a 20 64 6f 5f 73 65 6c 65 63 74 5f 74 65 73 74 : do_select_test
6660: 73 20 50 52 45 46 49 58 20 3f 53 57 49 54 43 48 s PREFIX ?SWITCH
6670: 45 53 3f 20 54 45 53 54 4c 49 53 54 0a 23 0a 23 ES? TESTLIST.#.#
6680: 20 57 68 65 72 65 20 73 77 69 74 63 68 65 73 20 Where switches
6690: 61 72 65 3a 0a 23 0a 23 20 20 20 2d 65 72 72 6f are:.#.# -erro
66a0: 72 66 6f 72 6d 61 74 20 46 4d 54 53 54 52 49 4e rformat FMTSTRIN
66b0: 47 0a 23 20 20 20 2d 63 6f 75 6e 74 0a 23 20 20 G.# -count.#
66c0: 20 2d 71 75 65 72 79 20 53 51 4c 0a 23 20 20 20 -query SQL.#
66d0: 2d 74 63 6c 71 75 65 72 79 20 54 43 4c 0a 23 20 -tclquery TCL.#
66e0: 20 20 2d 72 65 70 61 69 72 20 54 43 4c 0a 23 0a -repair TCL.#.
66f0: 70 72 6f 63 20 64 6f 5f 73 65 6c 65 63 74 5f 74 proc do_select_t
6700: 65 73 74 73 20 7b 70 72 65 66 69 78 20 61 72 67 ests {prefix arg
6710: 73 7d 20 7b 0a 0a 20 20 73 65 74 20 74 65 73 74 s} {.. set test
6720: 6c 69 73 74 20 5b 6c 69 6e 64 65 78 20 24 61 72 list [lindex $ar
6730: 67 73 20 65 6e 64 5d 0a 20 20 73 65 74 20 73 77 gs end]. set sw
6740: 69 74 63 68 65 73 20 5b 6c 72 61 6e 67 65 20 24 itches [lrange $
6750: 61 72 67 73 20 30 20 65 6e 64 2d 31 5d 0a 0a 20 args 0 end-1]..
6760: 20 73 65 74 20 65 72 72 66 6d 74 20 22 22 0a 20 set errfmt "".
6770: 20 73 65 74 20 63 6f 75 6e 74 6f 6e 6c 79 20 30 set countonly 0
6780: 0a 20 20 73 65 74 20 74 63 6c 71 75 65 72 79 20 . set tclquery
6790: 22 22 0a 20 20 73 65 74 20 72 65 70 61 69 72 20 "". set repair
67a0: 22 22 0a 0a 20 20 66 6f 72 20 7b 73 65 74 20 69 "".. for {set i
67b0: 20 30 7d 20 7b 24 69 20 3c 20 5b 6c 6c 65 6e 67 0} {$i < [lleng
67c0: 74 68 20 24 73 77 69 74 63 68 65 73 5d 7d 20 7b th $switches]} {
67d0: 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20 73 65 incr i} {. se
67e0: 74 20 73 20 5b 6c 69 6e 64 65 78 20 24 73 77 69 t s [lindex $swi
67f0: 74 63 68 65 73 20 24 69 5d 0a 20 20 20 20 73 65 tches $i]. se
6800: 74 20 6e 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 t n [string leng
6810: 74 68 20 24 73 5d 0a 20 20 20 20 69 66 20 7b 24 th $s]. if {$
6820: 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e 67 20 n>=2 && [string
6830: 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24 6e equal -length $n
6840: 20 24 73 20 22 2d 71 75 65 72 79 22 5d 7d 20 7b $s "-query"]} {
6850: 0a 20 20 20 20 20 20 73 65 74 20 74 63 6c 71 75 . set tclqu
6860: 65 72 79 20 5b 6c 69 73 74 20 65 78 65 63 73 71 ery [list execsq
6870: 6c 20 5b 6c 69 6e 64 65 78 20 24 73 77 69 74 63 l [lindex $switc
6880: 68 65 73 20 5b 69 6e 63 72 20 69 5d 5d 5d 0a 20 hes [incr i]]].
6890: 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 6e 3e } elseif {$n>
68a0: 3d 32 20 26 26 20 5b 73 74 72 69 6e 67 20 65 71 =2 && [string eq
68b0: 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24 6e 20 24 ual -length $n $
68c0: 73 20 22 2d 74 63 6c 71 75 65 72 79 22 5d 7d 20 s "-tclquery"]}
68d0: 7b 0a 20 20 20 20 20 20 73 65 74 20 74 63 6c 71 {. set tclq
68e0: 75 65 72 79 20 5b 6c 69 6e 64 65 78 20 24 73 77 uery [lindex $sw
68f0: 69 74 63 68 65 73 20 5b 69 6e 63 72 20 69 5d 5d itches [incr i]]
6900: 0a 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 . } elseif {$
6910: 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e 67 20 n>=2 && [string
6920: 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24 6e equal -length $n
6930: 20 24 73 20 22 2d 65 72 72 6f 72 66 6f 72 6d 61 $s "-errorforma
6940: 74 22 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 t"]} {. set
6950: 20 65 72 72 66 6d 74 20 5b 6c 69 6e 64 65 78 20 errfmt [lindex
6960: 24 73 77 69 74 63 68 65 73 20 5b 69 6e 63 72 20 $switches [incr
6970: 69 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66 i]]. } elseif
6980: 20 7b 24 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69 {$n>=2 && [stri
6990: 6e 67 20 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68 ng equal -length
69a0: 20 24 6e 20 24 73 20 22 2d 72 65 70 61 69 72 22 $n $s "-repair"
69b0: 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 72 ]} {. set r
69c0: 65 70 61 69 72 20 5b 6c 69 6e 64 65 78 20 24 73 epair [lindex $s
69d0: 77 69 74 63 68 65 73 20 5b 69 6e 63 72 20 69 5d witches [incr i]
69e0: 5d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b ]. } elseif {
69f0: 24 6e 3e 3d 32 20 26 26 20 5b 73 74 72 69 6e 67 $n>=2 && [string
6a00: 20 65 71 75 61 6c 20 2d 6c 65 6e 67 74 68 20 24 equal -length $
6a10: 6e 20 24 73 20 22 2d 63 6f 75 6e 74 22 5d 7d 20 n $s "-count"]}
6a20: 7b 0a 20 20 20 20 20 20 73 65 74 20 63 6f 75 6e {. set coun
6a30: 74 6f 6e 6c 79 20 31 0a 20 20 20 20 7d 20 65 6c tonly 1. } el
6a40: 73 65 20 7b 0a 20 20 20 20 20 20 65 72 72 6f 72 se {. error
6a50: 20 22 75 6e 6b 6e 6f 77 6e 20 73 77 69 74 63 68 "unknown switch
6a60: 3a 20 24 73 22 0a 20 20 20 20 7d 0a 20 20 7d 0a : $s". }. }.
6a70: 0a 20 20 69 66 20 7b 24 63 6f 75 6e 74 6f 6e 6c . if {$countonl
6a80: 79 20 26 26 20 24 65 72 72 66 6d 74 21 3d 22 22 y && $errfmt!=""
6a90: 7d 20 7b 0a 20 20 20 20 65 72 72 6f 72 20 22 43 } {. error "C
6aa0: 61 6e 6e 6f 74 20 75 73 65 20 2d 63 6f 75 6e 74 annot use -count
6ab0: 20 61 6e 64 20 2d 65 72 72 6f 72 66 6f 72 6d 61 and -errorforma
6ac0: 74 20 74 6f 67 65 74 68 65 72 22 0a 20 20 7d 0a t together". }.
6ad0: 20 20 73 65 74 20 6e 54 65 73 74 6c 69 73 74 20 set nTestlist
6ae0: 5b 6c 6c 65 6e 67 74 68 20 24 74 65 73 74 6c 69 [llength $testli
6af0: 73 74 5d 0a 20 20 69 66 20 7b 24 6e 54 65 73 74 st]. if {$nTest
6b00: 6c 69 73 74 25 33 20 7c 7c 20 24 6e 54 65 73 74 list%3 || $nTest
6b10: 6c 69 73 74 3d 3d 30 20 7d 20 7b 0a 20 20 20 20 list==0 } {.
6b20: 65 72 72 6f 72 20 22 53 45 4c 45 43 54 20 74 65 error "SELECT te
6b30: 73 74 20 6c 69 73 74 20 63 6f 6e 74 61 69 6e 73 st list contains
6b40: 20 5b 6c 6c 65 6e 67 74 68 20 24 74 65 73 74 6c [llength $testl
6b50: 69 73 74 5d 20 65 6c 65 6d 65 6e 74 73 22 0a 20 ist] elements".
6b60: 20 7d 0a 0a 20 20 65 76 61 6c 20 24 72 65 70 61 }.. eval $repa
6b70: 69 72 0a 20 20 66 6f 72 65 61 63 68 20 7b 74 6e ir. foreach {tn
6b80: 20 73 71 6c 20 72 65 73 7d 20 24 74 65 73 74 6c sql res} $testl
6b90: 69 73 74 20 7b 0a 20 20 20 20 69 66 20 7b 24 74 ist {. if {$t
6ba0: 63 6c 71 75 65 72 79 20 21 3d 20 22 22 7d 20 7b clquery != ""} {
6bb0: 0a 20 20 20 20 20 20 65 78 65 63 73 71 6c 20 24 . execsql $
6bc0: 73 71 6c 0a 20 20 20 20 20 20 75 70 6c 65 76 65 sql. upleve
6bd0: 6c 20 64 6f 5f 74 65 73 74 20 24 7b 70 72 65 66 l do_test ${pref
6be0: 69 78 7d 2e 24 74 6e 20 5b 6c 69 73 74 20 24 74 ix}.$tn [list $t
6bf0: 63 6c 71 75 65 72 79 5d 20 5b 6c 69 73 74 20 5b clquery] [list [
6c00: 6c 69 73 74 20 7b 2a 7d 24 72 65 73 5d 5d 0a 20 list {*}$res]].
6c10: 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 63 6f } elseif {$co
6c20: 75 6e 74 6f 6e 6c 79 7d 20 7b 0a 20 20 20 20 20 untonly} {.
6c30: 20 73 65 74 20 6e 52 6f 77 20 30 0a 20 20 20 20 set nRow 0.
6c40: 20 20 64 62 20 65 76 61 6c 20 24 73 71 6c 20 7b db eval $sql {
6c50: 69 6e 63 72 20 6e 52 6f 77 7d 0a 20 20 20 20 20 incr nRow}.
6c60: 20 75 70 6c 65 76 65 6c 20 64 6f 5f 74 65 73 74 uplevel do_test
6c70: 20 24 7b 70 72 65 66 69 78 7d 2e 24 74 6e 20 5b ${prefix}.$tn [
6c80: 6c 69 73 74 20 5b 6c 69 73 74 20 73 65 74 20 7b list [list set {
6c90: 7d 20 24 6e 52 6f 77 5d 5d 20 5b 6c 69 73 74 20 } $nRow]] [list
6ca0: 24 72 65 73 5d 0a 20 20 20 20 7d 20 65 6c 73 65 $res]. } else
6cb0: 69 66 20 7b 24 65 72 72 66 6d 74 3d 3d 22 22 7d if {$errfmt==""}
6cc0: 20 7b 0a 20 20 20 20 20 20 75 70 6c 65 76 65 6c {. uplevel
6cd0: 20 64 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74 do_execsql_test
6ce0: 20 24 7b 70 72 65 66 69 78 7d 2e 24 7b 74 6e 7d ${prefix}.${tn}
6cf0: 20 5b 6c 69 73 74 20 24 73 71 6c 5d 20 5b 6c 69 [list $sql] [li
6d00: 73 74 20 5b 6c 69 73 74 20 7b 2a 7d 24 72 65 73 st [list {*}$res
6d10: 5d 5d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ]]. } else {.
6d20: 20 20 20 20 20 20 73 65 74 20 72 65 73 20 5b 6c set res [l
6d30: 69 73 74 20 31 20 5b 73 74 72 69 6e 67 20 74 72 ist 1 [string tr
6d40: 69 6d 20 5b 66 6f 72 6d 61 74 20 24 65 72 72 66 im [format $errf
6d50: 6d 74 20 7b 2a 7d 24 72 65 73 5d 5d 5d 0a 20 20 mt {*}$res]]].
6d60: 20 20 20 20 75 70 6c 65 76 65 6c 20 64 6f 5f 63 uplevel do_c
6d70: 61 74 63 68 73 71 6c 5f 74 65 73 74 20 24 7b 70 atchsql_test ${p
6d80: 72 65 66 69 78 7d 2e 24 7b 74 6e 7d 20 5b 6c 69 refix}.${tn} [li
6d90: 73 74 20 24 73 71 6c 5d 20 5b 6c 69 73 74 20 24 st $sql] [list $
6da0: 72 65 73 5d 0a 20 20 20 20 7d 0a 20 20 20 20 65 res]. }. e
6db0: 76 61 6c 20 24 72 65 70 61 69 72 0a 20 20 7d 0a val $repair. }.
6dc0: 0a 7d 0a 0a 70 72 6f 63 20 64 65 6c 65 74 65 5f .}..proc delete_
6dd0: 61 6c 6c 5f 64 61 74 61 20 7b 7d 20 7b 0a 20 20 all_data {} {.
6de0: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 db eval {SELECT
6df0: 74 62 6c 5f 6e 61 6d 65 20 41 53 20 74 20 46 52 tbl_name AS t FR
6e00: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 OM sqlite_master
6e10: 20 57 48 45 52 45 20 74 79 70 65 20 3d 20 27 74 WHERE type = 't
6e20: 61 62 6c 65 27 7d 20 7b 0a 20 20 20 20 64 62 20 able'} {. db
6e30: 65 76 61 6c 20 22 44 45 4c 45 54 45 20 46 52 4f eval "DELETE FRO
6e40: 4d 20 27 5b 73 74 72 69 6e 67 20 6d 61 70 20 7b M '[string map {
6e50: 27 20 27 27 7d 20 24 74 5d 27 22 0a 20 20 7d 0a ' ''} $t]'". }.
6e60: 7d 0a 0a 23 20 52 75 6e 20 61 6e 20 53 51 4c 20 }..# Run an SQL
6e70: 73 63 72 69 70 74 2e 0a 23 20 52 65 74 75 72 6e script..# Return
6e80: 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 6d the number of m
6e90: 69 63 72 6f 73 65 63 6f 6e 64 73 20 70 65 72 20 icroseconds per
6ea0: 73 74 61 74 65 6d 65 6e 74 2e 0a 23 0a 70 72 6f statement..#.pro
6eb0: 63 20 73 70 65 65 64 5f 74 72 69 61 6c 20 7b 6e c speed_trial {n
6ec0: 61 6d 65 20 6e 75 6d 73 74 6d 74 20 75 6e 69 74 ame numstmt unit
6ed0: 73 20 73 71 6c 7d 20 7b 0a 20 20 6f 75 74 70 75 s sql} {. outpu
6ee0: 74 32 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 5b 66 t2 -nonewline [f
6ef0: 6f 72 6d 61 74 20 7b 25 2d 32 31 2e 32 31 73 20 ormat {%-21.21s
6f00: 7d 20 24 6e 61 6d 65 2e 2e 2e 5d 0a 20 20 66 6c } $name...]. fl
6f10: 75 73 68 20 73 74 64 6f 75 74 0a 20 20 73 65 74 ush stdout. set
6f20: 20 73 70 65 65 64 20 5b 74 69 6d 65 20 7b 73 71 speed [time {sq
6f30: 6c 69 74 65 33 5f 65 78 65 63 5f 6e 72 20 64 62 lite3_exec_nr db
6f40: 20 24 73 71 6c 7d 5d 0a 20 20 73 65 74 20 74 6d $sql}]. set tm
6f50: 20 5b 6c 69 6e 64 65 78 20 24 73 70 65 65 64 20 [lindex $speed
6f60: 30 5d 0a 20 20 69 66 20 7b 24 74 6d 20 3d 3d 20 0]. if {$tm ==
6f70: 30 7d 20 7b 0a 20 20 20 20 73 65 74 20 72 61 74 0} {. set rat
6f80: 65 20 5b 66 6f 72 6d 61 74 20 25 32 30 73 20 22 e [format %20s "
6f90: 6d 61 6e 79 22 5d 0a 20 20 7d 20 65 6c 73 65 20 many"]. } else
6fa0: 7b 0a 20 20 20 20 73 65 74 20 72 61 74 65 20 5b {. set rate [
6fb0: 66 6f 72 6d 61 74 20 25 32 30 2e 35 66 20 5b 65 format %20.5f [e
6fc0: 78 70 72 20 7b 31 30 30 30 30 30 30 2e 30 2a 24 xpr {1000000.0*$
6fd0: 6e 75 6d 73 74 6d 74 2f 24 74 6d 7d 5d 5d 0a 20 numstmt/$tm}]].
6fe0: 20 7d 0a 20 20 73 65 74 20 75 32 20 24 75 6e 69 }. set u2 $uni
6ff0: 74 73 2f 73 0a 20 20 6f 75 74 70 75 74 32 20 5b ts/s. output2 [
7000: 66 6f 72 6d 61 74 20 7b 25 31 32 64 20 75 53 20 format {%12d uS
7010: 25 73 20 25 73 7d 20 24 74 6d 20 24 72 61 74 65 %s %s} $tm $rate
7020: 20 24 75 32 5d 0a 20 20 67 6c 6f 62 61 6c 20 74 $u2]. global t
7030: 6f 74 61 6c 5f 74 69 6d 65 0a 20 20 73 65 74 20 otal_time. set
7040: 74 6f 74 61 6c 5f 74 69 6d 65 20 5b 65 78 70 72 total_time [expr
7050: 20 7b 24 74 6f 74 61 6c 5f 74 69 6d 65 2b 24 74 {$total_time+$t
7060: 6d 7d 5d 0a 20 20 6c 61 70 70 65 6e 64 20 3a 3a m}]. lappend ::
7070: 73 70 65 65 64 5f 74 72 69 61 6c 5f 74 69 6d 65 speed_trial_time
7080: 73 20 24 6e 61 6d 65 20 24 74 6d 0a 7d 0a 70 72 s $name $tm.}.pr
7090: 6f 63 20 73 70 65 65 64 5f 74 72 69 61 6c 5f 74 oc speed_trial_t
70a0: 63 6c 20 7b 6e 61 6d 65 20 6e 75 6d 73 74 6d 74 cl {name numstmt
70b0: 20 75 6e 69 74 73 20 73 63 72 69 70 74 7d 20 7b units script} {
70c0: 0a 20 20 6f 75 74 70 75 74 32 20 2d 6e 6f 6e 65 . output2 -none
70d0: 77 6c 69 6e 65 20 5b 66 6f 72 6d 61 74 20 7b 25 wline [format {%
70e0: 2d 32 31 2e 32 31 73 20 7d 20 24 6e 61 6d 65 2e -21.21s } $name.
70f0: 2e 2e 5d 0a 20 20 66 6c 75 73 68 20 73 74 64 6f ..]. flush stdo
7100: 75 74 0a 20 20 73 65 74 20 73 70 65 65 64 20 5b ut. set speed [
7110: 74 69 6d 65 20 7b 65 76 61 6c 20 24 73 63 72 69 time {eval $scri
7120: 70 74 7d 5d 0a 20 20 73 65 74 20 74 6d 20 5b 6c pt}]. set tm [l
7130: 69 6e 64 65 78 20 24 73 70 65 65 64 20 30 5d 0a index $speed 0].
7140: 20 20 69 66 20 7b 24 74 6d 20 3d 3d 20 30 7d 20 if {$tm == 0}
7150: 7b 0a 20 20 20 20 73 65 74 20 72 61 74 65 20 5b {. set rate [
7160: 66 6f 72 6d 61 74 20 25 32 30 73 20 22 6d 61 6e format %20s "man
7170: 79 22 5d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 y"]. } else {.
7180: 20 20 20 73 65 74 20 72 61 74 65 20 5b 66 6f 72 set rate [for
7190: 6d 61 74 20 25 32 30 2e 35 66 20 5b 65 78 70 72 mat %20.5f [expr
71a0: 20 7b 31 30 30 30 30 30 30 2e 30 2a 24 6e 75 6d {1000000.0*$num
71b0: 73 74 6d 74 2f 24 74 6d 7d 5d 5d 0a 20 20 7d 0a stmt/$tm}]]. }.
71c0: 20 20 73 65 74 20 75 32 20 24 75 6e 69 74 73 2f set u2 $units/
71d0: 73 0a 20 20 6f 75 74 70 75 74 32 20 5b 66 6f 72 s. output2 [for
71e0: 6d 61 74 20 7b 25 31 32 64 20 75 53 20 25 73 20 mat {%12d uS %s
71f0: 25 73 7d 20 24 74 6d 20 24 72 61 74 65 20 24 75 %s} $tm $rate $u
7200: 32 5d 0a 20 20 67 6c 6f 62 61 6c 20 74 6f 74 61 2]. global tota
7210: 6c 5f 74 69 6d 65 0a 20 20 73 65 74 20 74 6f 74 l_time. set tot
7220: 61 6c 5f 74 69 6d 65 20 5b 65 78 70 72 20 7b 24 al_time [expr {$
7230: 74 6f 74 61 6c 5f 74 69 6d 65 2b 24 74 6d 7d 5d total_time+$tm}]
7240: 0a 20 20 6c 61 70 70 65 6e 64 20 3a 3a 73 70 65 . lappend ::spe
7250: 65 64 5f 74 72 69 61 6c 5f 74 69 6d 65 73 20 24 ed_trial_times $
7260: 6e 61 6d 65 20 24 74 6d 0a 7d 0a 70 72 6f 63 20 name $tm.}.proc
7270: 73 70 65 65 64 5f 74 72 69 61 6c 5f 69 6e 69 74 speed_trial_init
7280: 20 7b 6e 61 6d 65 7d 20 7b 0a 20 20 67 6c 6f 62 {name} {. glob
7290: 61 6c 20 74 6f 74 61 6c 5f 74 69 6d 65 0a 20 20 al total_time.
72a0: 73 65 74 20 74 6f 74 61 6c 5f 74 69 6d 65 20 30 set total_time 0
72b0: 0a 20 20 73 65 74 20 3a 3a 73 70 65 65 64 5f 74 . set ::speed_t
72c0: 72 69 61 6c 5f 74 69 6d 65 73 20 5b 6c 69 73 74 rial_times [list
72d0: 5d 0a 20 20 73 71 6c 69 74 65 33 20 76 65 72 73 ]. sqlite3 vers
72e0: 64 62 20 3a 6d 65 6d 6f 72 79 3a 0a 20 20 73 65 db :memory:. se
72f0: 74 20 76 65 72 73 20 5b 76 65 72 73 64 62 20 6f t vers [versdb o
7300: 6e 65 20 7b 53 45 4c 45 43 54 20 73 71 6c 69 74 ne {SELECT sqlit
7310: 65 5f 73 6f 75 72 63 65 5f 69 64 28 29 7d 5d 0a e_source_id()}].
7320: 20 20 76 65 72 73 64 62 20 63 6c 6f 73 65 0a 20 versdb close.
7330: 20 6f 75 74 70 75 74 32 20 22 53 51 4c 69 74 65 output2 "SQLite
7340: 20 24 76 65 72 73 22 0a 7d 0a 70 72 6f 63 20 73 $vers".}.proc s
7350: 70 65 65 64 5f 74 72 69 61 6c 5f 73 75 6d 6d 61 peed_trial_summa
7360: 72 79 20 7b 6e 61 6d 65 7d 20 7b 0a 20 20 67 6c ry {name} {. gl
7370: 6f 62 61 6c 20 74 6f 74 61 6c 5f 74 69 6d 65 0a obal total_time.
7380: 20 20 6f 75 74 70 75 74 32 20 5b 66 6f 72 6d 61 output2 [forma
7390: 74 20 7b 25 2d 32 31 2e 32 31 73 20 25 31 32 64 t {%-21.21s %12d
73a0: 20 75 53 20 54 4f 54 41 4c 7d 20 24 6e 61 6d 65 uS TOTAL} $name
73b0: 20 24 74 6f 74 61 6c 5f 74 69 6d 65 5d 0a 0a 20 $total_time]..
73c0: 20 69 66 20 7b 20 30 20 7d 20 7b 0a 20 20 20 20 if { 0 } {.
73d0: 73 71 6c 69 74 65 33 20 76 65 72 73 64 62 20 3a sqlite3 versdb :
73e0: 6d 65 6d 6f 72 79 3a 0a 20 20 20 20 73 65 74 20 memory:. set
73f0: 76 65 72 73 20 5b 6c 69 6e 64 65 78 20 5b 76 65 vers [lindex [ve
7400: 72 73 64 62 20 6f 6e 65 20 7b 53 45 4c 45 43 54 rsdb one {SELECT
7410: 20 73 71 6c 69 74 65 5f 73 6f 75 72 63 65 5f 69 sqlite_source_i
7420: 64 28 29 7d 5d 20 30 5d 0a 20 20 20 20 76 65 72 d()}] 0]. ver
7430: 73 64 62 20 63 6c 6f 73 65 0a 20 20 20 20 6f 75 sdb close. ou
7440: 74 70 75 74 32 20 22 43 52 45 41 54 45 20 54 41 tput2 "CREATE TA
7450: 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54 BLE IF NOT EXIST
7460: 53 20 74 69 6d 65 28 76 65 72 73 69 6f 6e 2c 20 S time(version,
7470: 73 63 72 69 70 74 2c 20 74 65 73 74 2c 20 75 73 script, test, us
7480: 29 3b 22 0a 20 20 20 20 66 6f 72 65 61 63 68 20 );". foreach
7490: 7b 74 65 73 74 20 75 73 7d 20 24 3a 3a 73 70 65 {test us} $::spe
74a0: 65 64 5f 74 72 69 61 6c 5f 74 69 6d 65 73 20 7b ed_trial_times {
74b0: 0a 20 20 20 20 20 20 6f 75 74 70 75 74 32 20 22 . output2 "
74c0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 69 6d 65 INSERT INTO time
74d0: 20 56 41 4c 55 45 53 28 27 24 76 65 72 73 27 2c VALUES('$vers',
74e0: 20 27 24 6e 61 6d 65 27 2c 20 27 24 74 65 73 74 '$name', '$test
74f0: 27 2c 20 24 75 73 29 3b 22 0a 20 20 20 20 7d 0a ', $us);". }.
7500: 20 20 7d 0a 7d 0a 0a 23 20 52 75 6e 20 74 68 69 }.}..# Run thi
7510: 73 20 72 6f 75 74 69 6e 65 20 6c 61 73 74 0a 23 s routine last.#
7520: 0a 70 72 6f 63 20 66 69 6e 69 73 68 5f 74 65 73 .proc finish_tes
7530: 74 20 7b 7d 20 7b 0a 20 20 63 61 74 63 68 20 7b t {} {. catch {
7540: 64 62 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 db close}. catc
7550: 68 20 7b 64 62 31 20 63 6c 6f 73 65 7d 0a 20 20 h {db1 close}.
7560: 63 61 74 63 68 20 7b 64 62 32 20 63 6c 6f 73 65 catch {db2 close
7570: 7d 0a 20 20 63 61 74 63 68 20 7b 64 62 33 20 63 }. catch {db3 c
7580: 6c 6f 73 65 7d 0a 20 20 69 66 20 7b 30 3d 3d 5b lose}. if {0==[
7590: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 53 4c info exists ::SL
75a0: 41 56 45 5d 7d 20 7b 20 66 69 6e 61 6c 69 7a 65 AVE]} { finalize
75b0: 5f 74 65 73 74 69 6e 67 20 7d 0a 7d 0a 70 72 6f _testing }.}.pro
75c0: 63 20 66 69 6e 61 6c 69 7a 65 5f 74 65 73 74 69 c finalize_testi
75d0: 6e 67 20 7b 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c ng {} {. global
75e0: 20 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c sqlite_open_fil
75f0: 65 5f 63 6f 75 6e 74 0a 0a 20 20 73 65 74 20 6f e_count.. set o
7600: 6d 69 74 4c 69 73 74 20 5b 73 65 74 5f 74 65 73 mitList [set_tes
7610: 74 5f 63 6f 75 6e 74 65 72 20 6f 6d 69 74 5f 6c t_counter omit_l
7620: 69 73 74 5d 0a 0a 20 20 63 61 74 63 68 20 7b 64 ist].. catch {d
7630: 62 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68 b close}. catch
7640: 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 20 20 63 {db2 close}. c
7650: 61 74 63 68 20 7b 64 62 33 20 63 6c 6f 73 65 7d atch {db3 close}
7660: 0a 0a 20 20 76 66 73 5f 75 6e 6c 69 6e 6b 5f 74 .. vfs_unlink_t
7670: 65 73 74 0a 20 20 73 71 6c 69 74 65 33 20 64 62 est. sqlite3 db
7680: 20 7b 7d 0a 20 20 23 20 73 71 6c 69 74 65 33 5f {}. # sqlite3_
7690: 63 6c 65 61 72 5f 74 73 64 5f 6d 65 6d 64 65 62 clear_tsd_memdeb
76a0: 75 67 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 ug. db close.
76b0: 73 71 6c 69 74 65 33 5f 72 65 73 65 74 5f 61 75 sqlite3_reset_au
76c0: 74 6f 5f 65 78 74 65 6e 73 69 6f 6e 0a 0a 20 20 to_extension..
76d0: 73 71 6c 69 74 65 33 5f 73 6f 66 74 5f 68 65 61 sqlite3_soft_hea
76e0: 70 5f 6c 69 6d 69 74 20 30 0a 20 20 73 65 74 20 p_limit 0. set
76f0: 6e 54 65 73 74 20 5b 69 6e 63 72 5f 6e 74 65 73 nTest [incr_ntes
7700: 74 5d 0a 20 20 73 65 74 20 6e 45 72 72 20 5b 73 t]. set nErr [s
7710: 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 et_test_counter
7720: 65 72 72 6f 72 73 5d 0a 0a 20 20 73 65 74 20 6e errors].. set n
7730: 4b 6e 6f 77 6e 20 30 0a 20 20 69 66 20 7b 5b 66 Known 0. if {[f
7740: 69 6c 65 20 72 65 61 64 61 62 6c 65 20 6b 6e 6f ile readable kno
7750: 77 6e 2d 70 72 6f 62 6c 65 6d 73 2e 74 78 74 5d wn-problems.txt]
7760: 7d 20 7b 0a 20 20 20 20 73 65 74 20 66 64 20 5b } {. set fd [
7770: 6f 70 65 6e 20 6b 6e 6f 77 6e 2d 70 72 6f 62 6c open known-probl
7780: 65 6d 73 2e 74 78 74 5d 0a 20 20 20 20 73 65 74 ems.txt]. set
7790: 20 63 6f 6e 74 65 6e 74 20 5b 72 65 61 64 20 24 content [read $
77a0: 66 64 5d 0a 20 20 20 20 63 6c 6f 73 65 20 24 66 fd]. close $f
77b0: 64 0a 20 20 20 20 66 6f 72 65 61 63 68 20 78 20 d. foreach x
77c0: 24 63 6f 6e 74 65 6e 74 20 7b 73 65 74 20 6b 6e $content {set kn
77d0: 6f 77 6e 5f 65 72 72 6f 72 28 24 78 29 20 31 7d own_error($x) 1}
77e0: 0a 20 20 20 20 66 6f 72 65 61 63 68 20 78 20 5b . foreach x [
77f0: 73 65 74 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 set_test_counter
7800: 20 66 61 69 6c 5f 6c 69 73 74 5d 20 7b 0a 20 20 fail_list] {.
7810: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 if {[info ex
7820: 69 73 74 73 20 6b 6e 6f 77 6e 5f 65 72 72 6f 72 ists known_error
7830: 28 24 78 29 5d 7d 20 7b 69 6e 63 72 20 6e 4b 6e ($x)]} {incr nKn
7840: 6f 77 6e 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 own}. }. }.
7850: 20 69 66 20 7b 24 6e 4b 6e 6f 77 6e 3e 30 7d 20 if {$nKnown>0}
7860: 7b 0a 20 20 20 20 6f 75 74 70 75 74 32 20 22 5b {. output2 "[
7870: 65 78 70 72 20 7b 24 6e 45 72 72 2d 24 6e 4b 6e expr {$nErr-$nKn
7880: 6f 77 6e 7d 5d 20 6e 65 77 20 65 72 72 6f 72 73 own}] new errors
7890: 20 61 6e 64 20 24 6e 4b 6e 6f 77 6e 20 6b 6e 6f and $nKnown kno
78a0: 77 6e 20 65 72 72 6f 72 73 5c 0a 20 20 20 20 20 wn errors\.
78b0: 20 20 20 20 6f 75 74 20 6f 66 20 24 6e 54 65 73 out of $nTes
78c0: 74 20 74 65 73 74 73 22 0a 20 20 7d 20 65 6c 73 t tests". } els
78d0: 65 20 7b 0a 20 20 20 20 73 65 74 20 63 70 75 69 e {. set cpui
78e0: 6e 66 6f 20 7b 7d 0a 20 20 20 20 69 66 20 7b 5b nfo {}. if {[
78f0: 63 61 74 63 68 20 7b 65 78 65 63 20 68 6f 73 74 catch {exec host
7900: 6e 61 6d 65 7d 20 68 6e 61 6d 65 5d 3d 3d 30 7d name} hname]==0}
7910: 20 7b 73 65 74 20 63 70 75 69 6e 66 6f 20 5b 73 {set cpuinfo [s
7920: 74 72 69 6e 67 20 74 72 69 6d 20 24 68 6e 61 6d tring trim $hnam
7930: 65 5d 7d 0a 20 20 20 20 61 70 70 65 6e 64 20 63 e]}. append c
7940: 70 75 69 6e 66 6f 20 22 20 24 3a 3a 74 63 6c 5f puinfo " $::tcl_
7950: 70 6c 61 74 66 6f 72 6d 28 6f 73 29 22 0a 20 20 platform(os)".
7960: 20 20 61 70 70 65 6e 64 20 63 70 75 69 6e 66 6f append cpuinfo
7970: 20 22 20 5b 65 78 70 72 20 7b 24 3a 3a 74 63 6c " [expr {$::tcl
7980: 5f 70 6c 61 74 66 6f 72 6d 28 70 6f 69 6e 74 65 _platform(pointe
7990: 72 53 69 7a 65 29 2a 38 7d 5d 2d 62 69 74 22 0a rSize)*8}]-bit".
79a0: 20 20 20 20 61 70 70 65 6e 64 20 63 70 75 69 6e append cpuin
79b0: 66 6f 20 22 20 5b 73 74 72 69 6e 67 20 6d 61 70 fo " [string map
79c0: 20 7b 45 20 2d 65 7d 20 24 3a 3a 74 63 6c 5f 70 {E -e} $::tcl_p
79d0: 6c 61 74 66 6f 72 6d 28 62 79 74 65 4f 72 64 65 latform(byteOrde
79e0: 72 29 5d 22 0a 20 20 20 20 6f 75 74 70 75 74 32 r)]". output2
79f0: 20 22 53 51 4c 69 74 65 20 5b 73 71 6c 69 74 65 "SQLite [sqlite
7a00: 33 20 2d 73 6f 75 72 63 65 69 64 5d 22 0a 20 20 3 -sourceid]".
7a10: 20 20 6f 75 74 70 75 74 32 20 22 24 6e 45 72 72 output2 "$nErr
7a20: 20 65 72 72 6f 72 73 20 6f 75 74 20 6f 66 20 24 errors out of $
7a30: 6e 54 65 73 74 20 74 65 73 74 73 20 6f 6e 20 24 nTest tests on $
7a40: 63 70 75 69 6e 66 6f 22 0a 20 20 7d 0a 20 20 69 cpuinfo". }. i
7a50: 66 20 7b 24 6e 45 72 72 3e 24 6e 4b 6e 6f 77 6e f {$nErr>$nKnown
7a60: 7d 20 7b 0a 20 20 20 20 6f 75 74 70 75 74 32 20 } {. output2
7a70: 2d 6e 6f 6e 65 77 6c 69 6e 65 20 22 21 46 61 69 -nonewline "!Fai
7a80: 6c 75 72 65 73 20 6f 6e 20 74 68 65 73 65 20 74 lures on these t
7a90: 65 73 74 73 3a 22 0a 20 20 20 20 66 6f 72 65 61 ests:". forea
7aa0: 63 68 20 78 20 5b 73 65 74 5f 74 65 73 74 5f 63 ch x [set_test_c
7ab0: 6f 75 6e 74 65 72 20 66 61 69 6c 5f 6c 69 73 74 ounter fail_list
7ac0: 5d 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 21 5b ] {. if {![
7ad0: 69 6e 66 6f 20 65 78 69 73 74 73 20 6b 6e 6f 77 info exists know
7ae0: 6e 5f 65 72 72 6f 72 28 24 78 29 5d 7d 20 7b 6f n_error($x)]} {o
7af0: 75 74 70 75 74 32 20 2d 6e 6f 6e 65 77 6c 69 6e utput2 -nonewlin
7b00: 65 20 22 20 24 78 22 7d 0a 20 20 20 20 7d 0a 20 e " $x"}. }.
7b10: 20 20 20 6f 75 74 70 75 74 32 20 22 22 0a 20 20 output2 "".
7b20: 7d 0a 20 20 66 6f 72 65 61 63 68 20 77 61 72 6e }. foreach warn
7b30: 69 6e 67 20 5b 73 65 74 5f 74 65 73 74 5f 63 6f ing [set_test_co
7b40: 75 6e 74 65 72 20 77 61 72 6e 5f 6c 69 73 74 5d unter warn_list]
7b50: 20 7b 0a 20 20 20 20 6f 75 74 70 75 74 32 20 22 {. output2 "
7b60: 57 61 72 6e 69 6e 67 3a 20 24 77 61 72 6e 69 6e Warning: $warnin
7b70: 67 22 0a 20 20 7d 0a 20 20 72 75 6e 5f 74 68 72 g". }. run_thr
7b80: 65 61 64 5f 74 65 73 74 73 20 31 0a 20 20 69 66 ead_tests 1. if
7b90: 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 6f 6d 69 74 {[llength $omit
7ba0: 4c 69 73 74 5d 3e 30 7d 20 7b 0a 20 20 20 20 6f List]>0} {. o
7bb0: 75 74 70 75 74 32 20 22 4f 6d 69 74 74 65 64 20 utput2 "Omitted
7bc0: 74 65 73 74 20 63 61 73 65 73 3a 22 0a 20 20 20 test cases:".
7bd0: 20 73 65 74 20 70 72 65 63 20 7b 7d 0a 20 20 20 set prec {}.
7be0: 20 66 6f 72 65 61 63 68 20 7b 72 65 63 7d 20 5b foreach {rec} [
7bf0: 6c 73 6f 72 74 20 24 6f 6d 69 74 4c 69 73 74 5d lsort $omitList]
7c00: 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 24 72 65 {. if {$re
7c10: 63 3d 3d 24 70 72 65 63 7d 20 63 6f 6e 74 69 6e c==$prec} contin
7c20: 75 65 0a 20 20 20 20 20 20 73 65 74 20 70 72 65 ue. set pre
7c30: 63 20 24 72 65 63 0a 20 20 20 20 20 20 6f 75 74 c $rec. out
7c40: 70 75 74 32 20 5b 66 6f 72 6d 61 74 20 7b 2e 20 put2 [format {.
7c50: 20 25 2d 31 32 73 20 25 73 7d 20 5b 6c 69 6e 64 %-12s %s} [lind
7c60: 65 78 20 24 72 65 63 20 30 5d 20 5b 6c 69 6e 64 ex $rec 0] [lind
7c70: 65 78 20 24 72 65 63 20 31 5d 5d 0a 20 20 20 20 ex $rec 1]].
7c80: 7d 0a 20 20 7d 0a 20 20 69 66 20 7b 24 6e 45 72 }. }. if {$nEr
7c90: 72 3e 30 20 26 26 20 21 5b 77 6f 72 6b 69 6e 67 r>0 && ![working
7ca0: 5f 36 34 62 69 74 5f 69 6e 74 5d 7d 20 7b 0a 20 _64bit_int]} {.
7cb0: 20 20 20 6f 75 74 70 75 74 32 20 22 2a 2a 2a 2a output2 "****
7cc0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7cd0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7ce0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7cf0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 0a **************".
7d00: 20 20 20 20 6f 75 74 70 75 74 32 20 22 4e 2e 42 output2 "N.B
7d10: 2e 3a 20 20 54 68 65 20 76 65 72 73 69 6f 6e 20 .: The version
7d20: 6f 66 20 54 43 4c 20 74 68 61 74 20 79 6f 75 20 of TCL that you
7d30: 75 73 65 64 20 74 6f 20 62 75 69 6c 64 20 74 68 used to build th
7d40: 69 73 20 74 65 73 74 20 68 61 72 6e 65 73 73 22 is test harness"
7d50: 0a 20 20 20 20 6f 75 74 70 75 74 32 20 22 69 73 . output2 "is
7d60: 20 64 65 66 65 63 74 69 76 65 20 69 6e 20 74 68 defective in th
7d70: 61 74 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 73 at it does not s
7d80: 75 70 70 6f 72 74 20 36 34 2d 62 69 74 20 69 6e upport 64-bit in
7d90: 74 65 67 65 72 73 2e 20 20 53 6f 6d 65 20 6f 72 tegers. Some or
7da0: 22 0a 20 20 20 20 6f 75 74 70 75 74 32 20 22 61 ". output2 "a
7db0: 6c 6c 20 6f 66 20 74 68 65 20 74 65 73 74 20 66 ll of the test f
7dc0: 61 69 6c 75 72 65 73 20 61 62 6f 76 65 20 6d 69 ailures above mi
7dd0: 67 68 74 20 62 65 20 61 20 72 65 73 75 6c 74 20 ght be a result
7de0: 66 72 6f 6d 20 74 68 69 73 20 64 65 66 65 63 74 from this defect
7df0: 22 0a 20 20 20 20 6f 75 74 70 75 74 32 20 22 69 ". output2 "i
7e00: 6e 20 79 6f 75 72 20 54 43 4c 20 62 75 69 6c 64 n your TCL build
7e10: 2e 22 0a 20 20 20 20 6f 75 74 70 75 74 32 20 22 .". output2 "
7e20: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7e30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7e40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7e50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7e60: 2a 2a 22 0a 20 20 7d 0a 20 20 69 66 20 7b 24 3a **". }. if {$:
7e70: 3a 63 6d 64 6c 69 6e 65 61 72 67 28 62 69 6e 61 :cmdlinearg(bina
7e80: 72 79 6c 6f 67 29 7d 20 7b 0a 20 20 20 20 76 66 rylog)} {. vf
7e90: 73 6c 6f 67 20 66 69 6e 61 6c 69 7a 65 20 62 69 slog finalize bi
7ea0: 6e 61 72 79 6c 6f 67 0a 20 20 7d 0a 20 20 69 66 narylog. }. if
7eb0: 20 7b 24 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 {$sqlite_open_f
7ec0: 69 6c 65 5f 63 6f 75 6e 74 7d 20 7b 0a 20 20 20 ile_count} {.
7ed0: 20 6f 75 74 70 75 74 32 20 22 24 73 71 6c 69 74 output2 "$sqlit
7ee0: 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e e_open_file_coun
7ef0: 74 20 66 69 6c 65 73 20 77 65 72 65 20 6c 65 66 t files were lef
7f00: 74 20 6f 70 65 6e 22 0a 20 20 20 20 69 6e 63 72 t open". incr
7f10: 20 6e 45 72 72 0a 20 20 7d 0a 20 20 69 66 20 7b nErr. }. if {
7f20: 5b 6c 69 6e 64 65 78 20 5b 73 71 6c 69 74 65 33 [lindex [sqlite3
7f30: 5f 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53 _status SQLITE_S
7f40: 54 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f 43 4f 55 TATUS_MALLOC_COU
7f50: 4e 54 20 30 5d 20 31 5d 3e 30 20 7c 7c 0a 20 20 NT 0] 1]>0 ||.
7f60: 20 20 20 20 20 20 20 20 20 20 20 20 5b 73 71 6c [sql
7f70: 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 64 ite3_memory_used
7f80: 5d 3e 30 7d 20 7b 0a 20 20 20 20 6f 75 74 70 75 ]>0} {. outpu
7f90: 74 32 20 22 55 6e 66 72 65 65 64 20 6d 65 6d 6f t2 "Unfreed memo
7fa0: 72 79 3a 20 5b 73 71 6c 69 74 65 33 5f 6d 65 6d ry: [sqlite3_mem
7fb0: 6f 72 79 5f 75 73 65 64 5d 20 62 79 74 65 73 20 ory_used] bytes
7fc0: 69 6e 5c 0a 20 20 20 20 20 20 20 20 20 5b 6c 69 in\. [li
7fd0: 6e 64 65 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 ndex [sqlite3_st
7fe0: 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 atus SQLITE_STAT
7ff0: 55 53 5f 4d 41 4c 4c 4f 43 5f 43 4f 55 4e 54 20 US_MALLOC_COUNT
8000: 30 5d 20 31 5d 20 61 6c 6c 6f 63 61 74 69 6f 6e 0] 1] allocation
8010: 73 22 0a 20 20 20 20 69 6e 63 72 20 6e 45 72 72 s". incr nErr
8020: 0a 20 20 20 20 69 66 63 61 70 61 62 6c 65 20 6d . ifcapable m
8030: 65 6d 64 65 62 75 67 7c 7c 6d 65 6d 35 7c 7c 28 emdebug||mem5||(
8040: 6d 65 6d 33 26 26 64 65 62 75 67 29 20 7b 0a 20 mem3&&debug) {.
8050: 20 20 20 20 20 6f 75 74 70 75 74 32 20 22 57 72 output2 "Wr
8060: 69 74 69 6e 67 20 75 6e 66 72 65 65 64 20 6d 65 iting unfreed me
8070: 6d 6f 72 79 20 6c 6f 67 20 74 6f 20 5c 22 2e 2f mory log to \"./
8080: 6d 65 6d 6c 65 61 6b 2e 74 78 74 5c 22 22 0a 20 memleak.txt\"".
8090: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d sqlite3_mem
80a0: 64 65 62 75 67 5f 64 75 6d 70 20 2e 2f 6d 65 6d debug_dump ./mem
80b0: 6c 65 61 6b 2e 74 78 74 0a 20 20 20 20 7d 0a 20 leak.txt. }.
80c0: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 6f 75 } else {. ou
80d0: 74 70 75 74 32 20 22 41 6c 6c 20 6d 65 6d 6f 72 tput2 "All memor
80e0: 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 73 20 66 72 y allocations fr
80f0: 65 65 64 20 2d 20 6e 6f 20 6c 65 61 6b 73 22 0a eed - no leaks".
8100: 20 20 20 20 69 66 63 61 70 61 62 6c 65 20 6d 65 ifcapable me
8110: 6d 64 65 62 75 67 7c 7c 6d 65 6d 35 20 7b 0a 20 mdebug||mem5 {.
8120: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d sqlite3_mem
8130: 64 65 62 75 67 5f 64 75 6d 70 20 2e 2f 6d 65 6d debug_dump ./mem
8140: 75 73 61 67 65 2e 74 78 74 0a 20 20 20 20 7d 0a usage.txt. }.
8150: 20 20 7d 0a 20 20 73 68 6f 77 5f 6d 65 6d 73 74 }. show_memst
8160: 61 74 73 0a 20 20 6f 75 74 70 75 74 32 20 22 4d ats. output2 "M
8170: 61 78 69 6d 75 6d 20 6d 65 6d 6f 72 79 20 75 73 aximum memory us
8180: 61 67 65 3a 20 5b 73 71 6c 69 74 65 33 5f 6d 65 age: [sqlite3_me
8190: 6d 6f 72 79 5f 68 69 67 68 77 61 74 65 72 20 31 mory_highwater 1
81a0: 5d 20 62 79 74 65 73 22 0a 20 20 6f 75 74 70 75 ] bytes". outpu
81b0: 74 32 20 22 43 75 72 72 65 6e 74 20 6d 65 6d 6f t2 "Current memo
81c0: 72 79 20 75 73 61 67 65 3a 20 5b 73 71 6c 69 74 ry usage: [sqlit
81d0: 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 61 e3_memory_highwa
81e0: 74 65 72 5d 20 62 79 74 65 73 22 0a 20 20 69 66 ter] bytes". if
81f0: 20 7b 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73 {[info commands
8200: 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 sqlite3_memdebu
8210: 67 5f 6d 61 6c 6c 6f 63 5f 63 6f 75 6e 74 5d 20 g_malloc_count]
8220: 6e 65 20 22 22 7d 20 7b 0a 20 20 20 20 6f 75 74 ne ""} {. out
8230: 70 75 74 32 20 22 4e 75 6d 62 65 72 20 6f 66 20 put2 "Number of
8240: 6d 61 6c 6c 6f 63 28 29 20 20 3a 20 5b 73 71 6c malloc() : [sql
8250: 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 6d 61 ite3_memdebug_ma
8260: 6c 6c 6f 63 5f 63 6f 75 6e 74 5d 20 63 61 6c 6c lloc_count] call
8270: 73 22 0a 20 20 7d 0a 20 20 69 66 20 7b 24 3a 3a s". }. if {$::
8280: 63 6d 64 6c 69 6e 65 61 72 67 28 6d 61 6c 6c 6f cmdlinearg(mallo
8290: 63 74 72 61 63 65 29 7d 20 7b 0a 20 20 20 20 6f ctrace)} {. o
82a0: 75 74 70 75 74 32 20 22 57 72 69 74 69 6e 67 20 utput2 "Writing
82b0: 6d 61 6c 6c 6f 63 73 2e 73 71 6c 2e 2e 2e 22 0a mallocs.sql...".
82c0: 20 20 20 20 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 memdebug_log
82d0: 5f 73 71 6c 0a 20 20 20 20 73 71 6c 69 74 65 33 _sql. sqlite3
82e0: 5f 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 20 73 74 _memdebug_log st
82f0: 6f 70 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 6d op. sqlite3_m
8300: 65 6d 64 65 62 75 67 5f 6c 6f 67 20 63 6c 65 61 emdebug_log clea
8310: 72 0a 0a 20 20 20 20 69 66 20 7b 5b 73 71 6c 69 r.. if {[sqli
8320: 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 64 5d te3_memory_used]
8330: 3e 30 7d 20 7b 0a 20 20 20 20 20 20 6f 75 74 70 >0} {. outp
8340: 75 74 32 20 22 57 72 69 74 69 6e 67 20 6c 65 61 ut2 "Writing lea
8350: 6b 73 2e 73 71 6c 2e 2e 2e 22 0a 20 20 20 20 20 ks.sql...".
8360: 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 sqlite3_memdebu
8370: 67 5f 6c 6f 67 20 73 79 6e 63 0a 20 20 20 20 20 g_log sync.
8380: 20 6d 65 6d 64 65 62 75 67 5f 6c 6f 67 5f 73 71 memdebug_log_sq
8390: 6c 20 6c 65 61 6b 73 2e 73 71 6c 0a 20 20 20 20 l leaks.sql.
83a0: 7d 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 }. }. foreach
83b0: 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c f [glob -nocompl
83c0: 61 69 6e 20 74 65 73 74 2e 64 62 2d 2a 2d 6a 6f ain test.db-*-jo
83d0: 75 72 6e 61 6c 5d 20 7b 0a 20 20 20 20 66 6f 72 urnal] {. for
83e0: 63 65 64 65 6c 65 74 65 20 24 66 0a 20 20 7d 0a cedelete $f. }.
83f0: 20 20 66 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f foreach f [glo
8400: 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 b -nocomplain te
8410: 73 74 2e 64 62 2d 6d 6a 2a 5d 20 7b 0a 20 20 20 st.db-mj*] {.
8420: 20 66 6f 72 63 65 64 65 6c 65 74 65 20 24 66 0a forcedelete $f.
8430: 20 20 7d 0a 20 20 65 78 69 74 20 5b 65 78 70 72 }. exit [expr
8440: 20 7b 24 6e 45 72 72 3e 30 7d 5d 0a 7d 0a 0a 23 {$nErr>0}].}..#
8450: 20 44 69 73 70 6c 61 79 20 6d 65 6d 6f 72 79 20 Display memory
8460: 73 74 61 74 69 73 74 69 63 73 20 66 6f 72 20 61 statistics for a
8470: 6e 61 6c 79 73 69 73 20 61 6e 64 20 64 65 62 75 nalysis and debu
8480: 67 67 69 6e 67 20 70 75 72 70 6f 73 65 73 2e 0a gging purposes..
8490: 23 0a 70 72 6f 63 20 73 68 6f 77 5f 6d 65 6d 73 #.proc show_mems
84a0: 74 61 74 73 20 7b 7d 20 7b 0a 20 20 73 65 74 20 tats {} {. set
84b0: 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 75 x [sqlite3_statu
84c0: 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53 5f s SQLITE_STATUS_
84d0: 4d 45 4d 4f 52 59 5f 55 53 45 44 20 30 5d 0a 20 MEMORY_USED 0].
84e0: 20 73 65 74 20 79 20 5b 73 71 6c 69 74 65 33 5f set y [sqlite3_
84f0: 73 74 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 status SQLITE_ST
8500: 41 54 55 53 5f 4d 41 4c 4c 4f 43 5f 53 49 5a 45 ATUS_MALLOC_SIZE
8510: 20 30 5d 0a 20 20 73 65 74 20 76 61 6c 20 5b 66 0]. set val [f
8520: 6f 72 6d 61 74 20 7b 6e 6f 77 20 25 31 30 64 20 ormat {now %10d
8530: 20 6d 61 78 20 25 31 30 64 20 20 6d 61 78 2d 73 max %10d max-s
8540: 69 7a 65 20 25 31 30 64 7d 20 5c 0a 20 20 20 20 ize %10d} \.
8550: 20 20 20 20 20 20 20 20 20 20 5b 6c 69 6e 64 65 [linde
8560: 78 20 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20 x $x 1] [lindex
8570: 24 78 20 32 5d 20 5b 6c 69 6e 64 65 78 20 24 79 $x 2] [lindex $y
8580: 20 32 5d 5d 0a 20 20 6f 75 74 70 75 74 31 20 22 2]]. output1 "
8590: 4d 65 6d 6f 72 79 20 75 73 65 64 3a 20 20 20 20 Memory used:
85a0: 20 20 20 20 20 20 24 76 61 6c 22 0a 20 20 73 65 $val". se
85b0: 74 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 t x [sqlite3_sta
85c0: 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 tus SQLITE_STATU
85d0: 53 5f 4d 41 4c 4c 4f 43 5f 43 4f 55 4e 54 20 30 S_MALLOC_COUNT 0
85e0: 5d 0a 20 20 73 65 74 20 76 61 6c 20 5b 66 6f 72 ]. set val [for
85f0: 6d 61 74 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d mat {now %10d m
8600: 61 78 20 25 31 30 64 7d 20 5b 6c 69 6e 64 65 78 ax %10d} [lindex
8610: 20 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 $x 1] [lindex $
8620: 78 20 32 5d 5d 0a 20 20 6f 75 74 70 75 74 31 20 x 2]]. output1
8630: 22 41 6c 6c 6f 63 61 74 69 6f 6e 20 63 6f 75 6e "Allocation coun
8640: 74 3a 20 20 20 20 20 24 76 61 6c 22 0a 20 20 73 t: $val". s
8650: 65 74 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 et x [sqlite3_st
8660: 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 atus SQLITE_STAT
8670: 55 53 5f 50 41 47 45 43 41 43 48 45 5f 55 53 45 US_PAGECACHE_USE
8680: 44 20 30 5d 0a 20 20 73 65 74 20 79 20 5b 73 71 D 0]. set y [sq
8690: 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c lite3_status SQL
86a0: 49 54 45 5f 53 54 41 54 55 53 5f 50 41 47 45 43 ITE_STATUS_PAGEC
86b0: 41 43 48 45 5f 53 49 5a 45 20 30 5d 0a 20 20 73 ACHE_SIZE 0]. s
86c0: 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b et val [format {
86d0: 6e 6f 77 20 25 31 30 64 20 20 6d 61 78 20 25 31 now %10d max %1
86e0: 30 64 20 20 6d 61 78 2d 73 69 7a 65 20 25 31 30 0d max-size %10
86f0: 64 7d 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 d} \.
8700: 20 20 20 5b 6c 69 6e 64 65 78 20 24 78 20 31 5d [lindex $x 1]
8710: 20 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 20 5b [lindex $x 2] [
8720: 6c 69 6e 64 65 78 20 24 79 20 32 5d 5d 0a 20 20 lindex $y 2]].
8730: 6f 75 74 70 75 74 31 20 22 50 61 67 65 2d 63 61 output1 "Page-ca
8740: 63 68 65 20 75 73 65 64 3a 20 20 20 20 20 20 24 che used: $
8750: 76 61 6c 22 0a 20 20 73 65 74 20 78 20 5b 73 71 val". set x [sq
8760: 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 51 4c lite3_status SQL
8770: 49 54 45 5f 53 54 41 54 55 53 5f 50 41 47 45 43 ITE_STATUS_PAGEC
8780: 41 43 48 45 5f 4f 56 45 52 46 4c 4f 57 20 30 5d ACHE_OVERFLOW 0]
8790: 0a 20 20 73 65 74 20 76 61 6c 20 5b 66 6f 72 6d . set val [form
87a0: 61 74 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d 61 at {now %10d ma
87b0: 78 20 25 31 30 64 7d 20 5b 6c 69 6e 64 65 78 20 x %10d} [lindex
87c0: 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 78 $x 1] [lindex $x
87d0: 20 32 5d 5d 0a 20 20 6f 75 74 70 75 74 31 20 22 2]]. output1 "
87e0: 50 61 67 65 2d 63 61 63 68 65 20 6f 76 65 72 66 Page-cache overf
87f0: 6c 6f 77 3a 20 20 24 76 61 6c 22 0a 20 20 73 65 low: $val". se
8800: 74 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 t x [sqlite3_sta
8810: 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 tus SQLITE_STATU
8820: 53 5f 53 43 52 41 54 43 48 5f 55 53 45 44 20 30 S_SCRATCH_USED 0
8830: 5d 0a 20 20 73 65 74 20 76 61 6c 20 5b 66 6f 72 ]. set val [for
8840: 6d 61 74 20 7b 6e 6f 77 20 25 31 30 64 20 20 6d mat {now %10d m
8850: 61 78 20 25 31 30 64 7d 20 5b 6c 69 6e 64 65 78 ax %10d} [lindex
8860: 20 24 78 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 $x 1] [lindex $
8870: 78 20 32 5d 5d 0a 20 20 6f 75 74 70 75 74 31 20 x 2]]. output1
8880: 22 53 63 72 61 74 63 68 20 6d 65 6d 6f 72 79 20 "Scratch memory
8890: 75 73 65 64 3a 20 20 24 76 61 6c 22 0a 20 20 73 used: $val". s
88a0: 65 74 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 et x [sqlite3_st
88b0: 61 74 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 atus SQLITE_STAT
88c0: 55 53 5f 53 43 52 41 54 43 48 5f 4f 56 45 52 46 US_SCRATCH_OVERF
88d0: 4c 4f 57 20 30 5d 0a 20 20 73 65 74 20 79 20 5b LOW 0]. set y [
88e0: 73 71 6c 69 74 65 33 5f 73 74 61 74 75 73 20 53 sqlite3_status S
88f0: 51 4c 49 54 45 5f 53 54 41 54 55 53 5f 53 43 52 QLITE_STATUS_SCR
8900: 41 54 43 48 5f 53 49 5a 45 20 30 5d 0a 20 20 73 ATCH_SIZE 0]. s
8910: 65 74 20 76 61 6c 20 5b 66 6f 72 6d 61 74 20 7b et val [format {
8920: 6e 6f 77 20 25 31 30 64 20 20 6d 61 78 20 25 31 now %10d max %1
8930: 30 64 20 20 6d 61 78 2d 73 69 7a 65 20 25 31 30 0d max-size %10
8940: 64 7d 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 d} \.
8950: 20 20 20 20 5b 6c 69 6e 64 65 78 20 24 78 20 31 [lindex $x 1
8960: 5d 20 5b 6c 69 6e 64 65 78 20 24 78 20 32 5d 20 ] [lindex $x 2]
8970: 5b 6c 69 6e 64 65 78 20 24 79 20 32 5d 5d 0a 20 [lindex $y 2]].
8980: 20 6f 75 74 70 75 74 31 20 22 53 63 72 61 74 63 output1 "Scratc
8990: 68 20 6f 76 65 72 66 6c 6f 77 3a 20 20 20 20 20 h overflow:
89a0: 24 76 61 6c 22 0a 20 20 69 66 63 61 70 61 62 6c $val". ifcapabl
89b0: 65 20 79 79 74 72 61 63 6b 6d 61 78 73 74 61 63 e yytrackmaxstac
89c0: 6b 64 65 70 74 68 20 7b 0a 20 20 20 20 73 65 74 kdepth {. set
89d0: 20 78 20 5b 73 71 6c 69 74 65 33 5f 73 74 61 74 x [sqlite3_stat
89e0: 75 73 20 53 51 4c 49 54 45 5f 53 54 41 54 55 53 us SQLITE_STATUS
89f0: 5f 50 41 52 53 45 52 5f 53 54 41 43 4b 20 30 5d _PARSER_STACK 0]
8a00: 0a 20 20 20 20 73 65 74 20 76 61 6c 20 5b 66 6f . set val [fo
8a10: 72 6d 61 74 20 7b 20 20 20 20 20 20 20 20 20 20 rmat {
8a20: 20 20 20 20 20 6d 61 78 20 25 31 30 64 7d 20 5b max %10d} [
8a30: 6c 69 6e 64 65 78 20 24 78 20 32 5d 5d 0a 20 20 lindex $x 2]].
8a40: 20 20 6f 75 74 70 75 74 32 20 22 50 61 72 73 65 output2 "Parse
8a50: 72 20 73 74 61 63 6b 20 64 65 70 74 68 3a 20 20 r stack depth:
8a60: 20 20 24 76 61 6c 22 0a 20 20 7d 0a 7d 0a 0a 23 $val". }.}..#
8a70: 20 41 20 70 72 6f 63 65 64 75 72 65 20 74 6f 20 A procedure to
8a80: 65 78 65 63 75 74 65 20 53 51 4c 0a 23 0a 70 72 execute SQL.#.pr
8a90: 6f 63 20 65 78 65 63 73 71 6c 20 7b 73 71 6c 20 oc execsql {sql
8aa0: 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 23 20 70 {db db}} {. # p
8ab0: 75 74 73 20 22 53 51 4c 20 3d 20 24 73 71 6c 22 uts "SQL = $sql"
8ac0: 0a 20 20 75 70 6c 65 76 65 6c 20 5b 6c 69 73 74 . uplevel [list
8ad0: 20 24 64 62 20 65 76 61 6c 20 24 73 71 6c 5d 0a $db eval $sql].
8ae0: 7d 0a 70 72 6f 63 20 65 78 65 63 73 71 6c 5f 74 }.proc execsql_t
8af0: 69 6d 65 64 20 7b 73 71 6c 20 7b 64 62 20 64 62 imed {sql {db db
8b00: 7d 7d 20 7b 0a 20 20 73 65 74 20 74 6d 20 5b 74 }} {. set tm [t
8b10: 69 6d 65 20 7b 0a 20 20 20 20 73 65 74 20 78 20 ime {. set x
8b20: 5b 75 70 6c 65 76 65 6c 20 5b 6c 69 73 74 20 24 [uplevel [list $
8b30: 64 62 20 65 76 61 6c 20 24 73 71 6c 5d 5d 0a 20 db eval $sql]].
8b40: 20 7d 20 31 5d 0a 20 20 73 65 74 20 74 6d 20 5b } 1]. set tm [
8b50: 6c 69 6e 64 65 78 20 24 74 6d 20 30 5d 0a 20 20 lindex $tm 0].
8b60: 6f 75 74 70 75 74 31 20 2d 6e 6f 6e 65 77 6c 69 output1 -nonewli
8b70: 6e 65 20 22 20 28 5b 65 78 70 72 20 7b 24 74 6d ne " ([expr {$tm
8b80: 2a 30 2e 30 30 31 7d 5d 6d 73 29 20 22 0a 20 20 *0.001}]ms) ".
8b90: 73 65 74 20 78 0a 7d 0a 0a 23 20 45 78 65 63 75 set x.}..# Execu
8ba0: 74 65 20 53 51 4c 20 61 6e 64 20 63 61 74 63 68 te SQL and catch
8bb0: 20 65 78 63 65 70 74 69 6f 6e 73 2e 0a 23 0a 70 exceptions..#.p
8bc0: 72 6f 63 20 63 61 74 63 68 73 71 6c 20 7b 73 71 roc catchsql {sq
8bd0: 6c 20 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 23 l {db db}} {. #
8be0: 20 70 75 74 73 20 22 53 51 4c 20 3d 20 24 73 71 puts "SQL = $sq
8bf0: 6c 22 0a 20 20 73 65 74 20 72 20 5b 63 61 74 63 l". set r [catc
8c00: 68 20 5b 6c 69 73 74 20 75 70 6c 65 76 65 6c 20 h [list uplevel
8c10: 5b 6c 69 73 74 20 24 64 62 20 65 76 61 6c 20 24 [list $db eval $
8c20: 73 71 6c 5d 5d 20 6d 73 67 5d 0a 20 20 6c 61 70 sql]] msg]. lap
8c30: 70 65 6e 64 20 72 20 24 6d 73 67 0a 20 20 72 65 pend r $msg. re
8c40: 74 75 72 6e 20 24 72 0a 7d 0a 0a 23 20 44 6f 20 turn $r.}..# Do
8c50: 61 6e 20 56 44 42 45 20 63 6f 64 65 20 64 75 6d an VDBE code dum
8c60: 70 20 6f 6e 20 74 68 65 20 53 51 4c 20 67 69 76 p on the SQL giv
8c70: 65 6e 0a 23 0a 70 72 6f 63 20 65 78 70 6c 61 69 en.#.proc explai
8c80: 6e 20 7b 73 71 6c 20 7b 64 62 20 64 62 7d 7d 20 n {sql {db db}}
8c90: 7b 0a 20 20 6f 75 74 70 75 74 32 20 22 22 0a 20 {. output2 "".
8ca0: 20 6f 75 74 70 75 74 32 20 22 61 64 64 72 20 20 output2 "addr
8cb0: 6f 70 63 6f 64 65 20 20 20 20 20 20 20 20 70 31 opcode p1
8cc0: 20 20 20 20 20 20 70 32 20 20 20 20 20 20 70 33 p2 p3
8cd0: 20 20 20 20 20 20 70 34 20 20 20 20 20 20 20 20 p4
8ce0: 20 20 20 20 20 20 20 70 35 20 20 23 22 0a 20 20 p5 #".
8cf0: 6f 75 74 70 75 74 32 20 22 2d 2d 2d 2d 20 20 2d output2 "---- -
8d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d ----------- ---
8d10: 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d --- ------ ---
8d20: 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d --- -----------
8d30: 2d 2d 2d 2d 20 20 2d 2d 20 20 2d 22 0a 20 20 24 ---- -- -". $
8d40: 64 62 20 65 76 61 6c 20 22 65 78 70 6c 61 69 6e db eval "explain
8d50: 20 24 73 71 6c 22 20 7b 7d 20 7b 0a 20 20 20 20 $sql" {} {.
8d60: 6f 75 74 70 75 74 32 20 5b 66 6f 72 6d 61 74 20 output2 [format
8d70: 7b 25 2d 34 64 20 20 25 2d 31 32 2e 31 32 73 20 {%-4d %-12.12s
8d80: 20 25 2d 36 64 20 20 25 2d 36 64 20 20 25 2d 36 %-6d %-6d %-6
8d90: 64 20 20 25 20 2d 31 37 73 20 25 73 20 20 25 73 d % -17s %s %s
8da0: 7d 20 5c 0a 20 20 20 20 20 20 24 61 64 64 72 20 } \. $addr
8db0: 24 6f 70 63 6f 64 65 20 24 70 31 20 24 70 32 20 $opcode $p1 $p2
8dc0: 24 70 33 20 24 70 34 20 24 70 35 20 24 63 6f 6d $p3 $p4 $p5 $com
8dd0: 6d 65 6e 74 0a 20 20 20 20 5d 0a 20 20 7d 0a 7d ment. ]. }.}
8de0: 0a 0a 70 72 6f 63 20 65 78 70 6c 61 69 6e 5f 69 ..proc explain_i
8df0: 20 7b 73 71 6c 20 7b 64 62 20 64 62 7d 7d 20 7b {sql {db db}} {
8e00: 0a 20 20 6f 75 74 70 75 74 32 20 22 22 0a 20 20 . output2 "".
8e10: 6f 75 74 70 75 74 32 20 22 61 64 64 72 20 20 6f output2 "addr o
8e20: 70 63 6f 64 65 20 20 20 20 20 20 20 20 70 31 20 pcode p1
8e30: 20 20 20 20 20 70 32 20 20 20 20 20 20 70 33 20 p2 p3
8e40: 20 20 20 20 20 70 34 20 20 20 20 20 20 20 20 20 p4
8e50: 20 20 20 20 20 20 20 70 35 20 20 23 22 0a 20 20 p5 #".
8e60: 6f 75 74 70 75 74 32 20 22 2d 2d 2d 2d 20 20 2d output2 "---- -
8e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d ----------- ---
8e80: 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d --- ------ ---
8e90: 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d --- -----------
8ea0: 2d 2d 2d 2d 2d 20 20 2d 2d 20 20 2d 22 0a 0a 0a ----- -- -"...
8eb0: 20 20 23 20 53 65 74 20 75 70 20 63 6f 6c 6f 72 # Set up color
8ec0: 73 20 66 6f 72 20 74 68 65 20 64 69 66 66 65 72 s for the differ
8ed0: 65 6e 74 20 6f 70 63 6f 64 65 73 2e 20 53 63 68 ent opcodes. Sch
8ee0: 65 6d 65 20 69 73 20 61 73 20 66 6f 6c 6c 6f 77 eme is as follow
8ef0: 73 3a 0a 20 20 23 0a 20 20 23 20 20 20 52 65 64 s:. #. # Red
8f00: 3a 20 20 20 4f 70 63 6f 64 65 73 20 74 68 61 74 : Opcodes that
8f10: 20 77 72 69 74 65 20 74 6f 20 61 20 62 2d 74 72 write to a b-tr
8f20: 65 65 2e 0a 20 20 23 20 20 20 42 6c 75 65 3a 20 ee.. # Blue:
8f30: 20 4f 70 63 6f 64 65 73 20 74 68 61 74 20 72 65 Opcodes that re
8f40: 70 6f 73 69 74 69 6f 6e 20 6f 72 20 73 65 65 6b position or seek
8f50: 20 61 20 63 75 72 73 6f 72 2e 20 0a 20 20 23 20 a cursor. . #
8f60: 20 20 47 72 65 65 6e 3a 20 54 68 65 20 52 65 73 Green: The Res
8f70: 75 6c 74 52 6f 77 20 6f 70 63 6f 64 65 2e 0a 20 ultRow opcode..
8f80: 20 23 0a 20 20 69 66 20 7b 20 5b 63 61 74 63 68 #. if { [catch
8f90: 20 7b 66 63 6f 6e 66 69 67 75 72 65 20 73 74 64 {fconfigure std
8fa0: 6f 75 74 20 2d 6d 6f 64 65 7d 5d 3d 3d 30 20 7d out -mode}]==0 }
8fb0: 20 7b 0a 20 20 20 20 73 65 74 20 52 20 22 5c 30 {. set R "\0
8fc0: 33 33 5c 5b 33 31 3b 31 6d 22 20 20 20 20 20 20 33\[31;1m"
8fd0: 20 20 3b 23 20 52 65 64 20 66 67 0a 20 20 20 20 ;# Red fg.
8fe0: 73 65 74 20 47 20 22 5c 30 33 33 5c 5b 33 32 3b set G "\033\[32;
8ff0: 31 6d 22 20 20 20 20 20 20 20 20 3b 23 20 47 72 1m" ;# Gr
9000: 65 65 6e 20 66 67 0a 20 20 20 20 73 65 74 20 42 een fg. set B
9010: 20 22 5c 30 33 33 5c 5b 33 34 3b 31 6d 22 20 20 "\033\[34;1m"
9020: 20 20 20 20 20 20 3b 23 20 52 65 64 20 66 67 0a ;# Red fg.
9030: 20 20 20 20 73 65 74 20 44 20 22 5c 30 33 33 5c set D "\033\
9040: 5b 33 39 3b 30 6d 22 20 20 20 20 20 20 20 20 3b [39;0m" ;
9050: 23 20 44 65 66 61 75 6c 74 20 66 67 0a 20 20 7d # Default fg. }
9060: 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20 else {. set
9070: 52 20 22 22 0a 20 20 20 20 73 65 74 20 47 20 22 R "". set G "
9080: 22 0a 20 20 20 20 73 65 74 20 42 20 22 22 0a 20 ". set B "".
9090: 20 20 20 73 65 74 20 44 20 22 22 0a 20 20 7d 0a set D "". }.
90a0: 20 20 66 6f 72 65 61 63 68 20 6f 70 63 6f 64 65 foreach opcode
90b0: 20 7b 0a 20 20 20 20 20 20 53 65 65 6b 20 53 65 {. Seek Se
90c0: 65 6b 47 65 20 53 65 65 6b 47 74 20 53 65 65 6b ekGe SeekGt Seek
90d0: 4c 65 20 53 65 65 6b 4c 74 20 4e 6f 74 46 6f 75 Le SeekLt NotFou
90e0: 6e 64 20 4c 61 73 74 20 52 65 77 69 6e 64 0a 20 nd Last Rewind.
90f0: 20 20 20 20 20 4e 6f 43 6f 6e 66 6c 69 63 74 20 NoConflict
9100: 4e 65 78 74 20 50 72 65 76 20 56 4e 65 78 74 20 Next Prev VNext
9110: 56 50 72 65 76 20 56 46 69 6c 74 65 72 0a 20 20 VPrev VFilter.
9120: 20 20 20 20 53 6f 72 74 65 72 53 6f 72 74 20 53 SorterSort S
9130: 6f 72 74 65 72 4e 65 78 74 0a 20 20 7d 20 7b 0a orterNext. } {.
9140: 20 20 20 20 73 65 74 20 63 6f 6c 6f 72 28 24 6f set color($o
9150: 70 63 6f 64 65 29 20 24 42 0a 20 20 7d 0a 20 20 pcode) $B. }.
9160: 66 6f 72 65 61 63 68 20 6f 70 63 6f 64 65 20 7b foreach opcode {
9170: 52 65 73 75 6c 74 52 6f 77 7d 20 7b 0a 20 20 20 ResultRow} {.
9180: 20 73 65 74 20 63 6f 6c 6f 72 28 24 6f 70 63 6f set color($opco
9190: 64 65 29 20 24 47 0a 20 20 7d 0a 20 20 66 6f 72 de) $G. }. for
91a0: 65 61 63 68 20 6f 70 63 6f 64 65 20 7b 49 64 78 each opcode {Idx
91b0: 49 6e 73 65 72 74 20 49 6e 73 65 72 74 20 44 65 Insert Insert De
91c0: 6c 65 74 65 20 49 64 78 44 65 6c 65 74 65 7d 20 lete IdxDelete}
91d0: 7b 0a 20 20 20 20 73 65 74 20 63 6f 6c 6f 72 28 {. set color(
91e0: 24 6f 70 63 6f 64 65 29 20 24 52 0a 20 20 7d 0a $opcode) $R. }.
91f0: 0a 20 20 73 65 74 20 62 53 65 65 6e 47 6f 74 6f . set bSeenGoto
9200: 20 30 0a 20 20 24 64 62 20 65 76 61 6c 20 22 65 0. $db eval "e
9210: 78 70 6c 61 69 6e 20 24 73 71 6c 22 20 7b 7d 20 xplain $sql" {}
9220: 7b 0a 20 20 20 20 73 65 74 20 78 28 24 61 64 64 {. set x($add
9230: 72 29 20 30 0a 20 20 20 20 73 65 74 20 6f 70 28 r) 0. set op(
9240: 24 61 64 64 72 29 20 24 6f 70 63 6f 64 65 0a 0a $addr) $opcode..
9250: 20 20 20 20 69 66 20 7b 24 6f 70 63 6f 64 65 20 if {$opcode
9260: 3d 3d 20 22 47 6f 74 6f 22 20 26 26 20 28 24 62 == "Goto" && ($b
9270: 53 65 65 6e 47 6f 74 6f 3d 3d 30 20 7c 7c 20 28 SeenGoto==0 || (
9280: 24 70 32 20 3e 20 24 61 64 64 72 2b 31 30 29 29 $p2 > $addr+10))
9290: 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 6c 69 } {. set li
92a0: 6e 65 62 72 65 61 6b 28 24 70 32 29 20 31 0a 20 nebreak($p2) 1.
92b0: 20 20 20 20 20 73 65 74 20 62 53 65 65 6e 47 6f set bSeenGo
92c0: 74 6f 20 31 0a 20 20 20 20 7d 0a 0a 20 20 20 20 to 1. }..
92d0: 69 66 20 7b 24 6f 70 63 6f 64 65 3d 3d 22 4e 65 if {$opcode=="Ne
92e0: 78 74 22 20 20 7c 7c 20 24 6f 70 63 6f 64 65 3d xt" || $opcode=
92f0: 3d 22 50 72 65 76 22 20 0a 20 20 20 20 20 7c 7c ="Prev" . ||
9300: 20 24 6f 70 63 6f 64 65 3d 3d 22 56 4e 65 78 74 $opcode=="VNext
9310: 22 20 7c 7c 20 24 6f 70 63 6f 64 65 3d 3d 22 56 " || $opcode=="V
9320: 50 72 65 76 22 0a 20 20 20 20 20 7c 7c 20 24 6f Prev". || $o
9330: 70 63 6f 64 65 3d 3d 22 53 6f 72 74 65 72 4e 65 pcode=="SorterNe
9340: 78 74 22 0a 20 20 20 20 7d 20 7b 0a 20 20 20 20 xt". } {.
9350: 20 20 66 6f 72 20 7b 73 65 74 20 69 20 24 70 32 for {set i $p2
9360: 7d 20 7b 24 69 3c 24 61 64 64 72 7d 20 7b 69 6e } {$i<$addr} {in
9370: 63 72 20 69 7d 20 7b 0a 20 20 20 20 20 20 20 20 cr i} {.
9380: 69 6e 63 72 20 78 28 24 69 29 20 32 0a 20 20 20 incr x($i) 2.
9390: 20 20 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 }. }..
93a0: 69 66 20 7b 24 6f 70 63 6f 64 65 20 3d 3d 20 22 if {$opcode == "
93b0: 47 6f 74 6f 22 20 26 26 20 24 70 32 3c 24 61 64 Goto" && $p2<$ad
93c0: 64 72 20 26 26 20 24 6f 70 28 24 70 32 29 3d 3d dr && $op($p2)==
93d0: 22 59 69 65 6c 64 22 7d 20 7b 0a 20 20 20 20 20 "Yield"} {.
93e0: 20 66 6f 72 20 7b 73 65 74 20 69 20 5b 65 78 70 for {set i [exp
93f0: 72 20 24 70 32 2b 31 5d 7d 20 7b 24 69 3c 24 61 r $p2+1]} {$i<$a
9400: 64 64 72 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a ddr} {incr i} {.
9410: 20 20 20 20 20 20 20 20 69 6e 63 72 20 78 28 24 incr x($
9420: 69 29 20 32 0a 20 20 20 20 20 20 7d 0a 20 20 20 i) 2. }.
9430: 20 7d 0a 0a 20 20 20 20 69 66 20 7b 24 6f 70 63 }.. if {$opc
9440: 6f 64 65 20 3d 3d 20 22 48 61 6c 74 22 20 26 26 ode == "Halt" &&
9450: 20 24 63 6f 6d 6d 65 6e 74 20 3d 3d 20 22 45 6e $comment == "En
9460: 64 20 6f 66 20 63 6f 72 6f 75 74 69 6e 65 22 7d d of coroutine"}
9470: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 6c 69 6e {. set lin
9480: 65 62 72 65 61 6b 28 5b 65 78 70 72 20 24 61 64 ebreak([expr $ad
9490: 64 72 2b 31 5d 29 20 31 0a 20 20 20 20 7d 0a 20 dr+1]) 1. }.
94a0: 20 7d 0a 0a 20 20 24 64 62 20 65 76 61 6c 20 22 }.. $db eval "
94b0: 65 78 70 6c 61 69 6e 20 24 73 71 6c 22 20 7b 7d explain $sql" {}
94c0: 20 7b 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f {. if {[info
94d0: 20 65 78 69 73 74 73 20 6c 69 6e 65 62 72 65 61 exists linebrea
94e0: 6b 28 24 61 64 64 72 29 5d 7d 20 7b 0a 20 20 20 k($addr)]} {.
94f0: 20 20 20 6f 75 74 70 75 74 32 20 22 22 0a 20 20 output2 "".
9500: 20 20 7d 0a 20 20 20 20 73 65 74 20 49 20 5b 73 }. set I [s
9510: 74 72 69 6e 67 20 72 65 70 65 61 74 20 22 20 22 tring repeat " "
9520: 20 24 78 28 24 61 64 64 72 29 5d 0a 0a 20 20 20 $x($addr)]..
9530: 20 73 65 74 20 63 6f 6c 20 22 22 0a 20 20 20 20 set col "".
9540: 63 61 74 63 68 20 7b 20 73 65 74 20 63 6f 6c 20 catch { set col
9550: 24 63 6f 6c 6f 72 28 24 6f 70 63 6f 64 65 29 20 $color($opcode)
9560: 7d 0a 0a 20 20 20 20 6f 75 74 70 75 74 32 20 5b }.. output2 [
9570: 66 6f 72 6d 61 74 20 7b 25 2d 34 64 20 20 25 73 format {%-4d %s
9580: 25 73 25 2d 31 32 2e 31 32 73 25 73 20 20 25 2d %s%-12.12s%s %-
9590: 36 64 20 20 25 2d 36 64 20 20 25 2d 36 64 20 20 6d %-6d %-6d
95a0: 25 20 2d 31 37 73 20 25 73 20 20 25 73 7d 20 5c % -17s %s %s} \
95b0: 0a 20 20 20 20 20 20 24 61 64 64 72 20 24 49 20 . $addr $I
95c0: 24 63 6f 6c 20 24 6f 70 63 6f 64 65 20 24 44 20 $col $opcode $D
95d0: 24 70 31 20 24 70 32 20 24 70 33 20 24 70 34 20 $p1 $p2 $p3 $p4
95e0: 24 70 35 20 24 63 6f 6d 6d 65 6e 74 0a 20 20 20 $p5 $comment.
95f0: 20 5d 0a 20 20 7d 0a 20 20 6f 75 74 70 75 74 32 ]. }. output2
9600: 20 22 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d "---- --------
9610: 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d ---- ------ --
9620: 2d 2d 2d 2d 20 20 2d 2d 2d 2d 2d 2d 20 20 2d 2d ---- ------ --
9630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 --------------
9640: 2d 2d 20 20 2d 22 0a 7d 0a 0a 23 20 53 68 6f 77 -- -".}..# Show
9650: 20 74 68 65 20 56 44 42 45 20 70 72 6f 67 72 61 the VDBE progra
9660: 6d 20 66 6f 72 20 61 6e 20 53 51 4c 20 73 74 61 m for an SQL sta
9670: 74 65 6d 65 6e 74 20 62 75 74 20 6f 6d 69 74 20 tement but omit
9680: 74 68 65 20 54 72 61 63 65 0a 23 20 6f 70 63 6f the Trace.# opco
9690: 64 65 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e de at the beginn
96a0: 69 6e 67 2e 20 20 54 68 69 73 20 70 72 6f 63 65 ing. This proce
96b0: 64 75 72 65 20 63 61 6e 20 62 65 20 75 73 65 64 dure can be used
96c0: 20 74 6f 20 70 72 6f 76 65 0a 23 20 74 68 61 74 to prove.# that
96d0: 20 64 69 66 66 65 72 65 6e 74 20 53 51 4c 20 73 different SQL s
96e0: 74 61 74 65 6d 65 6e 74 73 20 67 65 6e 65 72 61 tatements genera
96f0: 74 65 20 65 78 61 63 74 6c 79 20 74 68 65 20 73 te exactly the s
9700: 61 6d 65 20 56 44 42 45 20 63 6f 64 65 2e 0a 23 ame VDBE code..#
9710: 0a 70 72 6f 63 20 65 78 70 6c 61 69 6e 5f 6e 6f .proc explain_no
9720: 5f 74 72 61 63 65 20 7b 73 71 6c 7d 20 7b 0a 20 _trace {sql} {.
9730: 20 73 65 74 20 74 72 20 5b 64 62 20 65 76 61 6c set tr [db eval
9740: 20 22 45 58 50 4c 41 49 4e 20 24 73 71 6c 22 5d "EXPLAIN $sql"]
9750: 0a 20 20 72 65 74 75 72 6e 20 5b 6c 72 61 6e 67 . return [lrang
9760: 65 20 24 74 72 20 37 20 65 6e 64 5d 0a 7d 0a 0a e $tr 7 end].}..
9770: 23 20 41 6e 6f 74 68 65 72 20 70 72 6f 63 65 64 # Another proced
9780: 75 72 65 20 74 6f 20 65 78 65 63 75 74 65 20 53 ure to execute S
9790: 51 4c 2e 20 20 54 68 69 73 20 6f 6e 65 20 69 6e QL. This one in
97a0: 63 6c 75 64 65 73 20 74 68 65 20 66 69 65 6c 64 cludes the field
97b0: 0a 23 20 6e 61 6d 65 73 20 69 6e 20 74 68 65 20 .# names in the
97c0: 72 65 74 75 72 6e 65 64 20 6c 69 73 74 2e 0a 23 returned list..#
97d0: 0a 70 72 6f 63 20 65 78 65 63 73 71 6c 32 20 7b .proc execsql2 {
97e0: 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20 72 65 73 sql} {. set res
97f0: 75 6c 74 20 7b 7d 0a 20 20 64 62 20 65 76 61 6c ult {}. db eval
9800: 20 24 73 71 6c 20 64 61 74 61 20 7b 0a 20 20 20 $sql data {.
9810: 20 66 6f 72 65 61 63 68 20 66 20 24 64 61 74 61 foreach f $data
9820: 28 2a 29 20 7b 0a 20 20 20 20 20 20 6c 61 70 70 (*) {. lapp
9830: 65 6e 64 20 72 65 73 75 6c 74 20 24 66 20 24 64 end result $f $d
9840: 61 74 61 28 24 66 29 0a 20 20 20 20 7d 0a 20 20 ata($f). }.
9850: 7d 0a 20 20 72 65 74 75 72 6e 20 24 72 65 73 75 }. return $resu
9860: 6c 74 0a 7d 0a 0a 23 20 55 73 65 20 61 20 74 65 lt.}..# Use a te
9870: 6d 70 6f 72 61 72 79 20 69 6e 2d 6d 65 6d 6f 72 mporary in-memor
9880: 79 20 64 61 74 61 62 61 73 65 20 74 6f 20 65 78 y database to ex
9890: 65 63 75 74 65 20 53 51 4c 20 73 74 61 74 65 6d ecute SQL statem
98a0: 65 6e 74 73 0a 23 0a 70 72 6f 63 20 6d 65 6d 64 ents.#.proc memd
98b0: 62 73 71 6c 20 7b 73 71 6c 7d 20 7b 0a 20 20 73 bsql {sql} {. s
98c0: 71 6c 69 74 65 33 20 6d 65 6d 64 62 20 3a 6d 65 qlite3 memdb :me
98d0: 6d 6f 72 79 3a 0a 20 20 73 65 74 20 72 65 73 75 mory:. set resu
98e0: 6c 74 20 5b 6d 65 6d 64 62 20 65 76 61 6c 20 24 lt [memdb eval $
98f0: 73 71 6c 5d 0a 20 20 6d 65 6d 64 62 20 63 6c 6f sql]. memdb clo
9900: 73 65 0a 20 20 72 65 74 75 72 6e 20 24 72 65 73 se. return $res
9910: 75 6c 74 0a 7d 0a 0a 23 20 55 73 65 20 74 68 65 ult.}..# Use the
9920: 20 6e 6f 6e 2d 63 61 6c 6c 62 61 63 6b 20 41 50 non-callback AP
9930: 49 20 74 6f 20 65 78 65 63 75 74 65 20 6d 75 6c I to execute mul
9940: 74 69 70 6c 65 20 53 51 4c 20 73 74 61 74 65 6d tiple SQL statem
9950: 65 6e 74 73 0a 23 0a 70 72 6f 63 20 73 74 65 70 ents.#.proc step
9960: 73 71 6c 20 7b 64 62 70 74 72 20 73 71 6c 7d 20 sql {dbptr sql}
9970: 7b 0a 20 20 73 65 74 20 73 71 6c 20 5b 73 74 72 {. set sql [str
9980: 69 6e 67 20 74 72 69 6d 20 24 73 71 6c 5d 0a 20 ing trim $sql].
9990: 20 73 65 74 20 72 20 30 0a 20 20 77 68 69 6c 65 set r 0. while
99a0: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 {[string length
99b0: 20 24 73 71 6c 5d 3e 30 7d 20 7b 0a 20 20 20 20 $sql]>0} {.
99c0: 69 66 20 7b 5b 63 61 74 63 68 20 7b 73 71 6c 69 if {[catch {sqli
99d0: 74 65 33 5f 70 72 65 70 61 72 65 20 24 64 62 70 te3_prepare $dbp
99e0: 74 72 20 24 73 71 6c 20 2d 31 20 73 71 6c 74 61 tr $sql -1 sqlta
99f0: 69 6c 7d 20 76 6d 5d 7d 20 7b 0a 20 20 20 20 20 il} vm]} {.
9a00: 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 20 31 20 return [list 1
9a10: 24 76 6d 5d 0a 20 20 20 20 7d 0a 20 20 20 20 73 $vm]. }. s
9a20: 65 74 20 73 71 6c 20 5b 73 74 72 69 6e 67 20 74 et sql [string t
9a30: 72 69 6d 20 24 73 71 6c 74 61 69 6c 5d 0a 23 20 rim $sqltail].#
9a40: 20 20 20 77 68 69 6c 65 20 7b 5b 73 71 6c 69 74 while {[sqlit
9a50: 65 5f 73 74 65 70 20 24 76 6d 20 4e 20 56 41 4c e_step $vm N VAL
9a60: 20 43 4f 4c 5d 3d 3d 22 53 51 4c 49 54 45 5f 52 COL]=="SQLITE_R
9a70: 4f 57 22 7d 20 7b 0a 23 20 20 20 20 20 20 66 6f OW"} {.# fo
9a80: 72 65 61 63 68 20 76 20 24 56 41 4c 20 7b 6c 61 reach v $VAL {la
9a90: 70 70 65 6e 64 20 72 20 24 76 7d 0a 23 20 20 20 ppend r $v}.#
9aa0: 20 7d 0a 20 20 20 20 77 68 69 6c 65 20 7b 5b 73 }. while {[s
9ab0: 71 6c 69 74 65 33 5f 73 74 65 70 20 24 76 6d 5d qlite3_step $vm]
9ac0: 3d 3d 22 53 51 4c 49 54 45 5f 52 4f 57 22 7d 20 =="SQLITE_ROW"}
9ad0: 7b 0a 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74 {. for {set
9ae0: 20 69 20 30 7d 20 7b 24 69 3c 5b 73 71 6c 69 74 i 0} {$i<[sqlit
9af0: 65 33 5f 64 61 74 61 5f 63 6f 75 6e 74 20 24 76 e3_data_count $v
9b00: 6d 5d 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 m]} {incr i} {.
9b10: 20 20 20 20 20 20 20 6c 61 70 70 65 6e 64 20 72 lappend r
9b20: 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e [sqlite3_column
9b30: 5f 74 65 78 74 20 24 76 6d 20 24 69 5d 0a 20 20 _text $vm $i].
9b40: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 }. }.
9b50: 69 66 20 7b 5b 63 61 74 63 68 20 7b 73 71 6c 69 if {[catch {sqli
9b60: 74 65 33 5f 66 69 6e 61 6c 69 7a 65 20 24 76 6d te3_finalize $vm
9b70: 7d 20 65 72 72 6d 73 67 5d 7d 20 7b 0a 20 20 20 } errmsg]} {.
9b80: 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 20 return [list
9b90: 31 20 24 65 72 72 6d 73 67 5d 0a 20 20 20 20 7d 1 $errmsg]. }
9ba0: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 24 72 . }. return $r
9bb0: 0a 7d 0a 0a 23 20 44 6f 20 61 6e 20 69 6e 74 65 .}..# Do an inte
9bc0: 67 72 69 74 79 20 63 68 65 63 6b 20 6f 66 20 74 grity check of t
9bd0: 68 65 20 65 6e 74 69 72 65 20 64 61 74 61 62 61 he entire databa
9be0: 73 65 0a 23 0a 70 72 6f 63 20 69 6e 74 65 67 72 se.#.proc integr
9bf0: 69 74 79 5f 63 68 65 63 6b 20 7b 6e 61 6d 65 20 ity_check {name
9c00: 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 69 66 63 {db db}} {. ifc
9c10: 61 70 61 62 6c 65 20 69 6e 74 65 67 72 69 74 79 apable integrity
9c20: 63 6b 20 7b 0a 20 20 20 20 64 6f 5f 74 65 73 74 ck {. do_test
9c30: 20 24 6e 61 6d 65 20 5b 6c 69 73 74 20 65 78 65 $name [list exe
9c40: 63 73 71 6c 20 7b 50 52 41 47 4d 41 20 69 6e 74 csql {PRAGMA int
9c50: 65 67 72 69 74 79 5f 63 68 65 63 6b 7d 20 24 64 egrity_check} $d
9c60: 62 5d 20 7b 6f 6b 7d 0a 20 20 7d 0a 7d 0a 0a 23 b] {ok}. }.}..#
9c70: 20 43 68 65 63 6b 20 74 68 65 20 65 78 74 65 6e Check the exten
9c80: 64 65 64 20 65 72 72 6f 72 20 63 6f 64 65 0a 23 ded error code.#
9c90: 0a 70 72 6f 63 20 76 65 72 69 66 79 5f 65 78 5f .proc verify_ex_
9ca0: 65 72 72 63 6f 64 65 20 7b 6e 61 6d 65 20 65 78 errcode {name ex
9cb0: 70 65 63 74 65 64 20 7b 64 62 20 64 62 7d 7d 20 pected {db db}}
9cc0: 7b 0a 20 20 64 6f 5f 74 65 73 74 20 24 6e 61 6d {. do_test $nam
9cd0: 65 20 5b 6c 69 73 74 20 73 71 6c 69 74 65 33 5f e [list sqlite3_
9ce0: 65 78 74 65 6e 64 65 64 5f 65 72 72 63 6f 64 65 extended_errcode
9cf0: 20 24 64 62 5d 20 24 65 78 70 65 63 74 65 64 0a $db] $expected.
9d00: 7d 0a 0a 0a 23 20 52 65 74 75 72 6e 20 74 72 75 }...# Return tru
9d10: 65 20 69 66 20 74 68 65 20 53 51 4c 20 73 74 61 e if the SQL sta
9d20: 74 65 6d 65 6e 74 20 70 61 73 73 65 64 20 61 73 tement passed as
9d30: 20 74 68 65 20 73 65 63 6f 6e 64 20 61 72 67 75 the second argu
9d40: 6d 65 6e 74 20 75 73 65 73 20 61 0a 23 20 73 74 ment uses a.# st
9d50: 61 74 65 6d 65 6e 74 20 74 72 61 6e 73 61 63 74 atement transact
9d60: 69 6f 6e 2e 0a 23 0a 70 72 6f 63 20 73 71 6c 5f ion..#.proc sql_
9d70: 75 73 65 73 5f 73 74 6d 74 20 7b 64 62 20 73 71 uses_stmt {db sq
9d80: 6c 7d 20 7b 0a 20 20 73 65 74 20 73 74 6d 74 20 l} {. set stmt
9d90: 5b 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 [sqlite3_prepare
9da0: 20 24 64 62 20 24 73 71 6c 20 2d 31 20 64 75 6d $db $sql -1 dum
9db0: 6d 79 5d 0a 20 20 73 65 74 20 75 73 65 73 20 5b my]. set uses [
9dc0: 75 73 65 73 5f 73 74 6d 74 5f 6a 6f 75 72 6e 61 uses_stmt_journa
9dd0: 6c 20 24 73 74 6d 74 5d 0a 20 20 73 71 6c 69 74 l $stmt]. sqlit
9de0: 65 33 5f 66 69 6e 61 6c 69 7a 65 20 24 73 74 6d e3_finalize $stm
9df0: 74 0a 20 20 72 65 74 75 72 6e 20 24 75 73 65 73 t. return $uses
9e00: 0a 7d 0a 0a 70 72 6f 63 20 66 69 78 5f 69 66 63 .}..proc fix_ifc
9e10: 61 70 61 62 6c 65 5f 65 78 70 72 20 7b 65 78 70 apable_expr {exp
9e20: 72 7d 20 7b 0a 20 20 73 65 74 20 72 65 74 20 22 r} {. set ret "
9e30: 22 0a 20 20 73 65 74 20 73 74 61 74 65 20 30 0a ". set state 0.
9e40: 20 20 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 for {set i 0}
9e50: 7b 24 69 20 3c 20 5b 73 74 72 69 6e 67 20 6c 65 {$i < [string le
9e60: 6e 67 74 68 20 24 65 78 70 72 5d 7d 20 7b 69 6e ngth $expr]} {in
9e70: 63 72 20 69 7d 20 7b 0a 20 20 20 20 73 65 74 20 cr i} {. set
9e80: 63 68 61 72 20 5b 73 74 72 69 6e 67 20 72 61 6e char [string ran
9e90: 67 65 20 24 65 78 70 72 20 24 69 20 24 69 5d 0a ge $expr $i $i].
9ea0: 20 20 20 20 73 65 74 20 6e 65 77 73 74 61 74 65 set newstate
9eb0: 20 5b 65 78 70 72 20 7b 5b 73 74 72 69 6e 67 20 [expr {[string
9ec0: 69 73 20 61 6c 6e 75 6d 20 24 63 68 61 72 5d 20 is alnum $char]
9ed0: 7c 7c 20 24 63 68 61 72 20 65 71 20 22 5f 22 7d || $char eq "_"}
9ee0: 5d 0a 20 20 20 20 69 66 20 7b 24 6e 65 77 73 74 ]. if {$newst
9ef0: 61 74 65 20 26 26 20 21 24 73 74 61 74 65 7d 20 ate && !$state}
9f00: 7b 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20 72 {. append r
9f10: 65 74 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 6f 70 et {$::sqlite_op
9f20: 74 69 6f 6e 73 28 7d 0a 20 20 20 20 7d 0a 20 20 tions(}. }.
9f30: 20 20 69 66 20 7b 21 24 6e 65 77 73 74 61 74 65 if {!$newstate
9f40: 20 26 26 20 24 73 74 61 74 65 7d 20 7b 0a 20 20 && $state} {.
9f50: 20 20 20 20 61 70 70 65 6e 64 20 72 65 74 20 29 append ret )
9f60: 0a 20 20 20 20 7d 0a 20 20 20 20 61 70 70 65 6e . }. appen
9f70: 64 20 72 65 74 20 24 63 68 61 72 0a 20 20 20 20 d ret $char.
9f80: 73 65 74 20 73 74 61 74 65 20 24 6e 65 77 73 74 set state $newst
9f90: 61 74 65 0a 20 20 7d 0a 20 20 69 66 20 7b 24 73 ate. }. if {$s
9fa0: 74 61 74 65 7d 20 7b 61 70 70 65 6e 64 20 72 65 tate} {append re
9fb0: 74 20 29 7d 0a 20 20 72 65 74 75 72 6e 20 24 72 t )}. return $r
9fc0: 65 74 0a 7d 0a 0a 23 20 52 65 74 75 72 6e 73 20 et.}..# Returns
9fd0: 6e 6f 6e 2d 7a 65 72 6f 20 69 66 20 74 68 65 20 non-zero if the
9fe0: 63 61 70 61 62 69 6c 69 74 69 65 73 20 61 72 65 capabilities are
9ff0: 20 70 72 65 73 65 6e 74 3b 20 7a 65 72 6f 20 6f present; zero o
a000: 74 68 65 72 77 69 73 65 2e 0a 23 0a 70 72 6f 63 therwise..#.proc
a010: 20 63 61 70 61 62 6c 65 20 7b 65 78 70 72 7d 20 capable {expr}
a020: 7b 0a 20 20 73 65 74 20 65 20 5b 66 69 78 5f 69 {. set e [fix_i
a030: 66 63 61 70 61 62 6c 65 5f 65 78 70 72 20 24 65 fcapable_expr $e
a040: 78 70 72 5d 3b 20 72 65 74 75 72 6e 20 5b 65 78 xpr]; return [ex
a050: 70 72 20 28 24 65 29 5d 0a 7d 0a 0a 23 20 45 76 pr ($e)].}..# Ev
a060: 61 6c 75 61 74 65 20 61 20 62 6f 6f 6c 65 61 6e aluate a boolean
a070: 20 65 78 70 72 65 73 73 69 6f 6e 20 6f 66 20 63 expression of c
a080: 61 70 61 62 69 6c 69 74 69 65 73 2e 20 20 49 66 apabilities. If
a090: 20 74 72 75 65 2c 20 65 78 65 63 75 74 65 20 74 true, execute t
a0a0: 68 65 0a 23 20 63 6f 64 65 2e 20 20 4f 6d 69 74 he.# code. Omit
a0b0: 20 74 68 65 20 63 6f 64 65 20 69 66 20 66 61 6c the code if fal
a0c0: 73 65 2e 0a 23 0a 70 72 6f 63 20 69 66 63 61 70 se..#.proc ifcap
a0d0: 61 62 6c 65 20 7b 65 78 70 72 20 63 6f 64 65 20 able {expr code
a0e0: 7b 65 6c 73 65 20 22 22 7d 20 7b 65 6c 73 65 63 {else ""} {elsec
a0f0: 6f 64 65 20 22 22 7d 7d 20 7b 0a 20 20 23 72 65 ode ""}} {. #re
a100: 67 73 75 62 20 2d 61 6c 6c 20 7b 5b 61 2d 7a 5f gsub -all {[a-z_
a110: 30 2d 39 5d 2b 7d 20 24 65 78 70 72 20 7b 24 3a 0-9]+} $expr {$:
a120: 3a 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 28 :sqlite_options(
a130: 26 29 7d 20 65 32 0a 20 20 73 65 74 20 65 32 20 &)} e2. set e2
a140: 5b 66 69 78 5f 69 66 63 61 70 61 62 6c 65 5f 65 [fix_ifcapable_e
a150: 78 70 72 20 24 65 78 70 72 5d 0a 20 20 69 66 20 xpr $expr]. if
a160: 28 24 65 32 29 20 7b 0a 20 20 20 20 73 65 74 20 ($e2) {. set
a170: 63 20 5b 63 61 74 63 68 20 7b 75 70 6c 65 76 65 c [catch {upleve
a180: 6c 20 31 20 24 63 6f 64 65 7d 20 72 5d 0a 20 20 l 1 $code} r].
a190: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 } else {. set
a1a0: 20 63 20 5b 63 61 74 63 68 20 7b 75 70 6c 65 76 c [catch {uplev
a1b0: 65 6c 20 31 20 24 65 6c 73 65 63 6f 64 65 7d 20 el 1 $elsecode}
a1c0: 72 5d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 r]. }. return
a1d0: 2d 63 6f 64 65 20 24 63 20 24 72 0a 7d 0a 0a 23 -code $c $r.}..#
a1e0: 20 54 68 69 73 20 70 72 6f 63 20 65 78 65 63 73 This proc execs
a1f0: 20 61 20 73 65 70 65 72 61 74 65 20 70 72 6f 63 a seperate proc
a200: 65 73 73 20 74 68 61 74 20 63 72 61 73 68 65 73 ess that crashes
a210: 20 6d 69 64 77 61 79 20 74 68 72 6f 75 67 68 20 midway through
a220: 65 78 65 63 75 74 69 6e 67 0a 23 20 74 68 65 20 executing.# the
a230: 53 51 4c 20 73 63 72 69 70 74 20 24 73 71 6c 20 SQL script $sql
a240: 6f 6e 20 64 61 74 61 62 61 73 65 20 74 65 73 74 on database test
a250: 2e 64 62 2e 0a 23 0a 23 20 54 68 65 20 63 72 61 .db..#.# The cra
a260: 73 68 20 6f 63 63 75 72 73 20 64 75 72 69 6e 67 sh occurs during
a270: 20 61 20 73 79 6e 63 28 29 20 6f 66 20 66 69 6c a sync() of fil
a280: 65 20 24 63 72 61 73 68 66 69 6c 65 2e 20 57 68 e $crashfile. Wh
a290: 65 6e 20 74 68 65 20 63 72 61 73 68 0a 23 20 6f en the crash.# o
a2a0: 63 63 75 72 73 20 61 20 72 61 6e 64 6f 6d 20 73 ccurs a random s
a2b0: 75 62 73 65 74 20 6f 66 20 61 6c 6c 20 75 6e 73 ubset of all uns
a2c0: 79 6e 63 65 64 20 77 72 69 74 65 73 20 6d 61 64 ynced writes mad
a2d0: 65 20 62 79 20 74 68 65 20 70 72 6f 63 65 73 73 e by the process
a2e0: 20 61 72 65 0a 23 20 77 72 69 74 74 65 6e 20 69 are.# written i
a2f0: 6e 74 6f 20 74 68 65 20 66 69 6c 65 73 20 6f 6e nto the files on
a300: 20 64 69 73 6b 2e 20 41 72 67 75 6d 65 6e 74 20 disk. Argument
a310: 24 63 72 61 73 68 64 65 6c 61 79 20 69 6e 64 69 $crashdelay indi
a320: 63 61 74 65 73 20 74 68 65 0a 23 20 6e 75 6d 62 cates the.# numb
a330: 65 72 20 6f 66 20 66 69 6c 65 20 73 79 6e 63 73 er of file syncs
a340: 20 74 6f 20 77 61 69 74 20 62 65 66 6f 72 65 20 to wait before
a350: 63 72 61 73 68 69 6e 67 2e 0a 23 0a 23 20 54 68 crashing..#.# Th
a360: 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 e return value i
a370: 73 20 61 20 6c 69 73 74 20 6f 66 20 74 77 6f 20 s a list of two
a380: 65 6c 65 6d 65 6e 74 73 2e 20 54 68 65 20 66 69 elements. The fi
a390: 72 73 74 20 65 6c 65 6d 65 6e 74 20 69 73 20 61 rst element is a
a3a0: 0a 23 20 62 6f 6f 6c 65 61 6e 2c 20 69 6e 64 69 .# boolean, indi
a3b0: 63 61 74 69 6e 67 20 77 68 65 74 68 65 72 20 6f cating whether o
a3c0: 72 20 6e 6f 74 20 74 68 65 20 70 72 6f 63 65 73 r not the proces
a3d0: 73 20 61 63 74 75 61 6c 6c 79 20 63 72 61 73 68 s actually crash
a3e0: 65 64 20 6f 72 0a 23 20 72 65 70 6f 72 74 65 64 ed or.# reported
a3f0: 20 73 6f 6d 65 20 6f 74 68 65 72 20 65 72 72 6f some other erro
a400: 72 2e 20 54 68 65 20 73 65 63 6f 6e 64 20 65 6c r. The second el
a410: 65 6d 65 6e 74 20 69 6e 20 74 68 65 20 72 65 74 ement in the ret
a420: 75 72 6e 65 64 20 6c 69 73 74 20 69 73 20 74 68 urned list is th
a430: 65 0a 23 20 65 72 72 6f 72 20 6d 65 73 73 61 67 e.# error messag
a440: 65 2e 20 54 68 69 73 20 69 73 20 22 63 68 69 6c e. This is "chil
a450: 64 20 70 72 6f 63 65 73 73 20 65 78 69 74 65 64 d process exited
a460: 20 61 62 6e 6f 72 6d 61 6c 6c 79 22 20 69 66 20 abnormally" if
a470: 74 68 65 20 63 72 61 73 68 0a 23 20 6f 63 63 75 the crash.# occu
a480: 72 72 65 64 2e 0a 23 0a 23 20 20 20 63 72 61 73 rred..#.# cras
a490: 68 73 71 6c 20 2d 64 65 6c 61 79 20 43 52 41 53 hsql -delay CRAS
a4a0: 48 44 45 4c 41 59 20 2d 66 69 6c 65 20 43 52 41 HDELAY -file CRA
a4b0: 53 48 46 49 4c 45 20 3f 2d 62 6c 6f 63 6b 73 69 SHFILE ?-blocksi
a4c0: 7a 65 20 42 4c 4f 43 4b 53 49 5a 45 3f 20 24 73 ze BLOCKSIZE? $s
a4d0: 71 6c 0a 23 0a 70 72 6f 63 20 63 72 61 73 68 73 ql.#.proc crashs
a4e0: 71 6c 20 7b 61 72 67 73 7d 20 7b 0a 0a 20 20 73 ql {args} {.. s
a4f0: 65 74 20 62 6c 6f 63 6b 73 69 7a 65 20 22 22 0a et blocksize "".
a500: 20 20 73 65 74 20 63 72 61 73 68 64 65 6c 61 79 set crashdelay
a510: 20 31 0a 20 20 73 65 74 20 70 72 6e 67 73 65 65 1. set prngsee
a520: 64 20 30 0a 20 20 73 65 74 20 6f 70 65 6e 64 62 d 0. set opendb
a530: 20 7b 20 73 71 6c 69 74 65 33 20 64 62 20 74 65 { sqlite3 db te
a540: 73 74 2e 64 62 20 2d 76 66 73 20 63 72 61 73 68 st.db -vfs crash
a550: 20 7d 0a 20 20 73 65 74 20 74 63 6c 62 6f 64 79 }. set tclbody
a560: 20 7b 7d 0a 20 20 73 65 74 20 63 72 61 73 68 66 {}. set crashf
a570: 69 6c 65 20 22 22 0a 20 20 73 65 74 20 64 63 20 ile "". set dc
a580: 22 22 0a 20 20 73 65 74 20 73 71 6c 20 5b 6c 69 "". set sql [li
a590: 6e 64 65 78 20 24 61 72 67 73 20 65 6e 64 5d 0a ndex $args end].
a5a0: 0a 20 20 66 6f 72 20 7b 73 65 74 20 69 69 20 30 . for {set ii 0
a5b0: 7d 20 7b 24 69 69 20 3c 20 5b 6c 6c 65 6e 67 74 } {$ii < [llengt
a5c0: 68 20 24 61 72 67 73 5d 2d 31 7d 20 7b 69 6e 63 h $args]-1} {inc
a5d0: 72 20 69 69 20 32 7d 20 7b 0a 20 20 20 20 73 65 r ii 2} {. se
a5e0: 74 20 7a 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 t z [lindex $arg
a5f0: 73 20 24 69 69 5d 0a 20 20 20 20 73 65 74 20 6e s $ii]. set n
a600: 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 [string length
a610: 24 7a 5d 0a 20 20 20 20 73 65 74 20 7a 32 20 5b $z]. set z2 [
a620: 6c 69 6e 64 65 78 20 24 61 72 67 73 20 5b 65 78 lindex $args [ex
a630: 70 72 20 24 69 69 2b 31 5d 5d 0a 0a 20 20 20 20 pr $ii+1]]..
a640: 69 66 20 20 20 20 20 7b 24 6e 3e 31 20 26 26 20 if {$n>1 &&
a650: 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20 24 7a [string first $z
a660: 20 2d 64 65 6c 61 79 5d 3d 3d 30 7d 20 20 20 20 -delay]==0}
a670: 20 7b 73 65 74 20 63 72 61 73 68 64 65 6c 61 79 {set crashdelay
a680: 20 24 7a 32 7d 20 5c 0a 20 20 20 20 65 6c 73 65 $z2} \. else
a690: 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72 if {$n>1 && [str
a6a0: 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d 6f 70 ing first $z -op
a6b0: 65 6e 64 62 5d 3d 3d 30 7d 20 20 20 20 7b 73 65 endb]==0} {se
a6c0: 74 20 6f 70 65 6e 64 62 20 24 7a 32 7d 20 5c 0a t opendb $z2} \.
a6d0: 20 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 elseif {$n>1
a6e0: 20 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73 && [string firs
a6f0: 74 20 24 7a 20 2d 73 65 65 64 5d 3d 3d 30 7d 20 t $z -seed]==0}
a700: 20 20 20 20 20 7b 73 65 74 20 70 72 6e 67 73 65 {set prngse
a710: 65 64 20 24 7a 32 7d 20 5c 0a 20 20 20 20 65 6c ed $z2} \. el
a720: 73 65 69 66 20 7b 24 6e 3e 31 20 26 26 20 5b 73 seif {$n>1 && [s
a730: 74 72 69 6e 67 20 66 69 72 73 74 20 24 7a 20 2d tring first $z -
a740: 66 69 6c 65 5d 3d 3d 30 7d 20 20 20 20 20 20 7b file]==0} {
a750: 73 65 74 20 63 72 61 73 68 66 69 6c 65 20 24 7a set crashfile $z
a760: 32 7d 20 20 5c 0a 20 20 20 20 65 6c 73 65 69 66 2} \. elseif
a770: 20 7b 24 6e 3e 31 20 26 26 20 5b 73 74 72 69 6e {$n>1 && [strin
a780: 67 20 66 69 72 73 74 20 24 7a 20 2d 74 63 6c 62 g first $z -tclb
a790: 6f 64 79 5d 3d 3d 30 7d 20 20 20 7b 73 65 74 20 ody]==0} {set
a7a0: 74 63 6c 62 6f 64 79 20 24 7a 32 7d 20 20 5c 0a tclbody $z2} \.
a7b0: 20 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e 31 elseif {$n>1
a7c0: 20 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72 73 && [string firs
a7d0: 74 20 24 7a 20 2d 62 6c 6f 63 6b 73 69 7a 65 5d t $z -blocksize]
a7e0: 3d 3d 30 7d 20 7b 73 65 74 20 62 6c 6f 63 6b 73 ==0} {set blocks
a7f0: 69 7a 65 20 22 2d 73 20 24 7a 32 22 20 7d 20 5c ize "-s $z2" } \
a800: 0a 20 20 20 20 65 6c 73 65 69 66 20 7b 24 6e 3e . elseif {$n>
a810: 31 20 26 26 20 5b 73 74 72 69 6e 67 20 66 69 72 1 && [string fir
a820: 73 74 20 24 7a 20 2d 63 68 61 72 61 63 74 65 72 st $z -character
a830: 69 73 74 69 63 73 5d 3d 3d 30 7d 20 7b 73 65 74 istics]==0} {set
a840: 20 64 63 20 22 2d 63 20 7b 24 7a 32 7d 22 20 7d dc "-c {$z2}" }
a850: 20 5c 0a 20 20 20 20 65 6c 73 65 20 20 20 7b 20 \. else {
a860: 65 72 72 6f 72 20 22 55 6e 72 65 63 6f 67 6e 69 error "Unrecogni
a870: 7a 65 64 20 6f 70 74 69 6f 6e 3a 20 24 7a 22 20 zed option: $z"
a880: 7d 0a 20 20 7d 0a 0a 20 20 69 66 20 7b 24 63 72 }. }.. if {$cr
a890: 61 73 68 66 69 6c 65 20 65 71 20 22 22 7d 20 7b ashfile eq ""} {
a8a0: 0a 20 20 20 20 65 72 72 6f 72 20 22 43 6f 6d 70 . error "Comp
a8b0: 75 6c 73 6f 72 79 20 6f 70 74 69 6f 6e 20 2d 66 ulsory option -f
a8c0: 69 6c 65 20 6d 69 73 73 69 6e 67 22 0a 20 20 7d ile missing". }
a8d0: 0a 0a 20 20 23 20 24 63 72 61 73 68 66 69 6c 65 .. # $crashfile
a8e0: 20 67 65 74 73 20 63 6f 6d 70 61 72 65 64 20 74 gets compared t
a8f0: 6f 20 74 68 65 20 6e 61 74 69 76 65 20 66 69 6c o the native fil
a900: 65 6e 61 6d 65 20 69 6e 0a 20 20 23 20 63 66 53 ename in. # cfS
a910: 79 6e 63 28 29 2c 20 77 68 69 63 68 20 63 61 6e ync(), which can
a920: 20 62 65 20 64 69 66 66 65 72 65 6e 74 20 74 68 be different th
a930: 65 6e 20 77 68 61 74 20 54 43 4c 20 75 73 65 73 en what TCL uses
a940: 20 62 79 0a 20 20 23 20 64 65 66 61 75 6c 74 2c by. # default,
a950: 20 73 6f 20 68 65 72 65 20 77 65 20 66 6f 72 63 so here we forc
a960: 65 20 69 74 20 74 6f 20 74 68 65 20 22 6e 61 74 e it to the "nat
a970: 69 76 65 6e 61 6d 65 22 20 66 6f 72 6d 61 74 2e ivename" format.
a980: 0a 20 20 73 65 74 20 63 66 69 6c 65 20 5b 73 74 . set cfile [st
a990: 72 69 6e 67 20 6d 61 70 20 7b 5c 5c 20 5c 5c 5c ring map {\\ \\\
a9a0: 5c 7d 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 6e \} [file nativen
a9b0: 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b ame [file join [
a9c0: 67 65 74 5f 70 77 64 5d 20 24 63 72 61 73 68 66 get_pwd] $crashf
a9d0: 69 6c 65 5d 5d 5d 0a 0a 20 20 73 65 74 20 66 20 ile]]].. set f
a9e0: 5b 6f 70 65 6e 20 63 72 61 73 68 2e 74 63 6c 20 [open crash.tcl
a9f0: 77 5d 0a 20 20 70 75 74 73 20 24 66 20 22 73 71 w]. puts $f "sq
aa00: 6c 69 74 65 33 5f 63 72 61 73 68 5f 65 6e 61 62 lite3_crash_enab
aa10: 6c 65 20 31 22 0a 20 20 70 75 74 73 20 24 66 20 le 1". puts $f
aa20: 22 73 71 6c 69 74 65 33 5f 63 72 61 73 68 70 61 "sqlite3_crashpa
aa30: 72 61 6d 73 20 24 62 6c 6f 63 6b 73 69 7a 65 20 rams $blocksize
aa40: 24 64 63 20 24 63 72 61 73 68 64 65 6c 61 79 20 $dc $crashdelay
aa50: 24 63 66 69 6c 65 22 0a 20 20 70 75 74 73 20 24 $cfile". puts $
aa60: 66 20 22 73 71 6c 69 74 65 33 5f 74 65 73 74 5f f "sqlite3_test_
aa70: 63 6f 6e 74 72 6f 6c 5f 70 65 6e 64 69 6e 67 5f control_pending_
aa80: 62 79 74 65 20 24 3a 3a 73 71 6c 69 74 65 5f 70 byte $::sqlite_p
aa90: 65 6e 64 69 6e 67 5f 62 79 74 65 22 0a 0a 20 20 ending_byte"..
aaa0: 23 20 54 68 69 73 20 62 6c 6f 63 6b 20 73 65 74 # This block set
aab0: 73 20 74 68 65 20 63 61 63 68 65 20 73 69 7a 65 s the cache size
aac0: 20 6f 66 20 74 68 65 20 6d 61 69 6e 20 64 61 74 of the main dat
aad0: 61 62 61 73 65 20 74 6f 20 31 30 0a 20 20 23 20 abase to 10. #
aae0: 70 61 67 65 73 2e 20 54 68 69 73 20 69 73 20 64 pages. This is d
aaf0: 6f 6e 65 20 69 6e 20 63 61 73 65 20 74 68 65 20 one in case the
ab00: 62 75 69 6c 64 20 69 73 20 63 6f 6e 66 69 67 75 build is configu
ab10: 72 65 64 20 74 6f 20 6f 6d 69 74 0a 20 20 23 20 red to omit. #
ab20: 22 50 52 41 47 4d 41 20 63 61 63 68 65 5f 73 69 "PRAGMA cache_si
ab30: 7a 65 22 2e 0a 20 20 69 66 20 7b 24 6f 70 65 6e ze".. if {$open
ab40: 64 62 21 3d 22 22 7d 20 7b 0a 20 20 20 20 70 75 db!=""} {. pu
ab50: 74 73 20 24 66 20 24 6f 70 65 6e 64 62 20 0a 20 ts $f $opendb .
ab60: 20 20 20 70 75 74 73 20 24 66 20 7b 64 62 20 65 puts $f {db e
ab70: 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 val {SELECT * FR
ab80: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 OM sqlite_master
ab90: 3b 7d 7d 0a 20 20 20 20 70 75 74 73 20 24 66 20 ;}}. puts $f
aba0: 7b 73 65 74 20 62 74 20 5b 62 74 72 65 65 5f 66 {set bt [btree_f
abb0: 72 6f 6d 5f 64 62 20 64 62 5d 7d 0a 20 20 20 20 rom_db db]}.
abc0: 70 75 74 73 20 24 66 20 7b 62 74 72 65 65 5f 73 puts $f {btree_s
abd0: 65 74 5f 63 61 63 68 65 5f 73 69 7a 65 20 24 62 et_cache_size $b
abe0: 74 20 31 30 7d 0a 20 20 7d 0a 0a 20 20 69 66 20 t 10}. }.. if
abf0: 7b 24 70 72 6e 67 73 65 65 64 7d 20 7b 0a 20 20 {$prngseed} {.
ac00: 20 20 73 65 74 20 73 65 65 64 20 5b 65 78 70 72 set seed [expr
ac10: 20 7b 24 70 72 6e 67 73 65 65 64 25 31 30 30 30 {$prngseed%1000
ac20: 37 2b 31 7d 5d 0a 20 20 20 20 23 20 70 75 74 73 7+1}]. # puts
ac30: 20 73 65 65 64 3d 24 73 65 65 64 0a 20 20 20 20 seed=$seed.
ac40: 70 75 74 73 20 24 66 20 22 64 62 20 65 76 61 6c puts $f "db eval
ac50: 20 7b 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62 {SELECT randomb
ac60: 6c 6f 62 28 24 73 65 65 64 29 7d 22 0a 20 20 7d lob($seed)}". }
ac70: 0a 0a 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 .. if {[string
ac80: 6c 65 6e 67 74 68 20 24 74 63 6c 62 6f 64 79 5d length $tclbody]
ac90: 3e 30 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 24 >0} {. puts $
aca0: 66 20 24 74 63 6c 62 6f 64 79 0a 20 20 7d 0a 20 f $tclbody. }.
acb0: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e if {[string len
acc0: 67 74 68 20 24 73 71 6c 5d 3e 30 7d 20 7b 0a 20 gth $sql]>0} {.
acd0: 20 20 20 70 75 74 73 20 24 66 20 22 64 62 20 65 puts $f "db e
ace0: 76 61 6c 20 7b 22 0a 20 20 20 20 70 75 74 73 20 val {". puts
acf0: 24 66 20 20 20 22 24 73 71 6c 22 0a 20 20 20 20 $f "$sql".
ad00: 70 75 74 73 20 24 66 20 22 7d 22 0a 20 20 7d 0a puts $f "}". }.
ad10: 20 20 63 6c 6f 73 65 20 24 66 0a 20 20 73 65 74 close $f. set
ad20: 20 72 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 r [catch {.
ad30: 65 78 65 63 20 5b 69 6e 66 6f 20 6e 61 6d 65 6f exec [info nameo
ad40: 66 65 78 65 63 5d 20 63 72 61 73 68 2e 74 63 6c fexec] crash.tcl
ad50: 20 3e 40 73 74 64 6f 75 74 0a 20 20 7d 20 6d 73 >@stdout. } ms
ad60: 67 5d 0a 0a 20 20 23 20 57 69 6e 64 6f 77 73 2f g].. # Windows/
ad70: 41 63 74 69 76 65 53 74 61 74 65 20 54 43 4c 20 ActiveState TCL
ad80: 72 65 74 75 72 6e 73 20 61 20 73 6c 69 67 68 74 returns a slight
ad90: 6c 79 20 64 69 66 66 65 72 65 6e 74 0a 20 20 23 ly different. #
ada0: 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 20 error message.
adb0: 20 57 65 20 6d 61 70 20 74 68 61 74 20 74 6f 20 We map that to
adc0: 74 68 65 20 65 78 70 65 63 74 65 64 20 6d 65 73 the expected mes
add0: 73 61 67 65 0a 20 20 23 20 73 6f 20 74 68 61 74 sage. # so that
ade0: 20 77 65 20 64 6f 6e 27 74 20 68 61 76 65 20 74 we don't have t
adf0: 6f 20 63 68 61 6e 67 65 20 61 6c 6c 20 6f 66 20 o change all of
ae00: 74 68 65 20 74 65 73 74 0a 20 20 23 20 63 61 73 the test. # cas
ae10: 65 73 2e 0a 20 20 69 66 20 7b 24 3a 3a 74 63 6c es.. if {$::tcl
ae20: 5f 70 6c 61 74 66 6f 72 6d 28 70 6c 61 74 66 6f _platform(platfo
ae30: 72 6d 29 3d 3d 22 77 69 6e 64 6f 77 73 22 7d 20 rm)=="windows"}
ae40: 7b 0a 20 20 20 20 69 66 20 7b 24 6d 73 67 3d 3d {. if {$msg==
ae50: 22 63 68 69 6c 64 20 6b 69 6c 6c 65 64 3a 20 75 "child killed: u
ae60: 6e 6b 6e 6f 77 6e 20 73 69 67 6e 61 6c 22 7d 20 nknown signal"}
ae70: 7b 0a 20 20 20 20 20 20 73 65 74 20 6d 73 67 20 {. set msg
ae80: 22 63 68 69 6c 64 20 70 72 6f 63 65 73 73 20 65 "child process e
ae90: 78 69 74 65 64 20 61 62 6e 6f 72 6d 61 6c 6c 79 xited abnormally
aea0: 22 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 6c ". }. }.. l
aeb0: 61 70 70 65 6e 64 20 72 20 24 6d 73 67 0a 7d 0a append r $msg.}.
aec0: 0a 70 72 6f 63 20 72 75 6e 5f 69 6f 65 72 72 5f .proc run_ioerr_
aed0: 70 72 65 70 20 7b 7d 20 7b 0a 20 20 73 65 74 20 prep {} {. set
aee0: 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f ::sqlite_io_erro
aef0: 72 5f 70 65 6e 64 69 6e 67 20 30 0a 20 20 63 61 r_pending 0. ca
af00: 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 20 tch {db close}.
af10: 20 63 61 74 63 68 20 7b 64 62 32 20 63 6c 6f 73 catch {db2 clos
af20: 65 7d 0a 20 20 63 61 74 63 68 20 7b 66 6f 72 63 e}. catch {forc
af30: 65 64 65 6c 65 74 65 20 74 65 73 74 2e 64 62 7d edelete test.db}
af40: 0a 20 20 63 61 74 63 68 20 7b 66 6f 72 63 65 64 . catch {forced
af50: 65 6c 65 74 65 20 74 65 73 74 2e 64 62 2d 6a 6f elete test.db-jo
af60: 75 72 6e 61 6c 7d 0a 20 20 63 61 74 63 68 20 7b urnal}. catch {
af70: 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73 74 forcedelete test
af80: 32 2e 64 62 7d 0a 20 20 63 61 74 63 68 20 7b 66 2.db}. catch {f
af90: 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73 74 32 orcedelete test2
afa0: 2e 64 62 2d 6a 6f 75 72 6e 61 6c 7d 0a 20 20 73 .db-journal}. s
afb0: 65 74 20 3a 3a 44 42 20 5b 73 71 6c 69 74 65 33 et ::DB [sqlite3
afc0: 20 64 62 20 74 65 73 74 2e 64 62 3b 20 73 71 6c db test.db; sql
afd0: 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f ite3_connection_
afe0: 70 6f 69 6e 74 65 72 20 64 62 5d 0a 20 20 73 71 pointer db]. sq
aff0: 6c 69 74 65 33 5f 65 78 74 65 6e 64 65 64 5f 72 lite3_extended_r
b000: 65 73 75 6c 74 5f 63 6f 64 65 73 20 24 3a 3a 44 esult_codes $::D
b010: 42 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d B $::ioerropts(-
b020: 65 72 63 29 0a 20 20 69 66 20 7b 5b 69 6e 66 6f erc). if {[info
b030: 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f exists ::ioerro
b040: 70 74 73 28 2d 74 63 6c 70 72 65 70 29 5d 7d 20 pts(-tclprep)]}
b050: 7b 0a 20 20 20 20 65 76 61 6c 20 24 3a 3a 69 6f {. eval $::io
b060: 65 72 72 6f 70 74 73 28 2d 74 63 6c 70 72 65 70 erropts(-tclprep
b070: 29 0a 20 20 7d 0a 20 20 69 66 20 7b 5b 69 6e 66 ). }. if {[inf
b080: 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 o exists ::ioerr
b090: 6f 70 74 73 28 2d 73 71 6c 70 72 65 70 29 5d 7d opts(-sqlprep)]}
b0a0: 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 24 {. execsql $
b0b0: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 73 71 6c ::ioerropts(-sql
b0c0: 70 72 65 70 29 0a 20 20 7d 0a 20 20 65 78 70 72 prep). }. expr
b0d0: 20 30 0a 7d 0a 0a 23 20 55 73 61 67 65 3a 20 64 0.}..# Usage: d
b0e0: 6f 5f 69 6f 65 72 72 5f 74 65 73 74 20 3c 74 65 o_ioerr_test <te
b0f0: 73 74 20 6e 75 6d 62 65 72 3e 20 3c 6f 70 74 69 st number> <opti
b100: 6f 6e 73 2e 2e 2e 3e 0a 23 0a 23 20 54 68 69 73 ons...>.#.# This
b110: 20 70 72 6f 63 20 69 73 20 75 73 65 64 20 74 6f proc is used to
b120: 20 69 6d 70 6c 65 6d 65 6e 74 20 74 65 73 74 20 implement test
b130: 63 61 73 65 73 20 74 68 61 74 20 63 68 65 63 6b cases that check
b140: 20 74 68 61 74 20 49 4f 20 65 72 72 6f 72 73 0a that IO errors.
b150: 23 20 61 72 65 20 63 6f 72 72 65 63 74 6c 79 20 # are correctly
b160: 68 61 6e 64 6c 65 64 2e 20 54 68 65 20 66 69 72 handled. The fir
b170: 73 74 20 61 72 67 75 6d 65 6e 74 2c 20 3c 74 65 st argument, <te
b180: 73 74 20 6e 75 6d 62 65 72 3e 2c 20 69 73 20 61 st number>, is a
b190: 6e 20 69 6e 74 65 67 65 72 0a 23 20 75 73 65 64 n integer.# used
b1a0: 20 74 6f 20 6e 61 6d 65 20 74 68 65 20 74 65 73 to name the tes
b1b0: 74 73 20 65 78 65 63 75 74 65 64 20 62 79 20 74 ts executed by t
b1c0: 68 69 73 20 70 72 6f 63 2e 20 4f 70 74 69 6f 6e his proc. Option
b1d0: 73 20 61 72 65 20 61 73 20 66 6f 6c 6c 6f 77 73 s are as follows
b1e0: 3a 0a 23 0a 23 20 20 20 20 20 2d 74 63 6c 70 72 :.#.# -tclpr
b1f0: 65 70 20 20 20 20 20 20 20 20 20 20 54 43 4c 20 ep TCL
b200: 73 63 72 69 70 74 20 74 6f 20 72 75 6e 20 74 6f script to run to
b210: 20 70 72 65 70 61 72 65 20 74 65 73 74 2e 0a 23 prepare test..#
b220: 20 20 20 20 20 2d 73 71 6c 70 72 65 70 20 20 20 -sqlprep
b230: 20 20 20 20 20 20 20 53 51 4c 20 73 63 72 69 70 SQL scrip
b240: 74 20 74 6f 20 72 75 6e 20 74 6f 20 70 72 65 70 t to run to prep
b250: 61 72 65 20 74 65 73 74 2e 0a 23 20 20 20 20 20 are test..#
b260: 2d 74 63 6c 62 6f 64 79 20 20 20 20 20 20 20 20 -tclbody
b270: 20 20 54 43 4c 20 73 63 72 69 70 74 20 74 6f 20 TCL script to
b280: 72 75 6e 20 77 69 74 68 20 49 4f 20 65 72 72 6f run with IO erro
b290: 72 20 73 69 6d 75 6c 61 74 69 6f 6e 2e 0a 23 20 r simulation..#
b2a0: 20 20 20 20 2d 73 71 6c 62 6f 64 79 20 20 20 20 -sqlbody
b2b0: 20 20 20 20 20 20 54 43 4c 20 73 63 72 69 70 74 TCL script
b2c0: 20 74 6f 20 72 75 6e 20 77 69 74 68 20 49 4f 20 to run with IO
b2d0: 65 72 72 6f 72 20 73 69 6d 75 6c 61 74 69 6f 6e error simulation
b2e0: 2e 0a 23 20 20 20 20 20 2d 65 78 63 6c 75 64 65 ..# -exclude
b2f0: 20 20 20 20 20 20 20 20 20 20 4c 69 73 74 20 6f List o
b300: 66 20 27 4e 27 20 76 61 6c 75 65 73 20 6e 6f 74 f 'N' values not
b310: 20 74 6f 20 74 65 73 74 2e 0a 23 20 20 20 20 20 to test..#
b320: 2d 65 72 63 20 20 20 20 20 20 20 20 20 20 20 20 -erc
b330: 20 20 55 73 65 20 65 78 74 65 6e 64 65 64 20 72 Use extended r
b340: 65 73 75 6c 74 20 63 6f 64 65 73 0a 23 20 20 20 esult codes.#
b350: 20 20 2d 70 65 72 73 69 73 74 20 20 20 20 20 20 -persist
b360: 20 20 20 20 4d 61 6b 65 20 73 69 6d 75 6c 61 74 Make simulat
b370: 65 64 20 49 2f 4f 20 65 72 72 6f 72 73 20 70 65 ed I/O errors pe
b380: 72 73 69 73 74 65 6e 74 0a 23 20 20 20 20 20 2d rsistent.# -
b390: 73 74 61 72 74 20 20 20 20 20 20 20 20 20 20 20 start
b3a0: 20 56 61 6c 75 65 20 6f 66 20 27 4e 27 20 74 6f Value of 'N' to
b3b0: 20 62 65 67 69 6e 20 77 69 74 68 20 28 64 65 66 begin with (def
b3c0: 61 75 6c 74 20 31 29 0a 23 0a 23 20 20 20 20 20 ault 1).#.#
b3d0: 2d 63 6b 73 75 6d 20 20 20 20 20 20 20 20 20 20 -cksum
b3e0: 20 20 42 6f 6f 6c 65 61 6e 2e 20 49 66 20 74 72 Boolean. If tr
b3f0: 75 65 2c 20 74 65 73 74 20 74 68 61 74 20 74 68 ue, test that th
b400: 65 20 64 61 74 61 62 61 73 65 20 64 6f 65 73 0a e database does.
b410: 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 #
b420: 20 20 20 20 20 20 20 20 6e 6f 74 20 63 68 61 6e not chan
b430: 67 65 20 64 75 72 69 6e 67 20 74 68 65 20 65 78 ge during the ex
b440: 65 63 75 74 69 6f 6e 20 6f 66 20 74 68 65 20 74 ecution of the t
b450: 65 73 74 20 63 61 73 65 2e 0a 23 0a 70 72 6f 63 est case..#.proc
b460: 20 64 6f 5f 69 6f 65 72 72 5f 74 65 73 74 20 7b do_ioerr_test {
b470: 74 65 73 74 6e 61 6d 65 20 61 72 67 73 7d 20 7b testname args} {
b480: 0a 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f .. set ::ioerro
b490: 70 74 73 28 2d 73 74 61 72 74 29 20 31 0a 20 20 pts(-start) 1.
b4a0: 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 set ::ioerropts(
b4b0: 2d 63 6b 73 75 6d 29 20 30 0a 20 20 73 65 74 20 -cksum) 0. set
b4c0: 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 65 72 63 ::ioerropts(-erc
b4d0: 29 20 30 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 ) 0. set ::ioer
b4e0: 72 6f 70 74 73 28 2d 63 6f 75 6e 74 29 20 31 30 ropts(-count) 10
b4f0: 30 30 30 30 30 30 30 0a 20 20 73 65 74 20 3a 3a 0000000. set ::
b500: 69 6f 65 72 72 6f 70 74 73 28 2d 70 65 72 73 69 ioerropts(-persi
b510: 73 74 29 20 31 0a 20 20 73 65 74 20 3a 3a 69 6f st) 1. set ::io
b520: 65 72 72 6f 70 74 73 28 2d 63 6b 72 65 66 63 6f erropts(-ckrefco
b530: 75 6e 74 29 20 30 0a 20 20 73 65 74 20 3a 3a 69 unt) 0. set ::i
b540: 6f 65 72 72 6f 70 74 73 28 2d 72 65 73 74 6f 72 oerropts(-restor
b550: 65 70 72 6e 67 29 20 31 0a 20 20 61 72 72 61 79 eprng) 1. array
b560: 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 set ::ioerropts
b570: 20 24 61 72 67 73 0a 0a 20 20 23 20 54 45 4d 50 $args.. # TEMP
b580: 4f 52 41 52 59 3a 20 46 6f 72 20 33 2e 35 2e 39 ORARY: For 3.5.9
b590: 2c 20 64 69 73 61 62 6c 65 20 74 65 73 74 69 6e , disable testin
b5a0: 67 20 6f 66 20 65 78 74 65 6e 64 65 64 20 72 65 g of extended re
b5b0: 73 75 6c 74 20 63 6f 64 65 73 2e 20 54 68 65 72 sult codes. Ther
b5c0: 65 20 61 72 65 0a 20 20 23 20 61 20 63 6f 75 70 e are. # a coup
b5d0: 6c 65 20 6f 66 20 6f 62 73 63 75 72 65 20 49 4f le of obscure IO
b5e0: 20 65 72 72 6f 72 73 20 74 68 61 74 20 64 6f 20 errors that do
b5f0: 6e 6f 74 20 72 65 74 75 72 6e 20 74 68 65 6d 2e not return them.
b600: 0a 20 20 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 . set ::ioerrop
b610: 74 73 28 2d 65 72 63 29 20 30 0a 0a 20 20 23 20 ts(-erc) 0.. #
b620: 43 72 65 61 74 65 20 61 20 73 69 6e 67 6c 65 20 Create a single
b630: 54 43 4c 20 73 63 72 69 70 74 20 66 72 6f 6d 20 TCL script from
b640: 74 68 65 20 54 43 4c 20 61 6e 64 20 53 51 4c 20 the TCL and SQL
b650: 73 70 65 63 69 66 69 65 64 0a 20 20 23 20 61 73 specified. # as
b660: 20 74 68 65 20 62 6f 64 79 20 6f 66 20 74 68 65 the body of the
b670: 20 74 65 73 74 2e 0a 20 20 73 65 74 20 3a 3a 69 test.. set ::i
b680: 6f 65 72 72 6f 72 62 6f 64 79 20 7b 7d 0a 20 20 oerrorbody {}.
b690: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 if {[info exists
b6a0: 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 74 63 ::ioerropts(-tc
b6b0: 6c 62 6f 64 79 29 5d 7d 20 7b 0a 20 20 20 20 61 lbody)]} {. a
b6c0: 70 70 65 6e 64 20 3a 3a 69 6f 65 72 72 6f 72 62 ppend ::ioerrorb
b6d0: 6f 64 79 20 22 24 3a 3a 69 6f 65 72 72 6f 70 74 ody "$::ioerropt
b6e0: 73 28 2d 74 63 6c 62 6f 64 79 29 5c 6e 22 0a 20 s(-tclbody)\n".
b6f0: 20 7d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 }. if {[info e
b700: 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 6f 70 74 xists ::ioerropt
b710: 73 28 2d 73 71 6c 62 6f 64 79 29 5d 7d 20 7b 0a s(-sqlbody)]} {.
b720: 20 20 20 20 61 70 70 65 6e 64 20 3a 3a 69 6f 65 append ::ioe
b730: 72 72 6f 72 62 6f 64 79 20 22 64 62 20 65 76 61 rrorbody "db eva
b740: 6c 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 l {$::ioerropts(
b750: 2d 73 71 6c 62 6f 64 79 29 7d 22 0a 20 20 7d 0a -sqlbody)}". }.
b760: 0a 20 20 73 61 76 65 5f 70 72 6e 67 5f 73 74 61 . save_prng_sta
b770: 74 65 0a 20 20 69 66 20 7b 24 3a 3a 69 6f 65 72 te. if {$::ioer
b780: 72 6f 70 74 73 28 2d 63 6b 73 75 6d 29 7d 20 7b ropts(-cksum)} {
b790: 0a 20 20 20 20 72 75 6e 5f 69 6f 65 72 72 5f 70 . run_ioerr_p
b7a0: 72 65 70 0a 20 20 20 20 65 76 61 6c 20 24 3a 3a rep. eval $::
b7b0: 69 6f 65 72 72 6f 72 62 6f 64 79 0a 20 20 20 20 ioerrorbody.
b7c0: 73 65 74 20 3a 3a 67 6f 6f 64 63 6b 73 75 6d 20 set ::goodcksum
b7d0: 5b 63 6b 73 75 6d 5d 0a 20 20 7d 0a 0a 20 20 73 [cksum]. }.. s
b7e0: 65 74 20 3a 3a 67 6f 20 31 0a 20 20 23 72 65 73 et ::go 1. #res
b7f0: 65 74 5f 70 72 6e 67 5f 73 74 61 74 65 0a 20 20 et_prng_state.
b800: 66 6f 72 20 7b 73 65 74 20 6e 20 24 3a 3a 69 6f for {set n $::io
b810: 65 72 72 6f 70 74 73 28 2d 73 74 61 72 74 29 7d erropts(-start)}
b820: 20 7b 24 3a 3a 67 6f 7d 20 7b 69 6e 63 72 20 6e {$::go} {incr n
b830: 7d 20 7b 0a 20 20 20 20 73 65 74 20 3a 3a 54 4e } {. set ::TN
b840: 20 24 6e 0a 20 20 20 20 69 6e 63 72 20 3a 3a 69 $n. incr ::i
b850: 6f 65 72 72 6f 70 74 73 28 2d 63 6f 75 6e 74 29 oerropts(-count)
b860: 20 2d 31 0a 20 20 20 20 69 66 20 7b 24 3a 3a 69 -1. if {$::i
b870: 6f 65 72 72 6f 70 74 73 28 2d 63 6f 75 6e 74 29 oerropts(-count)
b880: 3c 30 7d 20 62 72 65 61 6b 0a 0a 20 20 20 20 23 <0} break.. #
b890: 20 53 6b 69 70 20 74 68 69 73 20 49 4f 20 65 72 Skip this IO er
b8a0: 72 6f 72 20 69 66 20 69 74 20 77 61 73 20 73 70 ror if it was sp
b8b0: 65 63 69 66 69 65 64 20 77 69 74 68 20 74 68 65 ecified with the
b8c0: 20 22 2d 65 78 63 6c 75 64 65 22 20 6f 70 74 69 "-exclude" opti
b8d0: 6f 6e 2e 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 on.. if {[inf
b8e0: 6f 20 65 78 69 73 74 73 20 3a 3a 69 6f 65 72 72 o exists ::ioerr
b8f0: 6f 70 74 73 28 2d 65 78 63 6c 75 64 65 29 5d 7d opts(-exclude)]}
b900: 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 5b 6c 73 {. if {[ls
b910: 65 61 72 63 68 20 24 3a 3a 69 6f 65 72 72 6f 70 earch $::ioerrop
b920: 74 73 28 2d 65 78 63 6c 75 64 65 29 20 24 6e 5d ts(-exclude) $n]
b930: 21 3d 2d 31 7d 20 63 6f 6e 74 69 6e 75 65 0a 20 !=-1} continue.
b940: 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 24 3a 3a }. if {$::
b950: 69 6f 65 72 72 6f 70 74 73 28 2d 72 65 73 74 6f ioerropts(-resto
b960: 72 65 70 72 6e 67 29 7d 20 7b 0a 20 20 20 20 20 reprng)} {.
b970: 20 72 65 73 74 6f 72 65 5f 70 72 6e 67 5f 73 74 restore_prng_st
b980: 61 74 65 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 ate. }.. #
b990: 20 44 65 6c 65 74 65 20 74 68 65 20 66 69 6c 65 Delete the file
b9a0: 73 20 74 65 73 74 2e 64 62 20 61 6e 64 20 74 65 s test.db and te
b9b0: 73 74 32 2e 64 62 2c 20 74 68 65 6e 20 65 78 65 st2.db, then exe
b9c0: 63 75 74 65 20 74 68 65 20 54 43 4c 20 61 6e 64 cute the TCL and
b9d0: 0a 20 20 20 20 23 20 53 51 4c 20 28 69 6e 20 74 . # SQL (in t
b9e0: 68 61 74 20 6f 72 64 65 72 29 20 74 6f 20 70 72 hat order) to pr
b9f0: 65 70 61 72 65 20 66 6f 72 20 74 68 65 20 74 65 epare for the te
ba00: 73 74 20 63 61 73 65 2e 0a 20 20 20 20 64 6f 5f st case.. do_
ba10: 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24 test $testname.$
ba20: 6e 2e 31 20 7b 0a 20 20 20 20 20 20 72 75 6e 5f n.1 {. run_
ba30: 69 6f 65 72 72 5f 70 72 65 70 0a 20 20 20 20 7d ioerr_prep. }
ba40: 20 7b 30 7d 0a 0a 20 20 20 20 23 20 52 65 61 64 {0}.. # Read
ba50: 20 74 68 65 20 27 63 68 65 63 6b 73 75 6d 27 20 the 'checksum'
ba60: 6f 66 20 74 68 65 20 64 61 74 61 62 61 73 65 2e of the database.
ba70: 0a 20 20 20 20 69 66 20 7b 24 3a 3a 69 6f 65 72 . if {$::ioer
ba80: 72 6f 70 74 73 28 2d 63 6b 73 75 6d 29 7d 20 7b ropts(-cksum)} {
ba90: 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 63 68 65 . set ::che
baa0: 63 6b 73 75 6d 20 5b 63 6b 73 75 6d 5d 0a 20 20 cksum [cksum].
bab0: 20 20 7d 0a 0a 20 20 20 20 23 20 53 65 74 20 74 }.. # Set t
bac0: 68 65 20 4e 74 68 20 49 4f 20 65 72 72 6f 72 20 he Nth IO error
bad0: 74 6f 20 66 61 69 6c 2e 0a 20 20 20 20 64 6f 5f to fail.. do_
bae0: 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24 test $testname.$
baf0: 6e 2e 32 20 5b 73 75 62 73 74 20 7b 0a 20 20 20 n.2 [subst {.
bb00: 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f set ::sqlite_
bb10: 69 6f 5f 65 72 72 6f 72 5f 70 65 72 73 69 73 74 io_error_persist
bb20: 20 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 70 $::ioerropts(-p
bb30: 65 72 73 69 73 74 29 0a 20 20 20 20 20 20 73 65 ersist). se
bb40: 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 t ::sqlite_io_er
bb50: 72 6f 72 5f 70 65 6e 64 69 6e 67 20 24 6e 0a 20 ror_pending $n.
bb60: 20 20 20 7d 5d 20 24 6e 0a 0a 20 20 20 20 23 20 }] $n.. #
bb70: 45 78 65 63 75 74 65 20 74 68 65 20 54 43 4c 20 Execute the TCL
bb80: 73 63 72 69 70 74 20 63 72 65 61 74 65 64 20 66 script created f
bb90: 6f 72 20 74 68 65 20 62 6f 64 79 20 6f 66 20 74 or the body of t
bba0: 68 69 73 20 74 65 73 74 2e 20 49 66 0a 20 20 20 his test. If.
bbb0: 20 23 20 61 74 20 6c 65 61 73 74 20 4e 20 49 4f # at least N IO
bbc0: 20 6f 70 65 72 61 74 69 6f 6e 73 20 70 65 72 66 operations perf
bbd0: 6f 72 6d 65 64 20 62 79 20 53 51 4c 69 74 65 20 ormed by SQLite
bbe0: 61 73 20 61 20 72 65 73 75 6c 74 20 6f 66 0a 20 as a result of.
bbf0: 20 20 20 23 20 74 68 65 20 73 63 72 69 70 74 2c # the script,
bc00: 20 74 68 65 20 4e 74 68 20 77 69 6c 6c 20 66 61 the Nth will fa
bc10: 69 6c 2e 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 il.. do_test
bc20: 24 74 65 73 74 6e 61 6d 65 2e 24 6e 2e 33 20 7b $testname.$n.3 {
bc30: 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 73 71 6c . set ::sql
bc40: 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 69 74 ite_io_error_hit
bc50: 20 30 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 73 0. set ::s
bc60: 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 qlite_io_error_h
bc70: 61 72 64 68 69 74 20 30 0a 20 20 20 20 20 20 73 ardhit 0. s
bc80: 65 74 20 72 20 5b 63 61 74 63 68 20 24 3a 3a 69 et r [catch $::i
bc90: 6f 65 72 72 6f 72 62 6f 64 79 20 6d 73 67 5d 0a oerrorbody msg].
bca0: 20 20 20 20 20 20 73 65 74 20 3a 3a 65 72 72 73 set ::errs
bcb0: 65 65 6e 20 24 72 0a 20 20 20 20 20 20 73 65 74 een $r. set
bcc0: 20 72 63 20 5b 73 71 6c 69 74 65 33 5f 65 72 72 rc [sqlite3_err
bcd0: 63 6f 64 65 20 24 3a 3a 44 42 5d 0a 20 20 20 20 code $::DB].
bce0: 20 20 69 66 20 7b 24 3a 3a 69 6f 65 72 72 6f 70 if {$::ioerrop
bcf0: 74 73 28 2d 65 72 63 29 7d 20 7b 0a 20 20 20 20 ts(-erc)} {.
bd00: 20 20 20 20 23 20 49 66 20 77 65 20 61 72 65 20 # If we are
bd10: 69 6e 20 65 78 74 65 6e 64 65 64 20 72 65 73 75 in extended resu
bd20: 6c 74 20 63 6f 64 65 20 6d 6f 64 65 2c 20 6d 61 lt code mode, ma
bd30: 6b 65 20 73 75 72 65 20 61 6c 6c 20 6f 66 20 74 ke sure all of t
bd40: 68 65 0a 20 20 20 20 20 20 20 20 23 20 49 4f 45 he. # IOE
bd50: 52 52 73 20 77 65 20 67 65 74 20 62 61 63 6b 20 RRs we get back
bd60: 72 65 61 6c 6c 79 20 64 6f 20 68 61 76 65 20 74 really do have t
bd70: 68 65 69 72 20 65 78 74 65 6e 64 65 64 20 63 6f heir extended co
bd80: 64 65 20 76 61 6c 75 65 73 2e 0a 20 20 20 20 20 de values..
bd90: 20 20 20 23 20 49 66 20 61 6e 20 65 78 74 65 6e # If an exten
bda0: 64 65 64 20 72 65 73 75 6c 74 20 63 6f 64 65 20 ded result code
bdb0: 69 73 20 72 65 74 75 72 6e 65 64 2c 20 74 68 65 is returned, the
bdc0: 20 73 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 65 sqlite3_errcode
bdd0: 0a 20 20 20 20 20 20 20 20 23 20 54 43 4c 63 6f . # TCLco
bde0: 6d 6d 61 6e 64 20 77 69 6c 6c 20 72 65 74 75 72 mmand will retur
bdf0: 6e 20 61 20 73 74 72 69 6e 67 20 6f 66 20 74 68 n a string of th
be00: 65 20 66 6f 72 6d 3a 20 20 53 51 4c 49 54 45 5f e form: SQLITE_
be10: 49 4f 45 52 52 2b 6e 6e 6e 6e 0a 20 20 20 20 20 IOERR+nnnn.
be20: 20 20 20 23 20 77 68 65 72 65 20 6e 6e 6e 6e 20 # where nnnn
be30: 69 73 20 61 20 6e 75 6d 62 65 72 0a 20 20 20 20 is a number.
be40: 20 20 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20 if {[regexp
be50: 7b 5e 53 51 4c 49 54 45 5f 49 4f 45 52 52 7d 20 {^SQLITE_IOERR}
be60: 24 72 63 5d 20 26 26 20 21 5b 72 65 67 65 78 70 $rc] && ![regexp
be70: 20 7b 49 4f 45 52 52 5c 2b 5c 64 7d 20 24 72 63 {IOERR\+\d} $rc
be80: 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 72 ]} {. r
be90: 65 74 75 72 6e 20 24 72 63 0a 20 20 20 20 20 20 eturn $rc.
bea0: 20 20 7d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 }. } else
beb0: 20 7b 0a 20 20 20 20 20 20 20 20 23 20 49 66 20 {. # If
bec0: 77 65 20 61 72 65 20 6e 6f 74 20 69 6e 20 65 78 we are not in ex
bed0: 74 65 6e 64 65 64 20 72 65 73 75 6c 74 20 63 6f tended result co
bee0: 64 65 20 6d 6f 64 65 2c 20 6d 61 6b 65 20 73 75 de mode, make su
bef0: 72 65 20 6e 6f 0a 20 20 20 20 20 20 20 20 23 20 re no. #
bf00: 65 78 74 65 6e 64 65 64 20 65 72 72 6f 72 20 63 extended error c
bf10: 6f 64 65 73 20 61 72 65 20 72 65 74 75 72 6e 65 odes are returne
bf20: 64 2e 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b d.. if {[
bf30: 72 65 67 65 78 70 20 7b 5c 2b 5c 64 7d 20 24 72 regexp {\+\d} $r
bf40: 63 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 c]} {.
bf50: 72 65 74 75 72 6e 20 24 72 63 0a 20 20 20 20 20 return $rc.
bf60: 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 }. }.
bf70: 20 20 20 23 20 54 68 65 20 74 65 73 74 20 72 65 # The test re
bf80: 70 65 61 74 73 20 61 73 20 6c 6f 6e 67 20 61 73 peats as long as
bf90: 20 24 3a 3a 67 6f 20 69 73 20 6e 6f 6e 2d 7a 65 $::go is non-ze
bfa0: 72 6f 2e 20 20 24 3a 3a 67 6f 20 73 74 61 72 74 ro. $::go start
bfb0: 73 20 6f 75 74 0a 20 20 20 20 20 20 23 20 61 73 s out. # as
bfc0: 20 31 2e 20 20 57 68 65 6e 20 61 20 74 65 73 74 1. When a test
bfd0: 20 72 75 6e 73 20 74 6f 20 63 6f 6d 70 6c 65 74 runs to complet
bfe0: 69 6f 6e 20 77 69 74 68 6f 75 74 20 68 69 74 74 ion without hitt
bff0: 69 6e 67 20 61 6e 20 49 2f 4f 0a 20 20 20 20 20 ing an I/O.
c000: 20 23 20 65 72 72 6f 72 2c 20 74 68 61 74 20 6d # error, that m
c010: 65 61 6e 73 20 74 68 65 72 65 20 69 73 20 6e 6f eans there is no
c020: 20 70 6f 69 6e 74 20 69 6e 20 63 6f 6e 74 69 6e point in contin
c030: 75 69 6e 67 20 77 69 74 68 20 74 68 69 73 20 74 uing with this t
c040: 65 73 74 0a 20 20 20 20 20 20 23 20 63 61 73 65 est. # case
c050: 20 73 6f 20 73 65 74 20 24 3a 3a 67 6f 20 74 6f so set $::go to
c060: 20 7a 65 72 6f 2e 0a 20 20 20 20 20 20 23 0a 20 zero.. #.
c070: 20 20 20 20 20 69 66 20 7b 24 3a 3a 73 71 6c 69 if {$::sqli
c080: 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 te_io_error_pend
c090: 69 6e 67 3e 30 7d 20 7b 0a 20 20 20 20 20 20 20 ing>0} {.
c0a0: 20 73 65 74 20 3a 3a 67 6f 20 30 0a 20 20 20 20 set ::go 0.
c0b0: 20 20 20 20 73 65 74 20 71 20 30 0a 20 20 20 20 set q 0.
c0c0: 20 20 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 set ::sqlite
c0d0: 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e _io_error_pendin
c0e0: 67 20 30 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 g 0. } else
c0f0: 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 71 {. set q
c100: 20 31 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 1. }..
c110: 20 20 73 65 74 20 73 20 5b 65 78 70 72 20 24 3a set s [expr $:
c120: 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 :sqlite_io_error
c130: 5f 68 69 74 3d 3d 30 5d 0a 20 20 20 20 20 20 69 _hit==0]. i
c140: 66 20 7b 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f f {$::sqlite_io_
c150: 65 72 72 6f 72 5f 68 69 74 3e 24 3a 3a 73 71 6c error_hit>$::sql
c160: 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 72 ite_io_error_har
c170: 64 68 69 74 20 26 26 20 24 72 3d 3d 30 7d 20 7b dhit && $r==0} {
c180: 0a 20 20 20 20 20 20 20 20 73 65 74 20 72 20 31 . set r 1
c190: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 73 . }. s
c1a0: 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 et ::sqlite_io_e
c1b0: 72 72 6f 72 5f 68 69 74 20 30 0a 0a 20 20 20 20 rror_hit 0..
c1c0: 20 20 23 20 4f 6e 65 20 6f 66 20 74 77 6f 20 74 # One of two t
c1d0: 68 69 6e 67 73 20 6d 75 73 74 20 68 61 76 65 20 hings must have
c1e0: 68 61 70 70 65 6e 65 64 2e 20 65 69 74 68 65 72 happened. either
c1f0: 0a 20 20 20 20 20 20 23 20 20 20 31 2e 20 20 57 . # 1. W
c200: 65 20 6e 65 76 65 72 20 68 69 74 20 74 68 65 20 e never hit the
c210: 49 4f 20 65 72 72 6f 72 20 61 6e 64 20 74 68 65 IO error and the
c220: 20 53 51 4c 20 72 65 74 75 72 6e 65 64 20 4f 4b SQL returned OK
c230: 0a 20 20 20 20 20 20 23 20 20 20 32 2e 20 20 41 . # 2. A
c240: 6e 20 49 4f 20 65 72 72 6f 72 20 77 61 73 20 68 n IO error was h
c250: 69 74 20 61 6e 64 20 74 68 65 20 53 51 4c 20 66 it and the SQL f
c260: 61 69 6c 65 64 0a 20 20 20 20 20 20 23 0a 20 20 ailed. #.
c270: 20 20 20 20 23 70 75 74 73 20 22 73 3d 24 73 20 #puts "s=$s
c280: 72 3d 24 72 20 71 3d 24 71 22 0a 20 20 20 20 20 r=$r q=$q".
c290: 20 65 78 70 72 20 7b 20 28 24 73 20 26 26 20 21 expr { ($s && !
c2a0: 24 72 20 26 26 20 21 24 71 29 20 7c 7c 20 28 21 $r && !$q) || (!
c2b0: 24 73 20 26 26 20 24 72 20 26 26 20 24 71 29 20 $s && $r && $q)
c2c0: 7d 0a 20 20 20 20 7d 20 7b 31 7d 0a 0a 20 20 20 }. } {1}..
c2d0: 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f set ::sqlite_io
c2e0: 5f 65 72 72 6f 72 5f 68 69 74 20 30 0a 20 20 20 _error_hit 0.
c2f0: 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f set ::sqlite_io
c300: 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30 _error_pending 0
c310: 0a 0a 20 20 20 20 23 20 43 68 65 63 6b 20 74 68 .. # Check th
c320: 61 74 20 6e 6f 20 70 61 67 65 20 72 65 66 65 72 at no page refer
c330: 65 6e 63 65 73 20 77 65 72 65 20 6c 65 61 6b 65 ences were leake
c340: 64 2e 20 54 68 65 72 65 20 73 68 6f 75 6c 64 20 d. There should
c350: 62 65 0a 20 20 20 20 23 20 61 20 73 69 6e 67 6c be. # a singl
c360: 65 20 72 65 66 65 72 65 6e 63 65 20 69 66 20 74 e reference if t
c370: 68 65 72 65 20 69 73 20 73 74 69 6c 6c 20 61 6e here is still an
c380: 20 61 63 74 69 76 65 20 74 72 61 6e 73 61 63 74 active transact
c390: 69 6f 6e 2c 0a 20 20 20 20 23 20 6f 72 20 7a 65 ion,. # or ze
c3a0: 72 6f 20 6f 74 68 65 72 77 69 73 65 2e 0a 20 20 ro otherwise..
c3b0: 20 20 23 0a 20 20 20 20 23 20 55 50 44 41 54 45 #. # UPDATE
c3c0: 3a 20 49 66 20 74 68 65 20 49 4f 20 65 72 72 6f : If the IO erro
c3d0: 72 20 6f 63 63 75 72 73 20 61 66 74 65 72 20 61 r occurs after a
c3e0: 20 27 42 45 47 49 4e 27 20 62 75 74 20 62 65 66 'BEGIN' but bef
c3f0: 6f 72 65 20 61 6e 79 0a 20 20 20 20 23 20 6c 6f ore any. # lo
c400: 63 6b 73 20 61 72 65 20 65 73 74 61 62 6c 69 73 cks are establis
c410: 68 65 64 20 6f 6e 20 64 61 74 61 62 61 73 65 20 hed on database
c420: 66 69 6c 65 73 20 28 69 2e 65 2e 20 69 66 20 74 files (i.e. if t
c430: 68 65 20 65 72 72 6f 72 0a 20 20 20 20 23 20 6f he error. # o
c440: 63 63 75 72 73 20 77 68 69 6c 65 20 61 74 74 65 ccurs while atte
c450: 6d 70 74 69 6e 67 20 74 6f 20 64 65 74 65 63 74 mpting to detect
c460: 20 61 20 68 6f 74 2d 6a 6f 75 72 6e 61 6c 20 66 a hot-journal f
c470: 69 6c 65 29 2c 20 74 68 65 6e 0a 20 20 20 20 23 ile), then. #
c480: 20 74 68 65 72 65 20 6d 61 79 20 30 20 70 61 67 there may 0 pag
c490: 65 20 72 65 66 65 72 65 6e 63 65 73 20 61 6e 64 e references and
c4a0: 20 61 6e 20 61 63 74 69 76 65 20 74 72 61 6e 73 an active trans
c4b0: 61 63 74 69 6f 6e 20 61 63 63 6f 72 64 69 6e 67 action according
c4c0: 0a 20 20 20 20 23 20 74 6f 20 5b 73 71 6c 69 74 . # to [sqlit
c4d0: 65 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 e3_get_autocommi
c4e0: 74 5d 2e 0a 20 20 20 20 23 0a 20 20 20 20 69 66 t].. #. if
c4f0: 20 7b 24 3a 3a 67 6f 20 26 26 20 24 3a 3a 73 71 {$::go && $::sq
c500: 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 lite_io_error_ha
c510: 72 64 68 69 74 20 26 26 20 24 3a 3a 69 6f 65 72 rdhit && $::ioer
c520: 72 6f 70 74 73 28 2d 63 6b 72 65 66 63 6f 75 6e ropts(-ckrefcoun
c530: 74 29 7d 20 7b 0a 20 20 20 20 20 20 64 6f 5f 74 t)} {. do_t
c540: 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e est $testname.$n
c550: 2e 34 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 .4 {. set
c560: 20 62 74 20 5b 62 74 72 65 65 5f 66 72 6f 6d 5f bt [btree_from_
c570: 64 62 20 64 62 5d 0a 20 20 20 20 20 20 20 20 64 db db]. d
c580: 62 5f 65 6e 74 65 72 20 64 62 0a 20 20 20 20 20 b_enter db.
c590: 20 20 20 61 72 72 61 79 20 73 65 74 20 73 74 61 array set sta
c5a0: 74 73 20 5b 62 74 72 65 65 5f 70 61 67 65 72 5f ts [btree_pager_
c5b0: 73 74 61 74 73 20 24 62 74 5d 0a 20 20 20 20 20 stats $bt].
c5c0: 20 20 20 64 62 5f 6c 65 61 76 65 20 64 62 0a 20 db_leave db.
c5d0: 20 20 20 20 20 20 20 73 65 74 20 6e 52 65 66 20 set nRef
c5e0: 24 73 74 61 74 73 28 72 65 66 29 0a 20 20 20 20 $stats(ref).
c5f0: 20 20 20 20 65 78 70 72 20 7b 24 6e 52 65 66 20 expr {$nRef
c600: 3d 3d 20 30 20 7c 7c 20 28 5b 73 71 6c 69 74 65 == 0 || ([sqlite
c610: 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 3_get_autocommit
c620: 20 64 62 5d 3d 3d 30 20 26 26 20 24 6e 52 65 66 db]==0 && $nRef
c630: 20 3d 3d 20 31 29 7d 0a 20 20 20 20 20 20 7d 20 == 1)}. }
c640: 7b 31 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 {1}. }.. #
c650: 20 49 66 20 74 68 65 72 65 20 69 73 20 61 6e 20 If there is an
c660: 6f 70 65 6e 20 64 61 74 61 62 61 73 65 20 68 61 open database ha
c670: 6e 64 6c 65 20 61 6e 64 20 6e 6f 20 6f 70 65 6e ndle and no open
c680: 20 74 72 61 6e 73 61 63 74 69 6f 6e 2c 0a 20 20 transaction,.
c690: 20 20 23 20 61 6e 64 20 74 68 65 20 70 61 67 65 # and the page
c6a0: 72 20 69 73 20 6e 6f 74 20 72 75 6e 6e 69 6e 67 r is not running
c6b0: 20 69 6e 20 65 78 63 6c 75 73 69 76 65 2d 6c 6f in exclusive-lo
c6c0: 63 6b 69 6e 67 20 6d 6f 64 65 2c 0a 20 20 20 20 cking mode,.
c6d0: 23 20 63 68 65 63 6b 20 74 68 61 74 20 74 68 65 # check that the
c6e0: 20 70 61 67 65 72 20 69 73 20 69 6e 20 22 75 6e pager is in "un
c6f0: 6c 6f 63 6b 65 64 22 20 73 74 61 74 65 2e 20 54 locked" state. T
c700: 68 65 6f 72 65 74 69 63 61 6c 6c 79 2c 0a 20 20 heoretically,.
c710: 20 20 23 20 69 66 20 61 20 63 61 6c 6c 20 74 6f # if a call to
c720: 20 78 55 6e 6c 6f 63 6b 28 29 20 66 61 69 6c 65 xUnlock() faile
c730: 64 20 64 75 65 20 74 6f 20 61 6e 20 49 4f 20 65 d due to an IO e
c740: 72 72 6f 72 20 74 68 65 20 75 6e 64 65 72 6c 79 rror the underly
c750: 69 6e 67 0a 20 20 20 20 23 20 66 69 6c 65 20 6d ing. # file m
c760: 61 79 20 73 74 69 6c 6c 20 62 65 20 6c 6f 63 6b ay still be lock
c770: 65 64 2e 0a 20 20 20 20 23 0a 20 20 20 20 69 66 ed.. #. if
c780: 63 61 70 61 62 6c 65 20 70 72 61 67 6d 61 20 7b capable pragma {
c790: 0a 20 20 20 20 20 20 69 66 20 7b 20 5b 69 6e 66 . if { [inf
c7a0: 6f 20 63 6f 6d 6d 61 6e 64 73 20 64 62 5d 20 6e o commands db] n
c7b0: 65 20 22 22 0a 20 20 20 20 20 20 20 20 26 26 20 e "". &&
c7c0: 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b $::ioerropts(-ck
c7d0: 72 65 66 63 6f 75 6e 74 29 0a 20 20 20 20 20 20 refcount).
c7e0: 20 20 26 26 20 5b 64 62 20 6f 6e 65 20 7b 70 72 && [db one {pr
c7f0: 61 67 6d 61 20 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 agma locking_mod
c800: 65 7d 5d 20 65 71 20 22 6e 6f 72 6d 61 6c 22 0a e}] eq "normal".
c810: 20 20 20 20 20 20 20 20 26 26 20 5b 73 71 6c 69 && [sqli
c820: 74 65 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d te3_get_autocomm
c830: 69 74 20 64 62 5d 0a 20 20 20 20 20 20 7d 20 7b it db]. } {
c840: 0a 20 20 20 20 20 20 20 20 64 6f 5f 74 65 73 74 . do_test
c850: 20 24 74 65 73 74 6e 61 6d 65 2e 24 6e 2e 35 20 $testname.$n.5
c860: 7b 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20 {. set
c870: 62 74 20 5b 62 74 72 65 65 5f 66 72 6f 6d 5f 64 bt [btree_from_d
c880: 62 20 64 62 5d 0a 20 20 20 20 20 20 20 20 20 20 b db].
c890: 64 62 5f 65 6e 74 65 72 20 64 62 0a 20 20 20 20 db_enter db.
c8a0: 20 20 20 20 20 20 61 72 72 61 79 20 73 65 74 20 array set
c8b0: 73 74 61 74 73 20 5b 62 74 72 65 65 5f 70 61 67 stats [btree_pag
c8c0: 65 72 5f 73 74 61 74 73 20 24 62 74 5d 0a 20 20 er_stats $bt].
c8d0: 20 20 20 20 20 20 20 20 64 62 5f 6c 65 61 76 65 db_leave
c8e0: 20 64 62 0a 20 20 20 20 20 20 20 20 20 20 73 65 db. se
c8f0: 74 20 73 74 61 74 73 28 73 74 61 74 65 29 0a 20 t stats(state).
c900: 20 20 20 20 20 20 20 7d 20 30 0a 20 20 20 20 20 } 0.
c910: 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 }. }.. #
c920: 49 66 20 61 6e 20 49 4f 20 65 72 72 6f 72 20 6f If an IO error o
c930: 63 63 75 72 72 65 64 2c 20 74 68 65 6e 20 74 68 ccurred, then th
c940: 65 20 63 68 65 63 6b 73 75 6d 20 6f 66 20 74 68 e checksum of th
c950: 65 20 64 61 74 61 62 61 73 65 20 73 68 6f 75 6c e database shoul
c960: 64 0a 20 20 20 20 23 20 62 65 20 74 68 65 20 73 d. # be the s
c970: 61 6d 65 20 61 73 20 62 65 66 6f 72 65 20 74 68 ame as before th
c980: 65 20 73 63 72 69 70 74 20 74 68 61 74 20 63 61 e script that ca
c990: 75 73 65 64 20 74 68 65 20 49 4f 20 65 72 72 6f used the IO erro
c9a0: 72 20 77 61 73 20 72 75 6e 2e 0a 20 20 20 20 23 r was run.. #
c9b0: 0a 20 20 20 20 69 66 20 7b 24 3a 3a 67 6f 20 26 . if {$::go &
c9c0: 26 20 24 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 & $::sqlite_io_e
c9d0: 72 72 6f 72 5f 68 61 72 64 68 69 74 20 26 26 20 rror_hardhit &&
c9e0: 24 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6b $::ioerropts(-ck
c9f0: 73 75 6d 29 7d 20 7b 0a 20 20 20 20 20 20 64 6f sum)} {. do
ca00: 5f 74 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e _test $testname.
ca10: 24 6e 2e 36 20 7b 0a 20 20 20 20 20 20 20 20 63 $n.6 {. c
ca20: 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a atch {db close}.
ca30: 20 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 64 catch {d
ca40: 62 32 20 63 6c 6f 73 65 7d 0a 20 20 20 20 20 20 b2 close}.
ca50: 20 20 73 65 74 20 3a 3a 44 42 20 5b 73 71 6c 69 set ::DB [sqli
ca60: 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 3b 20 te3 db test.db;
ca70: 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 sqlite3_connecti
ca80: 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 20 on_pointer db].
ca90: 20 20 20 20 20 20 20 73 65 74 20 6e 6f 77 63 6b set nowck
caa0: 73 75 6d 20 5b 63 6b 73 75 6d 5d 0a 20 20 20 20 sum [cksum].
cab0: 20 20 20 20 73 65 74 20 72 65 73 20 5b 65 78 70 set res [exp
cac0: 72 20 7b 24 6e 6f 77 63 6b 73 75 6d 3d 3d 24 3a r {$nowcksum==$:
cad0: 3a 63 68 65 63 6b 73 75 6d 20 7c 7c 20 24 6e 6f :checksum || $no
cae0: 77 63 6b 73 75 6d 3d 3d 24 3a 3a 67 6f 6f 64 63 wcksum==$::goodc
caf0: 6b 73 75 6d 7d 5d 0a 20 20 20 20 20 20 20 20 69 ksum}]. i
cb00: 66 20 7b 24 72 65 73 3d 3d 30 7d 20 7b 0a 20 20 f {$res==0} {.
cb10: 20 20 20 20 20 20 20 20 6f 75 74 70 75 74 32 20 output2
cb20: 22 6e 6f 77 3d 24 6e 6f 77 63 6b 73 75 6d 22 0a "now=$nowcksum".
cb30: 20 20 20 20 20 20 20 20 20 20 6f 75 74 70 75 74 output
cb40: 32 20 22 74 68 65 3d 24 3a 3a 63 68 65 63 6b 73 2 "the=$::checks
cb50: 75 6d 22 0a 20 20 20 20 20 20 20 20 20 20 6f 75 um". ou
cb60: 74 70 75 74 32 20 22 66 77 64 3d 24 3a 3a 67 6f tput2 "fwd=$::go
cb70: 6f 64 63 6b 73 75 6d 22 0a 20 20 20 20 20 20 20 odcksum".
cb80: 20 7d 0a 20 20 20 20 20 20 20 20 73 65 74 20 72 }. set r
cb90: 65 73 0a 20 20 20 20 20 20 7d 20 31 0a 20 20 20 es. } 1.
cba0: 20 7d 0a 0a 20 20 20 20 73 65 74 20 3a 3a 73 71 }.. set ::sq
cbb0: 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 61 lite_io_error_ha
cbc0: 72 64 68 69 74 20 30 0a 20 20 20 20 73 65 74 20 rdhit 0. set
cbd0: 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f ::sqlite_io_erro
cbe0: 72 5f 70 65 6e 64 69 6e 67 20 30 0a 20 20 20 20 r_pending 0.
cbf0: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 if {[info exists
cc00: 20 3a 3a 69 6f 65 72 72 6f 70 74 73 28 2d 63 6c ::ioerropts(-cl
cc10: 65 61 6e 75 70 29 5d 7d 20 7b 0a 20 20 20 20 20 eanup)]} {.
cc20: 20 63 61 74 63 68 20 24 3a 3a 69 6f 65 72 72 6f catch $::ioerro
cc30: 70 74 73 28 2d 63 6c 65 61 6e 75 70 29 0a 20 20 pts(-cleanup).
cc40: 20 20 7d 0a 20 20 7d 0a 20 20 73 65 74 20 3a 3a }. }. set ::
cc50: 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f sqlite_io_error_
cc60: 70 65 6e 64 69 6e 67 20 30 0a 20 20 73 65 74 20 pending 0. set
cc70: 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f ::sqlite_io_erro
cc80: 72 5f 70 65 72 73 69 73 74 20 30 0a 20 20 75 6e r_persist 0. un
cc90: 73 65 74 20 3a 3a 69 6f 65 72 72 6f 70 74 73 0a set ::ioerropts.
cca0: 7d 0a 0a 23 20 52 65 74 75 72 6e 20 61 20 63 68 }..# Return a ch
ccb0: 65 63 6b 73 75 6d 20 62 61 73 65 64 20 6f 6e 20 ecksum based on
ccc0: 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 the contents of
ccd0: 74 68 65 20 6d 61 69 6e 20 64 61 74 61 62 61 73 the main databas
cce0: 65 20 61 73 73 6f 63 69 61 74 65 64 0a 23 20 77 e associated.# w
ccf0: 69 74 68 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 24 ith connection $
cd00: 64 62 0a 23 0a 70 72 6f 63 20 63 6b 73 75 6d 20 db.#.proc cksum
cd10: 7b 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 73 65 {{db db}} {. se
cd20: 74 20 74 78 74 20 5b 24 64 62 20 65 76 61 6c 20 t txt [$db eval
cd30: 7b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 6e {. SELECT n
cd40: 61 6d 65 2c 20 74 79 70 65 2c 20 73 71 6c 20 46 ame, type, sql F
cd50: 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 ROM sqlite_maste
cd60: 72 20 6f 72 64 65 72 20 62 79 20 6e 61 6d 65 0a r order by name.
cd70: 20 20 7d 5d 5c 6e 0a 20 20 66 6f 72 65 61 63 68 }]\n. foreach
cd80: 20 74 62 6c 20 5b 24 64 62 20 65 76 61 6c 20 7b tbl [$db eval {
cd90: 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 6e 61 . SELECT na
cda0: 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d me FROM sqlite_m
cdb0: 61 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65 aster WHERE type
cdc0: 3d 27 74 61 62 6c 65 27 20 6f 72 64 65 72 20 62 ='table' order b
cdd0: 79 20 6e 61 6d 65 0a 20 20 7d 5d 20 7b 0a 20 20 y name. }] {.
cde0: 20 20 61 70 70 65 6e 64 20 74 78 74 20 5b 24 64 append txt [$d
cdf0: 62 20 65 76 61 6c 20 22 53 45 4c 45 43 54 20 2a b eval "SELECT *
ce00: 20 46 52 4f 4d 20 24 74 62 6c 22 5d 5c 6e 0a 20 FROM $tbl"]\n.
ce10: 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 70 72 61 }. foreach pra
ce20: 67 20 7b 64 65 66 61 75 6c 74 5f 73 79 6e 63 68 g {default_synch
ce30: 72 6f 6e 6f 75 73 20 64 65 66 61 75 6c 74 5f 63 ronous default_c
ce40: 61 63 68 65 5f 73 69 7a 65 7d 20 7b 0a 20 20 20 ache_size} {.
ce50: 20 61 70 70 65 6e 64 20 74 78 74 20 24 70 72 61 append txt $pra
ce60: 67 2d 5b 24 64 62 20 65 76 61 6c 20 22 50 52 41 g-[$db eval "PRA
ce70: 47 4d 41 20 24 70 72 61 67 22 5d 5c 6e 0a 20 20 GMA $prag"]\n.
ce80: 7d 0a 20 20 73 65 74 20 63 6b 73 75 6d 20 5b 73 }. set cksum [s
ce90: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 74 78 tring length $tx
cea0: 74 5d 2d 5b 6d 64 35 20 24 74 78 74 5d 0a 20 20 t]-[md5 $txt].
ceb0: 23 20 70 75 74 73 20 24 63 6b 73 75 6d 2d 5b 66 # puts $cksum-[f
cec0: 69 6c 65 20 73 69 7a 65 20 74 65 73 74 2e 64 62 ile size test.db
ced0: 5d 0a 20 20 72 65 74 75 72 6e 20 24 63 6b 73 75 ]. return $cksu
cee0: 6d 0a 7d 0a 0a 23 20 47 65 6e 65 72 61 74 65 20 m.}..# Generate
cef0: 61 20 63 68 65 63 6b 73 75 6d 20 62 61 73 65 64 a checksum based
cf00: 20 6f 6e 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 on the contents
cf10: 20 6f 66 20 74 68 65 20 6d 61 69 6e 20 61 6e 64 of the main and
cf20: 20 74 65 6d 70 20 74 61 62 6c 65 73 0a 23 20 64 temp tables.# d
cf30: 61 74 61 62 61 73 65 20 24 64 62 2e 20 49 66 20 atabase $db. If
cf40: 74 68 65 20 63 68 65 63 6b 73 75 6d 20 6f 66 20 the checksum of
cf50: 74 77 6f 20 64 61 74 61 62 61 73 65 73 20 69 73 two databases is
cf60: 20 74 68 65 20 73 61 6d 65 2c 20 61 6e 64 20 74 the same, and t
cf70: 68 65 0a 23 20 69 6e 74 65 67 72 69 74 79 2d 63 he.# integrity-c
cf80: 68 65 63 6b 20 70 61 73 73 65 73 20 66 6f 72 20 heck passes for
cf90: 62 6f 74 68 2c 20 74 68 65 20 74 77 6f 20 64 61 both, the two da
cfa0: 74 61 62 61 73 65 73 20 61 72 65 20 69 64 65 6e tabases are iden
cfb0: 74 69 63 61 6c 2e 0a 23 0a 70 72 6f 63 20 61 6c tical..#.proc al
cfc0: 6c 63 6b 73 75 6d 20 7b 7b 64 62 20 64 62 7d 7d lcksum {{db db}}
cfd0: 20 7b 0a 20 20 73 65 74 20 72 65 74 20 5b 6c 69 {. set ret [li
cfe0: 73 74 5d 0a 20 20 69 66 63 61 70 61 62 6c 65 20 st]. ifcapable
cff0: 74 65 6d 70 64 62 20 7b 0a 20 20 20 20 73 65 74 tempdb {. set
d000: 20 73 71 6c 20 7b 0a 20 20 20 20 20 20 53 45 4c sql {. SEL
d010: 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 ECT name FROM sq
d020: 6c 69 74 65 5f 6d 61 73 74 65 72 20 57 48 45 52 lite_master WHER
d030: 45 20 74 79 70 65 20 3d 20 27 74 61 62 6c 65 27 E type = 'table'
d040: 20 55 4e 49 4f 4e 0a 20 20 20 20 20 20 53 45 4c UNION. SEL
d050: 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 ECT name FROM sq
d060: 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 lite_temp_master
d070: 20 57 48 45 52 45 20 74 79 70 65 20 3d 20 27 74 WHERE type = 't
d080: 61 62 6c 65 27 20 55 4e 49 4f 4e 0a 20 20 20 20 able' UNION.
d090: 20 20 53 45 4c 45 43 54 20 27 73 71 6c 69 74 65 SELECT 'sqlite
d0a0: 5f 6d 61 73 74 65 72 27 20 55 4e 49 4f 4e 0a 20 _master' UNION.
d0b0: 20 20 20 20 20 53 45 4c 45 43 54 20 27 73 71 6c SELECT 'sql
d0c0: 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 27 ite_temp_master'
d0d0: 20 4f 52 44 45 52 20 42 59 20 31 0a 20 20 20 20 ORDER BY 1.
d0e0: 7d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 }. } else {.
d0f0: 20 73 65 74 20 73 71 6c 20 7b 0a 20 20 20 20 20 set sql {.
d100: 20 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f SELECT name FRO
d110: 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 M sqlite_master
d120: 57 48 45 52 45 20 74 79 70 65 20 3d 20 27 74 61 WHERE type = 'ta
d130: 62 6c 65 27 20 55 4e 49 4f 4e 0a 20 20 20 20 20 ble' UNION.
d140: 20 53 45 4c 45 43 54 20 27 73 71 6c 69 74 65 5f SELECT 'sqlite_
d150: 6d 61 73 74 65 72 27 20 4f 52 44 45 52 20 42 59 master' ORDER BY
d160: 20 31 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 1. }. }. s
d170: 65 74 20 74 62 6c 6c 69 73 74 20 5b 24 64 62 20 et tbllist [$db
d180: 65 76 61 6c 20 24 73 71 6c 5d 0a 20 20 73 65 74 eval $sql]. set
d190: 20 74 78 74 20 7b 7d 0a 20 20 66 6f 72 65 61 63 txt {}. foreac
d1a0: 68 20 74 62 6c 20 24 74 62 6c 6c 69 73 74 20 7b h tbl $tbllist {
d1b0: 0a 20 20 20 20 61 70 70 65 6e 64 20 74 78 74 20 . append txt
d1c0: 5b 24 64 62 20 65 76 61 6c 20 22 53 45 4c 45 43 [$db eval "SELEC
d1d0: 54 20 2a 20 46 52 4f 4d 20 24 74 62 6c 22 5d 0a T * FROM $tbl"].
d1e0: 20 20 7d 0a 20 20 66 6f 72 65 61 63 68 20 70 72 }. foreach pr
d1f0: 61 67 20 7b 64 65 66 61 75 6c 74 5f 63 61 63 68 ag {default_cach
d200: 65 5f 73 69 7a 65 7d 20 7b 0a 20 20 20 20 61 70 e_size} {. ap
d210: 70 65 6e 64 20 74 78 74 20 24 70 72 61 67 2d 5b pend txt $prag-[
d220: 24 64 62 20 65 76 61 6c 20 22 50 52 41 47 4d 41 $db eval "PRAGMA
d230: 20 24 70 72 61 67 22 5d 5c 6e 0a 20 20 7d 0a 20 $prag"]\n. }.
d240: 20 23 20 70 75 74 73 20 74 78 74 3d 24 74 78 74 # puts txt=$txt
d250: 0a 20 20 72 65 74 75 72 6e 20 5b 6d 64 35 20 24 . return [md5 $
d260: 74 78 74 5d 0a 7d 0a 0a 23 20 47 65 6e 65 72 61 txt].}..# Genera
d270: 74 65 20 61 20 63 68 65 63 6b 73 75 6d 20 62 61 te a checksum ba
d280: 73 65 64 20 6f 6e 20 74 68 65 20 63 6f 6e 74 65 sed on the conte
d290: 6e 74 73 20 6f 66 20 61 20 73 69 6e 67 6c 65 20 nts of a single
d2a0: 64 61 74 61 62 61 73 65 20 77 69 74 68 0a 23 20 database with.#
d2b0: 61 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 a database conne
d2c0: 63 74 69 6f 6e 2e 20 20 54 68 65 20 6e 61 6d 65 ction. The name
d2d0: 20 6f 66 20 74 68 65 20 64 61 74 61 62 61 73 65 of the database
d2e0: 20 69 73 20 24 64 62 6e 61 6d 65 2e 0a 23 20 45 is $dbname..# E
d2f0: 78 61 6d 70 6c 65 73 20 6f 66 20 24 64 62 6e 61 xamples of $dbna
d300: 6d 65 20 61 72 65 20 22 74 65 6d 70 22 20 6f 72 me are "temp" or
d310: 20 22 6d 61 69 6e 22 2e 0a 23 0a 70 72 6f 63 20 "main"..#.proc
d320: 64 62 63 6b 73 75 6d 20 7b 64 62 20 64 62 6e 61 dbcksum {db dbna
d330: 6d 65 7d 20 7b 0a 20 20 69 66 20 7b 24 64 62 6e me} {. if {$dbn
d340: 61 6d 65 3d 3d 22 74 65 6d 70 22 7d 20 7b 0a 20 ame=="temp"} {.
d350: 20 20 20 73 65 74 20 6d 61 73 74 65 72 20 73 71 set master sq
d360: 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 lite_temp_master
d370: 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 . } else {.
d380: 73 65 74 20 6d 61 73 74 65 72 20 24 64 62 6e 61 set master $dbna
d390: 6d 65 2e 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 me.sqlite_master
d3a0: 0a 20 20 7d 0a 20 20 73 65 74 20 61 6c 6c 74 61 . }. set allta
d3b0: 62 20 5b 24 64 62 20 65 76 61 6c 20 22 53 45 4c b [$db eval "SEL
d3c0: 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 24 6d ECT name FROM $m
d3d0: 61 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65 aster WHERE type
d3e0: 3d 27 74 61 62 6c 65 27 22 5d 0a 20 20 73 65 74 ='table'"]. set
d3f0: 20 74 78 74 20 5b 24 64 62 20 65 76 61 6c 20 22 txt [$db eval "
d400: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 24 6d SELECT * FROM $m
d410: 61 73 74 65 72 22 5d 5c 6e 0a 20 20 66 6f 72 65 aster"]\n. fore
d420: 61 63 68 20 74 61 62 20 24 61 6c 6c 74 61 62 20 ach tab $alltab
d430: 7b 0a 20 20 20 20 61 70 70 65 6e 64 20 74 78 74 {. append txt
d440: 20 5b 24 64 62 20 65 76 61 6c 20 22 53 45 4c 45 [$db eval "SELE
d450: 43 54 20 2a 20 46 52 4f 4d 20 24 64 62 6e 61 6d CT * FROM $dbnam
d460: 65 2e 24 74 61 62 22 5d 5c 6e 0a 20 20 7d 0a 20 e.$tab"]\n. }.
d470: 20 72 65 74 75 72 6e 20 5b 6d 64 35 20 24 74 78 return [md5 $tx
d480: 74 5d 0a 7d 0a 0a 70 72 6f 63 20 6d 65 6d 64 65 t].}..proc memde
d490: 62 75 67 5f 6c 6f 67 5f 73 71 6c 20 7b 7b 66 69 bug_log_sql {{fi
d4a0: 6c 65 6e 61 6d 65 20 6d 61 6c 6c 6f 63 73 2e 73 lename mallocs.s
d4b0: 71 6c 7d 7d 20 7b 0a 0a 20 20 73 65 74 20 64 61 ql}} {.. set da
d4c0: 74 61 20 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 64 ta [sqlite3_memd
d4d0: 65 62 75 67 5f 6c 6f 67 20 64 75 6d 70 5d 0a 20 ebug_log dump].
d4e0: 20 73 65 74 20 6e 46 72 61 6d 65 20 5b 65 78 70 set nFrame [exp
d4f0: 72 20 5b 6c 6c 65 6e 67 74 68 20 5b 6c 69 6e 64 r [llength [lind
d500: 65 78 20 24 64 61 74 61 20 30 5d 5d 2d 32 5d 0a ex $data 0]]-2].
d510: 20 20 69 66 20 7b 24 6e 46 72 61 6d 65 20 3c 20 if {$nFrame <
d520: 30 7d 20 7b 20 72 65 74 75 72 6e 20 22 22 20 7d 0} { return "" }
d530: 0a 0a 20 20 73 65 74 20 64 61 74 61 62 61 73 65 .. set database
d540: 20 74 65 6d 70 0a 0a 20 20 73 65 74 20 74 62 6c temp.. set tbl
d550: 20 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 24 "CREATE TABLE $
d560: 7b 64 61 74 61 62 61 73 65 7d 2e 6d 61 6c 6c 6f {database}.mallo
d570: 63 28 7a 54 65 73 74 2c 20 6e 43 61 6c 6c 2c 20 c(zTest, nCall,
d580: 6e 42 79 74 65 2c 20 6c 53 74 61 63 6b 29 3b 22 nByte, lStack);"
d590: 0a 0a 20 20 73 65 74 20 73 71 6c 20 22 22 0a 20 .. set sql "".
d5a0: 20 66 6f 72 65 61 63 68 20 65 20 24 64 61 74 61 foreach e $data
d5b0: 20 7b 0a 20 20 20 20 73 65 74 20 6e 43 61 6c 6c {. set nCall
d5c0: 20 5b 6c 69 6e 64 65 78 20 24 65 20 30 5d 0a 20 [lindex $e 0].
d5d0: 20 20 20 73 65 74 20 6e 42 79 74 65 20 5b 6c 69 set nByte [li
d5e0: 6e 64 65 78 20 24 65 20 31 5d 0a 20 20 20 20 73 ndex $e 1]. s
d5f0: 65 74 20 6c 53 74 61 63 6b 20 5b 6c 72 61 6e 67 et lStack [lrang
d600: 65 20 24 65 20 32 20 65 6e 64 5d 0a 20 20 20 20 e $e 2 end].
d610: 61 70 70 65 6e 64 20 73 71 6c 20 22 49 4e 53 45 append sql "INSE
d620: 52 54 20 49 4e 54 4f 20 24 7b 64 61 74 61 62 61 RT INTO ${databa
d630: 73 65 7d 2e 6d 61 6c 6c 6f 63 20 56 41 4c 55 45 se}.malloc VALUE
d640: 53 22 0a 20 20 20 20 61 70 70 65 6e 64 20 73 71 S". append sq
d650: 6c 20 22 28 27 74 65 73 74 27 2c 20 24 6e 43 61 l "('test', $nCa
d660: 6c 6c 2c 20 24 6e 42 79 74 65 2c 20 27 24 6c 53 ll, $nByte, '$lS
d670: 74 61 63 6b 27 29 3b 5c 6e 22 0a 20 20 20 20 66 tack');\n". f
d680: 6f 72 65 61 63 68 20 66 20 24 6c 53 74 61 63 6b oreach f $lStack
d690: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 66 72 61 {. set fra
d6a0: 6d 65 73 28 24 66 29 20 31 0a 20 20 20 20 7d 0a mes($f) 1. }.
d6b0: 20 20 7d 0a 0a 20 20 73 65 74 20 74 62 6c 32 20 }.. set tbl2
d6c0: 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 24 7b "CREATE TABLE ${
d6d0: 64 61 74 61 62 61 73 65 7d 2e 66 72 61 6d 65 28 database}.frame(
d6e0: 66 72 61 6d 65 20 49 4e 54 45 47 45 52 20 50 52 frame INTEGER PR
d6f0: 49 4d 41 52 59 20 4b 45 59 2c 20 6c 69 6e 65 29 IMARY KEY, line)
d700: 3b 5c 6e 22 0a 20 20 73 65 74 20 74 62 6c 33 20 ;\n". set tbl3
d710: 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 24 7b "CREATE TABLE ${
d720: 64 61 74 61 62 61 73 65 7d 2e 66 69 6c 65 28 6e database}.file(n
d730: 61 6d 65 20 50 52 49 4d 41 52 59 20 4b 45 59 2c ame PRIMARY KEY,
d740: 20 63 6f 6e 74 65 6e 74 29 3b 5c 6e 22 0a 0a 20 content);\n"..
d750: 20 66 6f 72 65 61 63 68 20 66 20 5b 61 72 72 61 foreach f [arra
d760: 79 20 6e 61 6d 65 73 20 66 72 61 6d 65 73 5d 20 y names frames]
d770: 7b 0a 20 20 20 20 73 65 74 20 61 64 64 72 20 5b {. set addr [
d780: 66 6f 72 6d 61 74 20 25 78 20 24 66 5d 0a 20 20 format %x $f].
d790: 20 20 73 65 74 20 63 6d 64 20 22 61 64 64 72 32 set cmd "addr2
d7a0: 6c 69 6e 65 20 2d 65 20 5b 69 6e 66 6f 20 6e 61 line -e [info na
d7b0: 6d 65 6f 66 65 78 65 63 5d 20 24 61 64 64 72 22 meofexec] $addr"
d7c0: 0a 20 20 20 20 73 65 74 20 6c 69 6e 65 20 5b 65 . set line [e
d7d0: 76 61 6c 20 65 78 65 63 20 24 63 6d 64 5d 0a 20 val exec $cmd].
d7e0: 20 20 20 61 70 70 65 6e 64 20 73 71 6c 20 22 49 append sql "I
d7f0: 4e 53 45 52 54 20 49 4e 54 4f 20 24 7b 64 61 74 NSERT INTO ${dat
d800: 61 62 61 73 65 7d 2e 66 72 61 6d 65 20 56 41 4c abase}.frame VAL
d810: 55 45 53 28 24 66 2c 20 27 24 6c 69 6e 65 27 29 UES($f, '$line')
d820: 3b 5c 6e 22 0a 0a 20 20 20 20 73 65 74 20 66 69 ;\n".. set fi
d830: 6c 65 20 5b 6c 69 6e 64 65 78 20 5b 73 70 6c 69 le [lindex [spli
d840: 74 20 24 6c 69 6e 65 20 3a 5d 20 30 5d 0a 20 20 t $line :] 0].
d850: 20 20 73 65 74 20 66 69 6c 65 73 28 24 66 69 6c set files($fil
d860: 65 29 20 31 0a 20 20 7d 0a 0a 20 20 66 6f 72 65 e) 1. }.. fore
d870: 61 63 68 20 66 20 5b 61 72 72 61 79 20 6e 61 6d ach f [array nam
d880: 65 73 20 66 69 6c 65 73 5d 20 7b 0a 20 20 20 20 es files] {.
d890: 73 65 74 20 63 6f 6e 74 65 6e 74 73 20 22 22 0a set contents "".
d8a0: 20 20 20 20 63 61 74 63 68 20 7b 0a 20 20 20 20 catch {.
d8b0: 20 20 73 65 74 20 66 64 20 5b 6f 70 65 6e 20 24 set fd [open $
d8c0: 66 5d 0a 20 20 20 20 20 20 73 65 74 20 63 6f 6e f]. set con
d8d0: 74 65 6e 74 73 20 5b 72 65 61 64 20 24 66 64 5d tents [read $fd]
d8e0: 0a 20 20 20 20 20 20 63 6c 6f 73 65 20 24 66 64 . close $fd
d8f0: 0a 20 20 20 20 7d 0a 20 20 20 20 73 65 74 20 63 . }. set c
d900: 6f 6e 74 65 6e 74 73 20 5b 73 74 72 69 6e 67 20 ontents [string
d910: 6d 61 70 20 7b 27 20 27 27 7d 20 24 63 6f 6e 74 map {' ''} $cont
d920: 65 6e 74 73 5d 0a 20 20 20 20 61 70 70 65 6e 64 ents]. append
d930: 20 73 71 6c 20 22 49 4e 53 45 52 54 20 49 4e 54 sql "INSERT INT
d940: 4f 20 24 7b 64 61 74 61 62 61 73 65 7d 2e 66 69 O ${database}.fi
d950: 6c 65 20 56 41 4c 55 45 53 28 27 24 66 27 2c 20 le VALUES('$f',
d960: 27 24 63 6f 6e 74 65 6e 74 73 27 29 3b 5c 6e 22 '$contents');\n"
d970: 0a 20 20 7d 0a 0a 20 20 73 65 74 20 66 64 20 5b . }.. set fd [
d980: 6f 70 65 6e 20 24 66 69 6c 65 6e 61 6d 65 20 77 open $filename w
d990: 5d 0a 20 20 70 75 74 73 20 24 66 64 20 22 42 45 ]. puts $fd "BE
d9a0: 47 49 4e 3b 20 24 7b 74 62 6c 7d 24 7b 74 62 6c GIN; ${tbl}${tbl
d9b0: 32 7d 24 7b 74 62 6c 33 7d 24 7b 73 71 6c 7d 20 2}${tbl3}${sql}
d9c0: 3b 20 43 4f 4d 4d 49 54 3b 22 0a 20 20 63 6c 6f ; COMMIT;". clo
d9d0: 73 65 20 24 66 64 0a 7d 0a 0a 23 20 44 72 6f 70 se $fd.}..# Drop
d9e0: 20 61 6c 6c 20 74 61 62 6c 65 73 20 69 6e 20 64 all tables in d
d9f0: 61 74 61 62 61 73 65 20 5b 64 62 5d 0a 70 72 6f atabase [db].pro
da00: 63 20 64 72 6f 70 5f 61 6c 6c 5f 74 61 62 6c 65 c drop_all_table
da10: 73 20 7b 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 s {{db db}} {.
da20: 69 66 63 61 70 61 62 6c 65 20 74 72 69 67 67 65 ifcapable trigge
da30: 72 26 26 66 6f 72 65 69 67 6e 6b 65 79 20 7b 0a r&&foreignkey {.
da40: 20 20 20 20 73 65 74 20 70 6b 20 5b 24 64 62 20 set pk [$db
da50: 6f 6e 65 20 22 50 52 41 47 4d 41 20 66 6f 72 65 one "PRAGMA fore
da60: 69 67 6e 5f 6b 65 79 73 22 5d 0a 20 20 20 20 24 ign_keys"]. $
da70: 64 62 20 65 76 61 6c 20 22 50 52 41 47 4d 41 20 db eval "PRAGMA
da80: 66 6f 72 65 69 67 6e 5f 6b 65 79 73 20 3d 20 4f foreign_keys = O
da90: 46 46 22 0a 20 20 7d 0a 20 20 66 6f 72 65 61 63 FF". }. foreac
daa0: 68 20 7b 69 64 78 20 6e 61 6d 65 20 66 69 6c 65 h {idx name file
dab0: 7d 20 5b 64 62 20 65 76 61 6c 20 7b 50 52 41 47 } [db eval {PRAG
dac0: 4d 41 20 64 61 74 61 62 61 73 65 5f 6c 69 73 74 MA database_list
dad0: 7d 5d 20 7b 0a 20 20 20 20 69 66 20 7b 24 69 64 }] {. if {$id
dae0: 78 3d 3d 31 7d 20 7b 0a 20 20 20 20 20 20 73 65 x==1} {. se
daf0: 74 20 6d 61 73 74 65 72 20 73 71 6c 69 74 65 5f t master sqlite_
db00: 74 65 6d 70 5f 6d 61 73 74 65 72 0a 20 20 20 20 temp_master.
db10: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 73 } else {. s
db20: 65 74 20 6d 61 73 74 65 72 20 24 6e 61 6d 65 2e et master $name.
db30: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 0a 20 20 sqlite_master.
db40: 20 20 7d 0a 20 20 20 20 66 6f 72 65 61 63 68 20 }. foreach
db50: 7b 74 20 74 79 70 65 7d 20 5b 24 64 62 20 65 76 {t type} [$db ev
db60: 61 6c 20 22 0a 20 20 20 20 20 20 53 45 4c 45 43 al ". SELEC
db70: 54 20 6e 61 6d 65 2c 20 74 79 70 65 20 46 52 4f T name, type FRO
db80: 4d 20 24 6d 61 73 74 65 72 0a 20 20 20 20 20 20 M $master.
db90: 57 48 45 52 45 20 74 79 70 65 20 49 4e 28 27 74 WHERE type IN('t
dba0: 61 62 6c 65 27 2c 20 27 76 69 65 77 27 29 20 41 able', 'view') A
dbb0: 4e 44 20 6e 61 6d 65 20 4e 4f 54 20 4c 49 4b 45 ND name NOT LIKE
dbc0: 20 27 73 71 6c 69 74 65 58 5f 25 27 20 45 53 43 'sqliteX_%' ESC
dbd0: 41 50 45 20 27 58 27 0a 20 20 20 20 22 5d 20 7b APE 'X'. "] {
dbe0: 0a 20 20 20 20 20 20 24 64 62 20 65 76 61 6c 20 . $db eval
dbf0: 22 44 52 4f 50 20 24 74 79 70 65 20 5c 22 24 74 "DROP $type \"$t
dc00: 5c 22 22 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 \"". }. }.
dc10: 69 66 63 61 70 61 62 6c 65 20 74 72 69 67 67 65 ifcapable trigge
dc20: 72 26 26 66 6f 72 65 69 67 6e 6b 65 79 20 7b 0a r&&foreignkey {.
dc30: 20 20 20 20 24 64 62 20 65 76 61 6c 20 22 50 52 $db eval "PR
dc40: 41 47 4d 41 20 66 6f 72 65 69 67 6e 5f 6b 65 79 AGMA foreign_key
dc50: 73 20 3d 20 24 70 6b 22 0a 20 20 7d 0a 7d 0a 0a s = $pk". }.}..
dc60: 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d #---------------
dc70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
dc80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
dc90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
dca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 49 66 20 ----------.# If
dcb0: 61 20 74 65 73 74 20 73 63 72 69 70 74 20 69 73 a test script is
dcc0: 20 65 78 65 63 75 74 65 64 20 77 69 74 68 20 67 executed with g
dcd0: 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 24 lobal variable $
dce0: 3a 3a 47 28 70 65 72 6d 3a 6e 61 6d 65 29 20 73 ::G(perm:name) s
dcf0: 65 74 20 74 6f 0a 23 20 22 77 61 6c 22 2c 20 74 et to.# "wal", t
dd00: 68 65 6e 20 74 68 65 20 74 65 73 74 73 20 61 72 hen the tests ar
dd10: 65 20 72 75 6e 20 69 6e 20 57 41 4c 20 6d 6f 64 e run in WAL mod
dd20: 65 2e 20 4f 74 68 65 72 77 69 73 65 2c 20 74 68 e. Otherwise, th
dd30: 65 79 20 73 68 6f 75 6c 64 20 62 65 20 72 75 6e ey should be run
dd40: 0a 23 20 69 6e 20 72 6f 6c 6c 62 61 63 6b 20 6d .# in rollback m
dd50: 6f 64 65 2e 20 54 68 65 20 66 6f 6c 6c 6f 77 69 ode. The followi
dd60: 6e 67 20 54 63 6c 20 70 72 6f 63 73 20 61 72 65 ng Tcl procs are
dd70: 20 75 73 65 64 20 74 6f 20 6d 61 6b 65 20 74 68 used to make th
dd80: 69 73 20 6c 65 73 73 0a 23 20 69 6e 74 72 75 73 is less.# intrus
dd90: 69 76 65 3a 0a 23 0a 23 20 20 20 77 61 6c 5f 73 ive:.#.# wal_s
dda0: 65 74 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 et_journal_mode
ddb0: 3f 44 42 3f 0a 23 0a 23 20 20 20 20 20 49 66 20 ?DB?.#.# If
ddc0: 72 75 6e 6e 69 6e 67 20 61 20 57 41 4c 20 74 65 running a WAL te
ddd0: 73 74 2c 20 65 78 65 63 75 74 65 20 22 50 52 41 st, execute "PRA
dde0: 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 GMA journal_mode
ddf0: 20 3d 20 77 61 6c 22 20 75 73 69 6e 67 0a 23 20 = wal" using.#
de00: 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 connection h
de10: 61 6e 64 6c 65 20 44 42 2e 20 4f 74 68 65 72 77 andle DB. Otherw
de20: 69 73 65 2c 20 74 68 69 73 20 63 6f 6d 6d 61 6e ise, this comman
de30: 64 20 69 73 20 61 20 6e 6f 2d 6f 70 2e 0a 23 0a d is a no-op..#.
de40: 23 20 20 20 77 61 6c 5f 63 68 65 63 6b 5f 6a 6f # wal_check_jo
de50: 75 72 6e 61 6c 5f 6d 6f 64 65 20 54 45 53 54 4e urnal_mode TESTN
de60: 41 4d 45 20 3f 44 42 3f 0a 23 0a 23 20 20 20 20 AME ?DB?.#.#
de70: 20 49 66 20 72 75 6e 6e 69 6e 67 20 61 20 57 41 If running a WA
de80: 4c 20 74 65 73 74 2c 20 65 78 65 63 75 74 65 20 L test, execute
de90: 61 20 74 65 73 74 73 20 63 61 73 65 20 74 68 61 a tests case tha
dea0: 74 20 66 61 69 6c 73 20 69 66 20 74 68 65 20 6d t fails if the m
deb0: 61 69 6e 0a 23 20 20 20 20 20 64 61 74 61 62 61 ain.# databa
dec0: 73 65 20 66 6f 72 20 63 6f 6e 6e 65 63 74 69 6f se for connectio
ded0: 6e 20 68 61 6e 64 6c 65 20 44 42 20 69 73 20 6e n handle DB is n
dee0: 6f 74 20 63 75 72 72 65 6e 74 6c 79 20 61 20 57 ot currently a W
def0: 41 4c 20 64 61 74 61 62 61 73 65 2e 0a 23 20 20 AL database..#
df00: 20 20 20 4f 74 68 65 72 77 69 73 65 20 28 69 66 Otherwise (if
df10: 20 6e 6f 74 20 72 75 6e 6e 69 6e 67 20 61 20 57 not running a W
df20: 41 4c 20 70 65 72 6d 75 74 61 74 69 6f 6e 29 20 AL permutation)
df30: 74 68 69 73 20 69 73 20 61 20 6e 6f 2d 6f 70 2e this is a no-op.
df40: 0a 23 0a 23 20 20 20 77 61 6c 5f 69 73 5f 77 61 .#.# wal_is_wa
df50: 6c 5f 6d 6f 64 65 0a 23 0a 23 20 20 20 20 20 52 l_mode.#.# R
df60: 65 74 75 72 6e 73 20 74 72 75 65 20 69 66 20 74 eturns true if t
df70: 68 69 73 20 74 65 73 74 20 73 68 6f 75 6c 64 20 his test should
df80: 62 65 20 72 75 6e 20 69 6e 20 57 41 4c 20 6d 6f be run in WAL mo
df90: 64 65 2e 20 46 61 6c 73 65 20 6f 74 68 65 72 77 de. False otherw
dfa0: 69 73 65 2e 0a 23 0a 70 72 6f 63 20 77 61 6c 5f ise..#.proc wal_
dfb0: 69 73 5f 77 61 6c 5f 6d 6f 64 65 20 7b 7d 20 7b is_wal_mode {} {
dfc0: 0a 20 20 65 78 70 72 20 7b 5b 70 65 72 6d 75 74 . expr {[permut
dfd0: 61 74 69 6f 6e 5d 20 65 71 20 22 77 61 6c 22 7d ation] eq "wal"}
dfe0: 0a 7d 0a 70 72 6f 63 20 77 61 6c 5f 73 65 74 5f .}.proc wal_set_
dff0: 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 7b 7b 64 journal_mode {{d
e000: 62 20 64 62 7d 7d 20 7b 0a 20 20 69 66 20 7b 20 b db}} {. if {
e010: 5b 77 61 6c 5f 69 73 5f 77 61 6c 5f 6d 6f 64 65 [wal_is_wal_mode
e020: 5d 20 7d 20 7b 0a 20 20 20 20 24 64 62 20 65 76 ] } {. $db ev
e030: 61 6c 20 22 50 52 41 47 4d 41 20 6a 6f 75 72 6e al "PRAGMA journ
e040: 61 6c 5f 6d 6f 64 65 20 3d 20 57 41 4c 22 0a 20 al_mode = WAL".
e050: 20 7d 0a 7d 0a 70 72 6f 63 20 77 61 6c 5f 63 68 }.}.proc wal_ch
e060: 65 63 6b 5f 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 eck_journal_mode
e070: 20 7b 74 65 73 74 6e 61 6d 65 20 7b 64 62 20 64 {testname {db d
e080: 62 7d 7d 20 7b 0a 20 20 69 66 20 7b 20 5b 77 61 b}} {. if { [wa
e090: 6c 5f 69 73 5f 77 61 6c 5f 6d 6f 64 65 5d 20 7d l_is_wal_mode] }
e0a0: 20 7b 0a 20 20 20 20 24 64 62 20 65 76 61 6c 20 {. $db eval
e0b0: 7b 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 { SELECT * FROM
e0c0: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 7d 0a sqlite_master }.
e0d0: 20 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73 do_test $tes
e0e0: 74 6e 61 6d 65 20 5b 6c 69 73 74 20 24 64 62 20 tname [list $db
e0f0: 65 76 61 6c 20 22 50 52 41 47 4d 41 20 6d 61 69 eval "PRAGMA mai
e100: 6e 2e 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 22 5d n.journal_mode"]
e110: 20 7b 77 61 6c 7d 0a 20 20 7d 0a 7d 0a 0a 70 72 {wal}. }.}..pr
e120: 6f 63 20 70 65 72 6d 75 74 61 74 69 6f 6e 20 7b oc permutation {
e130: 7d 20 7b 0a 20 20 73 65 74 20 70 65 72 6d 20 22 } {. set perm "
e140: 22 0a 20 20 63 61 74 63 68 20 7b 73 65 74 20 70 ". catch {set p
e150: 65 72 6d 20 24 3a 3a 47 28 70 65 72 6d 3a 6e 61 erm $::G(perm:na
e160: 6d 65 29 7d 0a 20 20 73 65 74 20 70 65 72 6d 0a me)}. set perm.
e170: 7d 0a 70 72 6f 63 20 70 72 65 73 71 6c 20 7b 7d }.proc presql {}
e180: 20 7b 0a 20 20 73 65 74 20 70 72 65 73 71 6c 20 {. set presql
e190: 22 22 0a 20 20 63 61 74 63 68 20 7b 73 65 74 20 "". catch {set
e1a0: 70 72 65 73 71 6c 20 24 3a 3a 47 28 70 65 72 6d presql $::G(perm
e1b0: 3a 70 72 65 73 71 6c 29 7d 0a 20 20 73 65 74 20 :presql)}. set
e1c0: 70 72 65 73 71 6c 0a 7d 0a 0a 70 72 6f 63 20 69 presql.}..proc i
e1d0: 73 71 75 69 63 6b 20 7b 7d 20 7b 0a 20 20 73 65 squick {} {. se
e1e0: 74 20 72 65 74 20 30 0a 20 20 63 61 74 63 68 20 t ret 0. catch
e1f0: 7b 73 65 74 20 72 65 74 20 24 3a 3a 47 28 69 73 {set ret $::G(is
e200: 71 75 69 63 6b 29 7d 0a 20 20 73 65 74 20 72 65 quick)}. set re
e210: 74 0a 7d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d t.}..#----------
e220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
e230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
e240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
e250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
e260: 23 0a 70 72 6f 63 20 73 6c 61 76 65 5f 74 65 73 #.proc slave_tes
e270: 74 5f 73 63 72 69 70 74 20 7b 73 63 72 69 70 74 t_script {script
e280: 7d 20 7b 0a 0a 20 20 23 20 43 72 65 61 74 65 20 } {.. # Create
e290: 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 20 the interpreter
e2a0: 75 73 65 64 20 74 6f 20 72 75 6e 20 74 68 65 20 used to run the
e2b0: 74 65 73 74 20 73 63 72 69 70 74 2e 0a 20 20 69 test script.. i
e2c0: 6e 74 65 72 70 20 63 72 65 61 74 65 20 74 69 6e nterp create tin
e2d0: 74 65 72 70 0a 0a 20 20 23 20 50 6f 70 75 6c 61 terp.. # Popula
e2e0: 74 65 20 73 6f 6d 65 20 67 6c 6f 62 61 6c 20 76 te some global v
e2f0: 61 72 69 61 62 6c 65 73 20 74 68 61 74 20 74 65 ariables that te
e300: 73 74 65 72 2e 74 63 6c 20 65 78 70 65 63 74 73 ster.tcl expects
e310: 20 74 6f 20 73 65 65 2e 0a 20 20 66 6f 72 65 61 to see.. forea
e320: 63 68 20 7b 76 61 72 20 76 61 6c 75 65 7d 20 5b ch {var value} [
e330: 6c 69 73 74 20 20 20 20 20 20 20 20 20 20 20 20 list
e340: 20 20 5c 0a 20 20 20 20 3a 3a 61 72 67 76 30 20 \. ::argv0
e350: 24 3a 3a 61 72 67 76 30 20 20 20 20 20 20 20 20 $::argv0
e360: 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a 20 \.
e370: 20 20 20 3a 3a 61 72 67 76 20 20 7b 7d 20 20 20 ::argv {}
e380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
e390: 20 20 20 20 20 20 20 20 5c 0a 20 20 20 20 3a 3a \. ::
e3a0: 53 4c 41 56 45 20 31 20 20 20 20 20 20 20 20 20 SLAVE 1
e3b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
e3c0: 20 20 20 5c 0a 20 20 5d 20 7b 0a 20 20 20 20 69 \. ] {. i
e3d0: 6e 74 65 72 70 20 65 76 61 6c 20 74 69 6e 74 65 nterp eval tinte
e3e0: 72 70 20 5b 6c 69 73 74 20 73 65 74 20 24 76 61 rp [list set $va
e3f0: 72 20 24 76 61 6c 75 65 5d 0a 20 20 7d 0a 0a 20 r $value]. }..
e400: 20 23 20 49 66 20 6f 75 74 70 75 74 20 69 73 20 # If output is
e410: 62 65 69 6e 67 20 63 6f 70 69 65 64 20 69 6e 74 being copied int
e420: 6f 20 61 20 66 69 6c 65 2c 20 73 68 61 72 65 20 o a file, share
e430: 74 68 65 20 66 69 6c 65 2d 64 65 73 63 72 69 70 the file-descrip
e440: 74 6f 72 20 77 69 74 68 0a 20 20 23 20 74 68 65 tor with. # the
e450: 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 20 20 interpreter..
e460: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 if {[info exists
e470: 20 3a 3a 47 28 6f 75 74 70 75 74 5f 66 64 29 5d ::G(output_fd)]
e480: 7d 20 7b 0a 20 20 20 20 69 6e 74 65 72 70 20 73 } {. interp s
e490: 68 61 72 65 20 7b 7d 20 24 3a 3a 47 28 6f 75 74 hare {} $::G(out
e4a0: 70 75 74 5f 66 64 29 20 74 69 6e 74 65 72 70 0a put_fd) tinterp.
e4b0: 20 20 7d 0a 0a 20 20 23 20 54 68 65 20 61 6c 69 }.. # The ali
e4c0: 61 73 20 75 73 65 64 20 74 6f 20 61 63 63 65 73 as used to acces
e4d0: 73 20 74 68 65 20 67 6c 6f 62 61 6c 20 74 65 73 s the global tes
e4e0: 74 20 63 6f 75 6e 74 65 72 73 2e 0a 20 20 74 69 t counters.. ti
e4f0: 6e 74 65 72 70 20 61 6c 69 61 73 20 73 65 74 5f nterp alias set_
e500: 74 65 73 74 5f 63 6f 75 6e 74 65 72 20 73 65 74 test_counter set
e510: 5f 74 65 73 74 5f 63 6f 75 6e 74 65 72 0a 0a 20 _test_counter..
e520: 20 23 20 53 65 74 20 75 70 20 74 68 65 20 3a 3a # Set up the ::
e530: 63 6d 64 6c 69 6e 65 61 72 67 20 61 72 72 61 79 cmdlinearg array
e540: 20 69 6e 20 74 68 65 20 73 6c 61 76 65 2e 0a 20 in the slave..
e550: 20 69 6e 74 65 72 70 20 65 76 61 6c 20 74 69 6e interp eval tin
e560: 74 65 72 70 20 5b 6c 69 73 74 20 61 72 72 61 79 terp [list array
e570: 20 73 65 74 20 3a 3a 63 6d 64 6c 69 6e 65 61 72 set ::cmdlinear
e580: 67 20 5b 61 72 72 61 79 20 67 65 74 20 3a 3a 63 g [array get ::c
e590: 6d 64 6c 69 6e 65 61 72 67 5d 5d 0a 0a 20 20 23 mdlinearg]].. #
e5a0: 20 53 65 74 20 75 70 20 74 68 65 20 3a 3a 47 20 Set up the ::G
e5b0: 61 72 72 61 79 20 69 6e 20 74 68 65 20 73 6c 61 array in the sla
e5c0: 76 65 2e 0a 20 20 69 6e 74 65 72 70 20 65 76 61 ve.. interp eva
e5d0: 6c 20 74 69 6e 74 65 72 70 20 5b 6c 69 73 74 20 l tinterp [list
e5e0: 61 72 72 61 79 20 73 65 74 20 3a 3a 47 20 5b 61 array set ::G [a
e5f0: 72 72 61 79 20 67 65 74 20 3a 3a 47 5d 5d 0a 0a rray get ::G]]..
e600: 20 20 23 20 4c 6f 61 64 20 74 68 65 20 76 61 72 # Load the var
e610: 69 6f 75 73 20 74 65 73 74 20 69 6e 74 65 72 66 ious test interf
e620: 61 63 65 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 aces implemented
e630: 20 69 6e 20 43 2e 0a 20 20 6c 6f 61 64 5f 74 65 in C.. load_te
e640: 73 74 66 69 78 74 75 72 65 5f 65 78 74 65 6e 73 stfixture_extens
e650: 69 6f 6e 73 20 74 69 6e 74 65 72 70 0a 0a 20 20 ions tinterp..
e660: 23 20 52 75 6e 20 74 68 65 20 74 65 73 74 20 73 # Run the test s
e670: 63 72 69 70 74 2e 0a 20 20 69 6e 74 65 72 70 20 cript.. interp
e680: 65 76 61 6c 20 74 69 6e 74 65 72 70 20 24 73 63 eval tinterp $sc
e690: 72 69 70 74 0a 0a 20 20 23 20 43 68 65 63 6b 20 ript.. # Check
e6a0: 69 66 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 if the interpret
e6b0: 65 72 20 63 61 6c 6c 20 5b 72 75 6e 5f 74 68 72 er call [run_thr
e6c0: 65 61 64 5f 74 65 73 74 73 5d 0a 20 20 69 66 20 ead_tests]. if
e6d0: 7b 20 5b 69 6e 74 65 72 70 20 65 76 61 6c 20 74 { [interp eval t
e6e0: 69 6e 74 65 72 70 20 7b 69 6e 66 6f 20 65 78 69 interp {info exi
e6f0: 73 74 73 20 3a 3a 72 75 6e 5f 74 68 72 65 61 64 sts ::run_thread
e700: 5f 74 65 73 74 73 5f 63 61 6c 6c 65 64 7d 5d 20 _tests_called}]
e710: 7d 20 7b 0a 20 20 20 20 73 65 74 20 3a 3a 72 75 } {. set ::ru
e720: 6e 5f 74 68 72 65 61 64 5f 74 65 73 74 73 5f 63 n_thread_tests_c
e730: 61 6c 6c 65 64 20 31 0a 20 20 7d 0a 0a 20 20 23 alled 1. }.. #
e740: 20 44 65 6c 65 74 65 20 74 68 65 20 69 6e 74 65 Delete the inte
e750: 72 70 72 65 74 65 72 20 75 73 65 64 20 74 6f 20 rpreter used to
e760: 72 75 6e 20 74 68 65 20 74 65 73 74 20 73 63 72 run the test scr
e770: 69 70 74 2e 0a 20 20 69 6e 74 65 72 70 20 64 65 ipt.. interp de
e780: 6c 65 74 65 20 74 69 6e 74 65 72 70 0a 7d 0a 0a lete tinterp.}..
e790: 70 72 6f 63 20 73 6c 61 76 65 5f 74 65 73 74 5f proc slave_test_
e7a0: 66 69 6c 65 20 7b 7a 46 69 6c 65 7d 20 7b 0a 20 file {zFile} {.
e7b0: 20 73 65 74 20 74 61 69 6c 20 5b 66 69 6c 65 20 set tail [file
e7c0: 74 61 69 6c 20 24 7a 46 69 6c 65 5d 0a 0a 20 20 tail $zFile]..
e7d0: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 if {[info exists
e7e0: 20 3a 3a 47 28 73 74 61 72 74 3a 70 65 72 6d 75 ::G(start:permu
e7f0: 74 61 74 69 6f 6e 29 5d 7d 20 7b 0a 20 20 20 20 tation)]} {.
e800: 69 66 20 7b 5b 70 65 72 6d 75 74 61 74 69 6f 6e if {[permutation
e810: 5d 20 21 3d 20 24 3a 3a 47 28 73 74 61 72 74 3a ] != $::G(start:
e820: 70 65 72 6d 75 74 61 74 69 6f 6e 29 7d 20 72 65 permutation)} re
e830: 74 75 72 6e 0a 20 20 20 20 75 6e 73 65 74 20 3a turn. unset :
e840: 3a 47 28 73 74 61 72 74 3a 70 65 72 6d 75 74 61 :G(start:permuta
e850: 74 69 6f 6e 29 0a 20 20 7d 0a 20 20 69 66 20 7b tion). }. if {
e860: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 47 [info exists ::G
e870: 28 73 74 61 72 74 3a 66 69 6c 65 29 5d 7d 20 7b (start:file)]} {
e880: 0a 20 20 20 20 69 66 20 7b 24 74 61 69 6c 20 21 . if {$tail !
e890: 3d 20 24 3a 3a 47 28 73 74 61 72 74 3a 66 69 6c = $::G(start:fil
e8a0: 65 29 20 26 26 20 24 74 61 69 6c 21 3d 22 24 3a e) && $tail!="$:
e8b0: 3a 47 28 73 74 61 72 74 3a 66 69 6c 65 29 2e 74 :G(start:file).t
e8c0: 65 73 74 22 7d 20 72 65 74 75 72 6e 0a 20 20 20 est"} return.
e8d0: 20 75 6e 73 65 74 20 3a 3a 47 28 73 74 61 72 74 unset ::G(start
e8e0: 3a 66 69 6c 65 29 0a 20 20 7d 0a 0a 20 20 23 20 :file). }.. #
e8f0: 52 65 6d 65 6d 62 65 72 20 74 68 65 20 76 61 6c Remember the val
e900: 75 65 20 6f 66 20 74 68 65 20 73 68 61 72 65 64 ue of the shared
e910: 2d 63 61 63 68 65 20 73 65 74 74 69 6e 67 2e 20 -cache setting.
e920: 53 6f 20 74 68 61 74 20 69 74 20 69 73 20 70 6f So that it is po
e930: 73 73 69 62 6c 65 0a 20 20 23 20 74 6f 20 63 68 ssible. # to ch
e940: 65 63 6b 20 61 66 74 65 72 77 61 72 64 73 20 74 eck afterwards t
e950: 68 61 74 20 69 74 20 77 61 73 20 6e 6f 74 20 6d hat it was not m
e960: 6f 64 69 66 69 65 64 20 62 79 20 74 68 65 20 74 odified by the t
e970: 65 73 74 20 73 63 72 69 70 74 2e 0a 20 20 23 0a est script.. #.
e980: 20 20 69 66 63 61 70 61 62 6c 65 20 73 68 61 72 ifcapable shar
e990: 65 64 5f 63 61 63 68 65 20 7b 20 73 65 74 20 73 ed_cache { set s
e9a0: 63 73 20 5b 73 71 6c 69 74 65 33 5f 65 6e 61 62 cs [sqlite3_enab
e9b0: 6c 65 5f 73 68 61 72 65 64 5f 63 61 63 68 65 5d le_shared_cache]
e9c0: 20 7d 0a 0a 20 20 23 20 52 75 6e 20 74 68 65 20 }.. # Run the
e9d0: 74 65 73 74 20 73 63 72 69 70 74 20 69 6e 20 61 test script in a
e9e0: 20 73 6c 61 76 65 20 69 6e 74 65 72 70 72 65 74 slave interpret
e9f0: 65 72 2e 0a 20 20 23 0a 20 20 75 6e 73 65 74 20 er.. #. unset
ea00: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 3a 3a 72 75 -nocomplain ::ru
ea10: 6e 5f 74 68 72 65 61 64 5f 74 65 73 74 73 5f 63 n_thread_tests_c
ea20: 61 6c 6c 65 64 0a 20 20 72 65 73 65 74 5f 70 72 alled. reset_pr
ea30: 6e 67 5f 73 74 61 74 65 0a 20 20 73 65 74 20 3a ng_state. set :
ea40: 3a 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c :sqlite_open_fil
ea50: 65 5f 63 6f 75 6e 74 20 30 0a 20 20 73 65 74 20 e_count 0. set
ea60: 74 69 6d 65 20 5b 74 69 6d 65 20 7b 20 73 6c 61 time [time { sla
ea70: 76 65 5f 74 65 73 74 5f 73 63 72 69 70 74 20 5b ve_test_script [
ea80: 6c 69 73 74 20 73 6f 75 72 63 65 20 24 7a 46 69 list source $zFi
ea90: 6c 65 5d 20 7d 5d 0a 20 20 73 65 74 20 6d 73 20 le] }]. set ms
eaa0: 5b 65 78 70 72 20 5b 6c 69 6e 64 65 78 20 24 74 [expr [lindex $t
eab0: 69 6d 65 20 30 5d 20 2f 20 31 30 30 30 5d 0a 0a ime 0] / 1000]..
eac0: 20 20 23 20 54 65 73 74 20 74 68 61 74 20 61 6c # Test that al
ead0: 6c 20 66 69 6c 65 73 20 6f 70 65 6e 65 64 20 62 l files opened b
eae0: 79 20 74 68 65 20 74 65 73 74 20 73 63 72 69 70 y the test scrip
eaf0: 74 20 77 65 72 65 20 63 6c 6f 73 65 64 2e 20 4f t were closed. O
eb00: 6d 69 74 20 74 68 69 73 0a 20 20 23 20 69 66 20 mit this. # if
eb10: 74 68 65 20 74 65 73 74 20 73 63 72 69 70 74 20 the test script
eb20: 68 61 73 20 22 74 68 72 65 61 64 22 20 69 6e 20 has "thread" in
eb30: 69 74 73 20 6e 61 6d 65 2e 20 54 68 65 20 6f 70 its name. The op
eb40: 65 6e 20 66 69 6c 65 20 63 6f 75 6e 74 65 72 0a en file counter.
eb50: 20 20 23 20 69 73 20 6e 6f 74 20 74 68 72 65 61 # is not threa
eb60: 64 2d 73 61 66 65 2e 0a 20 20 23 0a 20 20 69 66 d-safe.. #. if
eb70: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a {[info exists :
eb80: 3a 72 75 6e 5f 74 68 72 65 61 64 5f 74 65 73 74 :run_thread_test
eb90: 73 5f 63 61 6c 6c 65 64 5d 3d 3d 30 7d 20 7b 0a s_called]==0} {.
eba0: 20 20 20 20 64 6f 5f 74 65 73 74 20 24 7b 74 61 do_test ${ta
ebb0: 69 6c 7d 2d 63 6c 6f 73 65 61 6c 6c 66 69 6c 65 il}-closeallfile
ebc0: 73 20 7b 20 65 78 70 72 20 7b 24 3a 3a 73 71 6c s { expr {$::sql
ebd0: 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f ite_open_file_co
ebe0: 75 6e 74 3e 30 7d 20 7d 20 7b 30 7d 0a 20 20 7d unt>0} } {0}. }
ebf0: 0a 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f . set ::sqlite_
ec00: 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 20 open_file_count
ec10: 30 0a 0a 20 20 23 20 54 65 73 74 20 74 68 61 74 0.. # Test that
ec20: 20 74 68 65 20 67 6c 6f 62 61 6c 20 22 73 68 61 the global "sha
ec30: 72 65 64 2d 63 61 63 68 65 22 20 73 65 74 74 69 red-cache" setti
ec40: 6e 67 20 77 61 73 20 6e 6f 74 20 61 6c 74 65 72 ng was not alter
ec50: 65 64 20 62 79 0a 20 20 23 20 74 68 65 20 74 65 ed by. # the te
ec60: 73 74 20 73 63 72 69 70 74 2e 0a 20 20 23 0a 20 st script.. #.
ec70: 20 69 66 63 61 70 61 62 6c 65 20 73 68 61 72 65 ifcapable share
ec80: 64 5f 63 61 63 68 65 20 7b 0a 20 20 20 20 73 65 d_cache {. se
ec90: 74 20 72 65 73 20 5b 65 78 70 72 20 7b 5b 73 71 t res [expr {[sq
eca0: 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 73 68 61 lite3_enable_sha
ecb0: 72 65 64 5f 63 61 63 68 65 5d 20 3d 3d 20 24 73 red_cache] == $s
ecc0: 63 73 7d 5d 0a 20 20 20 20 64 6f 5f 74 65 73 74 cs}]. do_test
ecd0: 20 24 7b 74 61 69 6c 7d 2d 73 68 61 72 65 64 63 ${tail}-sharedc
ece0: 61 63 68 65 73 65 74 74 69 6e 67 20 5b 6c 69 73 achesetting [lis
ecf0: 74 20 73 65 74 20 7b 7d 20 24 72 65 73 5d 20 31 t set {} $res] 1
ed00: 0a 20 20 7d 0a 0a 20 20 23 20 41 64 64 20 73 6f . }.. # Add so
ed10: 6d 65 20 69 6e 66 6f 20 74 6f 20 74 68 65 20 6f me info to the o
ed20: 75 74 70 75 74 2e 0a 20 20 23 0a 20 20 6f 75 74 utput.. #. out
ed30: 70 75 74 32 20 22 54 69 6d 65 3a 20 24 74 61 69 put2 "Time: $tai
ed40: 6c 20 24 6d 73 20 6d 73 22 0a 20 20 73 68 6f 77 l $ms ms". show
ed50: 5f 6d 65 6d 73 74 61 74 73 0a 7d 0a 0a 23 20 4f _memstats.}..# O
ed60: 70 65 6e 20 61 20 6e 65 77 20 63 6f 6e 6e 65 63 pen a new connec
ed70: 74 69 6f 6e 20 6f 6e 20 64 61 74 61 62 61 73 65 tion on database
ed80: 20 74 65 73 74 2e 64 62 20 61 6e 64 20 65 78 65 test.db and exe
ed90: 63 75 74 65 20 74 68 65 20 53 51 4c 20 73 63 72 cute the SQL scr
eda0: 69 70 74 0a 23 20 73 75 70 70 6c 69 65 64 20 61 ipt.# supplied a
edb0: 73 20 61 6e 20 61 72 67 75 6d 65 6e 74 2e 20 42 s an argument. B
edc0: 65 66 6f 72 65 20 72 65 74 75 72 6e 69 6e 67 2c efore returning,
edd0: 20 63 6c 6f 73 65 20 74 68 65 20 6e 65 77 20 63 close the new c
ede0: 6f 6e 65 63 74 69 6f 6e 20 61 6e 64 0a 23 20 72 onection and.# r
edf0: 65 73 74 6f 72 65 20 74 68 65 20 34 20 62 79 74 estore the 4 byt
ee00: 65 20 66 69 65 6c 64 73 20 73 74 61 72 74 69 6e e fields startin
ee10: 67 20 61 74 20 68 65 61 64 65 72 20 6f 66 66 73 g at header offs
ee20: 65 74 73 20 32 38 2c 20 39 32 20 61 6e 64 20 39 ets 28, 92 and 9
ee30: 36 0a 23 20 74 6f 20 74 68 65 20 76 61 6c 75 65 6.# to the value
ee40: 73 20 74 68 65 79 20 68 65 6c 64 20 62 65 66 6f s they held befo
ee50: 72 65 20 74 68 65 20 53 51 4c 20 77 61 73 20 65 re the SQL was e
ee60: 78 65 63 75 74 65 64 2e 20 54 68 69 73 20 73 69 xecuted. This si
ee70: 6d 75 6c 61 74 65 73 0a 23 20 61 20 77 72 69 74 mulates.# a writ
ee80: 65 20 62 79 20 61 20 70 72 65 2d 33 2e 37 2e 30 e by a pre-3.7.0
ee90: 20 63 6c 69 65 6e 74 2e 0a 23 0a 70 72 6f 63 20 client..#.proc
eea0: 73 71 6c 33 36 32 33 31 20 7b 73 71 6c 7d 20 7b sql36231 {sql} {
eeb0: 0a 20 20 73 65 74 20 42 20 5b 68 65 78 69 6f 5f . set B [hexio_
eec0: 72 65 61 64 20 74 65 73 74 2e 64 62 20 39 32 20 read test.db 92
eed0: 38 5d 0a 20 20 73 65 74 20 41 20 5b 68 65 78 69 8]. set A [hexi
eee0: 6f 5f 72 65 61 64 20 74 65 73 74 2e 64 62 20 32 o_read test.db 2
eef0: 38 20 34 5d 0a 20 20 73 71 6c 69 74 65 33 20 64 8 4]. sqlite3 d
ef00: 62 33 36 32 33 31 20 74 65 73 74 2e 64 62 0a 20 b36231 test.db.
ef10: 20 63 61 74 63 68 20 7b 20 64 62 33 36 32 33 31 catch { db36231
ef20: 20 66 75 6e 63 20 61 5f 73 74 72 69 6e 67 20 61 func a_string a
ef30: 5f 73 74 72 69 6e 67 20 7d 0a 20 20 65 78 65 63 _string }. exec
ef40: 73 71 6c 20 24 73 71 6c 20 64 62 33 36 32 33 31 sql $sql db36231
ef50: 0a 20 20 64 62 33 36 32 33 31 20 63 6c 6f 73 65 . db36231 close
ef60: 0a 20 20 68 65 78 69 6f 5f 77 72 69 74 65 20 74 . hexio_write t
ef70: 65 73 74 2e 64 62 20 32 38 20 24 41 0a 20 20 68 est.db 28 $A. h
ef80: 65 78 69 6f 5f 77 72 69 74 65 20 74 65 73 74 2e exio_write test.
ef90: 64 62 20 39 32 20 24 42 0a 20 20 72 65 74 75 72 db 92 $B. retur
efa0: 6e 20 22 22 0a 7d 0a 0a 70 72 6f 63 20 64 62 5f n "".}..proc db_
efb0: 73 61 76 65 20 7b 7d 20 7b 0a 20 20 66 6f 72 65 save {} {. fore
efc0: 61 63 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 ach f [glob -noc
efd0: 6f 6d 70 6c 61 69 6e 20 73 76 5f 74 65 73 74 2e omplain sv_test.
efe0: 64 62 2a 5d 20 7b 20 66 6f 72 63 65 64 65 6c 65 db*] { forcedele
eff0: 74 65 20 24 66 20 7d 0a 20 20 66 6f 72 65 61 63 te $f }. foreac
f000: 68 20 66 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d h f [glob -nocom
f010: 70 6c 61 69 6e 20 74 65 73 74 2e 64 62 2a 5d 20 plain test.db*]
f020: 7b 0a 20 20 20 20 73 65 74 20 66 32 20 22 73 76 {. set f2 "sv
f030: 5f 24 66 22 0a 20 20 20 20 66 6f 72 63 65 63 6f _$f". forceco
f040: 70 79 20 24 66 20 24 66 32 0a 20 20 7d 0a 7d 0a py $f $f2. }.}.
f050: 70 72 6f 63 20 64 62 5f 73 61 76 65 5f 61 6e 64 proc db_save_and
f060: 5f 63 6c 6f 73 65 20 7b 7d 20 7b 0a 20 20 64 62 _close {} {. db
f070: 5f 73 61 76 65 0a 20 20 63 61 74 63 68 20 7b 20 _save. catch {
f080: 64 62 20 63 6c 6f 73 65 20 7d 0a 20 20 72 65 74 db close }. ret
f090: 75 72 6e 20 22 22 0a 7d 0a 70 72 6f 63 20 64 62 urn "".}.proc db
f0a0: 5f 72 65 73 74 6f 72 65 20 7b 7d 20 7b 0a 20 20 _restore {} {.
f0b0: 66 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f 62 20 foreach f [glob
f0c0: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 73 74 -nocomplain test
f0d0: 2e 64 62 2a 5d 20 7b 20 66 6f 72 63 65 64 65 6c .db*] { forcedel
f0e0: 65 74 65 20 24 66 20 7d 0a 20 20 66 6f 72 65 61 ete $f }. forea
f0f0: 63 68 20 66 32 20 5b 67 6c 6f 62 20 2d 6e 6f 63 ch f2 [glob -noc
f100: 6f 6d 70 6c 61 69 6e 20 73 76 5f 74 65 73 74 2e omplain sv_test.
f110: 64 62 2a 5d 20 7b 0a 20 20 20 20 73 65 74 20 66 db*] {. set f
f120: 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 [string range $
f130: 66 32 20 33 20 65 6e 64 5d 0a 20 20 20 20 66 6f f2 3 end]. fo
f140: 72 63 65 63 6f 70 79 20 24 66 32 20 24 66 0a 20 rcecopy $f2 $f.
f150: 20 7d 0a 7d 0a 70 72 6f 63 20 64 62 5f 72 65 73 }.}.proc db_res
f160: 74 6f 72 65 5f 61 6e 64 5f 72 65 6f 70 65 6e 20 tore_and_reopen
f170: 7b 7b 64 62 66 69 6c 65 20 74 65 73 74 2e 64 62 {{dbfile test.db
f180: 7d 7d 20 7b 0a 20 20 63 61 74 63 68 20 7b 20 64 }} {. catch { d
f190: 62 20 63 6c 6f 73 65 20 7d 0a 20 20 64 62 5f 72 b close }. db_r
f1a0: 65 73 74 6f 72 65 0a 20 20 73 71 6c 69 74 65 33 estore. sqlite3
f1b0: 20 64 62 20 24 64 62 66 69 6c 65 0a 7d 0a 70 72 db $dbfile.}.pr
f1c0: 6f 63 20 64 62 5f 64 65 6c 65 74 65 5f 61 6e 64 oc db_delete_and
f1d0: 5f 72 65 6f 70 65 6e 20 7b 7b 66 69 6c 65 20 74 _reopen {{file t
f1e0: 65 73 74 2e 64 62 7d 7d 20 7b 0a 20 20 63 61 74 est.db}} {. cat
f1f0: 63 68 20 7b 20 64 62 20 63 6c 6f 73 65 20 7d 0a ch { db close }.
f200: 20 20 66 6f 72 65 61 63 68 20 66 20 5b 67 6c 6f foreach f [glo
f210: 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 b -nocomplain te
f220: 73 74 2e 64 62 2a 5d 20 7b 20 66 6f 72 63 65 64 st.db*] { forced
f230: 65 6c 65 74 65 20 24 66 20 7d 0a 20 20 73 71 6c elete $f }. sql
f240: 69 74 65 33 20 64 62 20 24 66 69 6c 65 0a 7d 0a ite3 db $file.}.
f250: 0a 23 20 43 6c 6f 73 65 20 61 6e 79 20 63 6f 6e .# Close any con
f260: 6e 65 63 74 69 6f 6e 73 20 6e 61 6d 65 64 20 5b nections named [
f270: 64 62 5d 2c 20 5b 64 62 32 5d 20 6f 72 20 5b 64 db], [db2] or [d
f280: 62 33 5d 2e 20 54 68 65 6e 20 75 73 65 20 73 71 b3]. Then use sq
f290: 6c 69 74 65 33 5f 63 6f 6e 66 69 67 0a 23 20 74 lite3_config.# t
f2a0: 6f 20 63 6f 6e 66 69 67 75 72 65 20 74 68 65 20 o configure the
f2b0: 73 69 7a 65 20 6f 66 20 74 68 65 20 50 41 47 45 size of the PAGE
f2c0: 43 41 43 48 45 20 61 6c 6c 6f 63 61 74 69 6f 6e CACHE allocation
f2d0: 20 75 73 69 6e 67 20 74 68 65 20 70 61 72 61 6d using the param
f2e0: 65 74 65 72 73 0a 23 20 70 72 6f 76 69 64 65 64 eters.# provided
f2f0: 20 74 6f 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 to this command
f300: 2e 20 53 61 76 65 20 74 68 65 20 6f 6c 64 20 50 . Save the old P
f310: 41 47 45 43 41 43 48 45 20 70 61 72 61 6d 65 74 AGECACHE paramet
f320: 65 72 73 20 69 6e 20 61 20 67 6c 6f 62 61 6c 20 ers in a global
f330: 0a 23 20 76 61 72 69 61 62 6c 65 20 73 6f 20 74 .# variable so t
f340: 68 61 74 20 5b 74 65 73 74 5f 72 65 73 74 6f 72 hat [test_restor
f350: 65 5f 63 6f 6e 66 69 67 5f 70 61 67 65 63 61 63 e_config_pagecac
f360: 68 65 5d 20 63 61 6e 20 72 65 73 74 6f 72 65 20 he] can restore
f370: 74 68 65 20 70 72 65 76 69 6f 75 73 0a 23 20 63 the previous.# c
f380: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 2e 0a 23 0a onfiguration..#.
f390: 23 20 42 65 66 6f 72 65 20 72 65 74 75 72 6e 69 # Before returni
f3a0: 6e 67 2c 20 72 65 6f 70 65 6e 20 63 6f 6e 6e 65 ng, reopen conne
f3b0: 63 74 69 6f 6e 20 5b 64 62 5d 20 6f 6e 20 66 69 ction [db] on fi
f3c0: 6c 65 20 74 65 73 74 2e 64 62 2e 0a 23 0a 70 72 le test.db..#.pr
f3d0: 6f 63 20 74 65 73 74 5f 73 65 74 5f 63 6f 6e 66 oc test_set_conf
f3e0: 69 67 5f 70 61 67 65 63 61 63 68 65 20 7b 73 7a ig_pagecache {sz
f3f0: 20 6e 50 67 7d 20 7b 0a 20 20 63 61 74 63 68 20 nPg} {. catch
f400: 7b 64 62 20 63 6c 6f 73 65 7d 0a 20 20 63 61 74 {db close}. cat
f410: 63 68 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 20 ch {db2 close}.
f420: 20 63 61 74 63 68 20 7b 64 62 33 20 63 6c 6f 73 catch {db3 clos
f430: 65 7d 0a 0a 20 20 73 71 6c 69 74 65 33 5f 73 68 e}.. sqlite3_sh
f440: 75 74 64 6f 77 6e 0a 20 20 73 65 74 20 3a 3a 6f utdown. set ::o
f450: 6c 64 5f 70 61 67 65 63 61 63 68 65 5f 63 6f 6e ld_pagecache_con
f460: 66 69 67 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e fig [sqlite3_con
f470: 66 69 67 5f 70 61 67 65 63 61 63 68 65 20 24 73 fig_pagecache $s
f480: 7a 20 24 6e 50 67 5d 0a 20 20 73 71 6c 69 74 65 z $nPg]. sqlite
f490: 33 5f 69 6e 69 74 69 61 6c 69 7a 65 0a 20 20 61 3_initialize. a
f4a0: 75 74 6f 69 6e 73 74 61 6c 6c 5f 74 65 73 74 5f utoinstall_test_
f4b0: 66 75 6e 63 74 69 6f 6e 73 0a 20 20 72 65 73 65 functions. rese
f4c0: 74 5f 64 62 0a 7d 0a 0a 23 20 43 6c 6f 73 65 20 t_db.}..# Close
f4d0: 61 6e 79 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 any connections
f4e0: 6e 61 6d 65 64 20 5b 64 62 5d 2c 20 5b 64 62 32 named [db], [db2
f4f0: 5d 20 6f 72 20 5b 64 62 33 5d 2e 20 54 68 65 6e ] or [db3]. Then
f500: 20 75 73 65 20 73 71 6c 69 74 65 33 5f 63 6f 6e use sqlite3_con
f510: 66 69 67 0a 23 20 74 6f 20 63 6f 6e 66 69 67 75 fig.# to configu
f520: 72 65 20 74 68 65 20 73 69 7a 65 20 6f 66 20 74 re the size of t
f530: 68 65 20 50 41 47 45 43 41 43 48 45 20 61 6c 6c he PAGECACHE all
f540: 6f 63 61 74 69 6f 6e 20 74 6f 20 74 68 65 20 73 ocation to the s
f550: 69 7a 65 20 73 61 76 65 64 20 69 6e 0a 23 20 74 ize saved in.# t
f560: 68 65 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 he global variab
f570: 6c 65 20 62 79 20 61 6e 20 65 61 72 6c 69 65 72 le by an earlier
f580: 20 63 61 6c 6c 20 74 6f 20 5b 74 65 73 74 5f 73 call to [test_s
f590: 65 74 5f 63 6f 6e 66 69 67 5f 70 61 67 65 63 61 et_config_pageca
f5a0: 63 68 65 5d 2e 0a 23 0a 23 20 42 65 66 6f 72 65 che]..#.# Before
f5b0: 20 72 65 74 75 72 6e 69 6e 67 2c 20 72 65 6f 70 returning, reop
f5c0: 65 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 5b 64 en connection [d
f5d0: 62 5d 20 6f 6e 20 66 69 6c 65 20 74 65 73 74 2e b] on file test.
f5e0: 64 62 2e 0a 23 0a 70 72 6f 63 20 74 65 73 74 5f db..#.proc test_
f5f0: 72 65 73 74 6f 72 65 5f 63 6f 6e 66 69 67 5f 70 restore_config_p
f600: 61 67 65 63 61 63 68 65 20 7b 7d 20 7b 0a 20 20 agecache {} {.
f610: 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d catch {db close}
f620: 0a 20 20 63 61 74 63 68 20 7b 64 62 32 20 63 6c . catch {db2 cl
f630: 6f 73 65 7d 0a 20 20 63 61 74 63 68 20 7b 64 62 ose}. catch {db
f640: 33 20 63 6c 6f 73 65 7d 0a 0a 20 20 73 71 6c 69 3 close}.. sqli
f650: 74 65 33 5f 73 68 75 74 64 6f 77 6e 0a 20 20 65 te3_shutdown. e
f660: 76 61 6c 20 73 71 6c 69 74 65 33 5f 63 6f 6e 66 val sqlite3_conf
f670: 69 67 5f 70 61 67 65 63 61 63 68 65 20 24 3a 3a ig_pagecache $::
f680: 6f 6c 64 5f 70 61 67 65 63 61 63 68 65 5f 63 6f old_pagecache_co
f690: 6e 66 69 67 0a 20 20 75 6e 73 65 74 20 3a 3a 6f nfig. unset ::o
f6a0: 6c 64 5f 70 61 67 65 63 61 63 68 65 5f 63 6f 6e ld_pagecache_con
f6b0: 66 69 67 20 0a 20 20 73 71 6c 69 74 65 33 5f 69 fig . sqlite3_i
f6c0: 6e 69 74 69 61 6c 69 7a 65 0a 20 20 61 75 74 6f nitialize. auto
f6d0: 69 6e 73 74 61 6c 6c 5f 74 65 73 74 5f 66 75 6e install_test_fun
f6e0: 63 74 69 6f 6e 73 0a 20 20 73 71 6c 69 74 65 33 ctions. sqlite3
f6f0: 20 64 62 20 74 65 73 74 2e 64 62 0a 7d 0a 0a 23 db test.db.}..#
f700: 20 49 66 20 74 68 65 20 6c 69 62 72 61 72 79 20 If the library
f710: 69 73 20 63 6f 6d 70 69 6c 65 64 20 77 69 74 68 is compiled with
f720: 20 74 68 65 20 53 51 4c 49 54 45 5f 44 45 46 41 the SQLITE_DEFA
f730: 55 4c 54 5f 41 55 54 4f 56 41 43 55 55 4d 20 6d ULT_AUTOVACUUM m
f740: 61 63 72 6f 20 73 65 74 0a 23 20 74 6f 20 6e 6f acro set.# to no
f750: 6e 2d 7a 65 72 6f 2c 20 74 68 65 6e 20 73 65 74 n-zero, then set
f760: 20 74 68 65 20 67 6c 6f 62 61 6c 20 76 61 72 69 the global vari
f770: 61 62 6c 65 20 24 41 55 54 4f 56 41 43 55 55 4d able $AUTOVACUUM
f780: 20 74 6f 20 31 2e 0a 73 65 74 20 41 55 54 4f 56 to 1..set AUTOV
f790: 41 43 55 55 4d 20 24 73 71 6c 69 74 65 5f 6f 70 ACUUM $sqlite_op
f7a0: 74 69 6f 6e 73 28 64 65 66 61 75 6c 74 5f 61 75 tions(default_au
f7b0: 74 6f 76 61 63 75 75 6d 29 0a 0a 23 20 4d 61 6b tovacuum)..# Mak
f7c0: 65 20 73 75 72 65 20 74 68 65 20 46 54 53 20 65 e sure the FTS e
f7d0: 6e 68 61 6e 63 65 64 20 71 75 65 72 79 20 73 79 nhanced query sy
f7e0: 6e 74 61 78 20 69 73 20 64 69 73 61 62 6c 65 64 ntax is disabled
f7f0: 2e 0a 73 65 74 20 73 71 6c 69 74 65 5f 66 74 73 ..set sqlite_fts
f800: 33 5f 65 6e 61 62 6c 65 5f 70 61 72 65 6e 74 68 3_enable_parenth
f810: 65 73 65 73 20 30 0a 0a 23 20 44 75 72 69 6e 67 eses 0..# During
f820: 20 74 65 73 74 69 6e 67 2c 20 61 73 73 75 6d 65 testing, assume
f830: 20 74 68 61 74 20 61 6c 6c 20 64 61 74 61 62 61 that all databa
f840: 73 65 20 66 69 6c 65 73 20 61 72 65 20 77 65 6c se files are wel
f850: 6c 2d 66 6f 72 6d 65 64 2e 20 20 54 68 65 0a 23 l-formed. The.#
f860: 20 66 65 77 20 74 65 73 74 20 63 61 73 65 73 20 few test cases
f870: 74 68 61 74 20 64 65 6c 69 62 65 72 61 74 65 6c that deliberatel
f880: 79 20 63 6f 72 72 75 70 74 20 64 61 74 61 62 61 y corrupt databa
f890: 73 65 20 66 69 6c 65 73 20 73 68 6f 75 6c 64 20 se files should
f8a0: 72 65 73 63 69 6e 64 20 0a 23 20 74 68 69 73 20 rescind .# this
f8b0: 73 65 74 74 69 6e 67 20 62 79 20 69 6e 76 6f 6b setting by invok
f8c0: 69 6e 67 20 22 64 61 74 61 62 61 73 65 5f 63 61 ing "database_ca
f8d0: 6e 5f 62 65 5f 63 6f 72 72 75 70 74 22 0a 23 0a n_be_corrupt".#.
f8e0: 64 61 74 61 62 61 73 65 5f 6e 65 76 65 72 5f 63 database_never_c
f8f0: 6f 72 72 75 70 74 0a 0a 73 6f 75 72 63 65 20 24 orrupt..source $
f900: 74 65 73 74 64 69 72 2f 74 68 72 65 61 64 5f 63 testdir/thread_c
f910: 6f 6d 6d 6f 6e 2e 74 63 6c 0a 73 6f 75 72 63 65 ommon.tcl.source
f920: 20 24 74 65 73 74 64 69 72 2f 6d 61 6c 6c 6f 63 $testdir/malloc
f930: 5f 63 6f 6d 6d 6f 6e 2e 74 63 6c 0a _common.tcl.