:make-default t
:if-exists :old)
- (unless (db-backend-has-create/destroy-db? db-type)
- (truncate-database :database *default-database*))
+ ;; Ensure database is empty
+ (truncate-database :database *default-database*)
(setf *test-database-underlying-type*
(clsql-sys:database-underlying-type *default-database*))
(defun load-necessary-systems (specs)
(dolist (db-type +all-db-types+)
(when (db-type-spec db-type specs)
- (db-type-ensure-system db-type))))
+ (clsql:initialize-database-type :database-type db-type))))
(defun do-tests-for-backend (db-type spec)
(test-connect-to-database db-type spec)