#

 #    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.2 2008/07/12 14:52:20 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 $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