System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact 1b157dff4765b0e4b365a98efe323f2fa27e138a:


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 61 37 64 30 34 66  .#..# tkt-a7d04f
0060: 62 31 31 31 2e 65 61 67 6c 65 20 2d 2d 0d 0a 23  b111.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 73 65 74  #########....set
0270: 20 72 61 77 44 61 74 65 54 69 6d 65 56 61 6c 75   rawDateTimeValu
0280: 65 20 22 32 30 31 35 2d 30 32 2d 31 38 20 30 30  e "2015-02-18 00
0290: 3a 30 30 3a 30 30 2e 30 30 30 30 30 30 30 22 0d  :00:00.0000000".
02a0: 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  ...#############
02b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
02c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
02d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
02e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
02f0: 23 23 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b 74  ##....runTest {t
0300: 65 73 74 20 74 6b 74 2d 61 37 64 30 34 66 62 31  est tkt-a7d04fb1
0310: 31 31 2d 31 2e 31 20 7b 42 69 6e 64 20 44 61 74  11-1.1 {Bind Dat
0320: 65 54 69 6d 65 20 55 74 63 20 54 69 63 6b 73 7d  eTime Utc Ticks}
0330: 20 2d 73 65 74 75 70 20 7b 0d 0a 20 20 73 65 74   -setup {..  set
0340: 75 70 44 62 20 5b 73 65 74 20 66 69 6c 65 4e 61  upDb [set fileNa
0350: 6d 65 20 74 6b 74 2d 61 37 64 30 34 66 62 31 31  me tkt-a7d04fb11
0360: 31 2d 31 2e 31 2e 64 62 5d 20 22 22 20 54 69 63  1-1.1.db] "" Tic
0370: 6b 73 20 55 74 63 20 5c 0d 0a 20 20 20 20 20 20  ks Utc \..      
0380: 42 69 6e 64 44 61 74 65 54 69 6d 65 57 69 74 68  BindDateTimeWith
0390: 4b 69 6e 64 0d 0a 7d 20 2d 62 6f 64 79 20 7b 0d  Kind..} -body {.
03a0: 0a 20 20 73 65 74 20 64 61 74 65 54 69 6d 65 56  .  set dateTimeV
03b0: 61 6c 75 65 28 30 29 20 5b 6f 62 6a 65 63 74 20  alue(0) [object 
03c0: 69 6e 76 6f 6b 65 20 5c 0d 0a 20 20 20 20 20 20  invoke \..      
03d0: 2d 63 72 65 61 74 65 20 44 61 74 65 54 69 6d 65  -create DateTime
03e0: 20 50 61 72 73 65 45 78 61 63 74 20 24 72 61 77   ParseExact $raw
03f0: 44 61 74 65 54 69 6d 65 56 61 6c 75 65 20 5c 0d  DateTimeValue \.
0400: 0a 20 20 20 20 20 20 5b 67 65 74 44 61 74 65 54  .      [getDateT
0410: 69 6d 65 46 6f 72 6d 61 74 5d 20 6e 75 6c 6c 5d  imeFormat] null]
0420: 0d 0a 0d 0a 20 20 73 65 74 20 64 61 74 65 54 69  ....  set dateTi
0430: 6d 65 56 61 6c 75 65 28 31 29 20 5b 6f 62 6a 65  meValue(1) [obje
0440: 63 74 20 69 6e 76 6f 6b 65 20 2d 63 72 65 61 74  ct invoke -creat
0450: 65 20 2d 61 6c 69 61 73 20 5c 0d 0a 20 20 20 20  e -alias \..    
0460: 20 20 44 61 74 65 54 69 6d 65 20 53 70 65 63 69    DateTime Speci
0470: 66 79 4b 69 6e 64 20 24 64 61 74 65 54 69 6d 65  fyKind $dateTime
0480: 56 61 6c 75 65 28 30 29 20 55 74 63 5d 0d 0a 0d  Value(0) Utc]...
0490: 0a 20 20 73 65 74 20 64 61 74 65 54 69 6d 65 56  .  set dateTimeV
04a0: 61 6c 75 65 28 32 29 20 5b 6f 62 6a 65 63 74 20  alue(2) [object 
04b0: 69 6e 76 6f 6b 65 20 2d 63 72 65 61 74 65 20 2d  invoke -create -
04c0: 61 6c 69 61 73 20 5c 0d 0a 20 20 20 20 20 20 44  alias \..      D
04d0: 61 74 65 54 69 6d 65 20 53 70 65 63 69 66 79 4b  ateTime SpecifyK
04e0: 69 6e 64 20 24 64 61 74 65 54 69 6d 65 56 61 6c  ind $dateTimeVal
04f0: 75 65 28 30 29 20 4c 6f 63 61 6c 5d 0d 0a 0d 0a  ue(0) Local]....
0500: 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74    lappend result
0510: 20 5b 73 71 6c 20 65 78 65 63 75 74 65 20 2d 65   [sql execute -e
0520: 78 65 63 75 74 65 20 73 63 61 6c 61 72 20 24 64  xecute scalar $d
0530: 62 20 22 53 45 4c 45 43 54 20 3f 3b 22 20 5c 0d  b "SELECT ?;" \.
0540: 0a 20 20 20 20 20 20 5b 6c 69 73 74 20 70 61 72  .      [list par
0550: 61 6d 31 20 44 61 74 65 54 69 6d 65 20 24 64 61  am1 DateTime $da
0560: 74 65 54 69 6d 65 56 61 6c 75 65 28 30 29 5d 5d  teTimeValue(0)]]
0570: 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e 64 20 72 65  ....  lappend re
0580: 73 75 6c 74 20 5b 73 71 6c 20 65 78 65 63 75 74  sult [sql execut
0590: 65 20 2d 65 78 65 63 75 74 65 20 73 63 61 6c 61  e -execute scala
05a0: 72 20 24 64 62 20 22 53 45 4c 45 43 54 20 3f 3b  r $db "SELECT ?;
05b0: 22 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74  " \..      [list
05c0: 20 70 61 72 61 6d 31 20 44 61 74 65 54 69 6d 65   param1 DateTime
05d0: 20 24 64 61 74 65 54 69 6d 65 56 61 6c 75 65 28   $dateTimeValue(
05e0: 31 29 5d 5d 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e  1)]]....  lappen
05f0: 64 20 72 65 73 75 6c 74 20 5b 73 71 6c 20 65 78  d result [sql ex
0600: 65 63 75 74 65 20 2d 65 78 65 63 75 74 65 20 73  ecute -execute s
0610: 63 61 6c 61 72 20 24 64 62 20 22 53 45 4c 45 43  calar $db "SELEC
0620: 54 20 3f 3b 22 20 5c 0d 0a 20 20 20 20 20 20 5b  T ?;" \..      [
0630: 6c 69 73 74 20 70 61 72 61 6d 31 20 44 61 74 65  list param1 Date
0640: 54 69 6d 65 20 24 64 61 74 65 54 69 6d 65 56 61  Time $dateTimeVa
0650: 6c 75 65 28 32 29 5d 5d 0d 0a 0d 0a 20 20 6c 61  lue(2)]]....  la
0660: 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 65 78  ppend result [ex
0670: 70 72 20 7b 5b 6c 69 6e 64 65 78 20 24 72 65 73  pr {[lindex $res
0680: 75 6c 74 20 30 5d 20 3d 3d 20 5b 6c 69 6e 64 65  ult 0] == [linde
0690: 78 20 24 72 65 73 75 6c 74 20 31 5d 7d 5d 0d 0a  x $result 1]}]..
06a0: 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74    lappend result
06b0: 20 5b 65 78 70 72 20 7b 5b 6c 69 6e 64 65 78 20   [expr {[lindex 
06c0: 24 72 65 73 75 6c 74 20 30 5d 20 3d 3d 20 5b 6c  $result 0] == [l
06d0: 69 6e 64 65 78 20 24 72 65 73 75 6c 74 20 32 5d  index $result 2]
06e0: 7d 5d 0d 0a 20 20 6c 61 70 70 65 6e 64 20 72 65  }]..  lappend re
06f0: 73 75 6c 74 20 5b 65 78 70 72 20 7b 5b 6c 69 6e  sult [expr {[lin
0700: 64 65 78 20 24 72 65 73 75 6c 74 20 31 5d 20 3d  dex $result 1] =
0710: 3d 20 5b 6c 69 6e 64 65 78 20 24 72 65 73 75 6c  = [lindex $resul
0720: 74 20 32 5d 7d 5d 0d 0a 7d 20 2d 63 6c 65 61 6e  t 2]}]..} -clean
0730: 75 70 20 7b 0d 0a 20 20 63 6c 65 61 6e 75 70 44  up {..  cleanupD
0740: 62 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20  b $fileName.... 
0750: 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61   unset -nocompla
0760: 69 6e 20 72 65 73 75 6c 74 20 64 61 74 65 54 69  in result dateTi
0770: 6d 65 56 61 6c 75 65 20 64 62 20 66 69 6c 65 4e  meValue db fileN
0780: 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61 69  ame..} -constrai
0790: 6e 74 73 20 7b 65 61 67 6c 65 20 63 6f 6d 6d 61  nts {eagle comma
07a0: 6e 64 2e 6f 62 6a 65 63 74 20 6d 6f 6e 6f 42 75  nd.object monoBu
07b0: 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20  g28 command.sql 
07c0: 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53 51 4c  compile.DATA SQL
07d0: 69 74 65 5c 0d 0a 53 79 73 74 65 6d 2e 44 61 74  ite\..System.Dat
07e0: 61 2e 53 51 4c 69 74 65 7d 20 2d 72 65 73 75 6c  a.SQLite} -resul
07f0: 74 20 5c 0d 0a 7b 36 33 35 35 39 38 31 34 34 30  t \..{6355981440
0800: 30 30 30 30 30 30 30 30 20 36 33 35 35 39 38 31  00000000 6355981
0810: 34 34 30 30 30 30 30 30 30 30 30 20 36 33 35 35  44000000000 6355
0820: 39 38 34 33 32 30 30 30 30 30 30 30 30 30 20 54  98432000000000 T
0830: 72 75 65 20 46 61 6c 73 65 20 46 61 6c 73 65 7d  rue False False}
0840: 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23  }....###########
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 0d 0a 0d 0a 72 75 6e 54 65 73 74 20  ####....runTest 
08a0: 7b 74 65 73 74 20 74 6b 74 2d 61 37 64 30 34 66  {test tkt-a7d04f
08b0: 62 31 31 31 2d 31 2e 32 20 7b 42 69 6e 64 20 44  b111-1.2 {Bind D
08c0: 61 74 65 54 69 6d 65 20 4c 6f 63 61 6c 20 54 69  ateTime Local Ti
08d0: 63 6b 73 7d 20 2d 73 65 74 75 70 20 7b 0d 0a 20  cks} -setup {.. 
08e0: 20 73 65 74 75 70 44 62 20 5b 73 65 74 20 66 69   setupDb [set fi
08f0: 6c 65 4e 61 6d 65 20 74 6b 74 2d 61 37 64 30 34  leName tkt-a7d04
0900: 66 62 31 31 31 2d 31 2e 32 2e 64 62 5d 20 22 22  fb111-1.2.db] ""
0910: 20 54 69 63 6b 73 20 4c 6f 63 61 6c 20 5c 0d 0a   Ticks Local \..
0920: 20 20 20 20 20 20 42 69 6e 64 44 61 74 65 54 69        BindDateTi
0930: 6d 65 57 69 74 68 4b 69 6e 64 0d 0a 7d 20 2d 62  meWithKind..} -b
0940: 6f 64 79 20 7b 0d 0a 20 20 73 65 74 20 64 61 74  ody {..  set dat
0950: 65 54 69 6d 65 56 61 6c 75 65 28 30 29 20 5b 6f  eTimeValue(0) [o
0960: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 5c 0d 0a  bject invoke \..
0970: 20 20 20 20 20 20 2d 63 72 65 61 74 65 20 44 61        -create Da
0980: 74 65 54 69 6d 65 20 50 61 72 73 65 45 78 61 63  teTime ParseExac
0990: 74 20 24 72 61 77 44 61 74 65 54 69 6d 65 56 61  t $rawDateTimeVa
09a0: 6c 75 65 20 5c 0d 0a 20 20 20 20 20 20 5b 67 65  lue \..      [ge
09b0: 74 44 61 74 65 54 69 6d 65 46 6f 72 6d 61 74 5d  tDateTimeFormat]
09c0: 20 6e 75 6c 6c 5d 0d 0a 0d 0a 20 20 73 65 74 20   null]....  set 
09d0: 64 61 74 65 54 69 6d 65 56 61 6c 75 65 28 31 29  dateTimeValue(1)
09e0: 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20   [object invoke 
09f0: 2d 63 72 65 61 74 65 20 2d 61 6c 69 61 73 20 5c  -create -alias \
0a00: 0d 0a 20 20 20 20 20 20 44 61 74 65 54 69 6d 65  ..      DateTime
0a10: 20 53 70 65 63 69 66 79 4b 69 6e 64 20 24 64 61   SpecifyKind $da
0a20: 74 65 54 69 6d 65 56 61 6c 75 65 28 30 29 20 55  teTimeValue(0) U
0a30: 74 63 5d 0d 0a 0d 0a 20 20 73 65 74 20 64 61 74  tc]....  set dat
0a40: 65 54 69 6d 65 56 61 6c 75 65 28 32 29 20 5b 6f  eTimeValue(2) [o
0a50: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 63 72  bject invoke -cr
0a60: 65 61 74 65 20 2d 61 6c 69 61 73 20 5c 0d 0a 20  eate -alias \.. 
0a70: 20 20 20 20 20 44 61 74 65 54 69 6d 65 20 53 70       DateTime Sp
0a80: 65 63 69 66 79 4b 69 6e 64 20 24 64 61 74 65 54  ecifyKind $dateT
0a90: 69 6d 65 56 61 6c 75 65 28 30 29 20 4c 6f 63 61  imeValue(0) Loca
0aa0: 6c 5d 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e 64 20  l]....  lappend 
0ab0: 72 65 73 75 6c 74 20 5b 73 71 6c 20 65 78 65 63  result [sql exec
0ac0: 75 74 65 20 2d 65 78 65 63 75 74 65 20 73 63 61  ute -execute sca
0ad0: 6c 61 72 20 24 64 62 20 22 53 45 4c 45 43 54 20  lar $db "SELECT 
0ae0: 3f 3b 22 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69  ?;" \..      [li
0af0: 73 74 20 70 61 72 61 6d 31 20 44 61 74 65 54 69  st param1 DateTi
0b00: 6d 65 20 24 64 61 74 65 54 69 6d 65 56 61 6c 75  me $dateTimeValu
0b10: 65 28 30 29 5d 5d 0d 0a 0d 0a 20 20 6c 61 70 70  e(0)]]....  lapp
0b20: 65 6e 64 20 72 65 73 75 6c 74 20 5b 73 71 6c 20  end result [sql 
0b30: 65 78 65 63 75 74 65 20 2d 65 78 65 63 75 74 65  execute -execute
0b40: 20 73 63 61 6c 61 72 20 24 64 62 20 22 53 45 4c   scalar $db "SEL
0b50: 45 43 54 20 3f 3b 22 20 5c 0d 0a 20 20 20 20 20  ECT ?;" \..     
0b60: 20 5b 6c 69 73 74 20 70 61 72 61 6d 31 20 44 61   [list param1 Da
0b70: 74 65 54 69 6d 65 20 24 64 61 74 65 54 69 6d 65  teTime $dateTime
0b80: 56 61 6c 75 65 28 31 29 5d 5d 0d 0a 0d 0a 20 20  Value(1)]]....  
0b90: 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b  lappend result [
0ba0: 73 71 6c 20 65 78 65 63 75 74 65 20 2d 65 78 65  sql execute -exe
0bb0: 63 75 74 65 20 73 63 61 6c 61 72 20 24 64 62 20  cute scalar $db 
0bc0: 22 53 45 4c 45 43 54 20 3f 3b 22 20 5c 0d 0a 20  "SELECT ?;" \.. 
0bd0: 20 20 20 20 20 5b 6c 69 73 74 20 70 61 72 61 6d       [list param
0be0: 31 20 44 61 74 65 54 69 6d 65 20 24 64 61 74 65  1 DateTime $date
0bf0: 54 69 6d 65 56 61 6c 75 65 28 32 29 5d 5d 0d 0a  TimeValue(2)]]..
0c00: 0d 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75  ..  lappend resu
0c10: 6c 74 20 5b 65 78 70 72 20 7b 5b 6c 69 6e 64 65  lt [expr {[linde
0c20: 78 20 24 72 65 73 75 6c 74 20 30 5d 20 3d 3d 20  x $result 0] == 
0c30: 5b 6c 69 6e 64 65 78 20 24 72 65 73 75 6c 74 20  [lindex $result 
0c40: 31 5d 7d 5d 0d 0a 20 20 6c 61 70 70 65 6e 64 20  1]}]..  lappend 
0c50: 72 65 73 75 6c 74 20 5b 65 78 70 72 20 7b 5b 6c  result [expr {[l
0c60: 69 6e 64 65 78 20 24 72 65 73 75 6c 74 20 30 5d  index $result 0]
0c70: 20 3d 3d 20 5b 6c 69 6e 64 65 78 20 24 72 65 73   == [lindex $res
0c80: 75 6c 74 20 32 5d 7d 5d 0d 0a 20 20 6c 61 70 70  ult 2]}]..  lapp
0c90: 65 6e 64 20 72 65 73 75 6c 74 20 5b 65 78 70 72  end result [expr
0ca0: 20 7b 5b 6c 69 6e 64 65 78 20 24 72 65 73 75 6c   {[lindex $resul
0cb0: 74 20 31 5d 20 3d 3d 20 5b 6c 69 6e 64 65 78 20  t 1] == [lindex 
0cc0: 24 72 65 73 75 6c 74 20 32 5d 7d 5d 0d 0a 7d 20  $result 2]}]..} 
0cd0: 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 63 6c  -cleanup {..  cl
0ce0: 65 61 6e 75 70 44 62 20 24 66 69 6c 65 4e 61 6d  eanupDb $fileNam
0cf0: 65 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f  e....  unset -no
0d00: 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74 20  complain result 
0d10: 64 61 74 65 54 69 6d 65 56 61 6c 75 65 20 64 62  dateTimeValue db
0d20: 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f   fileName..} -co
0d30: 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67 6c 65  nstraints {eagle
0d40: 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74 20   command.object 
0d50: 6d 6f 6e 6f 42 75 67 32 38 20 63 6f 6d 6d 61 6e  monoBug28 comman
0d60: 64 2e 73 71 6c 20 63 6f 6d 70 69 6c 65 2e 44 41  d.sql compile.DA
0d70: 54 41 20 53 51 4c 69 74 65 5c 0d 0a 53 79 73 74  TA SQLite\..Syst
0d80: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 7d 20  em.Data.SQLite} 
0d90: 2d 72 65 73 75 6c 74 20 5c 0d 0a 7b 36 33 35 35  -result \..{6355
0da0: 39 38 31 34 34 30 30 30 30 30 30 30 30 30 20 36  98144000000000 6
0db0: 33 35 35 39 37 38 35 36 30 30 30 30 30 30 30 30  3559785600000000
0dc0: 30 20 36 33 35 35 39 38 31 34 34 30 30 30 30 30  0 63559814400000
0dd0: 30 30 30 30 20 46 61 6c 73 65 20 54 72 75 65 20  0000 False True 
0de0: 46 61 6c 73 65 7d 7d 0d 0a 0d 0a 23 23 23 23 23  False}}....#####
0df0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0e00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0e10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0e20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0e30: 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75  ##########....ru
0e40: 6e 54 65 73 74 20 7b 74 65 73 74 20 74 6b 74 2d  nTest {test tkt-
0e50: 61 37 64 30 34 66 62 31 31 31 2d 31 2e 33 20 7b  a7d04fb111-1.3 {
0e60: 42 69 6e 64 20 44 61 74 65 54 69 6d 65 20 55 74  Bind DateTime Ut
0e70: 63 20 49 53 4f 38 36 30 31 7d 20 2d 73 65 74 75  c ISO8601} -setu
0e80: 70 20 7b 0d 0a 20 20 73 65 74 75 70 44 62 20 5b  p {..  setupDb [
0e90: 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 74 6b 74  set fileName tkt
0ea0: 2d 61 37 64 30 34 66 62 31 31 31 2d 31 2e 33 2e  -a7d04fb111-1.3.
0eb0: 64 62 5d 20 22 22 20 49 53 4f 38 36 30 31 20 55  db] "" ISO8601 U
0ec0: 74 63 20 5c 0d 0a 20 20 20 20 20 20 42 69 6e 64  tc \..      Bind
0ed0: 44 61 74 65 54 69 6d 65 57 69 74 68 4b 69 6e 64  DateTimeWithKind
0ee0: 0d 0a 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20 20 73  ..} -body {..  s
0ef0: 65 74 20 64 61 74 65 54 69 6d 65 56 61 6c 75 65  et dateTimeValue
0f00: 28 30 29 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f  (0) [object invo
0f10: 6b 65 20 5c 0d 0a 20 20 20 20 20 20 2d 63 72 65  ke \..      -cre
0f20: 61 74 65 20 44 61 74 65 54 69 6d 65 20 50 61 72  ate DateTime Par
0f30: 73 65 45 78 61 63 74 20 24 72 61 77 44 61 74 65  seExact $rawDate
0f40: 54 69 6d 65 56 61 6c 75 65 20 5c 0d 0a 20 20 20  TimeValue \..   
0f50: 20 20 20 5b 67 65 74 44 61 74 65 54 69 6d 65 46     [getDateTimeF
0f60: 6f 72 6d 61 74 5d 20 6e 75 6c 6c 5d 0d 0a 0d 0a  ormat] null]....
0f70: 20 20 73 65 74 20 64 61 74 65 54 69 6d 65 56 61    set dateTimeVa
0f80: 6c 75 65 28 31 29 20 5b 6f 62 6a 65 63 74 20 69  lue(1) [object i
0f90: 6e 76 6f 6b 65 20 2d 63 72 65 61 74 65 20 2d 61  nvoke -create -a
0fa0: 6c 69 61 73 20 5c 0d 0a 20 20 20 20 20 20 44 61  lias \..      Da
0fb0: 74 65 54 69 6d 65 20 53 70 65 63 69 66 79 4b 69  teTime SpecifyKi
0fc0: 6e 64 20 24 64 61 74 65 54 69 6d 65 56 61 6c 75  nd $dateTimeValu
0fd0: 65 28 30 29 20 55 74 63 5d 0d 0a 0d 0a 20 20 73  e(0) Utc]....  s
0fe0: 65 74 20 64 61 74 65 54 69 6d 65 56 61 6c 75 65  et dateTimeValue
0ff0: 28 32 29 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f  (2) [object invo
1000: 6b 65 20 2d 63 72 65 61 74 65 20 2d 61 6c 69 61  ke -create -alia
1010: 73 20 5c 0d 0a 20 20 20 20 20 20 44 61 74 65 54  s \..      DateT
1020: 69 6d 65 20 53 70 65 63 69 66 79 4b 69 6e 64 20  ime SpecifyKind 
1030: 24 64 61 74 65 54 69 6d 65 56 61 6c 75 65 28 30  $dateTimeValue(0
1040: 29 20 4c 6f 63 61 6c 5d 0d 0a 0d 0a 20 20 6c 61  ) Local]....  la
1050: 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 73 71  ppend result [sq
1060: 6c 20 65 78 65 63 75 74 65 20 2d 65 78 65 63 75  l execute -execu
1070: 74 65 20 73 63 61 6c 61 72 20 24 64 62 20 22 53  te scalar $db "S
1080: 45 4c 45 43 54 20 3f 3b 22 20 5c 0d 0a 20 20 20  ELECT ?;" \..   
1090: 20 20 20 5b 6c 69 73 74 20 70 61 72 61 6d 31 20     [list param1 
10a0: 44 61 74 65 54 69 6d 65 20 24 64 61 74 65 54 69  DateTime $dateTi
10b0: 6d 65 56 61 6c 75 65 28 30 29 5d 5d 0d 0a 0d 0a  meValue(0)]]....
10c0: 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74    lappend result
10d0: 20 5b 73 71 6c 20 65 78 65 63 75 74 65 20 2d 65   [sql execute -e
10e0: 78 65 63 75 74 65 20 73 63 61 6c 61 72 20 24 64  xecute scalar $d
10f0: 62 20 22 53 45 4c 45 43 54 20 3f 3b 22 20 5c 0d  b "SELECT ?;" \.
1100: 0a 20 20 20 20 20 20 5b 6c 69 73 74 20 70 61 72  .      [list par
1110: 61 6d 31 20 44 61 74 65 54 69 6d 65 20 24 64 61  am1 DateTime $da
1120: 74 65 54 69 6d 65 56 61 6c 75 65 28 31 29 5d 5d  teTimeValue(1)]]
1130: 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e 64 20 72 65  ....  lappend re
1140: 73 75 6c 74 20 5b 73 71 6c 20 65 78 65 63 75 74  sult [sql execut
1150: 65 20 2d 65 78 65 63 75 74 65 20 73 63 61 6c 61  e -execute scala
1160: 72 20 24 64 62 20 22 53 45 4c 45 43 54 20 3f 3b  r $db "SELECT ?;
1170: 22 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74  " \..      [list
1180: 20 70 61 72 61 6d 31 20 44 61 74 65 54 69 6d 65   param1 DateTime
1190: 20 24 64 61 74 65 54 69 6d 65 56 61 6c 75 65 28   $dateTimeValue(
11a0: 32 29 5d 5d 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e  2)]]....  lappen
11b0: 64 20 72 65 73 75 6c 74 20 5b 65 78 70 72 20 7b  d result [expr {
11c0: 5b 6c 69 6e 64 65 78 20 24 72 65 73 75 6c 74 20  [lindex $result 
11d0: 30 5d 20 65 71 20 5b 6c 69 6e 64 65 78 20 24 72  0] eq [lindex $r
11e0: 65 73 75 6c 74 20 31 5d 7d 5d 0d 0a 20 20 6c 61  esult 1]}]..  la
11f0: 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 65 78  ppend result [ex
1200: 70 72 20 7b 5b 6c 69 6e 64 65 78 20 24 72 65 73  pr {[lindex $res
1210: 75 6c 74 20 30 5d 20 65 71 20 5b 6c 69 6e 64 65  ult 0] eq [linde
1220: 78 20 24 72 65 73 75 6c 74 20 32 5d 7d 5d 0d 0a  x $result 2]}]..
1230: 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74    lappend result
1240: 20 5b 65 78 70 72 20 7b 5b 6c 69 6e 64 65 78 20   [expr {[lindex 
1250: 24 72 65 73 75 6c 74 20 31 5d 20 65 71 20 5b 6c  $result 1] eq [l
1260: 69 6e 64 65 78 20 24 72 65 73 75 6c 74 20 32 5d  index $result 2]
1270: 7d 5d 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b  }]..} -cleanup {
1280: 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66  ..  cleanupDb $f
1290: 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73  ileName....  uns
12a0: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72  et -nocomplain r
12b0: 65 73 75 6c 74 20 64 61 74 65 54 69 6d 65 56 61  esult dateTimeVa
12c0: 6c 75 65 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d  lue db fileName.
12d0: 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  .} -constraints 
12e0: 7b 65 61 67 6c 65 20 63 6f 6d 6d 61 6e 64 2e 6f  {eagle command.o
12f0: 62 6a 65 63 74 20 6d 6f 6e 6f 42 75 67 32 38 20  bject monoBug28 
1300: 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20 63 6f 6d 70  command.sql comp
1310: 69 6c 65 2e 44 41 54 41 20 53 51 4c 69 74 65 5c  ile.DATA SQLite\
1320: 0d 0a 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  ..System.Data.SQ
1330: 4c 69 74 65 7d 20 2d 72 65 73 75 6c 74 20 7b 7b  Lite} -result {{
1340: 32 30 31 35 2d 30 32 2d 31 38 20 30 30 3a 30 30  2015-02-18 00:00
1350: 3a 30 30 5a 7d 20 7b 32 30 31 35 2d 30 32 2d 31  :00Z} {2015-02-1
1360: 38 20 30 30 3a 30 30 3a 30 30 5a 7d 5c 0d 0a 7b  8 00:00:00Z}\..{
1370: 32 30 31 35 2d 30 32 2d 31 38 20 30 38 3a 30 30  2015-02-18 08:00
1380: 3a 30 30 5a 7d 20 54 72 75 65 20 46 61 6c 73 65  :00Z} True False
1390: 20 46 61 6c 73 65 7d 7d 0d 0a 0d 0a 23 23 23 23   False}}....####
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 23 23 23 23 23 23 23 23 23 23 23 23  ################
13d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
13e0: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72  ###########....r
13f0: 75 6e 54 65 73 74 20 7b 74 65 73 74 20 74 6b 74  unTest {test tkt
1400: 2d 61 37 64 30 34 66 62 31 31 31 2d 31 2e 34 20  -a7d04fb111-1.4 
1410: 7b 42 69 6e 64 20 44 61 74 65 54 69 6d 65 20 4c  {Bind DateTime L
1420: 6f 63 61 6c 20 49 53 4f 38 36 30 31 7d 20 2d 73  ocal ISO8601} -s
1430: 65 74 75 70 20 7b 0d 0a 20 20 73 65 74 75 70 44  etup {..  setupD
1440: 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65 20  b [set fileName 
1450: 74 6b 74 2d 61 37 64 30 34 66 62 31 31 31 2d 31  tkt-a7d04fb111-1
1460: 2e 34 2e 64 62 5d 20 22 22 20 49 53 4f 38 36 30  .4.db] "" ISO860
1470: 31 20 4c 6f 63 61 6c 20 5c 0d 0a 20 20 20 20 20  1 Local \..     
1480: 20 42 69 6e 64 44 61 74 65 54 69 6d 65 57 69 74   BindDateTimeWit
1490: 68 4b 69 6e 64 0d 0a 7d 20 2d 62 6f 64 79 20 7b  hKind..} -body {
14a0: 0d 0a 20 20 73 65 74 20 64 61 74 65 54 69 6d 65  ..  set dateTime
14b0: 56 61 6c 75 65 28 30 29 20 5b 6f 62 6a 65 63 74  Value(0) [object
14c0: 20 69 6e 76 6f 6b 65 20 5c 0d 0a 20 20 20 20 20   invoke \..     
14d0: 20 2d 63 72 65 61 74 65 20 44 61 74 65 54 69 6d   -create DateTim
14e0: 65 20 50 61 72 73 65 45 78 61 63 74 20 24 72 61  e ParseExact $ra
14f0: 77 44 61 74 65 54 69 6d 65 56 61 6c 75 65 20 5c  wDateTimeValue \
1500: 0d 0a 20 20 20 20 20 20 5b 67 65 74 44 61 74 65  ..      [getDate
1510: 54 69 6d 65 46 6f 72 6d 61 74 5d 20 6e 75 6c 6c  TimeFormat] null
1520: 5d 0d 0a 0d 0a 20 20 73 65 74 20 64 61 74 65 54  ]....  set dateT
1530: 69 6d 65 56 61 6c 75 65 28 31 29 20 5b 6f 62 6a  imeValue(1) [obj
1540: 65 63 74 20 69 6e 76 6f 6b 65 20 2d 63 72 65 61  ect invoke -crea
1550: 74 65 20 2d 61 6c 69 61 73 20 5c 0d 0a 20 20 20  te -alias \..   
1560: 20 20 20 44 61 74 65 54 69 6d 65 20 53 70 65 63     DateTime Spec
1570: 69 66 79 4b 69 6e 64 20 24 64 61 74 65 54 69 6d  ifyKind $dateTim
1580: 65 56 61 6c 75 65 28 30 29 20 55 74 63 5d 0d 0a  eValue(0) Utc]..
1590: 0d 0a 20 20 73 65 74 20 64 61 74 65 54 69 6d 65  ..  set dateTime
15a0: 56 61 6c 75 65 28 32 29 20 5b 6f 62 6a 65 63 74  Value(2) [object
15b0: 20 69 6e 76 6f 6b 65 20 2d 63 72 65 61 74 65 20   invoke -create 
15c0: 2d 61 6c 69 61 73 20 5c 0d 0a 20 20 20 20 20 20  -alias \..      
15d0: 44 61 74 65 54 69 6d 65 20 53 70 65 63 69 66 79  DateTime Specify
15e0: 4b 69 6e 64 20 24 64 61 74 65 54 69 6d 65 56 61  Kind $dateTimeVa
15f0: 6c 75 65 28 30 29 20 4c 6f 63 61 6c 5d 0d 0a 0d  lue(0) Local]...
1600: 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c  .  lappend resul
1610: 74 20 5b 73 71 6c 20 65 78 65 63 75 74 65 20 2d  t [sql execute -
1620: 65 78 65 63 75 74 65 20 73 63 61 6c 61 72 20 24  execute scalar $
1630: 64 62 20 22 53 45 4c 45 43 54 20 3f 3b 22 20 5c  db "SELECT ?;" \
1640: 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74 20 70 61  ..      [list pa
1650: 72 61 6d 31 20 44 61 74 65 54 69 6d 65 20 24 64  ram1 DateTime $d
1660: 61 74 65 54 69 6d 65 56 61 6c 75 65 28 30 29 5d  ateTimeValue(0)]
1670: 5d 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e 64 20 72  ]....  lappend r
1680: 65 73 75 6c 74 20 5b 73 71 6c 20 65 78 65 63 75  esult [sql execu
1690: 74 65 20 2d 65 78 65 63 75 74 65 20 73 63 61 6c  te -execute scal
16a0: 61 72 20 24 64 62 20 22 53 45 4c 45 43 54 20 3f  ar $db "SELECT ?
16b0: 3b 22 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73  ;" \..      [lis
16c0: 74 20 70 61 72 61 6d 31 20 44 61 74 65 54 69 6d  t param1 DateTim
16d0: 65 20 24 64 61 74 65 54 69 6d 65 56 61 6c 75 65  e $dateTimeValue
16e0: 28 31 29 5d 5d 0d 0a 0d 0a 20 20 6c 61 70 70 65  (1)]]....  lappe
16f0: 6e 64 20 72 65 73 75 6c 74 20 5b 73 71 6c 20 65  nd result [sql e
1700: 78 65 63 75 74 65 20 2d 65 78 65 63 75 74 65 20  xecute -execute 
1710: 73 63 61 6c 61 72 20 24 64 62 20 22 53 45 4c 45  scalar $db "SELE
1720: 43 54 20 3f 3b 22 20 5c 0d 0a 20 20 20 20 20 20  CT ?;" \..      
1730: 5b 6c 69 73 74 20 70 61 72 61 6d 31 20 44 61 74  [list param1 Dat
1740: 65 54 69 6d 65 20 24 64 61 74 65 54 69 6d 65 56  eTime $dateTimeV
1750: 61 6c 75 65 28 32 29 5d 5d 0d 0a 0d 0a 20 20 6c  alue(2)]]....  l
1760: 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 65  append result [e
1770: 78 70 72 20 7b 5b 6c 69 6e 64 65 78 20 24 72 65  xpr {[lindex $re
1780: 73 75 6c 74 20 30 5d 20 65 71 20 5b 6c 69 6e 64  sult 0] eq [lind
1790: 65 78 20 24 72 65 73 75 6c 74 20 31 5d 7d 5d 0d  ex $result 1]}].
17a0: 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c  .  lappend resul
17b0: 74 20 5b 65 78 70 72 20 7b 5b 6c 69 6e 64 65 78  t [expr {[lindex
17c0: 20 24 72 65 73 75 6c 74 20 30 5d 20 65 71 20 5b   $result 0] eq [
17d0: 6c 69 6e 64 65 78 20 24 72 65 73 75 6c 74 20 32  lindex $result 2
17e0: 5d 7d 5d 0d 0a 20 20 6c 61 70 70 65 6e 64 20 72  ]}]..  lappend r
17f0: 65 73 75 6c 74 20 5b 65 78 70 72 20 7b 5b 6c 69  esult [expr {[li
1800: 6e 64 65 78 20 24 72 65 73 75 6c 74 20 31 5d 20  ndex $result 1] 
1810: 65 71 20 5b 6c 69 6e 64 65 78 20 24 72 65 73 75  eq [lindex $resu
1820: 6c 74 20 32 5d 7d 5d 0d 0a 7d 20 2d 63 6c 65 61  lt 2]}]..} -clea
1830: 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61 6e 75 70  nup {..  cleanup
1840: 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a  Db $fileName....
1850: 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c    unset -nocompl
1860: 61 69 6e 20 72 65 73 75 6c 74 20 64 61 74 65 54  ain result dateT
1870: 69 6d 65 56 61 6c 75 65 20 64 62 20 66 69 6c 65  imeValue db file
1880: 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61  Name..} -constra
1890: 69 6e 74 73 20 7b 65 61 67 6c 65 20 63 6f 6d 6d  ints {eagle comm
18a0: 61 6e 64 2e 6f 62 6a 65 63 74 20 6d 6f 6e 6f 42  and.object monoB
18b0: 75 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c  ug28 command.sql
18c0: 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53 51   compile.DATA SQ
18d0: 4c 69 74 65 5c 0d 0a 53 79 73 74 65 6d 2e 44 61  Lite\..System.Da
18e0: 74 61 2e 53 51 4c 69 74 65 7d 20 2d 72 65 73 75  ta.SQLite} -resu
18f0: 6c 74 20 7b 7b 32 30 31 35 2d 30 32 2d 31 38 20  lt {{2015-02-18 
1900: 30 30 3a 30 30 3a 30 30 7d 20 7b 32 30 31 35 2d  00:00:00} {2015-
1910: 30 32 2d 31 37 20 31 36 3a 30 30 3a 30 30 7d 5c  02-17 16:00:00}\
1920: 0d 0a 7b 32 30 31 35 2d 30 32 2d 31 38 20 30 30  ..{2015-02-18 00
1930: 3a 30 30 3a 30 30 7d 20 46 61 6c 73 65 20 54 72  :00:00} False Tr
1940: 75 65 20 46 61 6c 73 65 7d 7d 0d 0a 0d 0a 23 23  ue False}}....##
1950: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1960: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1970: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1980: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1990: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d  #############...
19a0: 0a 72 75 6e 54 65 73 74 20 7b 74 65 73 74 20 74  .runTest {test t
19b0: 6b 74 2d 61 37 64 30 34 66 62 31 31 31 2d 31 2e  kt-a7d04fb111-1.
19c0: 35 20 7b 42 69 6e 64 20 44 61 74 65 54 69 6d 65  5 {Bind DateTime
19d0: 20 55 74 63 20 4a 75 6c 69 61 6e 44 61 79 7d 20   Utc JulianDay} 
19e0: 2d 73 65 74 75 70 20 7b 0d 0a 20 20 73 65 74 75  -setup {..  setu
19f0: 70 44 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d  pDb [set fileNam
1a00: 65 20 74 6b 74 2d 61 37 64 30 34 66 62 31 31 31  e tkt-a7d04fb111
1a10: 2d 31 2e 35 2e 64 62 5d 20 22 22 20 4a 75 6c 69  -1.5.db] "" Juli
1a20: 61 6e 44 61 79 20 55 74 63 20 5c 0d 0a 20 20 20  anDay Utc \..   
1a30: 20 20 20 42 69 6e 64 44 61 74 65 54 69 6d 65 57     BindDateTimeW
1a40: 69 74 68 4b 69 6e 64 0d 0a 7d 20 2d 62 6f 64 79  ithKind..} -body
1a50: 20 7b 0d 0a 20 20 73 65 74 20 64 61 74 65 54 69   {..  set dateTi
1a60: 6d 65 56 61 6c 75 65 28 30 29 20 5b 6f 62 6a 65  meValue(0) [obje
1a70: 63 74 20 69 6e 76 6f 6b 65 20 5c 0d 0a 20 20 20  ct invoke \..   
1a80: 20 20 20 2d 63 72 65 61 74 65 20 44 61 74 65 54     -create DateT
1a90: 69 6d 65 20 50 61 72 73 65 45 78 61 63 74 20 24  ime ParseExact $
1aa0: 72 61 77 44 61 74 65 54 69 6d 65 56 61 6c 75 65  rawDateTimeValue
1ab0: 20 5c 0d 0a 20 20 20 20 20 20 5b 67 65 74 44 61   \..      [getDa
1ac0: 74 65 54 69 6d 65 46 6f 72 6d 61 74 5d 20 6e 75  teTimeFormat] nu
1ad0: 6c 6c 5d 0d 0a 0d 0a 20 20 73 65 74 20 64 61 74  ll]....  set dat
1ae0: 65 54 69 6d 65 56 61 6c 75 65 28 31 29 20 5b 6f  eTimeValue(1) [o
1af0: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 63 72  bject invoke -cr
1b00: 65 61 74 65 20 2d 61 6c 69 61 73 20 5c 0d 0a 20  eate -alias \.. 
1b10: 20 20 20 20 20 44 61 74 65 54 69 6d 65 20 53 70       DateTime Sp
1b20: 65 63 69 66 79 4b 69 6e 64 20 24 64 61 74 65 54  ecifyKind $dateT
1b30: 69 6d 65 56 61 6c 75 65 28 30 29 20 55 74 63 5d  imeValue(0) Utc]
1b40: 0d 0a 0d 0a 20 20 73 65 74 20 64 61 74 65 54 69  ....  set dateTi
1b50: 6d 65 56 61 6c 75 65 28 32 29 20 5b 6f 62 6a 65  meValue(2) [obje
1b60: 63 74 20 69 6e 76 6f 6b 65 20 2d 63 72 65 61 74  ct invoke -creat
1b70: 65 20 2d 61 6c 69 61 73 20 5c 0d 0a 20 20 20 20  e -alias \..    
1b80: 20 20 44 61 74 65 54 69 6d 65 20 53 70 65 63 69    DateTime Speci
1b90: 66 79 4b 69 6e 64 20 24 64 61 74 65 54 69 6d 65  fyKind $dateTime
1ba0: 56 61 6c 75 65 28 30 29 20 4c 6f 63 61 6c 5d 0d  Value(0) Local].
1bb0: 0a 0d 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73  ...  lappend res
1bc0: 75 6c 74 20 5b 73 71 6c 20 65 78 65 63 75 74 65  ult [sql execute
1bd0: 20 2d 65 78 65 63 75 74 65 20 73 63 61 6c 61 72   -execute scalar
1be0: 20 24 64 62 20 22 53 45 4c 45 43 54 20 3f 3b 22   $db "SELECT ?;"
1bf0: 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74 20   \..      [list 
1c00: 70 61 72 61 6d 31 20 44 61 74 65 54 69 6d 65 20  param1 DateTime 
1c10: 24 64 61 74 65 54 69 6d 65 56 61 6c 75 65 28 30  $dateTimeValue(0
1c20: 29 5d 5d 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e 64  )]]....  lappend
1c30: 20 72 65 73 75 6c 74 20 5b 73 71 6c 20 65 78 65   result [sql exe
1c40: 63 75 74 65 20 2d 65 78 65 63 75 74 65 20 73 63  cute -execute sc
1c50: 61 6c 61 72 20 24 64 62 20 22 53 45 4c 45 43 54  alar $db "SELECT
1c60: 20 3f 3b 22 20 5c 0d 0a 20 20 20 20 20 20 5b 6c   ?;" \..      [l
1c70: 69 73 74 20 70 61 72 61 6d 31 20 44 61 74 65 54  ist param1 DateT
1c80: 69 6d 65 20 24 64 61 74 65 54 69 6d 65 56 61 6c  ime $dateTimeVal
1c90: 75 65 28 31 29 5d 5d 0d 0a 0d 0a 20 20 6c 61 70  ue(1)]]....  lap
1ca0: 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 65 78 70  pend result [exp
1cb0: 72 20 7b 72 6f 75 6e 64 32 28 5b 73 71 6c 20 65  r {round2([sql e
1cc0: 78 65 63 75 74 65 20 2d 65 78 65 63 75 74 65 20  xecute -execute 
1cd0: 73 63 61 6c 61 72 20 24 64 62 20 22 53 45 4c 45  scalar $db "SELE
1ce0: 43 54 20 3f 3b 22 20 5c 0d 0a 20 20 20 20 20 20  CT ?;" \..      
1cf0: 5b 6c 69 73 74 20 70 61 72 61 6d 31 20 44 61 74  [list param1 Dat
1d00: 65 54 69 6d 65 20 24 64 61 74 65 54 69 6d 65 56  eTime $dateTimeV
1d10: 61 6c 75 65 28 32 29 5d 5d 2c 20 32 29 7d 5d 0d  alue(2)]], 2)}].
1d20: 0a 0d 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73  ...  lappend res
1d30: 75 6c 74 20 5b 65 78 70 72 20 7b 5b 6c 69 6e 64  ult [expr {[lind
1d40: 65 78 20 24 72 65 73 75 6c 74 20 30 5d 20 3d 3d  ex $result 0] ==
1d50: 20 5b 6c 69 6e 64 65 78 20 24 72 65 73 75 6c 74   [lindex $result
1d60: 20 31 5d 7d 5d 0d 0a 20 20 6c 61 70 70 65 6e 64   1]}]..  lappend
1d70: 20 72 65 73 75 6c 74 20 5b 65 78 70 72 20 7b 5b   result [expr {[
1d80: 6c 69 6e 64 65 78 20 24 72 65 73 75 6c 74 20 30  lindex $result 0
1d90: 5d 20 3d 3d 20 5b 6c 69 6e 64 65 78 20 24 72 65  ] == [lindex $re
1da0: 73 75 6c 74 20 32 5d 7d 5d 0d 0a 20 20 6c 61 70  sult 2]}]..  lap
1db0: 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 65 78 70  pend result [exp
1dc0: 72 20 7b 5b 6c 69 6e 64 65 78 20 24 72 65 73 75  r {[lindex $resu
1dd0: 6c 74 20 31 5d 20 3d 3d 20 5b 6c 69 6e 64 65 78  lt 1] == [lindex
1de0: 20 24 72 65 73 75 6c 74 20 32 5d 7d 5d 0d 0a 7d   $result 2]}]..}
1df0: 20 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 63   -cleanup {..  c
1e00: 6c 65 61 6e 75 70 44 62 20 24 66 69 6c 65 4e 61  leanupDb $fileNa
1e10: 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e  me....  unset -n
1e20: 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74  ocomplain result
1e30: 20 64 61 74 65 54 69 6d 65 56 61 6c 75 65 20 64   dateTimeValue d
1e40: 62 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63  b fileName..} -c
1e50: 6f 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67 6c  onstraints {eagl
1e60: 65 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74  e command.object
1e70: 20 6d 6f 6e 6f 42 75 67 32 38 20 63 6f 6d 6d 61   monoBug28 comma
1e80: 6e 64 2e 73 71 6c 20 63 6f 6d 70 69 6c 65 2e 44  nd.sql compile.D
1e90: 41 54 41 20 53 51 4c 69 74 65 5c 0d 0a 53 79 73  ATA SQLite\..Sys
1ea0: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 7d  tem.Data.SQLite}
1eb0: 20 2d 72 65 73 75 6c 74 20 7b 32 34 35 37 30 37   -result {245707
1ec0: 31 2e 35 20 32 34 35 37 30 37 31 2e 35 20 32 34  1.5 2457071.5 24
1ed0: 35 37 30 37 31 2e 38 33 20 54 72 75 65 20 46 61  57071.83 True Fa
1ee0: 6c 73 65 20 46 61 6c 73 65 7d 7d 0d 0a 0d 0a 23  lse False}}....#
1ef0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1f00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1f10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1f20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1f30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a  ##############..
1f40: 0d 0a 72 75 6e 54 65 73 74 20 7b 74 65 73 74 20  ..runTest {test 
1f50: 74 6b 74 2d 61 37 64 30 34 66 62 31 31 31 2d 31  tkt-a7d04fb111-1
1f60: 2e 36 20 7b 42 69 6e 64 20 44 61 74 65 54 69 6d  .6 {Bind DateTim
1f70: 65 20 4c 6f 63 61 6c 20 4a 75 6c 69 61 6e 44 61  e Local JulianDa
1f80: 79 7d 20 2d 73 65 74 75 70 20 7b 0d 0a 20 20 73  y} -setup {..  s
1f90: 65 74 75 70 44 62 20 5b 73 65 74 20 66 69 6c 65  etupDb [set file
1fa0: 4e 61 6d 65 20 74 6b 74 2d 61 37 64 30 34 66 62  Name tkt-a7d04fb
1fb0: 31 31 31 2d 31 2e 36 2e 64 62 5d 20 22 22 20 4a  111-1.6.db] "" J
1fc0: 75 6c 69 61 6e 44 61 79 20 4c 6f 63 61 6c 20 5c  ulianDay Local \
1fd0: 0d 0a 20 20 20 20 20 20 42 69 6e 64 44 61 74 65  ..      BindDate
1fe0: 54 69 6d 65 57 69 74 68 4b 69 6e 64 0d 0a 7d 20  TimeWithKind..} 
1ff0: 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65 74 20 64  -body {..  set d
2000: 61 74 65 54 69 6d 65 56 61 6c 75 65 28 30 29 20  ateTimeValue(0) 
2010: 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 5c  [object invoke \
2020: 0d 0a 20 20 20 20 20 20 2d 63 72 65 61 74 65 20  ..      -create 
2030: 44 61 74 65 54 69 6d 65 20 50 61 72 73 65 45 78  DateTime ParseEx
2040: 61 63 74 20 24 72 61 77 44 61 74 65 54 69 6d 65  act $rawDateTime
2050: 56 61 6c 75 65 20 5c 0d 0a 20 20 20 20 20 20 5b  Value \..      [
2060: 67 65 74 44 61 74 65 54 69 6d 65 46 6f 72 6d 61  getDateTimeForma
2070: 74 5d 20 6e 75 6c 6c 5d 0d 0a 0d 0a 20 20 73 65  t] null]....  se
2080: 74 20 64 61 74 65 54 69 6d 65 56 61 6c 75 65 28  t dateTimeValue(
2090: 31 29 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b  1) [object invok
20a0: 65 20 2d 63 72 65 61 74 65 20 2d 61 6c 69 61 73  e -create -alias
20b0: 20 5c 0d 0a 20 20 20 20 20 20 44 61 74 65 54 69   \..      DateTi
20c0: 6d 65 20 53 70 65 63 69 66 79 4b 69 6e 64 20 24  me SpecifyKind $
20d0: 64 61 74 65 54 69 6d 65 56 61 6c 75 65 28 30 29  dateTimeValue(0)
20e0: 20 55 74 63 5d 0d 0a 0d 0a 20 20 73 65 74 20 64   Utc]....  set d
20f0: 61 74 65 54 69 6d 65 56 61 6c 75 65 28 32 29 20  ateTimeValue(2) 
2100: 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d  [object invoke -
2110: 63 72 65 61 74 65 20 2d 61 6c 69 61 73 20 5c 0d  create -alias \.
2120: 0a 20 20 20 20 20 20 44 61 74 65 54 69 6d 65 20  .      DateTime 
2130: 53 70 65 63 69 66 79 4b 69 6e 64 20 24 64 61 74  SpecifyKind $dat
2140: 65 54 69 6d 65 56 61 6c 75 65 28 30 29 20 4c 6f  eTimeValue(0) Lo
2150: 63 61 6c 5d 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e  cal]....  lappen
2160: 64 20 72 65 73 75 6c 74 20 5b 73 71 6c 20 65 78  d result [sql ex
2170: 65 63 75 74 65 20 2d 65 78 65 63 75 74 65 20 73  ecute -execute s
2180: 63 61 6c 61 72 20 24 64 62 20 22 53 45 4c 45 43  calar $db "SELEC
2190: 54 20 3f 3b 22 20 5c 0d 0a 20 20 20 20 20 20 5b  T ?;" \..      [
21a0: 6c 69 73 74 20 70 61 72 61 6d 31 20 44 61 74 65  list param1 Date
21b0: 54 69 6d 65 20 24 64 61 74 65 54 69 6d 65 56 61  Time $dateTimeVa
21c0: 6c 75 65 28 30 29 5d 5d 0d 0a 0d 0a 20 20 6c 61  lue(0)]]....  la
21d0: 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 65 78  ppend result [ex
21e0: 70 72 20 7b 72 6f 75 6e 64 32 28 5b 73 71 6c 20  pr {round2([sql 
21f0: 65 78 65 63 75 74 65 20 2d 65 78 65 63 75 74 65  execute -execute
2200: 20 73 63 61 6c 61 72 20 24 64 62 20 22 53 45 4c   scalar $db "SEL
2210: 45 43 54 20 3f 3b 22 20 5c 0d 0a 20 20 20 20 20  ECT ?;" \..     
2220: 20 5b 6c 69 73 74 20 70 61 72 61 6d 31 20 44 61   [list param1 Da
2230: 74 65 54 69 6d 65 20 24 64 61 74 65 54 69 6d 65  teTime $dateTime
2240: 56 61 6c 75 65 28 31 29 5d 5d 2c 20 32 29 7d 5d  Value(1)]], 2)}]
2250: 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e 64 20 72 65  ....  lappend re
2260: 73 75 6c 74 20 5b 73 71 6c 20 65 78 65 63 75 74  sult [sql execut
2270: 65 20 2d 65 78 65 63 75 74 65 20 73 63 61 6c 61  e -execute scala
2280: 72 20 24 64 62 20 22 53 45 4c 45 43 54 20 3f 3b  r $db "SELECT ?;
2290: 22 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74  " \..      [list
22a0: 20 70 61 72 61 6d 31 20 44 61 74 65 54 69 6d 65   param1 DateTime
22b0: 20 24 64 61 74 65 54 69 6d 65 56 61 6c 75 65 28   $dateTimeValue(
22c0: 32 29 5d 5d 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e  2)]]....  lappen
22d0: 64 20 72 65 73 75 6c 74 20 5b 65 78 70 72 20 7b  d result [expr {
22e0: 5b 6c 69 6e 64 65 78 20 24 72 65 73 75 6c 74 20  [lindex $result 
22f0: 30 5d 20 3d 3d 20 5b 6c 69 6e 64 65 78 20 24 72  0] == [lindex $r
2300: 65 73 75 6c 74 20 31 5d 7d 5d 0d 0a 20 20 6c 61  esult 1]}]..  la
2310: 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 65 78  ppend result [ex
2320: 70 72 20 7b 5b 6c 69 6e 64 65 78 20 24 72 65 73  pr {[lindex $res
2330: 75 6c 74 20 30 5d 20 3d 3d 20 5b 6c 69 6e 64 65  ult 0] == [linde
2340: 78 20 24 72 65 73 75 6c 74 20 32 5d 7d 5d 0d 0a  x $result 2]}]..
2350: 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74    lappend result
2360: 20 5b 65 78 70 72 20 7b 5b 6c 69 6e 64 65 78 20   [expr {[lindex 
2370: 24 72 65 73 75 6c 74 20 31 5d 20 3d 3d 20 5b 6c  $result 1] == [l
2380: 69 6e 64 65 78 20 24 72 65 73 75 6c 74 20 32 5d  index $result 2]
2390: 7d 5d 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b  }]..} -cleanup {
23a0: 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66  ..  cleanupDb $f
23b0: 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73  ileName....  uns
23c0: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72  et -nocomplain r
23d0: 65 73 75 6c 74 20 64 61 74 65 54 69 6d 65 56 61  esult dateTimeVa
23e0: 6c 75 65 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d  lue db fileName.
23f0: 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  .} -constraints 
2400: 7b 65 61 67 6c 65 20 63 6f 6d 6d 61 6e 64 2e 6f  {eagle command.o
2410: 62 6a 65 63 74 20 6d 6f 6e 6f 42 75 67 32 38 20  bject monoBug28 
2420: 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20 63 6f 6d 70  command.sql comp
2430: 69 6c 65 2e 44 41 54 41 20 53 51 4c 69 74 65 5c  ile.DATA SQLite\
2440: 0d 0a 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  ..System.Data.SQ
2450: 4c 69 74 65 7d 20 2d 72 65 73 75 6c 74 20 7b 32  Lite} -result {2
2460: 34 35 37 30 37 31 2e 35 20 32 34 35 37 30 37 31  457071.5 2457071
2470: 2e 31 37 20 32 34 35 37 30 37 31 2e 35 20 46 61  .17 2457071.5 Fa
2480: 6c 73 65 20 54 72 75 65 20 46 61 6c 73 65 7d 7d  lse True False}}
2490: 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23  ....############
24a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
24b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
24c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
24d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
24e0: 23 23 23 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b  ###....runTest {
24f0: 74 65 73 74 20 74 6b 74 2d 61 37 64 30 34 66 62  test tkt-a7d04fb
2500: 31 31 31 2d 31 2e 37 20 7b 42 69 6e 64 20 44 61  111-1.7 {Bind Da
2510: 74 65 54 69 6d 65 20 55 74 63 20 55 6e 69 78 45  teTime Utc UnixE
2520: 70 6f 63 68 7d 20 2d 73 65 74 75 70 20 7b 0d 0a  poch} -setup {..
2530: 20 20 73 65 74 75 70 44 62 20 5b 73 65 74 20 66    setupDb [set f
2540: 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 61 37 64 30  ileName tkt-a7d0
2550: 34 66 62 31 31 31 2d 31 2e 37 2e 64 62 5d 20 22  4fb111-1.7.db] "
2560: 22 20 55 6e 69 78 45 70 6f 63 68 20 55 74 63 20  " UnixEpoch Utc 
2570: 5c 0d 0a 20 20 20 20 20 20 42 69 6e 64 44 61 74  \..      BindDat
2580: 65 54 69 6d 65 57 69 74 68 4b 69 6e 64 0d 0a 7d  eTimeWithKind..}
2590: 20 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65 74 20   -body {..  set 
25a0: 64 61 74 65 54 69 6d 65 56 61 6c 75 65 28 30 29  dateTimeValue(0)
25b0: 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20   [object invoke 
25c0: 5c 0d 0a 20 20 20 20 20 20 2d 63 72 65 61 74 65  \..      -create
25d0: 20 44 61 74 65 54 69 6d 65 20 50 61 72 73 65 45   DateTime ParseE
25e0: 78 61 63 74 20 24 72 61 77 44 61 74 65 54 69 6d  xact $rawDateTim
25f0: 65 56 61 6c 75 65 20 5c 0d 0a 20 20 20 20 20 20  eValue \..      
2600: 5b 67 65 74 44 61 74 65 54 69 6d 65 46 6f 72 6d  [getDateTimeForm
2610: 61 74 5d 20 6e 75 6c 6c 5d 0d 0a 0d 0a 20 20 73  at] null]....  s
2620: 65 74 20 64 61 74 65 54 69 6d 65 56 61 6c 75 65  et dateTimeValue
2630: 28 31 29 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f  (1) [object invo
2640: 6b 65 20 2d 63 72 65 61 74 65 20 2d 61 6c 69 61  ke -create -alia
2650: 73 20 5c 0d 0a 20 20 20 20 20 20 44 61 74 65 54  s \..      DateT
2660: 69 6d 65 20 53 70 65 63 69 66 79 4b 69 6e 64 20  ime SpecifyKind 
2670: 24 64 61 74 65 54 69 6d 65 56 61 6c 75 65 28 30  $dateTimeValue(0
2680: 29 20 55 74 63 5d 0d 0a 0d 0a 20 20 73 65 74 20  ) Utc]....  set 
2690: 64 61 74 65 54 69 6d 65 56 61 6c 75 65 28 32 29  dateTimeValue(2)
26a0: 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20   [object invoke 
26b0: 2d 63 72 65 61 74 65 20 2d 61 6c 69 61 73 20 5c  -create -alias \
26c0: 0d 0a 20 20 20 20 20 20 44 61 74 65 54 69 6d 65  ..      DateTime
26d0: 20 53 70 65 63 69 66 79 4b 69 6e 64 20 24 64 61   SpecifyKind $da
26e0: 74 65 54 69 6d 65 56 61 6c 75 65 28 30 29 20 4c  teTimeValue(0) L
26f0: 6f 63 61 6c 5d 0d 0a 0d 0a 20 20 6c 61 70 70 65  ocal]....  lappe
2700: 6e 64 20 72 65 73 75 6c 74 20 5b 73 71 6c 20 65  nd result [sql e
2710: 78 65 63 75 74 65 20 2d 65 78 65 63 75 74 65 20  xecute -execute 
2720: 73 63 61 6c 61 72 20 24 64 62 20 22 53 45 4c 45  scalar $db "SELE
2730: 43 54 20 3f 3b 22 20 5c 0d 0a 20 20 20 20 20 20  CT ?;" \..      
2740: 5b 6c 69 73 74 20 70 61 72 61 6d 31 20 44 61 74  [list param1 Dat
2750: 65 54 69 6d 65 20 24 64 61 74 65 54 69 6d 65 56  eTime $dateTimeV
2760: 61 6c 75 65 28 30 29 5d 5d 0d 0a 0d 0a 20 20 6c  alue(0)]]....  l
2770: 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 73  append result [s
2780: 71 6c 20 65 78 65 63 75 74 65 20 2d 65 78 65 63  ql execute -exec
2790: 75 74 65 20 73 63 61 6c 61 72 20 24 64 62 20 22  ute scalar $db "
27a0: 53 45 4c 45 43 54 20 3f 3b 22 20 5c 0d 0a 20 20  SELECT ?;" \..  
27b0: 20 20 20 20 5b 6c 69 73 74 20 70 61 72 61 6d 31      [list param1
27c0: 20 44 61 74 65 54 69 6d 65 20 24 64 61 74 65 54   DateTime $dateT
27d0: 69 6d 65 56 61 6c 75 65 28 31 29 5d 5d 0d 0a 0d  imeValue(1)]]...
27e0: 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c  .  lappend resul
27f0: 74 20 5b 73 71 6c 20 65 78 65 63 75 74 65 20 2d  t [sql execute -
2800: 65 78 65 63 75 74 65 20 73 63 61 6c 61 72 20 24  execute scalar $
2810: 64 62 20 22 53 45 4c 45 43 54 20 3f 3b 22 20 5c  db "SELECT ?;" \
2820: 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74 20 70 61  ..      [list pa
2830: 72 61 6d 31 20 44 61 74 65 54 69 6d 65 20 24 64  ram1 DateTime $d
2840: 61 74 65 54 69 6d 65 56 61 6c 75 65 28 32 29 5d  ateTimeValue(2)]
2850: 5d 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e 64 20 72  ]....  lappend r
2860: 65 73 75 6c 74 20 5b 65 78 70 72 20 7b 5b 6c 69  esult [expr {[li
2870: 6e 64 65 78 20 24 72 65 73 75 6c 74 20 30 5d 20  ndex $result 0] 
2880: 3d 3d 20 5b 6c 69 6e 64 65 78 20 24 72 65 73 75  == [lindex $resu
2890: 6c 74 20 31 5d 7d 5d 0d 0a 20 20 6c 61 70 70 65  lt 1]}]..  lappe
28a0: 6e 64 20 72 65 73 75 6c 74 20 5b 65 78 70 72 20  nd result [expr 
28b0: 7b 5b 6c 69 6e 64 65 78 20 24 72 65 73 75 6c 74  {[lindex $result
28c0: 20 30 5d 20 3d 3d 20 5b 6c 69 6e 64 65 78 20 24   0] == [lindex $
28d0: 72 65 73 75 6c 74 20 32 5d 7d 5d 0d 0a 20 20 6c  result 2]}]..  l
28e0: 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 65  append result [e
28f0: 78 70 72 20 7b 5b 6c 69 6e 64 65 78 20 24 72 65  xpr {[lindex $re
2900: 73 75 6c 74 20 31 5d 20 3d 3d 20 5b 6c 69 6e 64  sult 1] == [lind
2910: 65 78 20 24 72 65 73 75 6c 74 20 32 5d 7d 5d 0d  ex $result 2]}].
2920: 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20  .} -cleanup {.. 
2930: 20 63 6c 65 61 6e 75 70 44 62 20 24 66 69 6c 65   cleanupDb $file
2940: 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65 74 20  Name....  unset 
2950: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75  -nocomplain resu
2960: 6c 74 20 64 61 74 65 54 69 6d 65 56 61 6c 75 65  lt dateTimeValue
2970: 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d 20   db fileName..} 
2980: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 65 61  -constraints {ea
2990: 67 6c 65 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a 65  gle command.obje
29a0: 63 74 20 6d 6f 6e 6f 42 75 67 32 38 20 63 6f 6d  ct monoBug28 com
29b0: 6d 61 6e 64 2e 73 71 6c 20 63 6f 6d 70 69 6c 65  mand.sql compile
29c0: 2e 44 41 54 41 20 53 51 4c 69 74 65 5c 0d 0a 53  .DATA SQLite\..S
29d0: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
29e0: 65 7d 20 2d 72 65 73 75 6c 74 20 7b 31 34 32 34  e} -result {1424
29f0: 32 31 37 36 30 30 20 31 34 32 34 32 31 37 36 30  217600 142421760
2a00: 30 20 31 34 32 34 32 34 36 34 30 30 20 54 72 75  0 1424246400 Tru
2a10: 65 20 46 61 6c 73 65 20 46 61 6c 73 65 7d 7d 0d  e False False}}.
2a20: 0a 0d 0a 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 23 23 23 23 23 23 23 23 23  ################
2a60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2a70: 23 23 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b 74  ##....runTest {t
2a80: 65 73 74 20 74 6b 74 2d 61 37 64 30 34 66 62 31  est tkt-a7d04fb1
2a90: 31 31 2d 31 2e 38 20 7b 42 69 6e 64 20 44 61 74  11-1.8 {Bind Dat
2aa0: 65 54 69 6d 65 20 4c 6f 63 61 6c 20 55 6e 69 78  eTime Local Unix
2ab0: 45 70 6f 63 68 7d 20 2d 73 65 74 75 70 20 7b 0d  Epoch} -setup {.
2ac0: 0a 20 20 73 65 74 75 70 44 62 20 5b 73 65 74 20  .  setupDb [set 
2ad0: 66 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 61 37 64  fileName tkt-a7d
2ae0: 30 34 66 62 31 31 31 2d 31 2e 38 2e 64 62 5d 20  04fb111-1.8.db] 
2af0: 22 22 20 55 6e 69 78 45 70 6f 63 68 20 4c 6f 63  "" UnixEpoch Loc
2b00: 61 6c 20 5c 0d 0a 20 20 20 20 20 20 42 69 6e 64  al \..      Bind
2b10: 44 61 74 65 54 69 6d 65 57 69 74 68 4b 69 6e 64  DateTimeWithKind
2b20: 0d 0a 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20 20 73  ..} -body {..  s
2b30: 65 74 20 64 61 74 65 54 69 6d 65 56 61 6c 75 65  et dateTimeValue
2b40: 28 30 29 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f  (0) [object invo
2b50: 6b 65 20 5c 0d 0a 20 20 20 20 20 20 2d 63 72 65  ke \..      -cre
2b60: 61 74 65 20 44 61 74 65 54 69 6d 65 20 50 61 72  ate DateTime Par
2b70: 73 65 45 78 61 63 74 20 24 72 61 77 44 61 74 65  seExact $rawDate
2b80: 54 69 6d 65 56 61 6c 75 65 20 5c 0d 0a 20 20 20  TimeValue \..   
2b90: 20 20 20 5b 67 65 74 44 61 74 65 54 69 6d 65 46     [getDateTimeF
2ba0: 6f 72 6d 61 74 5d 20 6e 75 6c 6c 5d 0d 0a 0d 0a  ormat] null]....
2bb0: 20 20 73 65 74 20 64 61 74 65 54 69 6d 65 56 61    set dateTimeVa
2bc0: 6c 75 65 28 31 29 20 5b 6f 62 6a 65 63 74 20 69  lue(1) [object i
2bd0: 6e 76 6f 6b 65 20 2d 63 72 65 61 74 65 20 2d 61  nvoke -create -a
2be0: 6c 69 61 73 20 5c 0d 0a 20 20 20 20 20 20 44 61  lias \..      Da
2bf0: 74 65 54 69 6d 65 20 53 70 65 63 69 66 79 4b 69  teTime SpecifyKi
2c00: 6e 64 20 24 64 61 74 65 54 69 6d 65 56 61 6c 75  nd $dateTimeValu
2c10: 65 28 30 29 20 55 74 63 5d 0d 0a 0d 0a 20 20 73  e(0) Utc]....  s
2c20: 65 74 20 64 61 74 65 54 69 6d 65 56 61 6c 75 65  et dateTimeValue
2c30: 28 32 29 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f  (2) [object invo
2c40: 6b 65 20 2d 63 72 65 61 74 65 20 2d 61 6c 69 61  ke -create -alia
2c50: 73 20 5c 0d 0a 20 20 20 20 20 20 44 61 74 65 54  s \..      DateT
2c60: 69 6d 65 20 53 70 65 63 69 66 79 4b 69 6e 64 20  ime SpecifyKind 
2c70: 24 64 61 74 65 54 69 6d 65 56 61 6c 75 65 28 30  $dateTimeValue(0
2c80: 29 20 4c 6f 63 61 6c 5d 0d 0a 0d 0a 20 20 6c 61  ) Local]....  la
2c90: 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 73 71  ppend result [sq
2ca0: 6c 20 65 78 65 63 75 74 65 20 2d 65 78 65 63 75  l execute -execu
2cb0: 74 65 20 73 63 61 6c 61 72 20 24 64 62 20 22 53  te scalar $db "S
2cc0: 45 4c 45 43 54 20 3f 3b 22 20 5c 0d 0a 20 20 20  ELECT ?;" \..   
2cd0: 20 20 20 5b 6c 69 73 74 20 70 61 72 61 6d 31 20     [list param1 
2ce0: 44 61 74 65 54 69 6d 65 20 24 64 61 74 65 54 69  DateTime $dateTi
2cf0: 6d 65 56 61 6c 75 65 28 30 29 5d 5d 0d 0a 0d 0a  meValue(0)]]....
2d00: 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74    lappend result
2d10: 20 5b 73 71 6c 20 65 78 65 63 75 74 65 20 2d 65   [sql execute -e
2d20: 78 65 63 75 74 65 20 73 63 61 6c 61 72 20 24 64  xecute scalar $d
2d30: 62 20 22 53 45 4c 45 43 54 20 3f 3b 22 20 5c 0d  b "SELECT ?;" \.
2d40: 0a 20 20 20 20 20 20 5b 6c 69 73 74 20 70 61 72  .      [list par
2d50: 61 6d 31 20 44 61 74 65 54 69 6d 65 20 24 64 61  am1 DateTime $da
2d60: 74 65 54 69 6d 65 56 61 6c 75 65 28 31 29 5d 5d  teTimeValue(1)]]
2d70: 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e 64 20 72 65  ....  lappend re
2d80: 73 75 6c 74 20 5b 73 71 6c 20 65 78 65 63 75 74  sult [sql execut
2d90: 65 20 2d 65 78 65 63 75 74 65 20 73 63 61 6c 61  e -execute scala
2da0: 72 20 24 64 62 20 22 53 45 4c 45 43 54 20 3f 3b  r $db "SELECT ?;
2db0: 22 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74  " \..      [list
2dc0: 20 70 61 72 61 6d 31 20 44 61 74 65 54 69 6d 65   param1 DateTime
2dd0: 20 24 64 61 74 65 54 69 6d 65 56 61 6c 75 65 28   $dateTimeValue(
2de0: 32 29 5d 5d 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e  2)]]....  lappen
2df0: 64 20 72 65 73 75 6c 74 20 5b 65 78 70 72 20 7b  d result [expr {
2e00: 5b 6c 69 6e 64 65 78 20 24 72 65 73 75 6c 74 20  [lindex $result 
2e10: 30 5d 20 3d 3d 20 5b 6c 69 6e 64 65 78 20 24 72  0] == [lindex $r
2e20: 65 73 75 6c 74 20 31 5d 7d 5d 0d 0a 20 20 6c 61  esult 1]}]..  la
2e30: 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 65 78  ppend result [ex
2e40: 70 72 20 7b 5b 6c 69 6e 64 65 78 20 24 72 65 73  pr {[lindex $res
2e50: 75 6c 74 20 30 5d 20 3d 3d 20 5b 6c 69 6e 64 65  ult 0] == [linde
2e60: 78 20 24 72 65 73 75 6c 74 20 32 5d 7d 5d 0d 0a  x $result 2]}]..
2e70: 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74    lappend result
2e80: 20 5b 65 78 70 72 20 7b 5b 6c 69 6e 64 65 78 20   [expr {[lindex 
2e90: 24 72 65 73 75 6c 74 20 31 5d 20 3d 3d 20 5b 6c  $result 1] == [l
2ea0: 69 6e 64 65 78 20 24 72 65 73 75 6c 74 20 32 5d  index $result 2]
2eb0: 7d 5d 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b  }]..} -cleanup {
2ec0: 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66  ..  cleanupDb $f
2ed0: 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73  ileName....  uns
2ee0: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72  et -nocomplain r
2ef0: 65 73 75 6c 74 20 64 61 74 65 54 69 6d 65 56 61  esult dateTimeVa
2f00: 6c 75 65 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d  lue db fileName.
2f10: 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  .} -constraints 
2f20: 7b 65 61 67 6c 65 20 63 6f 6d 6d 61 6e 64 2e 6f  {eagle command.o
2f30: 62 6a 65 63 74 20 6d 6f 6e 6f 42 75 67 32 38 20  bject monoBug28 
2f40: 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20 63 6f 6d 70  command.sql comp
2f50: 69 6c 65 2e 44 41 54 41 20 53 51 4c 69 74 65 5c  ile.DATA SQLite\
2f60: 0d 0a 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  ..System.Data.SQ
2f70: 4c 69 74 65 7d 20 2d 72 65 73 75 6c 74 20 7b 31  Lite} -result {1
2f80: 34 32 34 32 31 37 36 30 30 20 31 34 32 34 31 38  424217600 142418
2f90: 38 38 30 30 20 31 34 32 34 32 31 37 36 30 30 20  8800 1424217600 
2fa0: 46 61 6c 73 65 20 54 72 75 65 20 46 61 6c 73 65  False True False
2fb0: 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23  }}....##########
2fc0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2fd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2fe0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2ff0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3000: 23 23 23 23 23 0d 0a 0d 0a 72 75 6e 54 65 73 74  #####....runTest
3010: 20 7b 74 65 73 74 20 74 6b 74 2d 61 37 64 30 34   {test tkt-a7d04
3020: 66 62 31 31 31 2d 31 2e 39 20 7b 42 69 6e 64 20  fb111-1.9 {Bind 
3030: 44 61 74 65 54 69 6d 65 20 55 74 63 20 49 6e 76  DateTime Utc Inv
3040: 61 72 69 61 6e 74 7d 20 2d 73 65 74 75 70 20 7b  ariant} -setup {
3050: 0d 0a 20 20 73 65 74 75 70 44 62 20 5b 73 65 74  ..  setupDb [set
3060: 20 66 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 61 37   fileName tkt-a7
3070: 64 30 34 66 62 31 31 31 2d 31 2e 39 2e 64 62 5d  d04fb111-1.9.db]
3080: 20 22 22 20 49 6e 76 61 72 69 61 6e 74 43 75 6c   "" InvariantCul
3090: 74 75 72 65 20 55 74 63 20 5c 0d 0a 20 20 20 20  ture Utc \..    
30a0: 20 20 42 69 6e 64 44 61 74 65 54 69 6d 65 57 69    BindDateTimeWi
30b0: 74 68 4b 69 6e 64 0d 0a 7d 20 2d 62 6f 64 79 20  thKind..} -body 
30c0: 7b 0d 0a 20 20 73 65 74 20 64 61 74 65 54 69 6d  {..  set dateTim
30d0: 65 56 61 6c 75 65 28 30 29 20 5b 6f 62 6a 65 63  eValue(0) [objec
30e0: 74 20 69 6e 76 6f 6b 65 20 5c 0d 0a 20 20 20 20  t invoke \..    
30f0: 20 20 2d 63 72 65 61 74 65 20 44 61 74 65 54 69    -create DateTi
3100: 6d 65 20 50 61 72 73 65 45 78 61 63 74 20 24 72  me ParseExact $r
3110: 61 77 44 61 74 65 54 69 6d 65 56 61 6c 75 65 20  awDateTimeValue 
3120: 5c 0d 0a 20 20 20 20 20 20 5b 67 65 74 44 61 74  \..      [getDat
3130: 65 54 69 6d 65 46 6f 72 6d 61 74 5d 20 6e 75 6c  eTimeFormat] nul
3140: 6c 5d 0d 0a 0d 0a 20 20 73 65 74 20 64 61 74 65  l]....  set date
3150: 54 69 6d 65 56 61 6c 75 65 28 31 29 20 5b 6f 62  TimeValue(1) [ob
3160: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 63 72 65  ject invoke -cre
3170: 61 74 65 20 2d 61 6c 69 61 73 20 5c 0d 0a 20 20  ate -alias \..  
3180: 20 20 20 20 44 61 74 65 54 69 6d 65 20 53 70 65      DateTime Spe
3190: 63 69 66 79 4b 69 6e 64 20 24 64 61 74 65 54 69  cifyKind $dateTi
31a0: 6d 65 56 61 6c 75 65 28 30 29 20 55 74 63 5d 0d  meValue(0) Utc].
31b0: 0a 0d 0a 20 20 73 65 74 20 64 61 74 65 54 69 6d  ...  set dateTim
31c0: 65 56 61 6c 75 65 28 32 29 20 5b 6f 62 6a 65 63  eValue(2) [objec
31d0: 74 20 69 6e 76 6f 6b 65 20 2d 63 72 65 61 74 65  t invoke -create
31e0: 20 2d 61 6c 69 61 73 20 5c 0d 0a 20 20 20 20 20   -alias \..     
31f0: 20 44 61 74 65 54 69 6d 65 20 53 70 65 63 69 66   DateTime Specif
3200: 79 4b 69 6e 64 20 24 64 61 74 65 54 69 6d 65 56  yKind $dateTimeV
3210: 61 6c 75 65 28 30 29 20 4c 6f 63 61 6c 5d 0d 0a  alue(0) Local]..
3220: 0d 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75  ..  lappend resu
3230: 6c 74 20 5b 73 71 6c 20 65 78 65 63 75 74 65 20  lt [sql execute 
3240: 2d 65 78 65 63 75 74 65 20 73 63 61 6c 61 72 20  -execute scalar 
3250: 24 64 62 20 22 53 45 4c 45 43 54 20 3f 3b 22 20  $db "SELECT ?;" 
3260: 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74 20 70  \..      [list p
3270: 61 72 61 6d 31 20 44 61 74 65 54 69 6d 65 20 24  aram1 DateTime $
3280: 64 61 74 65 54 69 6d 65 56 61 6c 75 65 28 30 29  dateTimeValue(0)
3290: 5d 5d 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e 64 20  ]]....  lappend 
32a0: 72 65 73 75 6c 74 20 5b 73 71 6c 20 65 78 65 63  result [sql exec
32b0: 75 74 65 20 2d 65 78 65 63 75 74 65 20 73 63 61  ute -execute sca
32c0: 6c 61 72 20 24 64 62 20 22 53 45 4c 45 43 54 20  lar $db "SELECT 
32d0: 3f 3b 22 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69  ?;" \..      [li
32e0: 73 74 20 70 61 72 61 6d 31 20 44 61 74 65 54 69  st param1 DateTi
32f0: 6d 65 20 24 64 61 74 65 54 69 6d 65 56 61 6c 75  me $dateTimeValu
3300: 65 28 31 29 5d 5d 0d 0a 0d 0a 20 20 6c 61 70 70  e(1)]]....  lapp
3310: 65 6e 64 20 72 65 73 75 6c 74 20 5b 73 71 6c 20  end result [sql 
3320: 65 78 65 63 75 74 65 20 2d 65 78 65 63 75 74 65  execute -execute
3330: 20 73 63 61 6c 61 72 20 24 64 62 20 22 53 45 4c   scalar $db "SEL
3340: 45 43 54 20 3f 3b 22 20 5c 0d 0a 20 20 20 20 20  ECT ?;" \..     
3350: 20 5b 6c 69 73 74 20 70 61 72 61 6d 31 20 44 61   [list param1 Da
3360: 74 65 54 69 6d 65 20 24 64 61 74 65 54 69 6d 65  teTime $dateTime
3370: 56 61 6c 75 65 28 32 29 5d 5d 0d 0a 0d 0a 20 20  Value(2)]]....  
3380: 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b  lappend result [
3390: 65 78 70 72 20 7b 5b 6c 69 6e 64 65 78 20 24 72  expr {[lindex $r
33a0: 65 73 75 6c 74 20 30 5d 20 65 71 20 5b 6c 69 6e  esult 0] eq [lin
33b0: 64 65 78 20 24 72 65 73 75 6c 74 20 31 5d 7d 5d  dex $result 1]}]
33c0: 0d 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75  ..  lappend resu
33d0: 6c 74 20 5b 65 78 70 72 20 7b 5b 6c 69 6e 64 65  lt [expr {[linde
33e0: 78 20 24 72 65 73 75 6c 74 20 30 5d 20 65 71 20  x $result 0] eq 
33f0: 5b 6c 69 6e 64 65 78 20 24 72 65 73 75 6c 74 20  [lindex $result 
3400: 32 5d 7d 5d 0d 0a 20 20 6c 61 70 70 65 6e 64 20  2]}]..  lappend 
3410: 72 65 73 75 6c 74 20 5b 65 78 70 72 20 7b 5b 6c  result [expr {[l
3420: 69 6e 64 65 78 20 24 72 65 73 75 6c 74 20 31 5d  index $result 1]
3430: 20 65 71 20 5b 6c 69 6e 64 65 78 20 24 72 65 73   eq [lindex $res
3440: 75 6c 74 20 32 5d 7d 5d 0d 0a 7d 20 2d 63 6c 65  ult 2]}]..} -cle
3450: 61 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61 6e 75  anup {..  cleanu
3460: 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d  pDb $fileName...
3470: 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70  .  unset -nocomp
3480: 6c 61 69 6e 20 72 65 73 75 6c 74 20 64 61 74 65  lain result date
3490: 54 69 6d 65 56 61 6c 75 65 20 64 62 20 66 69 6c  TimeValue db fil
34a0: 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72  eName..} -constr
34b0: 61 69 6e 74 73 20 7b 65 61 67 6c 65 20 63 6f 6d  aints {eagle com
34c0: 6d 61 6e 64 2e 6f 62 6a 65 63 74 20 6d 6f 6e 6f  mand.object mono
34d0: 42 75 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73 71  Bug28 command.sq
34e0: 6c 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53  l compile.DATA S
34f0: 51 4c 69 74 65 5c 0d 0a 53 79 73 74 65 6d 2e 44  QLite\..System.D
3500: 61 74 61 2e 53 51 4c 69 74 65 7d 20 2d 72 65 73  ata.SQLite} -res
3510: 75 6c 74 20 7b 32 30 31 35 2d 30 32 2d 31 38 54  ult {2015-02-18T
3520: 30 30 3a 30 30 3a 30 30 2e 30 30 30 30 30 30 30  00:00:00.0000000
3530: 5c 0d 0a 32 30 31 35 2d 30 32 2d 31 38 54 30 30  \..2015-02-18T00
3540: 3a 30 30 3a 30 30 2e 30 30 30 30 30 30 30 5a 20  :00:00.0000000Z 
3550: 32 30 31 35 2d 30 32 2d 31 38 54 30 38 3a 30 30  2015-02-18T08:00
3560: 3a 30 30 2e 30 30 30 30 30 30 30 5a 20 46 61 6c  :00.0000000Z Fal
3570: 73 65 20 46 61 6c 73 65 20 46 61 6c 73 65 7d 7d  se False False}}
3580: 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23  ....############
3590: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
35a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
35b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
35c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
35d0: 23 23 23 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b  ###....runTest {
35e0: 74 65 73 74 20 74 6b 74 2d 61 37 64 30 34 66 62  test tkt-a7d04fb
35f0: 31 31 31 2d 31 2e 31 30 20 7b 42 69 6e 64 20 44  111-1.10 {Bind D
3600: 61 74 65 54 69 6d 65 20 4c 6f 63 61 6c 20 49 6e  ateTime Local In
3610: 76 61 72 69 61 6e 74 7d 20 2d 73 65 74 75 70 20  variant} -setup 
3620: 7b 0d 0a 20 20 73 65 74 75 70 44 62 20 5b 73 65  {..  setupDb [se
3630: 74 20 66 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 61  t fileName tkt-a
3640: 37 64 30 34 66 62 31 31 31 2d 31 2e 31 30 2e 64  7d04fb111-1.10.d
3650: 62 5d 20 22 22 20 49 6e 76 61 72 69 61 6e 74 43  b] "" InvariantC
3660: 75 6c 74 75 72 65 20 4c 6f 63 61 6c 20 5c 0d 0a  ulture Local \..
3670: 20 20 20 20 20 20 42 69 6e 64 44 61 74 65 54 69        BindDateTi
3680: 6d 65 57 69 74 68 4b 69 6e 64 0d 0a 7d 20 2d 62  meWithKind..} -b
3690: 6f 64 79 20 7b 0d 0a 20 20 73 65 74 20 64 61 74  ody {..  set dat
36a0: 65 54 69 6d 65 56 61 6c 75 65 28 30 29 20 5b 6f  eTimeValue(0) [o
36b0: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 5c 0d 0a  bject invoke \..
36c0: 20 20 20 20 20 20 2d 63 72 65 61 74 65 20 44 61        -create Da
36d0: 74 65 54 69 6d 65 20 50 61 72 73 65 45 78 61 63  teTime ParseExac
36e0: 74 20 24 72 61 77 44 61 74 65 54 69 6d 65 56 61  t $rawDateTimeVa
36f0: 6c 75 65 20 5c 0d 0a 20 20 20 20 20 20 5b 67 65  lue \..      [ge
3700: 74 44 61 74 65 54 69 6d 65 46 6f 72 6d 61 74 5d  tDateTimeFormat]
3710: 20 6e 75 6c 6c 5d 0d 0a 0d 0a 20 20 73 65 74 20   null]....  set 
3720: 64 61 74 65 54 69 6d 65 56 61 6c 75 65 28 31 29  dateTimeValue(1)
3730: 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20   [object invoke 
3740: 2d 63 72 65 61 74 65 20 2d 61 6c 69 61 73 20 5c  -create -alias \
3750: 0d 0a 20 20 20 20 20 20 44 61 74 65 54 69 6d 65  ..      DateTime
3760: 20 53 70 65 63 69 66 79 4b 69 6e 64 20 24 64 61   SpecifyKind $da
3770: 74 65 54 69 6d 65 56 61 6c 75 65 28 30 29 20 55  teTimeValue(0) U
3780: 74 63 5d 0d 0a 0d 0a 20 20 73 65 74 20 64 61 74  tc]....  set dat
3790: 65 54 69 6d 65 56 61 6c 75 65 28 32 29 20 5b 6f  eTimeValue(2) [o
37a0: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 63 72  bject invoke -cr
37b0: 65 61 74 65 20 2d 61 6c 69 61 73 20 5c 0d 0a 20  eate -alias \.. 
37c0: 20 20 20 20 20 44 61 74 65 54 69 6d 65 20 53 70       DateTime Sp
37d0: 65 63 69 66 79 4b 69 6e 64 20 24 64 61 74 65 54  ecifyKind $dateT
37e0: 69 6d 65 56 61 6c 75 65 28 30 29 20 4c 6f 63 61  imeValue(0) Loca
37f0: 6c 5d 0d 0a 0d 0a 20 20 6c 61 70 70 65 6e 64 20  l]....  lappend 
3800: 72 65 73 75 6c 74 20 5b 73 71 6c 20 65 78 65 63  result [sql exec
3810: 75 74 65 20 2d 65 78 65 63 75 74 65 20 73 63 61  ute -execute sca
3820: 6c 61 72 20 24 64 62 20 22 53 45 4c 45 43 54 20  lar $db "SELECT 
3830: 3f 3b 22 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69  ?;" \..      [li
3840: 73 74 20 70 61 72 61 6d 31 20 44 61 74 65 54 69  st param1 DateTi
3850: 6d 65 20 24 64 61 74 65 54 69 6d 65 56 61 6c 75  me $dateTimeValu
3860: 65 28 30 29 5d 5d 0d 0a 0d 0a 20 20 6c 61 70 70  e(0)]]....  lapp
3870: 65 6e 64 20 72 65 73 75 6c 74 20 5b 73 71 6c 20  end result [sql 
3880: 65 78 65 63 75 74 65 20 2d 65 78 65 63 75 74 65  execute -execute
3890: 20 73 63 61 6c 61 72 20 24 64 62 20 22 53 45 4c   scalar $db "SEL
38a0: 45 43 54 20 3f 3b 22 20 5c 0d 0a 20 20 20 20 20  ECT ?;" \..     
38b0: 20 5b 6c 69 73 74 20 70 61 72 61 6d 31 20 44 61   [list param1 Da
38c0: 74 65 54 69 6d 65 20 24 64 61 74 65 54 69 6d 65  teTime $dateTime
38d0: 56 61 6c 75 65 28 31 29 5d 5d 0d 0a 0d 0a 20 20  Value(1)]]....  
38e0: 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b  lappend result [
38f0: 73 71 6c 20 65 78 65 63 75 74 65 20 2d 65 78 65  sql execute -exe
3900: 63 75 74 65 20 73 63 61 6c 61 72 20 24 64 62 20  cute scalar $db 
3910: 22 53 45 4c 45 43 54 20 3f 3b 22 20 5c 0d 0a 20  "SELECT ?;" \.. 
3920: 20 20 20 20 20 5b 6c 69 73 74 20 70 61 72 61 6d       [list param
3930: 31 20 44 61 74 65 54 69 6d 65 20 24 64 61 74 65  1 DateTime $date
3940: 54 69 6d 65 56 61 6c 75 65 28 32 29 5d 5d 0d 0a  TimeValue(2)]]..
3950: 0d 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75  ..  lappend resu
3960: 6c 74 20 5b 65 78 70 72 20 7b 5b 6c 69 6e 64 65  lt [expr {[linde
3970: 78 20 24 72 65 73 75 6c 74 20 30 5d 20 65 71 20  x $result 0] eq 
3980: 5b 6c 69 6e 64 65 78 20 24 72 65 73 75 6c 74 20  [lindex $result 
3990: 31 5d 7d 5d 0d 0a 20 20 6c 61 70 70 65 6e 64 20  1]}]..  lappend 
39a0: 72 65 73 75 6c 74 20 5b 65 78 70 72 20 7b 5b 6c  result [expr {[l
39b0: 69 6e 64 65 78 20 24 72 65 73 75 6c 74 20 30 5d  index $result 0]
39c0: 20 65 71 20 5b 6c 69 6e 64 65 78 20 24 72 65 73   eq [lindex $res
39d0: 75 6c 74 20 32 5d 7d 5d 0d 0a 20 20 6c 61 70 70  ult 2]}]..  lapp
39e0: 65 6e 64 20 72 65 73 75 6c 74 20 5b 65 78 70 72  end result [expr
39f0: 20 7b 5b 6c 69 6e 64 65 78 20 24 72 65 73 75 6c   {[lindex $resul
3a00: 74 20 31 5d 20 65 71 20 5b 6c 69 6e 64 65 78 20  t 1] eq [lindex 
3a10: 24 72 65 73 75 6c 74 20 32 5d 7d 5d 0d 0a 7d 20  $result 2]}]..} 
3a20: 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 63 6c  -cleanup {..  cl
3a30: 65 61 6e 75 70 44 62 20 24 66 69 6c 65 4e 61 6d  eanupDb $fileNam
3a40: 65 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f  e....  unset -no
3a50: 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74 20  complain result 
3a60: 64 61 74 65 54 69 6d 65 56 61 6c 75 65 20 64 62  dateTimeValue db
3a70: 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f   fileName..} -co
3a80: 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67 6c 65  nstraints {eagle
3a90: 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74 20   command.object 
3aa0: 6d 6f 6e 6f 42 75 67 32 38 20 63 6f 6d 6d 61 6e  monoBug28 comman
3ab0: 64 2e 73 71 6c 20 63 6f 6d 70 69 6c 65 2e 44 41  d.sql compile.DA
3ac0: 54 41 20 53 51 4c 69 74 65 5c 0d 0a 53 79 73 74  TA SQLite\..Syst
3ad0: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 7d 20  em.Data.SQLite} 
3ae0: 2d 72 65 73 75 6c 74 20 7b 32 30 31 35 2d 30 32  -result {2015-02
3af0: 2d 31 38 54 30 30 3a 30 30 3a 30 30 2e 30 30 30  -18T00:00:00.000
3b00: 30 30 30 30 5c 0d 0a 32 30 31 35 2d 30 32 2d 31  0000\..2015-02-1
3b10: 37 54 31 36 3a 30 30 3a 30 30 2e 30 30 30 30 30  7T16:00:00.00000
3b20: 30 30 2d 30 38 3a 30 30 20 32 30 31 35 2d 30 32  00-08:00 2015-02
3b30: 2d 31 38 54 30 30 3a 30 30 3a 30 30 2e 30 30 30  -18T00:00:00.000
3b40: 30 30 30 30 2d 30 38 3a 30 30 20 46 61 6c 73 65  0000-08:00 False
3b50: 20 46 61 6c 73 65 5c 0d 0a 46 61 6c 73 65 7d 7d   False\..False}}
3b60: 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23  ....############
3b70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3b80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3b90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3ba0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3bb0: 23 23 23 0d 0a 0d 0a 75 6e 73 65 74 20 2d 6e 6f  ###....unset -no
3bc0: 63 6f 6d 70 6c 61 69 6e 20 72 61 77 44 61 74 65  complain rawDate
3bd0: 54 69 6d 65 56 61 6c 75 65 0d 0a 0d 0a 23 23 23  TimeValue....###
3be0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3bf0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3c00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
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 0d 0a 0d 0a  ############....
3c30: 72 75 6e 53 51 4c 69 74 65 54 65 73 74 45 70 69  runSQLiteTestEpi
3c40: 6c 6f 67 75 65 0d 0a 72 75 6e 54 65 73 74 45 70  logue..runTestEp
3c50: 69 6c 6f 67 75 65 0d 0a                          ilogue..