| Index: third_party/sqlite/ext/rtree/rtree_perf.tcl
|
| ===================================================================
|
| --- third_party/sqlite/ext/rtree/rtree_perf.tcl (revision 56608)
|
| +++ third_party/sqlite/ext/rtree/rtree_perf.tcl (working copy)
|
| @@ -1,76 +0,0 @@
|
| -
|
| -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"
|
| -
|
| -
|
|
|