Index: third_party/sqlite/sqlite-src-3080704/ext/rtree/rtree_perf.tcl |
diff --git a/third_party/sqlite/sqlite-src-3080704/ext/rtree/rtree_perf.tcl b/third_party/sqlite/sqlite-src-3080704/ext/rtree/rtree_perf.tcl |
new file mode 100644 |
index 0000000000000000000000000000000000000000..e42e68550611cce669945a51d1befe9efde7b8a2 |
--- /dev/null |
+++ b/third_party/sqlite/sqlite-src-3080704/ext/rtree/rtree_perf.tcl |
@@ -0,0 +1,74 @@ |
+ |
+set testdir [file join [file dirname $argv0] .. .. test] |
+source $testdir/tester.tcl |
+ |
+ifcapable !rtree { |
+ finish_test |
+ return |
+} |
+ |
+set NROW 10000 |
+set NQUERY 500 |
+ |
+puts "Generating $NROW rows of data..." |
+set data [list] |
+for {set ii 0} {$ii < $NROW} {incr ii} { |
+ set x1 [expr {rand()*1000}] |
+ set x2 [expr {$x1+rand()*50}] |
+ set y1 [expr {rand()*1000}] |
+ set y2 [expr {$y1+rand()*50}] |
+ lappend data $x1 $x2 $y1 $y2 |
+} |
+puts "Finished generating data" |
+ |
+ |
+set sql1 {CREATE TABLE btree(ii INTEGER PRIMARY KEY, x1, x2, y1, y2)} |
+set sql2 {CREATE VIRTUAL TABLE rtree USING rtree(ii, x1, x2, y1, y2)} |
+puts "Creating tables:" |
+puts " $sql1" |
+puts " $sql2" |
+db eval $sql1 |
+db eval $sql2 |
+ |
+db eval "pragma cache_size=100" |
+ |
+puts -nonewline "Inserting into btree... " |
+flush stdout |
+set btree_time [time {db transaction { |
+ set ii 1 |
+ foreach {x1 x2 y1 y2} $data { |
+ db eval {INSERT INTO btree VALUES($ii, $x1, $x2, $y1, $y2)} |
+ incr ii |
+ } |
+}}] |
+puts "$btree_time" |
+ |
+puts -nonewline "Inserting into rtree... " |
+flush stdout |
+set rtree_time [time {db transaction { |
+ set ii 1 |
+ foreach {x1 x2 y1 y2} $data { |
+ incr ii |
+ db eval {INSERT INTO rtree VALUES($ii, $x1, $x2, $y1, $y2)} |
+ } |
+}}] |
+puts "$rtree_time" |
+ |
+ |
+puts -nonewline "Selecting from btree... " |
+flush stdout |
+set btree_select_time [time { |
+ foreach {x1 x2 y1 y2} [lrange $data 0 [expr $NQUERY*4-1]] { |
+ db eval {SELECT * FROM btree WHERE x1<$x1 AND x2>$x2 AND y1<$y1 AND y2>$y2} |
+ } |
+}] |
+puts "$btree_select_time" |
+ |
+puts -nonewline "Selecting from rtree... " |
+flush stdout |
+set rtree_select_time [time { |
+ foreach {x1 x2 y1 y2} [lrange $data 0 [expr $NQUERY*4-1]] { |
+ db eval {SELECT * FROM rtree WHERE x1<$x1 AND x2>$x2 AND y1<$y1 AND y2>$y2} |
+ } |
+}] |
+puts "$rtree_select_time" |