# 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.14 2008/09/03 01:08:02 drh Exp $

 set testdir [file dirname $argv0]

 source $testdir/tester.tcl

 if {[info exists tester_do_binarylog]} {

   finish_test

   return

 }

 sqlite3_reset_auto_extension

 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.

 #

 set enable_shared_cache [sqlite3_enable_shared_cache 1]

 ifcapable threadsafe {

   foreach {mode mutexes} {

     singlethread {}

     multithread  {fast static_lru static_master static_mem static_prng }

     serialized  {fast recursive static_lru static_master static_mem 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

       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.

 ifcapable threadsafe {

   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}

 }

 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