sl@0: #
sl@0: #    May you do good and not evil.
sl@0: #    May you find forgiveness for yourself and forgive others.
sl@0: #    May you share freely, never taking more than you give.
sl@0: #
sl@0: #***********************************************************************
sl@0: # This file runs all rtree related tests.
sl@0: #
sl@0: # $Id: rtree.test,v 1.2 2008/07/12 14:52:20 drh Exp $
sl@0: 
sl@0: set testdir [file dirname $argv0]
sl@0: source $testdir/tester.tcl
sl@0: 
sl@0: rename finish_test rtree_finish_test
sl@0: proc finish_test {} {}
sl@0: 
sl@0: set RTREE_EXCLUDE { }
sl@0: if {[info exists ISQUICK] && $ISQUICK} { 
sl@0:   set RTREE_EXCLUDE rtree3.test
sl@0: }
sl@0: 
sl@0: set rtreedir [file join $testdir .. ext rtree]
sl@0: 
sl@0: foreach testfile [lsort -dictionary [glob $rtreedir/*.test]] {
sl@0:   set tail [file tail $testfile]
sl@0:   if {[lsearch -exact $RTREE_EXCLUDE $tail]>=0} continue
sl@0:   source $testfile
sl@0:   catch {db close}
sl@0:   if {$sqlite_open_file_count>0} {
sl@0:     puts "$tail did not close all files: $sqlite_open_file_count"
sl@0:     incr nErr
sl@0:     lappend ::failList $tail
sl@0:     set sqlite_open_file_count 0
sl@0:   }
sl@0: }
sl@0: 
sl@0: set sqlite_open_file_count 0
sl@0: rtree_finish_test
sl@0: rename finish_test {}
sl@0: rename rtree_finish_test finish_test