3 # The author disclaims copyright to this source code. In place of
4 # a legal notice, here is a blessing:
6 # May you do good and not evil.
7 # May you find forgiveness for yourself and forgive others.
8 # May you share freely, never taking more than you give.
10 #***********************************************************************
14 if {![info exists testdir]} {
15 set testdir [file join [file dirname [info script]] .. .. test]
17 source [file join [file dirname [info script]] rtree_util.tcl]
18 source $testdir/tester.tcl
19 ifcapable !rtree { finish_test ; return }
21 #-------------------------------------------------------------------------
22 # The following block of tests - rtree8-1.* - feature reading and writing
23 # an r-tree table while there exist open cursors on it.
25 proc populate_t1 {n} {
26 execsql { DELETE FROM t1 }
27 for {set i 1} {$i <= $n} {incr i} {
28 execsql { INSERT INTO t1 VALUES($i, $i, $i+2) }
32 # A DELETE while a cursor is reading the table.
34 do_test rtree8-1.1.1 {
35 execsql { PRAGMA page_size = 512 }
36 execsql { CREATE VIRTUAL TABLE t1 USING rtree_i32(id, x1, x2) }
39 do_test rtree8-1.1.2 {
41 db eval { SELECT * FROM t1 } {
43 if {$id==3} { db eval { DELETE FROM t1 WHERE id>3 } }
47 do_test rtree8-1.1.3 {
48 execsql { SELECT * FROM t1 }
51 # Many SELECTs on the same small table.
53 proc nested_select {n} {
55 db eval { SELECT * FROM t1 } {
56 if {$id == $n} { nested_select [expr $n+1] }
60 do_test rtree8-1.2.1 { populate_t1 50 } {}
61 do_test rtree8-1.2.2 { nested_select 1 } {51}
63 # This test runs many SELECT queries simultaneously against a large
64 # table, causing a collision in the hash-table used to store r-tree
68 do_rtree_integrity_test rtree8-1.3.0 t1
69 do_execsql_test rtree8-1.3.1 { SELECT max(nodeno) FROM t1_node } {164}
70 do_test rtree8-1.3.2 {
71 set rowids [execsql {SELECT min(rowid) FROM t1_rowid GROUP BY nodeno}]
74 set stmt [sqlite3_prepare db "SELECT * FROM t1 WHERE id = $row" -1 tail]
76 lappend res_list [sqlite3_column_int $stmt 0]
77 lappend stmt_list $stmt
80 do_test rtree8-1.3.3 { set res_list } $rowids
81 do_execsql_test rtree8-1.3.4 { SELECT count(*) FROM t1 } {1500}
82 do_test rtree8-1.3.5 {
83 foreach stmt $stmt_list { sqlite3_finalize $stmt }
87 #-------------------------------------------------------------------------
88 # The following block of tests - rtree8-2.* - test a couple of database
89 # corruption cases. In this case things are not corrupted at the b-tree
90 # level, but the contents of the various tables used internally by an
91 # r-tree table are inconsistent.
94 do_execsql_test rtree8-2.1.1 { SELECT max(nodeno) FROM t1_node } {5}
95 do_execsql_test rtree8-2.1.2 { DELETE FROM t1_node } {}
96 for {set i 1} {$i <= 50} {incr i} {
97 do_catchsql_test rtree8-2.1.3.$i {
98 SELECT * FROM t1 WHERE id = $i
99 } {1 {database disk image is malformed}}
101 do_catchsql_test rtree8-2.1.4 {
103 } {1 {database disk image is malformed}}
104 do_catchsql_test rtree8-2.1.5 {
106 } {1 {database disk image is malformed}}
108 do_execsql_test rtree8-2.1.6 {
110 CREATE VIRTUAL TABLE t1 USING rtree_i32(id, x1, x2);
115 do_execsql_test rtree8-2.2.1 {
116 DELETE FROM t1_parent
118 do_catchsql_test rtree8-2.2.2 {
119 DELETE FROM t1 WHERE id=25
120 } {1 {database disk image is malformed}}
121 do_execsql_test rtree8-2.2.3 {
123 CREATE VIRTUAL TABLE t1 USING rtree_i32(id, x1, x2);
127 #-------------------------------------------------------------------------
128 # Test that trying to use the MATCH operator with the r-tree module does
132 do_catchsql_test rtree8-3.1 {
133 SELECT * FROM t1 WHERE x1 MATCH '1234'
134 } {1 {SQL logic error}}
136 #-------------------------------------------------------------------------
137 # Test a couple of invalid arguments to rtreedepth().
139 do_catchsql_test rtree8-4.1 {
140 SELECT rtreedepth('hello world')
141 } {1 {Invalid argument to rtreedepth()}}
142 do_catchsql_test rtree8-4.2 {
143 SELECT rtreedepth(X'00')
144 } {1 {Invalid argument to rtreedepth()}}
147 #-------------------------------------------------------------------------
148 # Delete half of a lopsided tree.
150 do_execsql_test rtree8-5.1 {
151 CREATE VIRTUAL TABLE t2 USING rtree_i32(id, x1, x2)
155 for {set i 0} {$i < 100} {incr i} {
156 execsql { INSERT INTO t2 VALUES($i, 100, 101) }
158 for {set i 100} {$i < 200} {incr i} {
159 execsql { INSERT INTO t2 VALUES($i, 1000, 1001) }
163 do_rtree_integrity_test rtree8-5.3 t2
166 for {set i 0} {$i < 200} {incr i} {
167 execsql { DELETE FROM t2 WHERE id = $i }
171 do_rtree_integrity_test rtree8-5.5 t2