[elephant-cvs] CVS elephant/tests

[ieslick]

Update of /project/elephant/cvsroot/elephant/tests
In directory common-lisp:/tmp/cvs-serv15325/tests

Modified Files:
      Tag: ELEPHANT-0-4-1-rc1-IAN
	elephant-tests.lisp testcollections.lisp testindexing.lisp 
Log Message:

Significant rework of portions of the indexing.  Still chasing an odd test interaction
but all tests pass under (do-indexing-tests) but not under (do-all-tests).  Very odd.
This should constitute a first feature set release.  I will add tests incrementally
as I work with the system.


--- /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp	2006/01/29 04:57:21	1.7.2.2
+++ /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp	2006/01/30 04:55:00	1.7.2.3
@@ -133,13 +133,23 @@
       (let ((*auto-commit* nil))
 	(do-tests)))))
 
-(defun do-test-spec (testname &optional (spec *test-path-primary*))
+(defun do-test-spec (testname &optional (spec *testdb-path*))
   "For easy interactive running of tests while debugging"
   (when spec
     (with-open-store (spec)
       (let ((*auto-commit* nil))
 	(do-test testname)))))
 
+(defun do-indexing-tests ()
+  (setf *old-store* *store-controller*)
+  (open-store *testdb-path*)
+  (print (do-test 'indexing-basic))
+  (print (do-test 'indexing-inherit))
+  (print (do-test 'indexing-range))
+  (print (do-test 'indexing-reconnect-db))
+  (close-store)
+  (setf *store-controller* *old-store*))
+
 (defun do-crazy-pg-tests()
   (open-store *testpg-path*)
   (do-test 'indexed-btree-make)
--- /project/elephant/cvsroot/elephant/tests/testcollections.lisp	2006/01/25 15:36:32	1.7
+++ /project/elephant/cvsroot/elephant/tests/testcollections.lisp	2006/01/30 04:55:00	1.7.2.1
@@ -204,6 +204,7 @@
 (deftest remove-kv-from-slot1
     (finishes (remove-kv 2 index1))
   t)
+
 (deftest no-key-nor-indices-slot1
     (values
      (get-value (second keys) indexed)
@@ -214,6 +215,7 @@
 (deftest remove-kv-from-slot2
     (finishes (remove-kv 300 index2))
   t)
+
 (deftest no-key-nor-indices-slot2
     (values
      (get-value (third keys) indexed)