diff options
Diffstat (limited to 'third_party/sqlite/src/test/rtree.test')
| -rw-r--r-- | third_party/sqlite/src/test/rtree.test | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/third_party/sqlite/src/test/rtree.test b/third_party/sqlite/src/test/rtree.test new file mode 100644 index 0000000..11f5ab9 --- /dev/null +++ b/third_party/sqlite/src/test/rtree.test @@ -0,0 +1,40 @@ +# +# 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.3 2009/05/25 14:17:35 drh Exp $ + +set testdir [file dirname $argv0] +source $testdir/tester.tcl + +rename finish_test rtree_finish_test +proc finish_test {} {} + +set RTREE_EXCLUDE { } +if {[info exists ISQUICK] && $ISQUICK} { + set RTREE_EXCLUDE rtree3.test +} + +set rtreedir [file join $testdir .. ext rtree] + +foreach testfile [lsort -dictionary [glob -nocomplain $rtreedir/*.test]] { + set tail [file tail $testfile] + if {[lsearch -exact $RTREE_EXCLUDE $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 +rtree_finish_test +rename finish_test {} +rename rtree_finish_test finish_test |