[elephant-cvs] CVS elephant/tests

[rread]

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

Modified Files:
	testcollections.lisp testsleepycat.lisp 
Log Message:
Improved the tests


--- /project/elephant/cvsroot/elephant/tests/testcollections.lisp	2006/01/24 18:25:01	1.6
+++ /project/elephant/cvsroot/elephant/tests/testcollections.lisp	2006/01/25 15:36:32	1.7
@@ -12,7 +12,8 @@
 		 (let ((sc1 (open-store *test-path-primary*)))
 		   (setf rv (equal (format nil "~A" x)
 				   (format nil "~A" (get-from-root "x"))))
-		   (close-store sc1)
+;; This line makes the tests fail, though I don't know why!
+;;		   (close-controller *store-controller*)
 		   ))
 	    (progn
 	    (setq *store-controller* old-store)
--- /project/elephant/cvsroot/elephant/tests/testsleepycat.lisp	2006/01/24 18:25:01	1.4
+++ /project/elephant/cvsroot/elephant/tests/testsleepycat.lisp	2006/01/25 15:36:32	1.5
@@ -17,7 +17,7 @@
 	   :auto-commit t :create t :thread t))
 
 (deftest prepares-sleepycat
-    (if (not (find-package "ele-bdb"))
+    (if (not (find-package 'ele-bdb))
 	(progn 
 	  (format t "package ele-bdb not found, so not runnning test prepares-sleepycat~%")
 	     t)
@@ -65,7 +65,7 @@
 	  finally (sleepycat::db-sequence-remove seq :auto-commit t))))
 
 (deftest test-seq1
-    (if (not (find-package "ele-bdb"))
+    (if (not (find-package 'ele-bdb))
 	(progn 
 	  (format t "package ele-bdb not found, so not runnning test prepares-sleepycat~%")
 	     t)
@@ -88,7 +88,7 @@
 	  finally (sleepycat::db-sequence-remove seq :auto-commit t))))
 
 (deftest test-seq2
-    (if (not (find-package "ele-bdb"))
+    (if (not (find-package 'ele-bdb))
 	(progn 
 	  (format t "package ele-bdb not found, so not runnning test prepares-sleepycat~%")
 	     t)
@@ -103,7 +103,7 @@
   (sleepycat::db-env-remove env "test"))
 
 (deftest cleansup-sleepycat
-    (if (not (find-package "ele-bdb"))
+    (if (not (find-package 'ele-bdb))
 	(progn 
 	  (format t "package ele-bdb not found, so not runnning test prepares-sleepycat~%")
 	     t)