[elephant-cvs] CVS elephant/tests
ieslick
ieslick at common-lisp.net
Fri Feb 17 22:45:21 UTC 2006
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))
More information about the Elephant-cvs
mailing list