| OLD | NEW |
| (Empty) |
| 1 # | |
| 2 # 2010 September 17 | |
| 3 # | |
| 4 # May you do good and not evil. | |
| 5 # May you find forgiveness for yourself and forgive others. | |
| 6 # May you share freely, never taking more than you give. | |
| 7 # | |
| 8 #*********************************************************************** | |
| 9 # This file implements regression tests for SQLite library. The | |
| 10 # focus of this file is the interactions between the FTS3/4 module | |
| 11 # and shared-cache mode. | |
| 12 # | |
| 13 | |
| 14 set testdir [file dirname $argv0] | |
| 15 source $testdir/tester.tcl | |
| 16 | |
| 17 ifcapable !fts3||!shared_cache { | |
| 18 finish_test | |
| 19 return | |
| 20 } | |
| 21 set ::testprefix fts3shared | |
| 22 | |
| 23 db close | |
| 24 set ::enable_shared_cache [sqlite3_enable_shared_cache 1] | |
| 25 | |
| 26 # Open two connections to the database in shared-cache mode. | |
| 27 # | |
| 28 sqlite3 db test.db | |
| 29 sqlite3 db2 test.db | |
| 30 | |
| 31 # Create a virtual FTS3 table. Populate it with some initial data. | |
| 32 # | |
| 33 do_execsql_test fts3shared-1.1 { | |
| 34 CREATE VIRTUAL TABLE t1 USING fts3(x); | |
| 35 BEGIN; | |
| 36 INSERT INTO t1 VALUES('We listened and looked sideways up!'); | |
| 37 INSERT INTO t1 VALUES('Fear at my heart, as at a cup,'); | |
| 38 INSERT INTO t1 VALUES('My life-blood seemed to sip!'); | |
| 39 INSERT INTO t1 VALUES('The stars were dim, and thick the night'); | |
| 40 COMMIT; | |
| 41 } {} | |
| 42 | |
| 43 # Open a write transaction and insert rows into the FTS3 table. This takes | |
| 44 # a write-lock on the underlying t1_content table. | |
| 45 # | |
| 46 do_execsql_test fts3shared-1.2 { | |
| 47 BEGIN; | |
| 48 INSERT INTO t1 VALUES('The steersman''s face by his lamp gleamed white;'); | |
| 49 } {} | |
| 50 | |
| 51 # Now try a SELECT on the full-text table. This particular SELECT does not | |
| 52 # read data from the %_content table. But it still attempts to obtain a lock | |
| 53 # on that table and so the SELECT fails. | |
| 54 # | |
| 55 do_test fts3shared-1.3 { | |
| 56 catchsql { | |
| 57 BEGIN; | |
| 58 SELECT rowid FROM t1 WHERE t1 MATCH 'stars' | |
| 59 } db2 | |
| 60 } {1 {database table is locked}} | |
| 61 | |
| 62 # Verify that the first connection can commit its transaction. | |
| 63 # | |
| 64 do_test fts3shared-1.4 { sqlite3_get_autocommit db } 0 | |
| 65 do_execsql_test fts3shared-1.5 { COMMIT } {} | |
| 66 do_test fts3shared-1.6 { sqlite3_get_autocommit db } 1 | |
| 67 | |
| 68 # Verify that the second connection still has an open transaction. | |
| 69 # | |
| 70 do_test fts3shared-1.6 { sqlite3_get_autocommit db2 } 0 | |
| 71 | |
| 72 db close | |
| 73 db2 close | |
| 74 | |
| 75 #------------------------------------------------------------------------- | |
| 76 # The following tests - fts3shared-2.* - test that unless FTS is bypassed | |
| 77 # and the underlying tables accessed directly, it is not possible for an | |
| 78 # SQLITE_LOCKED error to be enountered when committing an FTS transaction. | |
| 79 # | |
| 80 # Any SQLITE_LOCKED error should be returned when the fts4 (or fts4aux) | |
| 81 # table is first read/written within a transaction, not later on. | |
| 82 # | |
| 83 set LOCKED {1 {database table is locked}} | |
| 84 forcedelete test.db | |
| 85 sqlite3 dbR test.db | |
| 86 sqlite3 dbW test.db | |
| 87 do_test 2.1 { | |
| 88 execsql { | |
| 89 CREATE VIRTUAL TABLE t1 USING fts4; | |
| 90 CREATE TABLE t2ext(a, b); | |
| 91 CREATE VIRTUAL TABLE t2 USING fts4(content=t2ext); | |
| 92 CREATE VIRTUAL TABLE t1aux USING fts4aux(t1); | |
| 93 CREATE VIRTUAL TABLE t2aux USING fts4aux(t2); | |
| 94 | |
| 95 INSERT INTO t1 VALUES('a b c'); | |
| 96 INSERT INTO t2(rowid, a, b) VALUES(1, 'd e f', 'g h i'); | |
| 97 } dbW | |
| 98 } {} | |
| 99 | |
| 100 # Test that once [dbW] has written to the FTS table, no client may read | |
| 101 # from the FTS or fts4aux table. | |
| 102 do_test 2.2.1 { | |
| 103 execsql { | |
| 104 BEGIN; | |
| 105 INSERT INTO t1 VALUES('j k l'); | |
| 106 } dbW | |
| 107 execsql BEGIN dbR | |
| 108 } {} | |
| 109 do_test 2.2.2 { catchsql "SELECT * FROM t1 WHERE rowid=1" dbR } $LOCKED | |
| 110 do_test 2.2.3 { catchsql "SELECT * FROM t1 WHERE t1 MATCH 'a'" dbR } $LOCKED | |
| 111 do_test 2.2.4 { catchsql "SELECT rowid FROM t1 WHERE t1 MATCH 'a'" dbR } $LOCKED | |
| 112 do_test 2.2.5 { catchsql "SELECT * FROM t1" dbR } $LOCKED | |
| 113 do_test 2.2.6 { catchsql "SELECT * FROM t1aux" dbR } $LOCKED | |
| 114 do_test 2.2.7 { execsql COMMIT dbW } {} | |
| 115 do_test 2.2.8 { execsql COMMIT dbR } {} | |
| 116 | |
| 117 # Same test as 2.2.*, except with a content= table. | |
| 118 # | |
| 119 do_test 2.3.1 { | |
| 120 execsql { | |
| 121 BEGIN; | |
| 122 INSERT INTO t2(rowid, a, b) VALUES(2, 'j k l', 'm n o'); | |
| 123 } dbW | |
| 124 execsql BEGIN dbR | |
| 125 } {} | |
| 126 do_test 2.3.3 { catchsql "SELECT * FROM t2 WHERE t2 MATCH 'a'" dbR } $LOCKED | |
| 127 do_test 2.3.4 { catchsql "SELECT rowid FROM t2 WHERE t2 MATCH 'a'" dbR } $LOCKED | |
| 128 do_test 2.3.6 { catchsql "SELECT * FROM t2aux" dbR } $LOCKED | |
| 129 do_test 2.3.7 { execsql COMMIT dbW } {} | |
| 130 do_test 2.3.8 { execsql COMMIT dbR } {} | |
| 131 | |
| 132 # Test that once a connection has read from the FTS or fts4aux table, | |
| 133 # another connection may not write to the FTS table. | |
| 134 # | |
| 135 foreach {tn sql} { | |
| 136 1 "SELECT * FROM t1 WHERE rowid=1" | |
| 137 2 "SELECT * FROM t1 WHERE t1 MATCH 'a'" | |
| 138 3 "SELECT rowid FROM t1 WHERE t1 MATCH 'a'" | |
| 139 4 "SELECT * FROM t1" | |
| 140 5 "SELECT * FROM t1aux" | |
| 141 } { | |
| 142 | |
| 143 do_test 2.4.$tn { | |
| 144 execsql BEGIN dbR | |
| 145 execsql $::sql dbR | |
| 146 execsql BEGIN dbW | |
| 147 catchsql "INSERT INTO t1 VALUES('p q r')" dbW | |
| 148 } $LOCKED | |
| 149 | |
| 150 execsql ROLLBACK dbR | |
| 151 execsql ROLLBACK dbW | |
| 152 } | |
| 153 | |
| 154 # Same test as 2.4.*, except with a content= table. | |
| 155 # | |
| 156 foreach {tn sql} { | |
| 157 2 "SELECT * FROM t2 WHERE t2 MATCH 'a'" | |
| 158 3 "SELECT rowid FROM t2 WHERE t2 MATCH 'a'" | |
| 159 5 "SELECT * FROM t2aux" | |
| 160 } { | |
| 161 | |
| 162 do_test 2.5.$tn { | |
| 163 execsql BEGIN dbR | |
| 164 execsql $::sql dbR | |
| 165 execsql BEGIN dbW | |
| 166 catchsql "INSERT INTO t2(rowid, a, b) VALUES(3, 's t u', 'v w x')" dbW | |
| 167 } $LOCKED | |
| 168 | |
| 169 execsql ROLLBACK dbR | |
| 170 execsql ROLLBACK dbW | |
| 171 } | |
| 172 | |
| 173 dbW close | |
| 174 dbR close | |
| 175 sqlite3_enable_shared_cache $::enable_shared_cache | |
| 176 finish_test | |
| OLD | NEW |