[elephant-cvs] CVS elephant/tests

[ieslick]

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))