# 2001 September 15## The author disclaims copyright to this source code.  In place of# a legal notice, here is a blessing:##    May you do good and not evil.#    May you find forgiveness for yourself and forgive others.#    May you share freely, never taking more than you give.##***********************************************************************## This file runs the tests in the file ioerr.test with auto-vacuum enabled# databases.## $Id: autovacuum_ioerr.test,v 1.3 2006/01/16 12:46:41 danielk1977 Exp $set testdir [file dirname $argv0]source $testdir/tester.tcl# If this build of the library does not support auto-vacuum, omit this# whole file.ifcapable {!autovacuum} {  finish_test  return}rename finish_test really_finish_test2proc finish_test {} {}set ISQUICK 1rename sqlite3 real_sqlite3proc sqlite3 {args} {  set r [eval "real_sqlite3 $args"]  if { [llength $args] == 2 } {    [lindex $args 0] eval {pragma auto_vacuum = 1}  }  set r}rename do_test really_do_testproc do_test {args} {  set sc [concat really_do_test "autovacuum-[lindex $args 0]" \      [lrange $args 1 end]]  eval $sc}source $testdir/ioerr.testrename sqlite3 ""rename real_sqlite3 sqlite3rename finish_test ""rename really_finish_test2 finish_testrename do_test ""rename really_do_test do_testfinish_test