| OLD | NEW |
| 1 # 2008 Feb 19 | 1 # 2008 Feb 19 |
| 2 # | 2 # |
| 3 # The author disclaims copyright to this source code. In place of | 3 # The author disclaims copyright to this source code. In place of |
| 4 # a legal notice, here is a blessing: | 4 # a legal notice, here is a blessing: |
| 5 # | 5 # |
| 6 # May you do good and not evil. | 6 # May you do good and not evil. |
| 7 # May you find forgiveness for yourself and forgive others. | 7 # May you find forgiveness for yourself and forgive others. |
| 8 # May you share freely, never taking more than you give. | 8 # May you share freely, never taking more than you give. |
| 9 # | 9 # |
| 10 #*********************************************************************** | 10 #*********************************************************************** |
| 11 # | 11 # |
| 12 # The focus of this file is testing the r-tree extension. | 12 # The focus of this file is testing the r-tree extension. |
| 13 # | 13 # |
| 14 # $Id: rtree1.test,v 1.7 2009/07/17 16:54:48 danielk1977 Exp $ | |
| 15 # | |
| 16 | 14 |
| 17 if {![info exists testdir]} { | 15 if {![info exists testdir]} { |
| 18 set testdir [file join [file dirname $argv0] .. .. test] | 16 set testdir [file join [file dirname [info script]] .. .. test] |
| 19 } | 17 } |
| 20 source [file join [file dirname [info script]] rtree_util.tcl] | 18 source [file join [file dirname [info script]] rtree_util.tcl] |
| 21 source $testdir/tester.tcl | 19 source $testdir/tester.tcl |
| 22 | 20 |
| 23 # Test plan: | 21 # Test plan: |
| 24 # | 22 # |
| 25 # rtree-1.*: Creating/destroying r-tree tables. | 23 # rtree-1.*: Creating/destroying r-tree tables. |
| 26 # rtree-2.*: Test the implicit constraints - unique rowid and | 24 # rtree-2.*: Test the implicit constraints - unique rowid and |
| 27 # (coord[N]<=coord[N+1]) for even values of N. Also | 25 # (coord[N]<=coord[N+1]) for even values of N. Also |
| 28 # automatic assigning of rowid values. | 26 # automatic assigning of rowid values. |
| (...skipping 365 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 394 } {1600} | 392 } {1600} |
| 395 | 393 |
| 396 #------------------------------------------------------------------------- | 394 #------------------------------------------------------------------------- |
| 397 # Ticket #3970: Check that the error message is meaningful when a | 395 # Ticket #3970: Check that the error message is meaningful when a |
| 398 # keyword is used as a column name. | 396 # keyword is used as a column name. |
| 399 # | 397 # |
| 400 do_test rtree-10.1 { | 398 do_test rtree-10.1 { |
| 401 catchsql { CREATE VIRTUAL TABLE t7 USING rtree(index, x1, y1, x2, y2) } | 399 catchsql { CREATE VIRTUAL TABLE t7 USING rtree(index, x1, y1, x2, y2) } |
| 402 } {1 {near "index": syntax error}} | 400 } {1 {near "index": syntax error}} |
| 403 | 401 |
| 402 #------------------------------------------------------------------------- |
| 403 # Test last_insert_rowid(). |
| 404 # |
| 405 do_test rtree-11.1 { |
| 406 execsql { |
| 407 CREATE VIRTUAL TABLE t8 USING rtree(idx, x1, x2, y1, y2); |
| 408 INSERT INTO t8 VALUES(1, 1.0, 1.0, 2.0, 2.0); |
| 409 SELECT last_insert_rowid(); |
| 410 } |
| 411 } {1} |
| 412 do_test rtree-11.2 { |
| 413 execsql { |
| 414 INSERT INTO t8 VALUES(NULL, 1.0, 1.0, 2.0, 2.0); |
| 415 SELECT last_insert_rowid(); |
| 416 } |
| 417 } {2} |
| 418 |
| 404 finish_test | 419 finish_test |
| OLD | NEW |