diff options
author | Hans-Christoph Steiner <hans@eds.org> | 2012-03-30 20:42:12 -0400 |
---|---|---|
committer | Hans-Christoph Steiner <hans@eds.org> | 2012-03-30 20:42:12 -0400 |
commit | 7bb481fda9ecb134804b49c2ce77ca28f7eea583 (patch) | |
tree | 31b520b9914d3e2453968abe375f2c102772c3dc /test/shared3.test |
Imported Upstream version 2.0.3
Diffstat (limited to 'test/shared3.test')
-rw-r--r-- | test/shared3.test | 107 |
1 files changed, 107 insertions, 0 deletions
diff --git a/test/shared3.test b/test/shared3.test new file mode 100644 index 0000000..783ae6a --- /dev/null +++ b/test/shared3.test @@ -0,0 +1,107 @@ +# 2005 January 19 +# +# 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. +# +#*********************************************************************** +# +# $Id: shared3.test,v 1.4 2008/08/20 14:49:25 danielk1977 Exp $ + +set testdir [file dirname $argv0] +source $testdir/tester.tcl +db close + +ifcapable !shared_cache { + finish_test + return +} +set ::enable_shared_cache [sqlite3_enable_shared_cache 1] + +# Ticket #1824 +# +do_test shared3-1.1 { + forcedelete test.db test.db-journal + sqlite3 db1 test.db + db1 eval { + PRAGMA encoding=UTF16; + CREATE TABLE t1(x,y); + INSERT INTO t1 VALUES('abc','This is a test string'); + } + db1 close + sqlite3 db1 test.db + db1 eval {SELECT * FROM t1} +} {abc {This is a test string}} +do_test shared3-1.2 { + sqlite3 db2 test.db + db2 eval {SELECT y FROM t1 WHERE x='abc'} +} {{This is a test string}} + +db1 close +db2 close + +do_test shared3-2.1 { + sqlite3 db1 test.db + execsql { + PRAGMA main.cache_size = 10; + } db1 +} {} +do_test shared3-2.2 { + execsql { PRAGMA main.cache_size } db1 +} {10} +do_test shared3-2.3 { + sqlite3 db2 test.db + execsql { PRAGMA main.cache_size } db1 +} {10} +do_test shared3-2.4 { + execsql { PRAGMA main.cache_size } db2 +} {10} +do_test shared3-2.5 { + execsql { PRAGMA main.cache_size } db1 +} {10} + +# The cache-size should now be 10 pages. However at one point there was +# a bug that caused the cache size to return to the default value when +# a second connection was opened on the shared-cache (as happened in +# test case shared3-2.3 above). The goal of the following tests is to +# ensure that the cache-size really is 10 pages. +# +if {$::tcl_platform(platform)=="unix"} { + set alternative_name ./test.db +} else { + set alternative_name TEST.DB +} +do_test shared3-2.6 { + sqlite3 db3 $alternative_name + catchsql {select count(*) from sqlite_master} db3 +} {0 1} +do_test shared3-2.7 { + execsql { + BEGIN; + INSERT INTO t1 VALUES(10, randomblob(5000)) + } db1 + catchsql {select count(*) from sqlite_master} db3 +} {0 1} +do_test shared3-2.8 { + db3 close + execsql { + INSERT INTO t1 VALUES(10, randomblob(10000)) + } db1 + + # If the pager-cache is really still limited to 10 pages, then the INSERT + # statement above should have caused the pager to grab an exclusive lock + # on the database file so that the cache could be spilled. + # + catch { sqlite3 db3 $alternative_name } + catchsql {select count(*) from sqlite_master} db3 +} {1 {database is locked}} + +db1 close +db2 close +db3 close + +sqlite3_enable_shared_cache $::enable_shared_cache +finish_test |