122 lines
3.2 KiB
Plaintext
122 lines
3.2 KiB
Plaintext
# 2011 May 09
|
|
#
|
|
# The author disclaims copyright to this source code. In place of
|
|
# a legal notice, here is a blessing:
|
|
#
|
|
# May you do good and not evil.
|
|
# May you find forgiveness for yourself and forgive others.
|
|
# May you share freely, never taking more than you give.
|
|
#
|
|
#***********************************************************************
|
|
#
|
|
# This file contains tests for using WAL databases in read-only mode.
|
|
#
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
source $testdir/lock_common.tcl
|
|
set ::testprefix walro
|
|
|
|
|
|
do_multiclient_test tn {
|
|
# These tests are only going to work on unix.
|
|
#
|
|
if {$tcl_platform(platform) != "unix"} continue
|
|
|
|
# Do not run tests with the connections in the same process.
|
|
#
|
|
if {$tn==2} continue
|
|
|
|
# Close all connections and delete the database.
|
|
#
|
|
code1 { db close }
|
|
code2 { db2 close }
|
|
code3 { db3 close }
|
|
forcedelete test.db
|
|
forcedelete walro
|
|
|
|
file mkdir walro
|
|
|
|
do_test 1.1.1 {
|
|
code2 { sqlite3 db2 test.db }
|
|
sql2 {
|
|
PRAGMA journal_mode = WAL;
|
|
CREATE TABLE t1(x, y);
|
|
INSERT INTO t1 VALUES('a', 'b');
|
|
}
|
|
file exists test.db-shm
|
|
} {1}
|
|
|
|
do_test 1.1.2 {
|
|
file attributes test.db-shm -permissions r--r--r--
|
|
code1 { sqlite3 db test.db }
|
|
} {}
|
|
|
|
do_test 1.1.3 { sql1 "SELECT * FROM t1" } {a b}
|
|
do_test 1.1.4 { sql2 "INSERT INTO t1 VALUES('c', 'd')" } {}
|
|
do_test 1.1.5 { sql1 "SELECT * FROM t1" } {a b c d}
|
|
|
|
# Check that the read-only connection cannot write or checkpoint the db.
|
|
#
|
|
do_test 1.1.6 {
|
|
csql1 "INSERT INTO t1 VALUES('e', 'f')"
|
|
} {1 {attempt to write a readonly database}}
|
|
do_test 1.1.7 {
|
|
csql1 "PRAGMA wal_checkpoint"
|
|
} {1 {attempt to write a readonly database}}
|
|
|
|
do_test 1.1.9 { sql2 "INSERT INTO t1 VALUES('e', 'f')" } {}
|
|
do_test 1.1.10 { sql1 "SELECT * FROM t1" } {a b c d e f}
|
|
|
|
do_test 1.1.11 {
|
|
sql2 {
|
|
INSERT INTO t1 VALUES('g', 'h');
|
|
PRAGMA wal_checkpoint;
|
|
}
|
|
set {} {}
|
|
} {}
|
|
do_test 1.1.12 { sql1 "SELECT * FROM t1" } {a b c d e f g h}
|
|
do_test 1.1.13 { sql2 "INSERT INTO t1 VALUES('i', 'j')" } {}
|
|
|
|
do_test 1.2.1 {
|
|
code2 { db2 close }
|
|
code1 { db close }
|
|
list [file exists test.db-wal] [file exists test.db-shm]
|
|
} {1 1}
|
|
do_test 1.2.2 {
|
|
code1 { sqlite3 db test.db }
|
|
sql1 { SELECT * FROM t1 }
|
|
} {a b c d e f g h i j}
|
|
|
|
do_test 1.2.3 {
|
|
code1 { db close }
|
|
file attributes test.db-shm -permissions rw-r--r--
|
|
hexio_write test.db-shm 0 01020304
|
|
file attributes test.db-shm -permissions r--r--r--
|
|
code1 { sqlite3 db test.db }
|
|
csql1 { SELECT * FROM t1 }
|
|
} {1 {attempt to write a readonly database}}
|
|
do_test 1.2.4 {
|
|
code1 { sqlite3_extended_errcode db }
|
|
} {SQLITE_READONLY_RECOVERY}
|
|
|
|
do_test 1.2.5 {
|
|
file attributes test.db-shm -permissions rw-r--r--
|
|
code2 { sqlite3 db2 test.db }
|
|
sql2 "SELECT * FROM t1"
|
|
} {a b c d e f g h i j}
|
|
file attributes test.db-shm -permissions r--r--r--
|
|
do_test 1.2.6 { sql1 "SELECT * FROM t1" } {a b c d e f g h i j}
|
|
|
|
do_test 1.2.7 {
|
|
sql2 {
|
|
PRAGMA wal_checkpoint;
|
|
INSERT INTO t1 VALUES('k', 'l');
|
|
}
|
|
set {} {}
|
|
} {}
|
|
do_test 1.2.8 { sql1 "SELECT * FROM t1" } {a b c d e f g h i j k l}
|
|
}
|
|
|
|
finish_test
|