Artifact 6b2d6fb429bef27ff2f19c90e2916bb8546ab04e:

• File Tests/tkt-0ed01c447c.eagle — part of check-in [e7f79716f4] at 2016-08-25 01:52:35 on branch trunk — Add tests for ticket [0ed01c447c]. (user: mistachkin size: 1989)

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 30 65 64 30 31 63  .#..# tkt-0ed01c
0060: 34 34 37 63 2e 65 61 67 6c 65 20 2d 2d 0d 0a 23  447c.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 30  Test {test tkt-0
0280: 65 64 30 31 63 34 34 37 63 2d 31 2e 31 20 7b 50  ed01c447c-1.1 {P
0290: 72 6f 76 69 64 65 72 44 62 54 79 70 65 20 66 6f  roviderDbType fo
02a0: 72 20 44 61 74 61 54 79 70 65 73 7d 20 2d 73 65  r DataTypes} -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 30 65 64 30 31 63 34 34 37 63 2d 31 2e  kt-0ed01c447c-1.
02e0: 31 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 64 79 20 7b  1.db]..} -body {
02f0: 0d 0a 20 20 73 65 74 20 63 6f 6e 6e 65 63 74 69  ..  set connecti
0300: 6f 6e 20 5b 67 65 74 44 62 43 6f 6e 6e 65 63 74  on [getDbConnect
0310: 69 6f 6e 5d 0d 0a 20 20 73 65 74 20 64 61 74 61  ion]..  set data
0320: 54 61 62 6c 65 20 5b 24 63 6f 6e 6e 65 63 74 69  Table [$connecti
0330: 6f 6e 20 2d 61 6c 69 61 73 20 47 65 74 53 63 68  on -alias GetSch
0340: 65 6d 61 20 44 41 54 41 54 59 50 45 53 5d 0d 0a  ema DATATYPES]..
0350: 20 20 73 65 74 20 72 65 73 75 6c 74 73 20 5b 6c    set results [l
0360: 69 73 74 5d 0d 0a 0d 0a 20 20 6f 62 6a 65 63 74  ist]....  object
0370: 20 66 6f 72 65 61 63 68 20 2d 61 6c 69 61 73 20   foreach -alias 
0380: 64 61 74 61 52 6f 77 20 5b 73 65 74 20 64 61 74  dataRow [set dat
0390: 61 52 6f 77 73 20 5b 24 64 61 74 61 54 61 62 6c  aRows [$dataTabl
03a0: 65 20 2d 61 6c 69 61 73 20 52 6f 77 73 5d 5d 20  e -alias Rows]] 
03b0: 7b 0d 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 72  {..    lappend r
03c0: 65 73 75 6c 74 73 20 5b 6c 69 73 74 20 5c 0d 0a  esults [list \..
03d0: 20 20 20 20 20 20 20 20 5b 24 64 61 74 61 52 6f          [$dataRo
03e0: 77 20 49 74 65 6d 20 54 79 70 65 4e 61 6d 65 5d  w Item TypeName]
03f0: 20 5b 24 64 61 74 61 52 6f 77 20 49 74 65 6d 20   [$dataRow Item 
0400: 50 72 6f 76 69 64 65 72 44 62 54 79 70 65 5d 5d  ProviderDbType]]
0410: 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 6c 73 6f 72 74  ..  }....  lsort
0420: 20 24 72 65 73 75 6c 74 73 0d 0a 7d 20 2d 63 6c   $results..} -cl
0430: 65 61 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61 6e  eanup {..  clean
0440: 75 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d 0a  upDb $fileName..
0450: 0d 0a 20 20 66 72 65 65 44 62 43 6f 6e 6e 65 63  ..  freeDbConnec
0460: 74 69 6f 6e 0d 0a 0d 0a 20 20 75 6e 73 65 74 20  tion....  unset 
0470: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 64 61 74 61  -nocomplain data
0480: 52 6f 77 20 64 61 74 61 52 6f 77 73 20 64 61 74  Row dataRows dat
0490: 61 54 61 62 6c 65 20 72 65 73 75 6c 74 73 20 63  aTable results c
04a0: 6f 6e 6e 65 63 74 69 6f 6e 20 64 62 20 66 69 6c  onnection db fil
04b0: 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72  eName..} -constr
04c0: 61 69 6e 74 73 20 7b 65 61 67 6c 65 20 63 6f 6d  aints {eagle com
04d0: 6d 61 6e 64 2e 6f 62 6a 65 63 74 20 6d 6f 6e 6f  mand.object mono
04e0: 42 75 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73 71  Bug28 command.sq
04f0: 6c 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53  l compile.DATA S
0500: 51 4c 69 74 65 5c 0d 0a 53 79 73 74 65 6d 2e 44  QLite\..System.D
0510: 61 74 61 2e 53 51 4c 69 74 65 7d 20 2d 72 65 73  ata.SQLite} -res
0520: 75 6c 74 20 7b 7b 61 75 74 6f 69 6e 63 72 65 6d  ult {{autoincrem
0530: 65 6e 74 20 31 32 7d 20 7b 62 69 67 69 6e 74 20  ent 12} {bigint 
0540: 31 32 7d 20 7b 62 69 6e 61 72 79 20 31 7d 20 7b  12} {binary 1} {
0550: 62 69 74 20 33 7d 5c 0d 0a 7b 62 6c 6f 62 20 31  bit 3}\..{blob 1
0560: 7d 20 7b 62 6f 6f 6c 20 33 7d 20 7b 62 6f 6f 6c  } {bool 3} {bool
0570: 65 61 6e 20 33 7d 20 7b 63 68 61 72 20 31 36 7d  ean 3} {char 16}
0580: 20 7b 63 6f 75 6e 74 65 72 20 31 32 7d 20 7b 63   {counter 12} {c
0590: 75 72 72 65 6e 63 79 20 37 7d 20 7b 64 61 74 65  urrency 7} {date
05a0: 20 36 7d 5c 0d 0a 7b 64 61 74 65 74 69 6d 65 20   6}\..{datetime 
05b0: 36 7d 20 7b 64 65 63 69 6d 61 6c 20 37 7d 20 7b  6} {decimal 7} {
05c0: 64 6f 75 62 6c 65 20 38 7d 20 7b 66 6c 6f 61 74  double 8} {float
05d0: 20 38 7d 20 7b 67 65 6e 65 72 61 6c 20 31 7d 20   8} {general 1} 
05e0: 7b 67 75 69 64 20 39 7d 20 7b 69 64 65 6e 74 69  {guid 9} {identi
05f0: 74 79 5c 0d 0a 31 32 7d 20 7b 69 6d 61 67 65 20  ty\..12} {image 
0600: 31 7d 20 7b 69 6e 74 20 31 31 7d 20 7b 69 6e 74  1} {int 11} {int
0610: 65 67 65 72 20 31 32 7d 20 7b 6c 6f 67 69 63 61  eger 12} {logica
0620: 6c 20 33 7d 20 7b 6c 6f 6e 67 20 31 32 7d 20 7b  l 3} {long 12} {
0630: 6c 6f 6e 67 74 65 78 74 20 31 36 7d 20 7b 6d 65  longtext 16} {me
0640: 6d 6f 5c 0d 0a 31 36 7d 20 7b 6d 6f 6e 65 79 20  mo\..16} {money 
0650: 37 7d 20 7b 6e 63 68 61 72 20 31 36 7d 20 7b 6e  7} {nchar 16} {n
0660: 6f 74 65 20 31 36 7d 20 7b 6e 74 65 78 74 20 31  ote 16} {ntext 1
0670: 36 7d 20 7b 6e 75 6d 65 72 69 63 20 37 7d 20 7b  6} {numeric 7} {
0680: 6e 76 61 72 63 68 61 72 20 31 36 7d 5c 0d 0a 7b  nvarchar 16}\..{
0690: 6f 6c 65 6f 62 6a 65 63 74 20 31 7d 20 7b 72 65  oleobject 1} {re
06a0: 61 6c 20 38 7d 20 7b 73 69 6e 67 6c 65 20 31 35  al 8} {single 15
06b0: 7d 20 7b 73 6d 61 6c 6c 64 61 74 65 20 36 7d 20  } {smalldate 6} 
06c0: 7b 73 6d 61 6c 6c 69 6e 74 20 31 30 7d 20 7b 73  {smallint 10} {s
06d0: 74 72 69 6e 67 20 31 36 7d 5c 0d 0a 7b 74 65 78  tring 16}\..{tex
06e0: 74 20 31 36 7d 20 7b 74 69 6d 65 20 36 7d 20 7b  t 16} {time 6} {
06f0: 74 69 6d 65 73 74 61 6d 70 20 36 7d 20 7b 74 69  timestamp 6} {ti
0700: 6e 79 69 6e 74 20 32 7d 20 7b 75 6e 69 71 75 65  nyint 2} {unique
0710: 69 64 65 6e 74 69 66 69 65 72 20 39 7d 20 7b 76  identifier 9} {v
0720: 61 72 62 69 6e 61 72 79 20 31 7d 5c 0d 0a 7b 76  arbinary 1}\..{v
0730: 61 72 63 68 61 72 20 31 36 7d 20 7b 79 65 73 6e  archar 16} {yesn
0740: 6f 20 33 7d 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23  o 3}}}....######
0750: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0760: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0770: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0780: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0790: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e  #########....run
07a0: 53 51 4c 69 74 65 54 65 73 74 45 70 69 6c 6f 67  SQLiteTestEpilog
07b0: 75 65 0d 0a 72 75 6e 54 65 73 74 45 70 69 6c 6f  ue..runTestEpilo
07c0: 67 75 65 0d 0a                                   gue..