Move bundled copy of sqlite one level deeper to better separate it...

third_party/sqlite/ext/rtree/rtree_perf.tcl

-
-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"
-
-