OLD | NEW |
| (Empty) |
1 | |
2 # 2015-05-28 | |
3 # | |
4 # The author disclaims copyright to this source code. In place of | |
5 # a legal notice, here is a blessing: | |
6 # | |
7 # May you do good and not evil. | |
8 # May you find forgiveness for yourself and forgive others. | |
9 # May you share freely, never taking more than you give. | |
10 # | |
11 #*********************************************************************** | |
12 # This file implements regression tests for SQLite library. The | |
13 # focus of this file is testing locks on read-only WAL-mode databases. | |
14 | |
15 set testdir [file dirname $argv0] | |
16 source $testdir/tester.tcl | |
17 source $testdir/lock_common.tcl | |
18 set testprefix rowallock | |
19 | |
20 set mmap_res 1000000 | |
21 ifcapable !mmap { | |
22 set mmap_res 0 | |
23 } | |
24 | |
25 do_multiclient_test tn { | |
26 code2 { db2 close } | |
27 code3 { db3 close } | |
28 | |
29 do_execsql_test 1.$tn.1 { | |
30 PRAGMA page_size = 4096; | |
31 CREATE TABLE t1(a, b); | |
32 CREATE TABLE t2(a, b); | |
33 INSERT INTO t1 VALUES(1, 2), (3, 4); | |
34 PRAGMA journal_mode = wal; | |
35 } {wal} | |
36 | |
37 code1 { | |
38 db close | |
39 sqlite3 db test.db -readonly 1 | |
40 } | |
41 | |
42 do_execsql_test 1.$tn.2 { | |
43 PRAGMA mmap_size = 1000000; | |
44 } $mmap_res | |
45 do_execsql_test 1.$tn.2.1 { | |
46 SELECT * FROM t1; | |
47 } {1 2 3 4} | |
48 | |
49 do_catchsql_test 1.$tn.3 { | |
50 INSERT INTO t1 VALUES(5, 6); | |
51 } {1 {attempt to write a readonly database}} | |
52 | |
53 do_test 1.$tn.4 { | |
54 code2 { sqlite3 db2 test.db } | |
55 sql2 { INSERT INTO t1 VALUES(5, 6); } | |
56 code2 { db2 close } | |
57 file exists test.db-wal | |
58 } {1} | |
59 | |
60 do_test 1.$tn.5 { | |
61 sql1 { SELECT * FROM t2 } | |
62 code1 { db close } | |
63 file exists test.db-wal | |
64 } {1} | |
65 } | |
66 | |
67 finish_test | |
OLD | NEW |