Return to mallocAll.test CVS log

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

sqlite3

    1: #
    2: #    May you do good and not evil.
    3: #    May you find forgiveness for yourself and forgive others.
    4: #    May you share freely, never taking more than you give.
    5: #
    6: #***********************************************************************
    7: # This file runs all out-of-memory tests.
    8: #
    9: # $Id: mallocAll.test,v 1.1.1.1 2012/02/21 17:04:16 misho Exp $
   10: 
   11: proc lshift {lvar} {
   12:   upvar $lvar l
   13:   set ret [lindex $l 0]
   14:   set l [lrange $l 1 end]
   15:   return $ret
   16: }
   17: while {[set arg [lshift argv]] != ""} {
   18:   switch -- $arg {
   19:     -sharedpagercache {
   20:       sqlite3_enable_shared_cache 1
   21:     }
   22:     default {
   23:       set argv [linsert $argv 0 $arg]
   24:       break
   25:     }
   26:   }
   27: }
   28: 
   29: set testdir [file dirname $argv0]
   30: source $testdir/tester.tcl
   31: rename finish_test really_finish_test
   32: proc finish_test {} {}
   33: set G(isquick) 1
   34: 
   35: set EXCLUDE {
   36:   mallocAll.test
   37: }
   38: 
   39: if {[sqlite3 -has-codec]} {
   40:   # lappend EXCLUDE \
   41:   #  conflict.test
   42: }
   43: 
   44: 
   45: # Files to include in the test.  If this list is empty then everything
   46: # that is not in the EXCLUDE list is run.
   47: #
   48: set INCLUDE {
   49: }
   50: 
   51: foreach testfile [lsort -dictionary [glob $testdir/*malloc*.test]] {
   52:   set tail [file tail $testfile]
   53:   if {[lsearch -exact $EXCLUDE $tail]>=0} continue
   54:   if {[llength $INCLUDE]>0 && [lsearch -exact $INCLUDE $tail]<0} continue
   55:   source $testfile
   56:   catch {db close}
   57:   if {$sqlite_open_file_count>0} {
   58:     puts "$tail did not close all files: $sqlite_open_file_count"
   59:     fail_test $tail
   60:     set sqlite_open_file_count 0
   61:   }
   62: }
   63: source $testdir/misuse.test
   64: 
   65: set sqlite_open_file_count 0
   66: really_finish_test