System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact 5959c9a6281b98b663aa4f25c3082c6104419863:


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 74 6b 74 2d 34 34 38 64 36 36  .#..# tkt-448d66
0060: 33 64 31 31 2e 65 61 67 6c 65 20 2d 2d 0d 0a 23  3d11.eagle --..#
0070: 0d 0a 23 20 57 72 69 74 74 65 6e 20 62 79 20 4a  ..# Written by J
0080: 6f 65 20 4d 69 73 74 61 63 68 6b 69 6e 2e 0d 0a  oe Mistachkin...
0090: 23 20 52 65 6c 65 61 73 65 64 20 74 6f 20 74 68  # Released to th
00a0: 65 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 2c  e public domain,
00b0: 20 75 73 65 20 61 74 20 79 6f 75 72 20 6f 77 6e   use at your own
00c0: 20 72 69 73 6b 21 0d 0a 23 0d 0a 23 23 23 23 23   risk!..#..#####
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 23 23 23 23 23 23 23 23 0d 0a 0d 0a 70 61  ##########....pa
0120: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 45 61  ckage require Ea
0130: 67 6c 65 0d 0a 70 61 63 6b 61 67 65 20 72 65 71  gle..package req
0140: 75 69 72 65 20 45 61 67 6c 65 2e 4c 69 62 72 61  uire Eagle.Libra
0150: 72 79 0d 0a 70 61 63 6b 61 67 65 20 72 65 71 75  ry..package requ
0160: 69 72 65 20 45 61 67 6c 65 2e 54 65 73 74 0d 0a  ire Eagle.Test..
0170: 0d 0a 72 75 6e 54 65 73 74 50 72 6f 6c 6f 67 75  ..runTestPrologu
0180: 65 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23  e....###########
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 23 23 23 23  ################
01d0: 23 23 23 23 0d 0a 0d 0a 70 61 63 6b 61 67 65 20  ####....package 
01e0: 72 65 71 75 69 72 65 20 53 79 73 74 65 6d 2e 44  require System.D
01f0: 61 74 61 2e 53 51 4c 69 74 65 2e 54 65 73 74 0d  ata.SQLite.Test.
0200: 0a 72 75 6e 53 51 4c 69 74 65 54 65 73 74 50 72  .runSQLiteTestPr
0210: 6f 6c 6f 67 75 65 0d 0a 72 75 6e 53 51 4c 69 74  ologue..runSQLit
0220: 65 54 65 73 74 46 69 6c 65 73 50 72 6f 6c 6f 67  eTestFilesProlog
0230: 75 65 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23  ue....##########
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 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0270: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0280: 23 23 23 23 23 0d 0a 0d 0a 72 75 6e 54 65 73 74  #####....runTest
0290: 20 7b 74 65 73 74 20 74 6b 74 2d 34 34 38 64 36   {test tkt-448d6
02a0: 36 33 64 31 31 2d 31 2e 31 20 7b 6d 69 73 73 69  63d11-1.1 {missi
02b0: 6e 67 20 6a 6f 75 72 6e 61 6c 20 6d 6f 64 65 2c  ng journal mode,
02c0: 20 6e 65 77 20 64 62 7d 20 2d 62 6f 64 79 20 7b   new db} -body {
02d0: 0d 0a 20 20 73 65 74 75 70 44 62 20 5b 73 65 74  ..  setupDb [set
02e0: 20 66 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 34 34   fileName tkt-44
02f0: 38 64 36 36 33 64 31 31 2d 31 2e 31 2e 64 62 5d  8d663d11-1.1.db]
0300: 0d 0a 20 20 73 71 6c 20 65 78 65 63 75 74 65 20  ..  sql execute 
0310: 2d 65 78 65 63 75 74 65 20 73 63 61 6c 61 72 20  -execute scalar 
0320: 24 64 62 20 22 50 52 41 47 4d 41 20 6a 6f 75 72  $db "PRAGMA jour
0330: 6e 61 6c 5f 6d 6f 64 65 3b 22 0d 0a 7d 20 2d 63  nal_mode;"..} -c
0340: 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61  leanup {..  clea
0350: 6e 75 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d  nupDb $fileName.
0360: 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f  ...  unset -noco
0370: 6d 70 6c 61 69 6e 20 64 62 20 66 69 6c 65 4e 61  mplain db fileNa
0380: 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e  me..} -constrain
0390: 74 73 20 5c 0d 0a 7b 65 61 67 6c 65 20 6d 6f 6e  ts \..{eagle mon
03a0: 6f 42 75 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73  oBug28 command.s
03b0: 71 6c 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20  ql compile.DATA 
03c0: 53 51 4c 69 74 65 20 53 79 73 74 65 6d 2e 44 61  SQLite System.Da
03d0: 74 61 2e 53 51 4c 69 74 65 7d 20 2d 72 65 73 75  ta.SQLite} -resu
03e0: 6c 74 20 5c 0d 0a 7b 64 65 6c 65 74 65 7d 7d 0d  lt \..{delete}}.
03f0: 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  ...#############
0400: 23 23 23 23 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 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b 74  ##....runTest {t
0450: 65 73 74 20 74 6b 74 2d 34 34 38 64 36 36 33 64  est tkt-448d663d
0460: 31 31 2d 31 2e 32 20 7b 6d 69 73 73 69 6e 67 20  11-1.2 {missing 
0470: 6a 6f 75 72 6e 61 6c 20 6d 6f 64 65 2c 20 57 41  journal mode, WA
0480: 4c 20 64 62 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20  L db} -body {.. 
0490: 20 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 74 6b   set fileName tk
04a0: 74 2d 34 34 38 64 36 36 33 64 31 31 2d 31 2e 32  t-448d663d11-1.2
04b0: 2e 64 62 0d 0a 20 20 66 69 6c 65 20 63 6f 70 79  .db..  file copy
04c0: 20 2d 66 6f 72 63 65 20 24 77 61 6c 44 62 46 69   -force $walDbFi
04d0: 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67  le [file join [g
04e0: 65 74 44 61 74 61 62 61 73 65 44 69 72 65 63 74  etDatabaseDirect
04f0: 6f 72 79 5d 20 24 66 69 6c 65 4e 61 6d 65 5d 0d  ory] $fileName].
0500: 0a 20 20 73 65 74 75 70 44 62 20 24 66 69 6c 65  .  setupDb $file
0510: 4e 61 6d 65 20 22 22 20 22 22 20 22 22 20 22 22  Name "" "" "" ""
0520: 20 22 22 20 74 72 75 65 20 66 61 6c 73 65 0d 0a   "" true false..
0530: 20 20 73 71 6c 20 65 78 65 63 75 74 65 20 2d 65    sql execute -e
0540: 78 65 63 75 74 65 20 73 63 61 6c 61 72 20 24 64  xecute scalar $d
0550: 62 20 22 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61  b "PRAGMA journa
0560: 6c 5f 6d 6f 64 65 3b 22 0d 0a 7d 20 2d 63 6c 65  l_mode;"..} -cle
0570: 61 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61 6e 75  anup {..  cleanu
0580: 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d  pDb $fileName...
0590: 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70  .  unset -nocomp
05a0: 6c 61 69 6e 20 64 62 20 66 69 6c 65 4e 61 6d 65  lain db fileName
05b0: 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73  ..} -constraints
05c0: 20 7b 65 61 67 6c 65 20 6d 6f 6e 6f 42 75 67 32   {eagle monoBug2
05d0: 38 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20 63 6f  8 command.sql co
05e0: 6d 70 69 6c 65 2e 44 41 54 41 20 53 51 4c 69 74  mpile.DATA SQLit
05f0: 65 5c 0d 0a 53 79 73 74 65 6d 2e 44 61 74 61 2e  e\..System.Data.
0600: 53 51 4c 69 74 65 20 66 69 6c 65 5f 77 61 6c 2e  SQLite file_wal.
0610: 64 62 7d 20 2d 72 65 73 75 6c 74 20 7b 77 61 6c  db} -result {wal
0620: 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23  }}....##########
0630: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0640: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0650: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0660: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0670: 23 23 23 23 23 0d 0a 0d 0a 72 75 6e 54 65 73 74  #####....runTest
0680: 20 7b 74 65 73 74 20 74 6b 74 2d 34 34 38 64 36   {test tkt-448d6
0690: 36 33 64 31 31 2d 31 2e 33 20 7b 6d 69 73 73 69  63d11-1.3 {missi
06a0: 6e 67 20 6a 6f 75 72 6e 61 6c 20 6d 6f 64 65 2c  ng journal mode,
06b0: 20 6e 6f 6e 2d 57 41 4c 20 64 62 7d 20 2d 62 6f   non-WAL db} -bo
06c0: 64 79 20 7b 0d 0a 20 20 73 65 74 20 66 69 6c 65  dy {..  set file
06d0: 4e 61 6d 65 20 74 6b 74 2d 34 34 38 64 36 36 33  Name tkt-448d663
06e0: 64 31 31 2d 31 2e 33 2e 64 62 0d 0a 20 20 66 69  d11-1.3.db..  fi
06f0: 6c 65 20 63 6f 70 79 20 2d 66 6f 72 63 65 20 24  le copy -force $
0700: 6e 6f 6e 57 61 6c 44 62 46 69 6c 65 20 5b 66 69  nonWalDbFile [fi
0710: 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61  le join [getData
0720: 62 61 73 65 44 69 72 65 63 74 6f 72 79 5d 20 24  baseDirectory] $
0730: 66 69 6c 65 4e 61 6d 65 5d 0d 0a 20 20 73 65 74  fileName]..  set
0740: 75 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 20 22  upDb $fileName "
0750: 22 20 22 22 20 22 22 20 22 22 20 22 22 20 74 72  " "" "" "" "" tr
0760: 75 65 20 66 61 6c 73 65 0d 0a 20 20 73 71 6c 20  ue false..  sql 
0770: 65 78 65 63 75 74 65 20 2d 65 78 65 63 75 74 65  execute -execute
0780: 20 73 63 61 6c 61 72 20 24 64 62 20 22 50 52 41   scalar $db "PRA
0790: 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65  GMA journal_mode
07a0: 3b 22 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b  ;"..} -cleanup {
07b0: 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66  ..  cleanupDb $f
07c0: 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73  ileName....  uns
07d0: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 64  et -nocomplain d
07e0: 62 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63  b fileName..} -c
07f0: 6f 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67 6c  onstraints {eagl
0800: 65 20 6d 6f 6e 6f 42 75 67 32 38 20 63 6f 6d 6d  e monoBug28 comm
0810: 61 6e 64 2e 73 71 6c 20 63 6f 6d 70 69 6c 65 2e  and.sql compile.
0820: 44 41 54 41 20 53 51 4c 69 74 65 5c 0d 0a 53 79  DATA SQLite\..Sy
0830: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65  stem.Data.SQLite
0840: 20 66 69 6c 65 5f 6e 6f 6e 57 61 6c 2e 64 62 7d   file_nonWal.db}
0850: 20 2d 72 65 73 75 6c 74 20 7b 64 65 6c 65 74 65   -result {delete
0860: 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23  }}....##########
0870: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0880: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0890: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
08a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
08b0: 23 23 23 23 23 0d 0a 0d 0a 72 75 6e 54 65 73 74  #####....runTest
08c0: 20 7b 74 65 73 74 20 74 6b 74 2d 34 34 38 64 36   {test tkt-448d6
08d0: 36 33 64 31 31 2d 31 2e 34 20 7b 27 44 65 66 61  63d11-1.4 {'Defa
08e0: 75 6c 74 27 20 6a 6f 75 72 6e 61 6c 20 6d 6f 64  ult' journal mod
08f0: 65 2c 20 6e 65 77 20 64 62 7d 20 2d 62 6f 64 79  e, new db} -body
0900: 20 7b 0d 0a 20 20 73 65 74 75 70 44 62 20 5b 73   {..  setupDb [s
0910: 65 74 20 66 69 6c 65 4e 61 6d 65 20 74 6b 74 2d  et fileName tkt-
0920: 34 34 38 64 36 36 33 64 31 31 2d 31 2e 34 2e 64  448d663d11-1.4.d
0930: 62 5d 20 44 65 66 61 75 6c 74 0d 0a 20 20 73 71  b] Default..  sq
0940: 6c 20 65 78 65 63 75 74 65 20 2d 65 78 65 63 75  l execute -execu
0950: 74 65 20 73 63 61 6c 61 72 20 24 64 62 20 22 50  te scalar $db "P
0960: 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f  RAGMA journal_mo
0970: 64 65 3b 22 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70  de;"..} -cleanup
0980: 20 7b 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62 20   {..  cleanupDb 
0990: 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75  $fileName....  u
09a0: 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  nset -nocomplain
09b0: 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d 20   db fileName..} 
09c0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 5c 0d 0a  -constraints \..
09d0: 7b 65 61 67 6c 65 20 6d 6f 6e 6f 42 75 67 32 38  {eagle monoBug28
09e0: 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20 63 6f 6d   command.sql com
09f0: 70 69 6c 65 2e 44 41 54 41 20 53 51 4c 69 74 65  pile.DATA SQLite
0a00: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
0a10: 69 74 65 7d 20 2d 72 65 73 75 6c 74 20 5c 0d 0a  ite} -result \..
0a20: 7b 64 65 6c 65 74 65 7d 7d 0d 0a 0d 0a 23 23 23  {delete}}....###
0a30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0a40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0a50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0a60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0a70: 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a  ############....
0a80: 72 75 6e 54 65 73 74 20 7b 74 65 73 74 20 74 6b  runTest {test tk
0a90: 74 2d 34 34 38 64 36 36 33 64 31 31 2d 31 2e 35  t-448d663d11-1.5
0aa0: 20 7b 27 44 65 66 61 75 6c 74 27 20 6a 6f 75 72   {'Default' jour
0ab0: 6e 61 6c 20 6d 6f 64 65 2c 20 57 41 4c 20 64 62  nal mode, WAL db
0ac0: 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65 74  } -body {..  set
0ad0: 20 66 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 34 34   fileName tkt-44
0ae0: 38 64 36 36 33 64 31 31 2d 31 2e 35 2e 64 62 0d  8d663d11-1.5.db.
0af0: 0a 20 20 66 69 6c 65 20 63 6f 70 79 20 2d 66 6f  .  file copy -fo
0b00: 72 63 65 20 24 77 61 6c 44 62 46 69 6c 65 20 5b  rce $walDbFile [
0b10: 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61  file join [getDa
0b20: 74 61 62 61 73 65 44 69 72 65 63 74 6f 72 79 5d  tabaseDirectory]
0b30: 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 20 20 73   $fileName]..  s
0b40: 65 74 75 70 44 62 20 24 66 69 6c 65 4e 61 6d 65  etupDb $fileName
0b50: 20 44 65 66 61 75 6c 74 20 22 22 20 22 22 20 22   Default "" "" "
0b60: 22 20 22 22 20 74 72 75 65 20 66 61 6c 73 65 0d  " "" true false.
0b70: 0a 20 20 73 71 6c 20 65 78 65 63 75 74 65 20 2d  .  sql execute -
0b80: 65 78 65 63 75 74 65 20 73 63 61 6c 61 72 20 24  execute scalar $
0b90: 64 62 20 22 50 52 41 47 4d 41 20 6a 6f 75 72 6e  db "PRAGMA journ
0ba0: 61 6c 5f 6d 6f 64 65 3b 22 0d 0a 7d 20 2d 63 6c  al_mode;"..} -cl
0bb0: 65 61 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61 6e  eanup {..  clean
0bc0: 75 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d 0a  upDb $fileName..
0bd0: 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d  ..  unset -nocom
0be0: 70 6c 61 69 6e 20 64 62 20 66 69 6c 65 4e 61 6d  plain db fileNam
0bf0: 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74  e..} -constraint
0c00: 73 20 7b 65 61 67 6c 65 20 6d 6f 6e 6f 42 75 67  s {eagle monoBug
0c10: 32 38 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20 63  28 command.sql c
0c20: 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53 51 4c 69  ompile.DATA SQLi
0c30: 74 65 5c 0d 0a 53 79 73 74 65 6d 2e 44 61 74 61  te\..System.Data
0c40: 2e 53 51 4c 69 74 65 20 66 69 6c 65 5f 77 61 6c  .SQLite file_wal
0c50: 2e 64 62 7d 20 2d 72 65 73 75 6c 74 20 7b 77 61  .db} -result {wa
0c60: 6c 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23  l}}....#########
0c70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0c80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0c90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0ca0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0cb0: 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e 54 65 73  ######....runTes
0cc0: 74 20 7b 74 65 73 74 20 74 6b 74 2d 34 34 38 64  t {test tkt-448d
0cd0: 36 36 33 64 31 31 2d 31 2e 36 20 7b 27 44 65 66  663d11-1.6 {'Def
0ce0: 61 75 6c 74 27 20 6a 6f 75 72 6e 61 6c 20 6d 6f  ault' journal mo
0cf0: 64 65 2c 20 6e 6f 6e 2d 57 41 4c 20 64 62 7d 20  de, non-WAL db} 
0d00: 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65 74 20 66  -body {..  set f
0d10: 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 34 34 38 64  ileName tkt-448d
0d20: 36 36 33 64 31 31 2d 31 2e 36 2e 64 62 0d 0a 20  663d11-1.6.db.. 
0d30: 20 66 69 6c 65 20 63 6f 70 79 20 2d 66 6f 72 63   file copy -forc
0d40: 65 20 24 6e 6f 6e 57 61 6c 44 62 46 69 6c 65 20  e $nonWalDbFile 
0d50: 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 44  [file join [getD
0d60: 61 74 61 62 61 73 65 44 69 72 65 63 74 6f 72 79  atabaseDirectory
0d70: 5d 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 20 20  ] $fileName]..  
0d80: 73 65 74 75 70 44 62 20 24 66 69 6c 65 4e 61 6d  setupDb $fileNam
0d90: 65 20 44 65 66 61 75 6c 74 20 22 22 20 22 22 20  e Default "" "" 
0da0: 22 22 20 22 22 20 74 72 75 65 20 66 61 6c 73 65  "" "" true false
0db0: 0d 0a 20 20 73 71 6c 20 65 78 65 63 75 74 65 20  ..  sql execute 
0dc0: 2d 65 78 65 63 75 74 65 20 73 63 61 6c 61 72 20  -execute scalar 
0dd0: 24 64 62 20 22 50 52 41 47 4d 41 20 6a 6f 75 72  $db "PRAGMA jour
0de0: 6e 61 6c 5f 6d 6f 64 65 3b 22 0d 0a 7d 20 2d 63  nal_mode;"..} -c
0df0: 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61  leanup {..  clea
0e00: 6e 75 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d  nupDb $fileName.
0e10: 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f  ...  unset -noco
0e20: 6d 70 6c 61 69 6e 20 64 62 20 66 69 6c 65 4e 61  mplain db fileNa
0e30: 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e  me..} -constrain
0e40: 74 73 20 7b 65 61 67 6c 65 20 6d 6f 6e 6f 42 75  ts {eagle monoBu
0e50: 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20  g28 command.sql 
0e60: 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53 51 4c  compile.DATA SQL
0e70: 69 74 65 5c 0d 0a 53 79 73 74 65 6d 2e 44 61 74  ite\..System.Dat
0e80: 61 2e 53 51 4c 69 74 65 20 66 69 6c 65 5f 6e 6f  a.SQLite file_no
0e90: 6e 57 61 6c 2e 64 62 7d 20 2d 72 65 73 75 6c 74  nWal.db} -result
0ea0: 20 7b 64 65 6c 65 74 65 7d 7d 0d 0a 0d 0a 23 23   {delete}}....##
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 23 23 23 23 23 23 0d 0a 0d  #############...
0f00: 0a 72 75 6e 54 65 73 74 20 7b 74 65 73 74 20 74  .runTest {test t
0f10: 6b 74 2d 34 34 38 64 36 36 33 64 31 31 2d 31 2e  kt-448d663d11-1.
0f20: 37 20 7b 27 44 65 6c 65 74 65 27 20 6a 6f 75 72  7 {'Delete' jour
0f30: 6e 61 6c 20 6d 6f 64 65 2c 20 6e 65 77 20 64 62  nal mode, new db
0f40: 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65 74  } -body {..  set
0f50: 75 70 44 62 20 5b 73 65 74 20 66 69 6c 65 4e 61  upDb [set fileNa
0f60: 6d 65 20 74 6b 74 2d 34 34 38 64 36 36 33 64 31  me tkt-448d663d1
0f70: 31 2d 31 2e 37 2e 64 62 5d 20 44 65 6c 65 74 65  1-1.7.db] Delete
0f80: 0d 0a 20 20 73 71 6c 20 65 78 65 63 75 74 65 20  ..  sql execute 
0f90: 2d 65 78 65 63 75 74 65 20 73 63 61 6c 61 72 20  -execute scalar 
0fa0: 24 64 62 20 22 50 52 41 47 4d 41 20 6a 6f 75 72  $db "PRAGMA jour
0fb0: 6e 61 6c 5f 6d 6f 64 65 3b 22 0d 0a 7d 20 2d 63  nal_mode;"..} -c
0fc0: 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61  leanup {..  clea
0fd0: 6e 75 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d  nupDb $fileName.
0fe0: 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f  ...  unset -noco
0ff0: 6d 70 6c 61 69 6e 20 64 62 20 66 69 6c 65 4e 61  mplain db fileNa
1000: 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e  me..} -constrain
1010: 74 73 20 5c 0d 0a 7b 65 61 67 6c 65 20 6d 6f 6e  ts \..{eagle mon
1020: 6f 42 75 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73  oBug28 command.s
1030: 71 6c 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20  ql compile.DATA 
1040: 53 51 4c 69 74 65 20 53 79 73 74 65 6d 2e 44 61  SQLite System.Da
1050: 74 61 2e 53 51 4c 69 74 65 7d 20 2d 72 65 73 75  ta.SQLite} -resu
1060: 6c 74 20 5c 0d 0a 7b 64 65 6c 65 74 65 7d 7d 0d  lt \..{delete}}.
1070: 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  ...#############
1080: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1090: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
10a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
10b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
10c0: 23 23 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b 74  ##....runTest {t
10d0: 65 73 74 20 74 6b 74 2d 34 34 38 64 36 36 33 64  est tkt-448d663d
10e0: 31 31 2d 31 2e 38 20 7b 27 44 65 6c 65 74 65 27  11-1.8 {'Delete'
10f0: 20 6a 6f 75 72 6e 61 6c 20 6d 6f 64 65 2c 20 57   journal mode, W
1100: 41 4c 20 64 62 7d 20 2d 62 6f 64 79 20 7b 0d 0a  AL db} -body {..
1110: 20 20 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 74    set fileName t
1120: 6b 74 2d 34 34 38 64 36 36 33 64 31 31 2d 31 2e  kt-448d663d11-1.
1130: 38 2e 64 62 0d 0a 20 20 66 69 6c 65 20 63 6f 70  8.db..  file cop
1140: 79 20 2d 66 6f 72 63 65 20 24 77 61 6c 44 62 46  y -force $walDbF
1150: 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b  ile [file join [
1160: 67 65 74 44 61 74 61 62 61 73 65 44 69 72 65 63  getDatabaseDirec
1170: 74 6f 72 79 5d 20 24 66 69 6c 65 4e 61 6d 65 5d  tory] $fileName]
1180: 0d 0a 20 20 73 65 74 75 70 44 62 20 24 66 69 6c  ..  setupDb $fil
1190: 65 4e 61 6d 65 20 44 65 6c 65 74 65 20 22 22 20  eName Delete "" 
11a0: 22 22 20 22 22 20 22 22 20 74 72 75 65 20 66 61  "" "" "" true fa
11b0: 6c 73 65 0d 0a 20 20 73 71 6c 20 65 78 65 63 75  lse..  sql execu
11c0: 74 65 20 2d 65 78 65 63 75 74 65 20 73 63 61 6c  te -execute scal
11d0: 61 72 20 24 64 62 20 22 50 52 41 47 4d 41 20 6a  ar $db "PRAGMA j
11e0: 6f 75 72 6e 61 6c 5f 6d 6f 64 65 3b 22 0d 0a 7d  ournal_mode;"..}
11f0: 20 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 63   -cleanup {..  c
1200: 6c 65 61 6e 75 70 44 62 20 24 66 69 6c 65 4e 61  leanupDb $fileNa
1210: 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e  me....  unset -n
1220: 6f 63 6f 6d 70 6c 61 69 6e 20 64 62 20 66 69 6c  ocomplain db fil
1230: 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72  eName..} -constr
1240: 61 69 6e 74 73 20 7b 65 61 67 6c 65 20 6d 6f 6e  aints {eagle mon
1250: 6f 42 75 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73  oBug28 command.s
1260: 71 6c 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20  ql compile.DATA 
1270: 53 51 4c 69 74 65 5c 0d 0a 53 79 73 74 65 6d 2e  SQLite\..System.
1280: 44 61 74 61 2e 53 51 4c 69 74 65 20 66 69 6c 65  Data.SQLite file
1290: 5f 77 61 6c 2e 64 62 7d 20 2d 72 65 73 75 6c 74  _wal.db} -result
12a0: 20 7b 64 65 6c 65 74 65 7d 7d 0d 0a 0d 0a 23 23   {delete}}....##
12b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
12c0: 23 23 23 23 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 0d 0a 0d  #############...
1300: 0a 72 75 6e 54 65 73 74 20 7b 74 65 73 74 20 74  .runTest {test t
1310: 6b 74 2d 34 34 38 64 36 36 33 64 31 31 2d 31 2e  kt-448d663d11-1.
1320: 39 20 7b 27 44 65 6c 65 74 65 27 20 6a 6f 75 72  9 {'Delete' jour
1330: 6e 61 6c 20 6d 6f 64 65 2c 20 6e 6f 6e 2d 57 41  nal mode, non-WA
1340: 4c 20 64 62 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20  L db} -body {.. 
1350: 20 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 74 6b   set fileName tk
1360: 74 2d 34 34 38 64 36 36 33 64 31 31 2d 31 2e 39  t-448d663d11-1.9
1370: 2e 64 62 0d 0a 20 20 66 69 6c 65 20 63 6f 70 79  .db..  file copy
1380: 20 2d 66 6f 72 63 65 20 24 6e 6f 6e 57 61 6c 44   -force $nonWalD
1390: 62 46 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e  bFile [file join
13a0: 20 5b 67 65 74 44 61 74 61 62 61 73 65 44 69 72   [getDatabaseDir
13b0: 65 63 74 6f 72 79 5d 20 24 66 69 6c 65 4e 61 6d  ectory] $fileNam
13c0: 65 5d 0d 0a 20 20 73 65 74 75 70 44 62 20 24 66  e]..  setupDb $f
13d0: 69 6c 65 4e 61 6d 65 20 44 65 6c 65 74 65 20 22  ileName Delete "
13e0: 22 20 22 22 20 22 22 20 22 22 20 74 72 75 65 20  " "" "" "" true 
13f0: 66 61 6c 73 65 0d 0a 20 20 73 71 6c 20 65 78 65  false..  sql exe
1400: 63 75 74 65 20 2d 65 78 65 63 75 74 65 20 73 63  cute -execute sc
1410: 61 6c 61 72 20 24 64 62 20 22 50 52 41 47 4d 41  alar $db "PRAGMA
1420: 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 3b 22 0d   journal_mode;".
1430: 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20  .} -cleanup {.. 
1440: 20 63 6c 65 61 6e 75 70 44 62 20 24 66 69 6c 65   cleanupDb $file
1450: 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65 74 20  Name....  unset 
1460: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 64 62 20 66  -nocomplain db f
1470: 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73  ileName..} -cons
1480: 74 72 61 69 6e 74 73 20 7b 65 61 67 6c 65 20 6d  traints {eagle m
1490: 6f 6e 6f 42 75 67 32 38 20 63 6f 6d 6d 61 6e 64  onoBug28 command
14a0: 2e 73 71 6c 20 63 6f 6d 70 69 6c 65 2e 44 41 54  .sql compile.DAT
14b0: 41 20 53 51 4c 69 74 65 5c 0d 0a 53 79 73 74 65  A SQLite\..Syste
14c0: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 66 69  m.Data.SQLite fi
14d0: 6c 65 5f 6e 6f 6e 57 61 6c 2e 64 62 7d 20 2d 72  le_nonWal.db} -r
14e0: 65 73 75 6c 74 20 7b 64 65 6c 65 74 65 7d 7d 0d  esult {delete}}.
14f0: 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  ...#############
1500: 23 23 23 23 23 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 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b 74  ##....runTest {t
1550: 65 73 74 20 74 6b 74 2d 34 34 38 64 36 36 33 64  est tkt-448d663d
1560: 31 31 2d 31 2e 31 30 20 7b 27 50 65 72 73 69 73  11-1.10 {'Persis
1570: 74 27 20 6a 6f 75 72 6e 61 6c 20 6d 6f 64 65 2c  t' journal mode,
1580: 20 6e 65 77 20 64 62 7d 20 2d 62 6f 64 79 20 7b   new db} -body {
1590: 0d 0a 20 20 73 65 74 75 70 44 62 20 5b 73 65 74  ..  setupDb [set
15a0: 20 66 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 34 34   fileName tkt-44
15b0: 38 64 36 36 33 64 31 31 2d 31 2e 31 30 2e 64 62  8d663d11-1.10.db
15c0: 5d 20 50 65 72 73 69 73 74 0d 0a 20 20 73 71 6c  ] Persist..  sql
15d0: 20 65 78 65 63 75 74 65 20 2d 65 78 65 63 75 74   execute -execut
15e0: 65 20 73 63 61 6c 61 72 20 24 64 62 20 22 50 52  e scalar $db "PR
15f0: 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64  AGMA journal_mod
1600: 65 3b 22 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20  e;"..} -cleanup 
1610: 7b 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24  {..  cleanupDb $
1620: 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e  fileName....  un
1630: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  set -nocomplain 
1640: 64 62 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d  db fileName..} -
1650: 63 6f 6e 73 74 72 61 69 6e 74 73 20 5c 0d 0a 7b  constraints \..{
1660: 65 61 67 6c 65 20 6d 6f 6e 6f 42 75 67 32 38 20  eagle monoBug28 
1670: 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20 63 6f 6d 70  command.sql comp
1680: 69 6c 65 2e 44 41 54 41 20 53 51 4c 69 74 65 20  ile.DATA SQLite 
1690: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69  System.Data.SQLi
16a0: 74 65 7d 20 2d 72 65 73 75 6c 74 20 5c 0d 0a 7b  te} -result \..{
16b0: 70 65 72 73 69 73 74 7d 7d 0d 0a 0d 0a 23 23 23  persist}}....###
16c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
16d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
16e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
16f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1700: 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a  ############....
1710: 72 75 6e 54 65 73 74 20 7b 74 65 73 74 20 74 6b  runTest {test tk
1720: 74 2d 34 34 38 64 36 36 33 64 31 31 2d 31 2e 31  t-448d663d11-1.1
1730: 31 20 7b 27 4f 66 66 27 20 6a 6f 75 72 6e 61 6c  1 {'Off' journal
1740: 20 6d 6f 64 65 2c 20 6e 65 77 20 64 62 7d 20 2d   mode, new db} -
1750: 62 6f 64 79 20 7b 0d 0a 20 20 73 65 74 75 70 44  body {..  setupD
1760: 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65 20  b [set fileName 
1770: 74 6b 74 2d 34 34 38 64 36 36 33 64 31 31 2d 31  tkt-448d663d11-1
1780: 2e 31 31 2e 64 62 5d 20 4f 66 66 0d 0a 20 20 73  .11.db] Off..  s
1790: 71 6c 20 65 78 65 63 75 74 65 20 2d 65 78 65 63  ql execute -exec
17a0: 75 74 65 20 73 63 61 6c 61 72 20 24 64 62 20 22  ute scalar $db "
17b0: 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d  PRAGMA journal_m
17c0: 6f 64 65 3b 22 0d 0a 7d 20 2d 63 6c 65 61 6e 75  ode;"..} -cleanu
17d0: 70 20 7b 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62  p {..  cleanupDb
17e0: 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20   $fileName....  
17f0: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69  unset -nocomplai
1800: 6e 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d  n db fileName..}
1810: 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 5c 0d   -constraints \.
1820: 0a 7b 65 61 67 6c 65 20 6d 6f 6e 6f 42 75 67 32  .{eagle monoBug2
1830: 38 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20 63 6f  8 command.sql co
1840: 6d 70 69 6c 65 2e 44 41 54 41 20 53 51 4c 69 74  mpile.DATA SQLit
1850: 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  e System.Data.SQ
1860: 4c 69 74 65 7d 20 2d 72 65 73 75 6c 74 20 5c 0d  Lite} -result \.
1870: 0a 7b 6f 66 66 7d 7d 0d 0a 0d 0a 23 23 23 23 23  .{off}}....#####
1880: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1890: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
18a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
18b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
18c0: 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75  ##########....ru
18d0: 6e 54 65 73 74 20 7b 74 65 73 74 20 74 6b 74 2d  nTest {test tkt-
18e0: 34 34 38 64 36 36 33 64 31 31 2d 31 2e 31 32 20  448d663d11-1.12 
18f0: 7b 27 54 72 75 6e 63 61 74 65 27 20 6a 6f 75 72  {'Truncate' jour
1900: 6e 61 6c 20 6d 6f 64 65 2c 20 6e 65 77 20 64 62  nal mode, new db
1910: 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65 74  } -body {..  set
1920: 75 70 44 62 20 5b 73 65 74 20 66 69 6c 65 4e 61  upDb [set fileNa
1930: 6d 65 20 74 6b 74 2d 34 34 38 64 36 36 33 64 31  me tkt-448d663d1
1940: 31 2d 31 2e 31 32 2e 64 62 5d 20 54 72 75 6e 63  1-1.12.db] Trunc
1950: 61 74 65 0d 0a 20 20 73 71 6c 20 65 78 65 63 75  ate..  sql execu
1960: 74 65 20 2d 65 78 65 63 75 74 65 20 73 63 61 6c  te -execute scal
1970: 61 72 20 24 64 62 20 22 50 52 41 47 4d 41 20 6a  ar $db "PRAGMA j
1980: 6f 75 72 6e 61 6c 5f 6d 6f 64 65 3b 22 0d 0a 7d  ournal_mode;"..}
1990: 20 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 63   -cleanup {..  c
19a0: 6c 65 61 6e 75 70 44 62 20 24 66 69 6c 65 4e 61  leanupDb $fileNa
19b0: 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e  me....  unset -n
19c0: 6f 63 6f 6d 70 6c 61 69 6e 20 64 62 20 66 69 6c  ocomplain db fil
19d0: 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72  eName..} -constr
19e0: 61 69 6e 74 73 20 5c 0d 0a 7b 65 61 67 6c 65 20  aints \..{eagle 
19f0: 6d 6f 6e 6f 42 75 67 32 38 20 63 6f 6d 6d 61 6e  monoBug28 comman
1a00: 64 2e 73 71 6c 20 63 6f 6d 70 69 6c 65 2e 44 41  d.sql compile.DA
1a10: 54 41 20 53 51 4c 69 74 65 20 53 79 73 74 65 6d  TA SQLite System
1a20: 2e 44 61 74 61 2e 53 51 4c 69 74 65 7d 20 2d 72  .Data.SQLite} -r
1a30: 65 73 75 6c 74 20 5c 0d 0a 7b 74 72 75 6e 63 61  esult \..{trunca
1a40: 74 65 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23  te}}....########
1a50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1a60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1a70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1a80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1a90: 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e 54 65  #######....runTe
1aa0: 73 74 20 7b 74 65 73 74 20 74 6b 74 2d 34 34 38  st {test tkt-448
1ab0: 64 36 36 33 64 31 31 2d 31 2e 31 33 20 7b 27 4d  d663d11-1.13 {'M
1ac0: 65 6d 6f 72 79 27 20 6a 6f 75 72 6e 61 6c 20 6d  emory' journal m
1ad0: 6f 64 65 2c 20 6e 65 77 20 64 62 7d 20 2d 62 6f  ode, new db} -bo
1ae0: 64 79 20 7b 0d 0a 20 20 73 65 74 75 70 44 62 20  dy {..  setupDb 
1af0: 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 74 6b  [set fileName tk
1b00: 74 2d 34 34 38 64 36 36 33 64 31 31 2d 31 2e 31  t-448d663d11-1.1
1b10: 33 2e 64 62 5d 20 4d 65 6d 6f 72 79 0d 0a 20 20  3.db] Memory..  
1b20: 73 71 6c 20 65 78 65 63 75 74 65 20 2d 65 78 65  sql execute -exe
1b30: 63 75 74 65 20 73 63 61 6c 61 72 20 24 64 62 20  cute scalar $db 
1b40: 22 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f  "PRAGMA journal_
1b50: 6d 6f 64 65 3b 22 0d 0a 7d 20 2d 63 6c 65 61 6e  mode;"..} -clean
1b60: 75 70 20 7b 0d 0a 20 20 63 6c 65 61 6e 75 70 44  up {..  cleanupD
1b70: 62 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20  b $fileName.... 
1b80: 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61   unset -nocompla
1b90: 69 6e 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d 0a  in db fileName..
1ba0: 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 5c  } -constraints \
1bb0: 0d 0a 7b 65 61 67 6c 65 20 6d 6f 6e 6f 42 75 67  ..{eagle monoBug
1bc0: 32 38 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20 63  28 command.sql c
1bd0: 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53 51 4c 69  ompile.DATA SQLi
1be0: 74 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  te System.Data.S
1bf0: 51 4c 69 74 65 7d 20 2d 72 65 73 75 6c 74 20 5c  QLite} -result \
1c00: 0d 0a 7b 6d 65 6d 6f 72 79 7d 7d 0d 0a 0d 0a 23  ..{memory}}....#
1c10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 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 0d 0a  ##############..
1c60: 0d 0a 72 75 6e 54 65 73 74 20 7b 74 65 73 74 20  ..runTest {test 
1c70: 74 6b 74 2d 34 34 38 64 36 36 33 64 31 31 2d 31  tkt-448d663d11-1
1c80: 2e 31 34 20 7b 27 57 61 6c 27 20 6a 6f 75 72 6e  .14 {'Wal' journ
1c90: 61 6c 20 6d 6f 64 65 2c 20 6e 65 77 20 64 62 7d  al mode, new db}
1ca0: 20 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65 74 75   -body {..  setu
1cb0: 70 44 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d  pDb [set fileNam
1cc0: 65 20 74 6b 74 2d 34 34 38 64 36 36 33 64 31 31  e tkt-448d663d11
1cd0: 2d 31 2e 31 34 2e 64 62 5d 20 57 61 6c 0d 0a 20  -1.14.db] Wal.. 
1ce0: 20 73 71 6c 20 65 78 65 63 75 74 65 20 2d 65 78   sql execute -ex
1cf0: 65 63 75 74 65 20 73 63 61 6c 61 72 20 24 64 62  ecute scalar $db
1d00: 20 22 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c   "PRAGMA journal
1d10: 5f 6d 6f 64 65 3b 22 0d 0a 7d 20 2d 63 6c 65 61  _mode;"..} -clea
1d20: 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61 6e 75 70  nup {..  cleanup
1d30: 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a  Db $fileName....
1d40: 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c    unset -nocompl
1d50: 61 69 6e 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d  ain db fileName.
1d60: 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  .} -constraints 
1d70: 5c 0d 0a 7b 65 61 67 6c 65 20 6d 6f 6e 6f 42 75  \..{eagle monoBu
1d80: 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20  g28 command.sql 
1d90: 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53 51 4c  compile.DATA SQL
1da0: 69 74 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e  ite System.Data.
1db0: 53 51 4c 69 74 65 7d 20 2d 72 65 73 75 6c 74 20  SQLite} -result 
1dc0: 5c 0d 0a 7b 77 61 6c 7d 7d 0d 0a 0d 0a 23 23 23  \..{wal}}....###
1dd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1de0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1df0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1e00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1e10: 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a  ############....
1e20: 72 75 6e 54 65 73 74 20 7b 74 65 73 74 20 74 6b  runTest {test tk
1e30: 74 2d 34 34 38 64 36 36 33 64 31 31 2d 31 2e 31  t-448d663d11-1.1
1e40: 35 20 7b 27 57 61 6c 27 20 6a 6f 75 72 6e 61 6c  5 {'Wal' journal
1e50: 20 6d 6f 64 65 2c 20 6e 6f 6e 2d 57 41 4c 20 64   mode, non-WAL d
1e60: 62 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65  b} -body {..  se
1e70: 74 20 66 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 34  t fileName tkt-4
1e80: 34 38 64 36 36 33 64 31 31 2d 31 2e 31 35 2e 64  48d663d11-1.15.d
1e90: 62 0d 0a 20 20 66 69 6c 65 20 63 6f 70 79 20 2d  b..  file copy -
1ea0: 66 6f 72 63 65 20 24 6e 6f 6e 57 61 6c 44 62 46  force $nonWalDbF
1eb0: 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b  ile [file join [
1ec0: 67 65 74 44 61 74 61 62 61 73 65 44 69 72 65 63  getDatabaseDirec
1ed0: 74 6f 72 79 5d 20 24 66 69 6c 65 4e 61 6d 65 5d  tory] $fileName]
1ee0: 0d 0a 20 20 73 65 74 75 70 44 62 20 24 66 69 6c  ..  setupDb $fil
1ef0: 65 4e 61 6d 65 20 57 61 6c 20 22 22 20 22 22 20  eName Wal "" "" 
1f00: 22 22 20 22 22 20 74 72 75 65 20 66 61 6c 73 65  "" "" true false
1f10: 0d 0a 20 20 73 71 6c 20 65 78 65 63 75 74 65 20  ..  sql execute 
1f20: 2d 65 78 65 63 75 74 65 20 73 63 61 6c 61 72 20  -execute scalar 
1f30: 24 64 62 20 22 50 52 41 47 4d 41 20 6a 6f 75 72  $db "PRAGMA jour
1f40: 6e 61 6c 5f 6d 6f 64 65 3b 22 0d 0a 7d 20 2d 63  nal_mode;"..} -c
1f50: 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61  leanup {..  clea
1f60: 6e 75 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d  nupDb $fileName.
1f70: 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f  ...  unset -noco
1f80: 6d 70 6c 61 69 6e 20 64 62 20 66 69 6c 65 4e 61  mplain db fileNa
1f90: 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e  me..} -constrain
1fa0: 74 73 20 7b 65 61 67 6c 65 20 6d 6f 6e 6f 42 75  ts {eagle monoBu
1fb0: 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20  g28 command.sql 
1fc0: 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53 51 4c  compile.DATA SQL
1fd0: 69 74 65 5c 0d 0a 53 79 73 74 65 6d 2e 44 61 74  ite\..System.Dat
1fe0: 61 2e 53 51 4c 69 74 65 20 66 69 6c 65 5f 6e 6f  a.SQLite file_no
1ff0: 6e 57 61 6c 2e 64 62 7d 20 2d 72 65 73 75 6c 74  nWal.db} -result
2000: 20 7b 77 61 6c 7d 7d 0d 0a 0d 0a 23 23 23 23 23   {wal}}....#####
2010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2050: 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75  ##########....ru
2060: 6e 54 65 73 74 20 7b 74 65 73 74 20 74 6b 74 2d  nTest {test tkt-
2070: 34 34 38 64 36 36 33 64 31 31 2d 31 2e 31 36 20  448d663d11-1.16 
2080: 7b 27 57 61 6c 27 20 6a 6f 75 72 6e 61 6c 20 6d  {'Wal' journal m
2090: 6f 64 65 2c 20 57 41 4c 20 64 62 7d 20 2d 62 6f  ode, WAL db} -bo
20a0: 64 79 20 7b 0d 0a 20 20 73 65 74 20 66 69 6c 65  dy {..  set file
20b0: 4e 61 6d 65 20 74 6b 74 2d 34 34 38 64 36 36 33  Name tkt-448d663
20c0: 64 31 31 2d 31 2e 31 36 2e 64 62 0d 0a 20 20 66  d11-1.16.db..  f
20d0: 69 6c 65 20 63 6f 70 79 20 2d 66 6f 72 63 65 20  ile copy -force 
20e0: 24 77 61 6c 44 62 46 69 6c 65 20 5b 66 69 6c 65  $walDbFile [file
20f0: 20 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61 62 61   join [getDataba
2100: 73 65 44 69 72 65 63 74 6f 72 79 5d 20 24 66 69  seDirectory] $fi
2110: 6c 65 4e 61 6d 65 5d 0d 0a 20 20 73 65 74 75 70  leName]..  setup
2120: 44 62 20 24 66 69 6c 65 4e 61 6d 65 20 57 61 6c  Db $fileName Wal
2130: 20 22 22 20 22 22 20 22 22 20 22 22 20 74 72 75   "" "" "" "" tru
2140: 65 20 66 61 6c 73 65 0d 0a 20 20 73 71 6c 20 65  e false..  sql e
2150: 78 65 63 75 74 65 20 2d 65 78 65 63 75 74 65 20  xecute -execute 
2160: 73 63 61 6c 61 72 20 24 64 62 20 22 50 52 41 47  scalar $db "PRAG
2170: 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 3b  MA journal_mode;
2180: 22 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d  "..} -cleanup {.
2190: 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66 69  .  cleanupDb $fi
21a0: 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65  leName....  unse
21b0: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 64 62  t -nocomplain db
21c0: 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f   fileName..} -co
21d0: 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67 6c 65  nstraints {eagle
21e0: 20 6d 6f 6e 6f 42 75 67 32 38 20 63 6f 6d 6d 61   monoBug28 comma
21f0: 6e 64 2e 73 71 6c 20 63 6f 6d 70 69 6c 65 2e 44  nd.sql compile.D
2200: 41 54 41 20 53 51 4c 69 74 65 5c 0d 0a 53 79 73  ATA SQLite\..Sys
2210: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20  tem.Data.SQLite 
2220: 66 69 6c 65 5f 77 61 6c 2e 64 62 7d 20 2d 72 65  file_wal.db} -re
2230: 73 75 6c 74 20 7b 77 61 6c 7d 7d 0d 0a 0d 0a 23  sult {wal}}....#
2240: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2260: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2270: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2280: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a  ##############..
2290: 0d 0a 72 75 6e 54 65 73 74 20 7b 74 65 73 74 20  ..runTest {test 
22a0: 74 6b 74 2d 34 34 38 64 36 36 33 64 31 31 2d 31  tkt-448d663d11-1
22b0: 2e 31 37 20 7b 27 42 61 64 27 20 6a 6f 75 72 6e  .17 {'Bad' journ
22c0: 61 6c 20 6d 6f 64 65 2c 20 6e 65 77 20 64 62 7d  al mode, new db}
22d0: 20 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65 74 75   -body {..  setu
22e0: 70 44 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d  pDb [set fileNam
22f0: 65 20 74 6b 74 2d 34 34 38 64 36 36 33 64 31 31  e tkt-448d663d11
2300: 2d 31 2e 31 37 2e 64 62 5d 20 42 61 64 0d 0a 20  -1.17.db] Bad.. 
2310: 20 73 71 6c 20 65 78 65 63 75 74 65 20 2d 65 78   sql execute -ex
2320: 65 63 75 74 65 20 73 63 61 6c 61 72 20 24 64 62  ecute scalar $db
2330: 20 22 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c   "PRAGMA journal
2340: 5f 6d 6f 64 65 3b 22 0d 0a 7d 20 2d 63 6c 65 61  _mode;"..} -clea
2350: 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61 6e 75 70  nup {..  cleanup
2360: 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a  Db $fileName....
2370: 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c    unset -nocompl
2380: 61 69 6e 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d  ain db fileName.
2390: 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  .} -constraints 
23a0: 5c 0d 0a 7b 65 61 67 6c 65 20 6d 6f 6e 6f 42 75  \..{eagle monoBu
23b0: 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20  g28 command.sql 
23c0: 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53 51 4c  compile.DATA SQL
23d0: 69 74 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e  ite System.Data.
23e0: 53 51 4c 69 74 65 7d 20 2d 72 65 73 75 6c 74 20  SQLite} -result 
23f0: 5c 0d 0a 7b 64 65 6c 65 74 65 7d 7d 0d 0a 0d 0a  \..{delete}}....
2400: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2410: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2420: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2430: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2440: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
2450: 0a 0d 0a 72 75 6e 54 65 73 74 20 7b 74 65 73 74  ...runTest {test
2460: 20 74 6b 74 2d 34 34 38 64 36 36 33 64 31 31 2d   tkt-448d663d11-
2470: 31 2e 31 38 20 7b 27 42 61 64 27 20 6a 6f 75 72  1.18 {'Bad' jour
2480: 6e 61 6c 20 6d 6f 64 65 2c 20 6e 6f 6e 2d 57 41  nal mode, non-WA
2490: 4c 20 64 62 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20  L db} -body {.. 
24a0: 20 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 74 6b   set fileName tk
24b0: 74 2d 34 34 38 64 36 36 33 64 31 31 2d 31 2e 31  t-448d663d11-1.1
24c0: 38 2e 64 62 0d 0a 20 20 66 69 6c 65 20 63 6f 70  8.db..  file cop
24d0: 79 20 2d 66 6f 72 63 65 20 24 6e 6f 6e 57 61 6c  y -force $nonWal
24e0: 44 62 46 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69  DbFile [file joi
24f0: 6e 20 5b 67 65 74 44 61 74 61 62 61 73 65 44 69  n [getDatabaseDi
2500: 72 65 63 74 6f 72 79 5d 20 24 66 69 6c 65 4e 61  rectory] $fileNa
2510: 6d 65 5d 0d 0a 20 20 73 65 74 75 70 44 62 20 24  me]..  setupDb $
2520: 66 69 6c 65 4e 61 6d 65 20 42 61 64 20 22 22 20  fileName Bad "" 
2530: 22 22 20 22 22 20 22 22 20 74 72 75 65 20 66 61  "" "" "" true fa
2540: 6c 73 65 0d 0a 20 20 73 71 6c 20 65 78 65 63 75  lse..  sql execu
2550: 74 65 20 2d 65 78 65 63 75 74 65 20 73 63 61 6c  te -execute scal
2560: 61 72 20 24 64 62 20 22 50 52 41 47 4d 41 20 6a  ar $db "PRAGMA j
2570: 6f 75 72 6e 61 6c 5f 6d 6f 64 65 3b 22 0d 0a 7d  ournal_mode;"..}
2580: 20 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 63   -cleanup {..  c
2590: 6c 65 61 6e 75 70 44 62 20 24 66 69 6c 65 4e 61  leanupDb $fileNa
25a0: 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e  me....  unset -n
25b0: 6f 63 6f 6d 70 6c 61 69 6e 20 64 62 20 66 69 6c  ocomplain db fil
25c0: 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72  eName..} -constr
25d0: 61 69 6e 74 73 20 7b 65 61 67 6c 65 20 6d 6f 6e  aints {eagle mon
25e0: 6f 42 75 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73  oBug28 command.s
25f0: 71 6c 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20  ql compile.DATA 
2600: 53 51 4c 69 74 65 5c 0d 0a 53 79 73 74 65 6d 2e  SQLite\..System.
2610: 44 61 74 61 2e 53 51 4c 69 74 65 20 66 69 6c 65  Data.SQLite file
2620: 5f 6e 6f 6e 57 61 6c 2e 64 62 7d 20 2d 72 65 73  _nonWal.db} -res
2630: 75 6c 74 20 7b 64 65 6c 65 74 65 7d 7d 0d 0a 0d  ult {delete}}...
2640: 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  .###############
2650: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2660: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2670: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2680: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2690: 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b 74 65 73  ....runTest {tes
26a0: 74 20 74 6b 74 2d 34 34 38 64 36 36 33 64 31 31  t tkt-448d663d11
26b0: 2d 31 2e 31 39 20 7b 27 42 61 64 27 20 6a 6f 75  -1.19 {'Bad' jou
26c0: 72 6e 61 6c 20 6d 6f 64 65 2c 20 57 41 4c 20 64  rnal mode, WAL d
26d0: 62 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65  b} -body {..  se
26e0: 74 20 66 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 34  t fileName tkt-4
26f0: 34 38 64 36 36 33 64 31 31 2d 31 2e 31 39 2e 64  48d663d11-1.19.d
2700: 62 0d 0a 20 20 66 69 6c 65 20 63 6f 70 79 20 2d  b..  file copy -
2710: 66 6f 72 63 65 20 24 77 61 6c 44 62 46 69 6c 65  force $walDbFile
2720: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74   [file join [get
2730: 44 61 74 61 62 61 73 65 44 69 72 65 63 74 6f 72  DatabaseDirector
2740: 79 5d 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 20  y] $fileName].. 
2750: 20 73 65 74 75 70 44 62 20 24 66 69 6c 65 4e 61   setupDb $fileNa
2760: 6d 65 20 42 61 64 20 22 22 20 22 22 20 22 22 20  me Bad "" "" "" 
2770: 22 22 20 74 72 75 65 20 66 61 6c 73 65 0d 0a 20  "" true false.. 
2780: 20 73 71 6c 20 65 78 65 63 75 74 65 20 2d 65 78   sql execute -ex
2790: 65 63 75 74 65 20 73 63 61 6c 61 72 20 24 64 62  ecute scalar $db
27a0: 20 22 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c   "PRAGMA journal
27b0: 5f 6d 6f 64 65 3b 22 0d 0a 7d 20 2d 63 6c 65 61  _mode;"..} -clea
27c0: 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61 6e 75 70  nup {..  cleanup
27d0: 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a  Db $fileName....
27e0: 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c    unset -nocompl
27f0: 61 69 6e 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d  ain db fileName.
2800: 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  .} -constraints 
2810: 7b 65 61 67 6c 65 20 6d 6f 6e 6f 42 75 67 32 38  {eagle monoBug28
2820: 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20 63 6f 6d   command.sql com
2830: 70 69 6c 65 2e 44 41 54 41 20 53 51 4c 69 74 65  pile.DATA SQLite
2840: 5c 0d 0a 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  \..System.Data.S
2850: 51 4c 69 74 65 20 66 69 6c 65 5f 77 61 6c 2e 64  QLite file_wal.d
2860: 62 7d 20 2d 72 65 73 75 6c 74 20 7b 77 61 6c 7d  b} -result {wal}
2870: 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23  }....###########
2880: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2890: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
28a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
28b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
28c0: 23 23 23 23 0d 0a 0d 0a 72 75 6e 53 51 4c 69 74  ####....runSQLit
28d0: 65 54 65 73 74 46 69 6c 65 73 45 70 69 6c 6f 67  eTestFilesEpilog
28e0: 75 65 0d 0a 72 75 6e 53 51 4c 69 74 65 54 65 73  ue..runSQLiteTes
28f0: 74 45 70 69 6c 6f 67 75 65 0d 0a 72 75 6e 54 65  tEpilogue..runTe
2900: 73 74 45 70 69 6c 6f 67 75 65 0d 0a              stEpilogue..