Update test file walprotocol.test to account for the changes in the wal
[sqlite.git] / test / mallocAll.test
blobb1c94ea23aeafc353ec016b7ffc05454a8fa63ce
2 #    May you do good and not evil.
3 #    May you find forgiveness for yourself and forgive others.
4 #    May you share freely, never taking more than you give.
6 #***********************************************************************
7 # This file runs all out-of-memory tests.
9 # $Id: mallocAll.test,v 1.1 2007/11/26 13:36:00 drh Exp $
11 proc lshift {lvar} {
12   upvar $lvar l
13   set ret [lindex $l 0]
14   set l [lrange $l 1 end]
15   return $ret
17 while {[set arg [lshift argv]] != ""} {
18   switch -- $arg {
19     -sharedpagercache {
20       sqlite3_enable_shared_cache 1
21     }
22     default {
23       set argv [linsert $argv 0 $arg]
24       break
25     }
26   }
29 set testdir [file dirname $argv0]
30 source $testdir/tester.tcl
31 rename finish_test really_finish_test
32 proc finish_test {} {}
33 set G(isquick) 1
35 set EXCLUDE {
36   mallocAll.test
39 if {[sqlite3 -has-codec]} {
40   # lappend EXCLUDE \
41   #  conflict.test
45 # Files to include in the test.  If this list is empty then everything
46 # that is not in the EXCLUDE list is run.
48 set INCLUDE {
51 foreach testfile [lsort -dictionary [glob $testdir/*malloc*.test]] {
52   set tail [file tail $testfile]
53   if {[lsearch -exact $EXCLUDE $tail]>=0} continue
54   if {[llength $INCLUDE]>0 && [lsearch -exact $INCLUDE $tail]<0} continue
55   source $testfile
56   catch {db close}
57   if {$sqlite_open_file_count>0} {
58     puts "$tail did not close all files: $sqlite_open_file_count"
59     fail_test $tail
60     set sqlite_open_file_count 0
61   }
63 source $testdir/misuse.test
65 set sqlite_open_file_count 0
66 really_finish_test