/ Hex Artifact Content
Login

Artifact 1ebe0d632a7501cc80ba5a225f028fd4f0fdda08:


0000: 23 20 32 30 30 38 20 53 65 70 20 31 0a 23 0a 23  # 2008 Sep 1.#.#
0010: 20 54 68 65 20 61 75 74 68 6f 72 20 64 69 73 63   The author disc
0020: 6c 61 69 6d 73 20 63 6f 70 79 72 69 67 68 74 20  laims copyright 
0030: 74 6f 20 74 68 69 73 20 73 6f 75 72 63 65 20 63  to this source c
0040: 6f 64 65 2e 20 20 49 6e 20 70 6c 61 63 65 20 6f  ode.  In place o
0050: 66 0a 23 20 61 20 6c 65 67 61 6c 20 6e 6f 74 69  f.# a legal noti
0060: 63 65 2c 20 68 65 72 65 20 69 73 20 61 20 62 6c  ce, here is a bl
0070: 65 73 73 69 6e 67 3a 0a 23 0a 23 20 20 20 20 4d  essing:.#.#    M
0080: 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61  ay you do good a
0090: 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 23 20 20  nd not evil..#  
00a0: 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 66    May you find f
00b0: 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20 79  orgiveness for y
00c0: 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 67  ourself and forg
00d0: 69 76 65 20 6f 74 68 65 72 73 2e 0a 23 20 20 20  ive others..#   
00e0: 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20 66   May you share f
00f0: 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b  reely, never tak
0100: 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f  ing more than yo
0110: 75 20 67 69 76 65 2e 0a 23 0a 23 2a 2a 2a 2a 2a  u give..#.#*****
0120: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 0a 23 20 0a 23 0a 0a 69 66 20 7b 21 5b 69  **.# .#..if {![i
0170: 6e 66 6f 20 65 78 69 73 74 73 20 74 65 73 74 64  nfo exists testd
0180: 69 72 5d 7d 20 7b 0a 20 20 73 65 74 20 74 65 73  ir]} {.  set tes
0190: 74 64 69 72 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  tdir [file join 
01a0: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 69  [file dirname [i
01b0: 6e 66 6f 20 73 63 72 69 70 74 5d 5d 20 2e 2e 20  nfo script]] .. 
01c0: 2e 2e 20 74 65 73 74 5d 0a 7d 20 0a 73 6f 75 72  .. test].} .sour
01d0: 63 65 20 24 74 65 73 74 64 69 72 2f 74 65 73 74  ce $testdir/test
01e0: 65 72 2e 74 63 6c 0a 0a 69 66 63 61 70 61 62 6c  er.tcl..ifcapabl
01f0: 65 20 21 72 74 72 65 65 20 7b 0a 20 20 66 69 6e  e !rtree {.  fin
0200: 69 73 68 5f 74 65 73 74 0a 20 20 72 65 74 75 72  ish_test.  retur
0210: 6e 0a 7d 0a 0a 23 20 20 20 4f 70 65 72 61 74 6f  n.}..#   Operato
0220: 72 20 20 20 20 42 79 74 65 20 56 61 6c 75 65 0a  r    Byte Value.
0230: 23 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  #   ------------
0240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 20 20 20  ----------.#    
0250: 20 20 3d 20 20 20 20 20 20 20 20 30 78 34 31 20    =        0x41 
0260: 28 27 41 27 29 0a 23 20 20 20 20 20 3c 3d 20 20  ('A').#     <=  
0270: 20 20 20 20 20 20 30 78 34 32 20 28 27 42 27 29        0x42 ('B')
0280: 0a 23 20 20 20 20 20 20 3c 20 20 20 20 20 20 20  .#      <       
0290: 20 30 78 34 33 20 28 27 43 27 29 0a 23 20 20 20   0x43 ('C').#   
02a0: 20 20 3e 3d 20 20 20 20 20 20 20 20 30 78 34 34    >=        0x44
02b0: 20 28 27 44 27 29 0a 23 20 20 20 20 20 20 3e 20   ('D').#      > 
02c0: 20 20 20 20 20 20 20 30 78 34 35 20 28 27 45 27         0x45 ('E'
02d0: 29 0a 23 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ).#   ----------
02e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 70 72  ------------..pr
02f0: 6f 63 20 72 74 72 65 65 5f 73 74 72 61 74 65 67  oc rtree_strateg
0300: 79 20 7b 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20  y {sql} {.  set 
0310: 72 65 74 20 5b 6c 69 73 74 5d 0a 20 20 64 62 20  ret [list].  db 
0320: 65 76 61 6c 20 22 65 78 70 6c 61 69 6e 20 24 73  eval "explain $s
0330: 71 6c 22 20 61 20 7b 0a 20 20 20 20 69 66 20 7b  ql" a {.    if {
0340: 24 61 28 6f 70 63 6f 64 65 29 20 65 71 20 22 56  $a(opcode) eq "V
0350: 46 69 6c 74 65 72 22 7d 20 7b 0a 20 20 20 20 20  Filter"} {.     
0360: 20 6c 61 70 70 65 6e 64 20 72 65 74 20 24 61 28   lappend ret $a(
0370: 70 34 29 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20  p4).    }.  }.  
0380: 73 65 74 20 72 65 74 0a 7d 0a 0a 70 72 6f 63 20  set ret.}..proc 
0390: 71 75 65 72 79 5f 70 6c 61 6e 20 7b 73 71 6c 7d  query_plan {sql}
03a0: 20 7b 0a 20 20 73 65 74 20 72 65 74 20 5b 6c 69   {.  set ret [li
03b0: 73 74 5d 0a 20 20 64 62 20 65 76 61 6c 20 22 65  st].  db eval "e
03c0: 78 70 6c 61 69 6e 20 71 75 65 72 79 20 70 6c 61  xplain query pla
03d0: 6e 20 24 73 71 6c 22 20 61 20 7b 0a 20 20 20 20  n $sql" a {.    
03e0: 6c 61 70 70 65 6e 64 20 72 65 74 20 24 61 28 64  lappend ret $a(d
03f0: 65 74 61 69 6c 29 0a 20 20 7d 0a 20 20 73 65 74  etail).  }.  set
0400: 20 72 65 74 0a 7d 0a 0a 64 6f 5f 74 65 73 74 20   ret.}..do_test 
0410: 72 74 72 65 65 36 2d 31 2e 31 20 7b 0a 20 20 65  rtree6-1.1 {.  e
0420: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 43 52 45  xecsql {.    CRE
0430: 41 54 45 20 54 41 42 4c 45 20 74 32 28 6b 20 49  ATE TABLE t2(k I
0440: 4e 54 45 47 45 52 20 50 52 49 4d 41 52 59 20 4b  NTEGER PRIMARY K
0450: 45 59 2c 20 76 29 3b 0a 20 20 20 20 43 52 45 41  EY, v);.    CREA
0460: 54 45 20 56 49 52 54 55 41 4c 20 54 41 42 4c 45  TE VIRTUAL TABLE
0470: 20 74 31 20 55 53 49 4e 47 20 72 74 72 65 65 28   t1 USING rtree(
0480: 69 69 2c 20 78 31 2c 20 78 32 2c 20 79 31 2c 20  ii, x1, x2, y1, 
0490: 79 32 29 3b 0a 20 20 7d 0a 7d 20 7b 7d 0a 0a 64  y2);.  }.} {}..d
04a0: 6f 5f 74 65 73 74 20 72 74 72 65 65 36 2d 31 2e  o_test rtree6-1.
04b0: 32 20 7b 0a 20 20 72 74 72 65 65 5f 73 74 72 61  2 {.  rtree_stra
04c0: 74 65 67 79 20 7b 53 45 4c 45 43 54 20 2a 20 46  tegy {SELECT * F
04d0: 52 4f 4d 20 74 31 20 57 48 45 52 45 20 78 31 3e  ROM t1 WHERE x1>
04e0: 31 30 7d 0a 7d 20 7b 45 61 7d 0a 0a 64 6f 5f 74  10}.} {Ea}..do_t
04f0: 65 73 74 20 72 74 72 65 65 36 2d 31 2e 33 20 7b  est rtree6-1.3 {
0500: 0a 20 20 72 74 72 65 65 5f 73 74 72 61 74 65 67  .  rtree_strateg
0510: 79 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  y {SELECT * FROM
0520: 20 74 31 20 57 48 45 52 45 20 78 31 3c 31 30 7d   t1 WHERE x1<10}
0530: 0a 7d 20 7b 43 61 7d 0a 0a 64 6f 5f 74 65 73 74  .} {Ca}..do_test
0540: 20 72 74 72 65 65 36 2d 31 2e 34 20 7b 0a 20 20   rtree6-1.4 {.  
0550: 72 74 72 65 65 5f 73 74 72 61 74 65 67 79 20 7b  rtree_strategy {
0560: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31  SELECT * FROM t1
0570: 2c 74 32 20 57 48 45 52 45 20 6b 3d 69 69 20 41  ,t2 WHERE k=ii A
0580: 4e 44 20 78 31 3c 31 30 7d 0a 7d 20 7b 43 61 7d  ND x1<10}.} {Ca}
0590: 0a 0a 64 6f 5f 74 65 73 74 20 72 74 72 65 65 36  ..do_test rtree6
05a0: 2d 31 2e 35 20 7b 0a 20 20 72 74 72 65 65 5f 73  -1.5 {.  rtree_s
05b0: 74 72 61 74 65 67 79 20 7b 53 45 4c 45 43 54 20  trategy {SELECT 
05c0: 2a 20 46 52 4f 4d 20 74 31 2c 74 32 20 57 48 45  * FROM t1,t2 WHE
05d0: 52 45 20 6b 3d 2b 69 69 20 41 4e 44 20 78 31 3c  RE k=+ii AND x1<
05e0: 31 30 7d 0a 7d 20 7b 43 61 7d 0a 0a 64 6f 5f 74  10}.} {Ca}..do_t
05f0: 65 73 74 20 72 74 72 65 65 36 2e 32 2e 31 20 7b  est rtree6.2.1 {
0600: 0a 20 20 71 75 65 72 79 5f 70 6c 61 6e 20 7b 53  .  query_plan {S
0610: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 2c  ELECT * FROM t1,
0620: 74 32 20 57 48 45 52 45 20 6b 3d 2b 69 69 20 41  t2 WHERE k=+ii A
0630: 4e 44 20 78 31 3c 31 30 7d 0a 7d 20 5b 6c 69 73  ND x1<10}.} [lis
0640: 74 20 5c 0a 20 20 7b 54 41 42 4c 45 20 74 31 20  t \.  {TABLE t1 
0650: 56 49 52 54 55 41 4c 20 54 41 42 4c 45 20 49 4e  VIRTUAL TABLE IN
0660: 44 45 58 20 32 3a 43 61 7d 20 5c 0a 20 20 7b 54  DEX 2:Ca} \.  {T
0670: 41 42 4c 45 20 74 32 20 55 53 49 4e 47 20 50 52  ABLE t2 USING PR
0680: 49 4d 41 52 59 20 4b 45 59 7d 20 20 20 20 20 20  IMARY KEY}      
0690: 20 20 5c 0a 5d 0a 0a 64 6f 5f 74 65 73 74 20 72    \.]..do_test r
06a0: 74 72 65 65 36 2e 32 2e 32 20 7b 0a 20 20 71 75  tree6.2.2 {.  qu
06b0: 65 72 79 5f 70 6c 61 6e 20 7b 53 45 4c 45 43 54  ery_plan {SELECT
06c0: 20 2a 20 46 52 4f 4d 20 74 31 2c 74 32 20 57 48   * FROM t1,t2 WH
06d0: 45 52 45 20 6b 3d 69 69 20 41 4e 44 20 78 31 3c  ERE k=ii AND x1<
06e0: 31 30 7d 0a 7d 20 5b 6c 69 73 74 20 5c 0a 20 20  10}.} [list \.  
06f0: 7b 54 41 42 4c 45 20 74 31 20 56 49 52 54 55 41  {TABLE t1 VIRTUA
0700: 4c 20 54 41 42 4c 45 20 49 4e 44 45 58 20 32 3a  L TABLE INDEX 2:
0710: 43 61 7d 20 5c 0a 20 20 7b 54 41 42 4c 45 20 74  Ca} \.  {TABLE t
0720: 32 20 55 53 49 4e 47 20 50 52 49 4d 41 52 59 20  2 USING PRIMARY 
0730: 4b 45 59 7d 20 20 20 20 20 20 20 20 5c 0a 5d 0a  KEY}        \.].
0740: 0a 64 6f 5f 74 65 73 74 20 72 74 72 65 65 36 2e  .do_test rtree6.
0750: 32 2e 33 20 7b 0a 20 20 71 75 65 72 79 5f 70 6c  2.3 {.  query_pl
0760: 61 6e 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f  an {SELECT * FRO
0770: 4d 20 74 31 2c 74 32 20 57 48 45 52 45 20 6b 3d  M t1,t2 WHERE k=
0780: 69 69 7d 0a 7d 20 5b 6c 69 73 74 20 5c 0a 20 20  ii}.} [list \.  
0790: 7b 54 41 42 4c 45 20 74 31 20 56 49 52 54 55 41  {TABLE t1 VIRTUA
07a0: 4c 20 54 41 42 4c 45 20 49 4e 44 45 58 20 32 3a  L TABLE INDEX 2:
07b0: 7d 20 20 20 5c 0a 20 20 7b 54 41 42 4c 45 20 74  }   \.  {TABLE t
07c0: 32 20 55 53 49 4e 47 20 50 52 49 4d 41 52 59 20  2 USING PRIMARY 
07d0: 4b 45 59 7d 20 20 20 20 20 20 20 20 5c 0a 5d 0a  KEY}        \.].
07e0: 0a 64 6f 5f 74 65 73 74 20 72 74 72 65 65 36 2e  .do_test rtree6.
07f0: 32 2e 34 20 7b 0a 20 20 71 75 65 72 79 5f 70 6c  2.4 {.  query_pl
0800: 61 6e 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f  an {SELECT * FRO
0810: 4d 20 74 31 2c 74 32 20 57 48 45 52 45 20 76 3d  M t1,t2 WHERE v=
0820: 31 30 20 61 6e 64 20 78 31 3c 31 30 20 61 6e 64  10 and x1<10 and
0830: 20 78 32 3e 31 30 7d 0a 7d 20 5b 6c 69 73 74 20   x2>10}.} [list 
0840: 5c 0a 20 20 7b 54 41 42 4c 45 20 74 31 20 56 49  \.  {TABLE t1 VI
0850: 52 54 55 41 4c 20 54 41 42 4c 45 20 49 4e 44 45  RTUAL TABLE INDE
0860: 58 20 32 3a 43 61 45 62 7d 20 20 20 5c 0a 20 20  X 2:CaEb}   \.  
0870: 7b 54 41 42 4c 45 20 74 32 7d 20 20 20 20 20 20  {TABLE t2}      
0880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0890: 20 20 20 20 20 20 20 20 5c 0a 5d 0a 0a 64 6f 5f          \.]..do_
08a0: 74 65 73 74 20 72 74 72 65 65 36 2e 32 2e 35 20  test rtree6.2.5 
08b0: 7b 0a 20 20 71 75 65 72 79 5f 70 6c 61 6e 20 7b  {.  query_plan {
08c0: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31  SELECT * FROM t1
08d0: 2c 74 32 20 57 48 45 52 45 20 6b 3d 69 69 20 41  ,t2 WHERE k=ii A
08e0: 4e 44 20 78 31 3c 76 7d 0a 7d 20 5b 6c 69 73 74  ND x1<v}.} [list
08f0: 20 5c 0a 20 20 7b 54 41 42 4c 45 20 74 31 20 56   \.  {TABLE t1 V
0900: 49 52 54 55 41 4c 20 54 41 42 4c 45 20 49 4e 44  IRTUAL TABLE IND
0910: 45 58 20 32 3a 7d 20 20 20 5c 0a 20 20 7b 54 41  EX 2:}   \.  {TA
0920: 42 4c 45 20 74 32 20 55 53 49 4e 47 20 50 52 49  BLE t2 USING PRI
0930: 4d 41 52 59 20 4b 45 59 7d 20 20 20 20 20 20 20  MARY KEY}       
0940: 20 5c 0a 5d 0a 0a 66 69 6e 69 73 68 5f 74 65 73   \.]..finish_tes
0950: 74 0a                                            t.