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

FossilOrigin-Name: e872c78c72eb5976e72123485692a76409bd857f

diff --git a/ext/rtree/rtree.c b/ext/rtree/rtree.c
index 6b37d2c51d276cdc34df35a638de3f3c1338b100..39c053de279541172b2493068ec74c40846c4803 100644 (file)
--- a/ext/rtree/rtree.c
+++ b/ext/rtree/rtree.c
@@ -12,7 +12,7 @@
 ** This file contains code for implementations of the r-tree and r*-tree
 ** algorithms packaged as an SQLite virtual table module.
 **
-** $Id: rtree.c,v 1.4 2008/05/27 00:06:02 drh Exp $
+** $Id: rtree.c,v 1.5 2008/06/23 15:55:52 danielk1977 Exp $
 */
 
 #if !defined(SQLITE_CORE) || defined(SQLITE_ENABLE_RTREE)
@@ -66,11 +66,9 @@
 #include <string.h>
 #include <assert.h>
 
-#ifndef SQLITE_CORE
-  typedef sqlite3_int64 i64;
-  typedef unsigned char u8;
-  typedef unsigned int u32;
-#endif
+typedef sqlite3_int64 i64;
+typedef unsigned char u8;
+typedef unsigned int u32;
 
 typedef struct Rtree Rtree;
 typedef struct RtreeCursor RtreeCursor;

diff --git a/ext/rtree/rtree1.test b/ext/rtree/rtree1.test
index 8f1ec0d9d5004fbb3c0835ecc814a2cc4915c269..acf20f99e01ab6c142526e9d05cf64a83d7e25af 100644 (file)
--- a/ext/rtree/rtree1.test
+++ b/ext/rtree/rtree1.test
@@ -11,10 +11,12 @@
 #
 # The focus of this file is testing the r-tree extension.
 #
-# $Id: rtree1.test,v 1.2 2008/05/26 20:49:04 drh Exp $
+# $Id: rtree1.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
 
 # Test plan:

diff --git a/ext/rtree/rtree2.test b/ext/rtree/rtree2.test
index e9f395e807d06032acfe81d19715b3b7499ce7e2..018e5ab2fa1a90babfe08f0134b5b23b07a51ac2 100644 (file)
--- a/ext/rtree/rtree2.test
+++ b/ext/rtree/rtree2.test
@@ -11,12 +11,14 @@
 #
 # The focus of this file is testing the r-tree extension.
 #
-# $Id: rtree2.test,v 1.2 2008/05/27 00:06:02 drh Exp $
+# $Id: rtree2.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 [file join [file dirname [info script]] rtree_util.tcl]
 source $testdir/tester.tcl
-source [file join [file dirname $argv0] rtree_util.tcl]
 
 ifcapable !rtree {
   finish_test
@@ -27,6 +29,11 @@ set ::NROW   1000
 set ::NDEL     10
 set ::NSELECT 100
 
+if {[info exists ISQUICK] && $ISQUICK} {
+  set ::NROW 100
+  set ::NSELECT 10
+}
+
 for {set nDim 1} {$nDim <= 5} {incr nDim} {
 
   do_test rtree2-$nDim.1 {

diff --git a/ext/rtree/rtree3.test b/ext/rtree/rtree3.test
index 667b04e3e89e250607985629ce551df69f1deba6..b83ceeb4c9fb5aea3251d8a2b0b1f70c09fc8599 100644 (file)
--- a/ext/rtree/rtree3.test
+++ b/ext/rtree/rtree3.test
@@ -12,10 +12,12 @@
 # The focus of this file is testing that the r-tree correctly handles
 # out-of-memory conditions.
 #
-# $Id: rtree3.test,v 1.1 2008/05/26 18:41:54 danielk1977 Exp $
+# $Id: rtree3.test,v 1.2 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 {

diff --git a/ext/rtree/rtree4.test b/ext/rtree/rtree4.test
index 5eb3e1f41194ff78390187ea423bbb481bc635ac..d73e7a6969c7cd8e24910d0553aa1e2ae80859af 100644 (file)
--- a/ext/rtree/rtree4.test
+++ b/ext/rtree/rtree4.test
@@ -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 {

diff --git a/main.mk b/main.mk
index 4fb40de29818cb11d00fee08683a5b7309e107ed..c56aa21ad94b508a9b6cdbc83d156e6ca9a0b263 100644 (file)
--- a/main.mk
+++ b/main.mk
@@ -44,7 +44,7 @@
 
 # This is how we compile
 #
-TCCX = $(TCC) $(OPTS) -I. -I$(TOP)/src -I$(TOP)
+TCCX = $(TCC) $(OPTS) -I. -I$(TOP)/src -I$(TOP) -I$(TOP)/ext/rtree
 
 # Object files for the SQLite library.
 #

diff --git a/manifest b/manifest
index 44fa73168405217e33b234e876359caeac3cef98..84e4a487fa4ac23c5a6bc6e95e62df5eab228e49 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Handle\sa\sreal\ssystem\smalloc()\sfailure\sin\smem1.c.\s(CVS\s5281)
-D 2008-06-23T15:10:25
+C Run\s(a\ssubset\sof)\sthe\srtree\stests\sfrom\squick.test.\s(CVS\s5282)
+D 2008-06-23T15:55:52
 F Makefile.arm-wince-mingw32ce-gcc ac5f7b2cef0cd850d6f755ba6ee4ab961b1fadf7
 F Makefile.in ff6f90048555a0088f6a4b7406bed5e55a7c4eff
 F Makefile.linux-gcc d53183f4aa6a9192d249731c90dbdffbd2c68654
@@ -64,19 +64,18 @@ F ext/fts3/mkfts3amal.tcl 252ecb7fe6467854f2aa237bf2c390b74e71f100
 F ext/icu/README.txt 3b130aa66e7a681136f6add198b076a2f90d1e33
 F ext/icu/icu.c 12e763d288d23b5a49de37caa30737b971a2f1e2
 F ext/rtree/README 6315c0d73ebf0ec40dedb5aa0e942bc8b54e3761
-F ext/rtree/rtree.c 28b8650cb1594b6a26a47db0b0a3269c8c8d1d43
+F ext/rtree/rtree.c 20b87410e55f33a03e0f7cc58c0f1908faf91858
 F ext/rtree/rtree.h 834dbcb82dc85b2481cde6a07cdadfddc99e9b9e
-F ext/rtree/rtree.test ec173a9420ff012e4d29b3063add143583a597a7
-F ext/rtree/rtree1.test 7504a4bd3aaad379d2d712bbb05fc75460e8537d
-F ext/rtree/rtree2.test 3402e9d57cac67651779130bafd4162772d2420e
-F ext/rtree/rtree3.test 46d1959aa651d3df8b64d93762d3061c62b38105
-F ext/rtree/rtree4.test 029a2a09bd021ed9e38ded7bea31f73b8dca2480
+F ext/rtree/rtree1.test b7c40c535804f786ea1dbf975a28f0c0e2d26f88
+F ext/rtree/rtree2.test 07aea32287ce3f7717fe285e6172e5418ce3fd52
+F ext/rtree/rtree3.test 877a09c1a0c2b87af0f94f3a286e7dd3b65adf22
+F ext/rtree/rtree4.test 11724f766a74f48710998cdd7552cec140c55bf9
 F ext/rtree/rtree_perf.tcl 0fabb6d5c48cb8024e042ce5d4bb88998b6ec1cb
 F ext/rtree/rtree_util.tcl ee0a0311eb12175319d78bfb37302320496cee6e
 F ext/rtree/viewrtree.tcl 09526398dae87a5a87c5aac2b3854dbaf8376869
 F install-sh 9d4de14ab9fb0facae2f48780b874848cbf2f895
 F ltmain.sh 09fe5815427dc7d0abb188bbcdf0e34896577210
-F main.mk f7be21bc9c67879c249b86b332a0b4f8eeef3d3b
+F main.mk d05e1f618544095915ab4d91d6057d439eee7004
 F mkdll.sh 712e74f3efe08a6ba12b2945d018a29a89d7fe3b
 F mkextu.sh 416f9b7089d80e5590a29692c9d9280a10dbad9f
 F mkextw.sh 1a866b53637dab137191341cc875575a5ca110fb
@@ -423,7 +422,7 @@ F test/pager2.test c025f91b75fe65e85febda64d9416428b8a5cab5
 F test/pager3.test 2323bf27fd5bd887b580247e5bce500ceee994b4
 F test/pageropt.test 6df72c441db0a037b7ec6990d16311c24fbea77b
 F test/pagesize.test e0a8b3fe80f8b8e808d94a00734c7a18c76c407e
-F test/permutations.test aaf905172ee1c2bbd595bf8b94320a1c7581b383
+F test/permutations.test eb7373f8dd450b99b8addfdabe820da0cc851e54
 F test/pragma.test 6b9bee4f5dbb9bccde4d0d5caf13a33f9da86e15
 F test/pragma2.test 5364893491b9231dd170e3459bfc2e2342658b47
 F test/printf.test c3405535b418d454e8a52196a0fc592ec9eec58d
@@ -435,6 +434,7 @@ F test/rdonly.test b34db316525440d3b42c32e83942c02c37d28ef0
 F test/reindex.test 38b138abe36bf9a08c791ed44d9f76cd6b97b78b
 F test/rollback.test 0bd29070ba2f76da939347773fbda53337ebd61c
 F test/rowid.test 1c8fc43c60d273e6ea44dfb992db587f3164312c
+F test/rtree.test a8404a59bbc3a7827db9bfb334790c852f0391b3
 F test/safety.test b69e2b2dd5d52a3f78e216967086884bbc1a09c6
 F test/schema.test a8b000723375fd42c68d310091bdbd744fde647c
 F test/schema2.test 35e1c9696443d6694c8980c411497c2b5190d32e
@@ -592,7 +592,7 @@ F tool/speedtest16.c c8a9c793df96db7e4933f0852abb7a03d48f2e81
 F tool/speedtest2.tcl ee2149167303ba8e95af97873c575c3e0fab58ff
 F tool/speedtest8.c 1dbced29de5f59ba2ebf877edcadf171540374d1
 F tool/speedtest8inst1.c 293327bc76823f473684d589a8160bde1f52c14e
-P 1de98da6b4c2039e5dc594cc9bfc7d49ae36697c
-R 1096b6f46bafe59852717e33d5ec098a
+P 006fd69bf56f05448fd9aa82d3b1cdcc175369ad
+R eaeaee6d431b07ec903a8c0b496cdb2e
 U danielk1977
-Z 14a1331b5777495bf864709dca28d63b
+Z 4f90c48cde8f4b8c15d87a303ff9e628

diff --git a/manifest.uuid b/manifest.uuid
index 545e622939ac853cc5ab86081d9898fcfa79007a..62abf327c27b3c754e3423bb002fb13e3785ab4c 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-006fd69bf56f05448fd9aa82d3b1cdcc175369ad
\ No newline at end of file
+e872c78c72eb5976e72123485692a76409bd857f
\ No newline at end of file

diff --git a/test/permutations.test b/test/permutations.test
index a8bb33e1ebe460554256d69341b5fec0cf1370de..ff568222a709aae927b388d2f3170ee7fb9df690 100644 (file)
--- a/test/permutations.test
+++ b/test/permutations.test
@@ -9,7 +9,7 @@
 #
 #***********************************************************************
 #
-# $Id: permutations.test,v 1.2 2008/06/21 19:10:27 danielk1977 Exp $
+# $Id: permutations.test,v 1.3 2008/06/23 15:55:52 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -329,6 +329,29 @@ run_tests "autovacuum_ioerr" -description {
   pragma auto_vacuum = 1
 } -include ioerr.test
 
+# run_tests "crash_safe_append" -description {
+#   Run crash.test with persistent journals on a SAFE_APPEND file-system.
+# } -initialize {
+#   rename crashsql sa_crashsql
+#   proc crashsql {args} {
+#     set options [lrange $args 0 [expr {[llength $args]-2}]]
+#     lappend options -char safe_append
+#     set sql [lindex $args end]
+#     lappend options "
+#       PRAGMA journal_mode=persistent;
+#       $sql
+#     "
+#     set fd [open test.db-journal w]
+#     puts $fd [string repeat 1234567890 100000]
+#     close $fd
+#     eval sa_crashsql $options
+#   }
+# } -shutdown {
+#   rename crashsql {}
+#   rename sa_crashsql crashsql
+# } -include crash.test
+
+
 # End of tests
 #############################################################################
 

diff --git a/ext/rtree/rtree.test b/test/rtree.test
similarity index 53%
rename from ext/rtree/rtree.test
rename to test/rtree.test
index 1dbfddf05446c8dc237c791a14c66c56b1443a48..e6337587bbc0a34919ac0854b75d5ed3dc2aa303 100644 (file)
--- a/ext/rtree/rtree.test
+++ b/test/rtree.test
@@ -6,28 +6,24 @@
 #***********************************************************************
 # This file runs all rtree related tests.
 #
-# $Id: rtree.test,v 1.1 2008/05/26 18:41:54 danielk1977 Exp $
+# $Id: rtree.test,v 1.1 2008/06/23 15:55:52 danielk1977 Exp $
 
-set testdir [file join [file dirname $argv0] .. .. test]
+set testdir [file dirname $argv0]
 source $testdir/tester.tcl
-rename finish_test really_finish_test
+
+rename finish_test rtree_finish_test
 proc finish_test {} {}
-set ISQUICK 1
 
-set EXCLUDE {
-  rtree.test
+set RTREE_EXCLUDE { }
+if {[info exists ISQUICK] && $ISQUICK} { 
+  set RTREE_EXCLUDE rtree3.test
 }
 
-# Files to include in the test.  If this list is empty then everything
-# that is not in the EXCLUDE list is run.
-#
-set INCLUDE {
-}
+set rtreedir [file join $testdir .. ext rtree]
 
-foreach testfile [lsort -dictionary [glob [file dirname $argv0]/*.test]] {
+foreach testfile [lsort -dictionary [glob $rtreedir/*.test]] {
   set tail [file tail $testfile]
-  if {[lsearch -exact $EXCLUDE $tail]>=0} continue
-  if {[llength $INCLUDE]>0 && [lsearch -exact $INCLUDE $tail]<0} continue
+  if {[lsearch -exact $RTREE_EXCLUDE $tail]>=0} continue
   source $testfile
   catch {db close}
   if {$sqlite_open_file_count>0} {
@@ -39,5 +35,7 @@ foreach testfile [lsort -dictionary [glob [file dirname $argv0]/*.test]] {
 }
 
 set sqlite_open_file_count 0
-really_finish_test
+rtree_finish_test
+rename finish_test {}
+rename rtree_finish_test finish_test