database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-30 19:03:16 +03:00
Code Activity

Many problems fixed. Many problems yet to go. (CVS 242)

Browse Source 
FossilOrigin-Name: 62c7bd11bcf6438cdcbf66fa67a2bf4ab9d1664d
This commit is contained in:
drh
2001-09-13 21:53:09 +00:00
parent d78eeee1f2
commit 5edc31243e
18 changed files with 310 additions and 456 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
test/all.test
View File

@ -22,7 +22,7 @@
#***********************************************************************
# This file runs all tests.
#
# $Id: all.test,v 1.7 2001/04/12 23:21:59 drh Exp $
# $Id: all.test,v 1.8 2001/09/13 21:53:10 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@ -35,12 +35,6 @@ if {[file exists ./sqlite_test_count]} {
set COUNT 3
}
if {[file exists ./sqlite_test_prefixes]} {
set PREFIXES [exec cat ./sqlite_test_prefixes]
} else {
set PREFIXES {memory: gdbm:}
}
# 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.
@ -49,13 +43,10 @@ set LeakList {}
for {set Counter 0} {$Counter<$COUNT} {incr Counter} {
foreach p $PREFIXES {
set dbprefix $p
foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
if {[file tail $testfile]=="all.test"} continue
if {[file tail $testfile]=="malloc.test"} continue
source $testfile
}
foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
if {[file tail $testfile]=="all.test"} continue
if {[file tail $testfile]=="malloc.test"} continue
source $testfile
}
if {[info exists Leak]} {
lappend LeakList $Leak
@ -81,10 +72,7 @@ if {$LeakList!=""} {
}
if {[file readable $testdir/malloc.test]} {
foreach p $PREFIXES {
set dbprefix $p
source $testdir/malloc.test
}
source $testdir/malloc.test
}
really_finish_test