Return to mallocAll.test CVS log

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

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

1.1     ! misho       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 2007/11/26 13:36:00 drh 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