xref: /sqlite-3.40.0/test/rtree.test (revision b13dee99) 
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.1 2008/06/23 15:55:52 danielk1977 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 ISQUICK] && $ISQUICK} {
19  set RTREE_EXCLUDE rtree3.test
20}
21
22set rtreedir [file join $testdir .. ext rtree]
23
24foreach 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
37set sqlite_open_file_count 0
38rtree_finish_test
39rename finish_test {}
40rename rtree_finish_test finish_test
41
42