From: Russ Tyndall Date: Wed, 11 Jun 2014 18:54:54 +0000 (-0400) Subject: print start and stop messages while testing (probably remove, but for now I am having... X-Git-Tag: v6.6.0~7 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=ef7951fc3ed3b05c6f98d5723753a53f870eb8ff print start and stop messages while testing (probably remove, but for now I am having issues with one crashing before printing anything) --- diff --git a/tests/test-init.lisp b/tests/test-init.lisp index 8832208..4aa485a 100644 --- a/tests/test-init.lisp +++ b/tests/test-init.lisp @@ -124,8 +124,10 @@ (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+)