| OLD | NEW |
| (Empty) |
| 1 # 2010 August 2 | |
| 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. The | |
| 12 # focus of this file is testing the operation of the library in | |
| 13 # "PRAGMA journal_mode=WAL" mode with shared-cache turned on. | |
| 14 # | |
| 15 | |
| 16 set testdir [file dirname $argv0] | |
| 17 source $testdir/tester.tcl | |
| 18 | |
| 19 ifcapable !wal {finish_test ; return } | |
| 20 | |
| 21 db close | |
| 22 set ::enable_shared_cache [sqlite3_enable_shared_cache 1] | |
| 23 | |
| 24 sqlite3 db test.db | |
| 25 sqlite3 db2 test.db | |
| 26 | |
| 27 do_test walshared-1.0 { | |
| 28 execsql { | |
| 29 PRAGMA cache_size = 10; | |
| 30 PRAGMA journal_mode = WAL; | |
| 31 CREATE TABLE t1(a PRIMARY KEY, b UNIQUE); | |
| 32 INSERT INTO t1 VALUES(randomblob(100), randomblob(200)); | |
| 33 } | |
| 34 } {wal} | |
| 35 | |
| 36 do_test walshared-1.1 { | |
| 37 execsql { | |
| 38 BEGIN; | |
| 39 INSERT INTO t1 VALUES(randomblob(100), randomblob(200)); | |
| 40 INSERT INTO t1 SELECT randomblob(100), randomblob(200) FROM t1; | |
| 41 INSERT INTO t1 SELECT randomblob(100), randomblob(200) FROM t1; | |
| 42 INSERT INTO t1 SELECT randomblob(100), randomblob(200) FROM t1; | |
| 43 } | |
| 44 } {} | |
| 45 | |
| 46 do_test walshared-1.2 { | |
| 47 catchsql { PRAGMA wal_checkpoint } | |
| 48 } {1 {database table is locked}} | |
| 49 | |
| 50 do_test walshared-1.3 { | |
| 51 catchsql { PRAGMA wal_checkpoint } db2 | |
| 52 } {1 {database table is locked}} | |
| 53 | |
| 54 do_test walshared-1.4 { | |
| 55 execsql { COMMIT } | |
| 56 execsql { PRAGMA integrity_check } db2 | |
| 57 } {ok} | |
| 58 | |
| 59 | |
| 60 | |
| 61 sqlite3_enable_shared_cache $::enable_shared_cache | |
| 62 finish_test | |
| OLD | NEW |