diff options
Diffstat (limited to 'third_party/sqlite/src/test/all.test')
| -rw-r--r-- | third_party/sqlite/src/test/all.test | 144 |
1 files changed, 144 insertions, 0 deletions
diff --git a/third_party/sqlite/src/test/all.test b/third_party/sqlite/src/test/all.test new file mode 100644 index 0000000..980d252 --- /dev/null +++ b/third_party/sqlite/src/test/all.test @@ -0,0 +1,144 @@ +# 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 all tests. +# +# $Id: all.test,v 1.62 2009/01/06 18:43:51 drh Exp $ + +set testdir [file dirname $argv0] +source $testdir/tester.tcl +rename finish_test really_finish_test +proc finish_test {} { + catch {db close} + show_memstats +} + +if {[file exists ./sqlite_test_count]} { + set COUNT [exec cat ./sqlite_test_count] +} else { + set COUNT 1 +} + +if {[llength $argv]>0} { + foreach {name value} $argv { + switch -- $name { + -count { + set COUNT $value + } + -quick { + set ISQUICK $value + } + -soak { + set SOAKTEST $value + } + default { + puts stderr "Unknown option: $name" + exit + } + } + } +} +set argv {} + +# LeakList will hold a list of the number of unfreed mallocs after +# each round of the test. This number should be constant. If it +# grows, it may mean there is a memory leak in the library. +# +set LeakList {} + +set EXCLUDE {} +lappend EXCLUDE all.test ;# This file +lappend EXCLUDE async.test +lappend EXCLUDE crash.test ;# Run seperately later. +lappend EXCLUDE crash2.test ;# Run seperately later. +lappend EXCLUDE quick.test ;# Alternate test driver script +lappend EXCLUDE veryquick.test ;# Alternate test driver script +lappend EXCLUDE malloc.test ;# Run seperately later. +lappend EXCLUDE misuse.test ;# Run seperately later. +lappend EXCLUDE memleak.test ;# Alternate test driver script +lappend EXCLUDE permutations.test ;# Run seperately later. +lappend EXCLUDE soak.test ;# Takes a very long time (default 1 hr) +lappend EXCLUDE fts3.test ;# Wrapper for muliple fts3*.tests +lappend EXCLUDE mallocAll.test ;# Wrapper for running all malloc tests + +# Files to include in the test. If this list is empty then everything +# that is not in the EXCLUDE list is run. +# +set INCLUDE { +} + +for {set Counter 0} {$Counter<$COUNT && $nErr==0} {incr Counter} { + foreach testfile [lsort -dictionary [glob $testdir/*.test]] { + set tail [file tail $testfile] + if {[lsearch -exact $EXCLUDE $tail]>=0} continue + if {[llength $INCLUDE]>0 && [lsearch -exact $INCLUDE $tail]<0} continue + reset_prng_state + source $testfile + catch {db close} + if {$sqlite_open_file_count>0} { + puts "$tail did not close all files: $sqlite_open_file_count" + incr nErr + lappend ::failList $tail + set sqlite_open_file_count 0 + } + } + if {[info exists Leak]} { + lappend LeakList $Leak + } +} +set argv all +source $testdir/permutations.test +set argv "" + +# Do one last test to look for a memory leak in the library. This will +# only work if SQLite is compiled with the -DSQLITE_DEBUG=1 flag. +# +if {$LeakList!=""} { + puts -nonewline memory-leak-test... + incr ::nTest + foreach x $LeakList { + if {$x!=[lindex $LeakList 0]} { + puts " failed!" + puts "Expected: all values to be the same" + puts " Got: $LeakList" + incr ::nErr + lappend ::failList memory-leak-test + break + } + } + puts " Ok" +} + +# Run the crashtest only on unix and only once. If the library does not +# always create auto-vacuum databases, also run autovacuum_crash.test. +# +if {$::tcl_platform(platform)=="unix"} { + source $testdir/crash.test + source $testdir/crash2.test + ifcapable !default_autovacuum { + set argv autovacuum_crash + source $testdir/permutations.test + set argv "" + } +} + +# Run the malloc tests and the misuse test after memory leak detection. +# Both tests leak memory. Currently, misuse.test also leaks a handful of +# file descriptors. This is not considered a problem, but can cause tests +# in malloc.test to fail. So set the open-file count to zero before running +# malloc.test to get around this. +# +catch {source $testdir/misuse.test} +set sqlite_open_file_count 0 +catch {source $testdir/malloc.test} + +catch {db close} +set sqlite_open_file_count 0 +really_finish_test |