X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-init.lisp;h=005c247f803c47bf1b1d471eb2890427221728af;hb=e5744a78271044484b3399d4fc1d55b3e8808784;hp=89b6ce204ff7638aa5d1ba8e1ba23ee42a364931;hpb=67e6b9eaab9c9bcf8b57cbd476581437e4876b26;p=clsql.git diff --git a/tests/test-init.lisp b/tests/test-init.lisp index 89b6ce2..005c247 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) + (regression-test: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))))))