xref: /sqlite-3.40.0/test/rtree.test (revision 2bf19178) 
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}
21set G(isquick) 1
22
23set rtreedir [file join $testdir .. ext rtree]
24
25foreach testfile [lsort -dictionary [glob -nocomplain $rtreedir/*.test]] {
26  set tail [file tail $testfile]
27  if {[lsearch -exact $RTREE_EXCLUDE $tail]>=0} continue
28  source $testfile
29  catch {db close}
30  if {$sqlite_open_file_count>0} {
31    puts "$tail did not close all files: $sqlite_open_file_count"
32    fail_test $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