diff options
Diffstat (limited to 'ext/rtree/rtree.test')
| -rw-r--r-- | ext/rtree/rtree.test | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/ext/rtree/rtree.test b/ext/rtree/rtree.test new file mode 100644 index 000000000..1dbfddf05 --- /dev/null +++ b/ext/rtree/rtree.test @@ -0,0 +1,43 @@ +# +# 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 rtree related tests. +# +# $Id: rtree.test,v 1.1 2008/05/26 18:41:54 danielk1977 Exp $ + +set testdir [file join [file dirname $argv0] .. .. test] +source $testdir/tester.tcl +rename finish_test really_finish_test +proc finish_test {} {} +set ISQUICK 1 + +set EXCLUDE { + rtree.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 [file dirname $argv0]/*.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" + incr nErr + lappend ::failList $tail + set sqlite_open_file_count 0 + } +} + +set sqlite_open_file_count 0 +really_finish_test + |