# 2008 July 7

 #

 # 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.

 #

 #***********************************************************************

 #

 # Test scripts for deliberate failures of mutex routines.

 #

 # $Id: mutex2.test,v 1.8 2008/07/19 13:43:24 danielk1977 Exp $

 set testdir [file dirname $argv0]

 source $testdir/tester.tcl

 # deinitialize

 #

 catch {db close}

 sqlite3_reset_auto_extension

 sqlite3_shutdown

 install_mutex_counters 1

 # Fix the mutex subsystem so that it will not initialize.  In other words,

 # make it so that sqlite3_initialize() always fails.  

 #

 do_test mutex2-1.1 {

   set ::disable_mutex_init 10

   sqlite3_initialize

 } {SQLITE_IOERR}

 do_test mutex2-1.1 {

   set ::disable_mutex_init 7

   sqlite3_initialize

 } {SQLITE_NOMEM}

 proc utf16 {str} {

   set r [encoding convertto unicode $str]

   append r "\x00\x00"

   return $r

 }

 # Now that sqlite3_initialize() is failing, try to run various APIs that

 # require that SQLite be initialized.  Verify that they fail.

 #

 do_test mutex2-2.1 {

   set ::disable_mutex_init 7

   set rc [catch {sqlite db test.db} msg]

   lappend rc $msg

 } {1 {}}

 ifcapable utf16 {

   do_test mutex2-2.2 {

     set db2 [sqlite3_open16 [utf16 test.db] {}]

   } {0}

   do_test mutex2-2.3 {

     sqlite3_complete16 [utf16 {SELECT * FROM t1;}]

   } {7}

 }

 do_test mutex2-2.4 {

   sqlite3_mprintf_int {This is a test %d,%d,%d} 1 2 3

 } {}

 ifcapable load_ext {

   do_test mutex2-2.5 {

     sqlite3_auto_extension_sqr

   } {7}

 }

 do_test mutex2-2.6 {

   sqlite3_reset_auto_extension

 } {}

 do_test mutex2-2.7 {

   sqlite3_malloc 10000

 } {0}

 do_test mutex2-2.8 {

   sqlite3_realloc 0 10000

 } {0}

 ifcapable threadsafe {

   do_test mutex2-2.9 {

     alloc_dealloc_mutex

   } {0}

 }

 do_test mutex2-2.10 {

   vfs_initfail_test

 } {}

 # Restore the system to a functional state

 #

 install_mutex_counters 0

 set disable_mutex_init 0

 autoinstall_test_functions

 # Mutex allocation works now.

 #

 do_test mutex2-3.1 {

   set ptr [alloc_dealloc_mutex]

   expr {$ptr!=0}

 } {1}

 finish_test