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)