From ef7951fc3ed3b05c6f98d5723753a53f870eb8ff Mon Sep 17 00:00:00 2001 From: Russ Tyndall Date: Wed, 11 Jun 2014 14:54:54 -0400 Subject: [PATCH] print start and stop messages while testing (probably remove, but for now I am having issues with one crashing before printing anything) --- tests/test-init.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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+) -- 2.34.1