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)