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

Run the tests in shared.test a second time using an autovacuum database. (CVS 2957)

Browse Source 
FossilOrigin-Name: 9927522923558348a846e033b92100c0ed4ee556
This commit is contained in:
danielk1977
2006-01-16 12:46:41 +00:00
parent efaaf57974
commit a96a7103b2
6 changed files with 103 additions and 79 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
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.59 2006/01/11 23:40:34 drh Exp $
# $Id: tester.tcl,v 1.60 2006/01/16 12:46:41 danielk1977 Exp $
# Make sure tclsqlite3 was compiled correctly. Abort now with an
# error message if not.
@ -383,6 +383,7 @@ proc do_ioerr_test {testname args} {
set ::go [expr {$::sqlite_io_error_pending<=0}]
set s [expr $::sqlite_io_error_hit==0]
# puts "$::sqlite_io_error_pending $r $msg"
# puts "r=$r s=$s msg=\"$msg\""
expr { ($s && !$r) || (!$s && $r) }
# expr {$::sqlite_io_error_pending>0 || $r!=0}
} {1}