gitlab.com/CoiaPrant/sqlite3@v1.19.1/testdata/tcl/shared3.test (about) 1 # 2005 January 19 2 # 3 # The author disclaims copyright to this source code. In place of 4 # a legal notice, here is a blessing: 5 # 6 # May you do good and not evil. 7 # May you find forgiveness for yourself and forgive others. 8 # May you share freely, never taking more than you give. 9 # 10 #*********************************************************************** 11 # 12 # $Id: shared3.test,v 1.4 2008/08/20 14:49:25 danielk1977 Exp $ 13 14 set testdir [file dirname $argv0] 15 source $testdir/tester.tcl 16 set testprefix shared3 17 db close 18 19 ifcapable !shared_cache { 20 finish_test 21 return 22 } 23 set ::enable_shared_cache [sqlite3_enable_shared_cache 1] 24 25 # Ticket #1824 26 # 27 do_test shared3-1.1 { 28 forcedelete test.db test.db-journal 29 sqlite3 db1 test.db 30 db1 eval { 31 PRAGMA encoding=UTF16; 32 CREATE TABLE t1(x,y); 33 INSERT INTO t1 VALUES('abc','This is a test string'); 34 } 35 db1 close 36 sqlite3 db1 test.db 37 db1 eval {SELECT * FROM t1} 38 } {abc {This is a test string}} 39 do_test shared3-1.2 { 40 sqlite3 db2 test.db 41 db2 eval {SELECT y FROM t1 WHERE x='abc'} 42 } {{This is a test string}} 43 44 db1 close 45 db2 close 46 47 do_test shared3-2.1 { 48 sqlite3 db1 test.db 49 execsql { 50 PRAGMA main.cache_size = 10; 51 } db1 52 } {} 53 do_test shared3-2.2 { 54 execsql { PRAGMA main.cache_size } db1 55 } {10} 56 do_test shared3-2.3 { 57 sqlite3 db2 test.db 58 execsql { PRAGMA main.cache_size } db1 59 } {10} 60 do_test shared3-2.4 { 61 execsql { PRAGMA main.cache_size } db2 62 } {10} 63 do_test shared3-2.5 { 64 execsql { PRAGMA main.cache_size } db1 65 } {10} 66 67 # The cache-size should now be 10 pages. However at one point there was 68 # a bug that caused the cache size to return to the default value when 69 # a second connection was opened on the shared-cache (as happened in 70 # test case shared3-2.3 above). The goal of the following tests is to 71 # ensure that the cache-size really is 10 pages. 72 # 73 #if {$::tcl_platform(platform)=="unix"} { 74 # set alternative_name ./test.db 75 #} else { 76 # set alternative_name TEST.DB 77 #} 78 do_test shared3-2.6 { 79 #sqlite3 db3 $alternative_name 80 sqlite3 db3 "file:./test.db?cache=private" -uri 1 81 catchsql {select count(*) from sqlite_master} db3 82 } {0 1} 83 do_test shared3-2.7 { 84 execsql { 85 BEGIN; 86 INSERT INTO t1 VALUES(10, randomblob(5000)) 87 } db1 88 catchsql {select count(*) from sqlite_master} db3 89 } {0 1} 90 do_test shared3-2.8 { 91 db3 close 92 execsql { 93 INSERT INTO t1 VALUES(10, randomblob(10000)) 94 } db1 95 96 # If the pager-cache is really still limited to 10 pages, then the INSERT 97 # statement above should have caused the pager to grab an exclusive lock 98 # on the database file so that the cache could be spilled. 99 # 100 catch { sqlite3 db3 "file:./test.db?cache=private" -uri 1 } 101 catchsql {select count(*) from sqlite_master} db3 102 } {1 {database is locked}} 103 104 db1 close 105 db2 close 106 db3 close 107 108 #------------------------------------------------------------------------- 109 # At one point this was causing a faulty assert to fail. 110 # 111 forcedelete test.db 112 sqlite3 db test.db 113 sqlite3 db2 test.db 114 do_execsql_test 3.1 { 115 PRAGMA auto_vacuum = 2; 116 CREATE TABLE t1(x, y); 117 INSERT INTO t1 VALUES(randomblob(500), randomblob(500)); 118 INSERT INTO t1 SELECT randomblob(500), randomblob(500) FROM t1; 119 INSERT INTO t1 SELECT randomblob(500), randomblob(500) FROM t1; 120 INSERT INTO t1 SELECT randomblob(500), randomblob(500) FROM t1; 121 INSERT INTO t1 SELECT randomblob(500), randomblob(500) FROM t1; 122 INSERT INTO t1 SELECT randomblob(500), randomblob(500) FROM t1; 123 INSERT INTO t1 SELECT randomblob(500), randomblob(500) FROM t1; 124 INSERT INTO t1 SELECT randomblob(500), randomblob(500) FROM t1; 125 } 126 do_test 3.2 { 127 execsql { SELECT count(*) FROM sqlite_master } db2 128 } {1} 129 do_execsql_test 3.3 { 130 BEGIN; 131 DELETE FROM t1 WHERE 1; 132 PRAGMA incremental_vacuum; 133 } {} 134 do_test 3.4 { 135 execsql { SELECT count(*) FROM sqlite_master } db2 136 } {1} 137 do_test 3.5 { 138 execsql { COMMIT } 139 } {} 140 141 sqlite3_enable_shared_cache $::enable_shared_cache 142 finish_test