X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-init.lisp;h=ebbcf8396d9d35e9da24ea762d09e9e681dafbc8;hp=89b6ce204ff7638aa5d1ba8e1ba23ee42a364931;hb=c4da3cfcbb955395d8a556e1f89aadad696302b7;hpb=afa1e8481ca62ee15952c695fd04c8601b65b218

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index 89b6ce2..ebbcf83 100644
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -314,12 +314,19 @@
     (dolist (db-type +all-db-types+)
       (let ((spec (db-type-spec db-type specs)))
 	(when spec
+	  (format t 
+"~&
+*******************************************************************
+***     Running CLSQL tests with ~A backend.
+*******************************************************************
+" db-type)
 	  (db-type-ensure-system db-type)
 	  (rt:rem-all-tests)
+	  (ignore-errors (destroy-database spec :database-type db-type))
+	  (ignore-errors (create-database spec :database-type db-type))
 	  (dolist (test (append *rt-connection* *rt-fddl* *rt-fdml*
 				*rt-ooddl* *rt-oodml* *rt-syntax*))
 	    (eval test))
-	  (format t "~&Running CLSQL tests with ~A backend.~%" db-type)
 	  (test-connect-to-database db-type spec)
 	  (test-initialise-database)
 	  (rtest:do-tests))))))