OLD | NEW |
1 # 2014 March 11 | 1 # 2014 March 11 |
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 # Miscellaneous tests for errors in the rtree constructor. | 12 # Miscellaneous tests for errors in the rtree constructor. |
13 # | 13 # |
14 | 14 |
15 | 15 |
16 if {![info exists testdir]} { | 16 if {![info exists testdir]} { |
17 set testdir [file join [file dirname [info script]] .. .. test] | 17 set testdir [file join [file dirname [info script]] .. .. test] |
18 } | 18 } |
19 source [file join [file dirname [info script]] rtree_util.tcl] | 19 source [file join [file dirname [info script]] rtree_util.tcl] |
20 source $testdir/tester.tcl | 20 source $testdir/tester.tcl |
21 source $testdir/lock_common.tcl | 21 source $testdir/lock_common.tcl |
22 ifcapable !rtree { | 22 ifcapable !rtree||!builtin_test { |
23 finish_test | 23 finish_test |
24 return | 24 return |
25 } | 25 } |
26 set testprefix rtreeD | 26 set testprefix rtreeD |
27 | 27 |
28 #------------------------------------------------------------------------- | 28 #------------------------------------------------------------------------- |
29 # Test that if an SQLITE_BUSY is encountered within the vtable | 29 # Test that if an SQLITE_BUSY is encountered within the vtable |
30 # constructor, a relevant error message is returned. | 30 # constructor, a relevant error message is returned. |
31 # | 31 # |
32 do_multiclient_test tn { | 32 do_multiclient_test tn { |
(...skipping 15 matching lines...) Expand all Loading... |
48 } {} | 48 } {} |
49 | 49 |
50 do_test 1.$tn.4 { | 50 do_test 1.$tn.4 { |
51 list [catch { sql2 { SELECT * FROM rt } } msg] $msg | 51 list [catch { sql2 { SELECT * FROM rt } } msg] $msg |
52 } {1 {database is locked}} | 52 } {1 {database is locked}} |
53 } | 53 } |
54 | 54 |
55 finish_test | 55 finish_test |
56 | 56 |
57 | 57 |
OLD | NEW |