: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)
(dolist (test-form test-forms)
(eval test-form))
- (let ((remaining (rtest:do-tests *report-stream*)))
- (when (rt:pending-tests)
+ (let ((remaining (regression-test:do-tests *report-stream*)))
+ (when (regression-test:pending-tests)
(incf *error-count* (length remaining))))
(let ((sexp-error (list db-type
*test-database-underlying-type*
(get-universal-time)
(length test-forms)
- (rt:pending-tests)
+ (regression-test:pending-tests)
(lisp-implementation-type)
(lisp-implementation-version)
(machine-type))))
(defun compute-tests-for-backend (db-type db-underlying-type)
(let ((test-forms '())
(skip-tests '()))
- (dolist (test-form (append
- (if (eq db-type :sqlite)
- (test-basic-forms-untyped)
- (test-basic-forms))
- *rt-connection* *rt-fddl* *rt-fdml*
- *rt-ooddl* *rt-oodml* *rt-syntax*))
+ (dolist (test-form (append (test-basic-forms)
+ *rt-connection* *rt-fddl* *rt-fdml*
+ *rt-ooddl* *rt-oodml* *rt-syntax*))
(let ((test (second test-form)))
(cond
((and (null (db-type-has-views? db-underlying-type))