[elephant-cvs] CVS elephant/tests

[ieslick]

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