| Index: third_party/sqlite/test/mutex1.test
|
| ===================================================================
|
| --- third_party/sqlite/test/mutex1.test (revision 56608)
|
| +++ third_party/sqlite/test/mutex1.test (working copy)
|
| @@ -1,184 +0,0 @@
|
| -# 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 }
|
| - serialized {fast recursive static_lru static_master static_mem static_open static_prng}
|
| - } {
|
| -
|
| - 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);
|
| - }
|
| - } {}
|
| -
|
| - 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
|
|
|