Return to mutex2.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/mutex2.test, revision 1.1.1.1

1.1       misho       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