1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/os/persistentdata/persistentstorage/sqlite3api/TEST/TclScript/rtree.test	Fri Jun 15 03:10:57 2012 +0200
     1.3 @@ -0,0 +1,40 @@
     1.4 +#
     1.5 +#    May you do good and not evil.
     1.6 +#    May you find forgiveness for yourself and forgive others.
     1.7 +#    May you share freely, never taking more than you give.
     1.8 +#
     1.9 +#***********************************************************************
    1.10 +# This file runs all rtree related tests.
    1.11 +#
    1.12 +# $Id: rtree.test,v 1.2 2008/07/12 14:52:20 drh Exp $
    1.13 +
    1.14 +set testdir [file dirname $argv0]
    1.15 +source $testdir/tester.tcl
    1.16 +
    1.17 +rename finish_test rtree_finish_test
    1.18 +proc finish_test {} {}
    1.19 +
    1.20 +set RTREE_EXCLUDE { }
    1.21 +if {[info exists ISQUICK] && $ISQUICK} { 
    1.22 +  set RTREE_EXCLUDE rtree3.test
    1.23 +}
    1.24 +
    1.25 +set rtreedir [file join $testdir .. ext rtree]
    1.26 +
    1.27 +foreach testfile [lsort -dictionary [glob $rtreedir/*.test]] {
    1.28 +  set tail [file tail $testfile]
    1.29 +  if {[lsearch -exact $RTREE_EXCLUDE $tail]>=0} continue
    1.30 +  source $testfile
    1.31 +  catch {db close}
    1.32 +  if {$sqlite_open_file_count>0} {
    1.33 +    puts "$tail did not close all files: $sqlite_open_file_count"
    1.34 +    incr nErr
    1.35 +    lappend ::failList $tail
    1.36 +    set sqlite_open_file_count 0
    1.37 +  }
    1.38 +}
    1.39 +
    1.40 +set sqlite_open_file_count 0
    1.41 +rtree_finish_test
    1.42 +rename finish_test {}
    1.43 +rename rtree_finish_test finish_test