third_party/sqlite/src/test/mutex2.test

   1 # 2008 July 7
   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 # Test scripts for deliberate failures of mutex routines.
  13 #
  14 # $Id: mutex2.test,v 1.9 2008/10/07 15:25:49 drh Exp $
  15
  16 set testdir [file dirname $argv0]
  17 source $testdir/tester.tcl
  18 ifcapable !mutex {
  19   finish_test
  20   return
  21 }
  22
  23 # deinitialize
  24 #
  25 catch {db close}
  26 sqlite3_reset_auto_extension
  27 sqlite3_shutdown
  28 install_mutex_counters 1
  29
  30 # Fix the mutex subsystem so that it will not initialize.  In other words,
  31 # make it so that sqlite3_initialize() always fails.
  32 #
  33 do_test mutex2-1.1 {
  34   set ::disable_mutex_init 10
  35   sqlite3_initialize
  36 } {SQLITE_IOERR}
  37 do_test mutex2-1.1 {
  38   set ::disable_mutex_init 7
  39   sqlite3_initialize
  40 } {SQLITE_NOMEM}
  41
  42 proc utf16 {str} {
  43   set r [encoding convertto unicode $str]
  44   append r "\x00\x00"
  45   return $r
  46 }
  47
  48 # Now that sqlite3_initialize() is failing, try to run various APIs that
  49 # require that SQLite be initialized.  Verify that they fail.
  50 #
  51 do_test mutex2-2.1 {
  52   set ::disable_mutex_init 7
  53   set rc [catch {sqlite db test.db} msg]
  54   lappend rc $msg
  55 } {1 {}}
  56 ifcapable utf16 {
  57   do_test mutex2-2.2 {
  58     set db2 [sqlite3_open16 [utf16 test.db] {}]
  59   } {0}
  60   do_test mutex2-2.3 {
  61     sqlite3_complete16 [utf16 {SELECT * FROM t1;}]
  62   } {7}
  63 }
  64 do_test mutex2-2.4 {
  65   sqlite3_mprintf_int {This is a test %d,%d,%d} 1 2 3
  66 } {}
  67 ifcapable load_ext {
  68   do_test mutex2-2.5 {
  69     sqlite3_auto_extension_sqr
  70   } {7}
  71 }
  72 do_test mutex2-2.6 {
  73   sqlite3_reset_auto_extension
  74 } {}
  75 do_test mutex2-2.7 {
  76   sqlite3_malloc 10000
  77 } {0}
  78 do_test mutex2-2.8 {
  79   sqlite3_realloc 0 10000
  80 } {0}
  81 ifcapable threadsafe {
  82   do_test mutex2-2.9 {
  83     alloc_dealloc_mutex
  84   } {0}
  85 }
  86 do_test mutex2-2.10 {
  87   vfs_initfail_test
  88 } {}
  89
  90 # Restore the system to a functional state
  91 #
  92 install_mutex_counters 0
  93 set disable_mutex_init 0
  94 autoinstall_test_functions
  95
  96 # Mutex allocation works now.
  97 #
  98
  99 do_test mutex2-3.1 {
 100   set ptr [alloc_dealloc_mutex]
 101   expr {$ptr!=0}
 102 } {1}
 103
 104
 105 finish_test