OLD | NEW |
| (Empty) |
1 # 2005 January 19 | |
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: shared2.test,v 1.8 2009/06/05 17:09:12 drh Exp $ | |
13 | |
14 set testdir [file dirname $argv0] | |
15 source $testdir/tester.tcl | |
16 source $testdir/lock_common.tcl | |
17 source $testdir/malloc_common.tcl | |
18 db close | |
19 | |
20 ifcapable !shared_cache { | |
21 finish_test | |
22 return | |
23 } | |
24 set ::enable_shared_cache [sqlite3_enable_shared_cache 1] | |
25 | |
26 # Test that if we delete all rows from a table any read-uncommitted | |
27 # cursors are correctly invalidated. Test on both table and index btrees. | |
28 do_test shared2-1.1 { | |
29 sqlite3 db1 test.db | |
30 sqlite3 db2 test.db | |
31 | |
32 # Set up some data. Table "numbers" has 64 rows after this block | |
33 # is executed. | |
34 execsql { | |
35 BEGIN; | |
36 CREATE TABLE numbers(a PRIMARY KEY, b); | |
37 INSERT INTO numbers(oid) VALUES(NULL); | |
38 INSERT INTO numbers(oid) SELECT NULL FROM numbers; | |
39 INSERT INTO numbers(oid) SELECT NULL FROM numbers; | |
40 INSERT INTO numbers(oid) SELECT NULL FROM numbers; | |
41 INSERT INTO numbers(oid) SELECT NULL FROM numbers; | |
42 INSERT INTO numbers(oid) SELECT NULL FROM numbers; | |
43 INSERT INTO numbers(oid) SELECT NULL FROM numbers; | |
44 UPDATE numbers set a = oid, b = 'abcdefghijklmnopqrstuvwxyz0123456789'; | |
45 COMMIT; | |
46 } db1 | |
47 } {} | |
48 do_test shared2-1.2 { | |
49 # Put connection 2 in read-uncommitted mode and start a SELECT on table | |
50 # 'numbers'. Half way through the SELECT, use connection 1 to delete the | |
51 # contents of this table. | |
52 execsql { | |
53 pragma read_uncommitted = 1; | |
54 } db2 | |
55 set count [execsql {SELECT count(*) FROM numbers} db2] | |
56 db2 eval {SELECT a FROM numbers ORDER BY oid} { | |
57 if {$a==32} { | |
58 execsql { | |
59 BEGIN; | |
60 DELETE FROM numbers; | |
61 } db1 | |
62 } | |
63 } | |
64 list $a $count | |
65 } {32 64} | |
66 do_test shared2-1.3 { | |
67 # Same test as 1.2, except scan using the index this time. | |
68 execsql { | |
69 ROLLBACK; | |
70 } db1 | |
71 set count [execsql {SELECT count(*) FROM numbers} db2] | |
72 db2 eval {SELECT a, b FROM numbers ORDER BY a} { | |
73 if {$a==32} { | |
74 execsql { | |
75 DELETE FROM numbers; | |
76 } db1 | |
77 } | |
78 } | |
79 list $a $count | |
80 } {32 64} | |
81 | |
82 | |
83 db1 close | |
84 db2 close | |
85 | |
86 do_test shared2-3.2 { | |
87 sqlite3_enable_shared_cache 1 | |
88 } {1} | |
89 | |
90 forcedelete test.db | |
91 | |
92 sqlite3 db test.db | |
93 do_test shared2-4.1 { | |
94 execsql { | |
95 CREATE TABLE t0(a, b); | |
96 CREATE TABLE t1(a, b DEFAULT 'hello world'); | |
97 } | |
98 } {} | |
99 db close | |
100 | |
101 sqlite3 db test.db | |
102 sqlite3 db2 test.db | |
103 | |
104 do_test shared2-4.2 { | |
105 execsql { SELECT a, b FROM t0 } db | |
106 execsql { INSERT INTO t1(a) VALUES(1) } db2 | |
107 } {} | |
108 | |
109 do_test shared2-4.3 { | |
110 db2 close | |
111 db close | |
112 } {} | |
113 | |
114 # At one point, this was causing a crash. | |
115 # | |
116 do_test shared2-5.1 { | |
117 sqlite3 db test.db | |
118 sqlite3 db2 test.db | |
119 execsql { CREATE TABLE t2(a, b, c) } | |
120 | |
121 # The following statement would crash when attempting to sqlite3_free() | |
122 # a pointer allocated from a lookaside buffer. | |
123 execsql { CREATE INDEX i1 ON t2(a) } db2 | |
124 } {} | |
125 | |
126 db close | |
127 db2 close | |
128 | |
129 # The following test verifies that shared-cache mode does not automatically | |
130 # turn on exclusive-locking mode for some reason. | |
131 do_multiclient_test {tn} { | |
132 sql1 { CREATE TABLE t1(a, b) } | |
133 sql2 { CREATE TABLE t2(a, b) } | |
134 do_test shared2-6.$tn.1 { sql1 { SELECT * FROM t2 } } {} | |
135 do_test shared2-6.$tn.2 { sql2 { SELECT * FROM t1 } } {} | |
136 } | |
137 | |
138 sqlite3_enable_shared_cache $::enable_shared_cache | |
139 finish_test | |
OLD | NEW |