Return to rtree2.test CVS log

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

sqlite3

    1: # 2008 Feb 19
    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 the r-tree extension.
   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: set ::NROW   1000
   27: set ::NDEL     10
   28: set ::NSELECT 100
   29: 
   30: if {[info exists G(isquick)] && $G(isquick)} {
   31:   set ::NROW 100
   32:   set ::NSELECT 10
   33: }
   34: 
   35: foreach module {rtree_i32 rtree} {
   36:   for {set nDim 1} {$nDim <= 5} {incr nDim} {
   37:   
   38:     do_test rtree2-$module.$nDim.1 {
   39:       set cols [list]
   40:       foreach c [list c0 c1 c2 c3 c4 c5 c6 c7 c8 c9] {
   41:         lappend cols "$c REAL"
   42:       }
   43:       set cols [join [lrange $cols 0 [expr {$nDim*2-1}]] ", "]
   44:       execsql " 
   45:         CREATE VIRTUAL TABLE t1 USING ${module}(ii, $cols);
   46:         CREATE TABLE t2 (ii, $cols);
   47:       "
   48:     } {}
   49:   
   50:     do_test rtree2-$module.$nDim.2 {
   51:       db transaction {
   52:         for {set ii 0} {$ii < $::NROW} {incr ii} {
   53:           #puts "Row $ii"
   54:           set values [list]
   55:           for {set jj 0} {$jj<$nDim*2} {incr jj} {
   56:             lappend values [expr int(rand()*1000)]
   57:           }
   58:           set values [join $values ,]
   59:           #puts [rtree_treedump db t1]
   60:           #puts "INSERT INTO t2 VALUES($ii, $values)"
   61:           set rc [catch {db eval "INSERT INTO t1 VALUES($ii, $values)"}]
   62:           if {$rc} {
   63:             incr ii -1
   64:           } else {
   65:             db eval "INSERT INTO t2 VALUES($ii, $values)"
   66:           }
   67:           #if {[rtree_check db t1]} {
   68:             #puts [rtree_treedump db t1]
   69:             #exit
   70:           #}
   71:         }
   72:       }
   73:   
   74:       set t1 [execsql {SELECT * FROM t1 ORDER BY ii}]
   75:       set t2 [execsql {SELECT * FROM t2 ORDER BY ii}]
   76:       set rc [expr {$t1 eq $t2}]
   77:       if {$rc != 1} {
   78:         puts $t1
   79:         puts $t2
   80:       }
   81:       set rc
   82:     } {1}
   83:   
   84:     do_test rtree2-$module.$nDim.3 {
   85:       rtree_check db t1
   86:     } 0
   87:   
   88:     set OPS [list < > <= >= =]
   89:     for {set ii 0} {$ii < $::NSELECT} {incr ii} {
   90:       do_test rtree2-$module.$nDim.4.$ii.1 {
   91:         set where [list]
   92:         foreach look_three_dots! {. . .} {
   93:           set colidx [expr int(rand()*($nDim*2+1))-1]
   94:           if {$colidx<0} {
   95:             set col ii
   96:           } else {
   97:             set col "c$colidx"
   98:           }
   99:           set op  [lindex $OPS [expr int(rand()*[llength $OPS])]]
  100:           set val [expr int(rand()*1000)]
  101:           lappend where "$col $op $val"
  102:         }
  103:         set where [join $where " AND "]
  104:   
  105:         set t1 [execsql "SELECT * FROM t1 WHERE $where ORDER BY ii"]
  106:         set t2 [execsql "SELECT * FROM t2 WHERE $where ORDER BY ii"]
  107:         set rc [expr {$t1 eq $t2}]
  108:         if {$rc != 1} {
  109:           #puts $where
  110:           puts $t1
  111:           puts $t2
  112:           #puts [rtree_treedump db t1]
  113:           #breakpoint
  114:           #set t1 [execsql "SELECT * FROM t1 WHERE $where ORDER BY ii"]
  115:           #exit
  116:         }
  117:         set rc
  118:       } {1}
  119:     }
  120:   
  121:     for {set ii 0} {$ii < $::NROW} {incr ii $::NDEL} {
  122:       #puts [rtree_treedump db t1]
  123:       do_test rtree2-$module.$nDim.5.$ii.1 {
  124:         execsql "DELETE FROM t2 WHERE ii <= $::ii"
  125:         execsql "DELETE FROM t1 WHERE ii <= $::ii"
  126:   
  127:         set t1 [execsql {SELECT * FROM t1 ORDER BY ii}]
  128:         set t2 [execsql {SELECT * FROM t2 ORDER BY ii}]
  129:         set rc [expr {$t1 eq $t2}]
  130:         if {$rc != 1} {
  131:           puts $t1
  132:           puts $t2
  133:         }
  134:         set rc
  135:       } {1}
  136:       do_test rtree2-$module.$nDim.5.$ii.2 {
  137:         rtree_check db t1
  138:       } {0}
  139:     }
  140:   
  141:     do_test rtree2-$module.$nDim.6 {
  142:       execsql {
  143:         DROP TABLE t1;
  144:         DROP TABLE t2;
  145:       }
  146:     } {}
  147:   }
  148: }
  149: 
  150: finish_test