xref: /sqlite-3.40.0/ext/rtree/tkt3363.test (revision 897230eb) 
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
15if {![info exists testdir]} {
16  set testdir [file join [file dirname [info script]] .. .. test]
17}
18source [file join [file dirname [info script]] rtree_util.tcl]
19source $testdir/tester.tcl
20
21ifcapable !rtree {
22  finish_test
23  return
24}
25
26do_test tkt3363.1.1 {
27  execsql { CREATE VIRTUAL TABLE t1 USING rtree(ii, x1, x2, y1, y2) }
28} {}
29
30do_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
38do_test tkt3363.1.3 {
39  execsql {
40    SELECT count(*) FROM t1 WHERE +y2>4000425.0;
41  }
42} {7}
43
44do_test tkt3363.1.4 {
45  execsql {
46    SELECT count(*) FROM t1 WHERE y2>4000425.0;
47  }
48} {7}
49
50finish_test
51