Return to rtree8.test CVS log

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

sqlite3

    1: # 2010 February 16
    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: #
   13: 
   14: if {![info exists testdir]} {
   15:   set testdir [file join [file dirname [info script]] .. .. test]
   16: } 
   17: source $testdir/tester.tcl
   18: ifcapable !rtree { finish_test ; return }
   19: 
   20: #-------------------------------------------------------------------------
   21: # The following block of tests - rtree8-1.* - feature reading and writing
   22: # an r-tree table while there exist open cursors on it.
   23: #
   24: proc populate_t1 {n} {
   25:   execsql { DELETE FROM t1 }
   26:   for {set i 1} {$i <= $n} {incr i} {
   27:     execsql { INSERT INTO t1 VALUES($i, $i, $i+2) }
   28:   }
   29: }
   30: 
   31: # A DELETE while a cursor is reading the table.
   32: #
   33: do_test rtree8-1.1.1 {
   34:   execsql { PRAGMA page_size = 512 }
   35:   execsql { CREATE VIRTUAL TABLE t1 USING rtree_i32(id, x1, x2) }
   36:   populate_t1 5
   37: } {}
   38: do_test rtree8-1.1.2 {
   39:   set res [list]
   40:   db eval { SELECT * FROM t1 } { 
   41:     lappend res $x1 $x2
   42:     if {$id==3} { db eval { DELETE FROM t1 WHERE id>3 } }
   43:   }
   44:   set res
   45: } {1 3 2 4 3 5}
   46: do_test rtree8-1.1.3 {
   47:   execsql { SELECT * FROM t1 }
   48: } {1 1 3 2 2 4 3 3 5}
   49: 
   50: # Many SELECTs on the same small table.
   51: #
   52: proc nested_select {n} {
   53:   set ::max $n
   54:   db eval { SELECT * FROM t1 } {
   55:     if {$id == $n} { nested_select [expr $n+1] }
   56:   }
   57:   return $::max
   58: }
   59: do_test rtree8-1.2.1 { populate_t1 50  } {}
   60: do_test rtree8-1.2.2 { nested_select 1 } {51}
   61: 
   62: # This test runs many SELECT queries simultaneously against a large 
   63: # table, causing a collision in the hash-table used to store r-tree 
   64: # nodes internally.
   65: #
   66: populate_t1 1500
   67: do_execsql_test rtree8-1.3.1 { SELECT max(nodeno) FROM t1_node } {164}
   68: do_test rtree8-1.3.2 {
   69:   set rowids [execsql {SELECT min(rowid) FROM t1_rowid GROUP BY nodeno}]
   70:   set stmt_list [list]
   71:   foreach row $rowids {
   72:     set stmt [sqlite3_prepare db "SELECT * FROM t1 WHERE id = $row" -1 tail]
   73:     sqlite3_step $stmt
   74:     lappend res_list [sqlite3_column_int $stmt 0]
   75:     lappend stmt_list $stmt 
   76:   }
   77: } {}
   78: do_test rtree8-1.3.3 { set res_list } $rowids
   79: do_execsql_test rtree8-1.3.4 { SELECT count(*) FROM t1 } {1500}
   80: do_test rtree8-1.3.5 { 
   81:   foreach stmt $stmt_list { sqlite3_finalize $stmt }
   82: } {}
   83: 
   84: 
   85: #-------------------------------------------------------------------------
   86: # The following block of tests - rtree8-2.* - test a couple of database
   87: # corruption cases. In this case things are not corrupted at the b-tree
   88: # level, but the contents of the various tables used internally by an
   89: # r-tree table are inconsistent.
   90: #
   91: populate_t1 50
   92: do_execsql_test rtree8-2.1.1 { SELECT max(nodeno) FROM t1_node } {5}
   93: do_execsql_test rtree8-2.1.2 { DELETE FROM t1_node } {}
   94: for {set i 1} {$i <= 50} {incr i} {
   95:   do_catchsql_test rtree8-2.1.3.$i { 
   96:     SELECT * FROM t1 WHERE id = $i 
   97:   } {1 {database disk image is malformed}}
   98: }
   99: do_catchsql_test rtree8-2.1.4 { 
  100:   SELECT * FROM t1
  101: } {1 {database disk image is malformed}}
  102: do_catchsql_test rtree8-2.1.5 { 
  103:   DELETE FROM t1
  104: } {1 {database disk image is malformed}}
  105: 
  106: do_execsql_test rtree8-2.1.6 { 
  107:   DROP TABLE t1;
  108:   CREATE VIRTUAL TABLE t1 USING rtree_i32(id, x1, x2);
  109: } {}
  110: 
  111: 
  112: populate_t1 50
  113: do_execsql_test rtree8-2.2.1 {
  114:   DELETE FROM t1_parent
  115: } {}
  116: do_catchsql_test rtree8-2.2.2 {
  117:   DELETE FROM t1 WHERE id=25
  118: } {1 {database disk image is malformed}}
  119: do_execsql_test rtree8-2.2.3 { 
  120:   DROP TABLE t1;
  121:   CREATE VIRTUAL TABLE t1 USING rtree_i32(id, x1, x2);
  122: } {}
  123: 
  124: 
  125: #-------------------------------------------------------------------------
  126: # Test that trying to use the MATCH operator with the r-tree module does
  127: # not confuse it. 
  128: #
  129: populate_t1 10
  130: do_catchsql_test rtree8-3.1 { 
  131:   SELECT * FROM t1 WHERE x1 MATCH '1234'
  132: } {1 {SQL logic error or missing database}}
  133: 
  134: #-------------------------------------------------------------------------
  135: # Test a couple of invalid arguments to rtreedepth().
  136: #
  137: do_catchsql_test rtree8-4.1 {
  138:   SELECT rtreedepth('hello world')
  139: } {1 {Invalid argument to rtreedepth()}}
  140: do_catchsql_test rtree8-4.2 {
  141:   SELECT rtreedepth(X'00')
  142: } {1 {Invalid argument to rtreedepth()}}
  143: 
  144: 
  145: #-------------------------------------------------------------------------
  146: # Delete half of a lopsided tree.
  147: #
  148: do_execsql_test rtree8-5.1 { 
  149:   CREATE VIRTUAL TABLE t2 USING rtree_i32(id, x1, x2) 
  150: } {}
  151: do_test rtree8-5.2 {
  152:   execsql BEGIN
  153:   for {set i 0} {$i < 100} {incr i} {
  154:     execsql { INSERT INTO t2 VALUES($i, 100, 101) }
  155:   }
  156:   for {set i 100} {$i < 200} {incr i} {
  157:     execsql { INSERT INTO t2 VALUES($i, 1000, 1001) }
  158:   }
  159:   execsql COMMIT
  160: } {}
  161: do_test rtree8-5.3 {
  162:   execsql BEGIN
  163:   for {set i 0} {$i < 200} {incr i} {
  164:     execsql { DELETE FROM t2 WHERE id = $i }
  165:   }
  166:   execsql COMMIT
  167: } {}
  168: 
  169: 
  170: finish_test
  171: