Return to tkt3363.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / ext / rtree

sqlite3

    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