Annotation of embedaddon/sqlite3/ext/rtree/tkt3363.test, revision 1.1
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
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>