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