(dolist (spec (db-type-spec db-type specs))
(let ((*test-connection-spec* spec)
(*test-connection-db-type* db-type))
- (do-tests-for-backend db-type spec :suites suites)))))))
- (zerop *error-count*))
+ (format report-stream "~%~%Start Running Tests Against: ~A ~A~%~%" db-type (ignore-errors (subseq spec 0 2)))
+ (do-tests-for-backend db-type spec :suites suites)
+ (format report-stream "~%~%Finished Running Tests Against: ~A ~A~%~%" db-type (ignore-errors (subseq spec 0 2))))))))
+ (zerop *error-count*)))
(defun load-necessary-systems (specs)
(dolist (db-type +all-db-types+)
(let ((test (second test-form)))
(cond
((and (not (eql db-underlying-type :mysql))
- (clsql-sys:in test :connection/query-command))
+ (clsql-sys:in test :connection/query-command
+ :basic/reallybigintegers/1))
(push (cons test "known to work only in MySQL as yet.") skip-tests))
((and (null (clsql-sys:db-type-has-views? db-underlying-type))
(clsql-sys:in test :fddl/view/1 :fddl/view/2 :fddl/view/3 :fddl/view/4))