Annotation of embedaddon/sqlite3/test/notify3.test, revision 1.1.1.1
1.1 misho 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
153:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to notify3.test CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test