Return to memleak.test CVS log

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

Annotation of embedaddon/sqlite3/test/memleak.test, revision 1.1.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: # This file runs all tests.
                     12: #
                     13: # $Id: memleak.test,v 1.10 2007/03/30 17:17:52 drh Exp $
                     14: 
                     15: set testdir [file dirname $argv0]
                     16: source $testdir/tester.tcl
                     17: rename finish_test memleak_finish_test
                     18: proc finish_test {} {
                     19:   catch {db close}
                     20:   memleak_check
                     21: }
                     22: 
                     23: if {[file exists ./sqlite_test_count]} {
                     24:   set COUNT [exec cat ./sqlite_test_count]
                     25: } else {
                     26:   set COUNT 3
                     27: }
                     28: 
                     29: # LeakList will hold a list of the number of unfreed mallocs after
                     30: # each round of the test.  This number should be constant.  If it
                     31: # grows, it may mean there is a memory leak in the library.
                     32: #
                     33: set LeakList {}
                     34: 
                     35: set EXCLUDE {
                     36:   all.test
                     37:   quick.test
                     38:   misuse.test
                     39:   memleak.test
                     40:   btree2.test
                     41:   async.test
                     42:   async2.test
                     43:   trans.test
                     44:   crash.test
                     45:   autovacuum_crash.test
                     46: }
                     47: # Test files btree2.test and btree4.test don't work if the 
                     48: # SQLITE_DEFAULT_AUTOVACUUM macro is defined to true (because they depend
                     49: # on tables being allocated starting at page 2).
                     50: #
                     51: ifcapable default_autovacuum {
                     52:   lappend EXCLUDE btree2.test
                     53:   lappend EXCLUDE btree4.test
                     54: }
                     55: 
                     56: if {[sqlite3 -has-codec]} {
                     57:   # lappend EXCLUDE 
                     58: }
                     59: if {[llength $argv]>0} {
                     60:   set FILELIST $argv
                     61:   set argv {}
                     62: } else {
                     63:   set FILELIST [lsort -dictionary [glob $testdir/*.test]]
                     64: }
                     65: 
                     66: foreach testfile $FILELIST {
                     67:   set tail [file tail $testfile]
                     68:   if {[lsearch -exact $EXCLUDE $tail]>=0} continue
                     69:   set LeakList {}
                     70:   for {set COUNTER 0} {$COUNTER<$COUNT} {incr COUNTER} {
                     71:     source $testfile
                     72:     if {[info exists Leak]} {
                     73:       lappend LeakList $Leak
                     74:     }
                     75:   }
                     76:   if {$LeakList!=""} {
                     77:     puts -nonewline memory-leak-test-$tail...
                     78:     incr_ntest
                     79:     foreach x $LeakList {
                     80:       if {$x!=[lindex $LeakList 0]} {
                     81:          puts " failed! ($LeakList)"
                     82:          fail_test memory-leak-test-$tail
                     83:          break
                     84:        }
                     85:     }
                     86:     puts " Ok"
                     87:   }
                     88: }
                     89: memleak_finish_test
                     90: 
                     91: # Run the malloc tests and the misuse test after memory leak detection.
                     92: # Both tests leak memory.
                     93: #
                     94: #catch {source $testdir/misuse.test}
                     95: #catch {source $testdir/malloc.test}
                     96: 
                     97: memleak_finish_test