/ Hex Artifact Content
Login

Artifact d67d5b3e9e45bfa8cd90734e8e9302144ac415b8e9176c6f02d4f92892ee8a35:


0000: 23 20 32 30 31 37 20 41 75 67 75 73 74 20 31 37  # 2017 August 17
0010: 0a 23 0a 23 20 54 68 65 20 61 75 74 68 6f 72 20  .#.# The author 
0020: 64 69 73 63 6c 61 69 6d 73 20 63 6f 70 79 72 69  disclaims copyri
0030: 67 68 74 20 74 6f 20 74 68 69 73 20 73 6f 75 72  ght to this sour
0040: 63 65 20 63 6f 64 65 2e 20 20 49 6e 20 70 6c 61  ce code.  In pla
0050: 63 65 20 6f 66 0a 23 20 61 20 6c 65 67 61 6c 20  ce of.# a legal 
0060: 6e 6f 74 69 63 65 2c 20 68 65 72 65 20 69 73 20  notice, here is 
0070: 61 20 62 6c 65 73 73 69 6e 67 3a 0a 23 0a 23 20  a blessing:.#.# 
0080: 20 20 20 4d 61 79 20 79 6f 75 20 64 6f 20 67 6f     May you do go
0090: 6f 64 20 61 6e 64 20 6e 6f 74 20 65 76 69 6c 2e  od and not evil.
00a0: 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 66 69  .#    May you fi
00b0: 6e 64 20 66 6f 72 67 69 76 65 6e 65 73 73 20 66  nd forgiveness f
00c0: 6f 72 20 79 6f 75 72 73 65 6c 66 20 61 6e 64 20  or yourself and 
00d0: 66 6f 72 67 69 76 65 20 6f 74 68 65 72 73 2e 0a  forgive others..
00e0: 23 20 20 20 20 4d 61 79 20 79 6f 75 20 73 68 61  #    May you sha
00f0: 72 65 20 66 72 65 65 6c 79 2c 20 6e 65 76 65 72  re freely, never
0100: 20 74 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61   taking more tha
0110: 6e 20 79 6f 75 20 67 69 76 65 2e 0a 23 0a 23 2a  n you 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 2a 2a 2a 2a 0a 23 0a 23 0a 0a 0a 69 66 20  ******.#.#...if 
0170: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 74  {![info exists t
0180: 65 73 74 64 69 72 5d 7d 20 7b 0a 20 20 73 65 74  estdir]} {.  set
0190: 20 74 65 73 74 64 69 72 20 5b 66 69 6c 65 20 6a   testdir [file j
01a0: 6f 69 6e 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d  oin [file dirnam
01b0: 65 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d 5d  e [info script]]
01c0: 20 2e 2e 20 2e 2e 20 74 65 73 74 5d 0a 7d 20 0a   .. .. test].} .
01d0: 73 6f 75 72 63 65 20 24 74 65 73 74 64 69 72 2f  source $testdir/
01e0: 74 65 73 74 65 72 2e 74 63 6c 0a 73 65 74 20 74  tester.tcl.set t
01f0: 65 73 74 70 72 65 66 69 78 20 72 74 72 65 65 63  estprefix rtreec
0200: 68 65 63 6b 0a 0a 69 66 63 61 70 61 62 6c 65 20  heck..ifcapable 
0210: 21 72 74 72 65 65 20 7b 0a 20 20 66 69 6e 69 73  !rtree {.  finis
0220: 68 5f 74 65 73 74 0a 20 20 72 65 74 75 72 6e 0a  h_test.  return.
0230: 7d 0a 0a 70 72 6f 63 20 73 77 61 70 5f 69 6e 74  }..proc swap_int
0240: 33 32 20 7b 62 6c 6f 62 20 69 30 20 69 31 7d 20  32 {blob i0 i1} 
0250: 7b 0a 20 20 62 69 6e 61 72 79 20 73 63 61 6e 20  {.  binary scan 
0260: 24 62 6c 6f 62 20 49 2a 20 4c 0a 0a 20 20 73 65  $blob I* L..  se
0270: 74 20 61 20 5b 6c 69 6e 64 65 78 20 24 4c 20 24  t a [lindex $L $
0280: 69 30 5d 0a 20 20 73 65 74 20 62 20 5b 6c 69 6e  i0].  set b [lin
0290: 64 65 78 20 24 4c 20 24 69 31 5d 0a 0a 20 20 6c  dex $L $i1]..  l
02a0: 73 65 74 20 4c 20 24 69 30 20 24 62 0a 20 20 6c  set L $i0 $b.  l
02b0: 73 65 74 20 4c 20 24 69 31 20 24 61 0a 0a 20 20  set L $i1 $a..  
02c0: 62 69 6e 61 72 79 20 66 6f 72 6d 61 74 20 49 2a  binary format I*
02d0: 20 24 4c 0a 7d 0a 0a 70 72 6f 63 20 73 65 74 5f   $L.}..proc set_
02e0: 69 6e 74 33 32 20 7b 62 6c 6f 62 20 69 64 78 20  int32 {blob idx 
02f0: 76 61 6c 7d 20 7b 0a 20 20 62 69 6e 61 72 79 20  val} {.  binary 
0300: 73 63 61 6e 20 24 62 6c 6f 62 20 49 2a 20 4c 0a  scan $blob I* L.
0310: 20 20 6c 73 65 74 20 4c 20 24 69 64 78 20 24 76    lset L $idx $v
0320: 61 6c 0a 20 20 62 69 6e 61 72 79 20 66 6f 72 6d  al.  binary form
0330: 61 74 20 49 2a 20 24 4c 0a 7d 0a 0a 64 6f 5f 63  at I* $L.}..do_c
0340: 61 74 63 68 73 71 6c 5f 74 65 73 74 20 31 2e 30  atchsql_test 1.0
0350: 20 7b 0a 20 20 53 45 4c 45 43 54 20 72 74 72 65   {.  SELECT rtre
0360: 65 63 68 65 63 6b 28 29 3b 0a 7d 20 7b 31 20 7b  echeck();.} {1 {
0370: 77 72 6f 6e 67 20 6e 75 6d 62 65 72 20 6f 66 20  wrong number of 
0380: 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 66 75 6e  arguments to fun
0390: 63 74 69 6f 6e 20 72 74 72 65 65 63 68 65 63 6b  ction rtreecheck
03a0: 28 29 7d 7d 0a 0a 64 6f 5f 63 61 74 63 68 73 71  ()}}..do_catchsq
03b0: 6c 5f 74 65 73 74 20 31 2e 31 20 7b 0a 20 20 53  l_test 1.1 {.  S
03c0: 45 4c 45 43 54 20 72 74 72 65 65 63 68 65 63 6b  ELECT rtreecheck
03d0: 28 30 2c 30 2c 30 29 3b 0a 7d 20 7b 31 20 7b 77  (0,0,0);.} {1 {w
03e0: 72 6f 6e 67 20 6e 75 6d 62 65 72 20 6f 66 20 61  rong number of a
03f0: 72 67 75 6d 65 6e 74 73 20 74 6f 20 66 75 6e 63  rguments to func
0400: 74 69 6f 6e 20 72 74 72 65 65 63 68 65 63 6b 28  tion rtreecheck(
0410: 29 7d 7d 0a 0a 0a 70 72 6f 63 20 73 65 74 75 70  )}}...proc setup
0420: 5f 73 69 6d 70 6c 65 5f 64 62 20 7b 7b 6d 6f 64  _simple_db {{mod
0430: 75 6c 65 20 72 74 72 65 65 7d 7d 20 7b 0a 20 20  ule rtree}} {.  
0440: 72 65 73 65 74 5f 64 62 0a 20 20 64 62 20 66 75  reset_db.  db fu
0450: 6e 63 20 73 77 61 70 5f 69 6e 74 33 32 20 73 77  nc swap_int32 sw
0460: 61 70 5f 69 6e 74 33 32 0a 20 20 65 78 65 63 73  ap_int32.  execs
0470: 71 6c 20 22 0a 20 20 20 20 43 52 45 41 54 45 20  ql ".    CREATE 
0480: 56 49 52 54 55 41 4c 20 54 41 42 4c 45 20 72 31  VIRTUAL TABLE r1
0490: 20 55 53 49 4e 47 20 24 6d 6f 64 75 6c 65 20 28   USING $module (
04a0: 69 64 2c 20 78 31 2c 20 78 32 2c 20 79 31 2c 20  id, x1, x2, y1, 
04b0: 79 32 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20  y2);.    INSERT 
04c0: 49 4e 54 4f 20 72 31 20 56 41 4c 55 45 53 28 31  INTO r1 VALUES(1
04d0: 2c 20 20 35 2c 20 35 2c 20 35 2c 20 35 29 3b 20  ,  5, 5, 5, 5); 
04e0: 20 2d 2d 20 20 33 0a 20 20 20 20 49 4e 53 45 52   --  3.    INSER
04f0: 54 20 49 4e 54 4f 20 72 31 20 56 41 4c 55 45 53  T INTO r1 VALUES
0500: 28 32 2c 20 20 36 2c 20 36 2c 20 36 2c 20 36 29  (2,  6, 6, 6, 6)
0510: 3b 20 20 2d 2d 20 20 39 0a 20 20 20 20 49 4e 53  ;  --  9.    INS
0520: 45 52 54 20 49 4e 54 4f 20 72 31 20 56 41 4c 55  ERT INTO r1 VALU
0530: 45 53 28 33 2c 20 20 37 2c 20 37 2c 20 37 2c 20  ES(3,  7, 7, 7, 
0540: 37 29 3b 20 20 2d 2d 20 31 35 0a 20 20 20 20 49  7);  -- 15.    I
0550: 4e 53 45 52 54 20 49 4e 54 4f 20 72 31 20 56 41  NSERT INTO r1 VA
0560: 4c 55 45 53 28 34 2c 20 20 38 2c 20 38 2c 20 38  LUES(4,  8, 8, 8
0570: 2c 20 38 29 3b 20 20 2d 2d 20 32 31 0a 20 20 20  , 8);  -- 21.   
0580: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 72 31 20   INSERT INTO r1 
0590: 56 41 4c 55 45 53 28 35 2c 20 20 39 2c 20 39 2c  VALUES(5,  9, 9,
05a0: 20 39 2c 20 39 29 3b 20 20 2d 2d 20 32 37 0a 20   9, 9);  -- 27. 
05b0: 20 22 0a 20 20 73 71 6c 69 74 65 33 5f 64 62 5f   ".  sqlite3_db_
05c0: 63 6f 6e 66 69 67 20 64 62 20 44 45 46 45 4e 53  config db DEFENS
05d0: 49 56 45 20 30 0a 7d 0a 0a 73 65 74 75 70 5f 73  IVE 0.}..setup_s
05e0: 69 6d 70 6c 65 5f 64 62 0a 64 6f 5f 65 78 65 63  imple_db.do_exec
05f0: 73 71 6c 5f 74 65 73 74 20 32 2e 31 20 7b 20 0a  sql_test 2.1 { .
0600: 20 20 53 45 4c 45 43 54 20 72 74 72 65 65 63 68    SELECT rtreech
0610: 65 63 6b 28 27 72 31 27 29 20 0a 7d 20 7b 6f 6b  eck('r1') .} {ok
0620: 7d 0a 0a 64 6f 5f 65 78 65 63 73 71 6c 5f 74 65  }..do_execsql_te
0630: 73 74 20 32 2e 32 20 7b 0a 20 20 55 50 44 41 54  st 2.2 {.  UPDAT
0640: 45 20 72 31 5f 6e 6f 64 65 20 53 45 54 20 64 61  E r1_node SET da
0650: 74 61 20 3d 20 73 77 61 70 5f 69 6e 74 33 32 28  ta = swap_int32(
0660: 64 61 74 61 2c 20 33 2c 20 39 29 3b 0a 20 20 55  data, 3, 9);.  U
0670: 50 44 41 54 45 20 72 31 5f 6e 6f 64 65 20 53 45  PDATE r1_node SE
0680: 54 20 64 61 74 61 20 3d 20 73 77 61 70 5f 69 6e  T data = swap_in
0690: 74 33 32 28 64 61 74 61 2c 20 32 33 2c 20 32 39  t32(data, 23, 29
06a0: 29 3b 0a 7d 0a 0a 64 6f 5f 65 78 65 63 73 71 6c  );.}..do_execsql
06b0: 5f 74 65 73 74 20 32 2e 33 20 7b 20 0a 20 20 53  _test 2.3 { .  S
06c0: 45 4c 45 43 54 20 72 74 72 65 65 63 68 65 63 6b  ELECT rtreecheck
06d0: 28 27 72 31 27 29 20 0a 7d 20 7b 7b 44 69 6d 65  ('r1') .} {{Dime
06e0: 6e 73 69 6f 6e 20 30 20 6f 66 20 63 65 6c 6c 20  nsion 0 of cell 
06f0: 30 20 6f 6e 20 6e 6f 64 65 20 31 20 69 73 20 63  0 on node 1 is c
0700: 6f 72 72 75 70 74 0a 44 69 6d 65 6e 73 69 6f 6e  orrupt.Dimension
0710: 20 31 20 6f 66 20 63 65 6c 6c 20 33 20 6f 6e 20   1 of cell 3 on 
0720: 6e 6f 64 65 20 31 20 69 73 20 63 6f 72 72 75 70  node 1 is corrup
0730: 74 7d 7d 0a 0a 73 65 74 75 70 5f 73 69 6d 70 6c  t}}..setup_simpl
0740: 65 5f 64 62 0a 64 6f 5f 65 78 65 63 73 71 6c 5f  e_db.do_execsql_
0750: 74 65 73 74 20 32 2e 34 20 7b 0a 20 20 44 45 4c  test 2.4 {.  DEL
0760: 45 54 45 20 46 52 4f 4d 20 72 31 5f 72 6f 77 69  ETE FROM r1_rowi
0770: 64 20 57 48 45 52 45 20 72 6f 77 69 64 20 3d 20  d WHERE rowid = 
0780: 33 3b 0a 20 20 53 45 4c 45 43 54 20 72 74 72 65  3;.  SELECT rtre
0790: 65 63 68 65 63 6b 28 27 72 31 27 29 20 0a 7d 20  echeck('r1') .} 
07a0: 7b 7b 4d 61 70 70 69 6e 67 20 28 33 20 2d 3e 20  {{Mapping (3 -> 
07b0: 31 29 20 6d 69 73 73 69 6e 67 20 66 72 6f 6d 20  1) missing from 
07c0: 25 5f 72 6f 77 69 64 20 74 61 62 6c 65 0a 57 72  %_rowid table.Wr
07d0: 6f 6e 67 20 6e 75 6d 62 65 72 20 6f 66 20 65 6e  ong number of en
07e0: 74 72 69 65 73 20 69 6e 20 25 5f 72 6f 77 69 64  tries in %_rowid
07f0: 20 74 61 62 6c 65 20 2d 20 65 78 70 65 63 74 65   table - expecte
0800: 64 20 35 2c 20 61 63 74 75 61 6c 20 34 7d 7d 0a  d 5, actual 4}}.
0810: 0a 73 65 74 75 70 5f 73 69 6d 70 6c 65 5f 64 62  .setup_simple_db
0820: 0a 64 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74  .do_execsql_test
0830: 20 32 2e 35 20 7b 0a 20 20 55 50 44 41 54 45 20   2.5 {.  UPDATE 
0840: 72 31 5f 72 6f 77 69 64 20 53 45 54 20 6e 6f 64  r1_rowid SET nod
0850: 65 6e 6f 3d 32 20 57 48 45 52 45 20 72 6f 77 69  eno=2 WHERE rowi
0860: 64 3d 33 3b 0a 20 20 53 45 4c 45 43 54 20 72 74  d=3;.  SELECT rt
0870: 72 65 65 63 68 65 63 6b 28 27 72 31 27 29 20 0a  reecheck('r1') .
0880: 7d 20 7b 7b 46 6f 75 6e 64 20 28 33 20 2d 3e 20  } {{Found (3 -> 
0890: 32 29 20 69 6e 20 25 5f 72 6f 77 69 64 20 74 61  2) in %_rowid ta
08a0: 62 6c 65 2c 20 65 78 70 65 63 74 65 64 20 28 33  ble, expected (3
08b0: 20 2d 3e 20 31 29 7d 7d 0a 0a 72 65 73 65 74 5f   -> 1)}}..reset_
08c0: 64 62 0a 64 6f 5f 65 78 65 63 73 71 6c 5f 74 65  db.do_execsql_te
08d0: 73 74 20 33 2e 30 20 7b 20 0a 20 20 43 52 45 41  st 3.0 { .  CREA
08e0: 54 45 20 56 49 52 54 55 41 4c 20 54 41 42 4c 45  TE VIRTUAL TABLE
08f0: 20 72 31 20 55 53 49 4e 47 20 72 74 72 65 65 5f   r1 USING rtree_
0900: 69 33 32 28 69 64 2c 20 78 31 2c 20 78 32 29 3b  i32(id, x1, x2);
0910: 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 72  .  INSERT INTO r
0920: 31 20 56 41 4c 55 45 53 28 31 2c 20 30 78 37 46  1 VALUES(1, 0x7F
0930: 46 46 46 46 46 46 2a 2d 31 2c 20 30 78 37 46 46  FFFFFF*-1, 0x7FF
0940: 46 46 46 46 46 29 3b 0a 20 20 49 4e 53 45 52 54  FFFFF);.  INSERT
0950: 20 49 4e 54 4f 20 72 31 20 56 41 4c 55 45 53 28   INTO r1 VALUES(
0960: 32 2c 20 30 78 37 46 46 46 46 46 46 46 2a 2d 31  2, 0x7FFFFFFF*-1
0970: 2c 20 35 29 3b 0a 20 20 49 4e 53 45 52 54 20 49  , 5);.  INSERT I
0980: 4e 54 4f 20 72 31 20 56 41 4c 55 45 53 28 33 2c  NTO r1 VALUES(3,
0990: 20 2d 35 2c 20 35 29 3b 0a 20 20 49 4e 53 45 52   -5, 5);.  INSER
09a0: 54 20 49 4e 54 4f 20 72 31 20 56 41 4c 55 45 53  T INTO r1 VALUES
09b0: 28 34 2c 20 35 2c 20 30 78 31 31 31 31 31 31 31  (4, 5, 0x1111111
09c0: 31 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54  1);.  INSERT INT
09d0: 4f 20 72 31 20 56 41 4c 55 45 53 28 35 2c 20 35  O r1 VALUES(5, 5
09e0: 2c 20 30 78 30 30 38 30 30 30 30 30 29 3b 0a 20  , 0x00800000);. 
09f0: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 72 31 20   INSERT INTO r1 
0a00: 56 41 4c 55 45 53 28 36 2c 20 35 2c 20 30 78 30  VALUES(6, 5, 0x0
0a10: 30 30 30 38 30 30 30 29 3b 0a 20 20 49 4e 53 45  0008000);.  INSE
0a20: 52 54 20 49 4e 54 4f 20 72 31 20 56 41 4c 55 45  RT INTO r1 VALUE
0a30: 53 28 37 2c 20 35 2c 20 30 78 30 30 30 30 30 30  S(7, 5, 0x000000
0a40: 38 30 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e  80);.  INSERT IN
0a50: 54 4f 20 72 31 20 56 41 4c 55 45 53 28 38 2c 20  TO r1 VALUES(8, 
0a60: 35 2c 20 30 78 34 30 34 39 30 66 64 62 29 3b 0a  5, 0x40490fdb);.
0a70: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 72 31    INSERT INTO r1
0a80: 20 56 41 4c 55 45 53 28 39 2c 20 30 78 37 66 38   VALUES(9, 0x7f8
0a90: 30 30 30 30 30 2c 20 30 78 37 66 39 30 30 30 30  00000, 0x7f90000
0aa0: 30 29 3b 0a 20 20 53 45 4c 45 43 54 20 72 74 72  0);.  SELECT rtr
0ab0: 65 65 63 68 65 63 6b 28 27 72 31 27 29 20 0a 7d  eecheck('r1') .}
0ac0: 20 7b 6f 6b 7d 0a 0a 64 6f 5f 65 78 65 63 73 71   {ok}..do_execsq
0ad0: 6c 5f 74 65 73 74 20 33 2e 31 20 7b 20 0a 20 20  l_test 3.1 { .  
0ae0: 43 52 45 41 54 45 20 56 49 52 54 55 41 4c 20 54  CREATE VIRTUAL T
0af0: 41 42 4c 45 20 72 32 20 55 53 49 4e 47 20 72 74  ABLE r2 USING rt
0b00: 72 65 65 5f 69 33 32 28 69 64 2c 20 78 31 2c 20  ree_i32(id, x1, 
0b10: 78 32 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e  x2);.  INSERT IN
0b20: 54 4f 20 72 32 20 56 41 4c 55 45 53 28 32 2c 20  TO r2 VALUES(2, 
0b30: 2d 31 2a 28 31 3c 3c 33 31 29 2c 20 2d 31 2a 28  -1*(1<<31), -1*(
0b40: 31 3c 3c 33 31 29 2b 35 29 3b 0a 20 20 53 45 4c  1<<31)+5);.  SEL
0b50: 45 43 54 20 72 74 72 65 65 63 68 65 63 6b 28 27  ECT rtreecheck('
0b60: 72 32 27 29 20 0a 7d 20 7b 6f 6b 7d 0a 0a 73 71  r2') .} {ok}..sq
0b70: 6c 69 74 65 33 5f 64 62 5f 63 6f 6e 66 69 67 20  lite3_db_config 
0b80: 64 62 20 44 45 46 45 4e 53 49 56 45 20 30 0a 64  db DEFENSIVE 0.d
0b90: 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74 20 33  o_execsql_test 3
0ba0: 2e 32 20 7b 0a 20 20 42 45 47 49 4e 3b 0a 20 20  .2 {.  BEGIN;.  
0bb0: 20 20 55 50 44 41 54 45 20 72 32 5f 6e 6f 64 65    UPDATE r2_node
0bc0: 20 53 45 54 20 64 61 74 61 20 3d 20 58 27 31 32   SET data = X'12
0bd0: 33 34 35 36 27 3b 0a 20 20 20 20 53 45 4c 45 43  3456';.    SELEC
0be0: 54 20 72 74 72 65 65 63 68 65 63 6b 28 27 72 32  T rtreecheck('r2
0bf0: 27 29 21 3d 22 6f 6b 22 3b 0a 7d 20 7b 31 7d 0a  ')!="ok";.} {1}.
0c00: 0a 64 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74  .do_execsql_test
0c10: 20 33 2e 33 20 7b 0a 20 20 52 4f 4c 4c 42 41 43   3.3 {.  ROLLBAC
0c20: 4b 3b 0a 20 20 55 50 44 41 54 45 20 72 32 5f 6e  K;.  UPDATE r2_n
0c30: 6f 64 65 20 53 45 54 20 64 61 74 61 20 3d 20 58  ode SET data = X
0c40: 27 30 30 30 30 31 32 33 34 27 3b 0a 20 20 53 45  '00001234';.  SE
0c50: 4c 45 43 54 20 72 74 72 65 65 63 68 65 63 6b 28  LECT rtreecheck(
0c60: 27 72 32 27 29 21 3d 22 6f 6b 22 3b 0a 7d 20 7b  'r2')!="ok";.} {
0c70: 31 7d 0a 0a 64 6f 5f 65 78 65 63 73 71 6c 5f 74  1}..do_execsql_t
0c80: 65 73 74 20 34 2e 30 20 7b 0a 20 20 43 52 45 41  est 4.0 {.  CREA
0c90: 54 45 20 54 41 42 4c 45 20 6e 6f 74 61 6e 72 74  TE TABLE notanrt
0ca0: 72 65 65 28 69 29 3b 0a 20 20 53 45 4c 45 43 54  ree(i);.  SELECT
0cb0: 20 72 74 72 65 65 63 68 65 63 6b 28 27 6e 6f 74   rtreecheck('not
0cc0: 61 6e 72 74 72 65 65 27 29 3b 0a 7d 20 7b 7b 53  anrtree');.} {{S
0cd0: 63 68 65 6d 61 20 63 6f 72 72 75 70 74 20 6f 72  chema corrupt or
0ce0: 20 6e 6f 74 20 61 6e 20 72 74 72 65 65 7d 7d 0a   not an rtree}}.
0cf0: 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  .#--------------
0d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 0a 72 65  -----------.#.re
0d40: 73 65 74 5f 64 62 0a 64 62 20 66 75 6e 63 20 73  set_db.db func s
0d50: 65 74 5f 69 6e 74 33 32 20 73 65 74 5f 69 6e 74  et_int32 set_int
0d60: 33 32 0a 64 6f 5f 65 78 65 63 73 71 6c 5f 74 65  32.do_execsql_te
0d70: 73 74 20 35 2e 30 20 7b 0a 20 20 43 52 45 41 54  st 5.0 {.  CREAT
0d80: 45 20 56 49 52 54 55 41 4c 20 54 41 42 4c 45 20  E VIRTUAL TABLE 
0d90: 72 33 20 55 53 49 4e 47 20 72 74 72 65 65 5f 69  r3 USING rtree_i
0da0: 33 32 28 69 64 2c 20 78 31 2c 20 78 32 2c 20 79  32(id, x1, x2, y
0db0: 31 2c 20 79 32 29 3b 0a 20 20 57 49 54 48 20 78  1, y2);.  WITH x
0dc0: 28 69 29 20 41 53 20 28 0a 20 20 20 20 53 45 4c  (i) AS (.    SEL
0dd0: 45 43 54 20 31 20 55 4e 49 4f 4e 20 41 4c 4c 20  ECT 1 UNION ALL 
0de0: 53 45 4c 45 43 54 20 69 2b 31 20 46 52 4f 4d 20  SELECT i+1 FROM 
0df0: 78 20 57 48 45 52 45 20 69 3c 31 30 30 30 0a 20  x WHERE i<1000. 
0e00: 20 29 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f   ).  INSERT INTO
0e10: 20 72 33 20 53 45 4c 45 43 54 20 69 2c 20 69 2c   r3 SELECT i, i,
0e20: 20 69 2c 20 69 2c 20 69 20 46 52 4f 4d 20 78 3b   i, i, i FROM x;
0e30: 0a 7d 0a 73 71 6c 69 74 65 33 5f 64 62 5f 63 6f  .}.sqlite3_db_co
0e40: 6e 66 69 67 20 64 62 20 44 45 46 45 4e 53 49 56  nfig db DEFENSIV
0e50: 45 20 30 0a 64 6f 5f 65 78 65 63 73 71 6c 5f 74  E 0.do_execsql_t
0e60: 65 73 74 20 35 2e 31 20 7b 0a 20 20 42 45 47 49  est 5.1 {.  BEGI
0e70: 4e 3b 0a 20 20 20 20 55 50 44 41 54 45 20 72 33  N;.    UPDATE r3
0e80: 5f 6e 6f 64 65 20 53 45 54 20 64 61 74 61 20 3d  _node SET data =
0e90: 20 73 65 74 5f 69 6e 74 33 32 28 64 61 74 61 2c   set_int32(data,
0ea0: 20 33 2c 20 35 30 30 30 29 3b 0a 20 20 20 20 55   3, 5000);.    U
0eb0: 50 44 41 54 45 20 72 33 5f 6e 6f 64 65 20 53 45  PDATE r3_node SE
0ec0: 54 20 64 61 74 61 20 3d 20 73 65 74 5f 69 6e 74  T data = set_int
0ed0: 33 32 28 64 61 74 61 2c 20 34 2c 20 35 30 30 30  32(data, 4, 5000
0ee0: 29 3b 0a 20 20 20 20 53 45 4c 45 43 54 20 72 74  );.    SELECT rt
0ef0: 72 65 65 63 68 65 63 6b 28 27 72 33 27 29 3d 3d  reecheck('r3')==
0f00: 27 6f 6b 27 0a 7d 20 30 0a 64 6f 5f 65 78 65 63  'ok'.} 0.do_exec
0f10: 73 71 6c 5f 74 65 73 74 20 35 2e 32 20 7b 0a 20  sql_test 5.2 {. 
0f20: 20 52 4f 4c 4c 42 41 43 4b 3b 0a 20 20 42 45 47   ROLLBACK;.  BEG
0f30: 49 4e 3b 0a 20 20 20 20 55 50 44 41 54 45 20 72  IN;.    UPDATE r
0f40: 33 5f 6e 6f 64 65 20 53 45 54 20 64 61 74 61 20  3_node SET data 
0f50: 3d 20 73 65 74 5f 69 6e 74 33 32 28 64 61 74 61  = set_int32(data
0f60: 2c 20 33 2c 20 30 29 3b 0a 20 20 20 20 55 50 44  , 3, 0);.    UPD
0f70: 41 54 45 20 72 33 5f 6e 6f 64 65 20 53 45 54 20  ATE r3_node SET 
0f80: 64 61 74 61 20 3d 20 73 65 74 5f 69 6e 74 33 32  data = set_int32
0f90: 28 64 61 74 61 2c 20 34 2c 20 30 29 3b 0a 20 20  (data, 4, 0);.  
0fa0: 20 20 53 45 4c 45 43 54 20 72 74 72 65 65 63 68    SELECT rtreech
0fb0: 65 63 6b 28 27 72 33 27 29 3d 3d 27 6f 6b 27 0a  eck('r3')=='ok'.
0fc0: 7d 20 30 0a 0a 66 69 6e 69 73 68 5f 74 65 73 74  } 0..finish_test
0fd0: 0a                                               .