diff options
Diffstat (limited to 'ext/rtree/rtree7.test')
-rw-r--r-- | ext/rtree/rtree7.test | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/ext/rtree/rtree7.test b/ext/rtree/rtree7.test new file mode 100644 index 0000000..31dae0c --- /dev/null +++ b/ext/rtree/rtree7.test @@ -0,0 +1,58 @@ +# 2010 February 16 +# +# The author disclaims copyright to this source code. In place of +# a legal notice, here is a blessing: +# +# May you do good and not evil. +# May you find forgiveness for yourself and forgive others. +# May you share freely, never taking more than you give. +# +#*********************************************************************** +# +# Test that nothing goes wrong if an rtree table is created, then the +# database page-size is modified. At one point (3.6.22), this was causing +# malfunctions. +# + +if {![info exists testdir]} { + set testdir [file join [file dirname [info script]] .. .. test] +} +source $testdir/tester.tcl + +ifcapable !rtree||!vacuum { + finish_test + return +} + +do_test rtree7-1.1 { + execsql { + PRAGMA page_size = 1024; + CREATE VIRTUAL TABLE rt USING rtree(id, x1, x2, y1, y2); + INSERT INTO rt VALUES(1, 1, 2, 3, 4); + } +} {} +do_test rtree7-1.2 { + execsql { SELECT * FROM rt } +} {1 1.0 2.0 3.0 4.0} +do_test rtree7-1.3 { + execsql { + PRAGMA page_size = 2048; + VACUUM; + SELECT * FROM rt; + } +} {1 1.0 2.0 3.0 4.0} +do_test rtree7-1.4 { + for {set i 2} {$i <= 51} {incr i} { + execsql { INSERT INTO rt VALUES($i, 1, 2, 3, 4) } + } + execsql { SELECT sum(x1), sum(x2), sum(y1), sum(y2) FROM rt } +} {51.0 102.0 153.0 204.0} +do_test rtree7-1.5 { + execsql { + PRAGMA page_size = 512; + VACUUM; + SELECT sum(x1), sum(x2), sum(y1), sum(y2) FROM rt + } +} {51.0 102.0 153.0 204.0} + +finish_test |