1 #

     2 #    May you do good and not evil.

     3 #    May you find forgiveness for yourself and forgive others.

     4 #    May you share freely, never taking more than you give.

     5 #

     6 #***********************************************************************

     7 # This file runs all rtree related tests.

     8 #

     9 # $Id: rtree.test,v 1.2 2008/07/12 14:52:20 drh Exp $

    10 

    11 set testdir [file dirname $argv0]

    12 source $testdir/tester.tcl

    13 

    14 rename finish_test rtree_finish_test

    15 proc finish_test {} {}

    16 

    17 set RTREE_EXCLUDE { }

    18 if {[info exists ISQUICK] && $ISQUICK} { 

    19   set RTREE_EXCLUDE rtree3.test

    20 }

    21 

    22 set rtreedir [file join $testdir .. ext rtree]

    23 

    24 foreach testfile [lsort -dictionary [glob $rtreedir/*.test]] {

    25   set tail [file tail $testfile]

    26   if {[lsearch -exact $RTREE_EXCLUDE $tail]>=0} continue

    27   source $testfile

    28   catch {db close}

    29   if {$sqlite_open_file_count>0} {

    30     puts "$tail did not close all files: $sqlite_open_file_count"

    31     incr nErr

    32     lappend ::failList $tail

    33     set sqlite_open_file_count 0

    34   }

    35 }

    36 

    37 set sqlite_open_file_count 0

    38 rtree_finish_test

    39 rename finish_test {}

    40 rename rtree_finish_test finish_test