| OLD | NEW |
| (Empty) |
| 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: shared2.test,v 1.8 2009/06/05 17:09:12 drh Exp $ | |
| 13 | |
| 14 set testdir [file dirname $argv0] | |
| 15 source $testdir/tester.tcl | |
| 16 source $testdir/lock_common.tcl | |
| 17 source $testdir/malloc_common.tcl | |
| 18 db close | |
| 19 | |
| 20 ifcapable !shared_cache { | |
| 21 finish_test | |
| 22 return | |
| 23 } | |
| 24 set ::enable_shared_cache [sqlite3_enable_shared_cache 1] | |
| 25 | |
| 26 # Test that if we delete all rows from a table any read-uncommitted | |
| 27 # cursors are correctly invalidated. Test on both table and index btrees. | |
| 28 do_test shared2-1.1 { | |
| 29 sqlite3 db1 test.db | |
| 30 sqlite3 db2 test.db | |
| 31 | |
| 32 # Set up some data. Table "numbers" has 64 rows after this block | |
| 33 # is executed. | |
| 34 execsql { | |
| 35 BEGIN; | |
| 36 CREATE TABLE numbers(a PRIMARY KEY, b); | |
| 37 INSERT INTO numbers(oid) VALUES(NULL); | |
| 38 INSERT INTO numbers(oid) SELECT NULL FROM numbers; | |
| 39 INSERT INTO numbers(oid) SELECT NULL FROM numbers; | |
| 40 INSERT INTO numbers(oid) SELECT NULL FROM numbers; | |
| 41 INSERT INTO numbers(oid) SELECT NULL FROM numbers; | |
| 42 INSERT INTO numbers(oid) SELECT NULL FROM numbers; | |
| 43 INSERT INTO numbers(oid) SELECT NULL FROM numbers; | |
| 44 UPDATE numbers set a = oid, b = 'abcdefghijklmnopqrstuvwxyz0123456789'; | |
| 45 COMMIT; | |
| 46 } db1 | |
| 47 } {} | |
| 48 do_test shared2-1.2 { | |
| 49 # Put connection 2 in read-uncommitted mode and start a SELECT on table | |
| 50 # 'numbers'. Half way through the SELECT, use connection 1 to delete the | |
| 51 # contents of this table. | |
| 52 execsql { | |
| 53 pragma read_uncommitted = 1; | |
| 54 } db2 | |
| 55 set count [execsql {SELECT count(*) FROM numbers} db2] | |
| 56 db2 eval {SELECT a FROM numbers ORDER BY oid} { | |
| 57 if {$a==32} { | |
| 58 execsql { | |
| 59 BEGIN; | |
| 60 DELETE FROM numbers; | |
| 61 } db1 | |
| 62 } | |
| 63 } | |
| 64 list $a $count | |
| 65 } {32 64} | |
| 66 do_test shared2-1.3 { | |
| 67 # Same test as 1.2, except scan using the index this time. | |
| 68 execsql { | |
| 69 ROLLBACK; | |
| 70 } db1 | |
| 71 set count [execsql {SELECT count(*) FROM numbers} db2] | |
| 72 db2 eval {SELECT a, b FROM numbers ORDER BY a} { | |
| 73 if {$a==32} { | |
| 74 execsql { | |
| 75 DELETE FROM numbers; | |
| 76 } db1 | |
| 77 } | |
| 78 } | |
| 79 list $a $count | |
| 80 } {32 64} | |
| 81 | |
| 82 | |
| 83 db1 close | |
| 84 db2 close | |
| 85 | |
| 86 do_test shared2-3.2 { | |
| 87 sqlite3_enable_shared_cache 1 | |
| 88 } {1} | |
| 89 | |
| 90 forcedelete test.db | |
| 91 | |
| 92 sqlite3 db test.db | |
| 93 do_test shared2-4.1 { | |
| 94 execsql { | |
| 95 CREATE TABLE t0(a, b); | |
| 96 CREATE TABLE t1(a, b DEFAULT 'hello world'); | |
| 97 } | |
| 98 } {} | |
| 99 db close | |
| 100 | |
| 101 sqlite3 db test.db | |
| 102 sqlite3 db2 test.db | |
| 103 | |
| 104 do_test shared2-4.2 { | |
| 105 execsql { SELECT a, b FROM t0 } db | |
| 106 execsql { INSERT INTO t1(a) VALUES(1) } db2 | |
| 107 } {} | |
| 108 | |
| 109 do_test shared2-4.3 { | |
| 110 db2 close | |
| 111 db close | |
| 112 } {} | |
| 113 | |
| 114 # At one point, this was causing a crash. | |
| 115 # | |
| 116 do_test shared2-5.1 { | |
| 117 sqlite3 db test.db | |
| 118 sqlite3 db2 test.db | |
| 119 execsql { CREATE TABLE t2(a, b, c) } | |
| 120 | |
| 121 # The following statement would crash when attempting to sqlite3_free() | |
| 122 # a pointer allocated from a lookaside buffer. | |
| 123 execsql { CREATE INDEX i1 ON t2(a) } db2 | |
| 124 } {} | |
| 125 | |
| 126 db close | |
| 127 db2 close | |
| 128 | |
| 129 # The following test verifies that shared-cache mode does not automatically | |
| 130 # turn on exclusive-locking mode for some reason. | |
| 131 do_multiclient_test {tn} { | |
| 132 sql1 { CREATE TABLE t1(a, b) } | |
| 133 sql2 { CREATE TABLE t2(a, b) } | |
| 134 do_test shared2-6.$tn.1 { sql1 { SELECT * FROM t2 } } {} | |
| 135 do_test shared2-6.$tn.2 { sql2 { SELECT * FROM t1 } } {} | |
| 136 } | |
| 137 | |
| 138 sqlite3_enable_shared_cache $::enable_shared_cache | |
| 139 finish_test | |
| OLD | NEW |