[elephant-cvs] CVS elephant/tests

[ieslick]

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

Modified Files:
	testsleepycat.lisp 
Log Message:
Fix for spurious error message

--- /project/elephant/cvsroot/elephant/tests/testsleepycat.lisp	2006/02/19 04:53:02	1.7
+++ /project/elephant/cvsroot/elephant/tests/testsleepycat.lisp	2006/09/04 05:20:43	1.8
@@ -25,16 +25,16 @@
   
   (setq db (sleepycat::db-create env))
   (sleepycat::db-open db :file "testsleepycat" :database "bar" :type SLEEPYCAT::DB-BTREE
-	   :auto-commit t :create t :thread t))
+		      :auto-commit t :create t :thread t))
 
 (deftest prepares-sleepycat
     (progn
-      (if (not (find-package :sleepycat))
-	(progn 
-	  (format t "sleepycat db not valid, so not runnning test prepares-sleepycat~%")
-	  t)
-	(finishes (prepare-sleepycat))))
-    t)
+      (if (find-package :sleepycat)
+	  (finishes (prepare-sleepycat))
+	  (progn 
+	    (format t "Berkeley DB not loaded, so not runnning test prepares-sleepycat~%")
+	    t)))
+  t)
 
 #|
 (deftest put-alot
@@ -77,9 +77,9 @@
 	  finally (sleepycat::db-sequence-remove seq :auto-commit t))))
 
 (deftest test-seq1
-    (if (not (find-package 'ele-bdb))
+    (if (not (find-package :sleepycat))
 	(progn 
-	  (format t "database db not valid, so not runnning test test-seq1~%")
+	  (format t "Berkeley db not loaded, so not runnning test test-seq1~%")
 	     t)
     (finishes (test-sequence1)))
   t)
@@ -117,7 +117,7 @@
 (deftest cleansup-sleepycat
     (if (not db)
 	(progn 
-	  (format t "sleepycat db not valid, so not runnning test cleanup-sleepycat~%")
+	  (format t "Berkeley DB not open, so not runnning test cleanup-sleepycat~%")
 	     t)
     (finishes (cleanup-sleepycat)))
   t)