3 # The author disclaims copyright to this source code. In place of
4 # a legal notice, here is a blessing:
6 # May you do good and not evil.
7 # May you find forgiveness for yourself and forgive others.
8 # May you share freely, never taking more than you give.
10 #***********************************************************************
12 # This file runs the tests in the file crash.test with auto-vacuum enabled
15 # $Id: autovacuum_crash.test,v 1.2 2005/01/16 09:06:34 danielk1977 Exp $
17 set testdir [file dirname $argv0]
18 source $testdir/tester.tcl
20 # If this build of the library does not support auto-vacuum, omit this
22 ifcapable {!autovacuum} {
27 rename finish_test really_finish_test2
28 proc finish_test {} {}
31 rename sqlite3 real_sqlite3
33 set r [eval "real_sqlite3 $args"]
34 if { [llength $args] == 2 } {
35 [lindex $args 0] eval {pragma auto_vacuum = 1}
40 rename do_test really_do_test
42 set sc [concat really_do_test "autovacuum-[lindex $args 0]" \
47 source $testdir/crash.test
50 rename real_sqlite3 sqlite3
52 rename really_finish_test2 finish_test
54 rename really_do_test do_test