ext/rtree/tkt3363.test

   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