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

Modified Files: testbdb.lisp Log Message: Fix idempotence problem in prepares-bdb

--- /project/elephant/cvsroot/elephant/tests/testbdb.lisp 2007/02/03 00:57:35 1.4 +++ /project/elephant/cvsroot/elephant/tests/testbdb.lisp 2007/02/20 15:48:14 1.5 @@ -18,6 +18,11 @@ (defvar db)

(defun prepare-bdb () + (ignore-errors + (delete-file (make-pathname :defaults (cdr *bdb-spec*) + :name "testsbdb")) + (delete-file (make-pathname :defaults (cdr *bdb-spec*) + :name "log.0000000001"))) (setq env (db-bdb::db-env-create)) (db-bdb::db-env-open env (cdr *bdb-spec*) :create t :init-txn t :init-lock t :init-mpool t :init-log t :thread t