| Index: third_party/sqlite/src/test/mallocAll.test
|
| diff --git a/third_party/sqlite/src/test/mallocAll.test b/third_party/sqlite/src/test/mallocAll.test
|
| new file mode 100644
|
| index 0000000000000000000000000000000000000000..b1c94ea23aeafc353ec016b7ffc05454a8fa63ce
|
| --- /dev/null
|
| +++ b/third_party/sqlite/src/test/mallocAll.test
|
| @@ -0,0 +1,66 @@
|
| +#
|
| +# 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 all out-of-memory tests.
|
| +#
|
| +# $Id: mallocAll.test,v 1.1 2007/11/26 13:36:00 drh Exp $
|
| +
|
| +proc lshift {lvar} {
|
| + upvar $lvar l
|
| + set ret [lindex $l 0]
|
| + set l [lrange $l 1 end]
|
| + return $ret
|
| +}
|
| +while {[set arg [lshift argv]] != ""} {
|
| + switch -- $arg {
|
| + -sharedpagercache {
|
| + sqlite3_enable_shared_cache 1
|
| + }
|
| + default {
|
| + set argv [linsert $argv 0 $arg]
|
| + break
|
| + }
|
| + }
|
| +}
|
| +
|
| +set testdir [file dirname $argv0]
|
| +source $testdir/tester.tcl
|
| +rename finish_test really_finish_test
|
| +proc finish_test {} {}
|
| +set G(isquick) 1
|
| +
|
| +set EXCLUDE {
|
| + mallocAll.test
|
| +}
|
| +
|
| +if {[sqlite3 -has-codec]} {
|
| + # lappend EXCLUDE \
|
| + # conflict.test
|
| +}
|
| +
|
| +
|
| +# Files to include in the test. If this list is empty then everything
|
| +# that is not in the EXCLUDE list is run.
|
| +#
|
| +set INCLUDE {
|
| +}
|
| +
|
| +foreach testfile [lsort -dictionary [glob $testdir/*malloc*.test]] {
|
| + set tail [file tail $testfile]
|
| + if {[lsearch -exact $EXCLUDE $tail]>=0} continue
|
| + if {[llength $INCLUDE]>0 && [lsearch -exact $INCLUDE $tail]<0} continue
|
| + source $testfile
|
| + catch {db close}
|
| + if {$sqlite_open_file_count>0} {
|
| + puts "$tail did not close all files: $sqlite_open_file_count"
|
| + fail_test $tail
|
| + set sqlite_open_file_count 0
|
| + }
|
| +}
|
| +source $testdir/misuse.test
|
| +
|
| +set sqlite_open_file_count 0
|
| +really_finish_test
|
|
|