[elephant-cvs] CVS elephant/tests

[ieslick]

Update of /project/elephant/cvsroot/elephant/tests
In directory clnet:/tmp/cvs-serv14219/tests

Modified Files:
	testbdb.lisp 
Log Message:
Fix bug where BDB tests failing with running SQL backend tests; initial x86/64-bit support for CMUCL/SBCL

--- /project/elephant/cvsroot/elephant/tests/testbdb.lisp	2006/11/11 18:41:11	1.1
+++ /project/elephant/cvsroot/elephant/tests/testbdb.lisp	2006/11/11 22:53:13	1.2
@@ -11,7 +11,7 @@
 ;;; as governed by the terms of the Lisp Lesser GNU Public License
 ;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 
-(in-package "ELE-TESTS")
+(in-package :ele-tests)
 
 
 (defvar env)
@@ -29,7 +29,10 @@
 
 (deftest prepares-bdb
     (progn
-      (if (find-package :db-bdb)
+      (setq db nil)
+      (if (and (find-package :db-bdb) 
+	       (eq (first (elephant::controller-spec *store-controller*))
+		   :BDB))
 	  (finishes (prepare-bdb))
 	  (progn 
 	    (format t "Berkeley DB not loaded, so not runnning test prepares-bdb~%")
@@ -77,11 +80,11 @@
 	  finally (db-bdb::db-sequence-remove seq :auto-commit t))))
 
 (deftest test-seq1
-    (if (not (find-package :db-bdb))
+    (if (not db)
 	(progn 
 	  (format t "Berkeley db not loaded, so not runnning test test-seq1~%")
-	     t)
-    (finishes (test-sequence1)))
+	  t)
+	(finishes (test-sequence1)))
   t)
 
 (defun test-sequence2 ()
@@ -118,8 +121,8 @@
     (if (not db)
 	(progn 
 	  (format t "Berkeley DB not open, so not runnning test cleanup-bdb~%")
-	     t)
-    (finishes (cleanup-bdb)))
+	  t)
+	(finishes (cleanup-bdb)))
   t)
 
 ;;(unuse-package "DB-BDB")