Return to init.test CVS log

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

Annotation of embedaddon/sqlite3/test/init.test, revision 1.1

1.1     ! misho       1: # 2001 September 15
        !             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: # This file implements regression tests for SQLite library.  The
        !            13: # focus of this file is testing the effects of a failure in 
        !            14: # sqlite3_initialize().
        !            15: #
        !            16: #
        !            17: 
        !            18: set testdir [file dirname $argv0]
        !            19: source $testdir/tester.tcl
        !            20: if {[db eval {SELECT sqlite_compileoption_used('THREADSAFE=0')}]} {
        !            21:   finish_test
        !            22:   return
        !            23: }
        !            24: 
        !            25: db close
        !            26: 
        !            27: foreach {t failed rc started} {
        !            28:   1.1 {}       SQLITE_OK    {mutex mem pcache}
        !            29:   1.2 {mutex}  SQLITE_ERROR {}
        !            30:   1.3 {mem}    SQLITE_ERROR {mutex}
        !            31:   1.4 {pcache} SQLITE_ERROR {mutex mem}
        !            32: } {
        !            33:   do_test init-$t.1 {
        !            34:     eval init_wrapper_install $failed
        !            35:     sqlite3_initialize
        !            36:   } $rc
        !            37:   do_test init-$t.2 {
        !            38:     init_wrapper_query
        !            39:   } $started
        !            40:   do_test init-$t.3 {
        !            41:     sqlite3_shutdown
        !            42:     init_wrapper_query
        !            43:   } {}
        !            44:   do_test init-$t.4 {
        !            45:     sqlite3_initialize
        !            46:   } $rc
        !            47:   do_test init-$t.5 {
        !            48:     init_wrapper_query
        !            49:   } $started
        !            50:   do_test init-$t.6 {
        !            51:     init_wrapper_clear
        !            52:     sqlite3_initialize
        !            53:   } SQLITE_OK
        !            54:   do_test init-$t.7 {
        !            55:     init_wrapper_query
        !            56:   } {mutex mem pcache}
        !            57:   do_test init-$t.8 {
        !            58:     init_wrapper_uninstall
        !            59:   } {}
        !            60: }
        !            61: 
        !            62: source $testdir/malloc_common.tcl
        !            63: if {$MEMDEBUG} {
        !            64:   do_malloc_test init-2 -tclprep {
        !            65:     db close
        !            66:     init_wrapper_install
        !            67:   } -tclbody {
        !            68:     set rc [sqlite3_initialize]
        !            69:     if {[string match "SQLITE*NOMEM" $rc]} {error "out of memory"}
        !            70:   } -cleanup {
        !            71:     set zRepeat "transient"
        !            72:     if {$::iRepeat} {set zRepeat "persistent"}
        !            73:     do_test init-2.$zRepeat.$::n.x {
        !            74:       init_wrapper_clear
        !            75:       sqlite3_initialize
        !            76:     } SQLITE_OK
        !            77:     init_wrapper_uninstall
        !            78:   }
        !            79: }
        !            80: 
        !            81: autoinstall_test_functions
        !            82: finish_test