projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8926: add database-create database-destroy database-probe
[clsql.git]
/
tests
/
test-init.lisp
diff --git
a/tests/test-init.lisp
b/tests/test-init.lisp
index 89b6ce204ff7638aa5d1ba8e1ba23ee42a364931..ebbcf8396d9d35e9da24ea762d09e9e681dafbc8 100644
(file)
--- 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
(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)
(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))
(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))))))
(test-connect-to-database db-type spec)
(test-initialise-database)
(rtest:do-tests))))))