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

Test cases and minor code changes to increase coverage of btree.c. (CVS 6456)

Browse Source 
FossilOrigin-Name: def3a016914f683818b5f013ec4efecbb8fd4c0d
This commit is contained in:
danielk1977
2009-04-06 17:50:03 +00:00
parent 1a25f11ccc
commit ef165cedeb
8 changed files with 144 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
test/tester.tcl
View File

@ -11,7 +11,7 @@
# This file implements some common TCL routines used for regression
# testing the SQLite library
#
# $Id: tester.tcl,v 1.141 2009/03/26 17:13:06 danielk1977 Exp $
# $Id: tester.tcl,v 1.142 2009/04/06 17:50:03 danielk1977 Exp $
#
# What for user input before continuing. This gives an opportunity
@ -644,7 +644,7 @@ proc do_ioerr_test {testname args} {
set ::go 1
#reset_prng_state
save_prng_state
for {set n $::ioerropts(-start)} {$::go && $n<200} {incr n} {
for {set n $::ioerropts(-start)} {$::go} {incr n} {
set ::TN $n
incr ::ioerropts(-count) -1
if {$::ioerropts(-count)<0} break