0000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d ###############.
0050: 0a 23 0d 0a 23 20 73 74 72 65 73 73 2e 65 61 67 .#..# stress.eag
0060: 6c 65 20 2d 2d 0d 0a 23 0d 0a 23 20 57 72 69 74 le --..#..# Writ
0070: 74 65 6e 20 62 79 20 4a 6f 65 20 4d 69 73 74 61 ten by Joe Mista
0080: 63 68 6b 69 6e 2e 0d 0a 23 20 52 65 6c 65 61 73 chkin...# Releas
0090: 65 64 20 74 6f 20 74 68 65 20 70 75 62 6c 69 63 ed to the public
00a0: 20 64 6f 6d 61 69 6e 2c 20 75 73 65 20 61 74 20 domain, use at
00b0: 79 6f 75 72 20 6f 77 6e 20 72 69 73 6b 21 0d 0a your own risk!..
00c0: 23 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 #..#############
00d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
00e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
00f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0110: 23 23 0d 0a 0d 0a 70 61 63 6b 61 67 65 20 72 65 ##....package re
0120: 71 75 69 72 65 20 45 61 67 6c 65 0d 0a 70 61 63 quire Eagle..pac
0130: 6b 61 67 65 20 72 65 71 75 69 72 65 20 45 61 67 kage require Eag
0140: 6c 65 2e 4c 69 62 72 61 72 79 0d 0a 70 61 63 6b le.Library..pack
0150: 61 67 65 20 72 65 71 75 69 72 65 20 45 61 67 6c age require Eagl
0160: 65 2e 54 65 73 74 0d 0a 0d 0a 72 75 6e 54 65 73 e.Test....runTes
0170: 74 50 72 6f 6c 6f 67 75 65 0d 0a 0d 0a 23 23 23 tPrologue....###
0180: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0190: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
01a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
01b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
01c0: 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a ############....
01d0: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 package require
01e0: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 System.Data.SQLi
01f0: 74 65 2e 54 65 73 74 0d 0a 72 75 6e 53 51 4c 69 te.Test..runSQLi
0200: 74 65 54 65 73 74 50 72 6f 6c 6f 67 75 65 0d 0a teTestPrologue..
0210: 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ..##############
0220: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0230: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0240: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0260: 23 0d 0a 0d 0a 23 0d 0a 23 20 4e 4f 54 45 3a 20 #....#..# NOTE:
0270: 52 65 70 6f 72 74 20 62 65 66 6f 72 65 20 74 65 Report before te
0280: 73 74 2c 20 62 65 66 6f 72 65 20 73 68 75 74 64 st, before shutd
0290: 6f 77 6e 2e 0d 0a 23 0d 0a 63 68 65 63 6b 46 6f own...#..checkFo
02a0: 72 53 51 4c 69 74 65 44 69 72 65 63 74 6f 72 69 rSQLiteDirectori
02b0: 65 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c es $test_channel
02c0: 0d 0a 67 65 74 53 51 4c 69 74 65 48 61 6e 64 6c ..getSQLiteHandl
02d0: 65 43 6f 75 6e 74 73 20 24 74 65 73 74 5f 63 68 eCounts $test_ch
02e0: 61 6e 6e 65 6c 0d 0a 72 65 70 6f 72 74 53 51 4c annel..reportSQL
02f0: 69 74 65 52 65 73 6f 75 72 63 65 73 20 24 74 65 iteResources $te
0300: 73 74 5f 63 68 61 6e 6e 65 6c 0d 0a 0d 0a 23 23 st_channel....##
0310: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0320: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0330: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0340: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0350: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d #############...
0360: 0a 23 0d 0a 23 20 4e 4f 54 45 3a 20 4d 61 6b 65 .#..# NOTE: Make
0370: 20 73 75 72 65 20 74 68 61 74 20 53 51 4c 69 74 sure that SQLit
0380: 65 20 63 6f 72 65 20 6c 69 62 72 61 72 79 20 69 e core library i
0390: 73 20 63 6f 6d 70 6c 65 74 65 6c 79 20 73 68 75 s completely shu
03a0: 74 64 6f 77 6e 20 70 72 69 6f 72 20 74 6f 0d 0a tdown prior to..
03b0: 23 20 20 20 20 20 20 20 73 74 61 72 74 69 6e 67 # starting
03c0: 20 61 6e 79 20 6f 66 20 74 68 65 20 74 65 73 74 any of the test
03d0: 73 20 69 6e 20 74 68 69 73 20 66 69 6c 65 2e 0d s in this file..
03e0: 0a 23 0d 0a 73 68 75 74 64 6f 77 6e 53 51 4c 69 .#..shutdownSQLi
03f0: 74 65 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c te $test_channel
0400: 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 ....############
0410: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0420: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0430: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0440: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0450: 23 23 23 0d 0a 0d 0a 23 0d 0a 23 20 4e 4f 54 45 ###....#..# NOTE
0460: 3a 20 52 65 70 6f 72 74 20 62 65 66 6f 72 65 20 : Report before
0470: 74 65 73 74 2c 20 61 66 74 65 72 20 73 68 75 74 test, after shut
0480: 64 6f 77 6e 2e 0d 0a 23 0d 0a 63 68 65 63 6b 46 down...#..checkF
0490: 6f 72 53 51 4c 69 74 65 44 69 72 65 63 74 6f 72 orSQLiteDirector
04a0: 69 65 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 ies $test_channe
04b0: 6c 0d 0a 67 65 74 53 51 4c 69 74 65 48 61 6e 64 l..getSQLiteHand
04c0: 6c 65 43 6f 75 6e 74 73 20 24 74 65 73 74 5f 63 leCounts $test_c
04d0: 68 61 6e 6e 65 6c 0d 0a 72 65 70 6f 72 74 53 51 hannel..reportSQ
04e0: 4c 69 74 65 52 65 73 6f 75 72 63 65 73 20 24 74 LiteResources $t
04f0: 65 73 74 5f 63 68 61 6e 6e 65 6c 0d 0a 0d 0a 23 est_channel....#
0500: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0510: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0520: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0530: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0540: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a ##############..
0550: 0d 0a 72 75 6e 54 65 73 74 20 7b 74 65 73 74 20 ..runTest {test
0560: 73 74 72 65 73 73 2d 31 2e 31 20 7b 6d 75 6c 74 stress-1.1 {mult
0570: 69 74 68 72 65 61 64 65 64 20 73 74 72 65 73 73 ithreaded stress
0580: 20 74 65 73 74 69 6e 67 7d 20 2d 73 65 74 75 70 testing} -setup
0590: 20 7b 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 {.. unset -noc
05a0: 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74 20 74 omplain result t
05b0: 68 72 65 61 64 20 69 6e 64 65 78 20 77 6f 72 6b hread index work
05c0: 6c 6f 61 64 20 70 72 69 6f 72 69 74 79 20 6e 6f load priority no
05d0: 57 6f 72 6b 6c 6f 61 64 20 5c 0d 0a 20 20 20 20 Workload \..
05e0: 20 20 70 72 69 6f 72 69 74 69 65 73 20 73 72 63 priorities src
05f0: 44 62 20 64 62 20 66 69 6c 65 4e 61 6d 65 20 63 Db db fileName c
0600: 6f 6d 70 69 6c 65 64 20 6f 70 74 69 6f 6e 73 20 ompiled options
0610: 63 6f 75 6e 74 20 74 69 6d 65 73 20 6c 6f 67 46 count times logF
0620: 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 ileName \..
0630: 20 6c 6f 67 4c 69 73 74 65 6e 65 72 20 63 6f 6e logListener con
0640: 6e 65 63 74 69 6f 6e 20 69 6e 64 69 63 61 74 6f nection indicato
0650: 72 73 20 69 74 65 72 61 74 69 6f 6e 73 20 65 78 rs iterations ex
0660: 69 74 4f 6e 46 61 69 6c 20 63 6f 54 61 73 6b 4d itOnFail coTaskM
0670: 65 6d 20 5c 0d 0a 20 20 20 20 20 20 6e 6f 54 72 em \.. noTr
0680: 61 63 65 20 66 61 69 6c 75 72 65 73 20 73 74 61 ace failures sta
0690: 74 75 73 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 tus.... #######
06a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
06b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
06c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
06d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
06e0: 23 23 23 23 23 23 0d 0a 0d 0a 20 20 70 72 6f 63 ######.... proc
06f0: 20 73 65 74 75 70 57 6f 72 6b 6c 6f 61 64 4d 65 setupWorkloadMe
0700: 6d 44 62 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7b mDb { fileName {
0710: 76 61 72 4e 61 6d 65 20 64 62 7d 20 7d 20 7b 0d varName db} } {.
0720: 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f . #.. # NO
0730: 54 45 3a 20 54 68 69 73 20 73 68 6f 75 6c 64 20 TE: This should
0740: 62 65 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 79 20 be an in-memory
0750: 64 61 74 61 62 61 73 65 3b 20 74 68 65 72 65 66 database; theref
0760: 6f 72 65 2c 20 73 6b 69 70 20 61 74 74 65 6d 70 ore, skip attemp
0770: 74 69 6e 67 0d 0a 20 20 20 20 23 20 20 20 20 20 ting.. #
0780: 20 20 74 6f 20 64 65 6c 65 74 65 20 74 68 65 20 to delete the
0790: 75 6e 64 65 72 6c 79 69 6e 67 20 64 61 74 61 62 underlying datab
07a0: 61 73 65 20 66 69 6c 65 20 61 73 20 74 68 61 74 ase file as that
07b0: 20 77 6f 75 6c 64 20 6e 6f 74 20 6d 61 6b 65 20 would not make
07c0: 61 6e 79 0d 0a 20 20 20 20 23 20 20 20 20 20 20 any.. #
07d0: 20 73 65 6e 73 65 2e 20 20 41 6c 73 6f 2c 20 64 sense. Also, d
07e0: 69 73 61 62 6c 65 20 75 73 65 20 6f 66 20 22 50 isable use of "P
07f0: 52 41 47 4d 41 20 74 65 6d 70 5f 73 74 6f 72 65 RAGMA temp_store
0800: 5f 64 69 72 65 63 74 6f 72 79 22 20 77 68 65 6e _directory" when
0810: 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 73 65 .. # se
0820: 74 74 69 6e 67 20 75 70 20 74 68 65 20 6e 65 77 tting up the new
0830: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 62 65 63 61 connection beca
0840: 75 73 65 20 69 74 20 69 73 20 6e 6f 74 20 74 68 use it is not th
0850: 72 65 61 64 2d 73 61 66 65 2e 0d 0a 20 20 20 20 read-safe...
0860: 23 0d 0a 20 20 20 20 75 70 6c 65 76 65 6c 20 31 #.. uplevel 1
0870: 20 5b 6c 69 73 74 20 73 65 74 75 70 44 62 20 24 [list setupDb $
0880: 66 69 6c 65 4e 61 6d 65 20 22 22 20 22 22 20 22 fileName "" "" "
0890: 22 20 22 22 20 22 22 20 66 61 6c 73 65 20 66 61 " "" "" false fa
08a0: 6c 73 65 20 74 72 75 65 20 66 61 6c 73 65 20 5c lse true false \
08b0: 0d 0a 20 20 20 20 20 20 20 20 24 76 61 72 4e 61 .. $varNa
08c0: 6d 65 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 me].. }.... ##
08d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
08e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
08f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0900: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0910: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 ###########....
0920: 20 70 72 6f 63 20 73 65 74 75 70 57 6f 72 6b 6c proc setupWorkl
0930: 6f 61 64 46 69 6c 65 44 62 20 7b 20 66 69 6c 65 oadFileDb { file
0940: 4e 61 6d 65 20 7b 76 61 72 4e 61 6d 65 20 64 62 Name {varName db
0950: 7d 20 7d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 } } {.. #..
0960: 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 61 # NOTE: Skip a
0970: 74 74 65 6d 70 74 69 6e 67 20 74 6f 20 64 65 6c ttempting to del
0980: 65 74 65 20 74 68 65 20 75 6e 64 65 72 6c 79 69 ete the underlyi
0990: 6e 67 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 ng database file
09a0: 2e 20 20 41 6c 73 6f 2c 0d 0a 20 20 20 20 23 20 . Also,.. #
09b0: 20 20 20 20 20 20 64 69 73 61 62 6c 65 20 75 73 disable us
09c0: 65 20 6f 66 20 22 50 52 41 47 4d 41 20 74 65 6d e of "PRAGMA tem
09d0: 70 5f 73 74 6f 72 65 5f 64 69 72 65 63 74 6f 72 p_store_director
09e0: 79 22 20 77 68 65 6e 20 73 65 74 74 69 6e 67 20 y" when setting
09f0: 75 70 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 up.. #
0a00: 74 68 65 20 6e 65 77 20 63 6f 6e 6e 65 63 74 69 the new connecti
0a10: 6f 6e 20 62 65 63 61 75 73 65 20 69 74 20 69 73 on because it is
0a20: 20 6e 6f 74 20 74 68 72 65 61 64 2d 73 61 66 65 not thread-safe
0a30: 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 75 70 ... #.. up
0a40: 6c 65 76 65 6c 20 31 20 5b 6c 69 73 74 20 73 65 level 1 [list se
0a50: 74 75 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 20 tupDb $fileName
0a60: 22 22 20 22 22 20 22 22 20 22 22 20 22 22 20 74 "" "" "" "" "" t
0a70: 72 75 65 20 66 61 6c 73 65 20 66 61 6c 73 65 20 rue false false
0a80: 66 61 6c 73 65 20 5c 0d 0a 20 20 20 20 20 20 20 false \..
0a90: 20 24 76 61 72 4e 61 6d 65 5d 0d 0a 20 20 7d 0d $varName].. }.
0aa0: 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 ... ###########
0ab0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0ac0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0ad0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0ae0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0af0: 23 23 0d 0a 0d 0a 20 20 70 72 6f 63 20 66 6f 72 ##.... proc for
0b00: 6d 61 74 57 6f 72 6b 6c 6f 61 64 52 65 73 75 6c matWorkloadResul
0b10: 74 20 7b 20 69 6e 64 65 78 20 7d 20 7b 0d 0a 20 t { index } {..
0b20: 20 20 20 73 65 74 20 72 65 73 75 6c 74 20 5b 61 set result [a
0b30: 70 70 65 6e 64 41 72 67 73 20 22 2d 2d 2d 2d 20 ppendArgs "----
0b40: 69 74 65 72 61 74 69 6f 6e 73 20 66 6f 72 20 77 iterations for w
0b50: 6f 72 6b 6c 6f 61 64 20 28 22 20 24 69 6e 64 65 orkload (" $inde
0b60: 78 20 22 29 3a 20 22 5d 0d 0a 0d 0a 20 20 20 20 x "): "]....
0b70: 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 65 append result [e
0b80: 78 70 72 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 xpr {[info exist
0b90: 73 20 3a 3a 69 74 65 72 61 74 69 6f 6e 73 28 24 s ::iterations($
0ba0: 69 6e 64 65 78 2c 74 6f 74 61 6c 29 5d 20 3f 20 index,total)] ?
0bb0: 5c 0d 0a 20 20 20 20 20 20 20 20 24 3a 3a 69 74 \.. $::it
0bc0: 65 72 61 74 69 6f 6e 73 28 24 69 6e 64 65 78 2c erations($index,
0bd0: 74 6f 74 61 6c 29 20 3a 20 30 7d 5d 20 22 20 74 total) : 0}] " t
0be0: 6f 74 61 6c 2c 20 22 0d 0a 0d 0a 20 20 20 20 61 otal, ".... a
0bf0: 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 65 78 ppend result [ex
0c00: 70 72 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 pr {[info exists
0c10: 20 3a 3a 69 74 65 72 61 74 69 6f 6e 73 28 24 69 ::iterations($i
0c20: 6e 64 65 78 2c 6f 6b 29 5d 20 3f 20 5c 0d 0a 20 ndex,ok)] ? \..
0c30: 20 20 20 20 20 20 20 24 3a 3a 69 74 65 72 61 74 $::iterat
0c40: 69 6f 6e 73 28 24 69 6e 64 65 78 2c 6f 6b 29 20 ions($index,ok)
0c50: 3a 20 30 7d 5d 20 22 20 6f 6b 2c 20 22 0d 0a 0d : 0}] " ok, "...
0c60: 0a 20 20 20 20 61 70 70 65 6e 64 20 72 65 73 75 . append resu
0c70: 6c 74 20 5b 65 78 70 72 20 7b 5b 69 6e 66 6f 20 lt [expr {[info
0c80: 65 78 69 73 74 73 20 3a 3a 69 74 65 72 61 74 69 exists ::iterati
0c90: 6f 6e 73 28 24 69 6e 64 65 78 2c 65 72 72 6f 72 ons($index,error
0ca0: 29 5d 20 3f 20 5c 0d 0a 20 20 20 20 20 20 20 20 )] ? \..
0cb0: 24 3a 3a 69 74 65 72 61 74 69 6f 6e 73 28 24 69 $::iterations($i
0cc0: 6e 64 65 78 2c 65 72 72 6f 72 29 20 3a 20 30 7d ndex,error) : 0}
0cd0: 5d 20 22 20 65 72 72 6f 72 2c 20 22 0d 0a 0d 0a ] " error, "....
0ce0: 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 #.. # NOT
0cf0: 45 3a 20 54 72 61 6e 73 6c 61 74 65 20 74 68 65 E: Translate the
0d00: 20 77 6f 72 6b 6c 6f 61 64 20 69 6e 64 65 78 20 workload index
0d10: 74 6f 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e to the correspon
0d20: 64 69 6e 67 20 69 74 65 72 61 74 69 6f 6e 0d 0a ding iteration..
0d30: 20 20 20 20 23 20 20 20 20 20 20 20 65 72 72 6f # erro
0d40: 72 20 69 6e 64 69 63 61 74 6f 72 20 73 6f 20 74 r indicator so t
0d50: 68 61 74 20 77 65 20 63 61 6e 20 65 61 73 69 6c hat we can easil
0d60: 79 20 6c 6f 6f 6b 75 70 20 74 68 65 20 6e 75 6d y lookup the num
0d70: 62 65 72 20 6f 66 0d 0a 20 20 20 20 23 20 20 20 ber of.. #
0d80: 20 20 20 20 66 61 69 6c 75 72 65 73 20 28 69 2e failures (i.
0d90: 65 2e 20 22 75 6e 65 78 70 65 63 74 65 64 20 65 e. "unexpected e
0da0: 72 72 6f 72 73 22 29 20 66 6f 72 20 74 68 65 20 rrors") for the
0db0: 77 6f 72 6b 6c 6f 61 64 2e 0d 0a 20 20 20 20 23 workload... #
0dc0: 0d 0a 20 20 20 20 73 65 74 20 69 6e 64 69 63 61 .. set indica
0dd0: 74 6f 72 20 5b 73 74 72 69 6e 67 20 63 68 61 72 tor [string char
0de0: 61 63 74 65 72 20 5b 65 78 70 72 20 7b 5b 73 74 acter [expr {[st
0df0: 72 69 6e 67 20 6f 72 64 69 6e 61 6c 20 61 20 30 ring ordinal a 0
0e00: 5d 20 2b 20 24 69 6e 64 65 78 20 2d 20 31 7d 5d ] + $index - 1}]
0e10: 5d 0d 0a 0d 0a 20 20 20 20 61 70 70 65 6e 64 20 ].... append
0e20: 72 65 73 75 6c 74 20 5b 65 78 70 72 20 7b 5b 69 result [expr {[i
0e30: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 66 61 69 nfo exists ::fai
0e40: 6c 75 72 65 73 28 24 69 6e 64 69 63 61 74 6f 72 lures($indicator
0e50: 29 5d 20 3f 20 5c 0d 0a 20 20 20 20 20 20 20 20 )] ? \..
0e60: 24 3a 3a 66 61 69 6c 75 72 65 73 28 24 69 6e 64 $::failures($ind
0e70: 69 63 61 74 6f 72 29 20 3a 20 30 7d 5d 20 22 20 icator) : 0}] "
0e80: 66 61 69 6c 65 64 5c 6e 22 0d 0a 0d 0a 20 20 20 failed\n"....
0e90: 20 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74 0d return $result.
0ea0: 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 . }.... ######
0eb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0ec0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0ed0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0ee0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0ef0: 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 70 72 6f #######.... pro
0f00: 63 20 66 6f 72 6d 61 74 57 6f 72 6b 6c 6f 61 64 c formatWorkload
0f10: 54 69 6d 65 20 7b 20 69 6e 64 65 78 20 7d 20 7b Time { index } {
0f20: 0d 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 .. if {[info
0f30: 65 78 69 73 74 73 20 3a 3a 74 69 6d 65 73 28 24 exists ::times($
0f40: 69 6e 64 65 78 29 5d 7d 20 74 68 65 6e 20 7b 0d index)]} then {.
0f50: 0a 20 20 20 20 20 20 73 65 74 20 6c 65 6e 67 74 . set lengt
0f60: 68 20 5b 6c 6c 65 6e 67 74 68 20 24 3a 3a 74 69 h [llength $::ti
0f70: 6d 65 73 28 24 69 6e 64 65 78 29 5d 0d 0a 0d 0a mes($index)]....
0f80: 20 20 20 20 20 20 69 66 20 7b 24 6c 65 6e 67 74 if {$lengt
0f90: 68 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 h > 0} then {..
0fa0: 20 20 20 20 20 20 20 73 65 74 20 73 75 6d 20 5b set sum [
0fb0: 65 78 70 72 20 5b 6a 6f 69 6e 20 24 3a 3a 74 69 expr [join $::ti
0fc0: 6d 65 73 28 24 69 6e 64 65 78 29 20 2b 5d 5d 0d mes($index) +]].
0fd0: 0a 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 ... retur
0fe0: 6e 20 5b 61 70 70 65 6e 64 41 72 67 73 20 22 2d n [appendArgs "-
0ff0: 2d 2d 2d 20 61 76 65 72 61 67 65 20 74 69 6d 65 --- average time
1000: 20 66 6f 72 20 77 6f 72 6b 6c 6f 61 64 20 28 22 for workload ("
1010: 20 24 69 6e 64 65 78 20 5c 0d 0a 20 20 20 20 20 $index \..
1020: 20 20 20 20 20 20 20 22 29 20 69 73 20 61 62 6f ") is abo
1030: 75 74 20 22 20 5b 65 78 70 72 20 7b 69 6e 74 28 ut " [expr {int(
1040: 24 73 75 6d 20 2f 20 24 6c 65 6e 67 74 68 20 2f $sum / $length /
1050: 20 31 30 30 30 2e 30 29 7d 5d 20 5c 0d 0a 20 20 1000.0)}] \..
1060: 20 20 20 20 20 20 20 20 20 20 22 20 6d 69 6c 6c " mill
1070: 69 73 65 63 6f 6e 64 73 20 28 22 20 5b 65 78 70 iseconds (" [exp
1080: 72 20 7b 69 6e 74 28 24 73 75 6d 20 2f 20 28 5b r {int($sum / ([
1090: 69 6e 66 6f 20 65 78 69 73 74 73 20 5c 0d 0a 20 info exists \..
10a0: 20 20 20 20 20 20 20 20 20 20 20 3a 3a 69 74 65 ::ite
10b0: 72 61 74 69 6f 6e 73 28 24 69 6e 64 65 78 2c 74 rations($index,t
10c0: 6f 74 61 6c 29 5d 20 3f 20 24 3a 3a 69 74 65 72 otal)] ? $::iter
10d0: 61 74 69 6f 6e 73 28 24 69 6e 64 65 78 2c 74 6f ations($index,to
10e0: 74 61 6c 29 20 3a 20 5c 0d 0a 20 20 20 20 20 20 tal) : \..
10f0: 20 20 20 20 20 20 24 6c 65 6e 67 74 68 29 20 2f $length) /
1100: 20 31 30 30 30 2e 30 29 7d 5d 20 22 20 6d 69 6c 1000.0)}] " mil
1110: 6c 69 73 65 63 6f 6e 64 73 20 70 65 72 20 69 74 liseconds per it
1120: 65 72 61 74 69 6f 6e 29 5c 6e 22 5d 0d 0a 20 20 eration)\n"]..
1130: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0d 0a }.. }....
1140: 20 20 20 20 72 65 74 75 72 6e 20 5b 61 70 70 65 return [appe
1150: 6e 64 41 72 67 73 20 22 2d 2d 2d 2d 20 6e 6f 20 ndArgs "---- no
1160: 74 69 6d 65 73 20 66 6f 72 20 77 6f 72 6b 6c 6f times for worklo
1170: 61 64 20 28 22 20 24 69 6e 64 65 78 20 29 5c 6e ad (" $index )\n
1180: 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 ].. }.... ####
1190: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
11a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
11b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
11c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
11d0: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 70 #########.... p
11e0: 72 6f 63 20 69 73 45 78 70 65 63 74 65 64 45 72 roc isExpectedEr
11f0: 72 6f 72 20 7b 20 65 72 72 6f 72 20 7d 20 7b 0d ror { error } {.
1200: 0a 20 20 20 20 72 65 74 75 72 6e 20 5b 65 78 70 . return [exp
1210: 72 20 7b 5b 72 65 67 65 78 70 20 2d 2d 20 7b 5c r {[regexp -- {\
1220: 73 6e 6f 20 73 75 63 68 20 74 61 62 6c 65 3a 20 sno such table:
1230: 74 31 5c 73 7d 20 24 65 72 72 6f 72 5d 20 7c 7c t1\s} $error] ||
1240: 20 5c 0d 0a 20 20 20 20 20 20 20 20 5b 72 65 67 \.. [reg
1250: 65 78 70 20 2d 2d 20 7b 5c 73 64 61 74 61 62 61 exp -- {\sdataba
1260: 73 65 20 69 73 20 6c 6f 63 6b 65 64 5c 73 7d 20 se is locked\s}
1270: 24 65 72 72 6f 72 5d 20 7c 7c 20 5c 0d 0a 20 20 $error] || \..
1280: 20 20 20 20 20 20 5b 72 65 67 65 78 70 20 2d 2d [regexp --
1290: 20 7b 5c 73 64 61 74 61 62 61 73 65 20 74 61 62 {\sdatabase tab
12a0: 6c 65 20 69 73 20 6c 6f 63 6b 65 64 5c 73 7d 20 le is locked\s}
12b0: 24 65 72 72 6f 72 5d 7d 5d 0d 0a 20 20 7d 0d 0a $error]}].. }..
12c0: 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23 .. ############
12d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
12e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
12f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1300: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1310: 23 0d 0a 0d 0a 20 20 70 72 6f 63 20 69 6e 69 74 #.... proc init
1320: 54 65 73 74 20 7b 20 69 6e 64 69 63 61 74 6f 72 Test { indicator
1330: 20 7d 20 7b 0d 0a 20 20 20 20 73 65 74 20 3a 3a } {.. set ::
1340: 65 61 67 6c 65 5f 74 65 73 74 73 28 63 6f 6e 73 eagle_tests(cons
1350: 74 72 61 69 6e 74 73 29 20 24 3a 3a 74 65 73 74 traints) $::test
1360: 5f 63 6f 6e 73 74 72 61 69 6e 74 73 0d 0a 20 20 _constraints..
1370: 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 }.... #########
1380: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1390: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
13a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
13b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
13c0: 23 23 23 23 0d 0a 0d 0a 20 20 70 72 6f 63 20 64 ####.... proc d
13d0: 65 6c 61 79 54 65 73 74 20 7b 20 7b 65 78 74 72 elayTest { {extr
13e0: 61 20 30 7d 20 7d 20 7b 0d 0a 20 20 20 20 61 66 a 0} } {.. af
13f0: 74 65 72 20 5b 65 78 70 72 20 7b 69 6e 74 28 28 ter [expr {int((
1400: 72 61 6e 64 28 29 20 2a 20 31 30 30 30 29 20 2b rand() * 1000) +
1410: 20 24 65 78 74 72 61 29 7d 5d 0d 0a 20 20 7d 0d $extra)}].. }.
1420: 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 ... ###########
1430: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1440: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1450: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1460: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1470: 23 23 0d 0a 0d 0a 20 20 70 72 6f 63 20 73 68 6f ##.... proc sho
1480: 77 54 65 73 74 20 7b 20 69 6e 64 69 63 61 74 6f wTest { indicato
1490: 72 20 7d 20 7b 0d 0a 20 20 20 20 74 70 75 74 73 r } {.. tputs
14a0: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c $::test_channel
14b0: 20 24 69 6e 64 69 63 61 74 6f 72 0d 0a 20 20 20 $indicator..
14c0: 20 61 70 70 65 6e 64 20 3a 3a 69 6e 64 69 63 61 append ::indica
14d0: 74 6f 72 73 20 24 69 6e 64 69 63 61 74 6f 72 0d tors $indicator.
14e0: 0a 20 20 20 20 64 65 6c 61 79 54 65 73 74 20 24 . delayTest $
14f0: 3a 3a 63 6f 75 6e 74 28 32 29 0d 0a 20 20 7d 0d ::count(2).. }.
1500: 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 ... ###########
1510: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1520: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1530: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1540: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1550: 23 23 0d 0a 0d 0a 20 20 70 72 6f 63 20 64 6f 6e ##.... proc don
1560: 65 54 65 73 74 20 7b 20 7b 69 6e 64 69 63 61 74 eTest { {indicat
1570: 6f 72 20 22 22 7d 20 7d 20 7b 0d 0a 20 20 20 20 or ""} } {..
1580: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 if {[string leng
1590: 74 68 20 24 69 6e 64 69 63 61 74 6f 72 5d 20 3e th $indicator] >
15a0: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 0} then {..
15b0: 20 20 6c 61 70 70 65 6e 64 20 3a 3a 73 74 61 74 lappend ::stat
15c0: 75 73 28 64 6f 6e 65 29 20 24 69 6e 64 69 63 61 us(done) $indica
15d0: 74 6f 72 0d 0a 20 20 20 20 7d 0d 0a 20 20 20 20 tor.. }..
15e0: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 if {[info exists
15f0: 20 3a 3a 73 74 61 74 75 73 28 64 6f 6e 65 29 5d ::status(done)]
1600: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
1610: 68 6f 73 74 20 74 69 74 6c 65 20 24 3a 3a 73 74 host title $::st
1620: 61 74 75 73 28 64 6f 6e 65 29 0d 0a 20 20 20 20 atus(done)..
1630: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 } else {..
1640: 68 6f 73 74 20 74 69 74 6c 65 20 22 22 0d 0a 20 host title ""..
1650: 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 }.. }.... #
1660: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1670: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1680: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1690: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
16a0: 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a ############....
16b0: 20 20 70 72 6f 63 20 66 61 69 6c 54 65 73 74 20 proc failTest
16c0: 7b 20 69 6e 64 69 63 61 74 6f 72 20 65 72 72 6f { indicator erro
16d0: 72 20 7d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 r } {.. #..
16e0: 20 20 23 20 4e 4f 54 45 3a 20 48 61 6c 74 20 61 # NOTE: Halt a
16f0: 6c 6c 20 74 65 73 74 69 6e 67 20 61 6e 64 20 65 ll testing and e
1700: 78 69 74 20 74 68 65 20 70 72 6f 63 65 73 73 20 xit the process
1710: 6e 6f 77 0d 0a 20 20 20 20 23 20 20 20 20 20 20 now.. #
1720: 20 2d 4f 52 2d 20 6a 75 73 74 20 72 65 63 6f 72 -OR- just recor
1730: 64 20 74 68 65 20 66 61 69 6c 75 72 65 20 61 6e d the failure an
1740: 64 20 63 6f 6e 74 69 6e 75 65 3f 0d 0a 20 20 20 d continue?..
1750: 20 23 0d 0a 20 20 20 20 73 65 74 20 6c 65 76 65 #.. set leve
1760: 6c 20 5b 65 78 70 72 20 7b 5b 69 6e 66 6f 20 6c l [expr {[info l
1770: 65 76 65 6c 5d 20 2d 20 31 7d 5d 0d 0a 0d 0a 20 evel] - 1}]....
1780: 20 20 20 69 66 20 7b 24 3a 3a 65 78 69 74 4f 6e if {$::exitOn
1790: 46 61 69 6c 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 Fail} then {..
17a0: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 tputs $::tes
17b0: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e t_channel [appen
17c0: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 dArgs \..
17d0: 20 20 20 5c 6e 20 5b 69 6e 66 6f 20 6c 65 76 65 \n [info leve
17e0: 6c 20 24 6c 65 76 65 6c 5d 20 22 3a 20 22 20 5c l $level] ": " \
17f0: 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a n\t $error \n]..
1800: 0d 0a 20 20 20 20 20 20 65 78 69 74 20 66 61 69 .. exit fai
1810: 6c 75 72 65 0d 0a 20 20 20 20 7d 20 65 6c 73 65 lure.. } else
1820: 20 7b 0d 0a 20 20 20 20 20 20 74 6c 6f 67 20 5b {.. tlog [
1830: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 appendArgs \..
1840: 20 20 20 20 20 20 20 20 22 5c 6e 2d 2d 2d 2d 20 "\n----
1850: 42 45 47 49 4e 20 54 45 53 54 20 46 41 49 4c 55 BEGIN TEST FAILU
1860: 52 45 20 4f 55 54 50 55 54 5c 6e 22 20 5c 0d 0a RE OUTPUT\n" \..
1870: 20 20 20 20 20 20 20 20 20 20 5c 6e 20 5b 69 6e \n [in
1880: 66 6f 20 6c 65 76 65 6c 20 24 6c 65 76 65 6c 5d fo level $level]
1890: 20 22 3a 20 22 20 5c 6e 5c 74 20 24 65 72 72 6f ": " \n\t $erro
18a0: 72 20 5c 6e 20 5c 0d 0a 20 20 20 20 20 20 20 20 r \n \..
18b0: 20 20 22 5c 6e 2d 2d 2d 2d 20 45 4e 44 20 54 45 "\n---- END TE
18c0: 53 54 20 46 41 49 4c 55 52 45 20 4f 55 54 50 55 ST FAILURE OUTPU
18d0: 54 5c 6e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 74 T\n"].... t
18e0: 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 puts $::test_cha
18f0: 6e 6e 65 6c 20 24 69 6e 64 69 63 61 74 6f 72 0d nnel $indicator.
1900: 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 5b 69 ... if {![i
1910: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 66 61 69 nfo exists ::fai
1920: 6c 75 72 65 73 28 24 69 6e 64 69 63 61 74 6f 72 lures($indicator
1930: 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 )]} then {..
1940: 20 20 20 20 73 65 74 20 3a 3a 66 61 69 6c 75 72 set ::failur
1950: 65 73 28 24 69 6e 64 69 63 61 74 6f 72 29 20 30 es($indicator) 0
1960: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 .. }....
1970: 20 20 20 69 6e 63 72 20 3a 3a 66 61 69 6c 75 72 incr ::failur
1980: 65 73 28 24 69 6e 64 69 63 61 74 6f 72 29 0d 0a es($indicator)..
1990: 20 20 20 20 20 20 64 65 6c 61 79 54 65 73 74 20 delayTest
19a0: 24 3a 3a 63 6f 75 6e 74 28 32 29 0d 0a 20 20 20 $::count(2)..
19b0: 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 }.. }.... ###
19c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
19d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
19e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
19f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1a00: 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 ##########....
1a10: 70 72 6f 63 20 61 6c 6c 6f 63 4d 65 6d 20 7b 20 proc allocMem {
1a20: 73 69 7a 65 20 7d 20 7b 0d 0a 20 20 20 20 69 66 size } {.. if
1a30: 20 7b 24 3a 3a 63 6f 54 61 73 6b 4d 65 6d 7d 20 {$::coTaskMem}
1a40: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 72 65 then {.. re
1a50: 74 75 72 6e 20 5b 6f 62 6a 65 63 74 20 69 6e 76 turn [object inv
1a60: 6f 6b 65 20 2d 63 72 65 61 74 65 20 5c 0d 0a 20 oke -create \..
1a70: 20 20 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e System.
1a80: 52 75 6e 74 69 6d 65 2e 49 6e 74 65 72 6f 70 53 Runtime.InteropS
1a90: 65 72 76 69 63 65 73 2e 4d 61 72 73 68 61 6c 20 ervices.Marshal
1aa0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 41 6c 6c \.. All
1ab0: 6f 63 43 6f 54 61 73 6b 4d 65 6d 20 24 73 69 7a ocCoTaskMem $siz
1ac0: 65 5d 3b 20 23 20 74 68 72 6f 77 0d 0a 20 20 20 e]; # throw..
1ad0: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 } else {..
1ae0: 20 73 65 74 20 70 74 72 20 5b 6f 62 6a 65 63 74 set ptr [object
1af0: 20 69 6e 76 6f 6b 65 20 2d 63 72 65 61 74 65 20 invoke -create
1b00: 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 -flags +NonPubli
1b10: 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 53 c \.. S
1b20: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 ystem.Data.SQLit
1b30: 65 2e 55 6e 73 61 66 65 4e 61 74 69 76 65 4d 65 e.UnsafeNativeMe
1b40: 74 68 6f 64 73 20 5c 0d 0a 20 20 20 20 20 20 20 thods \..
1b50: 20 20 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f sqlite3_mallo
1b60: 63 20 24 73 69 7a 65 5d 0d 0a 0d 0a 20 20 20 20 c $size]....
1b70: 20 20 69 66 20 7b 5b 6f 62 6a 65 63 74 20 69 6e if {[object in
1b80: 76 6f 6b 65 20 24 70 74 72 20 54 6f 49 6e 74 36 voke $ptr ToInt6
1b90: 34 5d 20 21 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 4] != 0} then {.
1ba0: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 . return
1bb0: 24 70 74 72 0d 0a 20 20 20 20 20 20 7d 20 65 6c $ptr.. } el
1bc0: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 65 72 se {.. er
1bd0: 72 6f 72 20 5b 61 70 70 65 6e 64 41 72 67 73 20 ror [appendArgs
1be0: 22 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 "sqlite3_malloc(
1bf0: 22 20 24 73 69 7a 65 20 22 29 20 66 61 69 6c 65 " $size ") faile
1c00: 64 22 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 d"].. }..
1c10: 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 }.. }.... ##
1c20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1c30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1c40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1c50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1c60: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 ###########....
1c70: 20 70 72 6f 63 20 75 73 65 4d 65 6d 20 7b 20 70 proc useMem { p
1c80: 74 72 20 73 69 7a 65 20 7d 20 7b 0d 0a 20 20 20 tr size } {..
1c90: 20 69 66 20 7b 21 5b 69 73 4d 6f 6e 6f 5d 7d 20 if {![isMono]}
1ca0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 23 0d then {.. #.
1cb0: 0a 20 20 20 20 20 20 23 20 48 41 43 4b 3a 20 54 . # HACK: T
1cc0: 68 65 20 74 79 70 65 20 73 69 67 6e 61 74 75 72 he type signatur
1cd0: 65 20 6f 66 20 74 68 65 20 5a 65 72 6f 4d 65 6d e of the ZeroMem
1ce0: 6f 72 79 20 6d 65 74 68 6f 64 20 63 68 61 6e 67 ory method chang
1cf0: 65 64 20 61 73 20 6f 66 20 74 68 65 0d 0a 20 20 ed as of the..
1d00: 20 20 20 20 23 20 20 20 20 20 20 20 2e 4e 45 54 # .NET
1d10: 20 46 72 61 6d 65 77 6f 72 6b 20 34 2e 35 2e 20 Framework 4.5.
1d20: 20 54 68 65 20 73 65 63 6f 6e 64 20 61 72 67 75 The second argu
1d30: 6d 65 6e 74 20 77 65 6e 74 20 66 72 6f 6d 20 62 ment went from b
1d40: 65 69 6e 67 20 6f 66 0d 0a 20 20 20 20 20 20 23 eing of.. #
1d50: 20 20 20 20 20 20 20 74 79 70 65 20 55 49 6e 74 type UInt
1d60: 20 74 6f 20 74 79 70 65 20 55 49 6e 74 50 74 72 to type UIntPtr
1d70: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
1d80: 20 20 69 66 20 7b 5b 68 61 76 65 43 6f 6e 73 74 if {[haveConst
1d90: 72 61 69 6e 74 20 64 6f 74 4e 65 74 34 30 5d 20 raint dotNet40]
1da0: 26 26 20 5b 68 61 76 65 43 6f 6e 73 74 72 61 69 && [haveConstrai
1db0: 6e 74 20 64 6f 74 4e 65 74 34 35 5d 7d 20 74 68 nt dotNet45]} th
1dc0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 65 en {.. se
1dd0: 74 20 6e 65 77 53 69 7a 65 20 5b 6f 62 6a 65 63 t newSize [objec
1de0: 74 20 63 72 65 61 74 65 20 55 49 6e 74 50 74 72 t create UIntPtr
1df0: 20 24 73 69 7a 65 5d 0d 0a 20 20 20 20 20 20 7d $size].. }
1e00: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 else {..
1e10: 20 73 65 74 20 6e 65 77 53 69 7a 65 20 24 73 69 set newSize $si
1e20: 7a 65 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 ze.. }....
1e30: 20 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f object invo
1e40: 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 ke -flags +NonPu
1e50: 62 6c 69 63 20 4d 69 63 72 6f 73 6f 66 74 2e 57 blic Microsoft.W
1e60: 69 6e 33 32 2e 57 69 6e 33 32 4e 61 74 69 76 65 in32.Win32Native
1e70: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5a 65 \.. Ze
1e80: 72 6f 4d 65 6d 6f 72 79 20 24 70 74 72 20 24 6e roMemory $ptr $n
1e90: 65 77 53 69 7a 65 0d 0a 20 20 20 20 7d 0d 0a 20 ewSize.. }..
1ea0: 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 }.... ########
1eb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1ec0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1ed0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1ee0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1ef0: 23 23 23 23 23 0d 0a 0d 0a 20 20 70 72 6f 63 20 #####.... proc
1f00: 66 72 65 65 4d 65 6d 20 7b 20 70 74 72 20 7d 20 freeMem { ptr }
1f10: 7b 0d 0a 20 20 20 20 69 66 20 7b 24 3a 3a 63 6f {.. if {$::co
1f20: 54 61 73 6b 4d 65 6d 7d 20 74 68 65 6e 20 7b 0d TaskMem} then {.
1f30: 0a 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69 6e . object in
1f40: 76 6f 6b 65 20 53 79 73 74 65 6d 2e 52 75 6e 74 voke System.Runt
1f50: 69 6d 65 2e 49 6e 74 65 72 6f 70 53 65 72 76 69 ime.InteropServi
1f60: 63 65 73 2e 4d 61 72 73 68 61 6c 20 5c 0d 0a 20 ces.Marshal \..
1f70: 20 20 20 20 20 20 20 20 20 46 72 65 65 43 6f 54 FreeCoT
1f80: 61 73 6b 4d 65 6d 20 24 70 74 72 0d 0a 20 20 20 askMem $ptr..
1f90: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 } else {..
1fa0: 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d object invoke -
1fb0: 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 flags +NonPublic
1fc0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 53 79 \.. Sy
1fd0: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 stem.Data.SQLite
1fe0: 2e 55 6e 73 61 66 65 4e 61 74 69 76 65 4d 65 74 .UnsafeNativeMet
1ff0: 68 6f 64 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 hods \..
2000: 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 20 24 sqlite3_free $
2010: 70 74 72 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 ptr.. }....
2020: 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a #.. # NOTE:
2030: 20 46 72 65 65 20 65 78 74 72 61 20 6f 70 61 71 Free extra opaq
2040: 75 65 20 6f 62 6a 65 63 74 20 68 61 6e 64 6c 65 ue object handle
2050: 20 72 65 66 65 72 65 6e 63 65 20 61 64 64 65 64 reference added
2060: 20 62 79 20 74 68 65 0d 0a 20 20 20 20 23 20 20 by the.. #
2070: 20 20 20 20 20 5b 72 65 74 75 72 6e 5d 20 63 6f [return] co
2080: 6d 6d 61 6e 64 20 69 6e 20 5b 61 6c 6c 6f 63 4d mmand in [allocM
2090: 65 6d 5d 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 em]... #..
20a0: 20 6f 62 6a 65 63 74 20 64 69 73 70 6f 73 65 20 object dispose
20b0: 24 70 74 72 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 $ptr.. }.... #
20c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
20d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
20e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
20f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
2100: 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a ############....
2110: 20 20 70 72 6f 63 20 73 65 74 75 70 4c 6f 67 67 proc setupLogg
2120: 69 6e 67 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d ing { fileName }
2130: 20 7b 0d 0a 20 20 20 20 69 66 20 7b 21 5b 69 6e {.. if {![in
2140: 66 6f 20 65 78 69 73 74 73 20 3a 3a 6c 6f 67 4c fo exists ::logL
2150: 69 73 74 65 6e 65 72 5d 7d 20 74 68 65 6e 20 7b istener]} then {
2160: 0d 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 6c 6f .. set ::lo
2170: 67 4c 69 73 74 65 6e 65 72 20 5b 6f 62 6a 65 63 gListener [objec
2180: 74 20 63 72 65 61 74 65 20 2d 61 6c 69 61 73 20 t create -alias
2190: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 53 79 73 \.. Sys
21a0: 74 65 6d 2e 44 69 61 67 6e 6f 73 74 69 63 73 2e tem.Diagnostics.
21b0: 54 65 78 74 57 72 69 74 65 72 54 72 61 63 65 4c TextWriterTraceL
21c0: 69 73 74 65 6e 65 72 20 24 66 69 6c 65 4e 61 6d istener $fileNam
21d0: 65 5d 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 e].. }....
21e0: 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 53 object invoke S
21f0: 79 73 74 65 6d 2e 44 69 61 67 6e 6f 73 74 69 63 ystem.Diagnostic
2200: 73 2e 54 72 61 63 65 2e 4c 69 73 74 65 6e 65 72 s.Trace.Listener
2210: 73 20 41 64 64 20 24 3a 3a 6c 6f 67 4c 69 73 74 s Add $::logList
2220: 65 6e 65 72 0d 0a 20 20 20 20 6f 62 6a 65 63 74 ener.. object
2230: 20 69 6e 76 6f 6b 65 20 53 79 73 74 65 6d 2e 44 invoke System.D
2240: 61 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 ata.SQLite.SQLit
2250: 65 4c 6f 67 20 49 6e 69 74 69 61 6c 69 7a 65 0d eLog Initialize.
2260: 0a 0d 0a 20 20 20 20 74 70 75 74 73 20 24 3a 3a ... tputs $::
2270: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 test_channel [ap
2280: 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 pendArgs \..
2290: 20 20 20 20 22 2d 2d 2d 2d 20 65 6e 61 62 6c 65 "---- enable
22a0: 64 20 53 51 4c 69 74 65 20 74 72 61 63 65 20 6c d SQLite trace l
22b0: 6f 67 67 69 6e 67 20 74 6f 20 66 69 6c 65 20 5c ogging to file \
22c0: 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 5c "" $fileName \"\
22d0: 6e 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 n].. }.... ###
22e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
22f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
2300: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
2310: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
2320: 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 ##########....
2330: 70 72 6f 63 20 63 6c 65 61 6e 75 70 4c 6f 67 67 proc cleanupLogg
2340: 69 6e 67 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d ing { fileName }
2350: 20 7b 0d 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 {.. if {[inf
2360: 6f 20 65 78 69 73 74 73 20 3a 3a 6c 6f 67 4c 69 o exists ::logLi
2370: 73 74 65 6e 65 72 5d 7d 20 74 68 65 6e 20 7b 0d stener]} then {.
2380: 0a 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69 6e . object in
2390: 76 6f 6b 65 20 53 79 73 74 65 6d 2e 44 69 61 67 voke System.Diag
23a0: 6e 6f 73 74 69 63 73 2e 54 72 61 63 65 2e 4c 69 nostics.Trace.Li
23b0: 73 74 65 6e 65 72 73 20 52 65 6d 6f 76 65 20 24 steners Remove $
23c0: 3a 3a 6c 6f 67 4c 69 73 74 65 6e 65 72 0d 0a 20 ::logListener..
23d0: 20 20 20 20 20 24 3a 3a 6c 6f 67 4c 69 73 74 65 $::logListe
23e0: 6e 65 72 20 43 6c 6f 73 65 0d 0a 20 20 20 20 7d ner Close.. }
23f0: 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 .... #.. #
2400: 20 4e 4f 54 45 3a 20 43 6f 70 79 20 74 68 65 20 NOTE: Copy the
2410: 74 72 61 63 65 20 6c 69 73 74 65 6e 65 72 20 6c trace listener l
2420: 6f 67 20 66 69 6c 65 20 74 6f 20 74 68 65 20 6d og file to the m
2430: 61 69 6e 20 74 65 73 74 20 6c 6f 67 20 66 69 6c ain test log fil
2440: 65 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 74 e... #.. t
2450: 6c 6f 67 20 22 2d 2d 2d 2d 20 42 45 47 49 4e 20 log "---- BEGIN
2460: 54 52 41 43 45 20 4c 49 53 54 45 4e 45 52 20 4f TRACE LISTENER O
2470: 55 54 50 55 54 5c 6e 22 0d 0a 20 20 20 20 74 6c UTPUT\n".. tl
2480: 6f 67 20 5b 72 65 61 64 46 69 6c 65 20 24 66 69 og [readFile $fi
2490: 6c 65 4e 61 6d 65 5d 0d 0a 20 20 20 20 74 6c 6f leName].. tlo
24a0: 67 20 22 5c 6e 2d 2d 2d 2d 20 45 4e 44 20 54 52 g "\n---- END TR
24b0: 41 43 45 20 4c 49 53 54 45 4e 45 52 20 4f 55 54 ACE LISTENER OUT
24c0: 50 55 54 5c 6e 22 0d 0a 0d 0a 20 20 20 20 23 0d PUT\n".... #.
24d0: 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 44 65 6c . # NOTE: Del
24e0: 65 74 65 20 74 68 65 20 74 72 61 63 65 20 6c 69 ete the trace li
24f0: 73 74 65 6e 65 72 20 6c 6f 67 20 66 69 6c 65 20 stener log file
2500: 62 65 63 61 75 73 65 20 69 74 73 20 63 6f 6e 74 because its cont
2510: 65 6e 74 73 20 68 61 76 65 0d 0a 20 20 20 20 23 ents have.. #
2520: 20 20 20 20 20 20 20 62 65 65 6e 20 63 6f 70 69 been copi
2530: 65 64 20 74 6f 20 74 68 65 20 6d 61 69 6e 20 74 ed to the main t
2540: 65 73 74 20 6c 6f 67 20 66 69 6c 65 2e 0d 0a 20 est log file...
2550: 20 20 20 23 0d 0a 20 20 20 20 63 6c 65 61 6e 75 #.. cleanu
2560: 70 46 69 6c 65 20 24 66 69 6c 65 4e 61 6d 65 0d pFile $fileName.
2570: 0a 0d 0a 20 20 20 20 74 70 75 74 73 20 24 3a 3a ... tputs $::
2580: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 test_channel [ap
2590: 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 pendArgs \..
25a0: 20 20 20 20 22 2d 2d 2d 2d 20 64 69 73 61 62 6c "---- disabl
25b0: 65 64 20 53 51 4c 69 74 65 20 74 72 61 63 65 20 ed SQLite trace
25c0: 6c 6f 67 67 69 6e 67 20 74 6f 20 66 69 6c 65 20 logging to file
25d0: 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 \"" $fileName \"
25e0: 5c 6e 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 \n].. }.... ##
25f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
2600: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
2610: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
2620: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
2630: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 ###########....
2640: 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 53 65 #.. # NOTE: Se
2650: 74 75 70 20 74 68 65 20 64 65 66 61 75 6c 74 20 tup the default
2660: 76 61 6c 75 65 73 20 66 6f 72 20 74 68 65 20 74 values for the t
2670: 75 6e 61 62 6c 65 20 77 6f 72 6b 6c 6f 61 64 20 unable workload
2680: 70 61 72 61 6d 65 74 65 72 73 2e 20 20 41 6e 79 parameters. Any
2690: 2c 0d 0a 20 20 23 20 20 20 20 20 20 20 61 6c 6c ,.. # all
26a0: 2c 20 6f 72 20 6e 6f 6e 65 20 6f 66 20 74 68 65 , or none of the
26b0: 73 65 20 6d 61 79 20 62 65 20 6f 76 65 72 72 69 se may be overri
26c0: 64 65 6e 20 76 69 61 20 74 68 65 20 63 6f 6d 6d den via the comm
26d0: 61 6e 64 20 6c 69 6e 65 2e 0d 0a 20 20 23 0d 0a and line... #..
26e0: 20 20 73 65 74 20 63 6f 75 6e 74 28 30 29 20 33 set count(0) 3
26f0: 3b 20 20 20 20 20 20 20 20 20 23 20 57 6f 72 6b ; # Work
2700: 6c 6f 61 64 20 72 65 70 65 61 74 20 63 6f 75 6e load repeat coun
2710: 74 20 28 69 2e 65 2e 20 74 6f 74 61 6c 20 66 75 t (i.e. total fu
2720: 6c 6c 20 72 75 6e 73 29 2e 0d 0a 20 20 73 65 74 ll runs)... set
2730: 20 63 6f 75 6e 74 28 31 29 20 35 3b 20 20 20 20 count(1) 5;
2740: 20 20 20 20 20 23 20 57 6f 72 6b 6c 6f 61 64 20 # Workload
2750: 69 74 65 72 61 74 69 6f 6e 20 63 6f 75 6e 74 20 iteration count
2760: 28 69 2e 65 2e 20 77 69 74 68 69 6e 20 61 20 72 (i.e. within a r
2770: 75 6e 29 2e 0d 0a 20 20 73 65 74 20 63 6f 75 6e un)... set coun
2780: 74 28 32 29 20 32 30 30 3b 20 20 20 20 20 20 20 t(2) 200;
2790: 23 20 57 6f 72 6b 6c 6f 61 64 20 69 74 65 72 61 # Workload itera
27a0: 74 69 6f 6e 20 64 65 6c 61 79 2c 20 69 6e 20 6d tion delay, in m
27b0: 69 6c 6c 69 73 65 63 6f 6e 64 73 2e 0d 0a 20 20 illiseconds...
27c0: 73 65 74 20 63 6f 75 6e 74 28 33 29 20 35 37 3b set count(3) 57;
27d0: 20 20 20 20 20 20 20 20 23 20 57 6f 72 6b 6c 6f # Worklo
27e0: 61 64 20 22 73 6d 61 6c 6c 22 20 64 61 74 61 20 ad "small" data
27f0: 63 68 75 6e 6b 20 73 69 7a 65 2c 20 69 6e 20 62 chunk size, in b
2800: 79 74 65 73 2e 0d 0a 20 20 73 65 74 20 63 6f 75 ytes... set cou
2810: 6e 74 28 34 29 20 31 30 30 30 30 3b 20 20 20 20 nt(4) 10000;
2820: 20 23 20 57 6f 72 6b 6c 6f 61 64 20 22 62 69 67 # Workload "big
2830: 22 20 64 61 74 61 20 63 68 75 6e 6b 20 73 69 7a " data chunk siz
2840: 65 2c 20 69 6e 20 62 79 74 65 73 2e 0d 0a 20 20 e, in bytes...
2850: 73 65 74 20 63 6f 75 6e 74 28 35 29 20 32 30 39 set count(5) 209
2860: 37 31 35 32 30 30 3b 20 23 20 4d 61 78 69 6d 75 715200; # Maximu
2870: 6d 20 68 65 61 70 20 6d 65 6d 6f 72 79 20 74 6f m heap memory to
2880: 20 65 78 63 6c 75 64 65 20 61 74 20 6f 6e 65 20 exclude at one
2890: 74 69 6d 65 2e 0d 0a 20 20 73 65 74 20 6e 6f 57 time... set noW
28a0: 6f 72 6b 6c 6f 61 64 20 5b 6c 69 73 74 5d 3b 20 orkload [list];
28b0: 20 23 20 57 6f 72 6b 6c 6f 61 64 73 20 74 6f 20 # Workloads to
28c0: 62 65 20 6f 6d 69 74 74 65 64 20 66 72 6f 6d 20 be omitted from
28d0: 74 68 65 20 72 75 6e 2c 20 62 79 20 69 6e 64 65 the run, by inde
28e0: 78 2e 0d 0a 20 20 73 65 74 20 70 72 69 6f 72 69 x... set priori
28f0: 74 69 65 73 20 5b 6c 69 73 74 5d 3b 20 20 23 20 ties [list]; #
2900: 44 69 63 74 69 6f 6e 61 72 79 20 6f 66 20 77 6f Dictionary of wo
2910: 72 6b 6c 6f 61 64 20 74 68 72 65 61 64 20 70 72 rkload thread pr
2920: 69 6f 72 69 74 69 65 73 2e 0d 0a 20 20 73 65 74 iorities... set
2930: 20 65 78 69 74 4f 6e 46 61 69 6c 20 66 61 6c 73 exitOnFail fals
2940: 65 3b 20 20 20 23 20 48 61 6c 74 20 74 65 73 74 e; # Halt test
2950: 69 6e 67 20 61 6e 64 20 65 78 69 74 20 70 72 6f ing and exit pro
2960: 63 65 73 73 20 6f 6e 20 74 65 73 74 20 66 61 69 cess on test fai
2970: 6c 75 72 65 3f 0d 0a 20 20 73 65 74 20 63 6f 54 lure?.. set coT
2980: 61 73 6b 4d 65 6d 20 74 72 75 65 3b 20 20 20 20 askMem true;
2990: 20 23 20 55 73 65 20 41 6c 6c 6f 63 43 6f 54 61 # Use AllocCoTa
29a0: 73 6b 4d 65 6d 2f 46 72 65 65 43 6f 54 61 73 6b skMem/FreeCoTask
29b0: 4d 65 6d 20 66 6f 72 20 6d 65 6d 6f 72 79 3f 0d Mem for memory?.
29c0: 0a 20 20 73 65 74 20 6e 6f 54 72 61 63 65 20 66 . set noTrace f
29d0: 61 6c 73 65 3b 20 20 20 20 20 20 23 20 44 69 73 alse; # Dis
29e0: 61 62 6c 65 20 53 51 4c 69 74 65 20 74 72 61 63 able SQLite trac
29f0: 65 20 6c 6f 67 67 69 6e 67 20 74 6f 20 61 20 66 e logging to a f
2a00: 69 6c 65 3f 0d 0a 0d 0a 20 20 23 23 23 23 23 23 ile?.... ######
2a10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
2a20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
2a30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
2a40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
2a50: 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 23 0d 0a #######.... #..
2a60: 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 63 6f 6d # NOTE: If com
2a70: 6d 61 6e 64 20 6c 69 6e 65 20 61 72 67 75 6d 65 mand line argume
2a80: 6e 74 73 20 74 6f 20 74 68 65 20 74 65 73 74 20 nts to the test
2a90: 73 75 69 74 65 20 61 72 65 20 61 76 61 69 6c 61 suite are availa
2aa0: 62 6c 65 2c 20 70 72 6f 63 65 73 73 0d 0a 20 20 ble, process..
2ab0: 23 20 20 20 20 20 20 20 74 68 65 6d 20 66 6f 72 # them for
2ac0: 20 61 6e 79 20 6f 70 74 69 6f 6e 73 20 74 68 61 any options tha
2ad0: 74 20 61 72 65 20 61 70 70 6c 69 63 61 62 6c 65 t are applicable
2ae0: 20 74 6f 20 74 68 69 73 20 74 65 73 74 20 28 69 to this test (i
2af0: 2e 65 2e 20 61 6e 79 20 6f 66 0d 0a 20 20 23 20 .e. any of.. #
2b00: 20 20 20 20 20 20 74 68 65 20 74 75 6e 61 62 6c the tunabl
2b10: 65 20 77 6f 72 6b 6c 6f 61 64 20 70 61 72 61 6d e workload param
2b20: 65 74 65 72 73 20 6c 69 73 74 65 64 20 61 62 6f eters listed abo
2b30: 76 65 29 2e 0d 0a 20 20 23 0d 0a 20 20 69 66 20 ve)... #.. if
2b40: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 61 72 {[info exists ar
2b50: 67 76 5d 20 26 26 20 5b 6c 6c 65 6e 67 74 68 20 gv] && [llength
2b60: 24 61 72 67 76 5d 20 3e 20 30 7d 20 74 68 65 6e $argv] > 0} then
2b70: 20 7b 0d 0a 20 20 20 20 70 61 72 73 65 20 6f 70 {.. parse op
2b80: 74 69 6f 6e 73 20 2d 66 6c 61 67 73 20 5c 0d 0a tions -flags \..
2b90: 20 20 20 20 20 20 20 20 7b 2d 53 74 6f 70 4f 6e {-StopOn
2ba0: 55 6e 6b 6e 6f 77 6e 4f 70 74 69 6f 6e 20 2b 49 UnknownOption +I
2bb0: 67 6e 6f 72 65 4f 6e 55 6e 6b 6e 6f 77 6e 4f 70 gnoreOnUnknownOp
2bc0: 74 69 6f 6e 20 53 6b 69 70 4f 6e 55 6e 6b 6e 6f tion SkipOnUnkno
2bd0: 77 6e 4f 70 74 69 6f 6e 7d 20 2d 2d 20 5c 0d 0a wnOption} -- \..
2be0: 20 20 20 20 20 20 20 20 5b 6c 69 73 74 20 5b 6c [list [l
2bf0: 69 73 74 20 6e 75 6c 6c 20 4d 75 73 74 48 61 76 ist null MustHav
2c00: 65 49 6e 74 65 67 65 72 56 61 6c 75 65 20 2d 31 eIntegerValue -1
2c10: 20 2d 31 20 2d 63 6f 75 6e 74 30 20 24 63 6f 75 -1 -count0 $cou
2c20: 6e 74 28 30 29 5d 20 5c 0d 0a 20 20 20 20 20 20 nt(0)] \..
2c30: 20 20 5b 6c 69 73 74 20 6e 75 6c 6c 20 4d 75 73 [list null Mus
2c40: 74 48 61 76 65 49 6e 74 65 67 65 72 56 61 6c 75 tHaveIntegerValu
2c50: 65 20 2d 31 20 2d 31 20 2d 63 6f 75 6e 74 31 20 e -1 -1 -count1
2c60: 24 63 6f 75 6e 74 28 31 29 5d 20 5c 0d 0a 20 20 $count(1)] \..
2c70: 20 20 20 20 20 20 5b 6c 69 73 74 20 6e 75 6c 6c [list null
2c80: 20 4d 75 73 74 48 61 76 65 49 6e 74 65 67 65 72 MustHaveInteger
2c90: 56 61 6c 75 65 20 2d 31 20 2d 31 20 2d 63 6f 75 Value -1 -1 -cou
2ca0: 6e 74 32 20 24 63 6f 75 6e 74 28 32 29 5d 20 5c nt2 $count(2)] \
2cb0: 0d 0a 20 20 20 20 20 20 20 20 5b 6c 69 73 74 20 .. [list
2cc0: 6e 75 6c 6c 20 4d 75 73 74 48 61 76 65 49 6e 74 null MustHaveInt
2cd0: 65 67 65 72 56 61 6c 75 65 20 2d 31 20 2d 31 20 egerValue -1 -1
2ce0: 2d 63 6f 75 6e 74 33 20 24 63 6f 75 6e 74 28 33 -count3 $count(3
2cf0: 29 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 5b 6c )] \.. [l
2d00: 69 73 74 20 6e 75 6c 6c 20 4d 75 73 74 48 61 76 ist null MustHav
2d10: 65 49 6e 74 65 67 65 72 56 61 6c 75 65 20 2d 31 eIntegerValue -1
2d20: 20 2d 31 20 2d 63 6f 75 6e 74 34 20 24 63 6f 75 -1 -count4 $cou
2d30: 6e 74 28 34 29 5d 20 5c 0d 0a 20 20 20 20 20 20 nt(4)] \..
2d40: 20 20 5b 6c 69 73 74 20 6e 75 6c 6c 20 4d 75 73 [list null Mus
2d50: 74 48 61 76 65 49 6e 74 65 67 65 72 56 61 6c 75 tHaveIntegerValu
2d60: 65 20 2d 31 20 2d 31 20 2d 63 6f 75 6e 74 35 20 e -1 -1 -count5
2d70: 24 63 6f 75 6e 74 28 35 29 5d 20 5c 0d 0a 20 20 $count(5)] \..
2d80: 20 20 20 20 20 20 5b 6c 69 73 74 20 6e 75 6c 6c [list null
2d90: 20 4d 75 73 74 48 61 76 65 4c 69 73 74 56 61 6c MustHaveListVal
2da0: 75 65 20 2d 31 20 2d 31 20 2d 6e 6f 57 6f 72 6b ue -1 -1 -noWork
2db0: 6c 6f 61 64 20 24 6e 6f 57 6f 72 6b 6c 6f 61 64 load $noWorkload
2dc0: 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 5b 6c 69 ] \.. [li
2dd0: 73 74 20 6e 75 6c 6c 20 4d 75 73 74 48 61 76 65 st null MustHave
2de0: 4c 69 73 74 56 61 6c 75 65 20 2d 31 20 2d 31 20 ListValue -1 -1
2df0: 2d 70 72 69 6f 72 69 74 69 65 73 20 24 70 72 69 -priorities $pri
2e00: 6f 72 69 74 69 65 73 5d 20 5c 0d 0a 20 20 20 20 orities] \..
2e10: 20 20 20 20 5b 6c 69 73 74 20 6e 75 6c 6c 20 4d [list null M
2e20: 75 73 74 48 61 76 65 42 6f 6f 6c 65 61 6e 56 61 ustHaveBooleanVa
2e30: 6c 75 65 20 2d 31 20 2d 31 20 2d 65 78 69 74 4f lue -1 -1 -exitO
2e40: 6e 46 61 69 6c 20 24 65 78 69 74 4f 6e 46 61 69 nFail $exitOnFai
2e50: 6c 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 5b 6c l] \.. [l
2e60: 69 73 74 20 6e 75 6c 6c 20 4d 75 73 74 48 61 76 ist null MustHav
2e70: 65 42 6f 6f 6c 65 61 6e 56 61 6c 75 65 20 2d 31 eBooleanValue -1
2e80: 20 2d 31 20 2d 63 6f 54 61 73 6b 4d 65 6d 20 24 -1 -coTaskMem $
2e90: 63 6f 54 61 73 6b 4d 65 6d 5d 20 5c 0d 0a 20 20 coTaskMem] \..
2ea0: 20 20 20 20 20 20 5b 6c 69 73 74 20 6e 75 6c 6c [list null
2eb0: 20 4d 75 73 74 48 61 76 65 42 6f 6f 6c 65 61 6e MustHaveBoolean
2ec0: 56 61 6c 75 65 20 2d 31 20 2d 31 20 2d 6e 6f 54 Value -1 -1 -noT
2ed0: 72 61 63 65 20 24 6e 6f 54 72 61 63 65 5d 5d 20 race $noTrace]]
2ee0: 24 61 72 67 76 0d 0a 0d 0a 20 20 20 20 73 65 74 $argv.... set
2ef0: 20 63 6f 75 6e 74 28 30 29 20 24 6f 70 74 69 6f count(0) $optio
2f00: 6e 73 28 2d 63 6f 75 6e 74 30 2c 76 61 6c 75 65 ns(-count0,value
2f10: 29 0d 0a 20 20 20 20 73 65 74 20 63 6f 75 6e 74 ).. set count
2f20: 28 31 29 20 24 6f 70 74 69 6f 6e 73 28 2d 63 6f (1) $options(-co
2f30: 75 6e 74 31 2c 76 61 6c 75 65 29 0d 0a 20 20 20 unt1,value)..
2f40: 20 73 65 74 20 63 6f 75 6e 74 28 32 29 20 24 6f set count(2) $o
2f50: 70 74 69 6f 6e 73 28 2d 63 6f 75 6e 74 32 2c 76 ptions(-count2,v
2f60: 61 6c 75 65 29 0d 0a 20 20 20 20 73 65 74 20 63 alue).. set c
2f70: 6f 75 6e 74 28 33 29 20 24 6f 70 74 69 6f 6e 73 ount(3) $options
2f80: 28 2d 63 6f 75 6e 74 33 2c 76 61 6c 75 65 29 0d (-count3,value).
2f90: 0a 20 20 20 20 73 65 74 20 63 6f 75 6e 74 28 34 . set count(4
2fa0: 29 20 24 6f 70 74 69 6f 6e 73 28 2d 63 6f 75 6e ) $options(-coun
2fb0: 74 34 2c 76 61 6c 75 65 29 0d 0a 20 20 20 20 73 t4,value).. s
2fc0: 65 74 20 63 6f 75 6e 74 28 35 29 20 24 6f 70 74 et count(5) $opt
2fd0: 69 6f 6e 73 28 2d 63 6f 75 6e 74 35 2c 76 61 6c ions(-count5,val
2fe0: 75 65 29 0d 0a 20 20 20 20 73 65 74 20 6e 6f 57 ue).. set noW
2ff0: 6f 72 6b 6c 6f 61 64 20 24 6f 70 74 69 6f 6e 73 orkload $options
3000: 28 2d 6e 6f 57 6f 72 6b 6c 6f 61 64 2c 76 61 6c (-noWorkload,val
3010: 75 65 29 0d 0a 20 20 20 20 73 65 74 20 70 72 69 ue).. set pri
3020: 6f 72 69 74 69 65 73 20 24 6f 70 74 69 6f 6e 73 orities $options
3030: 28 2d 70 72 69 6f 72 69 74 69 65 73 2c 76 61 6c (-priorities,val
3040: 75 65 29 0d 0a 20 20 20 20 73 65 74 20 65 78 69 ue).. set exi
3050: 74 4f 6e 46 61 69 6c 20 24 6f 70 74 69 6f 6e 73 tOnFail $options
3060: 28 2d 65 78 69 74 4f 6e 46 61 69 6c 2c 76 61 6c (-exitOnFail,val
3070: 75 65 29 0d 0a 20 20 20 20 73 65 74 20 63 6f 54 ue).. set coT
3080: 61 73 6b 4d 65 6d 20 24 6f 70 74 69 6f 6e 73 28 askMem $options(
3090: 2d 63 6f 54 61 73 6b 4d 65 6d 2c 76 61 6c 75 65 -coTaskMem,value
30a0: 29 0d 0a 20 20 20 20 73 65 74 20 6e 6f 54 72 61 ).. set noTra
30b0: 63 65 20 24 6f 70 74 69 6f 6e 73 28 2d 6e 6f 54 ce $options(-noT
30c0: 72 61 63 65 2c 76 61 6c 75 65 29 0d 0a 20 20 7d race,value).. }
30d0: 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 .... ##########
30e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
30f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3110: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3120: 23 23 23 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23 20 ###.... #.. #
3130: 4e 4f 54 45 3a 20 4c 6f 61 64 20 63 75 73 74 6f NOTE: Load custo
3140: 6d 20 70 65 72 2d 75 73 65 72 20 61 6e 64 2f 6f m per-user and/o
3150: 72 20 70 65 72 2d 68 6f 73 74 20 74 65 73 74 20 r per-host test
3160: 73 65 74 74 69 6e 67 73 2e 20 20 43 75 72 72 65 settings. Curre
3170: 6e 74 6c 79 2c 20 74 68 69 73 0d 0a 20 20 23 20 ntly, this.. #
3180: 20 20 20 20 20 20 69 73 20 64 6f 6e 65 20 61 66 is done af
3190: 74 65 72 20 70 72 6f 63 65 73 73 69 6e 67 20 74 ter processing t
31a0: 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 20 he command line
31b0: 6f 70 74 69 6f 6e 73 2e 20 20 54 68 65 20 73 65 options. The se
31c0: 74 74 69 6e 67 73 20 66 69 6c 65 0d 0a 20 20 23 ttings file.. #
31d0: 20 20 20 20 20 20 20 73 68 6f 75 6c 64 20 74 61 should ta
31e0: 6b 65 20 69 6e 74 6f 20 61 63 63 6f 75 6e 74 20 ke into account
31f0: 74 68 65 20 65 78 69 73 74 69 6e 67 20 77 6f 72 the existing wor
3200: 6b 6c 6f 61 64 20 70 61 72 61 6d 65 74 65 72 73 kload parameters
3210: 20 61 6e 64 20 61 76 6f 69 64 0d 0a 20 20 23 20 and avoid.. #
3220: 20 20 20 20 20 20 63 68 61 6e 67 69 6e 67 20 61 changing a
3230: 6e 79 20 74 68 61 74 20 6d 61 79 20 68 61 76 65 ny that may have
3240: 20 61 6c 72 65 61 64 79 20 62 65 65 6e 20 6f 76 already been ov
3250: 65 72 72 69 64 64 65 6e 2e 0d 0a 20 20 23 0d 0a erridden... #..
3260: 20 20 6c 6f 61 64 53 51 4c 69 74 65 54 65 73 74 loadSQLiteTest
3270: 53 65 74 74 69 6e 67 73 20 24 74 65 73 74 5f 63 Settings $test_c
3280: 68 61 6e 6e 65 6c 20 2e 73 74 72 65 73 73 0d 0a hannel .stress..
3290: 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23 .. ############
32a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
32b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
32c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
32d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
32e0: 23 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f #.... #.. # NO
32f0: 54 45 3a 20 54 68 65 20 74 72 61 63 65 20 6c 69 TE: The trace li
3300: 73 74 65 6e 65 72 20 75 73 65 64 20 77 69 74 68 stener used with
3310: 20 74 68 65 20 53 51 4c 69 74 65 4c 6f 67 20 63 the SQLiteLog c
3320: 6c 61 73 73 20 74 6f 20 63 61 70 74 75 72 65 20 lass to capture
3330: 6f 75 74 70 75 74 0d 0a 20 20 23 20 20 20 20 20 output.. #
3340: 20 20 66 72 6f 6d 20 74 68 65 20 63 6f 72 65 20 from the core
3350: 53 51 4c 69 74 65 20 6c 69 62 72 61 72 79 20 72 SQLite library r
3360: 65 71 75 69 72 65 73 20 69 74 73 20 6f 77 6e 20 equires its own
3370: 6c 6f 67 20 66 69 6c 65 20 62 65 63 61 75 73 65 log file because
3380: 20 74 68 65 0d 0a 20 20 23 20 20 20 20 20 20 20 the.. #
3390: 54 65 78 74 57 72 69 74 65 72 54 72 61 63 65 4c TextWriterTraceL
33a0: 69 73 74 65 6e 65 72 20 63 6c 61 73 73 20 6f 70 istener class op
33b0: 65 6e 73 20 61 6e 64 20 6c 6f 63 6b 73 20 74 68 ens and locks th
33c0: 65 20 6c 6f 67 20 66 69 6c 65 20 69 74 20 75 73 e log file it us
33d0: 65 73 0d 0a 20 20 23 20 20 20 20 20 20 20 61 73 es.. # as
33e0: 20 74 68 65 20 62 61 73 69 73 20 6f 66 20 74 68 the basis of th
33f0: 65 20 6f 75 74 70 75 74 20 73 74 72 65 61 6d 2e e output stream.
3400: 20 20 42 65 66 6f 72 65 20 74 68 69 73 20 74 65 Before this te
3410: 73 74 20 69 73 20 63 6f 6d 70 6c 65 74 65 2c 0d st is complete,.
3420: 0a 20 20 23 20 20 20 20 20 20 20 74 68 65 20 65 . # the e
3430: 6e 74 69 72 65 20 63 6f 6e 74 65 6e 74 73 20 6f ntire contents o
3440: 66 20 74 68 69 73 20 74 72 61 63 65 20 6c 6f 67 f this trace log
3450: 20 66 69 6c 65 20 77 69 6c 6c 20 62 65 20 63 6f file will be co
3460: 70 69 65 64 20 69 6e 74 6f 20 74 68 65 0d 0a 20 pied into the..
3470: 20 23 20 20 20 20 20 20 20 6d 61 69 6e 20 74 65 # main te
3480: 73 74 20 6c 6f 67 20 66 69 6c 65 20 61 6e 64 20 st log file and
3490: 74 68 65 6e 20 64 65 6c 65 74 65 64 2e 0d 0a 20 then deleted...
34a0: 20 23 0d 0a 20 20 69 66 20 7b 21 24 6e 6f 54 72 #.. if {!$noTr
34b0: 61 63 65 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 ace} then {..
34c0: 20 73 65 74 20 6c 6f 67 46 69 6c 65 4e 61 6d 65 set logFileName
34d0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5b 66 69 [appendArgs [fi
34e0: 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 24 74 65 73 le rootname $tes
34f0: 74 5f 6c 6f 67 5d 20 2e 74 72 61 63 65 2e 6c 6f t_log] .trace.lo
3500: 67 5d 0d 0a 20 20 20 20 73 65 74 75 70 4c 6f 67 g].. setupLog
3510: 67 69 6e 67 20 24 6c 6f 67 46 69 6c 65 4e 61 6d ging $logFileNam
3520: 65 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 e.. }.... ####
3530: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3540: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3550: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3560: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3570: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 74 #########.... t
3580: 70 75 74 73 20 24 74 65 73 74 5f 63 68 61 6e 6e puts $test_chann
3590: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c el [appendArgs \
35a0: 0d 0a 20 20 20 20 20 20 22 2d 2d 2d 2d 20 77 6f .. "---- wo
35b0: 72 6b 6c 6f 61 64 73 20 77 69 6c 6c 20 72 65 70 rkloads will rep
35c0: 65 61 74 20 22 20 24 63 6f 75 6e 74 28 30 29 20 eat " $count(0)
35d0: 22 20 74 69 6d 65 28 73 29 5c 6e 22 5d 0d 0a 0d " time(s)\n"]...
35e0: 0a 20 20 74 70 75 74 73 20 24 74 65 73 74 5f 63 . tputs $test_c
35f0: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 hannel [appendAr
3600: 67 73 20 5c 0d 0a 20 20 20 20 20 20 22 2d 2d 2d gs \.. "---
3610: 2d 20 77 6f 72 6b 6c 6f 61 64 73 20 77 69 6c 6c - workloads will
3620: 20 68 61 76 65 20 22 20 24 63 6f 75 6e 74 28 31 have " $count(1
3630: 29 20 22 20 69 74 65 72 61 74 69 6f 6e 28 73 29 ) " iteration(s)
3640: 5c 6e 22 5d 0d 0a 0d 0a 20 20 74 70 75 74 73 20 \n"].... tputs
3650: 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 $test_channel [a
3660: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 ppendArgs \..
3670: 20 20 20 22 2d 2d 2d 2d 20 77 6f 72 6b 6c 6f 61 "---- workloa
3680: 64 73 20 77 69 6c 6c 20 77 61 69 74 20 61 74 20 ds will wait at
3690: 6c 65 61 73 74 20 22 20 24 63 6f 75 6e 74 28 32 least " $count(2
36a0: 29 20 5c 0d 0a 20 20 20 20 20 20 22 20 6d 69 6c ) \.. " mil
36b0: 6c 69 73 65 63 6f 6e 64 28 73 29 20 61 66 74 65 lisecond(s) afte
36c0: 72 20 65 61 63 68 20 69 74 65 72 61 74 69 6f 6e r each iteration
36d0: 5c 6e 22 5d 0d 0a 0d 0a 20 20 74 70 75 74 73 20 \n"].... tputs
36e0: 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 $test_channel [a
36f0: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 ppendArgs \..
3700: 20 20 20 22 2d 2d 2d 2d 20 73 6d 61 6c 6c 20 63 "---- small c
3710: 68 75 6e 6b 20 73 69 7a 65 20 69 73 20 22 20 24 hunk size is " $
3720: 63 6f 75 6e 74 28 33 29 20 22 20 62 79 74 65 28 count(3) " byte(
3730: 73 29 5c 6e 22 5d 0d 0a 0d 0a 20 20 74 70 75 74 s)\n"].... tput
3740: 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 s $test_channel
3750: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
3760: 20 20 20 20 20 22 2d 2d 2d 2d 20 62 69 67 20 63 "---- big c
3770: 68 75 6e 6b 20 73 69 7a 65 20 69 73 20 22 20 24 hunk size is " $
3780: 63 6f 75 6e 74 28 34 29 20 22 20 62 79 74 65 28 count(4) " byte(
3790: 73 29 5c 6e 22 5d 0d 0a 0d 0a 20 20 74 70 75 74 s)\n"].... tput
37a0: 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 s $test_channel
37b0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
37c0: 20 20 20 20 20 22 2d 2d 2d 2d 20 6d 61 78 69 6d "---- maxim
37d0: 75 6d 20 65 78 63 6c 75 64 65 64 20 68 65 61 70 um excluded heap
37e0: 20 6d 65 6d 6f 72 79 20 69 73 20 22 20 24 63 6f memory is " $co
37f0: 75 6e 74 28 35 29 20 22 20 62 79 74 65 28 73 29 unt(5) " byte(s)
3800: 5c 6e 22 5d 0d 0a 0d 0a 20 20 74 70 75 74 73 20 \n"].... tputs
3810: 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 $test_channel [a
3820: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 ppendArgs \..
3830: 20 20 20 22 2d 2d 2d 2d 20 77 6f 72 6b 6c 6f 61 "---- workloa
3840: 64 73 20 74 6f 20 62 65 20 73 6b 69 70 70 65 64 ds to be skipped
3850: 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20 5b ... " \.. [
3860: 65 78 70 72 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 expr {[llength $
3870: 6e 6f 57 6f 72 6b 6c 6f 61 64 5d 20 3e 20 30 20 noWorkload] > 0
3880: 3f 20 24 6e 6f 57 6f 72 6b 6c 6f 61 64 20 3a 20 ? $noWorkload :
3890: 22 6e 6f 6e 65 22 7d 5d 20 5c 6e 5d 0d 0a 0d 0a "none"}] \n]....
38a0: 20 20 74 70 75 74 73 20 24 74 65 73 74 5f 63 68 tputs $test_ch
38b0: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg
38c0: 73 20 5c 0d 0a 20 20 20 20 20 20 22 2d 2d 2d 2d s \.. "----
38d0: 20 77 6f 72 6b 6c 6f 61 64 73 20 70 72 69 6f 72 workloads prior
38e0: 69 74 79 20 6f 76 65 72 72 69 64 65 73 2e 2e 2e ity overrides...
38f0: 20 22 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 " \.. [exp
3900: 72 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 70 72 69 r {[llength $pri
3910: 6f 72 69 74 69 65 73 5d 20 3e 20 30 20 3f 20 24 orities] > 0 ? $
3920: 70 72 69 6f 72 69 74 69 65 73 20 3a 20 22 6e 6f priorities : "no
3930: 6e 65 22 7d 5d 20 5c 6e 5d 0d 0a 0d 0a 20 20 74 ne"}] \n].... t
3940: 70 75 74 73 20 24 74 65 73 74 5f 63 68 61 6e 6e puts $test_chann
3950: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c el [appendArgs \
3960: 0d 0a 20 20 20 20 20 20 22 2d 2d 2d 2d 20 75 6e .. "---- un
3970: 65 78 70 65 63 74 65 64 20 65 72 72 6f 72 73 20 expected errors
3980: 22 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 " \.. [expr
3990: 20 7b 24 65 78 69 74 4f 6e 46 61 69 6c 20 3f 20 {$exitOnFail ?
39a0: 22 77 69 6c 6c 22 20 3a 20 22 77 69 6c 6c 20 6e "will" : "will n
39b0: 6f 74 22 7d 5d 20 5c 0d 0a 20 20 20 20 20 20 22 ot"}] \.. "
39c0: 20 68 61 6c 74 20 74 65 73 74 69 6e 67 20 61 6e halt testing an
39d0: 64 20 65 78 69 74 20 74 68 65 20 70 72 6f 63 65 d exit the proce
39e0: 73 73 5c 6e 22 5d 0d 0a 0d 0a 20 20 74 70 75 74 ss\n"].... tput
39f0: 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 s $test_channel
3a00: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
3a10: 20 20 20 20 20 22 2d 2d 2d 2d 20 74 68 65 20 22 "---- the "
3a20: 20 5b 65 78 70 72 20 7b 24 63 6f 54 61 73 6b 4d [expr {$coTaskM
3a30: 65 6d 20 3f 20 22 43 6f 54 61 73 6b 4d 65 6d 22 em ? "CoTaskMem"
3a40: 20 3a 20 22 53 51 4c 69 74 65 22 7d 5d 20 5c 0d : "SQLite"}] \.
3a50: 0a 20 20 20 20 20 20 22 20 61 6c 6c 6f 63 61 74 . " allocat
3a60: 6f 72 20 77 69 6c 6c 20 62 65 20 75 73 65 64 20 or will be used
3a70: 74 6f 20 65 78 63 6c 75 64 65 20 68 65 61 70 20 to exclude heap
3a80: 6d 65 6d 6f 72 79 5c 6e 22 5d 0d 0a 0d 0a 20 20 memory\n"]....
3a90: 74 70 75 74 73 20 24 74 65 73 74 5f 63 68 61 6e tputs $test_chan
3aa0: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs
3ab0: 5c 0d 0a 20 20 20 20 20 20 22 2d 2d 2d 2d 20 74 \.. "---- t
3ac0: 72 61 63 65 20 6c 6f 67 67 69 6e 67 20 74 6f 20 race logging to
3ad0: 61 20 66 69 6c 65 20 69 73 20 22 20 5c 0d 0a 20 a file is " \..
3ae0: 20 20 20 20 20 5b 65 78 70 72 20 7b 24 6e 6f 54 [expr {$noT
3af0: 72 61 63 65 20 3f 20 22 64 69 73 61 62 6c 65 64 race ? "disabled
3b00: 22 20 3a 20 22 65 6e 61 62 6c 65 64 22 7d 5d 20 " : "enabled"}]
3b10: 5c 6e 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 \n].... #######
3b20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3b30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3b40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3b50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3b60: 23 23 23 23 23 23 0d 0a 0d 0a 20 20 23 0d 0a 20 ######.... #..
3b70: 20 23 20 4e 4f 54 45 3a 20 43 72 65 61 74 65 20 # NOTE: Create
3b80: 74 68 65 20 77 6f 72 6b 6c 6f 61 64 20 70 72 69 the workload pri
3b90: 6f 72 69 74 79 20 61 72 72 61 79 20 62 61 73 65 ority array base
3ba0: 64 20 6f 6e 20 74 68 65 20 70 72 69 6f 72 69 74 d on the priorit
3bb0: 79 20 6c 69 73 74 20 73 65 65 6e 0d 0a 20 20 23 y list seen.. #
3bc0: 20 20 20 20 20 20 20 6f 6e 20 74 68 65 20 63 6f on the co
3bd0: 6d 6d 61 6e 64 20 6c 69 6e 65 2c 20 69 66 20 61 mmand line, if a
3be0: 6e 79 2e 0d 0a 20 20 23 0d 0a 20 20 61 72 72 61 ny... #.. arra
3bf0: 79 20 73 65 74 20 70 72 69 6f 72 69 74 79 20 24 y set priority $
3c00: 70 72 69 6f 72 69 74 69 65 73 0d 0a 0d 0a 20 20 priorities....
3c10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3c20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3c30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3c40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3c50: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d #############...
3c60: 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 . #.. # NOTE:
3c70: 57 6f 72 6b 6c 6f 61 64 73 20 23 31 32 20 61 6e Workloads #12 an
3c80: 64 20 23 31 33 20 63 6f 6e 74 61 69 6e 20 43 23 d #13 contain C#
3c90: 20 63 6f 64 65 20 74 68 61 74 20 73 68 6f 75 6c code that shoul
3ca0: 64 20 62 65 20 63 6f 6d 70 69 6c 65 64 2c 20 62 d be compiled, b
3cb0: 75 74 0d 0a 20 20 23 20 20 20 20 20 20 20 6f 6e ut.. # on
3cc0: 6c 79 20 6f 6e 63 65 2e 20 20 54 68 65 73 65 20 ly once. These
3cd0: 76 61 72 69 61 62 6c 65 73 20 6b 65 65 70 20 74 variables keep t
3ce0: 72 61 63 6b 20 6f 66 20 74 68 61 74 20 73 74 61 rack of that sta
3cf0: 74 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0d te information..
3d00: 0a 20 20 23 20 20 20 20 20 20 20 41 6e 20 69 6e . # An in
3d10: 74 65 67 65 72 20 76 61 6c 75 65 20 69 6e 20 6f teger value in o
3d20: 6e 65 20 6f 66 20 74 68 65 73 65 20 76 61 72 69 ne of these vari
3d30: 61 62 6c 65 73 20 6d 65 61 6e 73 20 74 68 65 20 ables means the
3d40: 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 77 61 73 0d compilation was.
3d50: 0a 20 20 23 20 20 20 20 20 20 20 63 6f 6d 70 6c . # compl
3d60: 65 74 65 64 20 61 6e 64 20 74 68 65 20 72 65 73 eted and the res
3d70: 75 6c 74 69 6e 67 20 63 6f 6d 70 69 6c 65 64 20 ulting compiled
3d80: 6d 65 74 68 6f 64 20 6d 61 79 20 62 65 20 69 6e method may be in
3d90: 76 6f 6b 65 64 20 75 73 69 6e 67 20 74 68 65 0d voked using the.
3da0: 0a 20 20 23 20 20 20 20 20 20 20 66 6f 6c 6c 6f . # follo
3db0: 77 69 6e 67 20 63 6f 6d 6d 61 6e 64 20 28 77 68 wing command (wh
3dc0: 65 72 65 20 24 7b 69 64 7d 20 69 73 20 74 68 65 ere ${id} is the
3dd0: 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 76 61 value of the va
3de0: 72 69 61 62 6c 65 29 3a 0d 0a 20 20 23 0d 0a 20 riable):.. #..
3df0: 20 23 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a # obj
3e00: 65 63 74 20 69 6e 76 6f 6b 65 20 5f 44 79 6e 61 ect invoke _Dyna
3e10: 6d 69 63 24 7b 69 64 7d 2e 54 65 73 74 24 7b 69 mic${id}.Test${i
3e20: 64 7d 20 42 61 63 6b 75 70 41 6e 64 47 65 74 44 d} BackupAndGetD
3e30: 61 74 61 0d 0a 20 20 23 0d 0a 20 20 73 65 74 20 ata.. #.. set
3e40: 63 6f 6d 70 69 6c 65 64 28 31 32 29 20 22 22 0d compiled(12) "".
3e50: 0a 20 20 73 65 74 20 63 6f 6d 70 69 6c 65 64 28 . set compiled(
3e60: 31 33 29 20 22 22 0d 0a 0d 0a 20 20 23 23 23 23 13) "".... ####
3e70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3e80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3e90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3ea0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3eb0: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 23 #########.... #
3ec0: 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 .. # NOTE: This
3ed0: 20 69 73 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 79 is an in-memory
3ee0: 20 64 61 74 61 62 61 73 65 20 77 69 74 68 20 73 database with s
3ef0: 68 61 72 65 64 20 63 61 63 68 65 20 65 6e 61 62 hared cache enab
3f00: 6c 65 64 2e 0d 0a 20 20 23 0d 0a 20 20 73 65 74 led... #.. set
3f10: 20 66 69 6c 65 4e 61 6d 65 28 31 29 20 66 69 6c fileName(1) fil
3f20: 65 3a 3a 6d 65 6d 6f 72 79 3a 3f 63 61 63 68 65 e::memory:?cache
3f30: 3d 73 68 61 72 65 64 0d 0a 0d 0a 20 20 23 23 23 =shared.... ###
3f40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3f50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3f60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3f70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3f80: 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 ##########....
3f90: 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 #.. # NOTE: Thi
3fa0: 73 20 69 73 20 61 20 6e 6f 72 6d 61 6c 20 6f 6e s is a normal on
3fb0: 2d 64 69 73 6b 20 64 61 74 61 62 61 73 65 2e 0d -disk database..
3fc0: 0a 20 20 23 0d 0a 20 20 73 65 74 20 66 69 6c 65 . #.. set file
3fd0: 4e 61 6d 65 28 32 29 20 5b 66 69 6c 65 20 6a 6f Name(2) [file jo
3fe0: 69 6e 20 5b 67 65 74 44 61 74 61 62 61 73 65 44 in [getDatabaseD
3ff0: 69 72 65 63 74 6f 72 79 5d 20 5b 61 70 70 65 6e irectory] [appen
4000: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 73 dArgs \.. s
4010: 74 72 65 73 73 2d 20 5b 70 69 64 5d 20 2d 20 5b tress- [pid] - [
4020: 73 74 72 69 6e 67 20 74 72 69 6d 20 5b 63 6c 6f string trim [clo
4030: 63 6b 20 73 65 63 6f 6e 64 73 5d 20 2d 5d 20 2e ck seconds] -] .
4040: 64 62 5d 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 db]].... ######
4050: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4060: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4070: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4080: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4090: 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74 #######.... set
40a0: 75 70 57 6f 72 6b 6c 6f 61 64 4d 65 6d 44 62 20 upWorkloadMemDb
40b0: 24 66 69 6c 65 4e 61 6d 65 28 31 29 20 73 72 63 $fileName(1) src
40c0: 44 62 0d 0a 20 20 73 65 74 75 70 57 6f 72 6b 6c Db.. setupWorkl
40d0: 6f 61 64 46 69 6c 65 44 62 20 24 66 69 6c 65 4e oadFileDb $fileN
40e0: 61 6d 65 28 32 29 0d 0a 0d 0a 20 20 23 23 23 23 ame(2).... ####
40f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4110: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4120: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4130: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 23 #########.... #
4140: 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 .. # NOTE: This
4150: 20 73 65 72 76 65 73 20 74 77 6f 20 70 75 72 70 serves two purp
4160: 6f 73 65 73 2e 20 20 46 69 72 73 74 2c 20 69 74 oses. First, it
4170: 20 61 6c 6c 6f 77 73 20 75 73 20 74 6f 20 76 65 allows us to ve
4180: 72 69 66 79 20 74 68 65 20 74 72 61 63 65 0d 0a rify the trace..
4190: 20 20 23 20 20 20 20 20 20 20 6c 6f 67 67 69 6e # loggin
41a0: 67 20 73 75 62 73 79 73 74 65 6d 20 69 73 20 77 g subsystem is w
41b0: 6f 72 6b 69 6e 67 20 70 72 6f 70 65 72 6c 79 2e orking properly.
41c0: 20 20 53 65 63 6f 6e 64 2c 20 69 74 20 70 6c 61 Second, it pla
41d0: 63 65 73 20 74 68 65 20 66 69 6c 65 0d 0a 20 20 ces the file..
41e0: 23 20 20 20 20 20 20 20 6e 61 6d 65 20 66 6f 72 # name for
41f0: 20 74 68 65 20 61 73 73 6f 63 69 61 74 65 64 20 the associated
4200: 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 69 6e database file in
4210: 74 6f 20 74 68 65 20 74 72 61 63 65 20 6c 6f 67 to the trace log
4220: 20 66 69 6c 65 2e 0d 0a 20 20 23 0d 0a 20 20 73 file... #.. s
4230: 65 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 5b 67 et connection [g
4240: 65 74 44 62 43 6f 6e 6e 65 63 74 69 6f 6e 5d 0d etDbConnection].
4250: 0a 0d 0a 20 20 24 63 6f 6e 6e 65 63 74 69 6f 6e ... $connection
4260: 20 4c 6f 67 4d 65 73 73 61 67 65 20 30 20 5b 61 LogMessage 0 [a
4270: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 ppendArgs \..
4280: 20 20 20 22 73 74 61 72 74 69 6e 67 20 73 74 72 "starting str
4290: 65 73 73 20 74 65 73 74 20 75 73 69 6e 67 20 64 ess test using d
42a0: 61 74 61 62 61 73 65 20 5c 22 22 20 24 66 69 6c atabase \"" $fil
42b0: 65 4e 61 6d 65 28 32 29 20 5c 22 2e 2e 2e 5d 0d eName(2) \"...].
42c0: 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 ... ###########
42d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
42e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
42f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4300: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4310: 23 23 0d 0a 20 20 23 20 20 20 20 20 20 20 20 20 ##.. #
4320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4330: 20 20 20 20 20 57 4f 52 4b 4c 4f 41 44 20 23 31 WORKLOAD #1
4340: 20 28 41 29 20 20 20 20 20 20 20 20 20 20 20 20 (A)
4350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4360: 20 20 23 0d 0a 20 20 23 23 23 23 23 23 23 23 23 #.. #########
4370: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4380: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4390: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
43a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
43b0: 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74 20 77 6f ####.... set wo
43c0: 72 6b 6c 6f 61 64 28 31 29 20 5b 6c 69 73 74 20 rkload(1) [list
43d0: 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74 20 73 \.. [list s
43e0: 72 63 46 69 6c 65 4e 61 6d 65 20 64 73 74 46 69 rcFileName dstFi
43f0: 6c 65 4e 61 6d 65 20 74 61 62 6c 65 20 63 6f 75 leName table cou
4400: 6e 74 31 20 63 6f 75 6e 74 32 20 63 6f 75 6e 74 nt1 count2 count
4410: 33 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20 3] {.. #..
4420: 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 # NOTE: Workloa
4430: 64 20 23 31 2c 20 43 52 45 41 54 45 20 54 41 42 d #1, CREATE TAB
4440: 4c 45 20 73 74 61 74 65 6d 65 6e 74 73 2e 0d 0a LE statements...
4450: 20 20 20 20 23 0d 0a 20 20 20 20 6c 61 70 70 65 #.. lappe
4460: 6e 64 20 3a 3a 74 69 6d 65 73 28 31 29 20 5b 6c nd ::times(1) [l
4470: 69 6e 64 65 78 20 5b 74 69 6d 65 20 7b 0d 0a 20 index [time {..
4480: 20 20 20 20 20 69 6e 69 74 54 65 73 74 20 41 0d initTest A.
4490: 0a 20 20 20 20 20 20 73 65 74 75 70 57 6f 72 6b . setupWork
44a0: 6c 6f 61 64 46 69 6c 65 44 62 20 24 64 73 74 46 loadFileDb $dstF
44b0: 69 6c 65 4e 61 6d 65 0d 0a 20 20 20 20 20 20 66 ileName.. f
44c0: 6f 72 20 7b 73 65 74 20 69 6e 64 65 78 20 32 7d or {set index 2}
44d0: 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24 63 6f 75 {$index <= $cou
44e0: 6e 74 31 7d 20 7b 69 6e 63 72 20 69 6e 64 65 78 nt1} {incr index
44f0: 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 } {.. if
4500: 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 {[catch {..
4510: 20 20 20 20 20 73 71 6c 20 65 78 65 63 75 74 65 sql execute
4520: 20 24 64 62 20 5b 61 70 70 65 6e 64 41 72 67 73 $db [appendArgs
4530: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
4540: 20 20 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 "CREATE TABLE
4550: 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20 74 22 IF NOT EXISTS t"
4560: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
4570: 20 20 24 69 6e 64 65 78 20 22 28 78 20 50 52 49 $index "(x PRI
4580: 4d 41 52 59 20 4b 45 59 2c 20 79 2c 20 7a 29 3b MARY KEY, y, z);
4590: 22 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 73 68 "].. sh
45a0: 6f 77 54 65 73 74 20 41 0d 0a 20 20 20 20 20 20 owTest A..
45b0: 20 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e } error]} then
45c0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 {.. if
45d0: 20 7b 5b 69 73 45 78 70 65 63 74 65 64 45 72 72 {[isExpectedErr
45e0: 6f 72 20 24 65 72 72 6f 72 5d 7d 20 74 68 65 6e or $error]} then
45f0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 {..
4600: 73 68 6f 77 54 65 73 74 20 61 0d 0a 20 20 20 20 showTest a..
4610: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a } else {..
4620: 20 20 20 20 20 20 20 20 20 20 20 20 66 61 69 6c fail
4630: 54 65 73 74 20 61 20 24 65 72 72 6f 72 0d 0a 20 Test a $error..
4640: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 }..
4650: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a }.. }..
4660: 20 20 20 20 20 20 63 6c 65 61 6e 75 70 44 62 20 cleanupDb
4670: 24 64 73 74 46 69 6c 65 4e 61 6d 65 20 64 62 20 $dstFileName db
4680: 66 61 6c 73 65 20 74 72 75 65 20 66 61 6c 73 65 false true false
4690: 0d 0a 20 20 20 20 20 20 64 6f 6e 65 54 65 73 74 .. doneTest
46a0: 20 41 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a 20 A.. }] 0]..
46b0: 20 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 }].... #######
46c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
46d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
46e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
46f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4700: 23 23 23 23 23 23 0d 0a 20 20 23 20 20 20 20 20 ######.. #
4710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4720: 20 20 20 20 20 20 20 20 20 57 4f 52 4b 4c 4f 41 WORKLOA
4730: 44 20 23 32 20 28 42 29 20 20 20 20 20 20 20 20 D #2 (B)
4740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4750: 20 20 20 20 20 20 23 0d 0a 20 20 23 23 23 23 23 #.. #####
4760: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4770: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4780: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4790: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
47a0: 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65 ########.... se
47b0: 74 20 77 6f 72 6b 6c 6f 61 64 28 32 29 20 5b 6c t workload(2) [l
47c0: 69 73 74 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 ist \.. [li
47d0: 73 74 20 73 72 63 46 69 6c 65 4e 61 6d 65 20 64 st srcFileName d
47e0: 73 74 46 69 6c 65 4e 61 6d 65 20 74 61 62 6c 65 stFileName table
47f0: 20 63 6f 75 6e 74 31 20 63 6f 75 6e 74 32 20 63 count1 count2 c
4800: 6f 75 6e 74 33 5d 20 7b 0d 0a 20 20 20 20 23 0d ount3] {.. #.
4810: 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 . # NOTE: Wor
4820: 6b 6c 6f 61 64 20 23 32 2c 20 44 52 4f 50 20 54 kload #2, DROP T
4830: 41 42 4c 45 20 73 74 61 74 65 6d 65 6e 74 73 2e ABLE statements.
4840: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 6c 61 70 .. #.. lap
4850: 70 65 6e 64 20 3a 3a 74 69 6d 65 73 28 32 29 20 pend ::times(2)
4860: 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20 7b 0d [lindex [time {.
4870: 0a 20 20 20 20 20 20 69 6e 69 74 54 65 73 74 20 . initTest
4880: 42 0d 0a 20 20 20 20 20 20 73 65 74 75 70 57 6f B.. setupWo
4890: 72 6b 6c 6f 61 64 46 69 6c 65 44 62 20 24 64 73 rkloadFileDb $ds
48a0: 74 46 69 6c 65 4e 61 6d 65 0d 0a 20 20 20 20 20 tFileName..
48b0: 20 66 6f 72 20 7b 73 65 74 20 69 6e 64 65 78 20 for {set index
48c0: 32 7d 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24 63 2} {$index <= $c
48d0: 6f 75 6e 74 31 7d 20 7b 69 6e 63 72 20 69 6e 64 ount1} {incr ind
48e0: 65 78 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 ex} {.. i
48f0: 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 f {[catch {..
4900: 20 20 20 20 20 20 20 73 71 6c 20 65 78 65 63 75 sql execu
4910: 74 65 20 24 64 62 20 5b 61 70 70 65 6e 64 41 72 te $db [appendAr
4920: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 gs \..
4930: 20 20 20 20 22 44 52 4f 50 20 54 41 42 4c 45 20 "DROP TABLE
4940: 49 46 20 45 58 49 53 54 53 20 74 22 20 24 69 6e IF EXISTS t" $in
4950: 64 65 78 20 5c 3b 5d 0d 0a 20 20 20 20 20 20 20 dex \;]..
4960: 20 20 20 73 68 6f 77 54 65 73 74 20 42 0d 0a 20 showTest B..
4970: 20 20 20 20 20 20 20 7d 20 65 72 72 6f 72 5d 7d } error]}
4980: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
4990: 20 20 20 69 66 20 7b 5b 69 73 45 78 70 65 63 74 if {[isExpect
49a0: 65 64 45 72 72 6f 72 20 24 65 72 72 6f 72 5d 7d edError $error]}
49b0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
49c0: 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 62 0d showTest b.
49d0: 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 . } els
49e0: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 e {..
49f0: 20 66 61 69 6c 54 65 73 74 20 62 20 24 65 72 72 failTest b $err
4a00: 6f 72 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d or.. }.
4a10: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 . }..
4a20: 20 20 7d 0d 0a 20 20 20 20 20 20 63 6c 65 61 6e }.. clean
4a30: 75 70 44 62 20 24 64 73 74 46 69 6c 65 4e 61 6d upDb $dstFileNam
4a40: 65 20 64 62 20 66 61 6c 73 65 20 74 72 75 65 20 e db false true
4a50: 66 61 6c 73 65 0d 0a 20 20 20 20 20 20 64 6f 6e false.. don
4a60: 65 54 65 73 74 20 42 0d 0a 20 20 20 20 7d 5d 20 eTest B.. }]
4a70: 30 5d 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 20 23 23 0].. }].... ##
4a80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4a90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4aa0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4ab0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4ac0: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 20 20 23 ###########.. #
4ad0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 4f WO
4af0: 52 4b 4c 4f 41 44 20 23 33 20 28 43 29 20 20 20 RKLOAD #3 (C)
4b00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4b10: 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 #..
4b20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4b30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4b40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4b50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4b60: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d #############...
4b70: 0a 20 20 73 65 74 20 77 6f 72 6b 6c 6f 61 64 28 . set workload(
4b80: 33 29 20 5b 6c 69 73 74 20 5c 0d 0a 20 20 20 20 3) [list \..
4b90: 20 20 5b 6c 69 73 74 20 73 72 63 46 69 6c 65 4e [list srcFileN
4ba0: 61 6d 65 20 64 73 74 46 69 6c 65 4e 61 6d 65 20 ame dstFileName
4bb0: 74 61 62 6c 65 20 63 6f 75 6e 74 31 20 63 6f 75 table count1 cou
4bc0: 6e 74 32 20 63 6f 75 6e 74 33 5d 20 7b 0d 0a 20 nt2 count3] {..
4bd0: 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE
4be0: 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 33 2c 20 22 : Workload #3, "
4bf0: 73 6d 61 6c 6c 22 20 53 45 4c 45 43 54 20 73 74 small" SELECT st
4c00: 61 74 65 6d 65 6e 74 73 2e 0d 0a 20 20 20 20 23 atements... #
4c10: 0d 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 3a 3a .. lappend ::
4c20: 74 69 6d 65 73 28 33 29 20 5b 6c 69 6e 64 65 78 times(3) [lindex
4c30: 20 5b 74 69 6d 65 20 7b 0d 0a 20 20 20 20 20 20 [time {..
4c40: 69 6e 69 74 54 65 73 74 20 43 0d 0a 20 20 20 20 initTest C..
4c50: 20 20 73 65 74 75 70 57 6f 72 6b 6c 6f 61 64 46 setupWorkloadF
4c60: 69 6c 65 44 62 20 24 64 73 74 46 69 6c 65 4e 61 ileDb $dstFileNa
4c70: 6d 65 0d 0a 20 20 20 20 20 20 66 6f 72 20 7b 73 me.. for {s
4c80: 65 74 20 69 6e 64 65 78 20 31 7d 20 7b 24 69 6e et index 1} {$in
4c90: 64 65 78 20 3c 3d 20 24 63 6f 75 6e 74 31 7d 20 dex <= $count1}
4ca0: 7b 69 6e 63 72 20 69 6e 64 65 78 7d 20 7b 0d 0a {incr index} {..
4cb0: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 if {[cat
4cc0: 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 ch {..
4cd0: 73 65 74 20 72 65 61 64 65 72 20 5b 73 71 6c 20 set reader [sql
4ce0: 65 78 65 63 75 74 65 20 2d 65 78 65 63 75 74 65 execute -execute
4cf0: 20 72 65 61 64 65 72 20 5c 0d 0a 20 20 20 20 20 reader \..
4d00: 20 20 20 20 20 20 20 20 20 2d 66 6f 72 6d 61 74 -format
4d10: 20 64 61 74 61 52 65 61 64 65 72 20 2d 61 6c 69 dataReader -ali
4d20: 61 73 20 24 64 62 20 5b 61 70 70 65 6e 64 41 72 as $db [appendAr
4d30: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 gs \..
4d40: 20 20 20 20 22 53 45 4c 45 43 54 20 78 2c 20 79 "SELECT x, y
4d50: 20 46 52 4f 4d 20 22 20 24 74 61 62 6c 65 20 22 FROM " $table "
4d60: 20 57 48 45 52 45 20 7a 20 3d 20 27 73 6d 61 6c WHERE z = 'smal
4d70: 6c 27 3b 22 5d 5d 0d 0a 20 20 20 20 20 20 20 20 l';"]]..
4d80: 20 20 77 68 69 6c 65 20 7b 5b 24 72 65 61 64 65 while {[$reade
4d90: 72 20 52 65 61 64 5d 7d 20 7b 0d 0a 20 20 20 20 r Read]} {..
4da0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
4db0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 44 # NOTE: D
4dc0: 6f 20 6e 6f 74 68 69 6e 67 2e 0d 0a 20 20 20 20 o nothing...
4dd0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
4de0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 }..
4df0: 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c unset -nocompl
4e00: 61 69 6e 20 72 65 61 64 65 72 0d 0a 20 20 20 20 ain reader..
4e10: 20 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 43 showTest C
4e20: 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 72 72 6f .. } erro
4e30: 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 r]} then {..
4e40: 20 20 20 20 20 20 69 66 20 7b 5b 69 73 45 78 70 if {[isExp
4e50: 65 63 74 65 64 45 72 72 6f 72 20 24 65 72 72 6f ectedError $erro
4e60: 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 r]} then {..
4e70: 20 20 20 20 20 20 20 20 73 68 6f 77 54 65 73 74 showTest
4e80: 20 63 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 20 c.. }
4e90: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 else {..
4ea0: 20 20 20 20 66 61 69 6c 54 65 73 74 20 63 20 24 failTest c $
4eb0: 65 72 72 6f 72 0d 0a 20 20 20 20 20 20 20 20 20 error..
4ec0: 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 }.. }..
4ed0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 63 6c }.. cl
4ee0: 65 61 6e 75 70 44 62 20 24 64 73 74 46 69 6c 65 eanupDb $dstFile
4ef0: 4e 61 6d 65 20 64 62 20 66 61 6c 73 65 20 74 72 Name db false tr
4f00: 75 65 20 66 61 6c 73 65 0d 0a 20 20 20 20 20 20 ue false..
4f10: 64 6f 6e 65 54 65 73 74 20 43 0d 0a 20 20 20 20 doneTest C..
4f20: 7d 5d 20 30 5d 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 }] 0].. }]....
4f30: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ###############
4f40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4f50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4f60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4f70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a ##############..
4f80: 20 20 23 20 20 20 20 20 20 20 20 20 20 20 20 20 #
4f90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4fa0: 20 57 4f 52 4b 4c 4f 41 44 20 23 34 20 28 44 29 WORKLOAD #4 (D)
4fb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4fc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 0d #.
4fd0: 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 . #############
4fe0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4ff0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5020: 0d 0a 0d 0a 20 20 73 65 74 20 77 6f 72 6b 6c 6f .... set worklo
5030: 61 64 28 34 29 20 5b 6c 69 73 74 20 5c 0d 0a 20 ad(4) [list \..
5040: 20 20 20 20 20 5b 6c 69 73 74 20 73 72 63 46 69 [list srcFi
5050: 6c 65 4e 61 6d 65 20 64 73 74 46 69 6c 65 4e 61 leName dstFileNa
5060: 6d 65 20 74 61 62 6c 65 20 63 6f 75 6e 74 31 20 me table count1
5070: 63 6f 75 6e 74 32 20 63 6f 75 6e 74 33 5d 20 7b count2 count3] {
5080: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e .. #.. # N
5090: 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 34 OTE: Workload #4
50a0: 2c 20 22 62 69 67 22 20 53 45 4c 45 43 54 20 73 , "big" SELECT s
50b0: 74 61 74 65 6d 65 6e 74 73 2e 0d 0a 20 20 20 20 tatements...
50c0: 23 0d 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 3a #.. lappend :
50d0: 3a 74 69 6d 65 73 28 34 29 20 5b 6c 69 6e 64 65 :times(4) [linde
50e0: 78 20 5b 74 69 6d 65 20 7b 0d 0a 20 20 20 20 20 x [time {..
50f0: 20 69 6e 69 74 54 65 73 74 20 44 0d 0a 20 20 20 initTest D..
5100: 20 20 20 73 65 74 75 70 57 6f 72 6b 6c 6f 61 64 setupWorkload
5110: 46 69 6c 65 44 62 20 24 64 73 74 46 69 6c 65 4e FileDb $dstFileN
5120: 61 6d 65 0d 0a 20 20 20 20 20 20 66 6f 72 20 7b ame.. for {
5130: 73 65 74 20 69 6e 64 65 78 20 31 7d 20 7b 24 69 set index 1} {$i
5140: 6e 64 65 78 20 3c 3d 20 24 63 6f 75 6e 74 31 7d ndex <= $count1}
5150: 20 7b 69 6e 63 72 20 69 6e 64 65 78 7d 20 7b 0d {incr index} {.
5160: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 . if {[ca
5170: 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 tch {..
5180: 20 73 65 74 20 72 65 61 64 65 72 20 5b 73 71 6c set reader [sql
5190: 20 65 78 65 63 75 74 65 20 2d 65 78 65 63 75 74 execute -execut
51a0: 65 20 72 65 61 64 65 72 20 5c 0d 0a 20 20 20 20 e reader \..
51b0: 20 20 20 20 20 20 20 20 20 20 2d 66 6f 72 6d 61 -forma
51c0: 74 20 64 61 74 61 52 65 61 64 65 72 20 2d 61 6c t dataReader -al
51d0: 69 61 73 20 24 64 62 20 5b 61 70 70 65 6e 64 41 ias $db [appendA
51e0: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
51f0: 20 20 20 20 20 22 53 45 4c 45 43 54 20 78 2c 20 "SELECT x,
5200: 79 20 46 52 4f 4d 20 22 20 24 74 61 62 6c 65 20 y FROM " $table
5210: 22 20 57 48 45 52 45 20 7a 20 3d 20 27 62 69 67 " WHERE z = 'big
5220: 27 3b 22 5d 5d 0d 0a 20 20 20 20 20 20 20 20 20 ';"]]..
5230: 20 77 68 69 6c 65 20 7b 5b 24 72 65 61 64 65 72 while {[$reader
5240: 20 52 65 61 64 5d 7d 20 7b 0d 0a 20 20 20 20 20 Read]} {..
5250: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
5260: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 44 6f # NOTE: Do
5270: 20 6e 6f 74 68 69 6e 67 2e 0d 0a 20 20 20 20 20 nothing...
5280: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
5290: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 }..
52a0: 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 unset -nocompla
52b0: 69 6e 20 72 65 61 64 65 72 0d 0a 20 20 20 20 20 in reader..
52c0: 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 44 0d showTest D.
52d0: 0a 20 20 20 20 20 20 20 20 7d 20 65 72 72 6f 72 . } error
52e0: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {..
52f0: 20 20 20 20 20 69 66 20 7b 5b 69 73 45 78 70 65 if {[isExpe
5300: 63 74 65 64 45 72 72 6f 72 20 24 65 72 72 6f 72 ctedError $error
5310: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {..
5320: 20 20 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 showTest
5330: 64 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 d.. } e
5340: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 lse {..
5350: 20 20 20 66 61 69 6c 54 65 73 74 20 64 20 24 65 failTest d $e
5360: 72 72 6f 72 0d 0a 20 20 20 20 20 20 20 20 20 20 rror..
5370: 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 }.. }..
5380: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 63 6c 65 }.. cle
5390: 61 6e 75 70 44 62 20 24 64 73 74 46 69 6c 65 4e anupDb $dstFileN
53a0: 61 6d 65 20 64 62 20 66 61 6c 73 65 20 74 72 75 ame db false tru
53b0: 65 20 66 61 6c 73 65 0d 0a 20 20 20 20 20 20 64 e false.. d
53c0: 6f 6e 65 54 65 73 74 20 44 0d 0a 20 20 20 20 7d oneTest D.. }
53d0: 5d 20 30 5d 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 20 ] 0].. }]....
53e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
53f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5400: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5410: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5420: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 20 #############..
5430: 20 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 #
5440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5450: 57 4f 52 4b 4c 4f 41 44 20 23 35 20 28 45 29 20 WORKLOAD #5 (E)
5460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5470: 20 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a #..
5480: 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ##############
5490: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
54a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
54b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
54c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d ###############.
54d0: 0a 0d 0a 20 20 73 65 74 20 77 6f 72 6b 6c 6f 61 ... set workloa
54e0: 64 28 35 29 20 5b 6c 69 73 74 20 5c 0d 0a 20 20 d(5) [list \..
54f0: 20 20 20 20 5b 6c 69 73 74 20 73 72 63 46 69 6c [list srcFil
5500: 65 4e 61 6d 65 20 64 73 74 46 69 6c 65 4e 61 6d eName dstFileNam
5510: 65 20 74 61 62 6c 65 20 63 6f 75 6e 74 31 20 63 e table count1 c
5520: 6f 75 6e 74 32 20 63 6f 75 6e 74 33 5d 20 7b 0d ount2 count3] {.
5530: 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f . #.. # NO
5540: 54 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 35 2c TE: Workload #5,
5550: 20 22 73 6d 61 6c 6c 22 20 49 4e 53 45 52 54 20 "small" INSERT
5560: 73 74 61 74 65 6d 65 6e 74 73 2e 0d 0a 20 20 20 statements...
5570: 20 23 0d 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 #.. lappend
5580: 3a 3a 74 69 6d 65 73 28 35 29 20 5b 6c 69 6e 64 ::times(5) [lind
5590: 65 78 20 5b 74 69 6d 65 20 7b 0d 0a 20 20 20 20 ex [time {..
55a0: 20 20 69 6e 69 74 54 65 73 74 20 45 0d 0a 20 20 initTest E..
55b0: 20 20 20 20 73 65 74 75 70 57 6f 72 6b 6c 6f 61 setupWorkloa
55c0: 64 46 69 6c 65 44 62 20 24 64 73 74 46 69 6c 65 dFileDb $dstFile
55d0: 4e 61 6d 65 0d 0a 20 20 20 20 20 20 66 6f 72 20 Name.. for
55e0: 7b 73 65 74 20 69 6e 64 65 78 20 31 7d 20 7b 24 {set index 1} {$
55f0: 69 6e 64 65 78 20 3c 3d 20 24 63 6f 75 6e 74 31 index <= $count1
5600: 7d 20 7b 69 6e 63 72 20 69 6e 64 65 78 7d 20 7b } {incr index} {
5610: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 .. if {[c
5620: 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 atch {..
5630: 20 20 73 71 6c 20 65 78 65 63 75 74 65 20 24 64 sql execute $d
5640: 62 20 5b 61 70 70 65 6e 64 41 72 67 73 20 22 49 b [appendArgs "I
5650: 4e 53 45 52 54 20 49 4e 54 4f 20 22 20 24 74 61 NSERT INTO " $ta
5660: 62 6c 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 ble \..
5670: 20 20 20 20 20 22 28 78 2c 20 79 2c 20 7a 29 20 "(x, y, z)
5680: 56 41 4c 55 45 53 28 27 22 20 5b 66 6f 72 6d 61 VALUES('" [forma
5690: 74 20 25 6c 58 20 5b 65 78 70 72 20 7b 72 61 6e t %lX [expr {ran
56a0: 64 6f 6d 28 29 7d 5d 5d 20 5c 0d 0a 20 20 20 20 dom()}]] \..
56b0: 20 20 20 20 20 20 20 20 20 20 22 27 2c 20 27 22 "', '"
56c0: 20 5b 62 61 73 65 36 34 20 65 6e 63 6f 64 65 20 [base64 encode
56d0: 2d 2d 20 5b 65 78 70 72 20 7b 72 61 6e 64 73 74 -- [expr {randst
56e0: 72 28 24 63 6f 75 6e 74 32 29 7d 5d 5d 20 5c 0d r($count2)}]] \.
56f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 . "
5700: 27 2c 20 27 73 6d 61 6c 6c 27 29 3b 22 5d 0d 0a ', 'small');"]..
5710: 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 65 showTe
5720: 73 74 20 45 0d 0a 20 20 20 20 20 20 20 20 7d 20 st E.. }
5730: 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a error]} then {..
5740: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 69 if {[i
5750: 73 45 78 70 65 63 74 65 64 45 72 72 6f 72 20 24 sExpectedError $
5760: 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a error]} then {..
5770: 20 20 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 show
5780: 54 65 73 74 20 65 0d 0a 20 20 20 20 20 20 20 20 Test e..
5790: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 } else {..
57a0: 20 20 20 20 20 20 20 20 66 61 69 6c 54 65 73 74 failTest
57b0: 20 65 20 24 65 72 72 6f 72 0d 0a 20 20 20 20 20 e $error..
57c0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 }..
57d0: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 }.. }..
57e0: 20 20 63 6c 65 61 6e 75 70 44 62 20 24 64 73 74 cleanupDb $dst
57f0: 46 69 6c 65 4e 61 6d 65 20 64 62 20 66 61 6c 73 FileName db fals
5800: 65 20 74 72 75 65 20 66 61 6c 73 65 0d 0a 20 20 e true false..
5810: 20 20 20 20 64 6f 6e 65 54 65 73 74 20 45 0d 0a doneTest E..
5820: 20 20 20 20 7d 5d 20 30 5d 0d 0a 20 20 7d 5d 0d }] 0].. }].
5830: 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 ... ###########
5840: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5850: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5860: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5870: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5880: 23 23 0d 0a 20 20 23 20 20 20 20 20 20 20 20 20 ##.. #
5890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
58a0: 20 20 20 20 20 57 4f 52 4b 4c 4f 41 44 20 23 36 WORKLOAD #6
58b0: 20 28 46 29 20 20 20 20 20 20 20 20 20 20 20 20 (F)
58c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
58d0: 20 20 23 0d 0a 20 20 23 23 23 23 23 23 23 23 23 #.. #########
58e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
58f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5900: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5910: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5920: 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74 20 77 6f ####.... set wo
5930: 72 6b 6c 6f 61 64 28 36 29 20 5b 6c 69 73 74 20 rkload(6) [list
5940: 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74 20 73 \.. [list s
5950: 72 63 46 69 6c 65 4e 61 6d 65 20 64 73 74 46 69 rcFileName dstFi
5960: 6c 65 4e 61 6d 65 20 74 61 62 6c 65 20 63 6f 75 leName table cou
5970: 6e 74 31 20 63 6f 75 6e 74 32 20 63 6f 75 6e 74 nt1 count2 count
5980: 33 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20 3] {.. #..
5990: 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 # NOTE: Workloa
59a0: 64 20 23 36 2c 20 22 62 69 67 22 20 49 4e 53 45 d #6, "big" INSE
59b0: 52 54 20 73 74 61 74 65 6d 65 6e 74 73 2e 0d 0a RT statements...
59c0: 20 20 20 20 23 0d 0a 20 20 20 20 6c 61 70 70 65 #.. lappe
59d0: 6e 64 20 3a 3a 74 69 6d 65 73 28 36 29 20 5b 6c nd ::times(6) [l
59e0: 69 6e 64 65 78 20 5b 74 69 6d 65 20 7b 0d 0a 20 index [time {..
59f0: 20 20 20 20 20 69 6e 69 74 54 65 73 74 20 46 0d initTest F.
5a00: 0a 20 20 20 20 20 20 73 65 74 75 70 57 6f 72 6b . setupWork
5a10: 6c 6f 61 64 46 69 6c 65 44 62 20 24 64 73 74 46 loadFileDb $dstF
5a20: 69 6c 65 4e 61 6d 65 0d 0a 20 20 20 20 20 20 66 ileName.. f
5a30: 6f 72 20 7b 73 65 74 20 69 6e 64 65 78 20 31 7d or {set index 1}
5a40: 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24 63 6f 75 {$index <= $cou
5a50: 6e 74 31 7d 20 7b 69 6e 63 72 20 69 6e 64 65 78 nt1} {incr index
5a60: 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 } {.. if
5a70: 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 {[catch {..
5a80: 20 20 20 20 20 73 71 6c 20 65 78 65 63 75 74 65 sql execute
5a90: 20 24 64 62 20 5b 61 70 70 65 6e 64 41 72 67 73 $db [appendArgs
5aa0: 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 22 20 "INSERT INTO "
5ab0: 24 74 61 62 6c 65 20 5c 0d 0a 20 20 20 20 20 20 $table \..
5ac0: 20 20 20 20 20 20 20 20 22 28 78 2c 20 79 2c 20 "(x, y,
5ad0: 7a 29 20 56 41 4c 55 45 53 28 27 22 20 5b 66 6f z) VALUES('" [fo
5ae0: 72 6d 61 74 20 25 6c 58 20 5b 65 78 70 72 20 7b rmat %lX [expr {
5af0: 72 61 6e 64 6f 6d 28 29 7d 5d 5d 20 5c 0d 0a 20 random()}]] \..
5b00: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 27 2c "',
5b10: 20 52 41 4e 44 4f 4d 42 4c 4f 42 28 22 20 24 63 RANDOMBLOB(" $c
5b20: 6f 75 6e 74 33 20 22 29 2c 20 27 62 69 67 27 29 ount3 "), 'big')
5b30: 3b 22 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 73 ;"].. s
5b40: 68 6f 77 54 65 73 74 20 46 0d 0a 20 20 20 20 20 howTest F..
5b50: 20 20 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 } error]} the
5b60: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 69 n {.. i
5b70: 66 20 7b 5b 69 73 45 78 70 65 63 74 65 64 45 72 f {[isExpectedEr
5b80: 72 6f 72 20 24 65 72 72 6f 72 5d 7d 20 74 68 65 ror $error]} the
5b90: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 n {..
5ba0: 20 73 68 6f 77 54 65 73 74 20 66 0d 0a 20 20 20 showTest f..
5bb0: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d } else {.
5bc0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 61 69 . fai
5bd0: 6c 54 65 73 74 20 66 20 24 65 72 72 6f 72 0d 0a lTest f $error..
5be0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
5bf0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d }.. }.
5c00: 0a 20 20 20 20 20 20 63 6c 65 61 6e 75 70 44 62 . cleanupDb
5c10: 20 24 64 73 74 46 69 6c 65 4e 61 6d 65 20 64 62 $dstFileName db
5c20: 20 66 61 6c 73 65 20 74 72 75 65 20 66 61 6c 73 false true fals
5c30: 65 0d 0a 20 20 20 20 20 20 64 6f 6e 65 54 65 73 e.. doneTes
5c40: 74 20 46 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a t F.. }] 0]..
5c50: 20 20 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 }].... ######
5c60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5c70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5c80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5c90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5ca0: 23 23 23 23 23 23 23 0d 0a 20 20 23 20 20 20 20 #######.. #
5cb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5cc0: 20 20 20 20 20 20 20 20 20 20 57 4f 52 4b 4c 4f WORKLO
5cd0: 41 44 20 23 37 20 28 47 29 20 20 20 20 20 20 20 AD #7 (G)
5ce0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5cf0: 20 20 20 20 20 20 20 23 0d 0a 20 20 23 23 23 23 #.. ####
5d00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5d10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5d20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5d30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
5d40: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 #########.... s
5d50: 65 74 20 77 6f 72 6b 6c 6f 61 64 28 37 29 20 5b et workload(7) [
5d60: 6c 69 73 74 20 5c 0d 0a 20 20 20 20 20 20 5b 6c list \.. [l
5d70: 69 73 74 20 73 72 63 46 69 6c 65 4e 61 6d 65 20 ist srcFileName
5d80: 64 73 74 46 69 6c 65 4e 61 6d 65 20 74 61 62 6c dstFileName tabl
5d90: 65 20 63 6f 75 6e 74 31 20 63 6f 75 6e 74 32 20 e count1 count2
5da0: 63 6f 75 6e 74 33 5d 20 7b 0d 0a 20 20 20 20 23 count3] {.. #
5db0: 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f .. # NOTE: Wo
5dc0: 72 6b 6c 6f 61 64 20 23 37 2c 20 22 73 6d 61 6c rkload #7, "smal
5dd0: 6c 22 20 55 50 44 41 54 45 20 73 74 61 74 65 6d l" UPDATE statem
5de0: 65 6e 74 73 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 ents... #..
5df0: 20 20 6c 61 70 70 65 6e 64 20 3a 3a 74 69 6d 65 lappend ::time
5e00: 73 28 37 29 20 5b 6c 69 6e 64 65 78 20 5b 74 69 s(7) [lindex [ti
5e10: 6d 65 20 7b 0d 0a 20 20 20 20 20 20 69 6e 69 74 me {.. init
5e20: 54 65 73 74 20 47 0d 0a 20 20 20 20 20 20 73 65 Test G.. se
5e30: 74 75 70 57 6f 72 6b 6c 6f 61 64 46 69 6c 65 44 tupWorkloadFileD
5e40: 62 20 24 64 73 74 46 69 6c 65 4e 61 6d 65 0d 0a b $dstFileName..
5e50: 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69 for {set i
5e60: 6e 64 65 78 20 31 7d 20 7b 24 69 6e 64 65 78 20 ndex 1} {$index
5e70: 3c 3d 20 24 63 6f 75 6e 74 31 7d 20 7b 69 6e 63 <= $count1} {inc
5e80: 72 20 69 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 20 r index} {..
5e90: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b if {[catch {
5ea0: 0d 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c 20 .. sql
5eb0: 65 78 65 63 75 74 65 20 24 64 62 20 5b 61 70 70 execute $db [app
5ec0: 65 6e 64 41 72 67 73 20 22 55 50 44 41 54 45 20 endArgs "UPDATE
5ed0: 22 20 24 74 61 62 6c 65 20 5c 0d 0a 20 20 20 20 " $table \..
5ee0: 20 20 20 20 20 20 20 20 20 20 22 20 53 45 54 20 " SET
5ef0: 79 20 3d 20 27 22 20 5b 62 61 73 65 36 34 20 65 y = '" [base64 e
5f00: 6e 63 6f 64 65 20 2d 2d 20 5b 65 78 70 72 20 7b ncode -- [expr {
5f10: 72 61 6e 64 73 74 72 28 24 63 6f 75 6e 74 32 29 randstr($count2)
5f20: 7d 5d 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 }]] \..
5f30: 20 20 20 20 20 22 27 20 57 48 45 52 45 20 78 20 "' WHERE x
5f40: 4c 49 4b 45 20 27 22 20 5b 66 6f 72 6d 61 74 20 LIKE '" [format
5f50: 25 58 20 24 69 6e 64 65 78 5d 20 22 25 27 20 41 %X $index] "%' A
5f60: 4e 44 20 7a 20 3d 20 27 73 6d 61 6c 6c 27 3b 22 ND z = 'small';"
5f70: 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 73 68 6f ].. sho
5f80: 77 54 65 73 74 20 47 0d 0a 20 20 20 20 20 20 20 wTest G..
5f90: 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 } error]} then
5fa0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 {.. if
5fb0: 7b 5b 69 73 45 78 70 65 63 74 65 64 45 72 72 6f {[isExpectedErro
5fc0: 72 20 24 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 r $error]} then
5fd0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 {.. s
5fe0: 68 6f 77 54 65 73 74 20 67 0d 0a 20 20 20 20 20 howTest g..
5ff0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 } else {..
6000: 20 20 20 20 20 20 20 20 20 20 20 66 61 69 6c 54 failT
6010: 65 73 74 20 67 20 24 65 72 72 6f 72 0d 0a 20 20 est g $error..
6020: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 }..
6030: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 }.. }..
6040: 20 20 20 20 20 63 6c 65 61 6e 75 70 44 62 20 24 cleanupDb $
6050: 64 73 74 46 69 6c 65 4e 61 6d 65 20 64 62 20 66 dstFileName db f
6060: 61 6c 73 65 20 74 72 75 65 20 66 61 6c 73 65 0d alse true false.
6070: 0a 20 20 20 20 20 20 64 6f 6e 65 54 65 73 74 20 . doneTest
6080: 47 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a 20 20 G.. }] 0]..
6090: 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 }].... ########
60a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
60b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
60c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
60d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
60e0: 23 23 23 23 23 0d 0a 20 20 23 20 20 20 20 20 20 #####.. #
60f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6100: 20 20 20 20 20 20 20 20 57 4f 52 4b 4c 4f 41 44 WORKLOAD
6110: 20 23 38 20 28 48 29 20 20 20 20 20 20 20 20 20 #8 (H)
6120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6130: 20 20 20 20 20 23 0d 0a 20 20 23 23 23 23 23 23 #.. ######
6140: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6150: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6160: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6170: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6180: 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74 #######.... set
6190: 20 77 6f 72 6b 6c 6f 61 64 28 38 29 20 5b 6c 69 workload(8) [li
61a0: 73 74 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 st \.. [lis
61b0: 74 20 73 72 63 46 69 6c 65 4e 61 6d 65 20 64 73 t srcFileName ds
61c0: 74 46 69 6c 65 4e 61 6d 65 20 74 61 62 6c 65 20 tFileName table
61d0: 63 6f 75 6e 74 31 20 63 6f 75 6e 74 32 20 63 6f count1 count2 co
61e0: 75 6e 74 33 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a unt3] {.. #..
61f0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b # NOTE: Work
6200: 6c 6f 61 64 20 23 38 2c 20 22 62 69 67 22 20 55 load #8, "big" U
6210: 50 44 41 54 45 20 73 74 61 74 65 6d 65 6e 74 73 PDATE statements
6220: 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 6c 61 ... #.. la
6230: 70 70 65 6e 64 20 3a 3a 74 69 6d 65 73 28 38 29 ppend ::times(8)
6240: 20 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20 7b [lindex [time {
6250: 0d 0a 20 20 20 20 20 20 69 6e 69 74 54 65 73 74 .. initTest
6260: 20 48 0d 0a 20 20 20 20 20 20 73 65 74 75 70 57 H.. setupW
6270: 6f 72 6b 6c 6f 61 64 46 69 6c 65 44 62 20 24 64 orkloadFileDb $d
6280: 73 74 46 69 6c 65 4e 61 6d 65 0d 0a 20 20 20 20 stFileName..
6290: 20 20 66 6f 72 20 7b 73 65 74 20 69 6e 64 65 78 for {set index
62a0: 20 31 7d 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24 1} {$index <= $
62b0: 63 6f 75 6e 74 31 7d 20 7b 69 6e 63 72 20 69 6e count1} {incr in
62c0: 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 dex} {..
62d0: 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 if {[catch {..
62e0: 20 20 20 20 20 20 20 20 73 71 6c 20 65 78 65 63 sql exec
62f0: 75 74 65 20 24 64 62 20 5b 61 70 70 65 6e 64 41 ute $db [appendA
6300: 72 67 73 20 22 55 50 44 41 54 45 20 22 20 24 74 rgs "UPDATE " $t
6310: 61 62 6c 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 able \..
6320: 20 20 20 20 20 20 22 20 53 45 54 20 79 20 3d 20 " SET y =
6330: 52 41 4e 44 4f 4d 42 4c 4f 42 28 22 20 24 63 6f RANDOMBLOB(" $co
6340: 75 6e 74 33 20 22 29 20 57 48 45 52 45 20 78 20 unt3 ") WHERE x
6350: 4c 49 4b 45 20 27 22 20 5c 0d 0a 20 20 20 20 20 LIKE '" \..
6360: 20 20 20 20 20 20 20 20 20 5b 66 6f 72 6d 61 74 [format
6370: 20 25 58 20 24 69 6e 64 65 78 5d 20 22 25 27 20 %X $index] "%'
6380: 41 4e 44 20 7a 20 3d 20 27 62 69 67 27 3b 22 5d AND z = 'big';"]
6390: 0d 0a 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 .. show
63a0: 54 65 73 74 20 48 0d 0a 20 20 20 20 20 20 20 20 Test H..
63b0: 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b } error]} then {
63c0: 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b .. if {
63d0: 5b 69 73 45 78 70 65 63 74 65 64 45 72 72 6f 72 [isExpectedError
63e0: 20 24 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b $error]} then {
63f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 68 .. sh
6400: 6f 77 54 65 73 74 20 68 0d 0a 20 20 20 20 20 20 owTest h..
6410: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 } else {..
6420: 20 20 20 20 20 20 20 20 20 20 66 61 69 6c 54 65 failTe
6430: 73 74 20 68 20 24 65 72 72 6f 72 0d 0a 20 20 20 st h $error..
6440: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }..
6450: 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 }.. }..
6460: 20 20 20 20 63 6c 65 61 6e 75 70 44 62 20 24 64 cleanupDb $d
6470: 73 74 46 69 6c 65 4e 61 6d 65 20 64 62 20 66 61 stFileName db fa
6480: 6c 73 65 20 74 72 75 65 20 66 61 6c 73 65 0d 0a lse true false..
6490: 20 20 20 20 20 20 64 6f 6e 65 54 65 73 74 20 48 doneTest H
64a0: 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a 20 20 7d .. }] 0].. }
64b0: 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 ].... #########
64c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
64d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
64e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
64f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6500: 23 23 23 23 0d 0a 20 20 23 20 20 20 20 20 20 20 ####.. #
6510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6520: 20 20 20 20 20 20 20 57 4f 52 4b 4c 4f 41 44 20 WORKLOAD
6530: 23 39 20 28 49 29 20 20 20 20 20 20 20 20 20 20 #9 (I)
6540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6550: 20 20 20 20 23 0d 0a 20 20 23 23 23 23 23 23 23 #.. #######
6560: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6570: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6580: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6590: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
65a0: 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74 20 ######.... set
65b0: 77 6f 72 6b 6c 6f 61 64 28 39 29 20 5b 6c 69 73 workload(9) [lis
65c0: 74 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74 t \.. [list
65d0: 20 73 72 63 46 69 6c 65 4e 61 6d 65 20 64 73 74 srcFileName dst
65e0: 46 69 6c 65 4e 61 6d 65 20 74 61 62 6c 65 20 63 FileName table c
65f0: 6f 75 6e 74 31 20 63 6f 75 6e 74 32 20 63 6f 75 ount1 count2 cou
6600: 6e 74 33 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 nt3] {.. #..
6610: 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c # NOTE: Workl
6620: 6f 61 64 20 23 39 2c 20 22 73 6d 61 6c 6c 22 20 oad #9, "small"
6630: 44 45 4c 45 54 45 20 73 74 61 74 65 6d 65 6e 74 DELETE statement
6640: 73 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 6c s... #.. l
6650: 61 70 70 65 6e 64 20 3a 3a 74 69 6d 65 73 28 39 append ::times(9
6660: 29 20 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20 ) [lindex [time
6670: 7b 0d 0a 20 20 20 20 20 20 69 6e 69 74 54 65 73 {.. initTes
6680: 74 20 49 0d 0a 20 20 20 20 20 20 73 65 74 75 70 t I.. setup
6690: 57 6f 72 6b 6c 6f 61 64 46 69 6c 65 44 62 20 24 WorkloadFileDb $
66a0: 64 73 74 46 69 6c 65 4e 61 6d 65 0d 0a 20 20 20 dstFileName..
66b0: 20 20 20 66 6f 72 20 7b 73 65 74 20 69 6e 64 65 for {set inde
66c0: 78 20 31 7d 20 7b 24 69 6e 64 65 78 20 3c 3d 20 x 1} {$index <=
66d0: 24 63 6f 75 6e 74 31 7d 20 7b 69 6e 63 72 20 69 $count1} {incr i
66e0: 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20 20 20 ndex} {..
66f0: 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 if {[catch {..
6700: 20 20 20 20 20 20 20 20 20 73 71 6c 20 65 78 65 sql exe
6710: 63 75 74 65 20 24 64 62 20 5b 61 70 70 65 6e 64 cute $db [append
6720: 41 72 67 73 20 22 44 45 4c 45 54 45 20 46 52 4f Args "DELETE FRO
6730: 4d 20 22 20 24 74 61 62 6c 65 20 5c 0d 0a 20 20 M " $table \..
6740: 20 20 20 20 20 20 20 20 20 20 20 20 22 20 57 48 " WH
6750: 45 52 45 20 78 20 4c 49 4b 45 20 27 22 20 5b 66 ERE x LIKE '" [f
6760: 6f 72 6d 61 74 20 25 58 20 24 69 6e 64 65 78 5d ormat %X $index]
6770: 20 22 25 27 20 41 4e 44 20 7a 20 3d 20 27 73 6d "%' AND z = 'sm
6780: 61 6c 6c 27 3b 22 5d 0d 0a 20 20 20 20 20 20 20 all';"]..
6790: 20 20 20 73 68 6f 77 54 65 73 74 20 49 0d 0a 20 showTest I..
67a0: 20 20 20 20 20 20 20 7d 20 65 72 72 6f 72 5d 7d } error]}
67b0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
67c0: 20 20 20 69 66 20 7b 5b 69 73 45 78 70 65 63 74 if {[isExpect
67d0: 65 64 45 72 72 6f 72 20 24 65 72 72 6f 72 5d 7d edError $error]}
67e0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
67f0: 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 69 0d showTest i.
6800: 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 . } els
6810: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 e {..
6820: 20 66 61 69 6c 54 65 73 74 20 69 20 24 65 72 72 failTest i $err
6830: 6f 72 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d or.. }.
6840: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 . }..
6850: 20 20 7d 0d 0a 20 20 20 20 20 20 63 6c 65 61 6e }.. clean
6860: 75 70 44 62 20 24 64 73 74 46 69 6c 65 4e 61 6d upDb $dstFileNam
6870: 65 20 64 62 20 66 61 6c 73 65 20 74 72 75 65 20 e db false true
6880: 66 61 6c 73 65 0d 0a 20 20 20 20 20 20 64 6f 6e false.. don
6890: 65 54 65 73 74 20 49 0d 0a 20 20 20 20 7d 5d 20 eTest I.. }]
68a0: 30 5d 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 20 23 23 0].. }].... ##
68b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
68c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
68d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
68e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
68f0: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 20 20 23 ###########.. #
6900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 4f WO
6920: 52 4b 4c 4f 41 44 20 23 31 30 20 28 4a 29 20 20 RKLOAD #10 (J)
6930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6940: 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 #..
6950: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6960: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6970: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6980: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6990: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d #############...
69a0: 0a 20 20 73 65 74 20 77 6f 72 6b 6c 6f 61 64 28 . set workload(
69b0: 31 30 29 20 5b 6c 69 73 74 20 5c 0d 0a 20 20 20 10) [list \..
69c0: 20 20 20 5b 6c 69 73 74 20 73 72 63 46 69 6c 65 [list srcFile
69d0: 4e 61 6d 65 20 64 73 74 46 69 6c 65 4e 61 6d 65 Name dstFileName
69e0: 20 74 61 62 6c 65 20 63 6f 75 6e 74 31 20 63 6f table count1 co
69f0: 75 6e 74 32 20 63 6f 75 6e 74 33 5d 20 7b 0d 0a unt2 count3] {..
6a00: 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 #.. # NOT
6a10: 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 31 30 2c E: Workload #10,
6a20: 20 22 62 69 67 22 20 44 45 4c 45 54 45 20 73 74 "big" DELETE st
6a30: 61 74 65 6d 65 6e 74 73 2e 0d 0a 20 20 20 20 23 atements... #
6a40: 0d 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 3a 3a .. lappend ::
6a50: 74 69 6d 65 73 28 31 30 29 20 5b 6c 69 6e 64 65 times(10) [linde
6a60: 78 20 5b 74 69 6d 65 20 7b 0d 0a 20 20 20 20 20 x [time {..
6a70: 20 69 6e 69 74 54 65 73 74 20 4a 0d 0a 20 20 20 initTest J..
6a80: 20 20 20 73 65 74 75 70 57 6f 72 6b 6c 6f 61 64 setupWorkload
6a90: 46 69 6c 65 44 62 20 24 64 73 74 46 69 6c 65 4e FileDb $dstFileN
6aa0: 61 6d 65 0d 0a 20 20 20 20 20 20 66 6f 72 20 7b ame.. for {
6ab0: 73 65 74 20 69 6e 64 65 78 20 31 7d 20 7b 24 69 set index 1} {$i
6ac0: 6e 64 65 78 20 3c 3d 20 24 63 6f 75 6e 74 31 7d ndex <= $count1}
6ad0: 20 7b 69 6e 63 72 20 69 6e 64 65 78 7d 20 7b 0d {incr index} {.
6ae0: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 . if {[ca
6af0: 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 tch {..
6b00: 20 73 71 6c 20 65 78 65 63 75 74 65 20 24 64 62 sql execute $db
6b10: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 22 44 45 [appendArgs "DE
6b20: 4c 45 54 45 20 46 52 4f 4d 20 22 20 24 74 61 62 LETE FROM " $tab
6b30: 6c 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 le \..
6b40: 20 20 20 20 22 20 57 48 45 52 45 20 78 20 4c 49 " WHERE x LI
6b50: 4b 45 20 27 22 20 5b 66 6f 72 6d 61 74 20 25 58 KE '" [format %X
6b60: 20 24 69 6e 64 65 78 5d 20 22 25 27 20 41 4e 44 $index] "%' AND
6b70: 20 7a 20 3d 20 27 62 69 67 27 3b 22 5d 0d 0a 20 z = 'big';"]..
6b80: 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 65 73 showTes
6b90: 74 20 4a 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 t J.. } e
6ba0: 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 rror]} then {..
6bb0: 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 69 73 if {[is
6bc0: 45 78 70 65 63 74 65 64 45 72 72 6f 72 20 24 65 ExpectedError $e
6bd0: 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 rror]} then {..
6be0: 20 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 showT
6bf0: 65 73 74 20 6a 0d 0a 20 20 20 20 20 20 20 20 20 est j..
6c00: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 } else {..
6c10: 20 20 20 20 20 20 20 66 61 69 6c 54 65 73 74 20 failTest
6c20: 6a 20 24 65 72 72 6f 72 0d 0a 20 20 20 20 20 20 j $error..
6c30: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d }.. }
6c40: 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 .. }..
6c50: 20 63 6c 65 61 6e 75 70 44 62 20 24 64 73 74 46 cleanupDb $dstF
6c60: 69 6c 65 4e 61 6d 65 20 64 62 20 66 61 6c 73 65 ileName db false
6c70: 20 74 72 75 65 20 66 61 6c 73 65 0d 0a 20 20 20 true false..
6c80: 20 20 20 64 6f 6e 65 54 65 73 74 20 4a 0d 0a 20 doneTest J..
6c90: 20 20 20 7d 5d 20 30 5d 0d 0a 20 20 7d 5d 0d 0a }] 0].. }]..
6ca0: 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23 .. ############
6cb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6cc0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6cd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6ce0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6cf0: 23 0d 0a 20 20 23 20 20 20 20 20 20 20 20 20 20 #.. #
6d00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6d10: 20 20 20 20 57 4f 52 4b 4c 4f 41 44 20 23 31 31 WORKLOAD #11
6d20: 20 28 4b 29 20 20 20 20 20 20 20 20 20 20 20 20 (K)
6d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6d40: 20 23 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 #.. ##########
6d50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6d60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6d70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6d80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6d90: 23 23 23 0d 0a 0d 0a 20 20 73 65 74 20 77 6f 72 ###.... set wor
6da0: 6b 6c 6f 61 64 28 31 31 29 20 5b 6c 69 73 74 20 kload(11) [list
6db0: 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74 20 73 \.. [list s
6dc0: 72 63 46 69 6c 65 4e 61 6d 65 20 64 73 74 46 69 rcFileName dstFi
6dd0: 6c 65 4e 61 6d 65 20 74 61 62 6c 65 20 63 6f 75 leName table cou
6de0: 6e 74 31 20 63 6f 75 6e 74 32 20 63 6f 75 6e 74 nt1 count2 count
6df0: 33 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20 3] {.. #..
6e00: 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 # NOTE: Workloa
6e10: 64 20 23 31 31 2c 20 56 41 43 55 55 4d 20 73 74 d #11, VACUUM st
6e20: 61 74 65 6d 65 6e 74 2e 0d 0a 20 20 20 20 23 0d atement... #.
6e30: 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 3a 3a 74 . lappend ::t
6e40: 69 6d 65 73 28 31 31 29 20 5b 6c 69 6e 64 65 78 imes(11) [lindex
6e50: 20 5b 74 69 6d 65 20 7b 0d 0a 20 20 20 20 20 20 [time {..
6e60: 69 6e 69 74 54 65 73 74 20 4b 0d 0a 20 20 20 20 initTest K..
6e70: 20 20 73 65 74 75 70 57 6f 72 6b 6c 6f 61 64 46 setupWorkloadF
6e80: 69 6c 65 44 62 20 24 64 73 74 46 69 6c 65 4e 61 ileDb $dstFileNa
6e90: 6d 65 0d 0a 20 20 20 20 20 20 66 6f 72 20 7b 73 me.. for {s
6ea0: 65 74 20 69 6e 64 65 78 20 31 7d 20 7b 24 69 6e et index 1} {$in
6eb0: 64 65 78 20 3c 3d 20 24 63 6f 75 6e 74 31 7d 20 dex <= $count1}
6ec0: 7b 69 6e 63 72 20 69 6e 64 65 78 7d 20 7b 0d 0a {incr index} {..
6ed0: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 if {[cat
6ee0: 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 ch {..
6ef0: 73 71 6c 20 65 78 65 63 75 74 65 20 24 64 62 20 sql execute $db
6f00: 22 56 41 43 55 55 4d 3b 22 0d 0a 20 20 20 20 20 "VACUUM;"..
6f10: 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 4b 0d showTest K.
6f20: 0a 20 20 20 20 20 20 20 20 7d 20 65 72 72 6f 72 . } error
6f30: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {..
6f40: 20 20 20 20 20 69 66 20 7b 5b 69 73 45 78 70 65 if {[isExpe
6f50: 63 74 65 64 45 72 72 6f 72 20 24 65 72 72 6f 72 ctedError $error
6f60: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {..
6f70: 20 20 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 showTest
6f80: 6b 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 k.. } e
6f90: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 lse {..
6fa0: 20 20 20 66 61 69 6c 54 65 73 74 20 6b 20 24 65 failTest k $e
6fb0: 72 72 6f 72 0d 0a 20 20 20 20 20 20 20 20 20 20 rror..
6fc0: 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 }.. }..
6fd0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 63 6c 65 }.. cle
6fe0: 61 6e 75 70 44 62 20 24 64 73 74 46 69 6c 65 4e anupDb $dstFileN
6ff0: 61 6d 65 20 64 62 20 66 61 6c 73 65 20 74 72 75 ame db false tru
7000: 65 20 66 61 6c 73 65 0d 0a 20 20 20 20 20 20 64 e false.. d
7010: 6f 6e 65 54 65 73 74 20 4b 0d 0a 20 20 20 20 7d oneTest K.. }
7020: 5d 20 30 5d 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 20 ] 0].. }]....
7030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7050: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7060: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7070: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 20 #############..
7080: 20 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 #
7090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
70a0: 57 4f 52 4b 4c 4f 41 44 20 23 31 32 20 28 4c 29 WORKLOAD #12 (L)
70b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
70c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a #..
70d0: 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ##############
70e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
70f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7110: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d ###############.
7120: 0a 0d 0a 20 20 73 65 74 20 77 6f 72 6b 6c 6f 61 ... set workloa
7130: 64 28 31 32 29 20 5b 6c 69 73 74 20 5c 0d 0a 20 d(12) [list \..
7140: 20 20 20 20 20 5b 6c 69 73 74 20 73 72 63 46 69 [list srcFi
7150: 6c 65 4e 61 6d 65 20 64 73 74 46 69 6c 65 4e 61 leName dstFileNa
7160: 6d 65 20 74 61 62 6c 65 20 63 6f 75 6e 74 31 20 me table count1
7170: 63 6f 75 6e 74 32 20 63 6f 75 6e 74 33 5d 20 7b count2 count3] {
7180: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e .. #.. # N
7190: 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 31 OTE: Workload #1
71a0: 32 2c 20 62 61 63 6b 75 70 20 74 6f 20 69 6e 2d 2, backup to in-
71b0: 6d 65 6d 6f 72 79 20 64 61 74 61 62 61 73 65 2e memory database.
71c0: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 6c 61 70 .. #.. lap
71d0: 70 65 6e 64 20 3a 3a 74 69 6d 65 73 28 31 32 29 pend ::times(12)
71e0: 20 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20 7b [lindex [time {
71f0: 0d 0a 20 20 20 20 20 20 69 6e 69 74 54 65 73 74 .. initTest
7200: 20 4c 0d 0a 20 20 20 20 20 20 66 6f 72 20 7b 73 L.. for {s
7210: 65 74 20 69 6e 64 65 78 20 31 7d 20 7b 24 69 6e et index 1} {$in
7220: 64 65 78 20 3c 3d 20 24 63 6f 75 6e 74 31 7d 20 dex <= $count1}
7230: 7b 69 6e 63 72 20 69 6e 64 65 78 7d 20 7b 0d 0a {incr index} {..
7240: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 if {[str
7250: 69 6e 67 20 69 73 20 69 6e 74 65 67 65 72 20 2d ing is integer -
7260: 73 74 72 69 63 74 20 24 3a 3a 63 6f 6d 70 69 6c strict $::compil
7270: 65 64 28 31 32 29 5d 7d 20 74 68 65 6e 20 7b 0d ed(12)]} then {.
7280: 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20 69 . set i
7290: 64 20 24 3a 3a 63 6f 6d 70 69 6c 65 64 28 31 32 d $::compiled(12
72a0: 29 3b 20 23 20 4e 4f 54 45 3a 20 41 6c 72 65 61 ); # NOTE: Alrea
72b0: 64 79 20 63 6f 6d 70 69 6c 65 64 2e 0d 0a 20 20 dy compiled...
72c0: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 if {[cat
72d0: 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 ch {..
72e0: 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 object invoke
72f0: 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d 2e 54 65 _Dynamic${id}.Te
7300: 73 74 24 7b 69 64 7d 20 42 61 63 6b 75 70 41 6e st${id} BackupAn
7310: 64 47 65 74 44 61 74 61 0d 0a 20 20 20 20 20 20 dGetData..
7320: 20 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 4c showTest L
7330: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 72 .. } er
7340: 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 ror]} then {..
7350: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 69 if {[i
7360: 73 45 78 70 65 63 74 65 64 45 72 72 6f 72 20 24 sExpectedError $
7370: 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a error]} then {..
7380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 68 sh
7390: 6f 77 54 65 73 74 20 6c 0d 0a 20 20 20 20 20 20 owTest l..
73a0: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a } else {..
73b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 61 fa
73c0: 69 6c 54 65 73 74 20 6c 20 24 65 72 72 6f 72 0d ilTest l $error.
73d0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a . }..
73e0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
73f0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 } else {..
7400: 20 20 20 20 20 20 20 20 20 73 65 74 20 69 64 20 set id
7410: 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 49 [object invoke I
7420: 6e 74 65 72 70 72 65 74 65 72 2e 47 65 74 41 63 nterpreter.GetAc
7430: 74 69 76 65 20 4e 65 78 74 49 64 5d 0d 0a 20 20 tive NextId]..
7440: 20 20 20 20 20 20 20 20 73 65 74 20 63 6f 64 65 set code
7450: 20 5b 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 57 [compileCSharpW
7460: 69 74 68 20 5b 73 75 62 73 74 20 7b 0d 0a 20 20 ith [subst {..
7470: 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 using
7480: 53 79 73 74 65 6d 3b 0d 0a 20 20 20 20 20 20 20 System;..
7490: 20 20 20 20 20 75 73 69 6e 67 20 53 79 73 74 65 using Syste
74a0: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 3b 0d 0a m.Data.SQLite;..
74b0: 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69 6e usin
74c0: 67 20 53 79 73 74 65 6d 2e 54 65 78 74 3b 0d 0a g System.Text;..
74d0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 .. na
74e0: 6d 65 73 70 61 63 65 20 5f 44 79 6e 61 6d 69 63 mespace _Dynamic
74f0: 24 7b 69 64 7d 0d 0a 20 20 20 20 20 20 20 20 20 ${id}..
7500: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 {..
7510: 20 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 public stati
7520: 63 20 63 6c 61 73 73 20 54 65 73 74 24 7b 69 64 c class Test${id
7530: 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 }..
7540: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 {..
7550: 20 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 public stati
7560: 63 20 76 6f 69 64 20 42 61 63 6b 75 70 41 6e 64 c void BackupAnd
7570: 47 65 74 44 61 74 61 28 29 0d 0a 20 20 20 20 20 GetData()..
7580: 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 {..
7590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
75a0: 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e using (SQLiteCon
75b0: 6e 65 63 74 69 6f 6e 20 73 6f 75 72 63 65 20 3d nection source =
75c0: 20 6e 65 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65 new SQLiteConne
75d0: 63 74 69 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20 ction(..
75e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 46 "F
75f0: 75 6c 6c 55 72 69 3d 24 7b 64 73 74 46 69 6c 65 ullUri=${dstFile
7600: 4e 61 6d 65 7d 3b 22 29 29 0d 0a 20 20 20 20 20 Name};"))..
7610: 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a {..
7620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7630: 20 20 20 20 73 6f 75 72 63 65 2e 4f 70 65 6e 28 source.Open(
7640: 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 );..
7650: 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 using (S
7660: 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 QLiteConnection
7670: 64 65 73 74 69 6e 61 74 69 6f 6e 20 3d 20 6e 65 destination = ne
7680: 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 w SQLiteConnecti
7690: 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 on(..
76a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 46 75 "Fu
76b0: 6c 6c 55 72 69 3d 24 7b 73 72 63 46 69 6c 65 4e llUri=${srcFileN
76c0: 61 6d 65 7d 3b 22 29 29 0d 0a 20 20 20 20 20 20 ame};"))..
76d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d {.
76e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
76f0: 20 20 20 20 20 20 20 64 65 73 74 69 6e 61 74 69 destinati
7700: 6f 6e 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 on.Open();....
7710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7720: 20 20 20 20 73 6f 75 72 63 65 2e 42 61 63 6b 75 source.Backu
7730: 70 44 61 74 61 62 61 73 65 28 0d 0a 20 20 20 20 pDatabase(..
7740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7750: 20 20 20 20 20 20 64 65 73 74 69 6e 61 74 69 6f destinatio
7760: 6e 2c 20 22 6d 61 69 6e 22 2c 20 22 6d 61 69 6e n, "main", "main
7770: 22 2c 20 2d 31 2c 20 6e 75 6c 6c 2c 20 30 29 3b ", -1, null, 0);
7780: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
7790: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 }..
77a0: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 }..
77b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d }.
77c0: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ...
77d0: 20 20 20 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f /////////////
77e0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
77f0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
7800: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
7810: 2f 2f 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 //....
7820: 20 20 20 20 20 20 70 75 62 6c 69 63 20 73 74 61 public sta
7830: 74 69 63 20 76 6f 69 64 20 4d 61 69 6e 28 29 0d tic void Main().
7840: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
7850: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 {..
7860: 20 20 20 20 20 20 2f 2f 20 64 6f 20 6e 6f 74 68 // do noth
7870: 69 6e 67 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 ing...
7880: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 }..
7890: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }..
78a0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 }..
78b0: 20 20 20 7d 5d 20 74 72 75 65 20 74 72 75 65 20 }] true true
78c0: 74 72 75 65 20 72 65 73 75 6c 74 73 20 65 72 72 true results err
78d0: 6f 72 73 20 53 79 73 74 65 6d 2e 44 61 74 61 2e ors System.Data.
78e0: 53 51 4c 69 74 65 2e 64 6c 6c 5d 0d 0a 20 20 20 SQLite.dll]..
78f0: 20 20 20 20 20 20 20 69 66 20 7b 24 63 6f 64 65 if {$code
7900: 20 65 71 20 22 4f 6b 22 7d 20 74 68 65 6e 20 7b eq "Ok"} then {
7910: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 .. se
7920: 74 20 3a 3a 63 6f 6d 70 69 6c 65 64 28 31 32 29 t ::compiled(12)
7930: 20 24 69 64 3b 20 23 20 4e 4f 54 45 3a 20 43 6f $id; # NOTE: Co
7940: 6d 70 69 6c 65 64 20 4f 4b 2e 0d 0a 20 20 20 20 mpiled OK...
7950: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 if {[cat
7960: 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 ch {..
7970: 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b object invok
7980: 65 20 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d 2e e _Dynamic${id}.
7990: 54 65 73 74 24 7b 69 64 7d 20 42 61 63 6b 75 70 Test${id} Backup
79a0: 41 6e 64 47 65 74 44 61 74 61 0d 0a 20 20 20 20 AndGetData..
79b0: 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 65 showTe
79c0: 73 74 20 4c 0d 0a 20 20 20 20 20 20 20 20 20 20 st L..
79d0: 20 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e } error]} then
79e0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 {..
79f0: 20 20 69 66 20 7b 5b 69 73 45 78 70 65 63 74 65 if {[isExpecte
7a00: 64 45 72 72 6f 72 20 24 65 72 72 6f 72 5d 7d 20 dError $error]}
7a10: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
7a20: 20 20 20 20 20 20 20 20 73 68 6f 77 54 65 73 74 showTest
7a30: 20 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 l..
7a40: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 } else {..
7a50: 20 20 20 20 20 20 20 20 20 20 20 20 66 61 69 6c fail
7a60: 54 65 73 74 20 6c 20 24 65 72 72 6f 72 0d 0a 20 Test l $error..
7a70: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a }..
7a80: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 }..
7a90: 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 } else
7aa0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 {.. e
7ab0: 72 72 6f 72 20 24 65 72 72 6f 72 73 0d 0a 20 20 rror $errors..
7ac0: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 }..
7ad0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 }.. }..
7ae0: 20 20 20 20 20 64 6f 6e 65 54 65 73 74 20 4c 0d doneTest L.
7af0: 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a 20 20 7d 5d . }] 0].. }]
7b00: 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 .... ##########
7b10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7b20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7b30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7b40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7b50: 23 23 23 0d 0a 20 20 23 20 20 20 20 20 20 20 20 ###.. #
7b60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7b70: 20 20 20 20 20 20 57 4f 52 4b 4c 4f 41 44 20 23 WORKLOAD #
7b80: 31 33 20 28 4d 29 20 20 20 20 20 20 20 20 20 20 13 (M)
7b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7ba0: 20 20 20 23 0d 0a 20 20 23 23 23 23 23 23 23 23 #.. ########
7bb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7bc0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7bd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7be0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7bf0: 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74 20 77 #####.... set w
7c00: 6f 72 6b 6c 6f 61 64 28 31 33 29 20 5b 6c 69 73 orkload(13) [lis
7c10: 74 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74 t \.. [list
7c20: 20 73 72 63 46 69 6c 65 4e 61 6d 65 20 64 73 74 srcFileName dst
7c30: 46 69 6c 65 4e 61 6d 65 20 74 61 62 6c 65 20 63 FileName table c
7c40: 6f 75 6e 74 31 20 63 6f 75 6e 74 32 20 63 6f 75 ount1 count2 cou
7c50: 6e 74 33 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 nt3] {.. #..
7c60: 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c # NOTE: Workl
7c70: 6f 61 64 20 23 31 33 2c 20 62 61 63 6b 75 70 20 oad #13, backup
7c80: 66 72 6f 6d 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 from an in-memor
7c90: 79 20 64 61 74 61 62 61 73 65 2e 0d 0a 20 20 20 y database...
7ca0: 20 23 0d 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 #.. lappend
7cb0: 3a 3a 74 69 6d 65 73 28 31 33 29 20 5b 6c 69 6e ::times(13) [lin
7cc0: 64 65 78 20 5b 74 69 6d 65 20 7b 0d 0a 20 20 20 dex [time {..
7cd0: 20 20 20 69 6e 69 74 54 65 73 74 20 4d 0d 0a 20 initTest M..
7ce0: 20 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69 6e for {set in
7cf0: 64 65 78 20 31 7d 20 7b 24 69 6e 64 65 78 20 3c dex 1} {$index <
7d00: 3d 20 24 63 6f 75 6e 74 31 7d 20 7b 69 6e 63 72 = $count1} {incr
7d10: 20 69 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20 index} {..
7d20: 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 69 if {[string i
7d30: 73 20 69 6e 74 65 67 65 72 20 2d 73 74 72 69 63 s integer -stric
7d40: 74 20 24 3a 3a 63 6f 6d 70 69 6c 65 64 28 31 33 t $::compiled(13
7d50: 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 )]} then {..
7d60: 20 20 20 20 20 20 73 65 74 20 69 64 20 24 3a 3a set id $::
7d70: 63 6f 6d 70 69 6c 65 64 28 31 33 29 3b 20 23 20 compiled(13); #
7d80: 4e 4f 54 45 3a 20 41 6c 72 65 61 64 79 20 63 6f NOTE: Already co
7d90: 6d 70 69 6c 65 64 2e 0d 0a 20 20 20 20 20 20 20 mpiled...
7da0: 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d if {[catch {.
7db0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a . obj
7dc0: 65 63 74 20 69 6e 76 6f 6b 65 20 5f 44 79 6e 61 ect invoke _Dyna
7dd0: 6d 69 63 24 7b 69 64 7d 2e 54 65 73 74 24 7b 69 mic${id}.Test${i
7de0: 64 7d 20 42 61 63 6b 75 70 41 6e 64 47 65 74 44 d} BackupAndGetD
7df0: 61 74 61 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ata..
7e00: 20 73 68 6f 77 54 65 73 74 20 4d 0d 0a 20 20 20 showTest M..
7e10: 20 20 20 20 20 20 20 7d 20 65 72 72 6f 72 5d 7d } error]}
7e20: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
7e30: 20 20 20 20 20 69 66 20 7b 5b 69 73 45 78 70 65 if {[isExpe
7e40: 63 74 65 64 45 72 72 6f 72 20 24 65 72 72 6f 72 ctedError $error
7e50: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {..
7e60: 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 65 73 showTes
7e70: 74 20 6d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 t m..
7e80: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 } else {..
7e90: 20 20 20 20 20 20 20 20 20 66 61 69 6c 54 65 73 failTes
7ea0: 74 20 6d 20 24 65 72 72 6f 72 0d 0a 20 20 20 20 t m $error..
7eb0: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 }..
7ec0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 }..
7ed0: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 } else {..
7ee0: 20 20 20 20 73 65 74 20 69 64 20 5b 6f 62 6a 65 set id [obje
7ef0: 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 ct invoke Interp
7f00: 72 65 74 65 72 2e 47 65 74 41 63 74 69 76 65 20 reter.GetActive
7f10: 4e 65 78 74 49 64 5d 0d 0a 20 20 20 20 20 20 20 NextId]..
7f20: 20 20 20 73 65 74 20 63 6f 64 65 20 5b 63 6f 6d set code [com
7f30: 70 69 6c 65 43 53 68 61 72 70 57 69 74 68 20 5b pileCSharpWith [
7f40: 73 75 62 73 74 20 7b 0d 0a 20 20 20 20 20 20 20 subst {..
7f50: 20 20 20 20 20 75 73 69 6e 67 20 53 79 73 74 65 using Syste
7f60: 6d 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 m;..
7f70: 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 44 61 74 using System.Dat
7f80: 61 2e 53 51 4c 69 74 65 3b 0d 0a 20 20 20 20 20 a.SQLite;..
7f90: 20 20 20 20 20 20 20 75 73 69 6e 67 20 53 79 73 using Sys
7fa0: 74 65 6d 2e 54 65 78 74 3b 0d 0a 0d 0a 20 20 20 tem.Text;....
7fb0: 20 20 20 20 20 20 20 20 20 6e 61 6d 65 73 70 61 namespa
7fc0: 63 65 20 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d ce _Dynamic${id}
7fd0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d .. {.
7fe0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 . p
7ff0: 75 62 6c 69 63 20 73 74 61 74 69 63 20 63 6c 61 ublic static cla
8000: 73 73 20 54 65 73 74 24 7b 69 64 7d 0d 0a 20 20 ss Test${id}..
8010: 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 {..
8020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 p
8030: 75 62 6c 69 63 20 73 74 61 74 69 63 20 76 6f 69 ublic static voi
8040: 64 20 42 61 63 6b 75 70 41 6e 64 47 65 74 44 61 d BackupAndGetDa
8050: 74 61 28 29 0d 0a 20 20 20 20 20 20 20 20 20 20 ta()..
8060: 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 {..
8070: 20 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 using
8080: 20 28 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 (SQLiteConnecti
8090: 6f 6e 20 73 6f 75 72 63 65 20 3d 20 6e 65 77 20 on source = new
80a0: 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e SQLiteConnection
80b0: 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 (..
80c0: 20 20 20 20 20 20 20 20 20 22 46 75 6c 6c 55 72 "FullUr
80d0: 69 3d 24 7b 73 72 63 46 69 6c 65 4e 61 6d 65 7d i=${srcFileName}
80e0: 3b 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 ;"))..
80f0: 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 {..
8100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
8110: 6f 75 72 63 65 2e 4f 70 65 6e 28 29 3b 0d 0a 20 ource.Open();..
8120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
8130: 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 using (SQLite
8140: 43 6f 6e 6e 65 63 74 69 6f 6e 20 64 65 73 74 69 Connection desti
8150: 6e 61 74 69 6f 6e 20 3d 20 6e 65 77 20 53 51 4c nation = new SQL
8160: 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a iteConnection(..
8170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
8180: 20 20 20 20 20 20 20 20 22 46 75 6c 6c 55 72 69 "FullUri
8190: 3d 24 7b 64 73 74 46 69 6c 65 4e 61 6d 65 7d 3b =${dstFileName};
81a0: 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 "))..
81b0: 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 {..
81c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
81d0: 20 20 64 65 73 74 69 6e 61 74 69 6f 6e 2e 4f 70 destination.Op
81e0: 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 en();....
81f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
8200: 6f 75 72 63 65 2e 42 61 63 6b 75 70 44 61 74 61 ource.BackupData
8210: 62 61 73 65 28 0d 0a 20 20 20 20 20 20 20 20 20 base(..
8220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
8230: 20 64 65 73 74 69 6e 61 74 69 6f 6e 2c 20 22 6d destination, "m
8240: 61 69 6e 22 2c 20 22 6d 61 69 6e 22 2c 20 2d 31 ain", "main", -1
8250: 2c 20 6e 75 6c 6c 2c 20 30 29 3b 0d 0a 20 20 20 , null, 0);..
8260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
8270: 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 }..
8280: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 }..
8290: 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 }....
82a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f //
82b0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
82c0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
82d0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
82e0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 0d /////////////...
82f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
8300: 20 70 75 62 6c 69 63 20 73 74 61 74 69 63 20 76 public static v
8310: 6f 69 64 20 4d 61 69 6e 28 29 0d 0a 20 20 20 20 oid Main()..
8320: 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 {..
8330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
8340: 20 2f 2f 20 64 6f 20 6e 6f 74 68 69 6e 67 2e 0d // do nothing..
8350: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
8360: 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 }..
8370: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 }..
8380: 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 5d }.. }]
8390: 20 74 72 75 65 20 74 72 75 65 20 74 72 75 65 20 true true true
83a0: 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 20 53 results errors S
83b0: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 ystem.Data.SQLit
83c0: 65 2e 64 6c 6c 5d 0d 0a 20 20 20 20 20 20 20 20 e.dll]..
83d0: 20 20 69 66 20 7b 24 63 6f 64 65 20 65 71 20 22 if {$code eq "
83e0: 4f 6b 22 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 Ok"} then {..
83f0: 20 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 63 set ::c
8400: 6f 6d 70 69 6c 65 64 28 31 33 29 20 24 69 64 3b ompiled(13) $id;
8410: 20 23 20 4e 4f 54 45 3a 20 43 6f 6d 70 69 6c 65 # NOTE: Compile
8420: 64 20 4f 4b 2e 0d 0a 20 20 20 20 20 20 20 20 20 d OK...
8430: 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d if {[catch {.
8440: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f . o
8450: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 5f 44 79 bject invoke _Dy
8460: 6e 61 6d 69 63 24 7b 69 64 7d 2e 54 65 73 74 24 namic${id}.Test$
8470: 7b 69 64 7d 20 42 61 63 6b 75 70 41 6e 64 47 65 {id} BackupAndGe
8480: 74 44 61 74 61 0d 0a 20 20 20 20 20 20 20 20 20 tData..
8490: 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 4d 0d showTest M.
84a0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 . } e
84b0: 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 rror]} then {..
84c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 if
84d0: 7b 5b 69 73 45 78 70 65 63 74 65 64 45 72 72 6f {[isExpectedErro
84e0: 72 20 24 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 r $error]} then
84f0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 {..
8500: 20 20 20 73 68 6f 77 54 65 73 74 20 6d 0d 0a 20 showTest m..
8510: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 } e
8520: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 lse {..
8530: 20 20 20 20 20 20 20 66 61 69 6c 54 65 73 74 20 failTest
8540: 6d 20 24 65 72 72 6f 72 0d 0a 20 20 20 20 20 20 m $error..
8550: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 }..
8560: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }..
8570: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 } else {..
8580: 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 error
8590: 24 65 72 72 6f 72 73 0d 0a 20 20 20 20 20 20 20 $errors..
85a0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d }.. }.
85b0: 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 . }..
85c0: 64 6f 6e 65 54 65 73 74 20 4d 0d 0a 20 20 20 20 doneTest M..
85d0: 7d 5d 20 30 5d 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 }] 0].. }]....
85e0: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ###############
85f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
8600: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
8610: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
8620: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a ##############..
8630: 20 20 23 20 20 20 20 20 20 20 20 20 20 20 20 20 #
8640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
8650: 20 57 4f 52 4b 4c 4f 41 44 20 23 31 34 20 28 4e WORKLOAD #14 (N
8660: 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 )
8670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 0d #.
8680: 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 . #############
8690: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
86a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
86b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
86c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
86d0: 0d 0a 0d 0a 20 20 73 65 74 20 77 6f 72 6b 6c 6f .... set worklo
86e0: 61 64 28 31 34 29 20 5b 6c 69 73 74 20 5c 0d 0a ad(14) [list \..
86f0: 20 20 20 20 20 20 5b 6c 69 73 74 20 73 72 63 46 [list srcF
8700: 69 6c 65 4e 61 6d 65 20 64 73 74 46 69 6c 65 4e ileName dstFileN
8710: 61 6d 65 20 74 61 62 6c 65 20 63 6f 75 6e 74 31 ame table count1
8720: 20 63 6f 75 6e 74 32 20 63 6f 75 6e 74 33 5d 20 count2 count3]
8730: 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 {.. #.. #
8740: 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 NOTE: Workload #
8750: 31 34 2c 20 50 52 41 47 4d 41 20 69 6e 74 65 67 14, PRAGMA integ
8760: 72 69 74 79 20 63 68 65 63 6b 20 73 74 61 74 65 rity check state
8770: 6d 65 6e 74 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 ment... #..
8780: 20 20 6c 61 70 70 65 6e 64 20 3a 3a 74 69 6d 65 lappend ::time
8790: 73 28 31 34 29 20 5b 6c 69 6e 64 65 78 20 5b 74 s(14) [lindex [t
87a0: 69 6d 65 20 7b 0d 0a 20 20 20 20 20 20 69 6e 69 ime {.. ini
87b0: 74 54 65 73 74 20 4e 0d 0a 20 20 20 20 20 20 73 tTest N.. s
87c0: 65 74 75 70 57 6f 72 6b 6c 6f 61 64 46 69 6c 65 etupWorkloadFile
87d0: 44 62 20 24 64 73 74 46 69 6c 65 4e 61 6d 65 0d Db $dstFileName.
87e0: 0a 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74 20 . for {set
87f0: 69 6e 64 65 78 20 31 7d 20 7b 24 69 6e 64 65 78 index 1} {$index
8800: 20 3c 3d 20 24 63 6f 75 6e 74 31 7d 20 7b 69 6e <= $count1} {in
8810: 63 72 20 69 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 cr index} {..
8820: 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 if {[catch
8830: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 {.. set
8840: 20 72 65 73 75 6c 74 20 5b 73 71 6c 20 65 78 65 result [sql exe
8850: 63 75 74 65 20 2d 65 78 65 63 75 74 65 20 73 63 cute -execute sc
8860: 61 6c 61 72 20 24 64 62 20 5c 0d 0a 20 20 20 20 alar $db \..
8870: 20 20 20 20 20 20 20 20 20 20 22 50 52 41 47 4d "PRAGM
8880: 41 20 69 6e 74 65 67 72 69 74 79 5f 63 68 65 63 A integrity_chec
8890: 6b 3b 22 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 k;"]..
88a0: 69 66 20 7b 24 72 65 73 75 6c 74 20 6e 65 20 22 if {$result ne "
88b0: 6f 6b 22 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 ok"} then {..
88c0: 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 5b error [
88d0: 61 70 70 65 6e 64 41 72 67 73 20 22 69 6e 74 65 appendArgs "inte
88e0: 67 72 69 74 79 20 63 68 65 63 6b 20 66 61 69 6c grity check fail
88f0: 65 64 3a 20 22 20 24 72 65 73 75 6c 74 5d 0d 0a ed: " $result]..
8900: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
8910: 20 20 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 showTest
8920: 4e 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 72 72 N.. } err
8930: 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 or]} then {..
8940: 20 20 20 20 20 20 20 69 66 20 7b 5b 69 73 45 78 if {[isEx
8950: 70 65 63 74 65 64 45 72 72 6f 72 20 24 65 72 72 pectedError $err
8960: 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 or]} then {..
8970: 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 65 73 showTes
8980: 74 20 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 7d t n.. }
8990: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 else {..
89a0: 20 20 20 20 20 66 61 69 6c 54 65 73 74 20 6e 20 failTest n
89b0: 24 65 72 72 6f 72 0d 0a 20 20 20 20 20 20 20 20 $error..
89c0: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a }.. }..
89d0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 63 }.. c
89e0: 6c 65 61 6e 75 70 44 62 20 24 64 73 74 46 69 6c leanupDb $dstFil
89f0: 65 4e 61 6d 65 20 64 62 20 66 61 6c 73 65 20 74 eName db false t
8a00: 72 75 65 20 66 61 6c 73 65 0d 0a 20 20 20 20 20 rue false..
8a10: 20 64 6f 6e 65 54 65 73 74 20 4e 0d 0a 20 20 20 doneTest N..
8a20: 20 7d 5d 20 30 5d 0d 0a 20 20 7d 5d 0d 0a 0d 0a }] 0].. }]....
8a30: 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ##############
8a40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
8a50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
8a60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
8a70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d ###############.
8a80: 0a 20 20 23 20 20 20 20 20 20 20 20 20 20 20 20 . #
8a90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
8aa0: 20 20 57 4f 52 4b 4c 4f 41 44 20 23 31 35 20 28 WORKLOAD #15 (
8ab0: 4f 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 O)
8ac0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 #
8ad0: 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23 .. ############
8ae0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
8af0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
8b00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
8b10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
8b20: 23 0d 0a 0d 0a 20 20 73 65 74 20 77 6f 72 6b 6c #.... set workl
8b30: 6f 61 64 28 31 35 29 20 5b 6c 69 73 74 20 5c 0d oad(15) [list \.
8b40: 0a 20 20 20 20 20 20 5b 6c 69 73 74 20 73 72 63 . [list src
8b50: 46 69 6c 65 4e 61 6d 65 20 64 73 74 46 69 6c 65 FileName dstFile
8b60: 4e 61 6d 65 20 74 61 62 6c 65 20 63 6f 75 6e 74 Name table count
8b70: 31 20 63 6f 75 6e 74 32 20 63 6f 75 6e 74 33 5d 1 count2 count3]
8b80: 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 {.. #.. #
8b90: 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 NOTE: Workload
8ba0: 23 31 35 2c 20 66 6f 72 63 65 20 6d 61 6e 61 67 #15, force manag
8bb0: 65 64 20 67 61 72 62 61 67 65 20 63 6f 6c 6c 65 ed garbage colle
8bc0: 63 74 69 6f 6e 0d 0a 20 20 20 20 23 0d 0a 20 20 ction.. #..
8bd0: 20 20 6c 61 70 70 65 6e 64 20 3a 3a 74 69 6d 65 lappend ::time
8be0: 73 28 31 35 29 20 5b 6c 69 6e 64 65 78 20 5b 74 s(15) [lindex [t
8bf0: 69 6d 65 20 7b 0d 0a 20 20 20 20 20 20 69 6e 69 ime {.. ini
8c00: 74 54 65 73 74 20 4f 0d 0a 20 20 20 20 20 20 66 tTest O.. f
8c10: 6f 72 20 7b 73 65 74 20 69 6e 64 65 78 20 31 7d or {set index 1}
8c20: 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24 63 6f 75 {$index <= $cou
8c30: 6e 74 31 7d 20 7b 69 6e 63 72 20 69 6e 64 65 78 nt1} {incr index
8c40: 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 } {.. if
8c50: 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 {[catch {..
8c60: 20 20 20 20 20 63 6f 6c 6c 65 63 74 47 61 72 62 collectGarb
8c70: 61 67 65 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e age $::test_chan
8c80: 6e 65 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 73 nel.. s
8c90: 68 6f 77 54 65 73 74 20 4f 0d 0a 20 20 20 20 20 howTest O..
8ca0: 20 20 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 } error]} the
8cb0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 69 n {.. i
8cc0: 66 20 7b 5b 69 73 45 78 70 65 63 74 65 64 45 72 f {[isExpectedEr
8cd0: 72 6f 72 20 24 65 72 72 6f 72 5d 7d 20 74 68 65 ror $error]} the
8ce0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 n {..
8cf0: 20 73 68 6f 77 54 65 73 74 20 6f 0d 0a 20 20 20 showTest o..
8d00: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d } else {.
8d10: 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 61 69 . fai
8d20: 6c 54 65 73 74 20 6f 20 24 65 72 72 6f 72 0d 0a lTest o $error..
8d30: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
8d40: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d }.. }.
8d50: 0a 20 20 20 20 20 20 64 6f 6e 65 54 65 73 74 20 . doneTest
8d60: 4f 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a 20 20 O.. }] 0]..
8d70: 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 }].... ########
8d80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
8d90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
8da0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
8db0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
8dc0: 23 23 23 23 23 0d 0a 20 20 23 20 20 20 20 20 20 #####.. #
8dd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
8de0: 20 20 20 20 20 20 20 20 57 4f 52 4b 4c 4f 41 44 WORKLOAD
8df0: 20 23 31 36 20 28 50 29 20 20 20 20 20 20 20 20 #16 (P)
8e00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
8e10: 20 20 20 20 20 23 0d 0a 20 20 23 23 23 23 23 23 #.. ######
8e20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
8e30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
8e40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
8e50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
8e60: 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74 #######.... set
8e70: 20 77 6f 72 6b 6c 6f 61 64 28 31 36 29 20 5b 6c workload(16) [l
8e80: 69 73 74 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 ist \.. [li
8e90: 73 74 20 73 72 63 46 69 6c 65 4e 61 6d 65 20 64 st srcFileName d
8ea0: 73 74 46 69 6c 65 4e 61 6d 65 20 74 61 62 6c 65 stFileName table
8eb0: 20 63 6f 75 6e 74 31 20 63 6f 75 6e 74 32 20 63 count1 count2 c
8ec0: 6f 75 6e 74 33 5d 20 7b 0d 0a 20 20 20 20 23 0d ount3] {.. #.
8ed0: 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 . # NOTE: Wor
8ee0: 6b 6c 6f 61 64 20 23 31 36 2c 20 61 6c 6c 6f 63 kload #16, alloc
8ef0: 61 74 65 20 28 65 78 63 6c 75 64 65 29 20 73 6f ate (exclude) so
8f00: 6d 65 20 6e 61 74 69 76 65 20 68 65 61 70 20 6d me native heap m
8f10: 65 6d 6f 72 79 0d 0a 20 20 20 20 23 0d 0a 20 20 emory.. #..
8f20: 20 20 6c 61 70 70 65 6e 64 20 3a 3a 74 69 6d 65 lappend ::time
8f30: 73 28 31 36 29 20 5b 6c 69 6e 64 65 78 20 5b 74 s(16) [lindex [t
8f40: 69 6d 65 20 7b 0d 0a 20 20 20 20 20 20 69 6e 69 ime {.. ini
8f50: 74 54 65 73 74 20 50 0d 0a 20 20 20 20 20 20 73 tTest P.. s
8f60: 65 74 20 6d 61 78 53 69 7a 65 20 24 3a 3a 63 6f et maxSize $::co
8f70: 75 6e 74 28 35 29 0d 0a 20 20 20 20 20 20 6f 62 unt(5).. ob
8f80: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 47 43 20 41 ject invoke GC A
8f90: 64 64 4d 65 6d 6f 72 79 50 72 65 73 73 75 72 65 ddMemoryPressure
8fa0: 20 24 6d 61 78 53 69 7a 65 0d 0a 20 20 20 20 20 $maxSize..
8fb0: 20 74 72 79 20 7b 0d 0a 20 20 20 20 20 20 20 20 try {..
8fc0: 66 6f 72 20 7b 73 65 74 20 69 6e 64 65 78 20 31 for {set index 1
8fd0: 7d 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24 63 6f } {$index <= $co
8fe0: 75 6e 74 31 7d 20 7b 69 6e 63 72 20 69 6e 64 65 unt1} {incr inde
8ff0: 78 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 x} {..
9000: 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 if {[catch {..
9010: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 73 69 set si
9020: 7a 65 20 5b 65 78 70 72 20 7b 69 6e 74 28 6d 69 ze [expr {int(mi
9030: 6e 28 24 6d 61 78 53 69 7a 65 2c 20 61 62 73 28 n($maxSize, abs(
9040: 24 63 6f 75 6e 74 33 20 2a 20 24 69 6e 64 65 78 $count3 * $index
9050: 20 2a 20 35 2e 30 29 29 29 7d 5d 0d 0a 20 20 20 * 5.0)))}]..
9060: 20 20 20 20 20 20 20 20 20 73 65 74 20 70 74 72 set ptr
9070: 20 5b 61 6c 6c 6f 63 4d 65 6d 20 24 73 69 7a 65 [allocMem $size
9080: 5d 3b 20 23 20 74 68 72 6f 77 0d 0a 20 20 20 20 ]; # throw..
9090: 20 20 20 20 20 20 20 20 75 73 65 4d 65 6d 20 24 useMem $
90a0: 70 74 72 20 24 73 69 7a 65 3b 20 64 65 6c 61 79 ptr $size; delay
90b0: 54 65 73 74 20 24 63 6f 75 6e 74 32 0d 0a 20 20 Test $count2..
90c0: 20 20 20 20 20 20 20 20 20 20 66 72 65 65 4d 65 freeMe
90d0: 6d 20 24 70 74 72 3b 20 75 6e 73 65 74 20 2d 6e m $ptr; unset -n
90e0: 6f 63 6f 6d 70 6c 61 69 6e 20 70 74 72 0d 0a 20 ocomplain ptr..
90f0: 20 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 showT
9100: 65 73 74 20 50 0d 0a 20 20 20 20 20 20 20 20 20 est P..
9110: 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 } error]} then
9120: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 {.. i
9130: 66 20 7b 5b 69 73 45 78 70 65 63 74 65 64 45 72 f {[isExpectedEr
9140: 72 6f 72 20 24 65 72 72 6f 72 5d 7d 20 74 68 65 ror $error]} the
9150: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 n {..
9160: 20 20 20 73 68 6f 77 54 65 73 74 20 70 0d 0a 20 showTest p..
9170: 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 } els
9180: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 e {..
9190: 20 20 20 66 61 69 6c 54 65 73 74 20 70 20 24 65 failTest p $e
91a0: 72 72 6f 72 0d 0a 20 20 20 20 20 20 20 20 20 20 rror..
91b0: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d }.. }
91c0: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 .. }..
91d0: 20 20 20 7d 20 66 69 6e 61 6c 6c 79 20 7b 0d 0a } finally {..
91e0: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 if {[inf
91f0: 6f 20 65 78 69 73 74 73 20 70 74 72 5d 7d 20 74 o exists ptr]} t
9200: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 hen {..
9210: 20 66 72 65 65 4d 65 6d 20 24 70 74 72 3b 20 75 freeMem $ptr; u
9220: 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e nset -nocomplain
9230: 20 70 74 72 0d 0a 20 20 20 20 20 20 20 20 7d 0d ptr.. }.
9240: 0a 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 . object
9250: 69 6e 76 6f 6b 65 20 47 43 20 52 65 6d 6f 76 65 invoke GC Remove
9260: 4d 65 6d 6f 72 79 50 72 65 73 73 75 72 65 20 24 MemoryPressure $
9270: 6d 61 78 53 69 7a 65 0d 0a 20 20 20 20 20 20 7d maxSize.. }
9280: 0d 0a 20 20 20 20 20 20 64 6f 6e 65 54 65 73 74 .. doneTest
9290: 20 50 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a 20 P.. }] 0]..
92a0: 20 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 }].... #######
92b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
92c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
92d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
92e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
92f0: 23 23 23 23 23 23 0d 0a 20 20 23 20 20 20 20 20 ######.. #
9300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
9310: 20 20 20 20 20 20 20 20 20 57 4f 52 4b 4c 4f 41 WORKLOA
9320: 44 20 23 31 37 20 28 51 29 20 20 20 20 20 20 20 D #17 (Q)
9330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
9340: 20 20 20 20 20 20 23 0d 0a 20 20 23 23 23 23 23 #.. #####
9350: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
9360: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
9370: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
9380: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
9390: 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65 ########.... se
93a0: 74 20 77 6f 72 6b 6c 6f 61 64 28 31 37 29 20 5b t workload(17) [
93b0: 6c 69 73 74 20 5c 0d 0a 20 20 20 20 20 20 5b 6c list \.. [l
93c0: 69 73 74 20 73 72 63 46 69 6c 65 4e 61 6d 65 20 ist srcFileName
93d0: 64 73 74 46 69 6c 65 4e 61 6d 65 20 74 61 62 6c dstFileName tabl
93e0: 65 20 63 6f 75 6e 74 31 20 63 6f 75 6e 74 32 20 e count1 count2
93f0: 63 6f 75 6e 74 33 5d 20 7b 0d 0a 20 20 20 20 23 count3] {.. #
9400: 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f .. # NOTE: Wo
9410: 72 6b 6c 6f 61 64 20 23 31 37 2c 20 63 68 61 6e rkload #17, chan
9420: 67 65 20 74 68 65 20 64 61 74 61 62 61 73 65 20 ge the database
9430: 6a 6f 75 72 6e 61 6c 20 6d 6f 64 65 0d 0a 20 20 journal mode..
9440: 20 20 23 0d 0a 20 20 20 20 6c 61 70 70 65 6e 64 #.. lappend
9450: 20 3a 3a 74 69 6d 65 73 28 31 37 29 20 5b 6c 69 ::times(17) [li
9460: 6e 64 65 78 20 5b 74 69 6d 65 20 7b 0d 0a 20 20 ndex [time {..
9470: 20 20 20 20 69 6e 69 74 54 65 73 74 20 51 0d 0a initTest Q..
9480: 20 20 20 20 20 20 73 65 74 75 70 57 6f 72 6b 6c setupWorkl
9490: 6f 61 64 46 69 6c 65 44 62 20 24 64 73 74 46 69 oadFileDb $dstFi
94a0: 6c 65 4e 61 6d 65 0d 0a 20 20 20 20 20 20 66 6f leName.. fo
94b0: 72 20 7b 73 65 74 20 69 6e 64 65 78 20 31 7d 20 r {set index 1}
94c0: 7b 24 69 6e 64 65 78 20 3c 3d 20 24 63 6f 75 6e {$index <= $coun
94d0: 74 31 7d 20 7b 69 6e 63 72 20 69 6e 64 65 78 7d t1} {incr index}
94e0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b {.. if {
94f0: 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 [catch {..
9500: 20 20 20 20 73 71 6c 20 65 78 65 63 75 74 65 20 sql execute
9510: 24 64 62 20 5b 61 70 70 65 6e 64 41 72 67 73 20 $db [appendArgs
9520: 22 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f "PRAGMA journal_
9530: 6d 6f 64 65 20 3d 20 5c 22 22 20 5c 0d 0a 20 20 mode = \"" \..
9540: 20 20 20 20 20 20 20 20 20 20 20 20 5b 65 78 70 [exp
9550: 72 20 7b 24 69 6e 64 65 78 20 25 20 32 20 3d 3d r {$index % 2 ==
9560: 20 30 20 3f 20 22 64 65 6c 65 74 65 22 20 3a 20 0 ? "delete" :
9570: 22 77 61 6c 22 7d 5d 20 5c 22 5c 3b 5d 0d 0a 20 "wal"}] \"\;]..
9580: 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 65 73 showTes
9590: 74 20 51 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 t Q.. } e
95a0: 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 rror]} then {..
95b0: 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 69 73 if {[is
95c0: 45 78 70 65 63 74 65 64 45 72 72 6f 72 20 24 65 ExpectedError $e
95d0: 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 rror]} then {..
95e0: 20 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 showT
95f0: 65 73 74 20 71 0d 0a 20 20 20 20 20 20 20 20 20 est q..
9600: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 } else {..
9610: 20 20 20 20 20 20 20 66 61 69 6c 54 65 73 74 20 failTest
9620: 71 20 24 65 72 72 6f 72 0d 0a 20 20 20 20 20 20 q $error..
9630: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d }.. }
9640: 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 .. }..
9650: 20 63 6c 65 61 6e 75 70 44 62 20 24 64 73 74 46 cleanupDb $dstF
9660: 69 6c 65 4e 61 6d 65 20 64 62 20 66 61 6c 73 65 ileName db false
9670: 20 74 72 75 65 20 66 61 6c 73 65 0d 0a 20 20 20 true false..
9680: 20 20 20 64 6f 6e 65 54 65 73 74 20 51 0d 0a 20 doneTest Q..
9690: 20 20 20 7d 5d 20 30 5d 0d 0a 20 20 7d 5d 0d 0a }] 0].. }]..
96a0: 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23 .. ############
96b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
96c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
96d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
96e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
96f0: 23 0d 0a 20 20 23 20 20 20 20 20 20 20 20 20 20 #.. #
9700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
9710: 20 20 20 20 57 4f 52 4b 4c 4f 41 44 20 23 31 38 WORKLOAD #18
9720: 20 28 52 29 20 20 20 20 20 20 20 20 20 20 20 20 (R)
9730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
9740: 20 23 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 #.. ##########
9750: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
9760: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
9770: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
9780: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
9790: 23 23 23 0d 0a 0d 0a 20 20 73 65 74 20 77 6f 72 ###.... set wor
97a0: 6b 6c 6f 61 64 28 31 38 29 20 5b 6c 69 73 74 20 kload(18) [list
97b0: 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74 20 73 \.. [list s
97c0: 72 63 46 69 6c 65 4e 61 6d 65 20 64 73 74 46 69 rcFileName dstFi
97d0: 6c 65 4e 61 6d 65 20 74 61 62 6c 65 20 63 6f 75 leName table cou
97e0: 6e 74 31 20 63 6f 75 6e 74 32 20 63 6f 75 6e 74 nt1 count2 count
97f0: 33 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20 3] {.. #..
9800: 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 # NOTE: Workloa
9810: 64 20 23 31 38 2c 20 65 78 65 63 75 74 65 20 71 d #18, execute q
9820: 75 65 72 69 65 73 20 61 67 61 69 6e 73 74 20 74 ueries against t
9830: 68 65 20 69 6e 2d 6d 65 6d 6f 72 79 20 64 61 74 he in-memory dat
9840: 61 62 61 73 65 0d 0a 20 20 20 20 23 0d 0a 20 20 abase.. #..
9850: 20 20 6c 61 70 70 65 6e 64 20 3a 3a 74 69 6d 65 lappend ::time
9860: 73 28 31 38 29 20 5b 6c 69 6e 64 65 78 20 5b 74 s(18) [lindex [t
9870: 69 6d 65 20 7b 0d 0a 20 20 20 20 20 20 69 6e 69 ime {.. ini
9880: 74 54 65 73 74 20 52 0d 0a 20 20 20 20 20 20 73 tTest R.. s
9890: 65 74 75 70 57 6f 72 6b 6c 6f 61 64 4d 65 6d 44 etupWorkloadMemD
98a0: 62 20 24 73 72 63 46 69 6c 65 4e 61 6d 65 0d 0a b $srcFileName..
98b0: 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69 for {set i
98c0: 6e 64 65 78 20 31 7d 20 7b 24 69 6e 64 65 78 20 ndex 1} {$index
98d0: 3c 3d 20 24 63 6f 75 6e 74 31 7d 20 7b 69 6e 63 <= $count1} {inc
98e0: 72 20 69 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 20 r index} {..
98f0: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b if {[catch {
9900: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 .. #..
9910: 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a # NOTE:
9920: 20 57 6f 72 6b 6c 6f 61 64 20 23 31 38 2e 33 2c Workload #18.3,
9930: 20 22 73 6d 61 6c 6c 22 20 53 45 4c 45 43 54 20 "small" SELECT
9940: 73 74 61 74 65 6d 65 6e 74 73 2e 0d 0a 20 20 20 statements...
9950: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
9960: 20 20 20 20 73 65 74 20 72 65 61 64 65 72 20 5b set reader [
9970: 73 71 6c 20 65 78 65 63 75 74 65 20 2d 65 78 65 sql execute -exe
9980: 63 75 74 65 20 72 65 61 64 65 72 20 5c 0d 0a 20 cute reader \..
9990: 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 66 6f -fo
99a0: 72 6d 61 74 20 64 61 74 61 52 65 61 64 65 72 20 rmat dataReader
99b0: 2d 61 6c 69 61 73 20 24 64 62 20 5b 61 70 70 65 -alias $db [appe
99c0: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 ndArgs \..
99d0: 20 20 20 20 20 20 20 20 22 53 45 4c 45 43 54 20 "SELECT
99e0: 78 2c 20 79 20 46 52 4f 4d 20 22 20 24 74 61 62 x, y FROM " $tab
99f0: 6c 65 20 22 20 57 48 45 52 45 20 7a 20 3d 20 27 le " WHERE z = '
9a00: 73 6d 61 6c 6c 27 3b 22 5d 5d 0d 0a 20 20 20 20 small';"]]..
9a10: 20 20 20 20 20 20 77 68 69 6c 65 20 7b 5b 24 72 while {[$r
9a20: 65 61 64 65 72 20 52 65 61 64 5d 7d 20 7b 0d 0a eader Read]} {..
9a30: 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 #..
9a40: 20 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 # NOT
9a50: 45 3a 20 44 6f 20 6e 6f 74 68 69 6e 67 2e 0d 0a E: Do nothing...
9a60: 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 #..
9a70: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 }..
9a80: 20 20 20 20 20 20 75 6e 73 65 74 20 2d 6e 6f 63 unset -noc
9a90: 6f 6d 70 6c 61 69 6e 20 72 65 61 64 65 72 0d 0a omplain reader..
9aa0: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #..
9ab0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 # NOTE: W
9ac0: 6f 72 6b 6c 6f 61 64 20 23 31 38 2e 34 2c 20 22 orkload #18.4, "
9ad0: 62 69 67 22 20 53 45 4c 45 43 54 20 73 74 61 74 big" SELECT stat
9ae0: 65 6d 65 6e 74 73 2e 0d 0a 20 20 20 20 20 20 20 ements...
9af0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #..
9b00: 73 65 74 20 72 65 61 64 65 72 20 5b 73 71 6c 20 set reader [sql
9b10: 65 78 65 63 75 74 65 20 2d 65 78 65 63 75 74 65 execute -execute
9b20: 20 72 65 61 64 65 72 20 5c 0d 0a 20 20 20 20 20 reader \..
9b30: 20 20 20 20 20 20 20 20 20 2d 66 6f 72 6d 61 74 -format
9b40: 20 64 61 74 61 52 65 61 64 65 72 20 2d 61 6c 69 dataReader -ali
9b50: 61 73 20 24 64 62 20 5b 61 70 70 65 6e 64 41 72 as $db [appendAr
9b60: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 gs \..
9b70: 20 20 20 20 22 53 45 4c 45 43 54 20 78 2c 20 79 "SELECT x, y
9b80: 20 46 52 4f 4d 20 22 20 24 74 61 62 6c 65 20 22 FROM " $table "
9b90: 20 57 48 45 52 45 20 7a 20 3d 20 27 62 69 67 27 WHERE z = 'big'
9ba0: 3b 22 5d 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 ;"]]..
9bb0: 77 68 69 6c 65 20 7b 5b 24 72 65 61 64 65 72 20 while {[$reader
9bc0: 52 65 61 64 5d 7d 20 7b 0d 0a 20 20 20 20 20 20 Read]} {..
9bd0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
9be0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 44 6f 20 # NOTE: Do
9bf0: 6e 6f 74 68 69 6e 67 2e 0d 0a 20 20 20 20 20 20 nothing...
9c00: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
9c10: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 }..
9c20: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 unset -nocomplai
9c30: 6e 20 72 65 61 64 65 72 0d 0a 20 20 20 20 20 20 n reader..
9c40: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #..
9c50: 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 # NOTE: Workloa
9c60: 64 20 23 31 38 2e 35 2c 20 22 73 6d 61 6c 6c 22 d #18.5, "small"
9c70: 20 49 4e 53 45 52 54 20 73 74 61 74 65 6d 65 6e INSERT statemen
9c80: 74 73 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 ts... #
9c90: 0d 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c 20 .. sql
9ca0: 65 78 65 63 75 74 65 20 24 64 62 20 5b 61 70 70 execute $db [app
9cb0: 65 6e 64 41 72 67 73 20 22 49 4e 53 45 52 54 20 endArgs "INSERT
9cc0: 49 4e 54 4f 20 22 20 24 74 61 62 6c 65 20 5c 0d INTO " $table \.
9cd0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 . "
9ce0: 28 78 2c 20 79 2c 20 7a 29 20 56 41 4c 55 45 53 (x, y, z) VALUES
9cf0: 28 27 22 20 5b 66 6f 72 6d 61 74 20 25 6c 58 20 ('" [format %lX
9d00: 5b 65 78 70 72 20 7b 72 61 6e 64 6f 6d 28 29 7d [expr {random()}
9d10: 5d 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 ]] \..
9d20: 20 20 20 20 22 27 2c 20 27 22 20 5b 62 61 73 65 "', '" [base
9d30: 36 34 20 65 6e 63 6f 64 65 20 2d 2d 20 5b 65 78 64 encode -- [ex
9d40: 70 72 20 7b 72 61 6e 64 73 74 72 28 24 63 6f 75 pr {randstr($cou
9d50: 6e 74 32 29 7d 5d 5d 20 5c 0d 0a 20 20 20 20 20 nt2)}]] \..
9d60: 20 20 20 20 20 20 20 20 20 22 27 2c 20 27 73 6d "', 'sm
9d70: 61 6c 6c 27 29 3b 22 5d 0d 0a 20 20 20 20 20 20 all');"]..
9d80: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #..
9d90: 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 # NOTE: Workloa
9da0: 64 20 23 31 38 2e 36 2c 20 22 62 69 67 22 20 49 d #18.6, "big" I
9db0: 4e 53 45 52 54 20 73 74 61 74 65 6d 65 6e 74 73 NSERT statements
9dc0: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a ... #..
9dd0: 20 20 20 20 20 20 20 20 20 20 73 71 6c 20 65 78 sql ex
9de0: 65 63 75 74 65 20 24 64 62 20 5b 61 70 70 65 6e ecute $db [appen
9df0: 64 41 72 67 73 20 22 49 4e 53 45 52 54 20 49 4e dArgs "INSERT IN
9e00: 54 4f 20 22 20 24 74 61 62 6c 65 20 5c 0d 0a 20 TO " $table \..
9e10: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 28 78 "(x
9e20: 2c 20 79 2c 20 7a 29 20 56 41 4c 55 45 53 28 27 , y, z) VALUES('
9e30: 22 20 5b 66 6f 72 6d 61 74 20 25 6c 58 20 5b 65 " [format %lX [e
9e40: 78 70 72 20 7b 72 61 6e 64 6f 6d 28 29 7d 5d 5d xpr {random()}]]
9e50: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
9e60: 20 20 22 27 2c 20 52 41 4e 44 4f 4d 42 4c 4f 42 "', RANDOMBLOB
9e70: 28 22 20 24 63 6f 75 6e 74 33 20 22 29 2c 20 27 (" $count3 "), '
9e80: 62 69 67 27 29 3b 22 5d 0d 0a 20 20 20 20 20 20 big');"]..
9e90: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #..
9ea0: 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 # NOTE: Workloa
9eb0: 64 20 23 31 38 2e 37 2c 20 22 73 6d 61 6c 6c 22 d #18.7, "small"
9ec0: 20 55 50 44 41 54 45 20 73 74 61 74 65 6d 65 6e UPDATE statemen
9ed0: 74 73 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 ts... #
9ee0: 0d 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c 20 .. sql
9ef0: 65 78 65 63 75 74 65 20 24 64 62 20 5b 61 70 70 execute $db [app
9f00: 65 6e 64 41 72 67 73 20 22 55 50 44 41 54 45 20 endArgs "UPDATE
9f10: 22 20 24 74 61 62 6c 65 20 5c 0d 0a 20 20 20 20 " $table \..
9f20: 20 20 20 20 20 20 20 20 20 20 22 20 53 45 54 20 " SET
9f30: 79 20 3d 20 27 22 20 5b 62 61 73 65 36 34 20 65 y = '" [base64 e
9f40: 6e 63 6f 64 65 20 2d 2d 20 5b 65 78 70 72 20 7b ncode -- [expr {
9f50: 72 61 6e 64 73 74 72 28 24 63 6f 75 6e 74 32 29 randstr($count2)
9f60: 7d 5d 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 }]] \..
9f70: 20 20 20 20 20 22 27 20 57 48 45 52 45 20 78 20 "' WHERE x
9f80: 4c 49 4b 45 20 27 22 20 5b 66 6f 72 6d 61 74 20 LIKE '" [format
9f90: 25 58 20 24 69 6e 64 65 78 5d 20 22 25 27 20 41 %X $index] "%' A
9fa0: 4e 44 20 7a 20 3d 20 27 73 6d 61 6c 6c 27 3b 22 ND z = 'small';"
9fb0: 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a ].. #..
9fc0: 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 # NOTE
9fd0: 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 31 38 2e 38 : Workload #18.8
9fe0: 2c 20 22 62 69 67 22 20 55 50 44 41 54 45 20 73 , "big" UPDATE s
9ff0: 74 61 74 65 6d 65 6e 74 73 2e 0d 0a 20 20 20 20 tatements...
a000: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
a010: 20 20 20 73 71 6c 20 65 78 65 63 75 74 65 20 24 sql execute $
a020: 64 62 20 5b 61 70 70 65 6e 64 41 72 67 73 20 22 db [appendArgs "
a030: 55 50 44 41 54 45 20 22 20 24 74 61 62 6c 65 20 UPDATE " $table
a040: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
a050: 20 22 20 53 45 54 20 79 20 3d 20 52 41 4e 44 4f " SET y = RANDO
a060: 4d 42 4c 4f 42 28 22 20 24 63 6f 75 6e 74 33 20 MBLOB(" $count3
a070: 22 29 20 57 48 45 52 45 20 78 20 4c 49 4b 45 20 ") WHERE x LIKE
a080: 27 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 '" \..
a090: 20 20 20 20 5b 66 6f 72 6d 61 74 20 25 58 20 24 [format %X $
a0a0: 69 6e 64 65 78 5d 20 22 25 27 20 41 4e 44 20 7a index] "%' AND z
a0b0: 20 3d 20 27 62 69 67 27 3b 22 5d 0d 0a 20 20 20 = 'big';"]..
a0c0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
a0d0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b # NOTE: Work
a0e0: 6c 6f 61 64 20 23 31 38 2e 39 2c 20 22 73 6d 61 load #18.9, "sma
a0f0: 6c 6c 22 20 44 45 4c 45 54 45 20 73 74 61 74 65 ll" DELETE state
a100: 6d 65 6e 74 73 2e 0d 0a 20 20 20 20 20 20 20 20 ments...
a110: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 #.. s
a120: 71 6c 20 65 78 65 63 75 74 65 20 24 64 62 20 5b ql execute $db [
a130: 61 70 70 65 6e 64 41 72 67 73 20 22 44 45 4c 45 appendArgs "DELE
a140: 54 45 20 46 52 4f 4d 20 22 20 24 74 61 62 6c 65 TE FROM " $table
a150: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
a160: 20 20 22 20 57 48 45 52 45 20 78 20 4c 49 4b 45 " WHERE x LIKE
a170: 20 27 22 20 5b 66 6f 72 6d 61 74 20 25 58 20 24 '" [format %X $
a180: 69 6e 64 65 78 5d 20 22 25 27 20 41 4e 44 20 7a index] "%' AND z
a190: 20 3d 20 27 73 6d 61 6c 6c 27 3b 22 5d 0d 0a 20 = 'small';"]..
a1a0: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 #..
a1b0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f # NOTE: Wo
a1c0: 72 6b 6c 6f 61 64 20 23 31 38 2e 31 30 2c 20 22 rkload #18.10, "
a1d0: 62 69 67 22 20 44 45 4c 45 54 45 20 73 74 61 74 big" DELETE stat
a1e0: 65 6d 65 6e 74 73 2e 0d 0a 20 20 20 20 20 20 20 ements...
a1f0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #..
a200: 73 71 6c 20 65 78 65 63 75 74 65 20 24 64 62 20 sql execute $db
a210: 5b 61 70 70 65 6e 64 41 72 67 73 20 22 44 45 4c [appendArgs "DEL
a220: 45 54 45 20 46 52 4f 4d 20 22 20 24 74 61 62 6c ETE FROM " $tabl
a230: 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 e \..
a240: 20 20 20 22 20 57 48 45 52 45 20 78 20 4c 49 4b " WHERE x LIK
a250: 45 20 27 22 20 5b 66 6f 72 6d 61 74 20 25 58 20 E '" [format %X
a260: 24 69 6e 64 65 78 5d 20 22 25 27 20 41 4e 44 20 $index] "%' AND
a270: 7a 20 3d 20 27 62 69 67 27 3b 22 5d 0d 0a 20 20 z = 'big';"]..
a280: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
a290: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 # NOTE: Wor
a2a0: 6b 6c 6f 61 64 20 23 31 38 2e 31 31 2c 20 56 41 kload #18.11, VA
a2b0: 43 55 55 4d 20 73 74 61 74 65 6d 65 6e 74 2e 0d CUUM statement..
a2c0: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 . #..
a2d0: 20 20 20 20 20 20 20 20 73 71 6c 20 65 78 65 63 sql exec
a2e0: 75 74 65 20 24 64 62 20 22 56 41 43 55 55 4d 3b ute $db "VACUUM;
a2f0: 22 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a ".. #..
a300: 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 # NOTE
a310: 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 31 38 2e 31 : Workload #18.1
a320: 34 2c 20 50 52 41 47 4d 41 20 69 6e 74 65 67 72 4, PRAGMA integr
a330: 69 74 79 20 63 68 65 63 6b 20 73 74 61 74 65 6d ity check statem
a340: 65 6e 74 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 ent...
a350: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 #.. set
a360: 20 72 65 73 75 6c 74 20 5b 73 71 6c 20 65 78 65 result [sql exe
a370: 63 75 74 65 20 2d 65 78 65 63 75 74 65 20 73 63 cute -execute sc
a380: 61 6c 61 72 20 24 64 62 20 5c 0d 0a 20 20 20 20 alar $db \..
a390: 20 20 20 20 20 20 20 20 20 20 22 50 52 41 47 4d "PRAGM
a3a0: 41 20 69 6e 74 65 67 72 69 74 79 5f 63 68 65 63 A integrity_chec
a3b0: 6b 3b 22 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 k;"]..
a3c0: 69 66 20 7b 24 72 65 73 75 6c 74 20 6e 65 20 22 if {$result ne "
a3d0: 6f 6b 22 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 ok"} then {..
a3e0: 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 5b error [
a3f0: 61 70 70 65 6e 64 41 72 67 73 20 22 69 6e 74 65 appendArgs "inte
a400: 67 72 69 74 79 20 63 68 65 63 6b 20 66 61 69 6c grity check fail
a410: 65 64 3a 20 22 20 24 72 65 73 75 6c 74 5d 0d 0a ed: " $result]..
a420: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
a430: 20 20 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 showTest
a440: 52 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 72 72 R.. } err
a450: 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 or]} then {..
a460: 20 20 20 20 20 20 20 69 66 20 7b 5b 69 73 45 78 if {[isEx
a470: 70 65 63 74 65 64 45 72 72 6f 72 20 24 65 72 72 pectedError $err
a480: 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 or]} then {..
a490: 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 65 73 showTes
a4a0: 74 20 72 0d 0a 20 20 20 20 20 20 20 20 20 20 7d t r.. }
a4b0: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 else {..
a4c0: 20 20 20 20 20 66 61 69 6c 54 65 73 74 20 72 20 failTest r
a4d0: 24 65 72 72 6f 72 0d 0a 20 20 20 20 20 20 20 20 $error..
a4e0: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a }.. }..
a4f0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 63 }.. c
a500: 6c 65 61 6e 75 70 44 62 20 24 73 72 63 46 69 6c leanupDb $srcFil
a510: 65 4e 61 6d 65 20 64 62 20 66 61 6c 73 65 20 74 eName db false t
a520: 72 75 65 20 66 61 6c 73 65 0d 0a 20 20 20 20 20 rue false..
a530: 20 64 6f 6e 65 54 65 73 74 20 52 0d 0a 20 20 20 doneTest R..
a540: 20 7d 5d 20 30 5d 0d 0a 20 20 7d 5d 0d 0a 7d 20 }] 0].. }]..}
a550: 2d 62 6f 64 79 20 7b 0d 0a 20 20 74 70 75 74 73 -body {.. tputs
a560: 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b $test_channel [
a570: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 appendArgs \..
a580: 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e "==== WARNIN
a590: 47 3a 20 74 68 69 73 20 73 74 72 65 73 73 20 74 G: this stress t
a5a0: 65 73 74 20 6d 61 79 20 74 61 6b 65 20 73 65 76 est may take sev
a5b0: 65 72 61 6c 20 6d 69 6e 75 74 65 73 2e 2e 2e 5c eral minutes...\
a5c0: 6e 22 5d 0d 0a 0d 0a 20 20 66 6f 72 20 7b 73 65 n"].... for {se
a5d0: 74 20 69 6e 64 65 78 28 30 29 20 31 7d 20 7b 24 t index(0) 1} {$
a5e0: 69 6e 64 65 78 28 30 29 20 3c 3d 20 24 63 6f 75 index(0) <= $cou
a5f0: 6e 74 28 30 29 7d 20 7b 69 6e 63 72 20 69 6e 64 nt(0)} {incr ind
a600: 65 78 28 30 29 7d 20 7b 0d 0a 20 20 20 20 69 66 ex(0)} {.. if
a610: 20 7b 24 69 6e 64 65 78 28 30 29 20 3e 20 31 7d {$index(0) > 1}
a620: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 23 then {.. #
a630: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 .. # NOTE:
a640: 41 64 76 61 6e 63 65 20 6f 75 74 70 75 74 20 74 Advance output t
a650: 6f 20 74 68 65 20 6e 65 78 74 20 6c 69 6e 65 20 o the next line
a660: 64 75 65 20 74 6f 20 74 68 65 20 77 6f 72 6b 6c due to the workl
a670: 6f 61 64 0d 0a 20 20 20 20 20 20 23 20 20 20 20 oad.. #
a680: 20 20 20 69 74 65 72 61 74 69 6f 6e 20 70 72 6f iteration pro
a690: 67 72 65 73 73 20 69 6e 64 69 63 61 74 6f 72 73 gress indicators
a6a0: 20 66 72 6f 6d 20 74 68 65 20 70 72 65 76 69 6f from the previo
a6b0: 75 73 20 72 75 6e 2e 0d 0a 20 20 20 20 20 20 23 us run... #
a6c0: 0d 0a 20 20 20 20 20 20 74 70 75 74 73 20 24 74 .. tputs $t
a6d0: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5c 6e 0d 0a est_channel \n..
a6e0: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 74 70 75 }.... tpu
a6f0: 74 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c ts $test_channel
a700: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \..
a710: 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 73 74 "---- st
a720: 61 72 74 69 6e 67 20 77 6f 72 6b 6c 6f 61 64 20 arting workload
a730: 72 75 6e 20 23 22 20 24 69 6e 64 65 78 28 30 29 run #" $index(0)
a740: 20 2e 2e 2e 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 75 ...\n].... u
a750: 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e nset -nocomplain
a760: 20 74 68 72 65 61 64 20 73 74 61 74 75 73 3b 20 thread status;
a770: 64 6f 6e 65 54 65 73 74 0d 0a 0d 0a 20 20 20 20 doneTest....
a780: 73 71 6c 20 65 78 65 63 75 74 65 20 24 73 72 63 sql execute $src
a790: 44 62 20 22 43 52 45 41 54 45 20 54 41 42 4c 45 Db "CREATE TABLE
a7a0: 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20 74 IF NOT EXISTS t
a7b0: 31 28 78 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 1(x PRIMARY KEY,
a7c0: 20 79 2c 20 7a 29 3b 22 0d 0a 20 20 20 20 73 71 y, z);".. sq
a7d0: 6c 20 65 78 65 63 75 74 65 20 24 64 62 20 22 43 l execute $db "C
a7e0: 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e REATE TABLE IF N
a7f0: 4f 54 20 45 58 49 53 54 53 20 74 31 28 78 20 50 OT EXISTS t1(x P
a800: 52 49 4d 41 52 59 20 4b 45 59 2c 20 79 2c 20 7a RIMARY KEY, y, z
a810: 29 3b 22 0d 0a 0d 0a 20 20 20 20 66 6f 72 65 61 );".... forea
a820: 63 68 20 69 6e 64 65 78 28 31 29 20 5b 6c 73 6f ch index(1) [lso
a830: 72 74 20 2d 69 6e 74 65 67 65 72 20 5b 61 72 72 rt -integer [arr
a840: 61 79 20 6e 61 6d 65 73 20 77 6f 72 6b 6c 6f 61 ay names workloa
a850: 64 5d 5d 20 7b 0d 0a 20 20 20 20 20 20 69 66 20 d]] {.. if
a860: 7b 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74 {[lsearch -exact
a870: 20 24 6e 6f 57 6f 72 6b 6c 6f 61 64 20 24 69 6e $noWorkload $in
a880: 64 65 78 28 31 29 5d 20 3d 3d 20 2d 31 7d 20 74 dex(1)] == -1} t
a890: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 hen {.. s
a8a0: 65 74 20 74 68 72 65 61 64 28 24 69 6e 64 65 78 et thread($index
a8b0: 28 31 29 29 20 5b 6f 62 6a 65 63 74 20 63 72 65 (1)) [object cre
a8c0: 61 74 65 20 2d 61 6c 69 61 73 20 53 79 73 74 65 ate -alias Syste
a8d0: 6d 2e 54 68 72 65 61 64 69 6e 67 2e 54 68 72 65 m.Threading.Thre
a8e0: 61 64 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 ad \..
a8f0: 20 20 5b 6c 69 73 74 20 61 70 70 6c 79 20 24 77 [list apply $w
a900: 6f 72 6b 6c 6f 61 64 28 24 69 6e 64 65 78 28 31 orkload($index(1
a910: 29 29 20 24 66 69 6c 65 4e 61 6d 65 28 31 29 20 )) $fileName(1)
a920: 24 66 69 6c 65 4e 61 6d 65 28 32 29 20 74 31 20 $fileName(2) t1
a930: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 24 \.. $
a940: 63 6f 75 6e 74 28 31 29 20 24 63 6f 75 6e 74 28 count(1) $count(
a950: 33 29 20 24 63 6f 75 6e 74 28 34 29 5d 20 31 30 3) $count(4)] 10
a960: 34 38 35 37 36 5d 0d 0a 0d 0a 20 20 20 20 20 20 48576]....
a970: 20 20 24 74 68 72 65 61 64 28 24 69 6e 64 65 78 $thread($index
a980: 28 31 29 29 20 4e 61 6d 65 20 5b 61 70 70 65 6e (1)) Name [appen
a990: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 dArgs \..
a9a0: 20 20 20 5b 66 69 6c 65 20 72 6f 6f 74 6e 61 6d [file rootnam
a9b0: 65 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 69 e [file tail $fi
a9c0: 6c 65 4e 61 6d 65 28 32 29 5d 5d 20 22 20 23 22 leName(2)]] " #"
a9d0: 20 24 69 6e 64 65 78 28 31 29 5d 0d 0a 0d 0a 20 $index(1)]....
a9e0: 20 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f if {[info
a9f0: 20 65 78 69 73 74 73 20 70 72 69 6f 72 69 74 79 exists priority
aa00: 28 24 69 6e 64 65 78 28 31 29 29 5d 7d 20 74 68 ($index(1))]} th
aa10: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {..
aa20: 24 74 68 72 65 61 64 28 24 69 6e 64 65 78 28 31 $thread($index(1
aa30: 29 29 20 50 72 69 6f 72 69 74 79 20 24 70 72 69 )) Priority $pri
aa40: 6f 72 69 74 79 28 24 69 6e 64 65 78 28 31 29 29 ority($index(1))
aa50: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 .. }..
aa60: 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 }.. }....
aa70: 20 20 20 66 6f 72 65 61 63 68 20 69 6e 64 65 78 foreach index
aa80: 28 31 29 20 5b 6c 69 73 74 20 53 74 61 72 74 20 (1) [list Start
aa90: 4a 6f 69 6e 5d 20 7b 0d 0a 20 20 20 20 20 20 66 Join] {.. f
aaa0: 6f 72 65 61 63 68 20 69 6e 64 65 78 28 32 29 20 oreach index(2)
aab0: 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 74 68 72 [array names thr
aac0: 65 61 64 5d 20 7b 0d 0a 20 20 20 20 20 20 20 20 ead] {..
aad0: 24 74 68 72 65 61 64 28 24 69 6e 64 65 78 28 32 $thread($index(2
aae0: 29 29 20 24 69 6e 64 65 78 28 31 29 0d 0a 20 20 )) $index(1)..
aaf0: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0d 0a }.. }....
ab00: 20 20 20 20 66 6f 72 65 61 63 68 20 69 6e 64 65 foreach inde
ab10: 78 28 31 29 20 5b 61 72 72 61 79 20 6e 61 6d 65 x(1) [array name
ab20: 73 20 74 68 72 65 61 64 5d 20 7b 0d 0a 20 20 20 s thread] {..
ab30: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 if {[info exi
ab40: 73 74 73 20 74 68 72 65 61 64 28 24 69 6e 64 65 sts thread($inde
ab50: 78 28 31 29 29 5d 20 26 26 20 5c 0d 0a 20 20 20 x(1))] && \..
ab60: 20 20 20 20 20 20 20 5b 63 6c 65 61 6e 75 70 54 [cleanupT
ab70: 68 72 65 61 64 20 24 74 68 72 65 61 64 28 24 69 hread $thread($i
ab80: 6e 64 65 78 28 31 29 29 5d 7d 20 74 68 65 6e 20 ndex(1))]} then
ab90: 7b 0d 0a 20 20 20 20 20 20 20 20 75 6e 73 65 74 {.. unset
aba0: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 68 72 -nocomplain thr
abb0: 65 61 64 28 24 69 6e 64 65 78 28 31 29 29 0d 0a ead($index(1))..
abc0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a }.. }..
abd0: 0d 0a 20 20 20 20 75 6e 73 65 74 20 2d 6e 6f 63 .. unset -noc
abe0: 6f 6d 70 6c 61 69 6e 20 74 68 72 65 61 64 20 73 omplain thread s
abf0: 74 61 74 75 73 3b 20 64 6f 6e 65 54 65 73 74 0d tatus; doneTest.
ac00: 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 . }.... ######
ac10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
ac20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
ac30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
ac40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
ac50: 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 66 6f 72 #######.... for
ac60: 65 61 63 68 20 69 6e 64 65 78 28 30 29 20 5b 73 each index(0) [s
ac70: 70 6c 69 74 20 24 69 6e 64 69 63 61 74 6f 72 73 plit $indicators
ac80: 20 22 22 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 ""] {.. #..
ac90: 20 20 20 23 20 4e 4f 54 45 3a 20 53 65 65 20 69 # NOTE: See i
aca0: 66 20 74 68 69 73 20 77 6f 72 6b 6c 6f 61 64 20 f this workload
acb0: 69 74 65 72 61 74 69 6f 6e 20 72 61 69 73 65 64 iteration raised
acc0: 20 61 6e 20 65 72 72 6f 72 2e 20 20 49 66 20 73 an error. If s
acd0: 6f 2c 20 74 68 65 0d 0a 20 20 20 20 23 20 20 20 o, the.. #
ace0: 20 20 20 20 69 6e 64 69 63 61 74 6f 72 20 6c 65 indicator le
acf0: 74 74 65 72 20 77 69 6c 6c 20 62 65 20 69 6e 20 tter will be in
ad00: 6c 6f 77 65 72 20 63 61 73 65 3b 20 6f 74 68 65 lower case; othe
ad10: 72 77 69 73 65 2c 20 69 74 20 77 69 6c 6c 0d 0a rwise, it will..
ad20: 20 20 20 20 23 20 20 20 20 20 20 20 62 65 20 69 # be i
ad30: 6e 20 75 70 70 65 72 20 63 61 73 65 2e 0d 0a 20 n upper case...
ad40: 20 20 20 23 0d 0a 20 20 20 20 73 65 74 20 69 6e #.. set in
ad50: 64 65 78 28 31 29 20 5b 73 74 72 69 6e 67 20 69 dex(1) [string i
ad60: 73 20 75 70 70 65 72 20 2d 73 74 72 69 63 74 20 s upper -strict
ad70: 24 69 6e 64 65 78 28 30 29 5d 0d 0a 0d 0a 20 20 $index(0)]....
ad80: 20 20 73 65 74 20 69 6e 64 65 78 28 32 29 20 5b set index(2) [
ad90: 65 78 70 72 20 7b 5b 73 74 72 69 6e 67 20 6f 72 expr {[string or
ada0: 64 69 6e 61 6c 20 24 69 6e 64 65 78 28 30 29 20 dinal $index(0)
adb0: 30 5d 20 2d 20 5c 0d 0a 20 20 20 20 20 20 20 20 0] - \..
adc0: 5b 73 74 72 69 6e 67 20 6f 72 64 69 6e 61 6c 20 [string ordinal
add0: 5b 65 78 70 72 20 7b 24 69 6e 64 65 78 28 31 29 [expr {$index(1)
ade0: 20 3f 20 22 41 22 20 3a 20 22 61 22 7d 5d 20 30 ? "A" : "a"}] 0
adf0: 5d 20 2b 20 31 7d 5d 0d 0a 0d 0a 20 20 20 20 73 ] + 1}].... s
ae00: 65 74 20 69 6e 64 65 78 28 33 29 20 5b 65 78 70 et index(3) [exp
ae10: 72 20 7b 24 69 6e 64 65 78 28 31 29 20 3f 20 22 r {$index(1) ? "
ae20: 6f 6b 22 20 3a 20 22 65 72 72 6f 72 22 7d 5d 0d ok" : "error"}].
ae30: 0a 0d 0a 20 20 20 20 69 66 20 7b 21 5b 69 6e 66 ... if {![inf
ae40: 6f 20 65 78 69 73 74 73 20 69 74 65 72 61 74 69 o exists iterati
ae50: 6f 6e 73 28 24 69 6e 64 65 78 28 32 29 2c 24 69 ons($index(2),$i
ae60: 6e 64 65 78 28 33 29 29 5d 7d 20 74 68 65 6e 20 ndex(3))]} then
ae70: 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 69 74 65 {.. set ite
ae80: 72 61 74 69 6f 6e 73 28 24 69 6e 64 65 78 28 32 rations($index(2
ae90: 29 2c 24 69 6e 64 65 78 28 33 29 29 20 30 0d 0a ),$index(3)) 0..
aea0: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 69 66 20 }.... if
aeb0: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 69 {![info exists i
aec0: 74 65 72 61 74 69 6f 6e 73 28 24 69 6e 64 65 78 terations($index
aed0: 28 32 29 2c 74 6f 74 61 6c 29 5d 7d 20 74 68 65 (2),total)]} the
aee0: 6e 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 69 n {.. set i
aef0: 74 65 72 61 74 69 6f 6e 73 28 24 69 6e 64 65 78 terations($index
af00: 28 32 29 2c 74 6f 74 61 6c 29 20 30 0d 0a 20 20 (2),total) 0..
af10: 20 20 7d 0d 0a 0d 0a 20 20 20 20 69 6e 63 72 20 }.... incr
af20: 69 74 65 72 61 74 69 6f 6e 73 28 24 69 6e 64 65 iterations($inde
af30: 78 28 32 29 2c 24 69 6e 64 65 78 28 33 29 29 0d x(2),$index(3)).
af40: 0a 20 20 20 20 69 6e 63 72 20 69 74 65 72 61 74 . incr iterat
af50: 69 6f 6e 73 28 24 69 6e 64 65 78 28 32 29 2c 74 ions($index(2),t
af60: 6f 74 61 6c 29 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 otal).. }....
af70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
af80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
af90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
afa0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
afb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d #############...
afc0: 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 . #.. # NOTE:
afd0: 41 64 76 61 6e 63 65 20 6f 75 74 70 75 74 20 74 Advance output t
afe0: 6f 20 74 68 65 20 6e 65 78 74 20 6c 69 6e 65 20 o the next line
aff0: 64 75 65 20 74 6f 20 74 68 65 20 77 6f 72 6b 6c due to the workl
b000: 6f 61 64 0d 0a 20 20 23 20 20 20 20 20 20 20 69 oad.. # i
b010: 74 65 72 61 74 69 6f 6e 20 70 72 6f 67 72 65 73 teration progres
b020: 73 20 69 6e 64 69 63 61 74 6f 72 73 20 66 72 6f s indicators fro
b030: 6d 20 74 68 65 20 66 69 6e 61 6c 20 72 75 6e 2e m the final run.
b040: 0d 0a 20 20 23 0d 0a 20 20 74 70 75 74 73 20 24 .. #.. tputs $
b050: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5c 6e 0d test_channel \n.
b060: 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 ... ###########
b070: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b080: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b090: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b0a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b0b0: 23 23 0d 0a 0d 0a 20 20 66 6f 72 65 61 63 68 20 ##.... foreach
b0c0: 69 6e 64 65 78 28 30 29 20 5b 6c 73 6f 72 74 20 index(0) [lsort
b0d0: 2d 69 6e 74 65 67 65 72 20 5b 61 72 72 61 79 20 -integer [array
b0e0: 6e 61 6d 65 73 20 77 6f 72 6b 6c 6f 61 64 5d 5d names workload]]
b0f0: 20 7b 0d 0a 20 20 20 20 69 66 20 7b 5b 6c 73 65 {.. if {[lse
b100: 61 72 63 68 20 2d 65 78 61 63 74 20 24 6e 6f 57 arch -exact $noW
b110: 6f 72 6b 6c 6f 61 64 20 24 69 6e 64 65 78 28 30 orkload $index(0
b120: 29 5d 20 3d 3d 20 2d 31 7d 20 74 68 65 6e 20 7b )] == -1} then {
b130: 0d 0a 20 20 20 20 20 20 74 70 75 74 73 20 24 74 .. tputs $t
b140: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 66 6f 72 est_channel [for
b150: 6d 61 74 57 6f 72 6b 6c 6f 61 64 52 65 73 75 6c matWorkloadResul
b160: 74 20 24 69 6e 64 65 78 28 30 29 5d 0d 0a 20 20 t $index(0)]..
b170: 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 }.. }.... ##
b180: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b190: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b1a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b1b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b1c0: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 ###########....
b1d0: 20 66 6f 72 65 61 63 68 20 69 6e 64 65 78 28 30 foreach index(0
b1e0: 29 20 5b 6c 73 6f 72 74 20 2d 69 6e 74 65 67 65 ) [lsort -intege
b1f0: 72 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 74 r [array names t
b200: 69 6d 65 73 5d 5d 20 7b 0d 0a 20 20 20 20 74 70 imes]] {.. tp
b210: 75 74 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 uts $test_channe
b220: 6c 20 5b 66 6f 72 6d 61 74 57 6f 72 6b 6c 6f 61 l [formatWorkloa
b230: 64 54 69 6d 65 20 24 69 6e 64 65 78 28 30 29 5d dTime $index(0)]
b240: 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 .. }.... #####
b250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b260: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b270: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b280: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b290: 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65 ########.... se
b2a0: 74 20 72 65 73 75 6c 74 20 5b 73 71 6c 20 65 78 t result [sql ex
b2b0: 65 63 75 74 65 20 2d 65 78 65 63 75 74 65 20 73 ecute -execute s
b2c0: 63 61 6c 61 72 20 24 73 72 63 44 62 20 22 50 52 calar $srcDb "PR
b2d0: 41 47 4d 41 20 69 6e 74 65 67 72 69 74 79 5f 63 AGMA integrity_c
b2e0: 68 65 63 6b 3b 22 5d 0d 0a 0d 0a 20 20 69 66 20 heck;"].... if
b2f0: 7b 24 72 65 73 75 6c 74 20 65 71 20 22 6f 6b 22 {$result eq "ok"
b300: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 74 70 } then {.. tp
b310: 75 74 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 uts $test_channe
b320: 6c 20 22 2d 2d 2d 2d 20 69 6e 74 65 67 72 69 74 l "---- integrit
b330: 79 20 63 68 65 63 6b 20 6f 6b 20 28 73 72 63 44 y check ok (srcD
b340: 62 29 5c 6e 22 0d 0a 20 20 7d 20 65 6c 73 65 20 b)\n".. } else
b350: 7b 0d 0a 20 20 20 20 65 72 72 6f 72 20 5b 61 70 {.. error [ap
b360: 70 65 6e 64 41 72 67 73 20 22 69 6e 74 65 67 72 pendArgs "integr
b370: 69 74 79 20 63 68 65 63 6b 20 66 61 69 6c 65 64 ity check failed
b380: 20 28 73 72 63 44 62 29 3a 20 22 20 24 72 65 73 (srcDb): " $res
b390: 75 6c 74 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 ult].. }.... #
b3a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b3b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b3c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b3d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b3e0: 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a ############....
b3f0: 20 20 73 65 74 20 72 65 73 75 6c 74 20 5b 73 71 set result [sq
b400: 6c 20 65 78 65 63 75 74 65 20 2d 65 78 65 63 75 l execute -execu
b410: 74 65 20 73 63 61 6c 61 72 20 24 64 62 20 22 50 te scalar $db "P
b420: 52 41 47 4d 41 20 69 6e 74 65 67 72 69 74 79 5f RAGMA integrity_
b430: 63 68 65 63 6b 3b 22 5d 0d 0a 0d 0a 20 20 69 66 check;"].... if
b440: 20 7b 24 72 65 73 75 6c 74 20 65 71 20 22 6f 6b {$result eq "ok
b450: 22 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 74 "} then {.. t
b460: 70 75 74 73 20 24 74 65 73 74 5f 63 68 61 6e 6e puts $test_chann
b470: 65 6c 20 22 2d 2d 2d 2d 20 69 6e 74 65 67 72 69 el "---- integri
b480: 74 79 20 63 68 65 63 6b 20 6f 6b 20 28 64 62 29 ty check ok (db)
b490: 5c 6e 22 0d 0a 20 20 7d 20 65 6c 73 65 20 7b 0d \n".. } else {.
b4a0: 0a 20 20 20 20 65 72 72 6f 72 20 5b 61 70 70 65 . error [appe
b4b0: 6e 64 41 72 67 73 20 22 69 6e 74 65 67 72 69 74 ndArgs "integrit
b4c0: 79 20 63 68 65 63 6b 20 66 61 69 6c 65 64 20 28 y check failed (
b4d0: 64 62 29 3a 20 22 20 24 72 65 73 75 6c 74 5d 0d db): " $result].
b4e0: 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 . }.... ######
b4f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b500: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b510: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b520: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b530: 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 23 0d 0a #######.... #..
b540: 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 6f 76 # NOTE: The ov
b550: 65 72 61 6c 6c 20 74 65 73 74 20 72 65 73 75 6c erall test resul
b560: 74 20 69 73 20 74 68 65 20 74 6f 74 61 6c 20 6e t is the total n
b570: 75 6d 62 65 72 20 6f 66 20 66 61 69 6c 75 72 65 umber of failure
b580: 73 20 28 69 2e 65 2e 0d 0a 20 20 23 20 20 20 20 s (i.e... #
b590: 20 20 20 22 75 6e 65 78 70 65 63 74 65 64 20 65 "unexpected e
b5a0: 72 72 6f 72 73 22 29 20 65 6e 63 6f 75 6e 74 65 rrors") encounte
b5b0: 72 65 64 20 64 75 72 69 6e 67 20 61 20 77 6f 72 red during a wor
b5c0: 6b 6c 6f 61 64 20 69 74 65 72 61 74 69 6f 6e 2e kload iteration.
b5d0: 0d 0a 20 20 23 0d 0a 20 20 65 78 70 72 20 7b 5b .. #.. expr {[
b5e0: 61 72 72 61 79 20 73 69 7a 65 20 66 61 69 6c 75 array size failu
b5f0: 72 65 73 5d 20 3e 20 30 20 3f 20 5c 0d 0a 20 20 res] > 0 ? \..
b600: 20 20 20 20 5b 65 78 70 72 20 5b 6a 6f 69 6e 20 [expr [join
b610: 5b 61 72 72 61 79 20 76 61 6c 75 65 73 20 66 61 [array values fa
b620: 69 6c 75 72 65 73 5d 20 2b 5d 5d 20 3a 20 30 7d ilures] +]] : 0}
b630: 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a ..} -cleanup {..
b640: 20 20 66 6f 72 65 61 63 68 20 69 6e 64 65 78 28 foreach index(
b650: 30 29 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 0) [array names
b660: 74 68 72 65 61 64 5d 20 7b 0d 0a 20 20 20 20 69 thread] {.. i
b670: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 f {[info exists
b680: 74 68 72 65 61 64 28 24 69 6e 64 65 78 28 30 29 thread($index(0)
b690: 29 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 )] && \..
b6a0: 20 5b 63 6c 65 61 6e 75 70 54 68 72 65 61 64 20 [cleanupThread
b6b0: 24 74 68 72 65 61 64 28 24 69 6e 64 65 78 28 30 $thread($index(0
b6c0: 29 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 ))]} then {..
b6d0: 20 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 unset -nocomp
b6e0: 6c 61 69 6e 20 74 68 72 65 61 64 28 24 69 6e 64 lain thread($ind
b6f0: 65 78 28 30 29 29 0d 0a 20 20 20 20 7d 0d 0a 20 ex(0)).. }..
b700: 20 7d 0d 0a 0d 0a 20 20 72 65 6e 61 6d 65 20 66 }.... rename f
b710: 72 65 65 4d 65 6d 20 22 22 0d 0a 20 20 72 65 6e reeMem "".. ren
b720: 61 6d 65 20 75 73 65 4d 65 6d 20 22 22 0d 0a 20 ame useMem ""..
b730: 20 72 65 6e 61 6d 65 20 61 6c 6c 6f 63 4d 65 6d rename allocMem
b740: 20 22 22 0d 0a 20 20 72 65 6e 61 6d 65 20 66 61 "".. rename fa
b750: 69 6c 54 65 73 74 20 22 22 0d 0a 20 20 72 65 6e ilTest "".. ren
b760: 61 6d 65 20 64 6f 6e 65 54 65 73 74 20 22 22 0d ame doneTest "".
b770: 0a 20 20 72 65 6e 61 6d 65 20 73 68 6f 77 54 65 . rename showTe
b780: 73 74 20 22 22 0d 0a 20 20 72 65 6e 61 6d 65 20 st "".. rename
b790: 64 65 6c 61 79 54 65 73 74 20 22 22 0d 0a 20 20 delayTest ""..
b7a0: 72 65 6e 61 6d 65 20 69 6e 69 74 54 65 73 74 20 rename initTest
b7b0: 22 22 0d 0a 20 20 72 65 6e 61 6d 65 20 69 73 45 "".. rename isE
b7c0: 78 70 65 63 74 65 64 45 72 72 6f 72 20 22 22 0d xpectedError "".
b7d0: 0a 20 20 72 65 6e 61 6d 65 20 66 6f 72 6d 61 74 . rename format
b7e0: 57 6f 72 6b 6c 6f 61 64 54 69 6d 65 20 22 22 0d WorkloadTime "".
b7f0: 0a 20 20 72 65 6e 61 6d 65 20 66 6f 72 6d 61 74 . rename format
b800: 57 6f 72 6b 6c 6f 61 64 52 65 73 75 6c 74 20 22 WorkloadResult "
b810: 22 0d 0a 20 20 72 65 6e 61 6d 65 20 73 65 74 75 ".. rename setu
b820: 70 57 6f 72 6b 6c 6f 61 64 46 69 6c 65 44 62 20 pWorkloadFileDb
b830: 22 22 0d 0a 20 20 72 65 6e 61 6d 65 20 73 65 74 "".. rename set
b840: 75 70 57 6f 72 6b 6c 6f 61 64 4d 65 6d 44 62 20 upWorkloadMemDb
b850: 22 22 0d 0a 0d 0a 20 20 63 6c 65 61 6e 75 70 44 "".... cleanupD
b860: 62 20 24 66 69 6c 65 4e 61 6d 65 28 32 29 0d 0a b $fileName(2)..
b870: 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66 69 6c cleanupDb $fil
b880: 65 4e 61 6d 65 28 31 29 20 73 72 63 44 62 0d 0a eName(1) srcDb..
b890: 0d 0a 20 20 66 6f 72 65 61 63 68 20 69 6e 64 65 .. foreach inde
b8a0: 78 28 30 29 20 5b 61 72 72 61 79 20 6e 61 6d 65 x(0) [array name
b8b0: 73 20 77 6f 72 6b 6c 6f 61 64 5d 20 7b 0d 0a 20 s workload] {..
b8c0: 20 20 20 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 catch {..
b8d0: 20 20 6f 62 6a 65 63 74 20 72 65 6d 6f 76 65 63 object removec
b8e0: 61 6c 6c 62 61 63 6b 20 5b 6c 69 73 74 20 61 70 allback [list ap
b8f0: 70 6c 79 20 24 77 6f 72 6b 6c 6f 61 64 28 24 69 ply $workload($i
b900: 6e 64 65 78 28 30 29 29 20 24 66 69 6c 65 4e 61 ndex(0)) $fileNa
b910: 6d 65 28 31 29 20 5c 0d 0a 20 20 20 20 20 20 20 me(1) \..
b920: 20 20 20 24 66 69 6c 65 4e 61 6d 65 28 32 29 20 $fileName(2)
b930: 74 31 20 24 63 6f 75 6e 74 28 31 29 20 24 63 6f t1 $count(1) $co
b940: 75 6e 74 28 33 29 20 24 63 6f 75 6e 74 28 34 29 unt(3) $count(4)
b950: 5d 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d ].. }.. }...
b960: 0a 20 20 66 72 65 65 44 62 43 6f 6e 6e 65 63 74 . freeDbConnect
b970: 69 6f 6e 0d 0a 0d 0a 20 20 69 66 20 7b 21 24 6e ion.... if {!$n
b980: 6f 54 72 61 63 65 7d 20 74 68 65 6e 20 7b 0d 0a oTrace} then {..
b990: 20 20 20 20 63 6c 65 61 6e 75 70 4c 6f 67 67 69 cleanupLoggi
b9a0: 6e 67 20 24 6c 6f 67 46 69 6c 65 4e 61 6d 65 0d ng $logFileName.
b9b0: 0a 20 20 7d 0d 0a 0d 0a 20 20 72 65 6e 61 6d 65 . }.... rename
b9c0: 20 63 6c 65 61 6e 75 70 4c 6f 67 67 69 6e 67 20 cleanupLogging
b9d0: 22 22 0d 0a 20 20 72 65 6e 61 6d 65 20 73 65 74 "".. rename set
b9e0: 75 70 4c 6f 67 67 69 6e 67 20 22 22 0d 0a 0d 0a upLogging ""....
b9f0: 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c unset -nocompl
ba00: 61 69 6e 20 72 65 73 75 6c 74 20 74 68 72 65 61 ain result threa
ba10: 64 20 69 6e 64 65 78 20 77 6f 72 6b 6c 6f 61 64 d index workload
ba20: 20 70 72 69 6f 72 69 74 79 20 6e 6f 57 6f 72 6b priority noWork
ba30: 6c 6f 61 64 20 5c 0d 0a 20 20 20 20 20 20 70 72 load \.. pr
ba40: 69 6f 72 69 74 69 65 73 20 73 72 63 44 62 20 64 iorities srcDb d
ba50: 62 20 66 69 6c 65 4e 61 6d 65 20 63 6f 6d 70 69 b fileName compi
ba60: 6c 65 64 20 6f 70 74 69 6f 6e 73 20 63 6f 75 6e led options coun
ba70: 74 20 74 69 6d 65 73 20 6c 6f 67 46 69 6c 65 4e t times logFileN
ba80: 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20 6c 6f 67 ame \.. log
ba90: 4c 69 73 74 65 6e 65 72 20 63 6f 6e 6e 65 63 74 Listener connect
baa0: 69 6f 6e 20 69 6e 64 69 63 61 74 6f 72 73 20 69 ion indicators i
bab0: 74 65 72 61 74 69 6f 6e 73 20 65 78 69 74 4f 6e terations exitOn
bac0: 46 61 69 6c 20 63 6f 54 61 73 6b 4d 65 6d 20 5c Fail coTaskMem \
bad0: 0d 0a 20 20 20 20 20 20 6e 6f 54 72 61 63 65 20 .. noTrace
bae0: 66 61 69 6c 75 72 65 73 20 73 74 61 74 75 73 0d failures status.
baf0: 0a 7d 20 2d 74 69 6d 65 20 74 72 75 65 20 2d 63 .} -time true -c
bb00: 6f 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67 6c onstraints {eagl
bb10: 65 20 6d 6f 6e 6f 42 75 67 32 38 20 63 6f 6d 6d e monoBug28 comm
bb20: 61 6e 64 2e 73 71 6c 20 63 6f 6d 70 69 6c 65 2e and.sql compile.
bb30: 44 41 54 41 20 53 51 4c 69 74 65 5c 0d 0a 53 79 DATA SQLite\..Sy
bb40: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 stem.Data.SQLite
bb50: 7d 20 2d 72 65 73 75 6c 74 20 7b 30 7d 7d 0d 0a } -result {0}}..
bb60: 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ..##############
bb70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
bb80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
bb90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
bba0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
bbb0: 23 0d 0a 0d 0a 23 0d 0a 23 20 4e 4f 54 45 3a 20 #....#..# NOTE:
bbc0: 52 65 70 6f 72 74 20 61 66 74 65 72 20 74 65 73 Report after tes
bbd0: 74 2e 0d 0a 23 0d 0a 63 68 65 63 6b 46 6f 72 53 t...#..checkForS
bbe0: 51 4c 69 74 65 44 69 72 65 63 74 6f 72 69 65 73 QLiteDirectories
bbf0: 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 0d 0a $test_channel..
bc00: 67 65 74 53 51 4c 69 74 65 48 61 6e 64 6c 65 43 getSQLiteHandleC
bc10: 6f 75 6e 74 73 20 24 74 65 73 74 5f 63 68 61 6e ounts $test_chan
bc20: 6e 65 6c 0d 0a 72 65 70 6f 72 74 53 51 4c 69 74 nel..reportSQLit
bc30: 65 52 65 73 6f 75 72 63 65 73 20 24 74 65 73 74 eResources $test
bc40: 5f 63 68 61 6e 6e 65 6c 0d 0a 0d 0a 23 23 23 23 _channel....####
bc50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
bc60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
bc70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
bc80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
bc90: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 ###########....r
bca0: 75 6e 53 51 4c 69 74 65 54 65 73 74 45 70 69 6c unSQLiteTestEpil
bcb0: 6f 67 75 65 0d 0a 72 75 6e 54 65 73 74 45 70 69 ogue..runTestEpi
bcc0: 6c 6f 67 75 65 0d 0a logue..