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

Modified Files: Tag: ELEPHANT-0-4-1-rc1-IAN elephant-tests.lisp Added Files: Tag: ELEPHANT-0-4-1-rc1-IAN testindexing.lisp Log Message: First pass complete indexing solution including basic tests.

--- /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp 2006/01/27 00:03:49 1.7.2.1 +++ /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp 2006/01/29 04:57:21 1.7.2.2 @@ -116,17 +116,30 @@ (defvar *test-path-primary* *testdb-path* ) + (defvar *test-path-secondary* - *testpg-path* + *testsqlite3-path* )

- (defun do-all-tests() (progn (do-all-tests-spec *testdb-path*) - (do-all-tests-spec *testpg-path*) + (do-all-tests-spec *testsqlite3-path*) ))

+(defun do-all-tests-spec(spec) + (when spec + (with-open-store (spec) + (let ((*auto-commit* nil)) + (do-tests))))) + +(defun do-test-spec (testname &optional (spec *test-path-primary*)) + "For easy interactive running of tests while debugging" + (when spec + (with-open-store (spec) + (let ((*auto-commit* nil)) + (do-test testname))))) + (defun do-crazy-pg-tests() (open-store *testpg-path*) (do-test 'indexed-btree-make) @@ -149,13 +162,7 @@ t ) )) - -(defun do-all-tests-spec(spec) - (when spec - (with-open-store (spec) - (let ((*auto-commit* nil)) - (do-tests))))) - + (defun find-slot-def (class-name slot-name) (find-if #'(lambda (slot-def) (eq (slot-definition-name slot-def) slot-name))