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

Unified Diff: third_party/sqlite/sqlite-src-3100200/test/e_walauto.test

Issue 2846743003: [sql] Remove SQLite 3.10.2 reference directory. (Closed)
Patch Set: Created 3 years, 8 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-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
« no previous file with comments | « third_party/sqlite/sqlite-src-3100200/test/e_wal.test ('k') | third_party/sqlite/sqlite-src-3100200/test/e_walckpt.test » ('j') | no next file with comments »

Powered by Google App Engine
This is Rietveld 408576698