Return to tkt3363.test CVS log | Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / ext / rtree |
1.1 ! misho 1: # 2008 Sep 08 ! 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 that ticket #3363 is fixed. ! 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: do_test tkt3363.1.1 { ! 27: execsql { CREATE VIRTUAL TABLE t1 USING rtree(ii, x1, x2, y1, y2) } ! 28: } {} ! 29: ! 30: do_test tkt3363.1.2 { ! 31: for {set ii 1} {$ii < 50} {incr ii} { ! 32: set x 1000000 ! 33: set y [expr 4000000 + $ii*10] ! 34: execsql { INSERT INTO t1 VALUES($ii, $x, $x, $y, $y) } ! 35: } ! 36: } {} ! 37: ! 38: do_test tkt3363.1.3 { ! 39: execsql { ! 40: SELECT count(*) FROM t1 WHERE +y2>4000425.0; ! 41: } ! 42: } {7} ! 43: ! 44: do_test tkt3363.1.4 { ! 45: execsql { ! 46: SELECT count(*) FROM t1 WHERE y2>4000425.0; ! 47: } ! 48: } {7} ! 49: ! 50: finish_test