| Index: third_party/sqlite/sqlite-src-3100200/test/e_walauto.test
|
| diff --git a/third_party/sqlite/sqlite-src-3100200/test/e_walauto.test b/third_party/sqlite/sqlite-src-3100200/test/e_walauto.test
|
| deleted file mode 100644
|
| index 093b13f940f95547e595013479b3087eeed49667..0000000000000000000000000000000000000000
|
| --- a/third_party/sqlite/sqlite-src-3100200/test/e_walauto.test
|
| +++ /dev/null
|
| @@ -1,209 +0,0 @@
|
| -# 2014 December 04
|
| -#
|
| -# 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/wal_common.tcl
|
| -set testprefix e_walauto
|
| -
|
| -# Do not run this test on OpenBSD, as it depends on read() and mmap both
|
| -# accessing the same coherent view of the "test.db-shm" file. This doesn't
|
| -# work on OpenBSD.
|
| -#
|
| -if {$tcl_platform(os) == "OpenBSD"} {
|
| - finish_test
|
| - return
|
| -}
|
| -
|
| -proc read_nbackfill {} {
|
| - seek $::shmfd 96
|
| - binary scan [read $::shmfd 4] n nBackfill
|
| - set nBackfill
|
| -}
|
| -proc read_mxframe {} {
|
| - seek $::shmfd 16
|
| - binary scan [read $::shmfd 4] n mxFrame
|
| - set mxFrame
|
| -}
|
| -
|
| -# Assuming that the main db for database handle
|
| -#
|
| -proc do_autocommit_threshold_test {tn value} {
|
| -
|
| - set nBackfillSaved [read_nbackfill]
|
| - while {1} {
|
| - db eval { INSERT INTO t1 VALUES(randomblob(100), randomblob(100)) }
|
| - if {[read_mxframe] >= $value} break
|
| - }
|
| -
|
| - set nBackfillNew [read_nbackfill]
|
| - uplevel [list do_test $tn "expr $nBackfillNew > $nBackfillSaved" 1]
|
| -}
|
| -
|
| -# EVIDENCE-OF: R-30135-06439 The wal_autocheckpoint pragma can be used
|
| -# to invoke this interface from SQL.
|
| -#
|
| -# All tests in this file are run twice - once using the
|
| -# sqlite3_wal_autocheckpoint() API, and once using "PRAGMA
|
| -# wal_autocheckpoint".
|
| -#
|
| -foreach {tn code} {
|
| - 1 {
|
| - proc autocheckpoint {db value} {
|
| - uplevel [list $db eval "PRAGMA wal_autocheckpoint = $value"]
|
| - }
|
| - }
|
| -
|
| - 2 {
|
| - proc autocheckpoint {db value} {
|
| - uplevel [list sqlite3_wal_autocheckpoint $db $value]
|
| - return $value
|
| - }
|
| - }
|
| -} {
|
| -
|
| - eval $code
|
| -
|
| - reset_db
|
| - execsql { PRAGMA auto_vacuum = 0 }
|
| - do_execsql_test 1.$tn.0 { PRAGMA journal_mode = WAL } {wal}
|
| - do_execsql_test 1.$tn.1 { CREATE TABLE t1(a, b) }
|
| - set shmfd [open "test.db-shm" rb]
|
| -
|
| - # EVIDENCE-OF: R-41531-51083 Every new database connection defaults to
|
| - # having the auto-checkpoint enabled with a threshold of 1000 or
|
| - # SQLITE_DEFAULT_WAL_AUTOCHECKPOINT pages.
|
| - #
|
| - do_autocommit_threshold_test 1.$tn.2 1000
|
| - db eval { INSERT INTO t1 VALUES(randomblob(100), randomblob(100)) }
|
| - do_autocommit_threshold_test 1.$tn.3 1000
|
| -
|
| - # EVIDENCE-OF: R-38128-34102 The sqlite3_wal_autocheckpoint(D,N) is a
|
| - # wrapper around sqlite3_wal_hook() that causes any database on database
|
| - # connection D to automatically checkpoint after committing a
|
| - # transaction if there are N or more frames in the write-ahead log file.
|
| - #
|
| - do_test 1.$tn.4 {
|
| - db eval { INSERT INTO t1 VALUES(randomblob(100), randomblob(100)) }
|
| - autocheckpoint db 100
|
| - } {100}
|
| - do_autocommit_threshold_test 1.$tn.5 100
|
| -
|
| - do_test 1.$tn.6 {
|
| - db eval { INSERT INTO t1 VALUES(randomblob(100), randomblob(100)) }
|
| - autocheckpoint db 500
|
| - } {500}
|
| - do_autocommit_threshold_test 1.$tn.7 500
|
| -
|
| - # EVIDENCE-OF: R-26993-43540 Passing zero or a negative value as the
|
| - # nFrame parameter disables automatic checkpoints entirely.
|
| - #
|
| - do_test 1.$tn.7 {
|
| - autocheckpoint db 0 ;# Set to zero
|
| - for {set i 0} {$i < 10000} {incr i} {
|
| - db eval { INSERT INTO t1 VALUES(randomblob(100), randomblob(100)) }
|
| - }
|
| - expr {[file size test.db-wal] > (5 * 1024 * 1024)}
|
| - } 1
|
| - do_test 1.$tn.8 {
|
| - sqlite3_wal_checkpoint_v2 db truncate
|
| - file size test.db-wal
|
| - } 0
|
| - do_test 1.$tn.9 {
|
| - autocheckpoint db -4 ;# Set to a negative value
|
| - for {set i 0} {$i < 10000} {incr i} {
|
| - db eval { INSERT INTO t1 VALUES(randomblob(100), randomblob(100)) }
|
| - }
|
| - expr {[file size test.db-wal] > (5 * 1024 * 1024)}
|
| - } 1
|
| -
|
| - # EVIDENCE-OF: R-10203-42688 The callback registered by this function
|
| - # replaces any existing callback registered using sqlite3_wal_hook().
|
| - #
|
| - set ::wal_hook_callback 0
|
| - proc wal_hook_callback {args} { incr ::wal_hook_callback ; return 0 }
|
| - do_test 1.$tn.10.1 {
|
| - db wal_hook wal_hook_callback
|
| - db eval { INSERT INTO t1 VALUES(randomblob(100), randomblob(100)) }
|
| - db eval { INSERT INTO t1 VALUES(randomblob(100), randomblob(100)) }
|
| - set ::wal_hook_callback
|
| - } 2
|
| - do_test 1.$tn.10.2 {
|
| - autocheckpoint db 100
|
| - db eval { INSERT INTO t1 VALUES(randomblob(100), randomblob(100)) }
|
| - db eval { INSERT INTO t1 VALUES(randomblob(100), randomblob(100)) }
|
| - set ::wal_hook_callback
|
| - } 2
|
| -
|
| - # EVIDENCE-OF: R-17497-43474 Likewise, registering a callback using
|
| - # sqlite3_wal_hook() disables the automatic checkpoint mechanism
|
| - # configured by this function.
|
| - do_test 1.$tn.11.1 {
|
| - sqlite3_wal_checkpoint_v2 db truncate
|
| - file size test.db-wal
|
| - } 0
|
| - do_test 1.$tn.11.2 {
|
| - autocheckpoint db 100
|
| - for {set i 0} {$i < 1000} {incr i} {
|
| - db eval { INSERT INTO t1 VALUES(randomblob(100), randomblob(100)) }
|
| - }
|
| - expr {[file size test.db-wal] < (1 * 1024 * 1024)}
|
| - } 1
|
| - do_test 1.$tn.11.3 {
|
| - db wal_hook wal_hook_callback
|
| - for {set i 0} {$i < 1000} {incr i} {
|
| - db eval { INSERT INTO t1 VALUES(randomblob(100), randomblob(100)) }
|
| - }
|
| - expr {[file size test.db-wal] < (1 * 1024 * 1024)}
|
| - } 0
|
| -
|
| - # EVIDENCE-OF: R-33080-59193 Checkpoints initiated by this mechanism
|
| - # are PASSIVE.
|
| - #
|
| - set ::busy_callback_count 0
|
| - proc busy_callback {args} {
|
| - incr ::busy_callback_count
|
| - return 0
|
| - }
|
| - do_test 1.$tn.12.1 {
|
| - sqlite3_wal_checkpoint_v2 db truncate
|
| - autocheckpoint db 100
|
| - db busy busy_callback
|
| - db eval { INSERT INTO t1 VALUES(randomblob(100), randomblob(100)) }
|
| - db eval { INSERT INTO t1 VALUES(randomblob(100), randomblob(100)) }
|
| - } {}
|
| - do_test 1.$tn.12.2 {
|
| - sqlite3 db2 test.db
|
| - db2 eval { BEGIN; SELECT * FROM t1 LIMIT 10; }
|
| - read_nbackfill
|
| - } {0}
|
| - do_test 1.$tn.12.3 {
|
| - for {set i 0} {$i < 1000} {incr i} {
|
| - db eval { INSERT INTO t1 VALUES(randomblob(100), randomblob(100)) }
|
| - }
|
| - read_nbackfill
|
| - } {2}
|
| - do_test 1.$tn.12.4 {
|
| - set ::busy_callback_count
|
| - } {0}
|
| - db2 close
|
| -
|
| - do_test 1.$tn.12.5 {
|
| - db eval { INSERT INTO t1 VALUES(randomblob(100), randomblob(100)) }
|
| - read_nbackfill
|
| - } {1559}
|
| -
|
| - db close
|
| - close $shmfd
|
| -}
|
| -
|
| -finish_test
|
|
|