OLD | NEW |
| (Empty) |
1 # 2003 December 18 | |
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 script is multithreading behavior | |
13 # | |
14 # $Id: thread1.test,v 1.8 2008/10/07 15:25:49 drh Exp $ | |
15 | |
16 | |
17 set testdir [file dirname $argv0] | |
18 source $testdir/tester.tcl | |
19 | |
20 # Skip this whole file if the thread testing code is not enabled | |
21 # | |
22 if {[run_thread_tests]==0} { finish_test ; return } | |
23 if {[llength [info command thread_step]]==0 || [sqlite3 -has-codec]} { | |
24 finish_test | |
25 return | |
26 } | |
27 | |
28 # Create some data to work with | |
29 # | |
30 do_test thread1-1.1 { | |
31 execsql { | |
32 CREATE TABLE t1(a,b); | |
33 INSERT INTO t1 VALUES(1,'abcdefgh'); | |
34 INSERT INTO t1 SELECT a+1, b||b FROM t1; | |
35 INSERT INTO t1 SELECT a+2, b||b FROM t1; | |
36 INSERT INTO t1 SELECT a+4, b||b FROM t1; | |
37 SELECT count(*), max(length(b)) FROM t1; | |
38 } | |
39 } {8 64} | |
40 | |
41 # Interleave two threads on read access. Then make sure a third | |
42 # thread can write the database. In other words: | |
43 # | |
44 # read-lock A | |
45 # read-lock B | |
46 # unlock A | |
47 # unlock B | |
48 # write-lock C | |
49 # | |
50 # At one point, the write-lock of C would fail on Linux. | |
51 # | |
52 do_test thread1-1.2 { | |
53 thread_create A test.db | |
54 thread_create B test.db | |
55 thread_create C test.db | |
56 thread_compile A {SELECT a FROM t1} | |
57 thread_step A | |
58 thread_result A | |
59 } SQLITE_ROW | |
60 do_test thread1-1.3 { | |
61 thread_argc A | |
62 } 1 | |
63 do_test thread1-1.4 { | |
64 thread_argv A 0 | |
65 } 1 | |
66 do_test thread1-1.5 { | |
67 thread_compile B {SELECT b FROM t1} | |
68 thread_step B | |
69 thread_result B | |
70 } SQLITE_ROW | |
71 do_test thread1-1.6 { | |
72 thread_argc B | |
73 } 1 | |
74 do_test thread1-1.7 { | |
75 thread_argv B 0 | |
76 } abcdefgh | |
77 do_test thread1-1.8 { | |
78 thread_finalize A | |
79 thread_result A | |
80 } SQLITE_OK | |
81 do_test thread1-1.9 { | |
82 thread_finalize B | |
83 thread_result B | |
84 } SQLITE_OK | |
85 do_test thread1-1.10 { | |
86 thread_compile C {CREATE TABLE t2(x,y)} | |
87 thread_step C | |
88 thread_result C | |
89 } SQLITE_DONE | |
90 do_test thread1-1.11 { | |
91 thread_finalize C | |
92 thread_result C | |
93 } SQLITE_OK | |
94 do_test thread1-1.12 { | |
95 catchsql {SELECT name FROM sqlite_master} | |
96 execsql {SELECT name FROM sqlite_master} | |
97 } {t1 t2} | |
98 | |
99 | |
100 # | |
101 # The following tests - thread1-2.* - test the following scenario: | |
102 # | |
103 # 1: Read-lock thread A | |
104 # 2: Read-lock thread B | |
105 # 3: Attempt to write in thread C -> SQLITE_BUSY | |
106 # 4: Check db write failed from main thread. | |
107 # 5: Unlock from thread A. | |
108 # 6: Attempt to write in thread C -> SQLITE_BUSY | |
109 # 7: Check db write failed from main thread. | |
110 # 8: Unlock from thread B. | |
111 # 9: Attempt to write in thread C -> SQLITE_DONE | |
112 # 10: Finalize the write from thread C | |
113 # 11: Check db write succeeded from main thread. | |
114 # | |
115 do_test thread1-2.1 { | |
116 thread_halt * | |
117 thread_create A test.db | |
118 thread_compile A {SELECT a FROM t1} | |
119 thread_step A | |
120 thread_result A | |
121 } SQLITE_ROW | |
122 do_test thread1-2.2 { | |
123 thread_create B test.db | |
124 thread_compile B {SELECT b FROM t1} | |
125 thread_step B | |
126 thread_result B | |
127 } SQLITE_ROW | |
128 do_test thread1-2.3 { | |
129 thread_create C test.db | |
130 thread_compile C {INSERT INTO t2 VALUES(98,99)} | |
131 thread_step C | |
132 thread_result C | |
133 thread_finalize C | |
134 thread_result C | |
135 } SQLITE_BUSY | |
136 | |
137 do_test thread1-2.4 { | |
138 execsql {SELECT * FROM t2} | |
139 } {} | |
140 | |
141 do_test thread1-2.5 { | |
142 thread_finalize A | |
143 thread_result A | |
144 } SQLITE_OK | |
145 do_test thread1-2.6 { | |
146 thread_compile C {INSERT INTO t2 VALUES(98,99)} | |
147 thread_step C | |
148 thread_result C | |
149 thread_finalize C | |
150 thread_result C | |
151 } SQLITE_BUSY | |
152 do_test thread1-2.7 { | |
153 execsql {SELECT * FROM t2} | |
154 } {} | |
155 do_test thread1-2.8 { | |
156 thread_finalize B | |
157 thread_result B | |
158 } SQLITE_OK | |
159 do_test thread1-2.9 { | |
160 thread_compile C {INSERT INTO t2 VALUES(98,99)} | |
161 thread_step C | |
162 thread_result C | |
163 } SQLITE_DONE | |
164 do_test thread1-2.10 { | |
165 thread_finalize C | |
166 thread_result C | |
167 } SQLITE_OK | |
168 do_test thread1-2.11 { | |
169 execsql {SELECT * FROM t2} | |
170 } {98 99} | |
171 | |
172 thread_halt * | |
173 finish_test | |
OLD | NEW |