| # 2008 June 17 |
| # |
| # The author disclaims copyright to this source code. In place of |
| # a legal notice, here is a blessing: |
| # |
| # May you do good and not evil. |
| # May you find forgiveness for yourself and forgive others. |
| # May you share freely, never taking more than you give. |
| # |
| #*********************************************************************** |
| # |
| # $Id: mutex1.test,v 1.20 2009/04/23 14:58:40 danielk1977 Exp $ |
| |
| set testdir [file dirname $argv0] |
| source $testdir/tester.tcl |
| |
| ifcapable !mutex { |
| finish_test |
| return |
| } |
| if {[info exists tester_do_binarylog]} { |
| finish_test |
| return |
| } |
| |
| sqlite3_reset_auto_extension |
| clear_mutex_counters |
| |
| proc mutex_counters {varname} { |
| upvar $varname var |
| set var(total) 0 |
| foreach {name value} [read_mutex_counters] { |
| set var($name) $value |
| incr var(total) $value |
| } |
| } |
| |
| #------------------------------------------------------------------------- |
| # Tests mutex1-1.* test that sqlite3_config() returns SQLITE_MISUSE if |
| # is called at the wrong time. And that the first time sqlite3_initialize |
| # is called it obtains the 'static_master' mutex 3 times and a recursive |
| # mutex (sqlite3Config.pInitMutex) twice. Subsequent calls are no-ops |
| # that do not require any mutexes. |
| # |
| do_test mutex1-1.0 { |
| install_mutex_counters 1 |
| } {SQLITE_MISUSE} |
| |
| do_test mutex1-1.1 { |
| db close |
| install_mutex_counters 1 |
| } {SQLITE_MISUSE} |
| |
| do_test mutex1-1.2 { |
| sqlite3_shutdown |
| install_mutex_counters 1 |
| } {SQLITE_OK} |
| |
| do_test mutex1-1.3 { |
| install_mutex_counters 0 |
| } {SQLITE_OK} |
| |
| do_test mutex1-1.4 { |
| install_mutex_counters 1 |
| } {SQLITE_OK} |
| |
| do_test mutex1-1.5 { |
| mutex_counters counters |
| set counters(total) |
| } {0} |
| |
| do_test mutex1-1.6 { |
| sqlite3_initialize |
| } {SQLITE_OK} |
| |
| do_test mutex1-1.7 { |
| mutex_counters counters |
| # list $counters(total) $counters(static_master) |
| expr {$counters(total)>0} |
| } {1} |
| |
| do_test mutex1-1.8 { |
| clear_mutex_counters |
| sqlite3_initialize |
| } {SQLITE_OK} |
| |
| do_test mutex1-1.9 { |
| mutex_counters counters |
| list $counters(total) $counters(static_master) |
| } {0 0} |
| |
| #------------------------------------------------------------------------- |
| # Tests mutex1-2.* test the three thread-safety related modes that |
| # can be selected using sqlite3_config: |
| # |
| # * Serialized mode, |
| # * Multi-threaded mode, |
| # * Single-threaded mode. |
| # |
| ifcapable threadsafe&&shared_cache { |
| set enable_shared_cache [sqlite3_enable_shared_cache 1] |
| foreach {mode mutexes} { |
| singlethread {} |
| multithread { |
| fast static_lru static_master static_mem static_open static_prng |
| static_pmem |
| } |
| serialized { |
| fast recursive static_lru static_master static_mem static_open |
| static_prng static_pmem |
| } |
| } { |
| |
| do_test mutex1.2.$mode.1 { |
| catch {db close} |
| sqlite3_shutdown |
| sqlite3_config $mode |
| } SQLITE_OK |
| |
| do_test mutex1.2.$mode.2 { |
| sqlite3_initialize |
| clear_mutex_counters |
| sqlite3 db test.db -nomutex 0 -fullmutex 0 |
| catchsql { CREATE TABLE abc(a, b, c) } |
| db eval { |
| INSERT INTO abc VALUES(1, 2, 3); |
| } |
| } {} |
| ifcapable !memorymanage { |
| regsub { static_lru} $mutexes {} mutexes |
| } |
| do_test mutex1.2.$mode.3 { |
| mutex_counters counters |
| |
| set res [list] |
| foreach {key value} [array get counters] { |
| if {$key ne "total" && $value > 0} { |
| lappend res $key |
| } |
| } |
| lsort $res |
| } [lsort $mutexes] |
| } |
| sqlite3_enable_shared_cache $enable_shared_cache |
| |
| # Open and use a connection in "nomutex" mode. Test that no recursive |
| # mutexes are obtained. |
| do_test mutex1.3.1 { |
| catch {db close} |
| clear_mutex_counters |
| sqlite3 db test.db -nomutex 1 |
| execsql { SELECT * FROM abc } |
| } {1 2 3 1 2 3 1 2 3} |
| do_test mutex1.3.2 { |
| mutex_counters counters |
| set counters(recursive) |
| } {0} |
| } |
| |
| # Test the sqlite3_db_mutex() function. |
| # |
| do_test mutex1.4.1 { |
| catch {db close} |
| sqlite3 db test.db |
| enter_db_mutex db |
| db eval {SELECT 1, 2, 3} |
| } {1 2 3} |
| do_test mutex1.4.2 { |
| leave_db_mutex db |
| db eval {SELECT 1, 2, 3} |
| } {1 2 3} |
| do_test mutex1.4.3 { |
| catch {db close} |
| sqlite3 db test.db -nomutex 1 |
| enter_db_mutex db |
| db eval {SELECT 1, 2, 3} |
| } {1 2 3} |
| do_test mutex1.4.4 { |
| leave_db_mutex db |
| db eval {SELECT 1, 2, 3} |
| } {1 2 3} |
| |
| do_test mutex1-X { |
| catch {db close} |
| sqlite3_shutdown |
| clear_mutex_counters |
| install_mutex_counters 0 |
| sqlite3_initialize |
| } {SQLITE_OK} |
| |
| autoinstall_test_functions |
| finish_test |