Index: third_party/sqlite/sqlite-src-3080704/test/sharedA.test |
diff --git a/third_party/sqlite/sqlite-src-3080704/test/sharedA.test b/third_party/sqlite/sqlite-src-3080704/test/sharedA.test |
deleted file mode 100644 |
index 146fb26be0ed3e5aec5ab82ecc76ee6b4a243ca1..0000000000000000000000000000000000000000 |
--- a/third_party/sqlite/sqlite-src-3080704/test/sharedA.test |
+++ /dev/null |
@@ -1,188 +0,0 @@ |
-# 2013 May 14 |
-# |
-# 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. |
-# |
-#*********************************************************************** |
-# |
-# Test some specific circumstances to do with shared cache mode. |
-# |
- |
- |
-set testdir [file dirname $argv0] |
-source $testdir/tester.tcl |
-if {[run_thread_tests]==0} { finish_test ; return } |
-db close |
-set ::testprefix sharedA |
- |
-set ::enable_shared_cache [sqlite3_enable_shared_cache 1] |
- |
-#------------------------------------------------------------------------- |
-# |
-do_test 0.1 { |
- sqlite3 db1 test.db |
- sqlite3 db2 test.db |
- |
- db1 eval { |
- CREATE TABLE t1(x); |
- INSERT INTO t1 VALUES(randomblob(100)); |
- INSERT INTO t1 SELECT randomblob(100) FROM t1; |
- INSERT INTO t1 SELECT randomblob(100) FROM t1; |
- INSERT INTO t1 SELECT randomblob(100) FROM t1; |
- INSERT INTO t1 SELECT randomblob(100) FROM t1; |
- INSERT INTO t1 SELECT randomblob(100) FROM t1; |
- INSERT INTO t1 SELECT randomblob(100) FROM t1; |
- CREATE INDEX i1 ON t1(x); |
- } |
- |
- db1 eval { |
- BEGIN; |
- DROP INDEX i1; |
- } |
- |
- db2 close |
- |
- db1 eval { |
- INSERT INTO t1 SELECT randomblob(100) FROM t1; |
- ROLLBACK; |
- PRAGMA integrity_check; |
- } |
-} {ok} |
- |
-db1 close |
-forcedelete test.db |
- |
- |
-#------------------------------------------------------------------------- |
-# |
-do_test 1.1 { |
- sqlite3 db1 test.db |
- sqlite3 db2 test.db |
- db2 eval { |
- CREATE TABLE t1(x); |
- INSERT INTO t1 VALUES(123); |
- } |
- db1 eval { |
- SELECT * FROM t1; |
- CREATE INDEX i1 ON t1(x); |
- } |
-} {123} |
- |
-do_test 1.2 { |
- db2 eval { SELECT * FROM t1 ORDER BY x; } |
- |
- db1 eval { |
- BEGIN; DROP INDEX i1; |
- } |
- db1 close |
- |
- db2 eval { SELECT * FROM t1 ORDER BY x; } |
-} {123} |
- |
-do_test 1.3 { |
- db2 close |
-} {} |
- |
-#------------------------------------------------------------------------- |
-# |
-# sqlite3RollbackAll() loops through all attached b-trees and rolls |
-# back each one separately. Then if the SQLITE_InternChanges flag is |
-# set, it resets the schema. Both of the above steps must be done |
-# while holding a mutex, otherwise another thread might slip in and |
-# try to use the new schema with the old data. |
-# |
-# The following sequence of tests attempt to verify that the actions |
-# taken by sqlite3RollbackAll() are thread-atomic (that they cannot be |
-# interrupted by a separate thread.) |
-# |
-# Note that a TCL interpreter can only be used within the thread in which |
-# it was originally created (because it uses thread-local-storage). |
-# The tvfs callbacks must therefore only run on the main thread. |
-# There is some trickery in the read_callback procedure to ensure that |
-# this is the case. |
-# |
-testvfs tvfs |
- |
-# Set up two databases and two database connections. |
-# |
-# db1: main(test.db), two(test2.db) |
-# db2: main(test.db) |
-# |
-# The cache for test.db is shared between db1 and db2. |
-# |
-do_test 2.1 { |
- forcedelete test.db test.db2 |
- sqlite3 db1 test.db -vfs tvfs |
- db1 eval { ATTACH 'test.db2' AS two } |
- |
- db1 eval { |
- CREATE TABLE t1(x); |
- INSERT INTO t1 VALUES(1); |
- INSERT INTO t1 VALUES(2); |
- INSERT INTO t1 VALUES(3); |
- CREATE TABLE two.t2(x); |
- INSERT INTO t2 SELECT * FROM t1; |
- } |
- |
- sqlite3 db2 test.db -vfs tvfs |
- db2 eval { SELECT * FROM t1 } |
-} {1 2 3} |
- |
-# Create a prepared statement on db2 that will attempt a schema change |
-# in test.db. Meanwhile, start a transaction on db1 that changes |
-# the schema of test.db and that creates a rollback journal on test2.db |
-# |
-do_test 2.2 { |
- set ::STMT [sqlite3_prepare db2 "CREATE INDEX i1 ON t1(x)" -1 tail] |
- db1 eval { |
- BEGIN; |
- CREATE INDEX i1 ON t1(x); |
- INSERT INTO t2 VALUES('value!'); |
- } |
-} {} |
- |
-# Set up a callback that will cause db2 to try to execute its |
-# schema change when db1 accesses the journal file of test2.db. |
-# |
-# This callback will be invoked after the content of test.db has |
-# be rolled back but before the schema has been reset. If the |
-# sqlite3RollbackAll() operation is not thread-atomic, then the |
-# db2 statement in the callback will see old content with the newer |
-# schema, which is wrong. |
-# |
-tvfs filter xRead |
-tvfs script read_callback |
-unset -nocomplain ::some_time_laster |
-unset -nocomplain ::thread_result |
-proc read_callback {call file args} { |
- if {[string match *test.db2-journal $file]} { |
- tvfs filter {} ;# Ensure that tvfs callbacks to do run on the |
- # child thread |
- sqlthread spawn ::thread_result [subst -nocommands { |
- sqlite3_step $::STMT |
- set rc [sqlite3_finalize $::STMT] |
- }] |
- after 1000 { set ::some_time_later 1 } |
- vwait ::some_time_later |
- } |
-} |
-do_test 2.3 { db1 eval ROLLBACK } {} |
- |
-# Verify that the db2 statement invoked by the callback detected the |
-# schema change. |
-# |
-if {[info exists ::thread_result]==0} { vwait ::thread_result } |
-do_test 2.4 { |
- list $::thread_result [sqlite3_errmsg db2] |
-} {SQLITE_SCHEMA {database schema has changed}} |
- |
-db1 close |
-db2 close |
-tvfs delete |
- |
-sqlite3_enable_shared_cache $::enable_shared_cache |
-finish_test |