[elephant-cvs] CVS elephant/tests

[ieslick]

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