System.Data.SQLite: Hex Artifact Content

Artifact efe4f6632d465a46e32cdd73b0ca2b7545e03155:

File Tests/tkt-23d8d6171e.eagle — part of check-in [02ed8cae60] at 2018-12-23 04:56:32 on branch trunk — Add HidePassword connection flag to remove the password from the connection string once the database is opened. Pursuant to [23d8d6171e]. (user: mistachkin size: 3837)
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 32 33 64 38 64 36  .#..# tkt-23d8d6
0060: 31 37 31 65 2e 65 61 67 6c 65 20 2d 2d 0d 0a 23  171e.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 0d 0a 23 23 23 23 23 23  ologue....######
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 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e  #########....run
0270: 54 65 73 74 20 7b 74 65 73 74 20 74 6b 74 2d 32  Test {test tkt-2
0280: 33 64 38 64 36 31 37 31 65 2d 31 2e 31 20 7b 48  3d8d6171e-1.1 {H
0290: 69 64 65 50 61 73 73 77 6f 72 64 20 66 6c 61 67  idePassword flag
02a0: 20 77 2f 50 61 73 73 77 6f 72 64 7d 20 2d 73 65   w/Password} -se
02b0: 74 75 70 20 7b 0d 0a 20 20 73 65 74 75 70 44 62  tup {..  setupDb
02c0: 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 74   [set fileName t
02d0: 6b 74 2d 32 33 64 38 64 36 31 37 31 65 2d 31 2e  kt-23d8d6171e-1.
02e0: 31 2e 64 62 5d 20 22 22 20 22 22 20 22 22 20 48  1.db] "" "" "" H
02f0: 69 64 65 50 61 73 73 77 6f 72 64 20 5c 0d 0a 20  idePassword \.. 
0300: 20 20 20 20 20 22 50 61 73 73 77 6f 72 64 3d 31       "Password=1
0310: 32 33 34 3b 22 0d 0a 7d 20 2d 62 6f 64 79 20 7b  234;"..} -body {
0320: 0d 0a 20 20 73 71 6c 20 65 78 65 63 75 74 65 20  ..  sql execute 
0330: 24 64 62 20 22 43 52 45 41 54 45 20 54 41 42 4c  $db "CREATE TABL
0340: 45 20 74 31 28 78 29 3b 22 0d 0a 20 20 73 71 6c  E t1(x);"..  sql
0350: 20 65 78 65 63 75 74 65 20 24 64 62 20 22 49 4e   execute $db "IN
0360: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 28 78 29  SERT INTO t1 (x)
0370: 20 56 41 4c 55 45 53 28 31 29 3b 22 0d 0a 0d 0a   VALUES(1);"....
0380: 20 20 73 65 74 20 72 65 73 75 6c 74 20 5b 6c 69    set result [li
0390: 73 74 5d 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e 64  st]....  lappend
03a0: 20 72 65 73 75 6c 74 20 5b 63 61 74 63 68 20 7b   result [catch {
03b0: 73 71 6c 20 65 78 65 63 75 74 65 20 2d 65 78 65  sql execute -exe
03c0: 63 75 74 65 20 73 63 61 6c 61 72 20 24 64 62 20  cute scalar $db 
03d0: 5c 0d 0a 20 20 20 20 20 20 22 53 45 4c 45 43 54  \..      "SELECT
03e0: 20 43 4f 55 4e 54 28 2a 29 20 46 52 4f 4d 20 74   COUNT(*) FROM t
03f0: 31 3b 22 7d 20 65 72 72 6f 72 5d 20 5c 0d 0a 20  1;"} error] \.. 
0400: 20 20 20 20 20 5b 65 78 74 72 61 63 74 53 79 73       [extractSys
0410: 74 65 6d 44 61 74 61 53 51 4c 69 74 65 45 78 63  temDataSQLiteExc
0420: 65 70 74 69 6f 6e 4d 65 73 73 61 67 65 20 24 65  eptionMessage $e
0430: 72 72 6f 72 5d 0d 0a 0d 0a 20 20 6c 61 70 70 65  rror]....  lappe
0440: 6e 64 20 72 65 73 75 6c 74 20 5b 63 61 74 63 68  nd result [catch
0450: 20 7b 73 71 6c 20 65 78 65 63 75 74 65 20 24 64   {sql execute $d
0460: 62 20 5c 0d 0a 20 20 20 20 20 20 22 49 4e 53 45  b \..      "INSE
0470: 52 54 20 49 4e 54 4f 20 74 31 20 28 78 29 20 56  RT INTO t1 (x) V
0480: 41 4c 55 45 53 28 31 29 3b 22 7d 20 65 72 72 6f  ALUES(1);"} erro
0490: 72 5d 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 74  r] \..      [ext
04a0: 72 61 63 74 53 79 73 74 65 6d 44 61 74 61 53 51  ractSystemDataSQ
04b0: 4c 69 74 65 45 78 63 65 70 74 69 6f 6e 4d 65 73  LiteExceptionMes
04c0: 73 61 67 65 20 24 65 72 72 6f 72 5d 0d 0a 0d 0a  sage $error]....
04d0: 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74    lappend result
04e0: 20 5b 63 61 74 63 68 20 7b 73 71 6c 20 65 78 65   [catch {sql exe
04f0: 63 75 74 65 20 2d 65 78 65 63 75 74 65 20 73 63  cute -execute sc
0500: 61 6c 61 72 20 24 64 62 20 5c 0d 0a 20 20 20 20  alar $db \..    
0510: 20 20 22 53 45 4c 45 43 54 20 43 4f 55 4e 54 28    "SELECT COUNT(
0520: 2a 29 20 46 52 4f 4d 20 74 31 3b 22 7d 20 65 72  *) FROM t1;"} er
0530: 72 6f 72 5d 20 5c 0d 0a 20 20 20 20 20 20 5b 65  ror] \..      [e
0540: 78 74 72 61 63 74 53 79 73 74 65 6d 44 61 74 61  xtractSystemData
0550: 53 51 4c 69 74 65 45 78 63 65 70 74 69 6f 6e 4d  SQLiteExceptionM
0560: 65 73 73 61 67 65 20 24 65 72 72 6f 72 5d 0d 0a  essage $error]..
0570: 0d 0a 20 20 73 65 74 20 63 6f 6e 6e 65 63 74 69  ..  set connecti
0580: 6f 6e 20 5b 67 65 74 44 62 43 6f 6e 6e 65 63 74  on [getDbConnect
0590: 69 6f 6e 5d 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e  ion]....  lappen
05a0: 64 20 72 65 73 75 6c 74 20 5b 24 63 6f 6e 6e 65  d result [$conne
05b0: 63 74 69 6f 6e 20 2d 66 6c 61 67 73 20 2b 4e 6f  ction -flags +No
05c0: 6e 50 75 62 6c 69 63 20 5f 70 61 73 73 77 6f 72  nPublic _passwor
05d0: 64 5d 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e 64 20  d]....  lappend 
05e0: 72 65 73 75 6c 74 20 5b 65 78 70 72 20 7b 0d 0a  result [expr {..
05f0: 20 20 20 20 5b 73 74 72 69 6e 67 20 66 69 72 73      [string firs
0600: 74 20 31 32 33 34 20 5b 24 63 6f 6e 6e 65 63 74  t 1234 [$connect
0610: 69 6f 6e 20 43 6f 6e 6e 65 63 74 69 6f 6e 53 74  ion ConnectionSt
0620: 72 69 6e 67 5d 5d 20 21 3d 20 2d 31 0d 0a 20 20  ring]] != -1..  
0630: 7d 5d 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e 64 20  }]....  lappend 
0640: 72 65 73 75 6c 74 20 5b 65 78 70 72 20 7b 0d 0a  result [expr {..
0650: 20 20 20 20 5b 73 74 72 69 6e 67 20 66 69 72 73      [string firs
0660: 74 20 22 3b 50 61 73 73 77 6f 72 64 3d 3b 22 20  t ";Password=;" 
0670: 5b 24 63 6f 6e 6e 65 63 74 69 6f 6e 20 43 6f 6e  [$connection Con
0680: 6e 65 63 74 69 6f 6e 53 74 72 69 6e 67 5d 5d 20  nectionString]] 
0690: 21 3d 20 2d 31 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20  != -1..  }].... 
06a0: 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20   lappend result 
06b0: 5b 65 78 70 72 20 7b 0d 0a 20 20 20 20 5b 73 74  [expr {..    [st
06c0: 72 69 6e 67 20 66 69 72 73 74 20 22 3b 48 65 78  ring first ";Hex
06d0: 50 61 73 73 77 6f 72 64 3d 3b 22 20 5b 24 63 6f  Password=;" [$co
06e0: 6e 6e 65 63 74 69 6f 6e 20 43 6f 6e 6e 65 63 74  nnection Connect
06f0: 69 6f 6e 53 74 72 69 6e 67 5d 5d 20 21 3d 20 2d  ionString]] != -
0700: 31 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 20 73 65 74  1..  }]....  set
0710: 20 72 65 73 75 6c 74 0d 0a 7d 20 2d 63 6c 65 61   result..} -clea
0720: 6e 75 70 20 7b 0d 0a 20 20 66 72 65 65 44 62 43  nup {..  freeDbC
0730: 6f 6e 6e 65 63 74 69 6f 6e 0d 0a 0d 0a 20 20 75  onnection....  u
0740: 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  nset -nocomplain
0750: 20 63 6f 6e 6e 65 63 74 69 6f 6e 0d 0a 0d 0a 20   connection.... 
0760: 20 63 6c 65 61 6e 75 70 44 62 20 24 66 69 6c 65   cleanupDb $file
0770: 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65 74 20  Name....  unset 
0780: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 65 72 72 6f  -nocomplain erro
0790: 72 20 72 65 73 75 6c 74 20 64 62 20 66 69 6c 65  r result db file
07a0: 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61  Name..} -constra
07b0: 69 6e 74 73 20 7b 65 61 67 6c 65 20 53 79 73 74  ints {eagle Syst
07c0: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 45  em.Data.SQLite.E
07d0: 6e 63 72 79 70 74 69 6f 6e 20 6d 6f 6e 6f 42 75  ncryption monoBu
07e0: 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c 5c  g28 command.sql\
07f0: 0d 0a 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53  ..compile.DATA S
0800: 51 4c 69 74 65 20 53 79 73 74 65 6d 2e 44 61 74  QLite System.Dat
0810: 61 2e 53 51 4c 69 74 65 7d 20 2d 72 65 73 75 6c  a.SQLite} -resul
0820: 74 20 5c 0d 0a 7b 30 20 31 20 30 20 31 20 30 20  t \..{0 1 0 1 0 
0830: 32 20 7b 7d 20 46 61 6c 73 65 20 54 72 75 65 20  2 {} False True 
0840: 46 61 6c 73 65 7d 7d 0d 0a 0d 0a 23 23 23 23 23  False}}....#####
0850: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0860: 23 23 23 23 23 23 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 0d 0a 0d 0a 72 75  ##########....ru
08a0: 6e 54 65 73 74 20 7b 74 65 73 74 20 74 6b 74 2d  nTest {test tkt-
08b0: 32 33 64 38 64 36 31 37 31 65 2d 31 2e 32 20 7b  23d8d6171e-1.2 {
08c0: 48 69 64 65 50 61 73 73 77 6f 72 64 20 66 6c 61  HidePassword fla
08d0: 67 20 77 2f 48 65 78 50 61 73 73 77 6f 72 64 7d  g w/HexPassword}
08e0: 20 2d 73 65 74 75 70 20 7b 0d 0a 20 20 73 65 74   -setup {..  set
08f0: 75 70 44 62 20 5b 73 65 74 20 66 69 6c 65 4e 61  upDb [set fileNa
0900: 6d 65 20 74 6b 74 2d 32 33 64 38 64 36 31 37 31  me tkt-23d8d6171
0910: 65 2d 31 2e 32 2e 64 62 5d 20 22 22 20 22 22 20  e-1.2.db] "" "" 
0920: 22 22 20 48 69 64 65 50 61 73 73 77 6f 72 64 20  "" HidePassword 
0930: 5c 0d 0a 20 20 20 20 20 20 22 48 65 78 50 61 73  \..      "HexPas
0940: 73 77 6f 72 64 3d 31 32 33 34 3b 22 0d 0a 7d 20  sword=1234;"..} 
0950: 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 71 6c 20 65  -body {..  sql e
0960: 78 65 63 75 74 65 20 24 64 62 20 22 43 52 45 41  xecute $db "CREA
0970: 54 45 20 54 41 42 4c 45 20 74 31 28 78 29 3b 22  TE TABLE t1(x);"
0980: 0d 0a 20 20 73 71 6c 20 65 78 65 63 75 74 65 20  ..  sql execute 
0990: 24 64 62 20 22 49 4e 53 45 52 54 20 49 4e 54 4f  $db "INSERT INTO
09a0: 20 74 31 20 28 78 29 20 56 41 4c 55 45 53 28 31   t1 (x) VALUES(1
09b0: 29 3b 22 0d 0a 0d 0a 20 20 73 65 74 20 72 65 73  );"....  set res
09c0: 75 6c 74 20 5b 6c 69 73 74 5d 0d 0a 0d 0a 20 20  ult [list]....  
09d0: 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b  lappend result [
09e0: 63 61 74 63 68 20 7b 73 71 6c 20 65 78 65 63 75  catch {sql execu
09f0: 74 65 20 2d 65 78 65 63 75 74 65 20 73 63 61 6c  te -execute scal
0a00: 61 72 20 24 64 62 20 5c 0d 0a 20 20 20 20 20 20  ar $db \..      
0a10: 22 53 45 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29  "SELECT COUNT(*)
0a20: 20 46 52 4f 4d 20 74 31 3b 22 7d 20 65 72 72 6f   FROM t1;"} erro
0a30: 72 5d 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 74  r] \..      [ext
0a40: 72 61 63 74 53 79 73 74 65 6d 44 61 74 61 53 51  ractSystemDataSQ
0a50: 4c 69 74 65 45 78 63 65 70 74 69 6f 6e 4d 65 73  LiteExceptionMes
0a60: 73 61 67 65 20 24 65 72 72 6f 72 5d 0d 0a 0d 0a  sage $error]....
0a70: 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74    lappend result
0a80: 20 5b 63 61 74 63 68 20 7b 73 71 6c 20 65 78 65   [catch {sql exe
0a90: 63 75 74 65 20 24 64 62 20 5c 0d 0a 20 20 20 20  cute $db \..    
0aa0: 20 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 74    "INSERT INTO t
0ab0: 31 20 28 78 29 20 56 41 4c 55 45 53 28 31 29 3b  1 (x) VALUES(1);
0ac0: 22 7d 20 65 72 72 6f 72 5d 20 5c 0d 0a 20 20 20  "} error] \..   
0ad0: 20 20 20 5b 65 78 74 72 61 63 74 53 79 73 74 65     [extractSyste
0ae0: 6d 44 61 74 61 53 51 4c 69 74 65 45 78 63 65 70  mDataSQLiteExcep
0af0: 74 69 6f 6e 4d 65 73 73 61 67 65 20 24 65 72 72  tionMessage $err
0b00: 6f 72 5d 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e 64  or]....  lappend
0b10: 20 72 65 73 75 6c 74 20 5b 63 61 74 63 68 20 7b   result [catch {
0b20: 73 71 6c 20 65 78 65 63 75 74 65 20 2d 65 78 65  sql execute -exe
0b30: 63 75 74 65 20 73 63 61 6c 61 72 20 24 64 62 20  cute scalar $db 
0b40: 5c 0d 0a 20 20 20 20 20 20 22 53 45 4c 45 43 54  \..      "SELECT
0b50: 20 43 4f 55 4e 54 28 2a 29 20 46 52 4f 4d 20 74   COUNT(*) FROM t
0b60: 31 3b 22 7d 20 65 72 72 6f 72 5d 20 5c 0d 0a 20  1;"} error] \.. 
0b70: 20 20 20 20 20 5b 65 78 74 72 61 63 74 53 79 73       [extractSys
0b80: 74 65 6d 44 61 74 61 53 51 4c 69 74 65 45 78 63  temDataSQLiteExc
0b90: 65 70 74 69 6f 6e 4d 65 73 73 61 67 65 20 24 65  eptionMessage $e
0ba0: 72 72 6f 72 5d 0d 0a 0d 0a 20 20 73 65 74 20 63  rror]....  set c
0bb0: 6f 6e 6e 65 63 74 69 6f 6e 20 5b 67 65 74 44 62  onnection [getDb
0bc0: 43 6f 6e 6e 65 63 74 69 6f 6e 5d 0d 0a 0d 0a 20  Connection].... 
0bd0: 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20   lappend result 
0be0: 5b 24 63 6f 6e 6e 65 63 74 69 6f 6e 20 2d 66 6c  [$connection -fl
0bf0: 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 5f  ags +NonPublic _
0c00: 70 61 73 73 77 6f 72 64 5d 0d 0a 0d 0a 20 20 6c  password]....  l
0c10: 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 65  append result [e
0c20: 78 70 72 20 7b 0d 0a 20 20 20 20 5b 73 74 72 69  xpr {..    [stri
0c30: 6e 67 20 66 69 72 73 74 20 31 32 33 34 20 5b 24  ng first 1234 [$
0c40: 63 6f 6e 6e 65 63 74 69 6f 6e 20 43 6f 6e 6e 65  connection Conne
0c50: 63 74 69 6f 6e 53 74 72 69 6e 67 5d 5d 20 21 3d  ctionString]] !=
0c60: 20 2d 31 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 20 6c   -1..  }]....  l
0c70: 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 65  append result [e
0c80: 78 70 72 20 7b 0d 0a 20 20 20 20 5b 73 74 72 69  xpr {..    [stri
0c90: 6e 67 20 66 69 72 73 74 20 22 3b 50 61 73 73 77  ng first ";Passw
0ca0: 6f 72 64 3d 3b 22 20 5b 24 63 6f 6e 6e 65 63 74  ord=;" [$connect
0cb0: 69 6f 6e 20 43 6f 6e 6e 65 63 74 69 6f 6e 53 74  ion ConnectionSt
0cc0: 72 69 6e 67 5d 5d 20 21 3d 20 2d 31 0d 0a 20 20  ring]] != -1..  
0cd0: 7d 5d 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e 64 20  }]....  lappend 
0ce0: 72 65 73 75 6c 74 20 5b 65 78 70 72 20 7b 0d 0a  result [expr {..
0cf0: 20 20 20 20 5b 73 74 72 69 6e 67 20 66 69 72 73      [string firs
0d00: 74 20 22 3b 48 65 78 50 61 73 73 77 6f 72 64 3d  t ";HexPassword=
0d10: 3b 22 20 5b 24 63 6f 6e 6e 65 63 74 69 6f 6e 20  ;" [$connection 
0d20: 43 6f 6e 6e 65 63 74 69 6f 6e 53 74 72 69 6e 67  ConnectionString
0d30: 5d 5d 20 21 3d 20 2d 31 0d 0a 20 20 7d 5d 0d 0a  ]] != -1..  }]..
0d40: 0d 0a 20 20 73 65 74 20 72 65 73 75 6c 74 0d 0a  ..  set result..
0d50: 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 20  } -cleanup {..  
0d60: 66 72 65 65 44 62 43 6f 6e 6e 65 63 74 69 6f 6e  freeDbConnection
0d70: 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63  ....  unset -noc
0d80: 6f 6d 70 6c 61 69 6e 20 63 6f 6e 6e 65 63 74 69  omplain connecti
0d90: 6f 6e 0d 0a 0d 0a 20 20 63 6c 65 61 6e 75 70 44  on....  cleanupD
0da0: 62 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20  b $fileName.... 
0db0: 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61   unset -nocompla
0dc0: 69 6e 20 65 72 72 6f 72 20 72 65 73 75 6c 74 20  in error result 
0dd0: 64 62 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d  db fileName..} -
0de0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67  constraints {eag
0df0: 6c 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  le System.Data.S
0e00: 51 4c 69 74 65 2e 45 6e 63 72 79 70 74 69 6f 6e  QLite.Encryption
0e10: 20 6d 6f 6e 6f 42 75 67 32 38 20 63 6f 6d 6d 61   monoBug28 comma
0e20: 6e 64 2e 73 71 6c 5c 0d 0a 63 6f 6d 70 69 6c 65  nd.sql\..compile
0e30: 2e 44 41 54 41 20 53 51 4c 69 74 65 20 53 79 73  .DATA SQLite Sys
0e40: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 7d  tem.Data.SQLite}
0e50: 20 2d 72 65 73 75 6c 74 20 5c 0d 0a 7b 30 20 31   -result \..{0 1
0e60: 20 30 20 31 20 30 20 32 20 7b 7d 20 46 61 6c 73   0 1 0 2 {} Fals
0e70: 65 20 46 61 6c 73 65 20 54 72 75 65 7d 7d 0d 0a  e False True}}..
0e80: 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ..##############
0e90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0ea0: 23 23 23 23 23 23 23 23 23 23 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 0d 0a 0d 0a 72 75 6e 53 51 4c 69 74 65 54 65  #....runSQLiteTe
0ee0: 73 74 45 70 69 6c 6f 67 75 65 0d 0a 72 75 6e 54  stEpilogue..runT
0ef0: 65 73 74 45 70 69 6c 6f 67 75 65 0d 0a           estEpilogue..