1# 2014 March 11 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# Miscellaneous tests for errors in the rtree constructor. 13# 14 15 16if {![info exists testdir]} { 17 set testdir [file join [file dirname [info script]] .. .. test] 18} 19source [file join [file dirname [info script]] rtree_util.tcl] 20source $testdir/tester.tcl 21source $testdir/lock_common.tcl 22ifcapable !rtree { 23 finish_test 24 return 25} 26set testprefix rtreeD 27 28#------------------------------------------------------------------------- 29# Test that if an SQLITE_BUSY is encountered within the vtable 30# constructor, a relevant error message is returned. 31# 32do_multiclient_test tn { 33 do_test 1.$tn.1 { 34 sql1 { 35 CREATE TABLE t1(a, b); 36 INSERT INTO t1 VALUES(1,2); 37 CREATE VIRTUAL TABLE rt USING rtree(id, minx, maxx, miny, maxy); 38 INSERT INTO rt VALUES(1,2,3,4,5); 39 } 40 } {} 41 42 do_test 1.$tn.2 { 43 sql2 { SELECT * FROM t1; } 44 } {1 2} 45 46 do_test 1.$tn.3 { 47 sql1 { BEGIN EXCLUSIVE; INSERT INTO t1 VALUES(3, 4); } 48 } {} 49 50 do_test 1.$tn.4 { 51 list [catch { sql2 { SELECT * FROM rt } } msg] $msg 52 } {1 {database is locked}} 53} 54 55finish_test 56 57 58