# 2001 September 15

 #

 # The author disclaims copyright to this source code.  In place of

 # a legal notice, here is a blessing:

 #

 #    May you do good and not evil.

 #    May you find forgiveness for yourself and forgive others.

 #    May you share freely, never taking more than you give.

 #

 #***********************************************************************

 # This file runs all tests.

 #

 # $Id: memleak.test,v 1.10 2007/03/30 17:17:52 drh Exp $

 set testdir [file dirname $argv0]

 source $testdir/tester.tcl

 rename finish_test memleak_finish_test

 proc finish_test {} {

   catch {db close}

   memleak_check

 }

 if {[file exists ./sqlite_test_count]} {

   set COUNT [exec cat ./sqlite_test_count]

 } else {

   set COUNT 3

 }

 # LeakList will hold a list of the number of unfreed mallocs after

 # each round of the test.  This number should be constant.  If it

 # grows, it may mean there is a memory leak in the library.

 #

 set LeakList {}

 set EXCLUDE {

   all.test

   quick.test

   misuse.test

   memleak.test

   btree2.test

   async.test

   async2.test

   trans.test

   crash.test

   autovacuum_crash.test

 }

 # Test files btree2.test and btree4.test don't work if the 

 # SQLITE_DEFAULT_AUTOVACUUM macro is defined to true (because they depend

 # on tables being allocated starting at page 2).

 #

 ifcapable default_autovacuum {

   lappend EXCLUDE btree2.test

   lappend EXCLUDE btree4.test

 }

 if {[sqlite3 -has-codec]} {

   # lappend EXCLUDE 

 }

 if {[llength $argv]>0} {

   set FILELIST $argv

   set argv {}

 } else {

   set FILELIST [lsort -dictionary [glob $testdir/*.test]]

 }

 foreach testfile $FILELIST {

   set tail [file tail $testfile]

   if {[lsearch -exact $EXCLUDE $tail]>=0} continue

   set LeakList {}

   for {set COUNTER 0} {$COUNTER<$COUNT} {incr COUNTER} {

     source $testfile

     if {[info exists Leak]} {

       lappend LeakList $Leak

     }

   }

   if {$LeakList!=""} {

     puts -nonewline memory-leak-test-$tail...

     incr ::nTest

     foreach x $LeakList {

       if {$x!=[lindex $LeakList 0]} {

          puts " failed! ($LeakList)"

          incr ::nErr

          lappend ::failList memory-leak-test-$tail

          break

        }

     }

     puts " Ok"

   }

 }

 memleak_finish_test

 # Run the malloc tests and the misuse test after memory leak detection.

 # Both tests leak memory.

 #

 #catch {source $testdir/misuse.test}

 #catch {source $testdir/malloc.test}

 memleak_finish_test