database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +03:00
Code Activity

Bug fix and better testing of the extended result codes. (CVS 3423)

Browse Source 
FossilOrigin-Name: 78ae74db1cbf605cd421e7ea321e879d3638968e
This commit is contained in:
drh
2006-09-15 12:29:16 +00:00
parent 4ac285a1c2
commit e49f982792
4 changed files with 26 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
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.67 2006/09/15 07:28:51 drh Exp $
# $Id: tester.tcl,v 1.68 2006/09/15 12:29:16 drh Exp $
# Make sure tclsqlite3 was compiled correctly. Abort now with an
# error message if not.
@ -384,6 +384,18 @@ proc do_ioerr_test {testname args} {
do_test $testname.$n.3 {
set r [catch $::ioerrorbody msg]
# puts rc=[sqlite3_errcode $::DB]
set rc [sqlite3_errcode $::DB]
if {$::ioerropts(-erc)} {
# In extended result mode, all IOERRs are qualified
if {[regexp {^SQLITE_IOERR} $rc] && ![regexp {IOERR\+\d} $rc]} {
return $rc
}
} else {
# Not in extended result mode, no errors are qualified
if {[regexp {\+\d} $rc]} {
return $rc
}
}
set ::go [expr {$::sqlite_io_error_pending<=0}]
set s [expr $::sqlite_io_error_hit==0]
set ::sqlite_io_error_hit 0