third_party/sqlite/src/test/init.test

   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