1 # 2006 June 27 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 # This file implements regression tests for SQLite library. 12 # 13 # This file implements tests to verify that ticket #1873 has been 14 # fixed. 15 # 16 # 17 # $Id: tkt1873.test,v 1.2 2007/10/09 08:29:33 danielk1977 Exp $ 18 19 set testdir [file dirname $argv0] 20 source $testdir/tester.tcl 21 22 ifcapable !attach { 23 finish_test 24 return 25 } 26 27 file delete -force test2.db test2.db-journal 28 29 do_test tkt1873-1.1 { 30 execsql { 31 CREATE TABLE t1(x, y); 32 ATTACH 'test2.db' AS aux; 33 CREATE TABLE aux.t2(x, y); 34 INSERT INTO t1 VALUES(1, 2); 35 INSERT INTO t1 VALUES(3, 4); 36 INSERT INTO t2 VALUES(5, 6); 37 INSERT INTO t2 VALUES(7, 8); 38 } 39 } {} 40 41 do_test tkt1873-1.2 { 42 set rc [catch { 43 db eval {SELECT * FROM t2 LIMIT 1} { 44 db eval {DETACH aux} 45 } 46 } msg] 47 list $rc $msg 48 } {1 {database aux is locked}} 49 50 do_test tkt1873-1.3 { 51 set rc [catch { 52 db eval {SELECT * FROM t1 LIMIT 1} { 53 db eval {DETACH aux} 54 } 55 } msg] 56 list $rc $msg 57 } {0 {}} 58 59 do_test tkt1873-1.4 { 60 catchsql { 61 select * from t2; 62 } 63 } {1 {no such table: t2}} 64 65 do_test tkt1873-1.5 { 66 catchsql { 67 ATTACH 'test2.db' AS aux; 68 select * from t2; 69 } 70 } {0 {5 6 7 8}} 71 72 finish_test 73
