1
0
mirror of https://gitlab.com/cznic/sqlite.git synced 2024-11-24 02:26:14 +00:00
go-sqlite/testdata/tcl/wal9.test
2021-12-08 11:33:15 +01:00

95 lines
3.1 KiB
Plaintext

# 2012 October 15
#
# 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 test case tests that a problem causing a failing assert() has
# been fixed. The problem occurred if a writer process with a subset
# of the *shm file mapped rolled back a transaction begun after the
# entire WAL file was checkpointed into the db file (i.e. a transaction
# that would have restarted the WAL file from the beginning).
#
set testdir [file dirname $argv0]
source $testdir/tester.tcl
set testprefix wal9
sqlite3 db2 test.db
do_execsql_test 1.0 {
PRAGMA page_size = 1024;
PRAGMA journal_mode = WAL;
PRAGMA wal_autocheckpoint = 0;
CREATE TABLE t(x);
} {wal 0}
do_test 1.1 {
execsql "SELECT * FROM t" db2
} {}
do_execsql_test 1.2 {
BEGIN;
INSERT INTO t VALUES(randomblob(100));
INSERT INTO t SELECT randomblob(100) FROM t;
INSERT INTO t SELECT randomblob(100) FROM t;
INSERT INTO t SELECT randomblob(100) FROM t;
INSERT INTO t SELECT randomblob(100) FROM t;
INSERT INTO t SELECT randomblob(100) FROM t;
INSERT INTO t SELECT randomblob(100) FROM t;
INSERT INTO t SELECT randomblob(100) FROM t;
INSERT INTO t SELECT randomblob(100) FROM t;
INSERT INTO t SELECT randomblob(100) FROM t;
INSERT INTO t SELECT randomblob(100) FROM t;
INSERT INTO t SELECT randomblob(100) FROM t;
INSERT INTO t SELECT randomblob(100) FROM t;
INSERT INTO t SELECT randomblob(100) FROM t;
INSERT INTO t SELECT randomblob(100) FROM t;
INSERT INTO t SELECT randomblob(100) FROM t;
INSERT INTO t SELECT randomblob(100) FROM t;
INSERT INTO t SELECT randomblob(100) FROM t;
COMMIT;
} {}
# Check file sizes are as expected. The real requirement here is that
# the *shm file is now more than one chunk (>32KiB).
#
# The sizes of various files are slightly different in normal and
# auto-vacuum mode.
do_test 1.3 { file size test.db } {1024}
do_test 1.4 { expr {[file size test.db-wal]>(1500*1024)} } {1}
do_test 1.5 { expr {[file size test.db-shm]>32768} } {1}
do_test 1.6 {
foreach {a b c} [db eval {PRAGMA wal_checkpoint}] break
list [expr {$a==0}] [expr {$b>14500}] [expr {$c>14500}] [expr {$b==$c}]
} {1 1 1 1}
# At this point connection [db2] has mapped the first 32KB of the *shm file
# only. Because the entire WAL file has been checkpointed, it is not
# necessary to map any more of the *-shm file to read or write the database
# (since all data will be read directly from the db file).
#
# However, at one point if a transaction that had not yet written to the
# WAL file was rolled back an assert() attempting to verify that the entire
# *-shm file was mapped would fail. If NDEBUG was defined (and the assert()
# disabled) this bug caused SQLite to ignore the return code of a mmap()
# call.
#
do_test 1.7 {
execsql {
BEGIN;
INSERT INTO t VALUES('hello');
ROLLBACK;
} db2
} {}
db2 close
finish_test