wasCSharpSQLite – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 # 2007 December 20
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 # $Id: tkt2854.test,v 1.4 2009/03/16 13:19:36 danielk1977 Exp $
13  
14 set testdir [file dirname $argv0]
15 source $testdir/tester.tcl
16 db close
17  
18 ifcapable !shared_cache {
19 finish_test
20 return
21 }
22  
23 set ::enable_shared_cache [sqlite3_enable_shared_cache 1]
24  
25 # Open 3 database connections. Connection "db" and "db2" share a cache.
26 # Connection "db3" has its own cache.
27 #
28 do_test tkt2854-1.1 {
29 sqlite3 db test.db
30 sqlite3 db2 test.db
31  
32 # This is taken from shared.test. The Windows VFS expands
33 # ./test.db (and test.db) to be the same thing so the path
34 # matches and they share a cache. By changing the case
35 # for Windows platform, we get around this and get a separate
36 # connection.
37 if {$::tcl_platform(platform)=="unix"} {
38 sqlite3 db3 ./test.db
39 } else {
40 sqlite3 db3 TEST.DB
41 }
42  
43 db eval {
44 CREATE TABLE abc(a, b, c);
45 }
46 } {}
47  
48 # Check that an exclusive lock cannot be obtained if some other
49 # shared-cache connection has a read-lock on a table.
50 #
51 do_test tkt2854-1.2 {
52 execsql {
53 BEGIN;
54 SELECT * FROM abc;
55 } db2
56 } {}
57 do_test tkt2854-1.3 {
58 catchsql { BEGIN EXCLUSIVE } db
59 } {1 {database table is locked}}
60 do_test tkt2854-1.4 {
61 execsql { SELECT * FROM abc } db3
62 } {}
63 do_test tkt2854-1.5 {
64 catchsql { INSERT INTO abc VALUES(1, 2, 3) } db3
65 } {1 {database is locked}}
66 do_test tkt2854-1.6 {
67 execsql { COMMIT } db2
68 } {}
69  
70 # Check that an exclusive lock prevents other shared-cache users from
71 # starting a transaction.
72 #
73 do_test tkt2854-1.7 {
74 set ::DB2 [sqlite3_connection_pointer db2]
75 set ::STMT1 [sqlite3_prepare $DB2 "SELECT * FROM abc" -1 TAIL]
76 set ::STMT2 [sqlite3_prepare $DB2 "BEGIN EXCLUSIVE" -1 TAIL]
77 set ::STMT3 [sqlite3_prepare $DB2 "BEGIN IMMEDIATE" -1 TAIL]
78 set ::STMT4 [sqlite3_prepare $DB2 "BEGIN" -1 TAIL]
79 set ::STMT5 [sqlite3_prepare $DB2 "COMMIT" -1 TAIL]
80 execsql { BEGIN EXCLUSIVE } db
81 } {}
82 do_test tkt2854-1.8 {
83 catchsql { BEGIN EXCLUSIVE } db2
84 } {1 {database schema is locked: main}}
85 do_test tkt2854-1.9 {
86 catchsql { BEGIN IMMEDIATE } db2
87 } {1 {database schema is locked: main}}
88 do_test tkt2854-1.10 {
89 # This fails because the schema of main cannot be verified.
90 catchsql { BEGIN } db2
91 } {1 {database schema is locked: main}}
92  
93 # Check that an exclusive lock prevents other shared-cache users from
94 # reading the database. Use stored statements so that the error occurs
95 # at the b-tree level, not the schema level.
96 #
97 do_test tkt2854-1.11 {
98 list [sqlite3_step $::STMT1] [sqlite3_finalize $::STMT1]
99 } {SQLITE_ERROR SQLITE_LOCKED}
100 do_test tkt2854-1.12 {
101 list [sqlite3_step $::STMT2] [sqlite3_finalize $::STMT2]
102 } {SQLITE_ERROR SQLITE_LOCKED}
103 do_test tkt2854-1.13 {
104 list [sqlite3_step $::STMT3] [sqlite3_finalize $::STMT3]
105 } {SQLITE_ERROR SQLITE_LOCKED}
106 do_test tkt2854-1.14 {
107 # A regular "BEGIN" doesn't touch any databases. So it succeeds.
108 list [sqlite3_step $::STMT4] [sqlite3_finalize $::STMT4]
109 } {SQLITE_DONE SQLITE_OK}
110 do_test tkt2854-1.15 {
111 # As does a COMMIT.
112 list [sqlite3_step $::STMT5] [sqlite3_finalize $::STMT5]
113 } {SQLITE_DONE SQLITE_OK}
114  
115 # Try to read the database using connection "db3" (which does not share
116 # a cache with "db"). The database should be locked.
117 do_test tkt2854-1.16 {
118 catchsql { SELECT * FROM abc } db3
119 } {1 {database is locked}}
120 do_test tkt2854-1.17 {
121 execsql { COMMIT } db
122 } {}
123 do_test tkt2854-1.18 {
124 execsql { SELECT * FROM abc } db2
125 } {}
126  
127 # Check that if an attempt to obtain an exclusive lock fails because an
128 # attached db cannot be locked, the internal exclusive flag used by
129 # shared-cache users is correctly cleared.
130 do_test tkt2854-1.19 {
131 file delete -force test2.db test2.db-journal
132 sqlite3 db4 test2.db
133 execsql { CREATE TABLE def(d, e, f) } db4
134 execsql { ATTACH 'test2.db' AS aux } db
135 } {}
136 do_test tkt2854-1.20 {
137 execsql {BEGIN IMMEDIATE} db4
138 catchsql {BEGIN EXCLUSIVE} db
139 } {1 {database table is locked}}
140 do_test tkt2854-1.21 {
141 execsql {SELECT * FROM abc} db2
142 } {}
143  
144 db close
145 db2 close
146 db3 close
147 db4 close
148 sqlite3_enable_shared_cache $::enable_shared_cache
149 finish_test