(clsql:update-records-from-instance employee10)
(clsql:update-records-from-instance company1))
+(defvar *error-count* 0)
+
(defun run-tests ()
- (let ((specs (read-specs)))
+ (let ((specs (read-specs))
+ (*error-count* 0))
(unless specs
(warn "Not running tests because test configuration file is missing")
(return-from run-tests :skipped))
(dolist (db-type +all-db-types+)
(let ((spec (db-type-spec db-type specs)))
(when spec
- (do-tests-for-backend spec db-type))))))
+ (do-tests-for-backend spec db-type))))
+ (zerop *error-count*)))
(defun load-necessary-systems (specs)
(dolist (db-type +all-db-types+)
(ignore-errors (create-database spec :database-type db-type))
(with-tests (:name "CLSQL")
(test-basic spec db-type))
-
+ (incf *error-count* *test-errors*)
+
(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*
(eval test))
(test-connect-to-database db-type spec)
(test-initialise-database)
- (rtest:do-tests))
+ (let ((remaining (rtest:do-tests)))
+ (when (consp remaining)
+ (incf *error-count* (length remaining)))))
+