database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-27 20:41:58 +03:00
Code Activity

Fix test instrumentation problems on shared_err.test. (CVS 4728)

Browse Source 
FossilOrigin-Name: 5aef5b0dd8e44a56f84fbc6f843016bca5101987
This commit is contained in:
drh
2008-01-18 17:03:32 +00:00
parent 5ba7cac1d8
commit 1527ff4e52
4 changed files with 30 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
test/malloc_common.tcl
View File

@ -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.10 2008/01/16 17:46:38 drh Exp $
# $Id: malloc_common.tcl,v 1.11 2008/01/18 17:03:33 drh Exp $
# If we did not compile with malloc testing enabled, then do nothing.
#
@ -56,11 +56,16 @@ proc do_malloc_test {tn args} {
} else {
set start 0
}
if {[info exists ::mallocopts(-end)]} {
set end $::mallocopts(-end)
} else {
set end 50000
}
save_prng_state
foreach ::iRepeat {0 1} {
set ::go 1
for {set ::n $start} {$::go && $::n < 50000} {incr ::n} {
for {set ::n $start} {$::go && $::n <= $end} {incr ::n} {
# If $::iRepeat is 0, then the malloc() failure is transient - it
# fails and then subsequent calls succeed. If $::iRepeat is 1,