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 |