wasCSharpSQLite – Blame information for rev 4

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 # 2008 June 17
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: mutex1.test,v 1.20 2009/04/23 14:58:40 danielk1977 Exp $
13  
14 set testdir [file dirname $argv0]
15 source $testdir/tester.tcl
16  
17 ifcapable !mutex {
18 finish_test
19 return
20 }
21 if {[info exists tester_do_binarylog]} {
22 finish_test
23 return
24 }
25  
26 sqlite3_reset_auto_extension
27 clear_mutex_counters
28  
29 proc mutex_counters {varname} {
30 upvar $varname var
31 set var(total) 0
32 foreach {name value} [read_mutex_counters] {
33 set var($name) $value
34 incr var(total) $value
35 }
36 }
37  
38 #-------------------------------------------------------------------------
39 # Tests mutex1-1.* test that sqlite3_config() returns SQLITE_MISUSE if
40 # is called at the wrong time. And that the first time sqlite3_initialize
41 # is called it obtains the 'static_master' mutex 3 times and a recursive
42 # mutex (sqlite3Config.pInitMutex) twice. Subsequent calls are no-ops
43 # that do not require any mutexes.
44 #
45 do_test mutex1-1.0 {
46 install_mutex_counters 1
47 } {SQLITE_MISUSE}
48  
49 do_test mutex1-1.1 {
50 db close
51 install_mutex_counters 1
52 } {SQLITE_MISUSE}
53  
54 do_test mutex1-1.2 {
55 sqlite3_shutdown
56 install_mutex_counters 1
57 } {SQLITE_OK}
58  
59 do_test mutex1-1.3 {
60 install_mutex_counters 0
61 } {SQLITE_OK}
62  
63 do_test mutex1-1.4 {
64 install_mutex_counters 1
65 } {SQLITE_OK}
66  
67 do_test mutex1-1.5 {
68 mutex_counters counters
69 set counters(total)
70 } {0}
71  
72 do_test mutex1-1.6 {
73 sqlite3_initialize
74 } {SQLITE_OK}
75  
76 do_test mutex1-1.7 {
77 mutex_counters counters
78 # list $counters(total) $counters(static_master)
79 expr {$counters(total)>0}
80 } {1}
81  
82 do_test mutex1-1.8 {
83 clear_mutex_counters
84 sqlite3_initialize
85 } {SQLITE_OK}
86  
87 do_test mutex1-1.9 {
88 mutex_counters counters
89 list $counters(total) $counters(static_master)
90 } {0 0}
91  
92 #-------------------------------------------------------------------------
93 # Tests mutex1-2.* test the three thread-safety related modes that
94 # can be selected using sqlite3_config:
95 #
96 # * Serialized mode,
97 # * Multi-threaded mode,
98 # * Single-threaded mode.
99 #
100 ifcapable threadsafe&&shared_cache {
101 set enable_shared_cache [sqlite3_enable_shared_cache 1]
102 foreach {mode mutexes} {
103 singlethread {}
104 multithread {
105 fast static_lru static_master static_mem static_open static_prng
106 static_pmem
107 }
108 serialized {
109 fast recursive static_lru static_master static_mem static_open
110 static_prng static_pmem
111 }
112 } {
113  
114 do_test mutex1.2.$mode.1 {
115 catch {db close}
116 sqlite3_shutdown
117 sqlite3_config $mode
118 } SQLITE_OK
119  
120 do_test mutex1.2.$mode.2 {
121 sqlite3_initialize
122 clear_mutex_counters
123 sqlite3 db test.db -nomutex 0 -fullmutex 0
124 catchsql { CREATE TABLE abc(a, b, c) }
125 db eval {
126 INSERT INTO abc VALUES(1, 2, 3);
127 }
128 } {}
129 ifcapable !memorymanage {
130 regsub { static_lru} $mutexes {} mutexes
131 }
132 do_test mutex1.2.$mode.3 {
133 mutex_counters counters
134  
135 set res [list]
136 foreach {key value} [array get counters] {
137 if {$key ne "total" && $value > 0} {
138 lappend res $key
139 }
140 }
141 lsort $res
142 } [lsort $mutexes]
143 }
144 sqlite3_enable_shared_cache $enable_shared_cache
145  
146 # Open and use a connection in "nomutex" mode. Test that no recursive
147 # mutexes are obtained.
148 do_test mutex1.3.1 {
149 catch {db close}
150 clear_mutex_counters
151 sqlite3 db test.db -nomutex 1
152 execsql { SELECT * FROM abc }
153 } {1 2 3 1 2 3 1 2 3}
154 do_test mutex1.3.2 {
155 mutex_counters counters
156 set counters(recursive)
157 } {0}
158 }
159  
160 # Test the sqlite3_db_mutex() function.
161 #
162 do_test mutex1.4.1 {
163 catch {db close}
164 sqlite3 db test.db
165 enter_db_mutex db
166 db eval {SELECT 1, 2, 3}
167 } {1 2 3}
168 do_test mutex1.4.2 {
169 leave_db_mutex db
170 db eval {SELECT 1, 2, 3}
171 } {1 2 3}
172 do_test mutex1.4.3 {
173 catch {db close}
174 sqlite3 db test.db -nomutex 1
175 enter_db_mutex db
176 db eval {SELECT 1, 2, 3}
177 } {1 2 3}
178 do_test mutex1.4.4 {
179 leave_db_mutex db
180 db eval {SELECT 1, 2, 3}
181 } {1 2 3}
182  
183 do_test mutex1-X {
184 catch {db close}
185 sqlite3_shutdown
186 clear_mutex_counters
187 install_mutex_counters 0
188 sqlite3_initialize
189 } {SQLITE_OK}
190  
191 autoinstall_test_functions
192 finish_test