xref: /sqlite-3.40.0/test/rtree.test (revision 60176fa9) 
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
11set testdir [file dirname $argv0]
12source $testdir/tester.tcl
13
14rename finish_test rtree_finish_test
15proc finish_test {} {}
16
17set RTREE_EXCLUDE { }
18if {[info exists G(isquick)] && $G(isquick)} {
19  set RTREE_EXCLUDE rtree3.test
20}
21
22set rtreedir [file join $testdir .. ext rtree]
23
24foreach 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    fail_test $tail
32    set sqlite_open_file_count 0
33  }
34}
35
36set sqlite_open_file_count 0
37rtree_finish_test
38rename finish_test {}
39rename rtree_finish_test finish_test
40