- (db-type-ensure-system db-type)
- (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))
- (test-connect-to-database db-type spec)
- (test-initialise-database)
- (rtest:do-tests))))))
+ (regression-test:rem-all-tests)
+
+ ;; Tests of clsql-base
+ (ignore-errors (destroy-database spec :database-type db-type))
+ (ignore-errors (create-database spec :database-type db-type))
+ (with-tests (:name "CLSQL")
+ (test-basic spec db-type))
+
+ (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))
+ (test-connect-to-database db-type spec)
+ (test-initialise-database)
+ (rtest:do-tests))