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

Modified Files: elephant-tests.lisp Log Message: Snapshot prior to transaction fix and backend reorg

--- /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp 2006/02/17 04:22:19 1.12 +++ /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp 2006/02/17 22:45:21 1.13 @@ -103,13 +103,6 @@ (do-all-tests-spec *testsqlite3-path*) ))

-;; (defun do-all-tests-spec (spec) -;; (when spec -;; (with-open-store (spec) -;; (let ((*auto-commit* nil)) -;; (declare (special *auto-commit*)) -;; (do-tests))))) - (defun do-test-spec (testname &optional (spec *testdb-path*)) "For easy interactive running of tests while debugging" (when spec @@ -117,6 +110,14 @@ (let ((*auto-commit* nil)) (do-test testname)))))

+(defun do-all-tests-spec(spec) + (when spec + (with-open-store (spec) + (let ((*auto-commit* nil)) + (declare (special *auto-commit*) + (dynamic-extent *auto-commit*)) + (do-tests))))) + (defun do-indexing-tests () (declare (special *old-store*)) (setq *old-store* *store-controller*) @@ -160,14 +161,6 @@ ) ))

-(defun do-all-tests-spec(spec) - (when spec - (with-open-store (spec) - (let ((*auto-commit* nil)) - (declare (special *auto-commit*) - (dynamic-extent *auto-commit*)) - (do-tests))))) - (defun find-slot-def (class-name slot-name) (find-if #'(lambda (slot-def) (eq (slot-definition-name slot-def) slot-name))