OLD | NEW |
1 # 2001 September 15 | 1 # 2001 September 15 |
2 # | 2 # |
3 # The author disclaims copyright to this source code. In place of | 3 # The author disclaims copyright to this source code. In place of |
4 # a legal notice, here is a blessing: | 4 # a legal notice, here is a blessing: |
5 # | 5 # |
6 # May you do good and not evil. | 6 # May you do good and not evil. |
7 # May you find forgiveness for yourself and forgive others. | 7 # May you find forgiveness for yourself and forgive others. |
8 # May you share freely, never taking more than you give. | 8 # May you share freely, never taking more than you give. |
9 # | 9 # |
10 #*********************************************************************** | 10 #*********************************************************************** |
11 # | 11 # |
12 # This file implements regression tests for SQLite library. The | 12 # This file implements regression tests for SQLite library. The |
13 # focus of this file is testing the effects of a failure in | 13 # focus of this file is testing the effects of a failure in |
14 # sqlite3_initialize(). | 14 # sqlite3_initialize(). |
15 # | 15 # |
16 # | 16 # |
17 | 17 |
18 set testdir [file dirname $argv0] | 18 set testdir [file dirname $argv0] |
19 source $testdir/tester.tcl | 19 source $testdir/tester.tcl |
| 20 if {[db eval {SELECT sqlite_compileoption_used('THREADSAFE=0')}]} { |
| 21 finish_test |
| 22 return |
| 23 } |
20 | 24 |
21 db close | 25 db close |
22 | 26 |
23 foreach {t failed rc started} { | 27 foreach {t failed rc started} { |
24 1.1 {} SQLITE_OK {mutex mem pcache} | 28 1.1 {} SQLITE_OK {mutex mem pcache} |
25 1.2 {mutex} SQLITE_ERROR {} | 29 1.2 {mutex} SQLITE_ERROR {} |
26 1.3 {mem} SQLITE_ERROR {mutex} | 30 1.3 {mem} SQLITE_ERROR {mutex} |
27 1.4 {pcache} SQLITE_ERROR {mutex mem} | 31 1.4 {pcache} SQLITE_ERROR {mutex mem} |
28 } { | 32 } { |
29 do_test init-$t.1 { | 33 do_test init-$t.1 { |
(...skipping 39 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
69 do_test init-2.$zRepeat.$::n.x { | 73 do_test init-2.$zRepeat.$::n.x { |
70 init_wrapper_clear | 74 init_wrapper_clear |
71 sqlite3_initialize | 75 sqlite3_initialize |
72 } SQLITE_OK | 76 } SQLITE_OK |
73 init_wrapper_uninstall | 77 init_wrapper_uninstall |
74 } | 78 } |
75 } | 79 } |
76 | 80 |
77 autoinstall_test_functions | 81 autoinstall_test_functions |
78 finish_test | 82 finish_test |
79 | |
OLD | NEW |