test/mem5.test

   1 # 2011 March 9
   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 contains tests of the mem5 allocation subsystem.
  13 #
  14
  15 set testdir [file dirname $argv0]
  16 source $testdir/tester.tcl
  17
  18 ifcapable !mem5 {
  19   finish_test
  20   return
  21 }
  22
  23 # The tests in this file configure the lookaside allocator after a
  24 # connection is opened. This will not work if there is any "presql"
  25 # configured (SQL run within the [sqlite3] wrapper in tester.tcl).
  26 if {[info exists ::G(perm:presql)]} {
  27   finish_test
  28   return
  29 }
  30
  31 do_test mem5-1.1 {
  32   catch {db close}
  33   sqlite3_shutdown
  34   sqlite3_config_heap 25000000 0
  35   sqlite3_config_lookaside 0 0
  36   sqlite3_initialize
  37 } {SQLITE_OK}
  38
  39 # try with min request size = 2^30
  40 do_test mem5-1.2 {
  41   catch {db close}
  42   sqlite3_shutdown
  43   sqlite3_config_heap 1 1073741824
  44   sqlite3_config_lookaside 0 0
  45   sqlite3_initialize
  46 } {SQLITE_NOMEM}
  47
  48 # try with min request size = 2^30+1
  49 # previously this was causing the memsys5Log() func to infinitely loop.
  50 do_test mem5-1.3 {
  51   catch {db close}
  52   sqlite3_shutdown
  53   sqlite3_config_heap 1 1073741825
  54   sqlite3_config_lookaside 0 0
  55   sqlite3_initialize
  56 } {SQLITE_NOMEM}
  57
  58 do_test mem5-1.4 {
  59   catch {db close}
  60   sqlite3_shutdown
  61   sqlite3_config_heap 0 0
  62   sqlite3_config_lookaside 0 0
  63   sqlite3_initialize
  64 } {SQLITE_OK}
  65
  66 finish_test