System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact b2555749ee93229c36c35fe5b99e9ae7a52237de:


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 66 65 35 30 62 38  .#..# tkt-fe50b8
0060: 63 32 65 38 2e 65 61 67 6c 65 20 2d 2d 0d 0a 23  c2e8.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 66  Test {test tkt-f
0280: 65 35 30 62 38 63 32 65 38 2d 31 2e 31 20 7b 63  e50b8c2e8-1.1 {c
0290: 6f 6d 70 61 74 69 62 69 6c 69 74 79 20 64 61 74  ompatibility dat
02a0: 61 20 74 79 70 65 73 7d 20 2d 62 6f 64 79 20 7b  a types} -body {
02b0: 0d 0a 20 20 6c 69 73 74 20 5b 6f 62 6a 65 63 74  ..  list [object
02c0: 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b   invoke -flags +
02d0: 4e 6f 6e 50 75 62 6c 69 63 20 53 79 73 74 65 6d  NonPublic System
02e0: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c  .Data.SQLite.SQL
02f0: 69 74 65 43 6f 6e 76 65 72 74 20 5c 0d 0a 20 20  iteConvert \..  
0300: 20 20 20 20 54 79 70 65 4e 61 6d 65 54 6f 44 62      TypeNameToDb
0310: 54 79 70 65 20 6e 75 6c 6c 20 56 41 52 43 48 41  Type null VARCHA
0320: 52 32 20 4e 6f 6e 65 5d 20 5c 0d 0a 20 20 20 20  R2 None] \..    
0330: 20 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65    [object invoke
0340: 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c   -flags +NonPubl
0350: 69 63 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  ic System.Data.S
0360: 51 4c 69 74 65 2e 53 51 4c 69 74 65 43 6f 6e 76  QLite.SQLiteConv
0370: 65 72 74 20 5c 0d 0a 20 20 20 20 20 20 54 79 70  ert \..      Typ
0380: 65 4e 61 6d 65 54 6f 44 62 54 79 70 65 20 6e 75  eNameToDbType nu
0390: 6c 6c 20 43 4c 4f 42 20 4e 6f 6e 65 5d 20 5c 0d  ll CLOB None] \.
03a0: 0a 20 20 20 20 20 20 5b 6f 62 6a 65 63 74 20 69  .      [object i
03b0: 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f  nvoke -flags +No
03c0: 6e 50 75 62 6c 69 63 20 53 79 73 74 65 6d 2e 44  nPublic System.D
03d0: 61 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74  ata.SQLite.SQLit
03e0: 65 43 6f 6e 76 65 72 74 20 5c 0d 0a 20 20 20 20  eConvert \..    
03f0: 20 20 54 79 70 65 4e 61 6d 65 54 6f 44 62 54 79    TypeNameToDbTy
0400: 70 65 20 6e 75 6c 6c 20 4e 55 4d 42 45 52 20 4e  pe null NUMBER N
0410: 6f 6e 65 5d 20 5c 0d 0a 20 20 20 20 20 20 5b 6f  one] \..      [o
0420: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c  bject invoke -fl
0430: 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 53  ags +NonPublic S
0440: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
0450: 65 2e 53 51 4c 69 74 65 43 6f 6e 76 65 72 74 20  e.SQLiteConvert 
0460: 5c 0d 0a 20 20 20 20 20 20 54 79 70 65 4e 61 6d  \..      TypeNam
0470: 65 54 6f 44 62 54 79 70 65 20 6e 75 6c 6c 20 52  eToDbType null R
0480: 41 57 20 4e 6f 6e 65 5d 20 5c 0d 0a 20 20 20 20  AW None] \..    
0490: 20 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65    [object invoke
04a0: 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c   -flags +NonPubl
04b0: 69 63 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  ic System.Data.S
04c0: 51 4c 69 74 65 2e 53 51 4c 69 74 65 43 6f 6e 76  QLite.SQLiteConv
04d0: 65 72 74 20 5c 0d 0a 20 20 20 20 20 20 44 62 54  ert \..      DbT
04e0: 79 70 65 54 6f 54 79 70 65 4e 61 6d 65 20 6e 75  ypeToTypeName nu
04f0: 6c 6c 20 41 6e 73 69 53 74 72 69 6e 67 20 4e 6f  ll AnsiString No
0500: 6e 65 5d 20 5c 0d 0a 20 20 20 20 20 20 5b 6f 62  ne] \..      [ob
0510: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61  ject invoke -fla
0520: 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 53 79  gs +NonPublic Sy
0530: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65  stem.Data.SQLite
0540: 2e 53 51 4c 69 74 65 43 6f 6e 76 65 72 74 20 5c  .SQLiteConvert \
0550: 0d 0a 20 20 20 20 20 20 44 62 54 79 70 65 54 6f  ..      DbTypeTo
0560: 54 79 70 65 4e 61 6d 65 20 6e 75 6c 6c 20 53 74  TypeName null St
0570: 72 69 6e 67 20 4e 6f 6e 65 5d 20 5c 0d 0a 20 20  ring None] \..  
0580: 20 20 20 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f      [object invo
0590: 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75  ke -flags +NonPu
05a0: 62 6c 69 63 20 53 79 73 74 65 6d 2e 44 61 74 61  blic System.Data
05b0: 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 65 43 6f  .SQLite.SQLiteCo
05c0: 6e 76 65 72 74 20 5c 0d 0a 20 20 20 20 20 20 44  nvert \..      D
05d0: 62 54 79 70 65 54 6f 54 79 70 65 4e 61 6d 65 20  bTypeToTypeName 
05e0: 6e 75 6c 6c 20 44 65 63 69 6d 61 6c 20 4e 6f 6e  null Decimal Non
05f0: 65 5d 20 5c 0d 0a 20 20 20 20 20 20 5b 6f 62 6a  e] \..      [obj
0600: 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67  ect invoke -flag
0610: 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 53 79 73  s +NonPublic Sys
0620: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e  tem.Data.SQLite.
0630: 53 51 4c 69 74 65 43 6f 6e 76 65 72 74 20 5c 0d  SQLiteConvert \.
0640: 0a 20 20 20 20 20 20 44 62 54 79 70 65 54 6f 54  .      DbTypeToT
0650: 79 70 65 4e 61 6d 65 20 6e 75 6c 6c 20 42 69 6e  ypeName null Bin
0660: 61 72 79 20 4e 6f 6e 65 5d 0d 0a 7d 20 2d 63 6f  ary None]..} -co
0670: 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67 6c 65  nstraints {eagle
0680: 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74 20   command.object 
0690: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69  System.Data.SQLi
06a0: 74 65 7d 20 2d 72 65 73 75 6c 74 20 5c 0d 0a 7b  te} -result \..{
06b0: 41 6e 73 69 53 74 72 69 6e 67 20 53 74 72 69 6e  AnsiString Strin
06c0: 67 20 44 65 63 69 6d 61 6c 20 42 69 6e 61 72 79  g Decimal Binary
06d0: 20 56 41 52 43 48 41 52 20 4e 56 41 52 43 48 41   VARCHAR NVARCHA
06e0: 52 20 44 45 43 49 4d 41 4c 20 42 4c 4f 42 7d 7d  R DECIMAL BLOB}}
06f0: 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23  ....############
0700: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0710: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0720: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0730: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0740: 23 23 23 0d 0a 0d 0a 72 75 6e 53 51 4c 69 74 65  ###....runSQLite
0750: 54 65 73 74 45 70 69 6c 6f 67 75 65 0d 0a 72 75  TestEpilogue..ru
0760: 6e 54 65 73 74 45 70 69 6c 6f 67 75 65 0d 0a     nTestEpilogue..