1# 2016-05-32 2# 3# The author disclaims copyright to this source code. In place of 4# a legal notice, here is a blessing: 5# 6# May you do good and not evil. 7# May you find forgiveness for yourself and forgive others. 8# May you share freely, never taking more than you give. 9# 10#*********************************************************************** 11# This file contains tests for the r-tree module. 12# 13# Verify that no invalid SQL is run during initialization 14 15if {![info exists testdir]} { 16 set testdir [file join [file dirname [info script]] .. .. test] 17} 18source $testdir/tester.tcl 19ifcapable !rtree { finish_test ; return } 20 21db close 22sqlite3_shutdown 23test_sqlite3_log [list lappend ::log] 24set ::log [list] 25sqlite3 db test.db 26 27 28set ::log {} 29do_test rtreeG-1.1 { 30 db eval {CREATE VIRTUAL TABLE t1 USING rtree(a,b,c);} 31 set ::log 32} {} 33 34finish_test 35