third_party/sqlite/src/test/mutex1.test

   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