| OLD | NEW |
| (Empty) |
| 1 # 2010 June 30 | |
| 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 # This file implements regression tests for SQLite library. The | |
| 12 # focus of this file is testing the sqlite3_unlock_notify() API. | |
| 13 # | |
| 14 | |
| 15 set testdir [file dirname $argv0] | |
| 16 source $testdir/tester.tcl | |
| 17 | |
| 18 # This script only runs if shared-cache and unlock-notify are available. | |
| 19 # | |
| 20 ifcapable !unlock_notify||!shared_cache { | |
| 21 finish_test | |
| 22 return | |
| 23 } | |
| 24 | |
| 25 set esc [sqlite3_enable_shared_cache 1] | |
| 26 | |
| 27 sqlite3 db test.db | |
| 28 forcedelete test.db2 test.db2-journal test.db2-wal | |
| 29 sqlite3 db2 test.db2 | |
| 30 | |
| 31 do_test notify3-1.1 { | |
| 32 execsql { | |
| 33 CREATE TABLE t1(a, b); | |
| 34 INSERT INTO t1 VALUES('t1 A', 't1 B'); | |
| 35 } | |
| 36 } {} | |
| 37 do_test notify3-1.2 { | |
| 38 execsql { | |
| 39 CREATE TABLE t2(a, b); | |
| 40 INSERT INTO t2 VALUES('t2 A', 't2 B'); | |
| 41 } db2 | |
| 42 } {} | |
| 43 | |
| 44 do_test notify3-1.3 { | |
| 45 execsql { | |
| 46 BEGIN EXCLUSIVE; | |
| 47 INSERT INTO t2 VALUES('t2 C', 't2 D'); | |
| 48 } db2 | |
| 49 } {} | |
| 50 do_test notify3-1.4 { | |
| 51 catchsql { ATTACH 'test.db2' AS aux } | |
| 52 } {0 {}} | |
| 53 | |
| 54 do_test notify3-1.5 { | |
| 55 catchsql { SELECT * FROM t2 } | |
| 56 } {1 {database schema is locked: aux}} | |
| 57 | |
| 58 do_test notify3-1.6 { | |
| 59 list [sqlite3_errcode db] [sqlite3_extended_errcode db] | |
| 60 } {SQLITE_LOCKED SQLITE_LOCKED_SHAREDCACHE} | |
| 61 | |
| 62 do_test notify3-1.7 { | |
| 63 sqlite3_extended_result_codes db 1 | |
| 64 catch { set ::stmt [sqlite3_prepare_v2 db "SELECT * FROM t2" -1 tail] } msg | |
| 65 set msg | |
| 66 } {(262) database schema is locked: aux} | |
| 67 | |
| 68 do_test notify3-1.8 { | |
| 69 set ::when 1 | |
| 70 db unlock_notify { set ::res $::when } | |
| 71 set ::when 2 | |
| 72 execsql { COMMIT } db2 | |
| 73 set ::res | |
| 74 } {2} | |
| 75 do_test notify3-1.9 { | |
| 76 catchsql { SELECT * FROM t2 } | |
| 77 } {0 {{t2 A} {t2 B} {t2 C} {t2 D}}} | |
| 78 db close | |
| 79 | |
| 80 | |
| 81 set err {{1 {unable to open database: test.db2}}} | |
| 82 set noerr {{0 {}}} | |
| 83 | |
| 84 # When a new database is attached, the connection doing the attaching | |
| 85 # tries to load any unloaded schemas for both the new database and any | |
| 86 # already attached databases (including the main database). If it is | |
| 87 # unable to load any such schemas, then the ATTACH statement fails. | |
| 88 # | |
| 89 # This block tests that if the loading of schemas as a result of an | |
| 90 # ATTACH fails due to locks on the schema table held by other shared-cache | |
| 91 # connections the extended error code is SQLITE_LOCKED_SHAREDCACHE and | |
| 92 # it is possible to use the unlock-notify mechanism to determine when | |
| 93 # the ATTACH might succeed. | |
| 94 # | |
| 95 # This test does not work for test-permutations that specify SQL to | |
| 96 # be executed as part of the [sqlite3] command that opens the database. | |
| 97 # Executing such SQL causes SQLite to load the database schema into memory | |
| 98 # earlier than expected, causing test cases to fail. | |
| 99 # | |
| 100 if {[presql] == ""} { | |
| 101 foreach { | |
| 102 tn | |
| 103 db1_loaded | |
| 104 db2_loaded | |
| 105 enable_extended_errors | |
| 106 result | |
| 107 error1 error2 | |
| 108 } " | |
| 109 0 0 0 0 $err SQLITE_LOCKED SQLITE_LOCKED_SHAREDCACHE | |
| 110 1 0 0 1 $err SQLITE_LOCKED_SHAREDCACHE SQLITE_LOCKED_SHAREDCACHE | |
| 111 2 0 1 0 $err SQLITE_LOCKED SQLITE_LOCKED_SHAREDCACHE | |
| 112 3 0 1 1 $err SQLITE_LOCKED_SHAREDCACHE SQLITE_LOCKED_SHAREDCACHE | |
| 113 4 1 0 0 $err SQLITE_LOCKED SQLITE_LOCKED_SHAREDCACHE | |
| 114 5 1 0 1 $err SQLITE_LOCKED_SHAREDCACHE SQLITE_LOCKED_SHAREDCACHE | |
| 115 6 1 1 0 $noerr SQLITE_OK SQLITE_OK | |
| 116 7 1 1 1 $noerr SQLITE_OK SQLITE_OK | |
| 117 " { | |
| 118 | |
| 119 do_test notify3-2.$tn.1 { | |
| 120 catch { db1 close } | |
| 121 catch { db2 close } | |
| 122 sqlite3 db1 test.db | |
| 123 sqlite3 db2 test.db2 | |
| 124 | |
| 125 sqlite3_extended_result_codes db1 $enable_extended_errors | |
| 126 sqlite3_extended_result_codes db2 $enable_extended_errors | |
| 127 | |
| 128 if { $db1_loaded } { db1 eval "SELECT * FROM sqlite_master" } | |
| 129 if { $db2_loaded } { db2 eval "SELECT * FROM sqlite_master" } | |
| 130 | |
| 131 db2 eval "BEGIN EXCLUSIVE" | |
| 132 catchsql "ATTACH 'test.db2' AS two" db1 | |
| 133 } $result | |
| 134 | |
| 135 do_test notify3-2.$tn.2 { | |
| 136 list [sqlite3_errcode db1] [sqlite3_extended_errcode db1] | |
| 137 } [list $error1 $error2] | |
| 138 | |
| 139 do_test notify3-2.$tn.3 { | |
| 140 db1 unlock_notify {set invoked 1} | |
| 141 set invoked 0 | |
| 142 db2 eval commit | |
| 143 set invoked | |
| 144 } [lindex $result 0] | |
| 145 } | |
| 146 } | |
| 147 catch { db1 close } | |
| 148 catch { db2 close } | |
| 149 | |
| 150 | |
| 151 sqlite3_enable_shared_cache $esc | |
| 152 finish_test | |
| OLD | NEW |