/ Hex Artifact Content
Login

Artifact 903720aaab819764c3693aaac0affe8174104ac8:


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 24 61  [file dirname $a
01b0: 72 67 76 30 5d 20 2e 2e 20 2e 2e 20 74 65 73 74  rgv0] .. .. test
01c0: 5d 0a 7d 20 0a 73 6f 75 72 63 65 20 24 74 65 73  ].} .source $tes
01d0: 74 64 69 72 2f 74 65 73 74 65 72 2e 74 63 6c 0a  tdir/tester.tcl.
01e0: 0a 69 66 63 61 70 61 62 6c 65 20 21 72 74 72 65  .ifcapable !rtre
01f0: 65 20 7b 0a 20 20 66 69 6e 69 73 68 5f 74 65 73  e {.  finish_tes
0200: 74 0a 20 20 72 65 74 75 72 6e 0a 7d 0a 0a 23 20  t.  return.}..# 
0210: 20 20 4f 70 65 72 61 74 6f 72 20 20 20 20 42 79    Operator    By
0220: 74 65 20 56 61 6c 75 65 0a 23 20 20 20 2d 2d 2d  te Value.#   ---
0230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0240: 2d 2d 2d 0a 23 20 20 20 20 20 20 3d 20 20 20 20  ---.#      =    
0250: 20 20 20 20 30 78 34 31 20 28 27 41 27 29 0a 23      0x41 ('A').#
0260: 20 20 20 20 20 3c 3d 20 20 20 20 20 20 20 20 30       <=        0
0270: 78 34 32 20 28 27 42 27 29 0a 23 20 20 20 20 20  x42 ('B').#     
0280: 20 3c 20 20 20 20 20 20 20 20 30 78 34 33 20 28   <        0x43 (
0290: 27 43 27 29 0a 23 20 20 20 20 20 3e 3d 20 20 20  'C').#     >=   
02a0: 20 20 20 20 20 30 78 34 34 20 28 27 44 27 29 0a       0x44 ('D').
02b0: 23 20 20 20 20 20 20 3e 20 20 20 20 20 20 20 20  #      >        
02c0: 30 78 34 35 20 28 27 45 27 29 0a 23 20 20 20 2d  0x45 ('E').#   -
02d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
02e0: 2d 2d 2d 2d 2d 0a 0a 70 72 6f 63 20 72 74 72 65  -----..proc rtre
02f0: 65 5f 73 74 72 61 74 65 67 79 20 7b 73 71 6c 7d  e_strategy {sql}
0300: 20 7b 0a 20 20 73 65 74 20 72 65 74 20 5b 6c 69   {.  set ret [li
0310: 73 74 5d 0a 20 20 64 62 20 65 76 61 6c 20 22 65  st].  db eval "e
0320: 78 70 6c 61 69 6e 20 24 73 71 6c 22 20 61 20 7b  xplain $sql" a {
0330: 0a 20 20 20 20 69 66 20 7b 24 61 28 6f 70 63 6f  .    if {$a(opco
0340: 64 65 29 20 65 71 20 22 56 46 69 6c 74 65 72 22  de) eq "VFilter"
0350: 7d 20 7b 0a 20 20 20 20 20 20 6c 61 70 70 65 6e  } {.      lappen
0360: 64 20 72 65 74 20 24 61 28 70 34 29 0a 20 20 20  d ret $a(p4).   
0370: 20 7d 0a 20 20 7d 0a 20 20 73 65 74 20 72 65 74   }.  }.  set ret
0380: 0a 7d 0a 0a 70 72 6f 63 20 71 75 65 72 79 5f 70  .}..proc query_p
0390: 6c 61 6e 20 7b 73 71 6c 7d 20 7b 0a 20 20 73 65  lan {sql} {.  se
03a0: 74 20 72 65 74 20 5b 6c 69 73 74 5d 0a 20 20 64  t ret [list].  d
03b0: 62 20 65 76 61 6c 20 22 65 78 70 6c 61 69 6e 20  b eval "explain 
03c0: 71 75 65 72 79 20 70 6c 61 6e 20 24 73 71 6c 22  query plan $sql"
03d0: 20 61 20 7b 0a 20 20 20 20 6c 61 70 70 65 6e 64   a {.    lappend
03e0: 20 72 65 74 20 24 61 28 64 65 74 61 69 6c 29 0a   ret $a(detail).
03f0: 20 20 7d 0a 20 20 73 65 74 20 72 65 74 0a 7d 0a    }.  set ret.}.
0400: 0a 64 6f 5f 74 65 73 74 20 72 74 72 65 65 36 2d  .do_test rtree6-
0410: 31 2e 31 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  1.1 {.  execsql 
0420: 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42  {.    CREATE TAB
0430: 4c 45 20 74 32 28 6b 20 49 4e 54 45 47 45 52 20  LE t2(k INTEGER 
0440: 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 76 29 3b  PRIMARY KEY, v);
0450: 0a 20 20 20 20 43 52 45 41 54 45 20 56 49 52 54  .    CREATE VIRT
0460: 55 41 4c 20 54 41 42 4c 45 20 74 31 20 55 53 49  UAL TABLE t1 USI
0470: 4e 47 20 72 74 72 65 65 28 69 69 2c 20 78 31 2c  NG rtree(ii, x1,
0480: 20 78 32 2c 20 79 31 2c 20 79 32 29 3b 0a 20 20   x2, y1, y2);.  
0490: 7d 0a 7d 20 7b 7d 0a 0a 64 6f 5f 74 65 73 74 20  }.} {}..do_test 
04a0: 72 74 72 65 65 36 2d 31 2e 32 20 7b 0a 20 20 72  rtree6-1.2 {.  r
04b0: 74 72 65 65 5f 73 74 72 61 74 65 67 79 20 7b 53  tree_strategy {S
04c0: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 20  ELECT * FROM t1 
04d0: 57 48 45 52 45 20 78 31 3e 31 30 7d 0a 7d 20 7b  WHERE x1>10}.} {
04e0: 45 61 7d 0a 0a 64 6f 5f 74 65 73 74 20 72 74 72  Ea}..do_test rtr
04f0: 65 65 36 2d 31 2e 33 20 7b 0a 20 20 72 74 72 65  ee6-1.3 {.  rtre
0500: 65 5f 73 74 72 61 74 65 67 79 20 7b 53 45 4c 45  e_strategy {SELE
0510: 43 54 20 2a 20 46 52 4f 4d 20 74 31 20 57 48 45  CT * FROM t1 WHE
0520: 52 45 20 78 31 3c 31 30 7d 0a 7d 20 7b 43 61 7d  RE x1<10}.} {Ca}
0530: 0a 0a 64 6f 5f 74 65 73 74 20 72 74 72 65 65 36  ..do_test rtree6
0540: 2d 31 2e 34 20 7b 0a 20 20 72 74 72 65 65 5f 73  -1.4 {.  rtree_s
0550: 74 72 61 74 65 67 79 20 7b 53 45 4c 45 43 54 20  trategy {SELECT 
0560: 2a 20 46 52 4f 4d 20 74 31 2c 74 32 20 57 48 45  * FROM t1,t2 WHE
0570: 52 45 20 6b 3d 69 69 20 41 4e 44 20 78 31 3c 31  RE k=ii AND x1<1
0580: 30 7d 0a 7d 20 7b 43 61 7d 0a 0a 64 6f 5f 74 65  0}.} {Ca}..do_te
0590: 73 74 20 72 74 72 65 65 36 2d 31 2e 35 20 7b 0a  st rtree6-1.5 {.
05a0: 20 20 72 74 72 65 65 5f 73 74 72 61 74 65 67 79    rtree_strategy
05b0: 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20   {SELECT * FROM 
05c0: 74 31 2c 74 32 20 57 48 45 52 45 20 6b 3d 2b 69  t1,t2 WHERE k=+i
05d0: 69 20 41 4e 44 20 78 31 3c 31 30 7d 0a 7d 20 7b  i AND x1<10}.} {
05e0: 43 61 7d 0a 0a 64 6f 5f 74 65 73 74 20 72 74 72  Ca}..do_test rtr
05f0: 65 65 36 2e 32 2e 31 20 7b 0a 20 20 71 75 65 72  ee6.2.1 {.  quer
0600: 79 5f 70 6c 61 6e 20 7b 53 45 4c 45 43 54 20 2a  y_plan {SELECT *
0610: 20 46 52 4f 4d 20 74 31 2c 74 32 20 57 48 45 52   FROM t1,t2 WHER
0620: 45 20 6b 3d 2b 69 69 20 41 4e 44 20 78 31 3c 31  E k=+ii AND x1<1
0630: 30 7d 0a 7d 20 5b 6c 69 73 74 20 5c 0a 20 20 7b  0}.} [list \.  {
0640: 54 41 42 4c 45 20 74 31 20 56 49 52 54 55 41 4c  TABLE t1 VIRTUAL
0650: 20 54 41 42 4c 45 20 49 4e 44 45 58 20 32 3a 43   TABLE INDEX 2:C
0660: 61 7d 20 5c 0a 20 20 7b 54 41 42 4c 45 20 74 32  a} \.  {TABLE t2
0670: 20 55 53 49 4e 47 20 50 52 49 4d 41 52 59 20 4b   USING PRIMARY K
0680: 45 59 7d 20 20 20 20 20 20 20 20 5c 0a 5d 0a 0a  EY}        \.]..
0690: 64 6f 5f 74 65 73 74 20 72 74 72 65 65 36 2e 32  do_test rtree6.2
06a0: 2e 32 20 7b 0a 20 20 71 75 65 72 79 5f 70 6c 61  .2 {.  query_pla
06b0: 6e 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  n {SELECT * FROM
06c0: 20 74 31 2c 74 32 20 57 48 45 52 45 20 6b 3d 69   t1,t2 WHERE k=i
06d0: 69 20 41 4e 44 20 78 31 3c 31 30 7d 0a 7d 20 5b  i AND x1<10}.} [
06e0: 6c 69 73 74 20 5c 0a 20 20 7b 54 41 42 4c 45 20  list \.  {TABLE 
06f0: 74 31 20 56 49 52 54 55 41 4c 20 54 41 42 4c 45  t1 VIRTUAL TABLE
0700: 20 49 4e 44 45 58 20 32 3a 43 61 7d 20 5c 0a 20   INDEX 2:Ca} \. 
0710: 20 7b 54 41 42 4c 45 20 74 32 20 55 53 49 4e 47   {TABLE t2 USING
0720: 20 50 52 49 4d 41 52 59 20 4b 45 59 7d 20 20 20   PRIMARY KEY}   
0730: 20 20 20 20 20 5c 0a 5d 0a 0a 64 6f 5f 74 65 73       \.]..do_tes
0740: 74 20 72 74 72 65 65 36 2e 32 2e 33 20 7b 0a 20  t rtree6.2.3 {. 
0750: 20 71 75 65 72 79 5f 70 6c 61 6e 20 7b 53 45 4c   query_plan {SEL
0760: 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 2c 74 32  ECT * FROM t1,t2
0770: 20 57 48 45 52 45 20 6b 3d 69 69 7d 0a 7d 20 5b   WHERE k=ii}.} [
0780: 6c 69 73 74 20 5c 0a 20 20 7b 54 41 42 4c 45 20  list \.  {TABLE 
0790: 74 31 20 56 49 52 54 55 41 4c 20 54 41 42 4c 45  t1 VIRTUAL TABLE
07a0: 20 49 4e 44 45 58 20 32 3a 7d 20 20 20 5c 0a 20   INDEX 2:}   \. 
07b0: 20 7b 54 41 42 4c 45 20 74 32 20 55 53 49 4e 47   {TABLE t2 USING
07c0: 20 50 52 49 4d 41 52 59 20 4b 45 59 7d 20 20 20   PRIMARY KEY}   
07d0: 20 20 20 20 20 5c 0a 5d 0a 0a 64 6f 5f 74 65 73       \.]..do_tes
07e0: 74 20 72 74 72 65 65 36 2e 32 2e 34 20 7b 0a 20  t rtree6.2.4 {. 
07f0: 20 71 75 65 72 79 5f 70 6c 61 6e 20 7b 53 45 4c   query_plan {SEL
0800: 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 2c 74 32  ECT * FROM t1,t2
0810: 20 57 48 45 52 45 20 76 3d 31 30 20 61 6e 64 20   WHERE v=10 and 
0820: 78 31 3c 31 30 20 61 6e 64 20 78 32 3e 31 30 7d  x1<10 and x2>10}
0830: 0a 7d 20 5b 6c 69 73 74 20 5c 0a 20 20 7b 54 41  .} [list \.  {TA
0840: 42 4c 45 20 74 31 20 56 49 52 54 55 41 4c 20 54  BLE t1 VIRTUAL T
0850: 41 42 4c 45 20 49 4e 44 45 58 20 32 3a 43 61 45  ABLE INDEX 2:CaE
0860: 62 7d 20 20 20 5c 0a 20 20 7b 54 41 42 4c 45 20  b}   \.  {TABLE 
0870: 74 32 7d 20 20 20 20 20 20 20 20 20 20 20 20 20  t2}             
0880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0890: 20 5c 0a 5d 0a 0a 64 6f 5f 74 65 73 74 20 72 74   \.]..do_test rt
08a0: 72 65 65 36 2e 32 2e 35 20 7b 0a 20 20 71 75 65  ree6.2.5 {.  que
08b0: 72 79 5f 70 6c 61 6e 20 7b 53 45 4c 45 43 54 20  ry_plan {SELECT 
08c0: 2a 20 46 52 4f 4d 20 74 31 2c 74 32 20 57 48 45  * FROM t1,t2 WHE
08d0: 52 45 20 6b 3d 69 69 20 41 4e 44 20 78 31 3c 76  RE k=ii AND x1<v
08e0: 7d 0a 7d 20 5b 6c 69 73 74 20 5c 0a 20 20 7b 54  }.} [list \.  {T
08f0: 41 42 4c 45 20 74 31 20 56 49 52 54 55 41 4c 20  ABLE t1 VIRTUAL 
0900: 54 41 42 4c 45 20 49 4e 44 45 58 20 32 3a 7d 20  TABLE INDEX 2:} 
0910: 20 20 5c 0a 20 20 7b 54 41 42 4c 45 20 74 32 20    \.  {TABLE t2 
0920: 55 53 49 4e 47 20 50 52 49 4d 41 52 59 20 4b 45  USING PRIMARY KE
0930: 59 7d 20 20 20 20 20 20 20 20 5c 0a 5d 0a 0a 66  Y}        \.]..f
0940: 69 6e 69 73 68 5f 74 65 73 74 0a                 inish_test.