projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9186: add attribute caching, improve inititialize-database-type
[clsql.git]
/
tests
/
test-init.lisp
diff --git
a/tests/test-init.lisp
b/tests/test-init.lisp
index ca402ce88341e641c6a143c7c7634b9e2426f09c..3e6d85a21a551b44d7f30f52399bf1f23ac6673f 100644
(file)
--- a/
tests/test-init.lisp
+++ b/
tests/test-init.lisp
@@
-137,8
+137,8
@@
:make-default t
:if-exists :old)
: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*))
(setf *test-database-underlying-type*
(clsql-sys:database-underlying-type *default-database*))
@@
-334,7
+334,7
@@
(defun load-necessary-systems (specs)
(dolist (db-type +all-db-types+)
(when (db-type-spec db-type specs)
(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)
(defun do-tests-for-backend (db-type spec)
(test-connect-to-database db-type spec)