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)