| OLD | NEW | 
 | (Empty) | 
|   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.3 2009/05/25 14:17:35 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 -nocomplain $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 |  | 
| OLD | NEW |