database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +03:00
Code Activity

Run (a subset of) the rtree tests from quick.test. (CVS 5282)

Browse Source 
FossilOrigin-Name: e872c78c72eb5976e72123485692a76409bd857f
This commit is contained in:
danielk1977
2008-06-23 15:55:52 +00:00
parent 950292fbb8
commit b13dee9900
10 changed files with 84 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
ext/rtree/rtree4.test
View File

@ -11,10 +11,12 @@
#
# Randomized test cases for the rtree extension.
#
# $Id: rtree4.test,v 1.2 2008/05/28 13:49:35 drh Exp $
# $Id: rtree4.test,v 1.3 2008/06/23 15:55:52 danielk1977 Exp $
#
set testdir [file join [file dirname $argv0] .. .. test]
if {![info exists testdir]} {
set testdir [file join [file dirname $argv0] .. .. test]
}
source $testdir/tester.tcl
ifcapable !rtree {
@ -22,6 +24,11 @@ ifcapable !rtree {
return
}
set ::NROW 2500
if {[info exists ISQUICK] && $ISQUICK} {
set ::NROW 250
}
# Return a floating point number between -X and X.
#
proc rand {X} {
@ -85,7 +92,7 @@ for {set nDim 1} {$nDim<=5} {incr nDim} {
# is well.
#
unset -nocomplain where
for {set i 1} {$i<2500} {incr i} {
for {set i 1} {$i<$::NROW} {incr i} {
# Do a random insert
#
do_test rtree-$nDim.2.$i.1 {