| Index: third_party/sqlite/sqlite-src-3100200/test/e_walhook.test
|
| diff --git a/third_party/sqlite/sqlite-src-3100200/test/e_walhook.test b/third_party/sqlite/sqlite-src-3100200/test/e_walhook.test
|
| deleted file mode 100644
|
| index c8c8819493099ee80105f3e6e9ee0e0dc52165d9..0000000000000000000000000000000000000000
|
| --- a/third_party/sqlite/sqlite-src-3100200/test/e_walhook.test
|
| +++ /dev/null
|
| @@ -1,200 +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_walhook
|
| -
|
| -
|
| -# EVIDENCE-OF: R-00752-43975 The sqlite3_wal_hook() function is used to
|
| -# register a callback that is invoked each time data is committed to a
|
| -# database in wal mode.
|
| -#
|
| -# 1.1: shows that the wal-hook is not invoked in rollback mode.
|
| -# 1.2: but is invoked in wal mode.
|
| -#
|
| -set ::wal_hook_count 0
|
| -proc my_wal_hook {args} {
|
| - incr ::wal_hook_count
|
| - return 0
|
| -}
|
| -
|
| -do_test 1.1.1 {
|
| - db wal_hook my_wal_hook
|
| - execsql {
|
| - CREATE TABLE t1(x);
|
| - INSERT INTO t1 VALUES(1);
|
| - }
|
| - set ::wal_hook_count
|
| -} 0
|
| -do_test 1.1.2 {
|
| - execsql { PRAGMA journal_mode = wal }
|
| - set ::wal_hook_count
|
| -} 0
|
| -
|
| -do_test 1.3 {
|
| - execsql { INSERT INTO t1 VALUES(2) }
|
| - set wal_hook_count
|
| -} 1
|
| -
|
| -do_test 1.4 {
|
| - execsql {
|
| - BEGIN;
|
| - INSERT INTO t1 VALUES(3);
|
| - INSERT INTO t1 VALUES(4);
|
| - COMMIT;
|
| - }
|
| - set wal_hook_count
|
| -} 2
|
| -
|
| -# EVIDENCE-OF: R-65366-15139 The callback is invoked by SQLite after the
|
| -# commit has taken place and the associated write-lock on the database
|
| -# released
|
| -#
|
| -set ::read_ok 0
|
| -proc my_wal_hook {args} {
|
| - sqlite3 db2 test.db
|
| - if {[db2 eval { SELECT * FROM t1 }] == "1 2 3 4 5"} {
|
| - set ::read_ok 1
|
| - }
|
| - db2 close
|
| -}
|
| -do_test 2.1 {
|
| - execsql { INSERT INTO t1 VALUES(5) }
|
| - set ::read_ok
|
| -} 1
|
| -
|
| -# EVIDENCE-OF: R-44294-52863 The third parameter is the name of the
|
| -# database that was written to - either "main" or the name of an
|
| -# ATTACH-ed database.
|
| -#
|
| -# EVIDENCE-OF: R-18913-19355 The fourth parameter is the number of pages
|
| -# currently in the write-ahead log file, including those that were just
|
| -# committed.
|
| -#
|
| -set ::wal_hook_args [list]
|
| -proc my_wal_hook {dbname nEntry} {
|
| - set ::wal_hook_args [list $dbname $nEntry]
|
| -}
|
| -forcedelete test.db2
|
| -do_test 3.0 {
|
| - execsql {
|
| - ATTACH 'test.db2' AS aux;
|
| - CREATE TABLE aux.t2(x);
|
| - PRAGMA aux.journal_mode = wal;
|
| - }
|
| -} {wal}
|
| -
|
| -# Database "aux"
|
| -do_test 3.1.1 {
|
| - set wal_hook_args [list]
|
| - execsql { INSERT INTO t2 VALUES('a') }
|
| -} {}
|
| -do_test 3.1.2 {
|
| - set wal_hook_args
|
| -} [list aux [wal_frame_count test.db2-wal 1024]]
|
| -
|
| -# Database "main"
|
| -do_test 3.2.1 {
|
| - set wal_hook_args [list]
|
| - execsql { INSERT INTO t1 VALUES(6) }
|
| -} {}
|
| -do_test 3.1.2 {
|
| - set wal_hook_args
|
| -} [list main [wal_frame_count test.db-wal 1024]]
|
| -
|
| -# EVIDENCE-OF: R-14034-00929 If an error code is returned, that error
|
| -# will propagate back up through the SQLite code base to cause the
|
| -# statement that provoked the callback to report an error, though the
|
| -# commit will have still occurred.
|
| -#
|
| -proc my_wal_hook {args} { return 1 ;# SQLITE_ERROR }
|
| -do_catchsql_test 4.1 {
|
| - INSERT INTO t1 VALUES(7)
|
| -} {1 {SQL logic error or missing database}}
|
| -
|
| -proc my_wal_hook {args} { return 5 ;# SQLITE_BUSY }
|
| -do_catchsql_test 4.2 {
|
| - INSERT INTO t1 VALUES(8)
|
| -} {1 {database is locked}}
|
| -
|
| -proc my_wal_hook {args} { return 14 ;# SQLITE_CANTOPEN }
|
| -do_catchsql_test 4.3 {
|
| - INSERT INTO t1 VALUES(9)
|
| -} {1 {unable to open database file}}
|
| -
|
| -do_execsql_test 4.4 {
|
| - SELECT * FROM t1
|
| -} {1 2 3 4 5 6 7 8 9}
|
| -
|
| -# EVIDENCE-OF: R-10466-53920 Calling sqlite3_wal_hook() replaces any
|
| -# previously registered write-ahead log callback.
|
| -set ::old_wal_hook 0
|
| -proc my_old_wal_hook {args} {
|
| - incr ::old_wal_hook
|
| - return 0
|
| -}
|
| -db wal_hook my_old_wal_hook
|
| -do_test 5.1 {
|
| - execsql { INSERT INTO t1 VALUES(10) }
|
| - set ::old_wal_hook
|
| -} {1}
|
| -
|
| -# Replace old_wal_hook. Observe that it is not invoked after it has
|
| -# been replaced.
|
| -proc my_new_wal_hook {args} { return 0 }
|
| -db wal_hook my_new_wal_hook
|
| -do_test 5.2 {
|
| - execsql { INSERT INTO t1 VALUES(11) }
|
| - set ::old_wal_hook
|
| -} {1}
|
| -
|
| -
|
| -
|
| -# EVIDENCE-OF: R-42842-27162 Note that the sqlite3_wal_autocheckpoint()
|
| -# interface and the wal_autocheckpoint pragma both invoke
|
| -# sqlite3_wal_hook() and will those overwrite any prior
|
| -# sqlite3_wal_hook() settings.
|
| -#
|
| -set ::old_wal_hook 0
|
| -proc my_old_wal_hook {args} { incr ::old_wal_hook ; return 0 }
|
| -db wal_hook my_old_wal_hook
|
| -do_test 6.1.1 {
|
| - execsql { INSERT INTO t1 VALUES(12) }
|
| - set ::old_wal_hook
|
| -} {1}
|
| -do_test 6.1.2 {
|
| - execsql { PRAGMA wal_autocheckpoint = 1000 }
|
| - execsql { INSERT INTO t1 VALUES(12) }
|
| - set ::old_wal_hook
|
| -} {1}
|
| -
|
| -# EVIDENCE-OF: R-52629-38967 The first parameter passed to the callback
|
| -# function when it is invoked is a copy of the third parameter passed to
|
| -# sqlite3_wal_hook() when registering the callback.
|
| -#
|
| -# This is tricky to test using the tcl interface. However, the
|
| -# mechanism used to invoke the tcl script registered as a wal-hook
|
| -# depends on the context pointer being correctly passed through. And
|
| -# since multiple different wal-hook scripts have been successfully
|
| -# invoked by this test script, consider this tested.
|
| -#
|
| -# EVIDENCE-OF: R-23378-42536 The second is a copy of the database
|
| -# handle.
|
| -#
|
| -# There is an assert() in the C wal-hook used by tclsqlite.c to
|
| -# prove this. And that hook has been invoked multiple times when
|
| -# running this script. So consider this requirement tested as well.
|
| -#
|
| -
|
| -finish_test
|
|
|