# # 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.1 2008/06/23 15:55:52 danielk1977 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