![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to rtree2.test CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / ext / rtree|
Return to rtree2.test CVS log | Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / ext / rtree |
1.1 misho 1: # 2008 Feb 19
2: #
3: # The author disclaims copyright to this source code. In place of
4: # a legal notice, here is a blessing:
5: #
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.
9: #
10: #***********************************************************************
11: #
12: # The focus of this file is testing the r-tree extension.
13: #
14:
15: if {![info exists testdir]} {
16: set testdir [file join [file dirname [info script]] .. .. test]
17: }
18: source [file join [file dirname [info script]] rtree_util.tcl]
19: source $testdir/tester.tcl
20:
21: ifcapable !rtree {
22: finish_test
23: return
24: }
25:
26: set ::NROW 1000
27: set ::NDEL 10
28: set ::NSELECT 100
29:
30: if {[info exists G(isquick)] && $G(isquick)} {
31: set ::NROW 100
32: set ::NSELECT 10
33: }
34:
35: foreach module {rtree_i32 rtree} {
36: for {set nDim 1} {$nDim <= 5} {incr nDim} {
37:
38: do_test rtree2-$module.$nDim.1 {
39: set cols [list]
40: foreach c [list c0 c1 c2 c3 c4 c5 c6 c7 c8 c9] {
41: lappend cols "$c REAL"
42: }
43: set cols [join [lrange $cols 0 [expr {$nDim*2-1}]] ", "]
44: execsql "
45: CREATE VIRTUAL TABLE t1 USING ${module}(ii, $cols);
46: CREATE TABLE t2 (ii, $cols);
47: "
48: } {}
49:
50: do_test rtree2-$module.$nDim.2 {
51: db transaction {
52: for {set ii 0} {$ii < $::NROW} {incr ii} {
53: #puts "Row $ii"
54: set values [list]
55: for {set jj 0} {$jj<$nDim*2} {incr jj} {
56: lappend values [expr int(rand()*1000)]
57: }
58: set values [join $values ,]
59: #puts [rtree_treedump db t1]
60: #puts "INSERT INTO t2 VALUES($ii, $values)"
61: set rc [catch {db eval "INSERT INTO t1 VALUES($ii, $values)"}]
62: if {$rc} {
63: incr ii -1
64: } else {
65: db eval "INSERT INTO t2 VALUES($ii, $values)"
66: }
67: #if {[rtree_check db t1]} {
68: #puts [rtree_treedump db t1]
69: #exit
70: #}
71: }
72: }
73:
74: set t1 [execsql {SELECT * FROM t1 ORDER BY ii}]
75: set t2 [execsql {SELECT * FROM t2 ORDER BY ii}]
76: set rc [expr {$t1 eq $t2}]
77: if {$rc != 1} {
78: puts $t1
79: puts $t2
80: }
81: set rc
82: } {1}
83:
84: do_test rtree2-$module.$nDim.3 {
85: rtree_check db t1
86: } 0
87:
88: set OPS [list < > <= >= =]
89: for {set ii 0} {$ii < $::NSELECT} {incr ii} {
90: do_test rtree2-$module.$nDim.4.$ii.1 {
91: set where [list]
92: foreach look_three_dots! {. . .} {
93: set colidx [expr int(rand()*($nDim*2+1))-1]
94: if {$colidx<0} {
95: set col ii
96: } else {
97: set col "c$colidx"
98: }
99: set op [lindex $OPS [expr int(rand()*[llength $OPS])]]
100: set val [expr int(rand()*1000)]
101: lappend where "$col $op $val"
102: }
103: set where [join $where " AND "]
104:
105: set t1 [execsql "SELECT * FROM t1 WHERE $where ORDER BY ii"]
106: set t2 [execsql "SELECT * FROM t2 WHERE $where ORDER BY ii"]
107: set rc [expr {$t1 eq $t2}]
108: if {$rc != 1} {
109: #puts $where
110: puts $t1
111: puts $t2
112: #puts [rtree_treedump db t1]
113: #breakpoint
114: #set t1 [execsql "SELECT * FROM t1 WHERE $where ORDER BY ii"]
115: #exit
116: }
117: set rc
118: } {1}
119: }
120:
121: for {set ii 0} {$ii < $::NROW} {incr ii $::NDEL} {
122: #puts [rtree_treedump db t1]
123: do_test rtree2-$module.$nDim.5.$ii.1 {
124: execsql "DELETE FROM t2 WHERE ii <= $::ii"
125: execsql "DELETE FROM t1 WHERE ii <= $::ii"
126:
127: set t1 [execsql {SELECT * FROM t1 ORDER BY ii}]
128: set t2 [execsql {SELECT * FROM t2 ORDER BY ii}]
129: set rc [expr {$t1 eq $t2}]
130: if {$rc != 1} {
131: puts $t1
132: puts $t2
133: }
134: set rc
135: } {1}
136: do_test rtree2-$module.$nDim.5.$ii.2 {
137: rtree_check db t1
138: } {0}
139: }
140:
141: do_test rtree2-$module.$nDim.6 {
142: execsql {
143: DROP TABLE t1;
144: DROP TABLE t2;
145: }
146: } {}
147: }
148: }
149:
150: finish_test