sqlite3/test/autovacuum_crash.test

   1 # 2001 September 15
   2 #
   3 # The author disclaims copyright to this source code.  In place of
   4 # a legal notice, here is a blessing:
   5 #
   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.
   9 #
  10 #***********************************************************************
  11 #
  12 # This file runs the tests in the file crash.test with auto-vacuum enabled
  13 # databases.
  14 #
  15 # $Id: autovacuum_crash.test,v 1.2 2005/01/16 09:06:34 danielk1977 Exp $
  16
  17 set testdir [file dirname $argv0]
  18 source $testdir/tester.tcl
  19
  20 # If this build of the library does not support auto-vacuum, omit this
  21 # whole file.
  22 ifcapable {!autovacuum} {
  23   finish_test
  24   return
  25 }
  26
  27 rename finish_test really_finish_test2
  28 proc finish_test {} {}
  29 set ISQUICK 1
  30
  31 rename sqlite3 real_sqlite3
  32 proc sqlite3 {args} {
  33   set r [eval "real_sqlite3 $args"]
  34   if { [llength $args] == 2 } {
  35     [lindex $args 0] eval {pragma auto_vacuum = 1}
  36   }
  37   set r
  38 }
  39
  40 rename do_test really_do_test
  41 proc do_test {args} {
  42   set sc [concat really_do_test "autovacuum-[lindex $args 0]" \
  43       [lrange $args 1 end]]
  44   eval $sc
  45 }
  46
  47 source $testdir/crash.test
  48
  49 rename sqlite3 ""
  50 rename real_sqlite3 sqlite3
  51 rename finish_test ""
  52 rename really_finish_test2 finish_test
  53 rename do_test ""
  54 rename really_do_test do_test
  55 finish_test
  56
  57
  58