mirror of
https://github.com/sqlite/sqlite.git
synced 2025-07-29 08:01:23 +03:00
Get all tests running without memory leaks. (CVS 4714)
FossilOrigin-Name: 5807921f5a6e2e08f2c9e79aa91d8c587d64de74
This commit is contained in:
@ -12,7 +12,7 @@
|
||||
# This file contains common code used by many different malloc tests
|
||||
# within the test suite.
|
||||
#
|
||||
# $Id: malloc_common.tcl,v 1.9 2007/10/03 08:46:45 danielk1977 Exp $
|
||||
# $Id: malloc_common.tcl,v 1.10 2008/01/16 17:46:38 drh Exp $
|
||||
|
||||
# If we did not compile with malloc testing enabled, then do nothing.
|
||||
#
|
||||
@ -56,6 +56,7 @@ proc do_malloc_test {tn args} {
|
||||
} else {
|
||||
set start 0
|
||||
}
|
||||
save_prng_state
|
||||
|
||||
foreach ::iRepeat {0 1} {
|
||||
set ::go 1
|
||||
@ -68,6 +69,8 @@ proc do_malloc_test {tn args} {
|
||||
#
|
||||
set zRepeat "transient"
|
||||
if {$::iRepeat} {set zRepeat "persistent"}
|
||||
restore_prng_state
|
||||
foreach file [glob -nocomplain test.db-mj*] {file delete -force $file}
|
||||
|
||||
do_test ${tn}.${zRepeat}.${::n} {
|
||||
|
||||
|
Reference in New Issue
Block a user