System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact 18e5e458c6330f136bd74416f60f5e4d33ef9572:


0000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
0050: 0a 23 0d 0a 23 20 74 6b 74 2d 32 63 36 33 30 62  .#..# tkt-2c630b
0060: 66 66 61 37 2e 65 61 67 6c 65 20 2d 2d 0d 0a 23  ffa7.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 79 20 5b 6c 69 73 74 20 2d 31 2e 37 39 37 36   y [list -1.7976
0280: 39 65 33 30 38 20 2d 33 2e 34 30 32 38 32 65 30  9e308 -3.40282e0
0290: 33 38 20 2d 31 20 30 20 31 20 33 2e 34 30 32 38  38 -1 0 1 3.4028
02a0: 32 65 30 33 38 20 31 2e 37 39 37 36 39 65 33 30  2e038 1.79769e30
02b0: 38 5d 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23  8]....##########
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 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0300: 23 23 23 23 23 0d 0a 0d 0a 72 75 6e 54 65 73 74  #####....runTest
0310: 20 7b 74 65 73 74 20 74 6b 74 2d 32 63 36 33 30   {test tkt-2c630
0320: 62 66 66 61 37 2d 31 2e 31 20 7b 72 61 6e 67 65  bffa7-1.1 {range
0330: 20 6f 66 20 52 45 41 4c 20 74 79 70 65 7d 20 2d   of REAL type} -
0340: 73 65 74 75 70 20 7b 0d 0a 20 20 73 65 74 75 70  setup {..  setup
0350: 44 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65  Db [set fileName
0360: 20 74 6b 74 2d 32 63 36 33 30 62 66 66 61 37 2d   tkt-2c630bffa7-
0370: 31 2e 31 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 64 79  1.1.db]..} -body
0380: 20 7b 0d 0a 20 20 73 71 6c 20 65 78 65 63 75 74   {..  sql execut
0390: 65 20 24 64 62 20 22 43 52 45 41 54 45 20 54 41  e $db "CREATE TA
03a0: 42 4c 45 20 74 31 28 78 20 49 4e 54 45 47 45 52  BLE t1(x INTEGER
03b0: 2c 20 79 20 52 45 41 4c 29 3b 22 0d 0a 0d 0a 20  , y REAL);".... 
03c0: 20 66 6f 72 20 7b 73 65 74 20 78 20 30 7d 20 7b   for {set x 0} {
03d0: 24 78 20 3c 20 5b 6c 6c 65 6e 67 74 68 20 24 79  $x < [llength $y
03e0: 5d 7d 20 7b 69 6e 63 72 20 78 7d 20 7b 0d 0a 20  ]} {incr x} {.. 
03f0: 20 20 20 73 71 6c 20 65 78 65 63 75 74 65 20 24     sql execute $
0400: 64 62 20 5c 0d 0a 20 20 20 20 20 20 20 20 22 49  db \..        "I
0410: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 28 78  NSERT INTO t1 (x
0420: 2c 20 79 29 20 56 41 4c 55 45 53 28 24 78 2c 20  , y) VALUES($x, 
0430: 5b 6c 69 6e 64 65 78 20 24 79 20 24 78 5d 29 3b  [lindex $y $x]);
0440: 22 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 20  "..  }....  set 
0450: 72 65 73 75 6c 74 20 5b 73 71 6c 20 65 78 65 63  result [sql exec
0460: 75 74 65 20 2d 65 78 65 63 75 74 65 20 72 65 61  ute -execute rea
0470: 64 65 72 20 2d 66 6f 72 6d 61 74 20 6c 69 73 74  der -format list
0480: 20 24 64 62 20 5c 0d 0a 20 20 20 20 20 20 22 53   $db \..      "S
0490: 45 4c 45 43 54 20 78 2c 20 79 20 46 52 4f 4d 20  ELECT x, y FROM 
04a0: 74 31 20 4f 52 44 45 52 20 42 59 20 78 3b 22 5d  t1 ORDER BY x;"]
04b0: 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a  ..} -cleanup {..
04c0: 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66 69 6c    cleanupDb $fil
04d0: 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65 74  eName....  unset
04e0: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 78 20 72   -nocomplain x r
04f0: 65 73 75 6c 74 20 64 62 20 66 69 6c 65 4e 61 6d  esult db fileNam
0500: 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74  e..} -constraint
0510: 73 20 5c 0d 0a 7b 65 61 67 6c 65 20 6d 6f 6e 6f  s \..{eagle mono
0520: 42 75 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73 71  Bug28 command.sq
0530: 6c 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53  l compile.DATA S
0540: 51 4c 69 74 65 20 53 79 73 74 65 6d 2e 44 61 74  QLite System.Dat
0550: 61 2e 53 51 4c 69 74 65 7d 20 2d 72 65 73 75 6c  a.SQLite} -resul
0560: 74 20 5c 0d 0a 7b 30 20 2d 31 2e 37 39 37 36 39  t \..{0 -1.79769
0570: 45 2b 33 30 38 20 31 20 2d 33 2e 34 30 32 38 32  E+308 1 -3.40282
0580: 45 2b 33 38 20 32 20 2d 31 20 33 20 30 20 34 20  E+38 2 -1 3 0 4 
0590: 31 20 35 20 33 2e 34 30 32 38 32 45 2b 33 38 20  1 5 3.40282E+38 
05a0: 36 20 31 2e 37 39 37 36 39 45 2b 33 30 38 7d 7d  6 1.79769E+308}}
05b0: 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23  ....############
05c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
05d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
05e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
05f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0600: 23 23 23 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b  ###....runTest {
0610: 74 65 73 74 20 74 6b 74 2d 32 63 36 33 30 62 66  test tkt-2c630bf
0620: 66 61 37 2d 31 2e 32 20 7b 72 61 6e 67 65 20 6f  fa7-1.2 {range o
0630: 66 20 46 4c 4f 41 54 20 74 79 70 65 7d 20 2d 73  f FLOAT type} -s
0640: 65 74 75 70 20 7b 0d 0a 20 20 73 65 74 75 70 44  etup {..  setupD
0650: 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65 20  b [set fileName 
0660: 74 6b 74 2d 32 63 36 33 30 62 66 66 61 37 2d 31  tkt-2c630bffa7-1
0670: 2e 32 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 64 79 20  .2.db]..} -body 
0680: 7b 0d 0a 20 20 73 71 6c 20 65 78 65 63 75 74 65  {..  sql execute
0690: 20 24 64 62 20 22 43 52 45 41 54 45 20 54 41 42   $db "CREATE TAB
06a0: 4c 45 20 74 32 28 78 20 49 4e 54 45 47 45 52 2c  LE t2(x INTEGER,
06b0: 20 79 20 46 4c 4f 41 54 29 3b 22 0d 0a 0d 0a 20   y FLOAT);".... 
06c0: 20 66 6f 72 20 7b 73 65 74 20 78 20 30 7d 20 7b   for {set x 0} {
06d0: 24 78 20 3c 20 5b 6c 6c 65 6e 67 74 68 20 24 79  $x < [llength $y
06e0: 5d 7d 20 7b 69 6e 63 72 20 78 7d 20 7b 0d 0a 20  ]} {incr x} {.. 
06f0: 20 20 20 73 71 6c 20 65 78 65 63 75 74 65 20 24     sql execute $
0700: 64 62 20 5c 0d 0a 20 20 20 20 20 20 20 20 22 49  db \..        "I
0710: 4e 53 45 52 54 20 49 4e 54 4f 20 74 32 20 28 78  NSERT INTO t2 (x
0720: 2c 20 79 29 20 56 41 4c 55 45 53 28 24 78 2c 20  , y) VALUES($x, 
0730: 5b 6c 69 6e 64 65 78 20 24 79 20 24 78 5d 29 3b  [lindex $y $x]);
0740: 22 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 20  "..  }....  set 
0750: 72 65 73 75 6c 74 20 5b 73 71 6c 20 65 78 65 63  result [sql exec
0760: 75 74 65 20 2d 65 78 65 63 75 74 65 20 72 65 61  ute -execute rea
0770: 64 65 72 20 2d 66 6f 72 6d 61 74 20 6c 69 73 74  der -format list
0780: 20 24 64 62 20 5c 0d 0a 20 20 20 20 20 20 22 53   $db \..      "S
0790: 45 4c 45 43 54 20 78 2c 20 79 20 46 52 4f 4d 20  ELECT x, y FROM 
07a0: 74 32 20 4f 52 44 45 52 20 42 59 20 78 3b 22 5d  t2 ORDER BY x;"]
07b0: 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a  ..} -cleanup {..
07c0: 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66 69 6c    cleanupDb $fil
07d0: 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65 74  eName....  unset
07e0: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 78 20 72   -nocomplain x r
07f0: 65 73 75 6c 74 20 64 62 20 66 69 6c 65 4e 61 6d  esult db fileNam
0800: 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74  e..} -constraint
0810: 73 20 5c 0d 0a 7b 65 61 67 6c 65 20 6d 6f 6e 6f  s \..{eagle mono
0820: 42 75 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73 71  Bug28 command.sq
0830: 6c 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53  l compile.DATA S
0840: 51 4c 69 74 65 20 53 79 73 74 65 6d 2e 44 61 74  QLite System.Dat
0850: 61 2e 53 51 4c 69 74 65 7d 20 2d 72 65 73 75 6c  a.SQLite} -resul
0860: 74 20 5c 0d 0a 7b 30 20 2d 31 2e 37 39 37 36 39  t \..{0 -1.79769
0870: 45 2b 33 30 38 20 31 20 2d 33 2e 34 30 32 38 32  E+308 1 -3.40282
0880: 45 2b 33 38 20 32 20 2d 31 20 33 20 30 20 34 20  E+38 2 -1 3 0 4 
0890: 31 20 35 20 33 2e 34 30 32 38 32 45 2b 33 38 20  1 5 3.40282E+38 
08a0: 36 20 31 2e 37 39 37 36 39 45 2b 33 30 38 7d 7d  6 1.79769E+308}}
08b0: 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23  ....############
08c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
08d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
08e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
08f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0900: 23 23 23 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b  ###....runTest {
0910: 74 65 73 74 20 74 6b 74 2d 32 63 36 33 30 62 66  test tkt-2c630bf
0920: 66 61 37 2d 31 2e 33 20 7b 72 61 6e 67 65 20 6f  fa7-1.3 {range o
0930: 66 20 44 4f 55 42 4c 45 20 74 79 70 65 7d 20 2d  f DOUBLE type} -
0940: 73 65 74 75 70 20 7b 0d 0a 20 20 73 65 74 75 70  setup {..  setup
0950: 44 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65  Db [set fileName
0960: 20 74 6b 74 2d 32 63 36 33 30 62 66 66 61 37 2d   tkt-2c630bffa7-
0970: 31 2e 33 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 64 79  1.3.db]..} -body
0980: 20 7b 0d 0a 20 20 73 71 6c 20 65 78 65 63 75 74   {..  sql execut
0990: 65 20 24 64 62 20 22 43 52 45 41 54 45 20 54 41  e $db "CREATE TA
09a0: 42 4c 45 20 74 33 28 78 20 49 4e 54 45 47 45 52  BLE t3(x INTEGER
09b0: 2c 20 79 20 44 4f 55 42 4c 45 29 3b 22 0d 0a 0d  , y DOUBLE);"...
09c0: 0a 20 20 66 6f 72 20 7b 73 65 74 20 78 20 30 7d  .  for {set x 0}
09d0: 20 7b 24 78 20 3c 20 5b 6c 6c 65 6e 67 74 68 20   {$x < [llength 
09e0: 24 79 5d 7d 20 7b 69 6e 63 72 20 78 7d 20 7b 0d  $y]} {incr x} {.
09f0: 0a 20 20 20 20 73 71 6c 20 65 78 65 63 75 74 65  .    sql execute
0a00: 20 24 64 62 20 5c 0d 0a 20 20 20 20 20 20 20 20   $db \..        
0a10: 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 33 20  "INSERT INTO t3 
0a20: 28 78 2c 20 79 29 20 56 41 4c 55 45 53 28 24 78  (x, y) VALUES($x
0a30: 2c 20 5b 6c 69 6e 64 65 78 20 24 79 20 24 78 5d  , [lindex $y $x]
0a40: 29 3b 22 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65  );"..  }....  se
0a50: 74 20 72 65 73 75 6c 74 20 5b 73 71 6c 20 65 78  t result [sql ex
0a60: 65 63 75 74 65 20 2d 65 78 65 63 75 74 65 20 72  ecute -execute r
0a70: 65 61 64 65 72 20 2d 66 6f 72 6d 61 74 20 6c 69  eader -format li
0a80: 73 74 20 24 64 62 20 5c 0d 0a 20 20 20 20 20 20  st $db \..      
0a90: 22 53 45 4c 45 43 54 20 78 2c 20 79 20 46 52 4f  "SELECT x, y FRO
0aa0: 4d 20 74 33 20 4f 52 44 45 52 20 42 59 20 78 3b  M t3 ORDER BY x;
0ab0: 22 5d 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b  "]..} -cleanup {
0ac0: 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66  ..  cleanupDb $f
0ad0: 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73  ileName....  uns
0ae0: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 78  et -nocomplain x
0af0: 20 72 65 73 75 6c 74 20 64 62 20 66 69 6c 65 4e   result db fileN
0b00: 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61 69  ame..} -constrai
0b10: 6e 74 73 20 5c 0d 0a 7b 65 61 67 6c 65 20 6d 6f  nts \..{eagle mo
0b20: 6e 6f 42 75 67 32 38 20 63 6f 6d 6d 61 6e 64 2e  noBug28 command.
0b30: 73 71 6c 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41  sql compile.DATA
0b40: 20 53 51 4c 69 74 65 20 53 79 73 74 65 6d 2e 44   SQLite System.D
0b50: 61 74 61 2e 53 51 4c 69 74 65 7d 20 2d 72 65 73  ata.SQLite} -res
0b60: 75 6c 74 20 5c 0d 0a 7b 30 20 2d 31 2e 37 39 37  ult \..{0 -1.797
0b70: 36 39 45 2b 33 30 38 20 31 20 2d 33 2e 34 30 32  69E+308 1 -3.402
0b80: 38 32 45 2b 33 38 20 32 20 2d 31 20 33 20 30 20  82E+38 2 -1 3 0 
0b90: 34 20 31 20 35 20 33 2e 34 30 32 38 32 45 2b 33  4 1 5 3.40282E+3
0ba0: 38 20 36 20 31 2e 37 39 37 36 39 45 2b 33 30 38  8 6 1.79769E+308
0bb0: 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23  }}....##########
0bc0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0bd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0be0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0bf0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0c00: 23 23 23 23 23 0d 0a 0d 0a 75 6e 73 65 74 20 2d  #####....unset -
0c10: 6e 6f 63 6f 6d 70 6c 61 69 6e 20 79 0d 0a 0d 0a  nocomplain y....
0c20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0c30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0c40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0c50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0c60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
0c70: 0a 0d 0a 72 75 6e 53 51 4c 69 74 65 54 65 73 74  ...runSQLiteTest
0c80: 45 70 69 6c 6f 67 75 65 0d 0a 72 75 6e 54 65 73  Epilogue..runTes
0c90: 74 45 70 69 6c 6f 67 75 65 0d 0a                 tEpilogue..