System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact b5dbd7d9fb8560c69432c8310a00f4a2fc0e03e8:


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 39 36 34 30 36 33  .#..# tkt-964063
0060: 64 61 31 36 2e 65 61 67 6c 65 20 2d 2d 0d 0a 23  da16.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 39  Test {test tkt-9
0280: 36 34 30 36 33 64 61 31 36 2d 31 2e 31 20 7b 70  64063da16-1.1 {p
0290: 72 65 2d 65 78 69 73 74 69 6e 67 20 63 6f 6e 6e  re-existing conn
02a0: 65 63 74 69 6f 6e 20 66 6c 61 67 73 7d 20 2d 62  ection flags} -b
02b0: 6f 64 79 20 7b 0d 0a 20 20 73 65 74 20 63 6f 6e  ody {..  set con
02c0: 6e 65 63 74 69 6f 6e 20 5b 6f 62 6a 65 63 74 20  nection [object 
02d0: 63 72 65 61 74 65 20 2d 61 6c 69 61 73 20 5c 0d  create -alias \.
02e0: 0a 20 20 20 20 20 20 53 79 73 74 65 6d 2e 44 61  .      System.Da
02f0: 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 65  ta.SQLite.SQLite
0300: 43 6f 6e 6e 65 63 74 69 6f 6e 20 5c 0d 0a 20 20  Connection \..  
0310: 20 20 20 20 22 44 61 74 61 20 53 6f 75 72 63 65      "Data Source
0320: 3d 3a 6d 65 6d 6f 72 79 3a 3b 4e 6f 44 65 66 61  =:memory:;NoDefa
0330: 75 6c 74 46 6c 61 67 73 3d 46 61 6c 73 65 3b 22  ultFlags=False;"
0340: 5d 0d 0a 0d 0a 20 20 24 63 6f 6e 6e 65 63 74 69  ]....  $connecti
0350: 6f 6e 20 4f 70 65 6e 0d 0a 20 20 24 63 6f 6e 6e  on Open..  $conn
0360: 65 63 74 69 6f 6e 20 46 6c 61 67 73 0d 0a 7d 20  ection Flags..} 
0370: 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 75 6e  -cleanup {..  un
0380: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  set -nocomplain 
0390: 63 6f 6e 6e 65 63 74 69 6f 6e 0d 0a 7d 20 2d 63  connection..} -c
03a0: 6f 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67 6c  onstraints {eagl
03b0: 65 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74  e command.object
03c0: 20 53 51 4c 69 74 65 20 53 79 73 74 65 6d 2e 44   SQLite System.D
03d0: 61 74 61 2e 53 51 4c 69 74 65 7d 20 2d 6d 61 74  ata.SQLite} -mat
03e0: 63 68 20 72 65 67 65 78 70 20 5c 0d 0a 2d 72 65  ch regexp \..-re
03f0: 73 75 6c 74 20 7b 5e 44 65 66 61 75 6c 74 7c 4c  sult {^Default|L
0400: 6f 67 43 61 6c 6c 62 61 63 6b 45 78 63 65 70 74  ogCallbackExcept
0410: 69 6f 6e 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23  ion$}}....######
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 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0460: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e  #########....run
0470: 54 65 73 74 20 7b 74 65 73 74 20 74 6b 74 2d 39  Test {test tkt-9
0480: 36 34 30 36 33 64 61 31 36 2d 31 2e 32 20 7b 70  64063da16-1.2 {p
0490: 72 65 2d 65 78 69 73 74 69 6e 67 20 63 6f 6e 6e  re-existing conn
04a0: 65 63 74 69 6f 6e 20 66 6c 61 67 73 7d 20 2d 62  ection flags} -b
04b0: 6f 64 79 20 7b 0d 0a 20 20 73 65 74 20 63 6f 6e  ody {..  set con
04c0: 6e 65 63 74 69 6f 6e 20 5b 6f 62 6a 65 63 74 20  nection [object 
04d0: 63 72 65 61 74 65 20 2d 61 6c 69 61 73 20 5c 0d  create -alias \.
04e0: 0a 20 20 20 20 20 20 53 79 73 74 65 6d 2e 44 61  .      System.Da
04f0: 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 65  ta.SQLite.SQLite
0500: 43 6f 6e 6e 65 63 74 69 6f 6e 20 5c 0d 0a 20 20  Connection \..  
0510: 20 20 20 20 22 44 61 74 61 20 53 6f 75 72 63 65      "Data Source
0520: 3d 3a 6d 65 6d 6f 72 79 3a 3b 4e 6f 44 65 66 61  =:memory:;NoDefa
0530: 75 6c 74 46 6c 61 67 73 3d 54 72 75 65 3b 22 5d  ultFlags=True;"]
0540: 0d 0a 0d 0a 20 20 24 63 6f 6e 6e 65 63 74 69 6f  ....  $connectio
0550: 6e 20 4f 70 65 6e 0d 0a 20 20 24 63 6f 6e 6e 65  n Open..  $conne
0560: 63 74 69 6f 6e 20 46 6c 61 67 73 0d 0a 7d 20 2d  ction Flags..} -
0570: 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 75 6e 73  cleanup {..  uns
0580: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 63  et -nocomplain c
0590: 6f 6e 6e 65 63 74 69 6f 6e 0d 0a 7d 20 2d 63 6f  onnection..} -co
05a0: 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67 6c 65  nstraints {eagle
05b0: 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74 20   command.object 
05c0: 53 51 4c 69 74 65 20 53 79 73 74 65 6d 2e 44 61  SQLite System.Da
05d0: 74 61 2e 53 51 4c 69 74 65 7d 20 2d 72 65 73 75  ta.SQLite} -resu
05e0: 6c 74 20 5c 0d 0a 7b 4e 6f 6e 65 7d 7d 0d 0a 0d  lt \..{None}}...
05f0: 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  .###############
0600: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0610: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0620: 23 23 23 23 23 23 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: 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b 74 65 73  ....runTest {tes
0650: 74 20 74 6b 74 2d 39 36 34 30 36 33 64 61 31 36  t tkt-964063da16
0660: 2d 31 2e 33 20 7b 70 72 65 2d 65 78 69 73 74 69  -1.3 {pre-existi
0670: 6e 67 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6c  ng connection fl
0680: 61 67 73 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20 20  ags} -body {..  
0690: 73 65 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 5b  set connection [
06a0: 6f 62 6a 65 63 74 20 63 72 65 61 74 65 20 2d 61  object create -a
06b0: 6c 69 61 73 20 5c 0d 0a 20 20 20 20 20 20 53 79  lias \..      Sy
06c0: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65  stem.Data.SQLite
06d0: 2e 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f  .SQLiteConnectio
06e0: 6e 20 5c 0d 0a 20 20 20 20 20 20 22 44 61 74 61  n \..      "Data
06f0: 20 53 6f 75 72 63 65 3d 3a 6d 65 6d 6f 72 79 3a   Source=:memory:
0700: 3b 4e 6f 44 65 66 61 75 6c 74 46 6c 61 67 73 3d  ;NoDefaultFlags=
0710: 46 61 6c 73 65 3b 22 5d 0d 0a 0d 0a 20 20 24 63  False;"]....  $c
0720: 6f 6e 6e 65 63 74 69 6f 6e 20 46 6c 61 67 73 20  onnection Flags 
0730: 4e 6f 45 78 74 65 6e 73 69 6f 6e 46 75 6e 63 74  NoExtensionFunct
0740: 69 6f 6e 73 3b 20 24 63 6f 6e 6e 65 63 74 69 6f  ions; $connectio
0750: 6e 20 4f 70 65 6e 0d 0a 20 20 24 63 6f 6e 6e 65  n Open..  $conne
0760: 63 74 69 6f 6e 20 46 6c 61 67 73 0d 0a 7d 20 2d  ction Flags..} -
0770: 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 75 6e 73  cleanup {..  uns
0780: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 63  et -nocomplain c
0790: 6f 6e 6e 65 63 74 69 6f 6e 0d 0a 7d 20 2d 63 6f  onnection..} -co
07a0: 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67 6c 65  nstraints {eagle
07b0: 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74 20   command.object 
07c0: 53 51 4c 69 74 65 20 53 79 73 74 65 6d 2e 44 61  SQLite System.Da
07d0: 74 61 2e 53 51 4c 69 74 65 7d 20 2d 6d 61 74 63  ta.SQLite} -matc
07e0: 68 20 72 65 67 65 78 70 20 5c 0d 0a 2d 72 65 73  h regexp \..-res
07f0: 75 6c 74 20 7b 5e 44 65 66 61 75 6c 74 2c 20 4e  ult {^Default, N
0800: 6f 45 78 74 65 6e 73 69 6f 6e 46 75 6e 63 74 69  oExtensionFuncti
0810: 6f 6e 73 7c 4e 6f 45 78 74 65 6e 73 69 6f 6e 46  ons|NoExtensionF
0820: 75 6e 63 74 69 6f 6e 73 2c 5c 0d 0a 44 65 66 61  unctions,\..Defa
0830: 75 6c 74 7c 4c 6f 67 43 61 6c 6c 62 61 63 6b 45  ult|LogCallbackE
0840: 78 63 65 70 74 69 6f 6e 2c 20 4e 6f 45 78 74 65  xception, NoExte
0850: 6e 73 69 6f 6e 46 75 6e 63 74 69 6f 6e 73 24 7d  nsionFunctions$}
0860: 7d 0d 0a 0d 0a 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 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 0d 0a 0d 0a 72 75 6e 54 65 73 74 20  ####....runTest 
08c0: 7b 74 65 73 74 20 74 6b 74 2d 39 36 34 30 36 33  {test tkt-964063
08d0: 64 61 31 36 2d 31 2e 34 20 7b 70 72 65 2d 65 78  da16-1.4 {pre-ex
08e0: 69 73 74 69 6e 67 20 63 6f 6e 6e 65 63 74 69 6f  isting connectio
08f0: 6e 20 66 6c 61 67 73 7d 20 2d 62 6f 64 79 20 7b  n flags} -body {
0900: 0d 0a 20 20 73 65 74 20 63 6f 6e 6e 65 63 74 69  ..  set connecti
0910: 6f 6e 20 5b 6f 62 6a 65 63 74 20 63 72 65 61 74  on [object creat
0920: 65 20 2d 61 6c 69 61 73 20 5c 0d 0a 20 20 20 20  e -alias \..    
0930: 20 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51    System.Data.SQ
0940: 4c 69 74 65 2e 53 51 4c 69 74 65 43 6f 6e 6e 65  Lite.SQLiteConne
0950: 63 74 69 6f 6e 20 5c 0d 0a 20 20 20 20 20 20 22  ction \..      "
0960: 44 61 74 61 20 53 6f 75 72 63 65 3d 3a 6d 65 6d  Data Source=:mem
0970: 6f 72 79 3a 3b 4e 6f 44 65 66 61 75 6c 74 46 6c  ory:;NoDefaultFl
0980: 61 67 73 3d 54 72 75 65 3b 22 5d 0d 0a 0d 0a 20  ags=True;"].... 
0990: 20 24 63 6f 6e 6e 65 63 74 69 6f 6e 20 46 6c 61   $connection Fla
09a0: 67 73 20 4e 6f 45 78 74 65 6e 73 69 6f 6e 46 75  gs NoExtensionFu
09b0: 6e 63 74 69 6f 6e 73 3b 20 24 63 6f 6e 6e 65 63  nctions; $connec
09c0: 74 69 6f 6e 20 4f 70 65 6e 0d 0a 20 20 24 63 6f  tion Open..  $co
09d0: 6e 6e 65 63 74 69 6f 6e 20 46 6c 61 67 73 0d 0a  nnection Flags..
09e0: 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 20  } -cleanup {..  
09f0: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69  unset -nocomplai
0a00: 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 0d 0a 7d 20  n connection..} 
0a10: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 65 61  -constraints {ea
0a20: 67 6c 65 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a 65  gle command.obje
0a30: 63 74 20 53 51 4c 69 74 65 20 53 79 73 74 65 6d  ct SQLite System
0a40: 2e 44 61 74 61 2e 53 51 4c 69 74 65 7d 20 2d 72  .Data.SQLite} -r
0a50: 65 73 75 6c 74 20 5c 0d 0a 7b 4e 6f 45 78 74 65  esult \..{NoExte
0a60: 6e 73 69 6f 6e 46 75 6e 63 74 69 6f 6e 73 7d 7d  nsionFunctions}}
0a70: 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23  ....############
0a80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0a90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0aa0: 23 23 23 23 23 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 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b  ###....runTest {
0ad0: 74 65 73 74 20 74 6b 74 2d 39 36 34 30 36 33 64  test tkt-964063d
0ae0: 61 31 36 2d 31 2e 35 20 7b 70 72 65 2d 65 78 69  a16-1.5 {pre-exi
0af0: 73 74 69 6e 67 20 63 6f 6e 6e 65 63 74 69 6f 6e  sting connection
0b00: 20 66 6c 61 67 73 7d 20 2d 62 6f 64 79 20 7b 0d   flags} -body {.
0b10: 0a 20 20 73 65 74 20 63 6f 6e 6e 65 63 74 69 6f  .  set connectio
0b20: 6e 20 5b 6f 62 6a 65 63 74 20 63 72 65 61 74 65  n [object create
0b30: 20 2d 61 6c 69 61 73 20 5c 0d 0a 20 20 20 20 20   -alias \..     
0b40: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
0b50: 69 74 65 2e 53 51 4c 69 74 65 43 6f 6e 6e 65 63  ite.SQLiteConnec
0b60: 74 69 6f 6e 20 5c 0d 0a 20 20 20 20 20 20 22 44  tion \..      "D
0b70: 61 74 61 20 53 6f 75 72 63 65 3d 3a 6d 65 6d 6f  ata Source=:memo
0b80: 72 79 3a 3b 4e 6f 44 65 66 61 75 6c 74 46 6c 61  ry:;NoDefaultFla
0b90: 67 73 3d 46 61 6c 73 65 3b 46 6c 61 67 73 3d 47  gs=False;Flags=G
0ba0: 65 74 41 6c 6c 41 73 54 65 78 74 3b 22 5d 0d 0a  etAllAsText;"]..
0bb0: 0d 0a 20 20 24 63 6f 6e 6e 65 63 74 69 6f 6e 20  ..  $connection 
0bc0: 4f 70 65 6e 0d 0a 20 20 24 63 6f 6e 6e 65 63 74  Open..  $connect
0bd0: 69 6f 6e 20 46 6c 61 67 73 0d 0a 7d 20 2d 63 6c  ion Flags..} -cl
0be0: 65 61 6e 75 70 20 7b 0d 0a 20 20 75 6e 73 65 74  eanup {..  unset
0bf0: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 63 6f 6e   -nocomplain con
0c00: 6e 65 63 74 69 6f 6e 0d 0a 7d 20 2d 63 6f 6e 73  nection..} -cons
0c10: 74 72 61 69 6e 74 73 20 7b 65 61 67 6c 65 20 63  traints {eagle c
0c20: 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74 20 53 51  ommand.object SQ
0c30: 4c 69 74 65 20 53 79 73 74 65 6d 2e 44 61 74 61  Lite System.Data
0c40: 2e 53 51 4c 69 74 65 7d 20 2d 72 65 73 75 6c 74  .SQLite} -result
0c50: 20 5c 0d 0a 7b 47 65 74 41 6c 6c 41 73 54 65 78   \..{GetAllAsTex
0c60: 74 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23  t}}....#########
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 39 36 34 30  t {test tkt-9640
0cd0: 36 33 64 61 31 36 2d 31 2e 36 20 7b 70 72 65 2d  63da16-1.6 {pre-
0ce0: 65 78 69 73 74 69 6e 67 20 63 6f 6e 6e 65 63 74  existing connect
0cf0: 69 6f 6e 20 66 6c 61 67 73 7d 20 2d 62 6f 64 79  ion flags} -body
0d00: 20 7b 0d 0a 20 20 73 65 74 20 63 6f 6e 6e 65 63   {..  set connec
0d10: 74 69 6f 6e 20 5b 6f 62 6a 65 63 74 20 63 72 65  tion [object cre
0d20: 61 74 65 20 2d 61 6c 69 61 73 20 5c 0d 0a 20 20  ate -alias \..  
0d30: 20 20 20 20 53 79 73 74 65 6d 2e 44 61 74 61 2e      System.Data.
0d40: 53 51 4c 69 74 65 2e 53 51 4c 69 74 65 43 6f 6e  SQLite.SQLiteCon
0d50: 6e 65 63 74 69 6f 6e 20 5c 0d 0a 20 20 20 20 20  nection \..     
0d60: 20 22 44 61 74 61 20 53 6f 75 72 63 65 3d 3a 6d   "Data Source=:m
0d70: 65 6d 6f 72 79 3a 3b 4e 6f 44 65 66 61 75 6c 74  emory:;NoDefault
0d80: 46 6c 61 67 73 3d 54 72 75 65 3b 46 6c 61 67 73  Flags=True;Flags
0d90: 3d 47 65 74 41 6c 6c 41 73 54 65 78 74 3b 22 5d  =GetAllAsText;"]
0da0: 0d 0a 0d 0a 20 20 24 63 6f 6e 6e 65 63 74 69 6f  ....  $connectio
0db0: 6e 20 4f 70 65 6e 0d 0a 20 20 24 63 6f 6e 6e 65  n Open..  $conne
0dc0: 63 74 69 6f 6e 20 46 6c 61 67 73 0d 0a 7d 20 2d  ction Flags..} -
0dd0: 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 75 6e 73  cleanup {..  uns
0de0: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 63  et -nocomplain c
0df0: 6f 6e 6e 65 63 74 69 6f 6e 0d 0a 7d 20 2d 63 6f  onnection..} -co
0e00: 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67 6c 65  nstraints {eagle
0e10: 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74 20   command.object 
0e20: 53 51 4c 69 74 65 20 53 79 73 74 65 6d 2e 44 61  SQLite System.Da
0e30: 74 61 2e 53 51 4c 69 74 65 7d 20 2d 72 65 73 75  ta.SQLite} -resu
0e40: 6c 74 20 5c 0d 0a 7b 47 65 74 41 6c 6c 41 73 54  lt \..{GetAllAsT
0e50: 65 78 74 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 23  ext}}....#######
0e60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0e70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0e80: 23 23 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 0d 0a 0d 0a 72 75 6e 54  ########....runT
0eb0: 65 73 74 20 7b 74 65 73 74 20 74 6b 74 2d 39 36  est {test tkt-96
0ec0: 34 30 36 33 64 61 31 36 2d 31 2e 37 20 7b 70 72  4063da16-1.7 {pr
0ed0: 65 2d 65 78 69 73 74 69 6e 67 20 63 6f 6e 6e 65  e-existing conne
0ee0: 63 74 69 6f 6e 20 66 6c 61 67 73 7d 20 2d 62 6f  ction flags} -bo
0ef0: 64 79 20 7b 0d 0a 20 20 73 65 74 20 63 6f 6e 6e  dy {..  set conn
0f00: 65 63 74 69 6f 6e 20 5b 6f 62 6a 65 63 74 20 63  ection [object c
0f10: 72 65 61 74 65 20 2d 61 6c 69 61 73 20 5c 0d 0a  reate -alias \..
0f20: 20 20 20 20 20 20 53 79 73 74 65 6d 2e 44 61 74        System.Dat
0f30: 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 65 43  a.SQLite.SQLiteC
0f40: 6f 6e 6e 65 63 74 69 6f 6e 20 5c 0d 0a 20 20 20  onnection \..   
0f50: 20 20 20 22 44 61 74 61 20 53 6f 75 72 63 65 3d     "Data Source=
0f60: 3a 6d 65 6d 6f 72 79 3a 3b 4e 6f 44 65 66 61 75  :memory:;NoDefau
0f70: 6c 74 46 6c 61 67 73 3d 46 61 6c 73 65 3b 46 6c  ltFlags=False;Fl
0f80: 61 67 73 3d 47 65 74 41 6c 6c 41 73 54 65 78 74  ags=GetAllAsText
0f90: 3b 22 5d 0d 0a 0d 0a 20 20 24 63 6f 6e 6e 65 63  ;"]....  $connec
0fa0: 74 69 6f 6e 20 46 6c 61 67 73 20 4e 6f 45 78 74  tion Flags NoExt
0fb0: 65 6e 73 69 6f 6e 46 75 6e 63 74 69 6f 6e 73 3b  ensionFunctions;
0fc0: 20 24 63 6f 6e 6e 65 63 74 69 6f 6e 20 4f 70 65   $connection Ope
0fd0: 6e 0d 0a 20 20 24 63 6f 6e 6e 65 63 74 69 6f 6e  n..  $connection
0fe0: 20 46 6c 61 67 73 0d 0a 7d 20 2d 63 6c 65 61 6e   Flags..} -clean
0ff0: 75 70 20 7b 0d 0a 20 20 75 6e 73 65 74 20 2d 6e  up {..  unset -n
1000: 6f 63 6f 6d 70 6c 61 69 6e 20 63 6f 6e 6e 65 63  ocomplain connec
1010: 74 69 6f 6e 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61  tion..} -constra
1020: 69 6e 74 73 20 7b 65 61 67 6c 65 20 63 6f 6d 6d  ints {eagle comm
1030: 61 6e 64 2e 6f 62 6a 65 63 74 20 53 51 4c 69 74  and.object SQLit
1040: 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  e System.Data.SQ
1050: 4c 69 74 65 7d 20 2d 72 65 73 75 6c 74 20 5c 0d  Lite} -result \.
1060: 0a 7b 4e 6f 45 78 74 65 6e 73 69 6f 6e 46 75 6e  .{NoExtensionFun
1070: 63 74 69 6f 6e 73 2c 20 47 65 74 41 6c 6c 41 73  ctions, GetAllAs
1080: 54 65 78 74 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23  Text}}....######
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 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
10d0: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e  #########....run
10e0: 54 65 73 74 20 7b 74 65 73 74 20 74 6b 74 2d 39  Test {test tkt-9
10f0: 36 34 30 36 33 64 61 31 36 2d 31 2e 38 20 7b 70  64063da16-1.8 {p
1100: 72 65 2d 65 78 69 73 74 69 6e 67 20 63 6f 6e 6e  re-existing conn
1110: 65 63 74 69 6f 6e 20 66 6c 61 67 73 7d 20 2d 62  ection flags} -b
1120: 6f 64 79 20 7b 0d 0a 20 20 73 65 74 20 63 6f 6e  ody {..  set con
1130: 6e 65 63 74 69 6f 6e 20 5b 6f 62 6a 65 63 74 20  nection [object 
1140: 63 72 65 61 74 65 20 2d 61 6c 69 61 73 20 5c 0d  create -alias \.
1150: 0a 20 20 20 20 20 20 53 79 73 74 65 6d 2e 44 61  .      System.Da
1160: 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 65  ta.SQLite.SQLite
1170: 43 6f 6e 6e 65 63 74 69 6f 6e 20 5c 0d 0a 20 20  Connection \..  
1180: 20 20 20 20 22 44 61 74 61 20 53 6f 75 72 63 65      "Data Source
1190: 3d 3a 6d 65 6d 6f 72 79 3a 3b 4e 6f 44 65 66 61  =:memory:;NoDefa
11a0: 75 6c 74 46 6c 61 67 73 3d 54 72 75 65 3b 46 6c  ultFlags=True;Fl
11b0: 61 67 73 3d 47 65 74 41 6c 6c 41 73 54 65 78 74  ags=GetAllAsText
11c0: 3b 22 5d 0d 0a 0d 0a 20 20 24 63 6f 6e 6e 65 63  ;"]....  $connec
11d0: 74 69 6f 6e 20 46 6c 61 67 73 20 4e 6f 45 78 74  tion Flags NoExt
11e0: 65 6e 73 69 6f 6e 46 75 6e 63 74 69 6f 6e 73 3b  ensionFunctions;
11f0: 20 24 63 6f 6e 6e 65 63 74 69 6f 6e 20 4f 70 65   $connection Ope
1200: 6e 0d 0a 20 20 24 63 6f 6e 6e 65 63 74 69 6f 6e  n..  $connection
1210: 20 46 6c 61 67 73 0d 0a 7d 20 2d 63 6c 65 61 6e   Flags..} -clean
1220: 75 70 20 7b 0d 0a 20 20 75 6e 73 65 74 20 2d 6e  up {..  unset -n
1230: 6f 63 6f 6d 70 6c 61 69 6e 20 63 6f 6e 6e 65 63  ocomplain connec
1240: 74 69 6f 6e 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61  tion..} -constra
1250: 69 6e 74 73 20 7b 65 61 67 6c 65 20 63 6f 6d 6d  ints {eagle comm
1260: 61 6e 64 2e 6f 62 6a 65 63 74 20 53 51 4c 69 74  and.object SQLit
1270: 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  e System.Data.SQ
1280: 4c 69 74 65 7d 20 2d 72 65 73 75 6c 74 20 5c 0d  Lite} -result \.
1290: 0a 7b 4e 6f 45 78 74 65 6e 73 69 6f 6e 46 75 6e  .{NoExtensionFun
12a0: 63 74 69 6f 6e 73 2c 20 47 65 74 41 6c 6c 41 73  ctions, GetAllAs
12b0: 54 65 78 74 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23  Text}}....######
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 23 23 23  ################
1300: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e  #########....run
1310: 53 51 4c 69 74 65 54 65 73 74 45 70 69 6c 6f 67  SQLiteTestEpilog
1320: 75 65 0d 0a 72 75 6e 54 65 73 74 45 70 69 6c 6f  ue..runTestEpilo
1330: 67 75 65 0d 0a                                   gue..