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 corrections to IO and malloc() error handling in incremental blob IO functions. (CVS 3915)

Browse Source 
FossilOrigin-Name: 641e55284e1ba6070073c83ac6ed78ffb29f7e60
This commit is contained in:
danielk1977
2007-05-04 12:05:56 +00:00
parent 126afe6b59
commit 92d4d7a92e
8 changed files with 277 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
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.80 2007/04/28 15:47:45 danielk1977 Exp $
# $Id: tester.tcl,v 1.81 2007/05/04 12:05:56 danielk1977 Exp $
# Make sure tclsqlite3 was compiled correctly. Abort now with an
# error message if not.
@ -399,7 +399,7 @@ proc do_ioerr_test {testname args} {
set ::go 1
for {set n $::ioerropts(-start)} {$::go} {incr n} {
set ::TN $n
set ::TN $n
incr ::ioerropts(-count) -1
if {$::ioerropts(-count)<0} break
@ -480,6 +480,7 @@ set ::TN $n
# 1. We never hit the IO error and the SQL returned OK
# 2. An IO error was hit and the SQL failed
#
#puts "$s $r $::go - $msg"
expr { ($s && !$r && !$::go) || (!$s && $r && $::go) }
} {1}