Chromium Code Reviews
chromiumcodereview-hr@appspot.gserviceaccount.com (chromiumcodereview-hr) | Please choose your nickname with Settings | Help | Chromium Project | Gerrit Changes | Sign out
(220)

Unified Diff: third_party/sqlite/sqlite-src-3080704/test/pager1.test

Issue 2363173002: [sqlite] Remove obsolete reference version 3.8.7.4. (Closed)
Patch Set: Created 4 years, 3 months ago
Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.
Jump to:
View side-by-side diff with in-line comments
Download patch
Index: third_party/sqlite/sqlite-src-3080704/test/pager1.test
diff --git a/third_party/sqlite/sqlite-src-3080704/test/pager1.test b/third_party/sqlite/sqlite-src-3080704/test/pager1.test
deleted file mode 100644
index 005b356080dd98271b8aaf306ca8bb021d3dc4ed..0000000000000000000000000000000000000000
--- a/third_party/sqlite/sqlite-src-3080704/test/pager1.test
+++ /dev/null
@@ -1,2817 +0,0 @@
-# 2010 June 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.
-#
-#***********************************************************************
-#
-
-set testdir [file dirname $argv0]
-source $testdir/tester.tcl
-source $testdir/lock_common.tcl
-source $testdir/malloc_common.tcl
-source $testdir/wal_common.tcl
-set testprefix pager1
-
-# Do not use a codec for tests in this file, as the database file is
-# manipulated directly using tcl scripts (using the [hexio_write] command).
-#
-do_not_use_codec
-
-#
-# pager1-1.*: Test inter-process locking (clients in multiple processes).
-#
-# pager1-2.*: Test intra-process locking (multiple clients in this process).
-#
-# pager1-3.*: Savepoint related tests.
-#
-# pager1-4.*: Hot-journal related tests.
-#
-# pager1-5.*: Cases related to multi-file commits.
-#
-# pager1-6.*: Cases related to "PRAGMA max_page_count"
-#
-# pager1-7.*: Cases specific to "PRAGMA journal_mode=TRUNCATE"
-#
-# pager1-8.*: Cases using temporary and in-memory databases.
-#
-# pager1-9.*: Tests related to the backup API.
-#
-# pager1-10.*: Test that the assumed file-system sector-size is limited to
-# 64KB.
-#
-# pager1-12.*: Tests involving "PRAGMA page_size"
-#
-# pager1-13.*: Cases specific to "PRAGMA journal_mode=PERSIST"
-#
-# pager1-14.*: Cases specific to "PRAGMA journal_mode=OFF"
-#
-# pager1-15.*: Varying sqlite3_vfs.szOsFile
-#
-# pager1-16.*: Varying sqlite3_vfs.mxPathname
-#
-# pager1-17.*: Tests related to "PRAGMA omit_readlock"
-# (The omit_readlock pragma has been removed and so have
-# these tests.)
-#
-# pager1-18.*: Test that the pager layer responds correctly if the b-tree
-# requests an invalid page number (due to db corruption).
-#
-
-proc recursive_select {id table {script {}}} {
- set cnt 0
- db eval "SELECT rowid, * FROM $table WHERE rowid = ($id-1)" {
- recursive_select $rowid $table $script
- incr cnt
- }
- if {$cnt==0} { eval $script }
-}
-
-set a_string_counter 1
-proc a_string {n} {
- global a_string_counter
- incr a_string_counter
- string range [string repeat "${a_string_counter}." $n] 1 $n
-}
-db func a_string a_string
-
-do_multiclient_test tn {
-
- # Create and populate a database table using connection [db]. Check
- # that connections [db2] and [db3] can see the schema and content.
- #
- do_test pager1-$tn.1 {
- sql1 {
- CREATE TABLE t1(a PRIMARY KEY, b);
- CREATE INDEX i1 ON t1(b);
- INSERT INTO t1 VALUES(1, 'one'); INSERT INTO t1 VALUES(2, 'two');
- }
- } {}
- do_test pager1-$tn.2 { sql2 { SELECT * FROM t1 } } {1 one 2 two}
- do_test pager1-$tn.3 { sql3 { SELECT * FROM t1 } } {1 one 2 two}
-
- # Open a transaction and add a row using [db]. This puts [db] in
- # RESERVED state. Check that connections [db2] and [db3] can still
- # read the database content as it was before the transaction was
- # opened. [db] should see the inserted row.
- #
- do_test pager1-$tn.4 {
- sql1 {
- BEGIN;
- INSERT INTO t1 VALUES(3, 'three');
- }
- } {}
- do_test pager1-$tn.5 { sql2 { SELECT * FROM t1 } } {1 one 2 two}
- do_test pager1-$tn.7 { sql1 { SELECT * FROM t1 } } {1 one 2 two 3 three}
-
- # [db] still has an open write transaction. Check that this prevents
- # other connections (specifically [db2]) from writing to the database.
- #
- # Even if [db2] opens a transaction first, it may not write to the
- # database. After the attempt to write the db within a transaction,
- # [db2] is left with an open transaction, but not a read-lock on
- # the main database. So it does not prevent [db] from committing.
- #
- do_test pager1-$tn.8 {
- csql2 { UPDATE t1 SET a = a + 10 }
- } {1 {database is locked}}
- do_test pager1-$tn.9 {
- csql2 {
- BEGIN;
- UPDATE t1 SET a = a + 10;
- }
- } {1 {database is locked}}
-
- # Have [db] commit its transactions. Check the other connections can
- # now see the new database content.
- #
- do_test pager1-$tn.10 { sql1 { COMMIT } } {}
- do_test pager1-$tn.11 { sql1 { SELECT * FROM t1 } } {1 one 2 two 3 three}
- do_test pager1-$tn.12 { sql2 { SELECT * FROM t1 } } {1 one 2 two 3 three}
- do_test pager1-$tn.13 { sql3 { SELECT * FROM t1 } } {1 one 2 two 3 three}
-
- # Check that, as noted above, [db2] really did keep an open transaction
- # after the attempt to write the database failed.
- #
- do_test pager1-$tn.14 {
- csql2 { BEGIN }
- } {1 {cannot start a transaction within a transaction}}
- do_test pager1-$tn.15 { sql2 { ROLLBACK } } {}
-
- # Have [db2] open a transaction and take a read-lock on the database.
- # Check that this prevents [db] from writing to the database (outside
- # of any transaction). After this fails, check that [db3] can read
- # the db (showing that [db] did not take a PENDING lock etc.)
- #
- do_test pager1-$tn.15 {
- sql2 { BEGIN; SELECT * FROM t1; }
- } {1 one 2 two 3 three}
- do_test pager1-$tn.16 {
- csql1 { UPDATE t1 SET a = a + 10 }
- } {1 {database is locked}}
- do_test pager1-$tn.17 { sql3 { SELECT * FROM t1 } } {1 one 2 two 3 three}
-
- # This time, have [db] open a transaction before writing the database.
- # This works - [db] gets a RESERVED lock which does not conflict with
- # the SHARED lock [db2] is holding.
- #
- do_test pager1-$tn.18 {
- sql1 {
- BEGIN;
- UPDATE t1 SET a = a + 10;
- }
- } {}
- do_test pager1-$tn-19 {
- sql1 { PRAGMA lock_status }
- } {main reserved temp closed}
- do_test pager1-$tn-20 {
- sql2 { PRAGMA lock_status }
- } {main shared temp closed}
-
- # Check that all connections can still read the database. Only [db] sees
- # the updated content (as the transaction has not been committed yet).
- #
- do_test pager1-$tn.21 { sql1 { SELECT * FROM t1 } } {11 one 12 two 13 three}
- do_test pager1-$tn.22 { sql2 { SELECT * FROM t1 } } {1 one 2 two 3 three}
- do_test pager1-$tn.23 { sql3 { SELECT * FROM t1 } } {1 one 2 two 3 three}
-
- # Because [db2] still has the SHARED lock, [db] is unable to commit the
- # transaction. If it tries, an error is returned and the connection
- # upgrades to a PENDING lock.
- #
- # Once this happens, [db] can read the database and see the new content,
- # [db2] (still holding SHARED) can still read the old content, but [db3]
- # (not holding any lock) is prevented by [db]'s PENDING from reading
- # the database.
- #
- do_test pager1-$tn.24 { csql1 { COMMIT } } {1 {database is locked}}
- do_test pager1-$tn-25 {
- sql1 { PRAGMA lock_status }
- } {main pending temp closed}
- do_test pager1-$tn.26 { sql1 { SELECT * FROM t1 } } {11 one 12 two 13 three}
- do_test pager1-$tn.27 { sql2 { SELECT * FROM t1 } } {1 one 2 two 3 three}
- do_test pager1-$tn.28 { csql3 { SELECT * FROM t1 } } {1 {database is locked}}
-
- # Have [db2] commit its read transaction, releasing the SHARED lock it
- # is holding. Now, neither [db2] nor [db3] may read the database (as [db]
- # is still holding a PENDING).
- #
- do_test pager1-$tn.29 { sql2 { COMMIT } } {}
- do_test pager1-$tn.30 { csql2 { SELECT * FROM t1 } } {1 {database is locked}}
- do_test pager1-$tn.31 { csql3 { SELECT * FROM t1 } } {1 {database is locked}}
-
- # [db] is now able to commit the transaction. Once the transaction is
- # committed, all three connections can read the new content.
- #
- do_test pager1-$tn.25 { sql1 { UPDATE t1 SET a = a+10 } } {}
- do_test pager1-$tn.26 { sql1 { COMMIT } } {}
- do_test pager1-$tn.27 { sql1 { SELECT * FROM t1 } } {21 one 22 two 23 three}
- do_test pager1-$tn.27 { sql2 { SELECT * FROM t1 } } {21 one 22 two 23 three}
- do_test pager1-$tn.28 { sql3 { SELECT * FROM t1 } } {21 one 22 two 23 three}
-
- # Install a busy-handler for connection [db].
- #
- set ::nbusy [list]
- proc busy {n} {
- lappend ::nbusy $n
- if {$n>5} { sql2 COMMIT }
- return 0
- }
- db busy busy
-
- do_test pager1-$tn.29 {
- sql1 { BEGIN ; INSERT INTO t1 VALUES('x', 'y') }
- } {}
- do_test pager1-$tn.30 {
- sql2 { BEGIN ; SELECT * FROM t1 }
- } {21 one 22 two 23 three}
- do_test pager1-$tn.31 { sql1 COMMIT } {}
- do_test pager1-$tn.32 { set ::nbusy } {0 1 2 3 4 5 6}
-}
-
-#-------------------------------------------------------------------------
-# Savepoint related test cases.
-#
-# pager1-3.1.2.*: Force a savepoint rollback to cause the database file
-# to grow.
-#
-# pager1-3.1.3.*: Use a journal created in synchronous=off mode as part
-# of a savepoint rollback.
-#
-do_test pager1-3.1.1 {
- faultsim_delete_and_reopen
- execsql {
- CREATE TABLE t1(a PRIMARY KEY, b);
- CREATE TABLE counter(
- i CHECK (i<5),
- u CHECK (u<10)
- );
- INSERT INTO counter VALUES(0, 0);
- CREATE TRIGGER tr1 AFTER INSERT ON t1 BEGIN
- UPDATE counter SET i = i+1;
- END;
- CREATE TRIGGER tr2 AFTER UPDATE ON t1 BEGIN
- UPDATE counter SET u = u+1;
- END;
- }
- execsql { SELECT * FROM counter }
-} {0 0}
-
-do_execsql_test pager1-3.1.2 {
- PRAGMA cache_size = 10;
- BEGIN;
- INSERT INTO t1 VALUES(1, randomblob(1500));
- INSERT INTO t1 VALUES(2, randomblob(1500));
- INSERT INTO t1 VALUES(3, randomblob(1500));
- SELECT * FROM counter;
-} {3 0}
-do_catchsql_test pager1-3.1.3 {
- INSERT INTO t1 SELECT a+3, randomblob(1500) FROM t1
-} {1 {CHECK constraint failed: counter}}
-do_execsql_test pager1-3.4 { SELECT * FROM counter } {3 0}
-do_execsql_test pager1-3.5 { SELECT a FROM t1 } {1 2 3}
-do_execsql_test pager1-3.6 { COMMIT } {}
-
-foreach {tn sql tcl} {
- 7 { PRAGMA synchronous = NORMAL ; PRAGMA temp_store = 0 } {
- testvfs tv -default 1
- tv devchar safe_append
- }
- 8 { PRAGMA synchronous = NORMAL ; PRAGMA temp_store = 2 } {
- testvfs tv -default 1
- tv devchar sequential
- }
- 9 { PRAGMA synchronous = FULL } { }
- 10 { PRAGMA synchronous = NORMAL } { }
- 11 { PRAGMA synchronous = OFF } { }
- 12 { PRAGMA synchronous = FULL ; PRAGMA fullfsync = 1 } { }
- 13 { PRAGMA synchronous = FULL } {
- testvfs tv -default 1
- tv devchar sequential
- }
- 14 { PRAGMA locking_mode = EXCLUSIVE } {
- }
-} {
- do_test pager1-3.$tn.1 {
- eval $tcl
- faultsim_delete_and_reopen
- db func a_string a_string
- execsql $sql
- execsql {
- PRAGMA auto_vacuum = 2;
- PRAGMA cache_size = 10;
- CREATE TABLE z(x INTEGER PRIMARY KEY, y);
- BEGIN;
- INSERT INTO z VALUES(NULL, a_string(800));
- INSERT INTO z SELECT NULL, a_string(800) FROM z; -- 2
- INSERT INTO z SELECT NULL, a_string(800) FROM z; -- 4
- INSERT INTO z SELECT NULL, a_string(800) FROM z; -- 8
- INSERT INTO z SELECT NULL, a_string(800) FROM z; -- 16
- INSERT INTO z SELECT NULL, a_string(800) FROM z; -- 32
- INSERT INTO z SELECT NULL, a_string(800) FROM z; -- 64
- INSERT INTO z SELECT NULL, a_string(800) FROM z; -- 128
- INSERT INTO z SELECT NULL, a_string(800) FROM z; -- 256
- COMMIT;
- }
- execsql { PRAGMA auto_vacuum }
- } {2}
- do_execsql_test pager1-3.$tn.2 {
- BEGIN;
- INSERT INTO z VALUES(NULL, a_string(800));
- INSERT INTO z VALUES(NULL, a_string(800));
- SAVEPOINT one;
- UPDATE z SET y = NULL WHERE x>256;
- PRAGMA incremental_vacuum;
- SELECT count(*) FROM z WHERE x < 100;
- ROLLBACK TO one;
- COMMIT;
- } {99}
-
- do_execsql_test pager1-3.$tn.3 {
- BEGIN;
- SAVEPOINT one;
- UPDATE z SET y = y||x;
- ROLLBACK TO one;
- COMMIT;
- SELECT count(*) FROM z;
- } {258}
-
- do_execsql_test pager1-3.$tn.4 {
- SAVEPOINT one;
- UPDATE z SET y = y||x;
- ROLLBACK TO one;
- } {}
- do_execsql_test pager1-3.$tn.5 {
- SELECT count(*) FROM z;
- RELEASE one;
- PRAGMA integrity_check;
- } {258 ok}
-
- do_execsql_test pager1-3.$tn.6 {
- SAVEPOINT one;
- RELEASE one;
- } {}
-
- db close
- catch { tv delete }
-}
-
-#-------------------------------------------------------------------------
-# Hot journal rollback related test cases.
-#
-# pager1.4.1.*: Test that the pager module deletes very small invalid
-# journal files.
-#
-# pager1.4.2.*: Test that if the master journal pointer at the end of a
-# hot-journal file appears to be corrupt (checksum does not
-# compute) the associated journal is rolled back (and no
-# xAccess() call to check for the presence of any master
-# journal file is made).
-#
-# pager1.4.3.*: Test that the contents of a hot-journal are ignored if the
-# page-size or sector-size in the journal header appear to
-# be invalid (too large, too small or not a power of 2).
-#
-# pager1.4.4.*: Test hot-journal rollback of journal file with a master
-# journal pointer generated in various "PRAGMA synchronous"
-# modes.
-#
-# pager1.4.5.*: Test that hot-journal rollback stops if it encounters a
-# journal-record for which the checksum fails.
-#
-# pager1.4.6.*: Test that when rolling back a hot-journal that contains a
-# master journal pointer, the master journal file is deleted
-# after all the hot-journals that refer to it are deleted.
-#
-# pager1.4.7.*: Test that if a hot-journal file exists but a client can
-# open it for reading only, the database cannot be accessed and
-# SQLITE_CANTOPEN is returned.
-#
-do_test pager1.4.1.1 {
- faultsim_delete_and_reopen
- execsql {
- CREATE TABLE x(y, z);
- INSERT INTO x VALUES(1, 2);
- }
- set fd [open test.db-journal w]
- puts -nonewline $fd "helloworld"
- close $fd
- file exists test.db-journal
-} {1}
-do_test pager1.4.1.2 { execsql { SELECT * FROM x } } {1 2}
-do_test pager1.4.1.3 { file exists test.db-journal } {0}
-
-# Set up a [testvfs] to snapshot the file-system just before SQLite
-# deletes the master-journal to commit a multi-file transaction.
-#
-# In subsequent test cases, invoking [faultsim_restore_and_reopen] sets
-# up the file system to contain two databases, two hot-journal files and
-# a master-journal.
-#
-do_test pager1.4.2.1 {
- testvfs tstvfs -default 1
- tstvfs filter xDelete
- tstvfs script xDeleteCallback
- proc xDeleteCallback {method file args} {
- set file [file tail $file]
- if { [string match *mj* $file] } { faultsim_save }
- }
- faultsim_delete_and_reopen
- db func a_string a_string
- execsql {
- ATTACH 'test.db2' AS aux;
- PRAGMA journal_mode = DELETE;
- PRAGMA main.cache_size = 10;
- PRAGMA aux.cache_size = 10;
- CREATE TABLE t1(a UNIQUE, b UNIQUE);
- CREATE TABLE aux.t2(a UNIQUE, b UNIQUE);
- INSERT INTO t1 VALUES(a_string(200), a_string(300));
- INSERT INTO t1 SELECT a_string(200), a_string(300) FROM t1;
- INSERT INTO t1 SELECT a_string(200), a_string(300) FROM t1;
- INSERT INTO t2 SELECT * FROM t1;
- BEGIN;
- INSERT INTO t1 SELECT a_string(201), a_string(301) FROM t1;
- INSERT INTO t1 SELECT a_string(202), a_string(302) FROM t1;
- INSERT INTO t1 SELECT a_string(203), a_string(303) FROM t1;
- INSERT INTO t1 SELECT a_string(204), a_string(304) FROM t1;
- REPLACE INTO t2 SELECT * FROM t1;
- COMMIT;
- }
- db close
- tstvfs delete
-} {}
-
-if {$::tcl_platform(platform)!="windows"} {
-do_test pager1.4.2.2 {
- faultsim_restore_and_reopen
- execsql {
- SELECT count(*) FROM t1;
- PRAGMA integrity_check;
- }
-} {4 ok}
-do_test pager1.4.2.3 {
- faultsim_restore_and_reopen
- foreach f [glob test.db-mj*] { forcedelete $f }
- execsql {
- SELECT count(*) FROM t1;
- PRAGMA integrity_check;
- }
-} {64 ok}
-do_test pager1.4.2.4 {
- faultsim_restore_and_reopen
- hexio_write test.db-journal [expr [file size test.db-journal]-30] 123456
- execsql {
- SELECT count(*) FROM t1;
- PRAGMA integrity_check;
- }
-} {4 ok}
-do_test pager1.4.2.5 {
- faultsim_restore_and_reopen
- hexio_write test.db-journal [expr [file size test.db-journal]-30] 123456
- foreach f [glob test.db-mj*] { forcedelete $f }
- execsql {
- SELECT count(*) FROM t1;
- PRAGMA integrity_check;
- }
-} {4 ok}
-}
-
-do_test pager1.4.3.1 {
- testvfs tstvfs -default 1
- tstvfs filter xSync
- tstvfs script xSyncCallback
- proc xSyncCallback {method file args} {
- set file [file tail $file]
- if { 0==[string match *journal $file] } { faultsim_save }
- }
- faultsim_delete_and_reopen
- execsql {
- PRAGMA journal_mode = DELETE;
- CREATE TABLE t1(a, b);
- INSERT INTO t1 VALUES(1, 2);
- INSERT INTO t1 VALUES(3, 4);
- }
- db close
- tstvfs delete
-} {}
-
-foreach {tn ofst value result} {
- 2 20 31 {1 2 3 4}
- 3 20 32 {1 2 3 4}
- 4 20 33 {1 2 3 4}
- 5 20 65536 {1 2 3 4}
- 6 20 131072 {1 2 3 4}
-
- 7 24 511 {1 2 3 4}
- 8 24 513 {1 2 3 4}
- 9 24 131072 {1 2 3 4}
-
- 10 32 65536 {1 2}
-} {
- do_test pager1.4.3.$tn {
- faultsim_restore_and_reopen
- hexio_write test.db-journal $ofst [format %.8x $value]
- execsql { SELECT * FROM t1 }
- } $result
-}
-db close
-
-# Set up a VFS that snapshots the file-system just before a master journal
-# file is deleted to commit a multi-file transaction. Specifically, the
-# file-system is saved just before the xDelete() call to remove the
-# master journal file from the file-system.
-#
-set pwd [get_pwd]
-testvfs tv -default 1
-tv script copy_on_mj_delete
-set ::mj_filename_length 0
-proc copy_on_mj_delete {method filename args} {
- if {[string match *mj* [file tail $filename]]} {
- #
- # NOTE: Is the file name relative? If so, add the length of the current
- # directory.
- #
- if {[is_relative_file $filename]} {
- set ::mj_filename_length \
- [expr {[string length $filename] + [string length $::pwd]}]
- } else {
- set ::mj_filename_length [string length $filename]
- }
- faultsim_save
- }
- return SQLITE_OK
-}
-
-foreach {tn1 tcl} {
- 1 { set prefix "test.db" }
- 2 {
- # This test depends on the underlying VFS being able to open paths
- # 512 bytes in length. The idea is to create a hot-journal file that
- # contains a master-journal pointer so large that it could contain
- # a valid page record (if the file page-size is 512 bytes). So as to
- # make sure SQLite doesn't get confused by this.
- #
- set nPadding [expr 511 - $::mj_filename_length]
- if {$tcl_platform(platform)=="windows"} {
- # TBD need to figure out how to do this correctly for Windows!!!
- set nPadding [expr 255 - $::mj_filename_length]
- }
-
- # We cannot just create a really long database file name to open, as
- # Linux limits a single component of a path to 255 bytes by default
- # (and presumably other systems have limits too). So create a directory
- # hierarchy to work in.
- #
- set dirname "d123456789012345678901234567890/"
- set nDir [expr $nPadding / 32]
- if { $nDir } {
- set p [string repeat $dirname $nDir]
- file mkdir $p
- cd $p
- }
-
- set padding [string repeat x [expr $nPadding %32]]
- set prefix "test.db${padding}"
- }
-} {
- eval $tcl
- foreach {tn2 sql} {
- o {
- PRAGMA main.synchronous=OFF;
- PRAGMA aux.synchronous=OFF;
- PRAGMA journal_mode = DELETE;
- }
- o512 {
- PRAGMA main.synchronous=OFF;
- PRAGMA aux.synchronous=OFF;
- PRAGMA main.page_size = 512;
- PRAGMA aux.page_size = 512;
- PRAGMA journal_mode = DELETE;
- }
- n {
- PRAGMA main.synchronous=NORMAL;
- PRAGMA aux.synchronous=NORMAL;
- PRAGMA journal_mode = DELETE;
- }
- f {
- PRAGMA main.synchronous=FULL;
- PRAGMA aux.synchronous=FULL;
- PRAGMA journal_mode = DELETE;
- }
- } {
-
- set tn "${tn1}.${tn2}"
-
- # Set up a connection to have two databases, test.db (main) and
- # test.db2 (aux). Then run a multi-file transaction on them. The
- # VFS will snapshot the file-system just before the master-journal
- # file is deleted to commit the transaction.
- #
- tv filter xDelete
- do_test pager1-4.4.$tn.1 {
- faultsim_delete_and_reopen $prefix
- execsql "
- ATTACH '${prefix}2' AS aux;
- $sql
- CREATE TABLE a(x);
- CREATE TABLE aux.b(x);
- INSERT INTO a VALUES('double-you');
- INSERT INTO a VALUES('why');
- INSERT INTO a VALUES('zed');
- INSERT INTO b VALUES('won');
- INSERT INTO b VALUES('too');
- INSERT INTO b VALUES('free');
- "
- execsql {
- BEGIN;
- INSERT INTO a SELECT * FROM b WHERE rowid<=3;
- INSERT INTO b SELECT * FROM a WHERE rowid<=3;
- COMMIT;
- }
- } {}
- tv filter {}
-
- # Check that the transaction was committed successfully.
- #
- do_execsql_test pager1-4.4.$tn.2 {
- SELECT * FROM a
- } {double-you why zed won too free}
- do_execsql_test pager1-4.4.$tn.3 {
- SELECT * FROM b
- } {won too free double-you why zed}
-
- # Restore the file-system and reopen the databases. Check that it now
- # appears that the transaction was not committed (because the file-system
- # was restored to the state where it had not been).
- #
- do_test pager1-4.4.$tn.4 {
- faultsim_restore_and_reopen $prefix
- execsql "ATTACH '${prefix}2' AS aux"
- } {}
- do_execsql_test pager1-4.4.$tn.5 {SELECT * FROM a} {double-you why zed}
- do_execsql_test pager1-4.4.$tn.6 {SELECT * FROM b} {won too free}
-
- # Restore the file-system again. This time, before reopening the databases,
- # delete the master-journal file from the file-system. It now appears that
- # the transaction was committed (no master-journal file == no rollback).
- #
- do_test pager1-4.4.$tn.7 {
- faultsim_restore_and_reopen $prefix
- foreach f [glob ${prefix}-mj*] { forcedelete $f }
- execsql "ATTACH '${prefix}2' AS aux"
- } {}
- do_execsql_test pager1-4.4.$tn.8 {
- SELECT * FROM a
- } {double-you why zed won too free}
- do_execsql_test pager1-4.4.$tn.9 {
- SELECT * FROM b
- } {won too free double-you why zed}
- }
-
- cd $pwd
-}
-db close
-tv delete
-forcedelete $dirname
-
-
-# Set up a VFS to make a copy of the file-system just before deleting a
-# journal file to commit a transaction. The transaction modifies exactly
-# two database pages (and page 1 - the change counter).
-#
-testvfs tv -default 1
-tv sectorsize 512
-tv script copy_on_journal_delete
-tv filter xDelete
-proc copy_on_journal_delete {method filename args} {
- if {[string match *journal $filename]} faultsim_save
- return SQLITE_OK
-}
-faultsim_delete_and_reopen
-do_execsql_test pager1.4.5.1 {
- PRAGMA journal_mode = DELETE;
- PRAGMA page_size = 1024;
- CREATE TABLE t1(a, b);
- CREATE TABLE t2(a, b);
- INSERT INTO t1 VALUES('I', 'II');
- INSERT INTO t2 VALUES('III', 'IV');
- BEGIN;
- INSERT INTO t1 VALUES(1, 2);
- INSERT INTO t2 VALUES(3, 4);
- COMMIT;
-} {delete}
-tv filter {}
-
-# Check the transaction was committed:
-#
-do_execsql_test pager1.4.5.2 {
- SELECT * FROM t1;
- SELECT * FROM t2;
-} {I II 1 2 III IV 3 4}
-
-# Now try four tests:
-#
-# pager1-4.5.3: Restore the file-system. Check that the whole transaction
-# is rolled back.
-#
-# pager1-4.5.4: Restore the file-system. Corrupt the first record in the
-# journal. Check the transaction is not rolled back.
-#
-# pager1-4.5.5: Restore the file-system. Corrupt the second record in the
-# journal. Check that the first record in the transaction is
-# played back, but not the second.
-#
-# pager1-4.5.6: Restore the file-system. Try to open the database with a
-# readonly connection. This should fail, as a read-only
-# connection cannot roll back the database file.
-#
-faultsim_restore_and_reopen
-do_execsql_test pager1.4.5.3 {
- SELECT * FROM t1;
- SELECT * FROM t2;
-} {I II III IV}
-faultsim_restore_and_reopen
-hexio_write test.db-journal [expr 512+4+1024 - 202] 0123456789ABCDEF
-do_execsql_test pager1.4.5.4 {
- SELECT * FROM t1;
- SELECT * FROM t2;
-} {I II 1 2 III IV 3 4}
-faultsim_restore_and_reopen
-hexio_write test.db-journal [expr 512+4+1024+4+4+1024 - 202] 0123456789ABCDEF
-do_execsql_test pager1.4.5.5 {
- SELECT * FROM t1;
- SELECT * FROM t2;
-} {I II III IV 3 4}
-
-faultsim_restore_and_reopen
-db close
-sqlite3 db test.db -readonly 1
-do_catchsql_test pager1.4.5.6 {
- SELECT * FROM t1;
- SELECT * FROM t2;
-} {1 {attempt to write a readonly database}}
-db close
-
-# Snapshot the file-system just before multi-file commit. Save the name
-# of the master journal file in $::mj_filename.
-#
-tv script copy_on_mj_delete
-tv filter xDelete
-proc copy_on_mj_delete {method filename args} {
- if {[string match *mj* [file tail $filename]]} {
- set ::mj_filename $filename
- faultsim_save
- }
- return SQLITE_OK
-}
-do_test pager1.4.6.1 {
- faultsim_delete_and_reopen
- execsql {
- PRAGMA journal_mode = DELETE;
- ATTACH 'test.db2' AS two;
- CREATE TABLE t1(a, b);
- CREATE TABLE two.t2(a, b);
- INSERT INTO t1 VALUES(1, 't1.1');
- INSERT INTO t2 VALUES(1, 't2.1');
- BEGIN;
- UPDATE t1 SET b = 't1.2';
- UPDATE t2 SET b = 't2.2';
- COMMIT;
- }
- tv filter {}
- db close
-} {}
-
-faultsim_restore_and_reopen
-do_execsql_test pager1.4.6.2 { SELECT * FROM t1 } {1 t1.1}
-do_test pager1.4.6.3 { file exists $::mj_filename } {1}
-do_execsql_test pager1.4.6.4 {
- ATTACH 'test.db2' AS two;
- SELECT * FROM t2;
-} {1 t2.1}
-do_test pager1.4.6.5 { file exists $::mj_filename } {0}
-
-faultsim_restore_and_reopen
-db close
-do_test pager1.4.6.8 {
- set ::mj_filename1 $::mj_filename
- tv filter xDelete
- sqlite3 db test.db2
- execsql {
- PRAGMA journal_mode = DELETE;
- ATTACH 'test.db3' AS three;
- CREATE TABLE three.t3(a, b);
- INSERT INTO t3 VALUES(1, 't3.1');
- BEGIN;
- UPDATE t2 SET b = 't2.3';
- UPDATE t3 SET b = 't3.3';
- COMMIT;
- }
- expr {$::mj_filename1 != $::mj_filename}
-} {1}
-faultsim_restore_and_reopen
-tv filter {}
-
-# The file-system now contains:
-#
-# * three databases
-# * three hot-journal files
-# * two master-journal files.
-#
-# The hot-journals associated with test.db2 and test.db3 point to
-# master journal $::mj_filename. The hot-journal file associated with
-# test.db points to master journal $::mj_filename1. So reading from
-# test.db should delete $::mj_filename1.
-#
-do_test pager1.4.6.9 {
- lsort [glob test.db*]
-} [lsort [list \
- test.db test.db2 test.db3 \
- test.db-journal test.db2-journal test.db3-journal \
- [file tail $::mj_filename] [file tail $::mj_filename1]
-]]
-
-# The master-journal $::mj_filename1 contains pointers to test.db and
-# test.db2. However the hot-journal associated with test.db2 points to
-# a different master-journal. Therefore, reading from test.db only should
-# be enough to cause SQLite to delete $::mj_filename1.
-#
-do_test pager1.4.6.10 { file exists $::mj_filename } {1}
-do_test pager1.4.6.11 { file exists $::mj_filename1 } {1}
-do_execsql_test pager1.4.6.12 { SELECT * FROM t1 } {1 t1.1}
-do_test pager1.4.6.13 { file exists $::mj_filename } {1}
-do_test pager1.4.6.14 { file exists $::mj_filename1 } {0}
-
-do_execsql_test pager1.4.6.12 {
- ATTACH 'test.db2' AS two;
- SELECT * FROM t2;
-} {1 t2.1}
-do_test pager1.4.6.13 { file exists $::mj_filename } {1}
-do_execsql_test pager1.4.6.14 {
- ATTACH 'test.db3' AS three;
- SELECT * FROM t3;
-} {1 t3.1}
-do_test pager1.4.6.15 { file exists $::mj_filename } {0}
-
-db close
-tv delete
-
-testvfs tv -default 1
-tv sectorsize 512
-tv script copy_on_journal_delete
-tv filter xDelete
-proc copy_on_journal_delete {method filename args} {
- if {[string match *journal $filename]} faultsim_save
- return SQLITE_OK
-}
-faultsim_delete_and_reopen
-do_execsql_test pager1.4.7.1 {
- PRAGMA journal_mode = DELETE;
- CREATE TABLE t1(x PRIMARY KEY, y);
- CREATE INDEX i1 ON t1(y);
- INSERT INTO t1 VALUES('I', 'one');
- INSERT INTO t1 VALUES('II', 'four');
- INSERT INTO t1 VALUES('III', 'nine');
- BEGIN;
- INSERT INTO t1 VALUES('IV', 'sixteen');
- INSERT INTO t1 VALUES('V' , 'twentyfive');
- COMMIT;
-} {delete}
-tv filter {}
-db close
-tv delete
-catch {
- test_syscall install fchmod
- test_syscall fault 1 1
-}
-do_test pager1.4.7.2 {
- faultsim_restore_and_reopen
- catch {file attributes test.db-journal -permissions r--------}
- catch {file attributes test.db-journal -readonly 1}
- catchsql { SELECT * FROM t1 }
-} {1 {unable to open database file}}
-catch {
- test_syscall reset
- test_syscall fault 0 0
-}
-do_test pager1.4.7.3 {
- db close
- catch {file attributes test.db-journal -permissions rw-rw-rw-}
- catch {file attributes test.db-journal -readonly 0}
- delete_file test.db-journal
- file exists test.db-journal
-} {0}
-do_test pager1.4.8.1 {
- catch {file attributes test.db -permissions r--------}
- catch {file attributes test.db -readonly 1}
- sqlite3 db test.db
- db eval { SELECT * FROM t1 }
- sqlite3_db_readonly db main
-} {1}
-do_test pager1.4.8.2 {
- sqlite3_db_readonly db xyz
-} {-1}
-do_test pager1.4.8.3 {
- db close
- catch {file attributes test.db -readonly 0}
- catch {file attributes test.db -permissions rw-rw-rw-} msg
- sqlite3 db test.db
- db eval { SELECT * FROM t1 }
- sqlite3_db_readonly db main
-} {0}
-
-#-------------------------------------------------------------------------
-# The following tests deal with multi-file commits.
-#
-# pager1-5.1.*: The case where a multi-file cannot be committed because
-# another connection is holding a SHARED lock on one of the
-# files. After the SHARED lock is removed, the COMMIT succeeds.
-#
-# pager1-5.2.*: Multi-file commits with journal_mode=memory.
-#
-# pager1-5.3.*: Multi-file commits with journal_mode=memory.
-#
-# pager1-5.4.*: Check that with synchronous=normal, the master-journal file
-# name is added to a journal file immediately after the last
-# journal record. But with synchronous=full, extra unused space
-# is allocated between the last journal record and the
-# master-journal file name so that the master-journal file
-# name does not lie on the same sector as the last journal file
-# record.
-#
-# pager1-5.5.*: Check that in journal_mode=PERSIST mode, a journal file is
-# truncated to zero bytes when a multi-file transaction is
-# committed (instead of the first couple of bytes being zeroed).
-#
-#
-do_test pager1-5.1.1 {
- faultsim_delete_and_reopen
- execsql {
- ATTACH 'test.db2' AS aux;
- CREATE TABLE t1(a, b);
- CREATE TABLE aux.t2(a, b);
- INSERT INTO t1 VALUES(17, 'Lenin');
- INSERT INTO t1 VALUES(22, 'Stalin');
- INSERT INTO t1 VALUES(53, 'Khrushchev');
- }
-} {}
-do_test pager1-5.1.2 {
- execsql {
- BEGIN;
- INSERT INTO t1 VALUES(64, 'Brezhnev');
- INSERT INTO t2 SELECT * FROM t1;
- }
- sqlite3 db2 test.db2
- execsql {
- BEGIN;
- SELECT * FROM t2;
- } db2
-} {}
-do_test pager1-5.1.3 {
- catchsql COMMIT
-} {1 {database is locked}}
-do_test pager1-5.1.4 {
- execsql COMMIT db2
- execsql COMMIT
- execsql { SELECT * FROM t2 } db2
-} {17 Lenin 22 Stalin 53 Khrushchev 64 Brezhnev}
-do_test pager1-5.1.5 {
- db2 close
-} {}
-
-do_test pager1-5.2.1 {
- execsql {
- PRAGMA journal_mode = memory;
- BEGIN;
- INSERT INTO t1 VALUES(84, 'Andropov');
- INSERT INTO t2 VALUES(84, 'Andropov');
- COMMIT;
- }
-} {memory}
-do_test pager1-5.3.1 {
- execsql {
- PRAGMA journal_mode = off;
- BEGIN;
- INSERT INTO t1 VALUES(85, 'Gorbachev');
- INSERT INTO t2 VALUES(85, 'Gorbachev');
- COMMIT;
- }
-} {off}
-
-do_test pager1-5.4.1 {
- db close
- testvfs tv
- sqlite3 db test.db -vfs tv
- execsql { ATTACH 'test.db2' AS aux }
-
- tv filter xDelete
- tv script max_journal_size
- tv sectorsize 512
- set ::max_journal 0
- proc max_journal_size {method args} {
- set sz 0
- catch { set sz [file size test.db-journal] }
- if {$sz > $::max_journal} {
- set ::max_journal $sz
- }
- return SQLITE_OK
- }
- execsql {
- PRAGMA journal_mode = DELETE;
- PRAGMA synchronous = NORMAL;
- BEGIN;
- INSERT INTO t1 VALUES(85, 'Gorbachev');
- INSERT INTO t2 VALUES(85, 'Gorbachev');
- COMMIT;
- }
-
- # The size of the journal file is now:
- #
- # 1) 512 byte header +
- # 2) 2 * (1024+8) byte records +
- # 3) 20+N bytes of master-journal pointer, where N is the size of
- # the master-journal name encoded as utf-8 with no nul term.
- #
- set mj_pointer [expr {
- 20 + [string length "test.db-mjXXXXXX9XX"]
- }]
- #
- # NOTE: For item 3 above, if the current SQLite VFS lacks the concept of a
- # current directory, the length of the current directory name plus 1
- # character for the directory separator character are NOT counted as
- # part of the total size; otherwise, they are.
- #
- ifcapable curdir {
- set mj_pointer [expr {$mj_pointer + [string length [get_pwd]] + 1}]
- }
- expr {$::max_journal==(512+2*(1024+8)+$mj_pointer)}
-} 1
-do_test pager1-5.4.2 {
- set ::max_journal 0
- execsql {
- PRAGMA synchronous = full;
- BEGIN;
- DELETE FROM t1 WHERE b = 'Lenin';
- DELETE FROM t2 WHERE b = 'Lenin';
- COMMIT;
- }
-
- # In synchronous=full mode, the master-journal pointer is not written
- # directly after the last record in the journal file. Instead, it is
- # written starting at the next (in this case 512 byte) sector boundary.
- #
- set mj_pointer [expr {
- 20 + [string length "test.db-mjXXXXXX9XX"]
- }]
- #
- # NOTE: If the current SQLite VFS lacks the concept of a current directory,
- # the length of the current directory name plus 1 character for the
- # directory separator character are NOT counted as part of the total
- # size; otherwise, they are.
- #
- ifcapable curdir {
- set mj_pointer [expr {$mj_pointer + [string length [get_pwd]] + 1}]
- }
- expr {$::max_journal==(((512+2*(1024+8)+511)/512)*512 + $mj_pointer)}
-} 1
-db close
-tv delete
-
-do_test pager1-5.5.1 {
- sqlite3 db test.db
- execsql {
- ATTACH 'test.db2' AS aux;
- PRAGMA journal_mode = PERSIST;
- CREATE TABLE t3(a, b);
- INSERT INTO t3 SELECT randomblob(1500), randomblob(1500) FROM t1;
- UPDATE t3 SET b = randomblob(1500);
- }
- expr [file size test.db-journal] > 15000
-} {1}
-do_test pager1-5.5.2 {
- execsql {
- PRAGMA synchronous = full;
- BEGIN;
- DELETE FROM t1 WHERE b = 'Stalin';
- DELETE FROM t2 WHERE b = 'Stalin';
- COMMIT;
- }
- file size test.db-journal
-} {0}
-
-
-#-------------------------------------------------------------------------
-# The following tests work with "PRAGMA max_page_count"
-#
-do_test pager1-6.1 {
- faultsim_delete_and_reopen
- execsql {
- PRAGMA auto_vacuum = none;
- PRAGMA max_page_count = 10;
- CREATE TABLE t2(a, b);
- CREATE TABLE t3(a, b);
- CREATE TABLE t4(a, b);
- CREATE TABLE t5(a, b);
- CREATE TABLE t6(a, b);
- CREATE TABLE t7(a, b);
- CREATE TABLE t8(a, b);
- CREATE TABLE t9(a, b);
- CREATE TABLE t10(a, b);
- }
-} {10}
-do_catchsql_test pager1-6.2 {
- CREATE TABLE t11(a, b)
-} {1 {database or disk is full}}
-do_execsql_test pager1-6.4 { PRAGMA max_page_count } {10}
-do_execsql_test pager1-6.5 { PRAGMA max_page_count = 15 } {15}
-do_execsql_test pager1-6.6 { CREATE TABLE t11(a, b) } {}
-do_execsql_test pager1-6.7 {
- BEGIN;
- INSERT INTO t11 VALUES(1, 2);
- PRAGMA max_page_count = 13;
-} {13}
-do_execsql_test pager1-6.8 {
- INSERT INTO t11 VALUES(3, 4);
- PRAGMA max_page_count = 10;
-} {11}
-do_execsql_test pager1-6.9 { COMMIT } {}
-
-do_execsql_test pager1-6.10 { PRAGMA max_page_count = 10 } {11}
-do_execsql_test pager1-6.11 { SELECT * FROM t11 } {1 2 3 4}
-do_execsql_test pager1-6.12 { PRAGMA max_page_count } {11}
-
-
-#-------------------------------------------------------------------------
-# The following tests work with "PRAGMA journal_mode=TRUNCATE" and
-# "PRAGMA locking_mode=EXCLUSIVE".
-#
-# Each test is specified with 5 variables. As follows:
-#
-# $tn: Test Number. Used as part of the [do_test] test names.
-# $sql: SQL to execute.
-# $res: Expected result of executing $sql.
-# $js: The expected size of the journal file, in bytes, after executing
-# the SQL script. Or -1 if the journal is not expected to exist.
-# $ws: The expected size of the WAL file, in bytes, after executing
-# the SQL script. Or -1 if the WAL is not expected to exist.
-#
-ifcapable wal {
- faultsim_delete_and_reopen
- foreach {tn sql res js ws} [subst {
-
- 1 {
- CREATE TABLE t1(a, b);
- PRAGMA auto_vacuum=OFF;
- PRAGMA synchronous=NORMAL;
- PRAGMA page_size=1024;
- PRAGMA locking_mode=EXCLUSIVE;
- PRAGMA journal_mode=TRUNCATE;
- INSERT INTO t1 VALUES(1, 2);
- } {exclusive truncate} 0 -1
-
- 2 {
- BEGIN IMMEDIATE;
- SELECT * FROM t1;
- COMMIT;
- } {1 2} 0 -1
-
- 3 {
- BEGIN;
- SELECT * FROM t1;
- COMMIT;
- } {1 2} 0 -1
-
- 4 { PRAGMA journal_mode = WAL } wal -1 -1
- 5 { INSERT INTO t1 VALUES(3, 4) } {} -1 [wal_file_size 1 1024]
- 6 { PRAGMA locking_mode = NORMAL } exclusive -1 [wal_file_size 1 1024]
- 7 { INSERT INTO t1 VALUES(5, 6); } {} -1 [wal_file_size 2 1024]
-
- 8 { PRAGMA journal_mode = TRUNCATE } truncate 0 -1
- 9 { INSERT INTO t1 VALUES(7, 8) } {} 0 -1
- 10 { SELECT * FROM t1 } {1 2 3 4 5 6 7 8} 0 -1
-
- }] {
- do_execsql_test pager1-7.1.$tn.1 $sql $res
- catch { set J -1 ; set J [file size test.db-journal] }
- catch { set W -1 ; set W [file size test.db-wal] }
- do_test pager1-7.1.$tn.2 { list $J $W } [list $js $ws]
- }
-}
-
-do_test pager1-7.2.1 {
- faultsim_delete_and_reopen
- execsql {
- PRAGMA locking_mode = EXCLUSIVE;
- CREATE TABLE t1(a, b);
- BEGIN;
- PRAGMA journal_mode = delete;
- PRAGMA journal_mode = truncate;
- }
-} {exclusive delete truncate}
-do_test pager1-7.2.2 {
- execsql { INSERT INTO t1 VALUES(1, 2) }
- execsql { PRAGMA journal_mode = persist }
-} {truncate}
-do_test pager1-7.2.3 {
- execsql { COMMIT }
- execsql {
- PRAGMA journal_mode = persist;
- PRAGMA journal_size_limit;
- }
-} {persist -1}
-
-#-------------------------------------------------------------------------
-# The following tests, pager1-8.*, test that the special filenames
-# ":memory:" and "" open temporary databases.
-#
-foreach {tn filename} {
- 1 :memory:
- 2 ""
-} {
- do_test pager1-8.$tn.1 {
- faultsim_delete_and_reopen
- db close
- sqlite3 db $filename
- execsql {
- PRAGMA auto_vacuum = 1;
- CREATE TABLE x1(x);
- INSERT INTO x1 VALUES('Charles');
- INSERT INTO x1 VALUES('James');
- INSERT INTO x1 VALUES('Mary');
- SELECT * FROM x1;
- }
- } {Charles James Mary}
-
- do_test pager1-8.$tn.2 {
- sqlite3 db2 $filename
- catchsql { SELECT * FROM x1 } db2
- } {1 {no such table: x1}}
-
- do_execsql_test pager1-8.$tn.3 {
- BEGIN;
- INSERT INTO x1 VALUES('William');
- INSERT INTO x1 VALUES('Anne');
- ROLLBACK;
- } {}
-}
-
-#-------------------------------------------------------------------------
-# The next block of tests - pager1-9.* - deal with interactions between
-# the pager and the backup API. Test cases:
-#
-# pager1-9.1.*: Test that a backup completes successfully even if the
-# source db is written to during the backup op.
-#
-# pager1-9.2.*: Test that a backup completes successfully even if the
-# source db is written to and then rolled back during a
-# backup operation.
-#
-do_test pager1-9.0.1 {
- faultsim_delete_and_reopen
- db func a_string a_string
- execsql {
- PRAGMA cache_size = 10;
- BEGIN;
- CREATE TABLE ab(a, b, UNIQUE(a, b));
- INSERT INTO ab VALUES( a_string(200), a_string(300) );
- INSERT INTO ab SELECT a_string(200), a_string(300) FROM ab;
- INSERT INTO ab SELECT a_string(200), a_string(300) FROM ab;
- INSERT INTO ab SELECT a_string(200), a_string(300) FROM ab;
- INSERT INTO ab SELECT a_string(200), a_string(300) FROM ab;
- INSERT INTO ab SELECT a_string(200), a_string(300) FROM ab;
- INSERT INTO ab SELECT a_string(200), a_string(300) FROM ab;
- INSERT INTO ab SELECT a_string(200), a_string(300) FROM ab;
- COMMIT;
- }
-} {}
-do_test pager1-9.0.2 {
- sqlite3 db2 test.db2
- db2 eval { PRAGMA cache_size = 10 }
- sqlite3_backup B db2 main db main
- list [B step 10000] [B finish]
-} {SQLITE_DONE SQLITE_OK}
-do_test pager1-9.0.3 {
- db one {SELECT md5sum(a, b) FROM ab}
-} [db2 one {SELECT md5sum(a, b) FROM ab}]
-
-do_test pager1-9.1.1 {
- execsql { UPDATE ab SET a = a_string(201) }
- sqlite3_backup B db2 main db main
- B step 30
-} {SQLITE_OK}
-do_test pager1-9.1.2 {
- execsql { UPDATE ab SET b = a_string(301) }
- list [B step 10000] [B finish]
-} {SQLITE_DONE SQLITE_OK}
-do_test pager1-9.1.3 {
- db one {SELECT md5sum(a, b) FROM ab}
-} [db2 one {SELECT md5sum(a, b) FROM ab}]
-do_test pager1-9.1.4 { execsql { SELECT count(*) FROM ab } } {128}
-
-do_test pager1-9.2.1 {
- execsql { UPDATE ab SET a = a_string(202) }
- sqlite3_backup B db2 main db main
- B step 30
-} {SQLITE_OK}
-do_test pager1-9.2.2 {
- execsql {
- BEGIN;
- UPDATE ab SET b = a_string(301);
- ROLLBACK;
- }
- list [B step 10000] [B finish]
-} {SQLITE_DONE SQLITE_OK}
-do_test pager1-9.2.3 {
- db one {SELECT md5sum(a, b) FROM ab}
-} [db2 one {SELECT md5sum(a, b) FROM ab}]
-do_test pager1-9.2.4 { execsql { SELECT count(*) FROM ab } } {128}
-db close
-db2 close
-
-do_test pager1-9.3.1 {
- testvfs tv -default 1
- tv sectorsize 4096
- faultsim_delete_and_reopen
-
- execsql { PRAGMA page_size = 1024 }
- for {set ii 0} {$ii < 4} {incr ii} { execsql "CREATE TABLE t${ii}(a, b)" }
-} {}
-do_test pager1-9.3.2 {
- sqlite3 db2 test.db2
-
- execsql {
- PRAGMA page_size = 4096;
- PRAGMA synchronous = OFF;
- CREATE TABLE t1(a, b);
- CREATE TABLE t2(a, b);
- } db2
-
- sqlite3_backup B db2 main db main
- B step 30
- list [B step 10000] [B finish]
-} {SQLITE_DONE SQLITE_OK}
-do_test pager1-9.3.3 {
- db2 close
- db close
- tv delete
- file size test.db2
-} [file size test.db]
-
-do_test pager1-9.4.1 {
- faultsim_delete_and_reopen
- sqlite3 db2 test.db2
- execsql {
- PRAGMA page_size = 4096;
- CREATE TABLE t1(a, b);
- CREATE TABLE t2(a, b);
- } db2
- sqlite3_backup B db2 main db main
- list [B step 10000] [B finish]
-} {SQLITE_DONE SQLITE_OK}
-do_test pager1-9.4.2 {
- list [file size test.db2] [file size test.db]
-} {1024 0}
-db2 close
-
-#-------------------------------------------------------------------------
-# Test that regardless of the value returned by xSectorSize(), the
-# minimum effective sector-size is 512 and the maximum 65536 bytes.
-#
-testvfs tv -default 1
-foreach sectorsize {
- 16
- 32 64 128 256 512 1024 2048
- 4096 8192 16384 32768 65536 131072 262144
-} {
- tv sectorsize $sectorsize
- tv devchar {}
- set eff $sectorsize
- if {$sectorsize < 512} { set eff 512 }
- if {$sectorsize > 65536} { set eff 65536 }
-
- do_test pager1-10.$sectorsize.1 {
- faultsim_delete_and_reopen
- db func a_string a_string
- execsql {
- PRAGMA journal_mode = PERSIST;
- PRAGMA page_size = 1024;
- BEGIN;
- CREATE TABLE t1(a, b);
- CREATE TABLE t2(a, b);
- CREATE TABLE t3(a, b);
- COMMIT;
- }
- file size test.db-journal
- } [expr $sectorsize > 65536 ? 65536 : ($sectorsize<32 ? 512 : $sectorsize)]
-
- do_test pager1-10.$sectorsize.2 {
- execsql {
- INSERT INTO t3 VALUES(a_string(300), a_string(300));
- INSERT INTO t3 SELECT * FROM t3; /* 2 */
- INSERT INTO t3 SELECT * FROM t3; /* 4 */
- INSERT INTO t3 SELECT * FROM t3; /* 8 */
- INSERT INTO t3 SELECT * FROM t3; /* 16 */
- INSERT INTO t3 SELECT * FROM t3; /* 32 */
- }
- } {}
-
- do_test pager1-10.$sectorsize.3 {
- db close
- sqlite3 db test.db
- execsql {
- PRAGMA cache_size = 10;
- BEGIN;
- }
- recursive_select 32 t3 {db eval "INSERT INTO t2 VALUES(1, 2)"}
- execsql {
- COMMIT;
- SELECT * FROM t2;
- }
- } {1 2}
-
- do_test pager1-10.$sectorsize.4 {
- execsql {
- CREATE TABLE t6(a, b);
- CREATE TABLE t7(a, b);
- CREATE TABLE t5(a, b);
- DROP TABLE t6;
- DROP TABLE t7;
- }
- execsql {
- BEGIN;
- CREATE TABLE t6(a, b);
- }
- recursive_select 32 t3 {db eval "INSERT INTO t5 VALUES(1, 2)"}
- execsql {
- COMMIT;
- SELECT * FROM t5;
- }
- } {1 2}
-
-}
-db close
-
-tv sectorsize 4096
-do_test pager1.10.x.1 {
- faultsim_delete_and_reopen
- execsql {
- PRAGMA auto_vacuum = none;
- PRAGMA page_size = 1024;
- CREATE TABLE t1(x);
- }
- for {set i 0} {$i<30} {incr i} {
- execsql { INSERT INTO t1 VALUES(zeroblob(900)) }
- }
- file size test.db
-} {32768}
-do_test pager1.10.x.2 {
- execsql {
- CREATE TABLE t2(x);
- DROP TABLE t2;
- }
- file size test.db
-} {33792}
-do_test pager1.10.x.3 {
- execsql {
- BEGIN;
- CREATE TABLE t2(x);
- }
- recursive_select 30 t1
- execsql {
- CREATE TABLE t3(x);
- COMMIT;
- }
-} {}
-
-db close
-tv delete
-
-testvfs tv -default 1
-faultsim_delete_and_reopen
-db func a_string a_string
-do_execsql_test pager1-11.1 {
- PRAGMA journal_mode = DELETE;
- PRAGMA cache_size = 10;
- BEGIN;
- CREATE TABLE zz(top PRIMARY KEY);
- INSERT INTO zz VALUES(a_string(222));
- INSERT INTO zz SELECT a_string((SELECT 222+max(rowid) FROM zz)) FROM zz;
- INSERT INTO zz SELECT a_string((SELECT 222+max(rowid) FROM zz)) FROM zz;
- INSERT INTO zz SELECT a_string((SELECT 222+max(rowid) FROM zz)) FROM zz;
- INSERT INTO zz SELECT a_string((SELECT 222+max(rowid) FROM zz)) FROM zz;
- INSERT INTO zz SELECT a_string((SELECT 222+max(rowid) FROM zz)) FROM zz;
- COMMIT;
- BEGIN;
- UPDATE zz SET top = a_string(345);
-} {delete}
-
-proc lockout {method args} { return SQLITE_IOERR }
-tv script lockout
-tv filter {xWrite xTruncate xSync}
-do_catchsql_test pager1-11.2 { COMMIT } {1 {disk I/O error}}
-
-tv script {}
-do_test pager1-11.3 {
- sqlite3 db2 test.db
- execsql {
- PRAGMA journal_mode = TRUNCATE;
- PRAGMA integrity_check;
- } db2
-} {truncate ok}
-do_test pager1-11.4 {
- db2 close
- file exists test.db-journal
-} {0}
-do_execsql_test pager1-11.5 { SELECT count(*) FROM zz } {32}
-db close
-tv delete
-
-#-------------------------------------------------------------------------
-# Test "PRAGMA page_size"
-#
-testvfs tv -default 1
-tv sectorsize 1024
-foreach pagesize {
- 512 1024 2048 4096 8192 16384 32768
-} {
- faultsim_delete_and_reopen
-
- # The sector-size (according to the VFS) is 1024 bytes. So if the
- # page-size requested using "PRAGMA page_size" is greater than the
- # compile time value of SQLITE_MAX_PAGE_SIZE, then the effective
- # page-size remains 1024 bytes.
- #
- set eff $pagesize
- if {$eff > $::SQLITE_MAX_PAGE_SIZE} { set eff 1024 }
-
- do_test pager1-12.$pagesize.1 {
- sqlite3 db2 test.db
- execsql "
- PRAGMA page_size = $pagesize;
- CREATE VIEW v AS SELECT * FROM sqlite_master;
- " db2
- file size test.db
- } $eff
- do_test pager1-12.$pagesize.2 {
- sqlite3 db2 test.db
- execsql {
- SELECT count(*) FROM v;
- PRAGMA main.page_size;
- } db2
- } [list 1 $eff]
- do_test pager1-12.$pagesize.3 {
- execsql {
- SELECT count(*) FROM v;
- PRAGMA main.page_size;
- }
- } [list 1 $eff]
- db2 close
-}
-db close
-tv delete
-
-#-------------------------------------------------------------------------
-# Test specal "PRAGMA journal_mode=PERSIST" test cases.
-#
-# pager1-13.1.*: This tests a special case encountered in persistent
-# journal mode: If the journal associated with a transaction
-# is smaller than the journal file (because a previous
-# transaction left a very large non-hot journal file in the
-# file-system), then SQLite has to be careful that there is
-# not a journal-header left over from a previous transaction
-# immediately following the journal content just written.
-# If there is, and the process crashes so that the journal
-# becomes a hot-journal and must be rolled back by another
-# process, there is a danger that the other process may roll
-# back the aborted transaction, then continue copying data
-# from an older transaction from the remainder of the journal.
-# See the syncJournal() function for details.
-#
-# pager1-13.2.*: Same test as the previous. This time, throw an index into
-# the mix to make the integrity-check more likely to catch
-# errors.
-#
-testvfs tv -default 1
-tv script xSyncCb
-tv filter xSync
-proc xSyncCb {method filename args} {
- set t [file tail $filename]
- if {$t == "test.db"} faultsim_save
- return SQLITE_OK
-}
-faultsim_delete_and_reopen
-db func a_string a_string
-
-# The UPDATE statement at the end of this test case creates a really big
-# journal. Since the cache-size is only 10 pages, the journal contains
-# frequent journal headers.
-#
-do_execsql_test pager1-13.1.1 {
- PRAGMA page_size = 1024;
- PRAGMA journal_mode = PERSIST;
- PRAGMA cache_size = 10;
- BEGIN;
- CREATE TABLE t1(a INTEGER PRIMARY KEY, b BLOB);
- INSERT INTO t1 VALUES(NULL, a_string(400));
- INSERT INTO t1 SELECT NULL, a_string(400) FROM t1; /* 2 */
- INSERT INTO t1 SELECT NULL, a_string(400) FROM t1; /* 4 */
- INSERT INTO t1 SELECT NULL, a_string(400) FROM t1; /* 8 */
- INSERT INTO t1 SELECT NULL, a_string(400) FROM t1; /* 16 */
- INSERT INTO t1 SELECT NULL, a_string(400) FROM t1; /* 32 */
- INSERT INTO t1 SELECT NULL, a_string(400) FROM t1; /* 64 */
- INSERT INTO t1 SELECT NULL, a_string(400) FROM t1; /* 128 */
- COMMIT;
- UPDATE t1 SET b = a_string(400);
-} {persist}
-
-if {$::tcl_platform(platform)!="windows"} {
-# Run transactions of increasing sizes. Eventually, one (or more than one)
-# of these will write just enough content that one of the old headers created
-# by the transaction in the block above lies immediately after the content
-# journalled by the current transaction.
-#
-for {set nUp 1} {$nUp<64} {incr nUp} {
- do_execsql_test pager1-13.1.2.$nUp.1 {
- UPDATE t1 SET b = a_string(399) WHERE a <= $nUp
- } {}
- do_execsql_test pager1-13.1.2.$nUp.2 { PRAGMA integrity_check } {ok}
-
- # Try to access the snapshot of the file-system.
- #
- sqlite3 db2 sv_test.db
- do_test pager1-13.1.2.$nUp.3 {
- execsql { SELECT sum(length(b)) FROM t1 } db2
- } [expr {128*400 - ($nUp-1)}]
- do_test pager1-13.1.2.$nUp.4 {
- execsql { PRAGMA integrity_check } db2
- } {ok}
- db2 close
-}
-}
-
-if {$::tcl_platform(platform)!="windows"} {
-# Same test as above. But this time with an index on the table.
-#
-do_execsql_test pager1-13.2.1 {
- CREATE INDEX i1 ON t1(b);
- UPDATE t1 SET b = a_string(400);
-} {}
-for {set nUp 1} {$nUp<64} {incr nUp} {
- do_execsql_test pager1-13.2.2.$nUp.1 {
- UPDATE t1 SET b = a_string(399) WHERE a <= $nUp
- } {}
- do_execsql_test pager1-13.2.2.$nUp.2 { PRAGMA integrity_check } {ok}
- sqlite3 db2 sv_test.db
- do_test pager1-13.2.2.$nUp.3 {
- execsql { SELECT sum(length(b)) FROM t1 } db2
- } [expr {128*400 - ($nUp-1)}]
- do_test pager1-13.2.2.$nUp.4 {
- execsql { PRAGMA integrity_check } db2
- } {ok}
- db2 close
-}
-}
-
-db close
-tv delete
-
-#-------------------------------------------------------------------------
-# Test specal "PRAGMA journal_mode=OFF" test cases.
-#
-faultsim_delete_and_reopen
-do_execsql_test pager1-14.1.1 {
- PRAGMA journal_mode = OFF;
- CREATE TABLE t1(a, b);
- BEGIN;
- INSERT INTO t1 VALUES(1, 2);
- COMMIT;
- SELECT * FROM t1;
-} {off 1 2}
-do_catchsql_test pager1-14.1.2 {
- BEGIN;
- INSERT INTO t1 VALUES(3, 4);
- ROLLBACK;
-} {0 {}}
-do_execsql_test pager1-14.1.3 {
- SELECT * FROM t1;
-} {1 2}
-do_catchsql_test pager1-14.1.4 {
- BEGIN;
- INSERT INTO t1(rowid, a, b) SELECT a+3, b, b FROM t1;
- INSERT INTO t1(rowid, a, b) SELECT a+3, b, b FROM t1;
-} {1 {UNIQUE constraint failed: t1.rowid}}
-do_execsql_test pager1-14.1.5 {
- COMMIT;
- SELECT * FROM t1;
-} {1 2 2 2}
-
-#-------------------------------------------------------------------------
-# Test opening and closing the pager sub-system with different values
-# for the sqlite3_vfs.szOsFile variable.
-#
-faultsim_delete_and_reopen
-do_execsql_test pager1-15.0 {
- CREATE TABLE tx(y, z);
- INSERT INTO tx VALUES('Ayutthaya', 'Beijing');
- INSERT INTO tx VALUES('London', 'Tokyo');
-} {}
-db close
-for {set i 0} {$i<513} {incr i 3} {
- testvfs tv -default 1 -szosfile $i
- sqlite3 db test.db
- do_execsql_test pager1-15.$i.1 {
- SELECT * FROM tx;
- } {Ayutthaya Beijing London Tokyo}
- db close
- tv delete
-}
-
-#-------------------------------------------------------------------------
-# Check that it is not possible to open a database file if the full path
-# to the associated journal file will be longer than sqlite3_vfs.mxPathname.
-#
-testvfs tv -default 1
-tv script xOpenCb
-tv filter xOpen
-proc xOpenCb {method filename args} {
- set ::file_len [string length $filename]
-}
-sqlite3 db test.db
-db close
-tv delete
-
-for {set ii [expr $::file_len-5]} {$ii < [expr $::file_len+20]} {incr ii} {
- testvfs tv -default 1 -mxpathname $ii
-
- # The length of the full path to file "test.db-journal" is ($::file_len+8).
- # If the configured sqlite3_vfs.mxPathname value greater than or equal to
- # this, then the file can be opened. Otherwise, it cannot.
- #
- if {$ii >= [expr $::file_len+8]} {
- set res {0 {}}
- } else {
- set res {1 {unable to open database file}}
- }
-
- do_test pager1-16.1.$ii {
- list [catch { sqlite3 db test.db } msg] $msg
- } $res
-
- catch {db close}
- tv delete
-}
-
-
-#-------------------------------------------------------------------------
-# Test the pagers response to the b-tree layer requesting illegal page
-# numbers:
-#
-# + The locking page,
-# + Page 0,
-# + A page with a page number greater than (2^31-1).
-#
-# These tests will not work if SQLITE_DIRECT_OVERFLOW_READ is defined. In
-# that case IO errors are sometimes reported instead of SQLITE_CORRUPT.
-#
-ifcapable !direct_read {
-do_test pager1-18.1 {
- faultsim_delete_and_reopen
- db func a_string a_string
- execsql {
- PRAGMA page_size = 1024;
- CREATE TABLE t1(a, b);
- INSERT INTO t1 VALUES(a_string(500), a_string(200));
- INSERT INTO t1 SELECT a_string(500), a_string(200) FROM t1;
- INSERT INTO t1 SELECT a_string(500), a_string(200) FROM t1;
- INSERT INTO t1 SELECT a_string(500), a_string(200) FROM t1;
- INSERT INTO t1 SELECT a_string(500), a_string(200) FROM t1;
- INSERT INTO t1 SELECT a_string(500), a_string(200) FROM t1;
- INSERT INTO t1 SELECT a_string(500), a_string(200) FROM t1;
- INSERT INTO t1 SELECT a_string(500), a_string(200) FROM t1;
- }
-} {}
-do_test pager1-18.2 {
- set root [db one "SELECT rootpage FROM sqlite_master"]
- set lockingpage [expr (0x10000/1024) + 1]
- execsql {
- PRAGMA writable_schema = 1;
- UPDATE sqlite_master SET rootpage = $lockingpage;
- }
- sqlite3 db2 test.db
- catchsql { SELECT count(*) FROM t1 } db2
-} {1 {database disk image is malformed}}
-db2 close
-do_test pager1-18.3.1 {
- execsql {
- CREATE TABLE t2(x);
- INSERT INTO t2 VALUES(a_string(5000));
- }
- set pgno [expr ([file size test.db] / 1024)-2]
- hexio_write test.db [expr ($pgno-1)*1024] 00000000
- sqlite3 db2 test.db
- # even though x is malformed, because typeof() does
- # not load the content of x, the error is not noticed.
- catchsql { SELECT typeof(x) FROM t2 } db2
-} {0 text}
-do_test pager1-18.3.2 {
- # in this case, the value of x is loaded and so the error is
- # detected
- catchsql { SELECT length(x||'') FROM t2 } db2
-} {1 {database disk image is malformed}}
-db2 close
-do_test pager1-18.3.3 {
- execsql {
- DELETE FROM t2;
- INSERT INTO t2 VALUES(randomblob(5000));
- }
- set pgno [expr ([file size test.db] / 1024)-2]
- hexio_write test.db [expr ($pgno-1)*1024] 00000000
- sqlite3 db2 test.db
- # even though x is malformed, because length() and typeof() do
- # not load the content of x, the error is not noticed.
- catchsql { SELECT length(x), typeof(x) FROM t2 } db2
-} {0 {5000 blob}}
-do_test pager1-18.3.4 {
- # in this case, the value of x is loaded and so the error is
- # detected
- catchsql { SELECT length(x||'') FROM t2 } db2
-} {1 {database disk image is malformed}}
-db2 close
-do_test pager1-18.4 {
- hexio_write test.db [expr ($pgno-1)*1024] 90000000
- sqlite3 db2 test.db
- catchsql { SELECT length(x||'') FROM t2 } db2
-} {1 {database disk image is malformed}}
-db2 close
-do_test pager1-18.5 {
- sqlite3 db ""
- execsql {
- CREATE TABLE t1(a, b);
- CREATE TABLE t2(a, b);
- PRAGMA writable_schema = 1;
- UPDATE sqlite_master SET rootpage=5 WHERE tbl_name = 't1';
- PRAGMA writable_schema = 0;
- ALTER TABLE t1 RENAME TO x1;
- }
- catchsql { SELECT * FROM x1 }
-} {1 {database disk image is malformed}}
-db close
-
-do_test pager1-18.6 {
- faultsim_delete_and_reopen
- db func a_string a_string
- execsql {
- PRAGMA page_size = 1024;
- CREATE TABLE t1(x);
- INSERT INTO t1 VALUES(a_string(800));
- INSERT INTO t1 VALUES(a_string(800));
- }
-
- set root [db one "SELECT rootpage FROM sqlite_master"]
- db close
-
- hexio_write test.db [expr ($root-1)*1024 + 8] 00000000
- sqlite3 db test.db
- catchsql { SELECT length(x) FROM t1 }
-} {1 {database disk image is malformed}}
-}
-
-do_test pager1-19.1 {
- sqlite3 db ""
- db func a_string a_string
- execsql {
- PRAGMA page_size = 512;
- PRAGMA auto_vacuum = 1;
- CREATE TABLE t1(aa, ab, ac, ad, ae, af, ag, ah, ai, aj, ak, al, am, an,
- ba, bb, bc, bd, be, bf, bg, bh, bi, bj, bk, bl, bm, bn,
- ca, cb, cc, cd, ce, cf, cg, ch, ci, cj, ck, cl, cm, cn,
- da, db, dc, dd, de, df, dg, dh, di, dj, dk, dl, dm, dn,
- ea, eb, ec, ed, ee, ef, eg, eh, ei, ej, ek, el, em, en,
- fa, fb, fc, fd, fe, ff, fg, fh, fi, fj, fk, fl, fm, fn,
- ga, gb, gc, gd, ge, gf, gg, gh, gi, gj, gk, gl, gm, gn,
- ha, hb, hc, hd, he, hf, hg, hh, hi, hj, hk, hl, hm, hn,
- ia, ib, ic, id, ie, if, ig, ih, ii, ij, ik, il, im, ix,
- ja, jb, jc, jd, je, jf, jg, jh, ji, jj, jk, jl, jm, jn,
- ka, kb, kc, kd, ke, kf, kg, kh, ki, kj, kk, kl, km, kn,
- la, lb, lc, ld, le, lf, lg, lh, li, lj, lk, ll, lm, ln,
- ma, mb, mc, md, me, mf, mg, mh, mi, mj, mk, ml, mm, mn
- );
- CREATE TABLE t2(aa, ab, ac, ad, ae, af, ag, ah, ai, aj, ak, al, am, an,
- ba, bb, bc, bd, be, bf, bg, bh, bi, bj, bk, bl, bm, bn,
- ca, cb, cc, cd, ce, cf, cg, ch, ci, cj, ck, cl, cm, cn,
- da, db, dc, dd, de, df, dg, dh, di, dj, dk, dl, dm, dn,
- ea, eb, ec, ed, ee, ef, eg, eh, ei, ej, ek, el, em, en,
- fa, fb, fc, fd, fe, ff, fg, fh, fi, fj, fk, fl, fm, fn,
- ga, gb, gc, gd, ge, gf, gg, gh, gi, gj, gk, gl, gm, gn,
- ha, hb, hc, hd, he, hf, hg, hh, hi, hj, hk, hl, hm, hn,
- ia, ib, ic, id, ie, if, ig, ih, ii, ij, ik, il, im, ix,
- ja, jb, jc, jd, je, jf, jg, jh, ji, jj, jk, jl, jm, jn,
- ka, kb, kc, kd, ke, kf, kg, kh, ki, kj, kk, kl, km, kn,
- la, lb, lc, ld, le, lf, lg, lh, li, lj, lk, ll, lm, ln,
- ma, mb, mc, md, me, mf, mg, mh, mi, mj, mk, ml, mm, mn
- );
- INSERT INTO t1(aa) VALUES( a_string(100000) );
- INSERT INTO t2(aa) VALUES( a_string(100000) );
- VACUUM;
- }
-} {}
-
-#-------------------------------------------------------------------------
-# Test a couple of special cases that come up while committing
-# transactions:
-#
-# pager1-20.1.*: Committing an in-memory database transaction when the
-# database has not been modified at all.
-#
-# pager1-20.2.*: As above, but with a normal db in exclusive-locking mode.
-#
-# pager1-20.3.*: Committing a transaction in WAL mode where the database has
-# been modified, but all dirty pages have been flushed to
-# disk before the commit.
-#
-do_test pager1-20.1.1 {
- catch {db close}
- sqlite3 db :memory:
- execsql {
- CREATE TABLE one(two, three);
- INSERT INTO one VALUES('a', 'b');
- }
-} {}
-do_test pager1-20.1.2 {
- execsql {
- BEGIN EXCLUSIVE;
- COMMIT;
- }
-} {}
-
-do_test pager1-20.2.1 {
- faultsim_delete_and_reopen
- execsql {
- PRAGMA locking_mode = exclusive;
- PRAGMA journal_mode = persist;
- CREATE TABLE one(two, three);
- INSERT INTO one VALUES('a', 'b');
- }
-} {exclusive persist}
-do_test pager1-20.2.2 {
- execsql {
- BEGIN EXCLUSIVE;
- COMMIT;
- }
-} {}
-
-ifcapable wal {
- do_test pager1-20.3.1 {
- faultsim_delete_and_reopen
- db func a_string a_string
- execsql {
- PRAGMA cache_size = 10;
- PRAGMA journal_mode = wal;
- BEGIN;
- CREATE TABLE t1(x);
- CREATE TABLE t2(y);
- INSERT INTO t1 VALUES(a_string(800));
- INSERT INTO t1 SELECT a_string(800) FROM t1; /* 2 */
- INSERT INTO t1 SELECT a_string(800) FROM t1; /* 4 */
- INSERT INTO t1 SELECT a_string(800) FROM t1; /* 8 */
- INSERT INTO t1 SELECT a_string(800) FROM t1; /* 16 */
- INSERT INTO t1 SELECT a_string(800) FROM t1; /* 32 */
- COMMIT;
- }
- } {wal}
- do_test pager1-20.3.2 {
- execsql {
- BEGIN;
- INSERT INTO t2 VALUES('xxxx');
- }
- recursive_select 32 t1
- execsql COMMIT
- } {}
-}
-
-#-------------------------------------------------------------------------
-# Test that a WAL database may not be opened if:
-#
-# pager1-21.1.*: The VFS has an iVersion less than 2, or
-# pager1-21.2.*: The VFS does not provide xShmXXX() methods.
-#
-ifcapable wal {
- do_test pager1-21.0 {
- faultsim_delete_and_reopen
- execsql {
- PRAGMA journal_mode = WAL;
- CREATE TABLE ko(c DEFAULT 'abc', b DEFAULT 'def');
- INSERT INTO ko DEFAULT VALUES;
- }
- } {wal}
- do_test pager1-21.1 {
- testvfs tv -noshm 1
- sqlite3 db2 test.db -vfs tv
- catchsql { SELECT * FROM ko } db2
- } {1 {unable to open database file}}
- db2 close
- tv delete
- do_test pager1-21.2 {
- testvfs tv -iversion 1
- sqlite3 db2 test.db -vfs tv
- catchsql { SELECT * FROM ko } db2
- } {1 {unable to open database file}}
- db2 close
- tv delete
-}
-
-#-------------------------------------------------------------------------
-# Test that a "PRAGMA wal_checkpoint":
-#
-# pager1-22.1.*: is a no-op on a non-WAL db, and
-# pager1-22.2.*: does not cause xSync calls with a synchronous=off db.
-#
-ifcapable wal {
- do_test pager1-22.1.1 {
- faultsim_delete_and_reopen
- execsql {
- CREATE TABLE ko(c DEFAULT 'abc', b DEFAULT 'def');
- INSERT INTO ko DEFAULT VALUES;
- }
- execsql { PRAGMA wal_checkpoint }
- } {0 -1 -1}
- do_test pager1-22.2.1 {
- testvfs tv -default 1
- tv filter xSync
- tv script xSyncCb
- proc xSyncCb {args} {incr ::synccount}
- set ::synccount 0
- sqlite3 db test.db
- execsql {
- PRAGMA synchronous = off;
- PRAGMA journal_mode = WAL;
- INSERT INTO ko DEFAULT VALUES;
- }
- execsql { PRAGMA wal_checkpoint }
- set synccount
- } {0}
- db close
- tv delete
-}
-
-#-------------------------------------------------------------------------
-# Tests for changing journal mode.
-#
-# pager1-23.1.*: Test that when changing from PERSIST to DELETE mode,
-# the journal file is deleted.
-#
-# pager1-23.2.*: Same test as above, but while a shared lock is held
-# on the database file.
-#
-# pager1-23.3.*: Same test as above, but while a reserved lock is held
-# on the database file.
-#
-# pager1-23.4.*: And, for fun, while holding an exclusive lock.
-#
-# pager1-23.5.*: Try to set various different journal modes with an
-# in-memory database (only MEMORY and OFF should work).
-#
-# pager1-23.6.*: Try to set locking_mode=normal on an in-memory database
-# (doesn't work - in-memory databases always use
-# locking_mode=exclusive).
-#
-do_test pager1-23.1.1 {
- faultsim_delete_and_reopen
- execsql {
- PRAGMA journal_mode = PERSIST;
- CREATE TABLE t1(a, b);
- }
- file exists test.db-journal
-} {1}
-do_test pager1-23.1.2 {
- execsql { PRAGMA journal_mode = DELETE }
- file exists test.db-journal
-} {0}
-
-do_test pager1-23.2.1 {
- execsql {
- PRAGMA journal_mode = PERSIST;
- INSERT INTO t1 VALUES('Canberra', 'ACT');
- }
- db eval { SELECT * FROM t1 } {
- db eval { PRAGMA journal_mode = DELETE }
- }
- execsql { PRAGMA journal_mode }
-} {delete}
-do_test pager1-23.2.2 {
- file exists test.db-journal
-} {0}
-
-do_test pager1-23.3.1 {
- execsql {
- PRAGMA journal_mode = PERSIST;
- INSERT INTO t1 VALUES('Darwin', 'NT');
- BEGIN IMMEDIATE;
- }
- db eval { PRAGMA journal_mode = DELETE }
- execsql { PRAGMA journal_mode }
-} {delete}
-do_test pager1-23.3.2 {
- file exists test.db-journal
-} {0}
-do_test pager1-23.3.3 {
- execsql COMMIT
-} {}
-
-do_test pager1-23.4.1 {
- execsql {
- PRAGMA journal_mode = PERSIST;
- INSERT INTO t1 VALUES('Adelaide', 'SA');
- BEGIN EXCLUSIVE;
- }
- db eval { PRAGMA journal_mode = DELETE }
- execsql { PRAGMA journal_mode }
-} {delete}
-do_test pager1-23.4.2 {
- file exists test.db-journal
-} {0}
-do_test pager1-23.4.3 {
- execsql COMMIT
-} {}
-
-do_test pager1-23.5.1 {
- faultsim_delete_and_reopen
- sqlite3 db :memory:
-} {}
-foreach {tn mode possible} {
- 2 off 1
- 3 memory 1
- 4 persist 0
- 5 delete 0
- 6 wal 0
- 7 truncate 0
-} {
- do_test pager1-23.5.$tn.1 {
- execsql "PRAGMA journal_mode = off"
- execsql "PRAGMA journal_mode = $mode"
- } [if $possible {list $mode} {list off}]
- do_test pager1-23.5.$tn.2 {
- execsql "PRAGMA journal_mode = memory"
- execsql "PRAGMA journal_mode = $mode"
- } [if $possible {list $mode} {list memory}]
-}
-do_test pager1-23.6.1 {
- execsql {PRAGMA locking_mode = normal}
-} {exclusive}
-do_test pager1-23.6.2 {
- execsql {PRAGMA locking_mode = exclusive}
-} {exclusive}
-do_test pager1-23.6.3 {
- execsql {PRAGMA locking_mode}
-} {exclusive}
-do_test pager1-23.6.4 {
- execsql {PRAGMA main.locking_mode}
-} {exclusive}
-
-#-------------------------------------------------------------------------
-#
-do_test pager1-24.1.1 {
- faultsim_delete_and_reopen
- db func a_string a_string
- execsql {
- PRAGMA cache_size = 10;
- PRAGMA auto_vacuum = FULL;
- CREATE TABLE x1(x, y, z, PRIMARY KEY(y, z));
- CREATE TABLE x2(x, y, z, PRIMARY KEY(y, z));
- INSERT INTO x2 VALUES(a_string(400), a_string(500), a_string(600));
- INSERT INTO x2 SELECT a_string(600), a_string(400), a_string(500) FROM x2;
- INSERT INTO x2 SELECT a_string(500), a_string(600), a_string(400) FROM x2;
- INSERT INTO x2 SELECT a_string(400), a_string(500), a_string(600) FROM x2;
- INSERT INTO x2 SELECT a_string(600), a_string(400), a_string(500) FROM x2;
- INSERT INTO x2 SELECT a_string(500), a_string(600), a_string(400) FROM x2;
- INSERT INTO x2 SELECT a_string(400), a_string(500), a_string(600) FROM x2;
- INSERT INTO x1 SELECT * FROM x2;
- }
-} {}
-do_test pager1-24.1.2 {
- execsql {
- BEGIN;
- DELETE FROM x1 WHERE rowid<32;
- }
- recursive_select 64 x2
-} {}
-do_test pager1-24.1.3 {
- execsql {
- UPDATE x1 SET z = a_string(300) WHERE rowid>40;
- COMMIT;
- PRAGMA integrity_check;
- SELECT count(*) FROM x1;
- }
-} {ok 33}
-
-do_test pager1-24.1.4 {
- execsql {
- DELETE FROM x1;
- INSERT INTO x1 SELECT * FROM x2;
- BEGIN;
- DELETE FROM x1 WHERE rowid<32;
- UPDATE x1 SET z = a_string(299) WHERE rowid>40;
- }
- recursive_select 64 x2 {db eval COMMIT}
- execsql {
- PRAGMA integrity_check;
- SELECT count(*) FROM x1;
- }
-} {ok 33}
-
-do_test pager1-24.1.5 {
- execsql {
- DELETE FROM x1;
- INSERT INTO x1 SELECT * FROM x2;
- }
- recursive_select 64 x2 { db eval {CREATE TABLE x3(x, y, z)} }
- execsql { SELECT * FROM x3 }
-} {}
-
-#-------------------------------------------------------------------------
-#
-do_test pager1-25-1 {
- faultsim_delete_and_reopen
- execsql {
- BEGIN;
- SAVEPOINT abc;
- CREATE TABLE t1(a, b);
- ROLLBACK TO abc;
- COMMIT;
- }
- db close
-} {}
-do_test pager1-25-2 {
- faultsim_delete_and_reopen
- execsql {
- SAVEPOINT abc;
- CREATE TABLE t1(a, b);
- ROLLBACK TO abc;
- COMMIT;
- }
- db close
-} {}
-
-#-------------------------------------------------------------------------
-# Sector-size tests.
-#
-do_test pager1-26.1 {
- testvfs tv -default 1
- tv sectorsize 4096
- faultsim_delete_and_reopen
- db func a_string a_string
- execsql {
- PRAGMA page_size = 512;
- CREATE TABLE tbl(a PRIMARY KEY, b UNIQUE);
- BEGIN;
- INSERT INTO tbl VALUES(a_string(25), a_string(600));
- INSERT INTO tbl SELECT a_string(25), a_string(600) FROM tbl;
- INSERT INTO tbl SELECT a_string(25), a_string(600) FROM tbl;
- INSERT INTO tbl SELECT a_string(25), a_string(600) FROM tbl;
- INSERT INTO tbl SELECT a_string(25), a_string(600) FROM tbl;
- INSERT INTO tbl SELECT a_string(25), a_string(600) FROM tbl;
- INSERT INTO tbl SELECT a_string(25), a_string(600) FROM tbl;
- INSERT INTO tbl SELECT a_string(25), a_string(600) FROM tbl;
- COMMIT;
- }
-} {}
-do_execsql_test pager1-26.1 {
- UPDATE tbl SET b = a_string(550);
-} {}
-db close
-tv delete
-
-#-------------------------------------------------------------------------
-#
-do_test pager1.27.1 {
- faultsim_delete_and_reopen
- sqlite3_pager_refcounts db
- execsql {
- BEGIN;
- CREATE TABLE t1(a, b);
- }
- sqlite3_pager_refcounts db
- execsql COMMIT
-} {}
-
-#-------------------------------------------------------------------------
-# Test that attempting to open a write-transaction with
-# locking_mode=exclusive in WAL mode fails if there are other clients on
-# the same database.
-#
-catch { db close }
-ifcapable wal {
- do_multiclient_test tn {
- do_test pager1-28.$tn.1 {
- sql1 {
- PRAGMA journal_mode = WAL;
- CREATE TABLE t1(a, b);
- INSERT INTO t1 VALUES('a', 'b');
- }
- } {wal}
- do_test pager1-28.$tn.2 { sql2 { SELECT * FROM t1 } } {a b}
-
- do_test pager1-28.$tn.3 { sql1 { PRAGMA locking_mode=exclusive } } {exclusive}
- do_test pager1-28.$tn.4 {
- csql1 { BEGIN; INSERT INTO t1 VALUES('c', 'd'); }
- } {1 {database is locked}}
- code2 { db2 close ; sqlite3 db2 test.db }
- do_test pager1-28.$tn.4 {
- sql1 { INSERT INTO t1 VALUES('c', 'd'); COMMIT }
- } {}
- }
-}
-
-#-------------------------------------------------------------------------
-# Normally, when changing from journal_mode=PERSIST to DELETE the pager
-# attempts to delete the journal file. However, if it cannot obtain a
-# RESERVED lock on the database file, this step is skipped.
-#
-do_multiclient_test tn {
- do_test pager1-28.$tn.1 {
- sql1 {
- PRAGMA journal_mode = PERSIST;
- CREATE TABLE t1(a, b);
- INSERT INTO t1 VALUES('a', 'b');
- }
- } {persist}
- do_test pager1-28.$tn.2 { file exists test.db-journal } 1
- do_test pager1-28.$tn.3 { sql1 { PRAGMA journal_mode = DELETE } } delete
- do_test pager1-28.$tn.4 { file exists test.db-journal } 0
-
- do_test pager1-28.$tn.5 {
- sql1 {
- PRAGMA journal_mode = PERSIST;
- INSERT INTO t1 VALUES('c', 'd');
- }
- } {persist}
- do_test pager1-28.$tn.6 { file exists test.db-journal } 1
- do_test pager1-28.$tn.7 {
- sql2 { BEGIN; INSERT INTO t1 VALUES('e', 'f'); }
- } {}
- do_test pager1-28.$tn.8 { file exists test.db-journal } 1
- do_test pager1-28.$tn.9 { sql1 { PRAGMA journal_mode = DELETE } } delete
- do_test pager1-28.$tn.10 { file exists test.db-journal } 1
-
- do_test pager1-28.$tn.11 { sql2 COMMIT } {}
- do_test pager1-28.$tn.12 { file exists test.db-journal } 0
-
- do_test pager1-28-$tn.13 {
- code1 { set channel [db incrblob -readonly t1 a 2] }
- sql1 {
- PRAGMA journal_mode = PERSIST;
- INSERT INTO t1 VALUES('g', 'h');
- }
- } {persist}
- do_test pager1-28.$tn.14 { file exists test.db-journal } 1
- do_test pager1-28.$tn.15 {
- sql2 { BEGIN; INSERT INTO t1 VALUES('e', 'f'); }
- } {}
- do_test pager1-28.$tn.16 { sql1 { PRAGMA journal_mode = DELETE } } delete
- do_test pager1-28.$tn.17 { file exists test.db-journal } 1
-
- do_test pager1-28.$tn.17 { csql2 { COMMIT } } {1 {database is locked}}
- do_test pager1-28-$tn.18 { code1 { read $channel } } c
- do_test pager1-28-$tn.19 { code1 { close $channel } } {}
- do_test pager1-28.$tn.20 { sql2 { COMMIT } } {}
-}
-
-do_test pager1-29.1 {
- faultsim_delete_and_reopen
- execsql {
- PRAGMA page_size = 1024;
- PRAGMA auto_vacuum = full;
- PRAGMA locking_mode=exclusive;
- CREATE TABLE t1(a, b);
- INSERT INTO t1 VALUES(1, 2);
- }
- file size test.db
-} [expr 1024*3]
-do_test pager1-29.2 {
- execsql {
- PRAGMA page_size = 4096;
- VACUUM;
- }
- file size test.db
-} [expr 4096*3]
-
-#-------------------------------------------------------------------------
-# Test that if an empty database file (size 0 bytes) is opened in
-# exclusive-locking mode, any journal file is deleted from the file-system
-# without being rolled back. And that the RESERVED lock obtained while
-# doing this is not released.
-#
-do_test pager1-30.1 {
- db close
- delete_file test.db
- delete_file test.db-journal
- set fd [open test.db-journal w]
- seek $fd [expr 512+1032*2]
- puts -nonewline $fd x
- close $fd
-
- sqlite3 db test.db
- execsql {
- PRAGMA locking_mode=EXCLUSIVE;
- SELECT count(*) FROM sqlite_master;
- PRAGMA lock_status;
- }
-} {exclusive 0 main reserved temp closed}
-
-#-------------------------------------------------------------------------
-# Test that if the "page-size" field in a journal-header is 0, the journal
-# file can still be rolled back. This is required for backward compatibility -
-# versions of SQLite prior to 3.5.8 always set this field to zero.
-#
-if {$tcl_platform(platform)=="unix"} {
-do_test pager1-31.1 {
- faultsim_delete_and_reopen
- execsql {
- PRAGMA cache_size = 10;
- PRAGMA page_size = 1024;
- CREATE TABLE t1(x, y, UNIQUE(x, y));
- INSERT INTO t1 VALUES(randomblob(1500), randomblob(1500));
- INSERT INTO t1 SELECT randomblob(1500), randomblob(1500) FROM t1;
- INSERT INTO t1 SELECT randomblob(1500), randomblob(1500) FROM t1;
- INSERT INTO t1 SELECT randomblob(1500), randomblob(1500) FROM t1;
- INSERT INTO t1 SELECT randomblob(1500), randomblob(1500) FROM t1;
- INSERT INTO t1 SELECT randomblob(1500), randomblob(1500) FROM t1;
- INSERT INTO t1 SELECT randomblob(1500), randomblob(1500) FROM t1;
- INSERT INTO t1 SELECT randomblob(1500), randomblob(1500) FROM t1;
- INSERT INTO t1 SELECT randomblob(1500), randomblob(1500) FROM t1;
- INSERT INTO t1 SELECT randomblob(1500), randomblob(1500) FROM t1;
- INSERT INTO t1 SELECT randomblob(1500), randomblob(1500) FROM t1;
- BEGIN;
- UPDATE t1 SET y = randomblob(1499);
- }
- copy_file test.db test.db2
- copy_file test.db-journal test.db2-journal
-
- hexio_write test.db2-journal 24 00000000
- sqlite3 db2 test.db2
- execsql { PRAGMA integrity_check } db2
-} {ok}
-}
-
-#-------------------------------------------------------------------------
-# Test that a database file can be "pre-hinted" to a certain size and that
-# subsequent spilling of the pager cache does not result in the database
-# file being shrunk.
-#
-catch {db close}
-forcedelete test.db
-
-do_test pager1-32.1 {
- sqlite3 db test.db
- execsql {
- CREATE TABLE t1(x, y);
- }
- db close
- sqlite3 db test.db
- execsql {
- BEGIN;
- INSERT INTO t1 VALUES(1, randomblob(10000));
- }
- file_control_chunksize_test db main 1024
- file_control_sizehint_test db main 20971520; # 20MB
- execsql {
- PRAGMA cache_size = 10;
- INSERT INTO t1 VALUES(1, randomblob(10000));
- INSERT INTO t1 VALUES(2, randomblob(10000));
- INSERT INTO t1 SELECT x+2, randomblob(10000) from t1;
- INSERT INTO t1 SELECT x+4, randomblob(10000) from t1;
- INSERT INTO t1 SELECT x+8, randomblob(10000) from t1;
- INSERT INTO t1 SELECT x+16, randomblob(10000) from t1;
- SELECT count(*) FROM t1;
- COMMIT;
- }
- db close
- file size test.db
-} {20971520}
-
-# Cleanup 20MB file left by the previous test.
-forcedelete test.db
-
-#-------------------------------------------------------------------------
-# Test that if a transaction is committed in journal_mode=DELETE mode,
-# and the call to unlink() returns an ENOENT error, the COMMIT does not
-# succeed.
-#
-if {$::tcl_platform(platform)=="unix"} {
- do_test pager1-33.1 {
- sqlite3 db test.db
- execsql {
- CREATE TABLE t1(x);
- INSERT INTO t1 VALUES('one');
- INSERT INTO t1 VALUES('two');
- BEGIN;
- INSERT INTO t1 VALUES('three');
- INSERT INTO t1 VALUES('four');
- }
- forcedelete bak-journal
- file rename test.db-journal bak-journal
-
- catchsql COMMIT
- } {1 {disk I/O error}}
-
- do_test pager1-33.2 {
- file rename bak-journal test.db-journal
- execsql { SELECT * FROM t1 }
- } {one two}
-}
-
-#-------------------------------------------------------------------------
-# Test that appending pages to the database file then moving those pages
-# to the free-list before the transaction is committed does not cause
-# an error.
-#
-foreach {tn pragma strsize} {
- 1 { PRAGMA mmap_size = 0 } 2400
- 2 { } 2400
- 3 { PRAGMA mmap_size = 0 } 4400
- 4 { } 4400
-} {
- reset_db
- db func a_string a_string
- db eval $pragma
- do_execsql_test 34.$tn.1 {
- CREATE TABLE t1(a, b);
- INSERT INTO t1 VALUES(1, 2);
- }
- do_execsql_test 34.$tn.2 {
- BEGIN;
- INSERT INTO t1 VALUES(2, a_string($strsize));
- DELETE FROM t1 WHERE oid=2;
- COMMIT;
- PRAGMA integrity_check;
- } {ok}
-}
-
-#-------------------------------------------------------------------------
-#
-reset_db
-do_test 35 {
- sqlite3 db test.db
-
- execsql {
- CREATE TABLE t1(x, y);
- PRAGMA journal_mode = WAL;
- INSERT INTO t1 VALUES(1, 2);
- }
-
- execsql {
- BEGIN;
- CREATE TABLE t2(a, b);
- }
-
- hexio_write test.db-shm [expr 16*1024] [string repeat 0055 8192]
- catchsql ROLLBACK
-} {0 {}}
-
-do_multiclient_test tn {
- sql1 {
- PRAGMA auto_vacuum = 0;
- CREATE TABLE t1(x, y);
- INSERT INTO t1 VALUES(1, 2);
- }
-
- do_test 36.$tn.1 {
- sql2 { PRAGMA max_page_count = 2 }
- list [catch { sql2 { CREATE TABLE t2(x) } } msg] $msg
- } {1 {database or disk is full}}
-
- sql1 { PRAGMA checkpoint_fullfsync = 1 }
- sql1 { CREATE TABLE t2(x) }
-
- do_test 36.$tn.2 {
- sql2 { INSERT INTO t2 VALUES('xyz') }
- list [catch { sql2 { CREATE TABLE t3(x) } } msg] $msg
- } {1 {database or disk is full}}
-}
-
-forcedelete test1 test2
-foreach {tn uri} {
- 1 {file:?mode=memory&cache=shared}
- 2 {file:one?mode=memory&cache=shared}
- 3 {file:test1?cache=shared}
- 4 {file:test2?another=parameter&yet=anotherone}
-} {
- do_test 37.$tn {
- catch { db close }
- sqlite3_shutdown
- sqlite3_config_uri 1
- sqlite3 db $uri
-
- db eval {
- CREATE TABLE t1(x);
- INSERT INTO t1 VALUES(1);
- SELECT * FROM t1;
- }
- } {1}
-
- do_execsql_test 37.$tn.2 {
- VACUUM;
- SELECT * FROM t1;
- } {1}
-
- db close
- sqlite3_shutdown
- sqlite3_config_uri 0
-}
-
-do_test 38.1 {
- catch { db close }
- forcedelete test.db
- set fd [open test.db w]
- puts $fd "hello world"
- close $fd
- sqlite3 db test.db
- catchsql { CREATE TABLE t1(x) }
-} {1 {file is encrypted or is not a database}}
-do_test 38.2 {
- catch { db close }
- forcedelete test.db
-} {}
-
-do_test 39.1 {
- sqlite3 db test.db
- execsql {
- PRAGMA auto_vacuum = 1;
- CREATE TABLE t1(x);
- INSERT INTO t1 VALUES('xxx');
- INSERT INTO t1 VALUES('two');
- INSERT INTO t1 VALUES(randomblob(400));
- INSERT INTO t1 VALUES(randomblob(400));
- INSERT INTO t1 VALUES(randomblob(400));
- INSERT INTO t1 VALUES(randomblob(400));
- BEGIN;
- UPDATE t1 SET x = 'one' WHERE rowid=1;
- }
- set ::stmt [sqlite3_prepare db "SELECT * FROM t1 ORDER BY rowid" -1 dummy]
- sqlite3_step $::stmt
- sqlite3_column_text $::stmt 0
-} {one}
-do_test 39.2 {
- execsql { CREATE TABLE t2(x) }
- sqlite3_step $::stmt
- sqlite3_column_text $::stmt 0
-} {two}
-do_test 39.3 {
- sqlite3_finalize $::stmt
- execsql COMMIT
-} {}
-
-do_execsql_test 39.4 {
- PRAGMA auto_vacuum = 2;
- CREATE TABLE t3(x);
- CREATE TABLE t4(x);
-
- DROP TABLE t2;
- DROP TABLE t3;
- DROP TABLE t4;
-}
-do_test 39.5 {
- db close
- sqlite3 db test.db
- execsql {
- PRAGMA cache_size = 1;
- PRAGMA incremental_vacuum;
- PRAGMA integrity_check;
- }
-} {ok}
-
-do_test 40.1 {
- reset_db
- execsql {
- PRAGMA auto_vacuum = 1;
- CREATE TABLE t1(x PRIMARY KEY);
- INSERT INTO t1 VALUES(randomblob(1200));
- PRAGMA page_count;
- }
-} {6}
-do_test 40.2 {
- execsql {
- INSERT INTO t1 VALUES(randomblob(1200));
- INSERT INTO t1 VALUES(randomblob(1200));
- INSERT INTO t1 VALUES(randomblob(1200));
- }
-} {}
-do_test 40.3 {
- db close
- sqlite3 db test.db
- execsql {
- PRAGMA cache_size = 1;
- CREATE TABLE t2(x);
- PRAGMA integrity_check;
- }
-} {ok}
-
-do_test 41.1 {
- reset_db
- execsql {
- CREATE TABLE t1(x PRIMARY KEY);
- INSERT INTO t1 VALUES(randomblob(200));
- INSERT INTO t1 SELECT randomblob(200) FROM t1;
- INSERT INTO t1 SELECT randomblob(200) FROM t1;
- INSERT INTO t1 SELECT randomblob(200) FROM t1;
- INSERT INTO t1 SELECT randomblob(200) FROM t1;
- INSERT INTO t1 SELECT randomblob(200) FROM t1;
- INSERT INTO t1 SELECT randomblob(200) FROM t1;
- }
-} {}
-do_test 41.2 {
- testvfs tv -default 1
- tv sectorsize 16384;
- tv devchar [list]
- db close
- sqlite3 db test.db
- execsql {
- PRAGMA cache_size = 1;
- DELETE FROM t1 WHERE rowid%4;
- PRAGMA integrity_check;
- }
-} {ok}
-db close
-tv delete
-
-set pending_prev [sqlite3_test_control_pending_byte 0x1000000]
-do_test 42.1 {
- reset_db
- execsql {
- CREATE TABLE t1(x, y);
- INSERT INTO t1 VALUES(randomblob(200), randomblob(200));
- INSERT INTO t1 SELECT randomblob(200), randomblob(200) FROM t1;
- INSERT INTO t1 SELECT randomblob(200), randomblob(200) FROM t1;
- INSERT INTO t1 SELECT randomblob(200), randomblob(200) FROM t1;
- INSERT INTO t1 SELECT randomblob(200), randomblob(200) FROM t1;
- INSERT INTO t1 SELECT randomblob(200), randomblob(200) FROM t1;
- INSERT INTO t1 SELECT randomblob(200), randomblob(200) FROM t1;
- INSERT INTO t1 SELECT randomblob(200), randomblob(200) FROM t1;
- INSERT INTO t1 SELECT randomblob(200), randomblob(200) FROM t1;
- INSERT INTO t1 SELECT randomblob(200), randomblob(200) FROM t1;
- }
- db close
- sqlite3_test_control_pending_byte 0x0010000
- sqlite3 db test.db
- db eval { PRAGMA mmap_size = 0 }
- catchsql { SELECT sum(length(y)) FROM t1 }
-} {1 {database disk image is malformed}}
-do_test 42.2 {
- reset_db
- execsql {
- CREATE TABLE t1(x, y);
- INSERT INTO t1 VALUES(randomblob(200), randomblob(200));
- INSERT INTO t1 SELECT randomblob(200), randomblob(200) FROM t1;
- INSERT INTO t1 SELECT randomblob(200), randomblob(200) FROM t1;
- INSERT INTO t1 SELECT randomblob(200), randomblob(200) FROM t1;
- INSERT INTO t1 SELECT randomblob(200), randomblob(200) FROM t1;
- INSERT INTO t1 SELECT randomblob(200), randomblob(200) FROM t1;
- INSERT INTO t1 SELECT randomblob(200), randomblob(200) FROM t1;
- INSERT INTO t1 SELECT randomblob(200), randomblob(200) FROM t1;
- INSERT INTO t1 SELECT randomblob(200), randomblob(200) FROM t1;
- }
- db close
-
- testvfs tv -default 1
- tv sectorsize 16384;
- tv devchar [list]
- sqlite3 db test.db -vfs tv
- execsql { UPDATE t1 SET x = randomblob(200) }
-} {}
-db close
-tv delete
-sqlite3_test_control_pending_byte $pending_prev
-
-do_test 43.1 {
- reset_db
- execsql {
- CREATE TABLE t1(x, y);
- INSERT INTO t1 VALUES(1, 2);
- CREATE TABLE t2(x, y);
- INSERT INTO t2 VALUES(1, 2);
- CREATE TABLE t3(x, y);
- INSERT INTO t3 VALUES(1, 2);
- }
- db close
- sqlite3 db test.db
-
- db eval { PRAGMA mmap_size = 0 }
- db eval { SELECT * FROM t1 }
- sqlite3_db_status db CACHE_MISS 0
-} {0 2 0}
-
-do_test 43.2 {
- db eval { SELECT * FROM t2 }
- sqlite3_db_status db CACHE_MISS 1
-} {0 3 0}
-
-do_test 43.3 {
- db eval { SELECT * FROM t3 }
- sqlite3_db_status db CACHE_MISS 0
-} {0 1 0}
-
-finish_test
« no previous file with comments | « third_party/sqlite/sqlite-src-3080704/test/ovfl.test ('k') | third_party/sqlite/sqlite-src-3080704/test/pager2.test » ('j') | no next file with comments »

Powered by Google App Engine
This is Rietveld 408576698