print start and stop messages while testing (probably remove, but for now I am having...

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index 88322083db113eb9334bcb6c8081d2f9ff7c8073..4aa485a7711d26b8460c2ed1d08fb3aac6e3e36f 100644 (file)
--- 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))
           (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+)
 
 (defun load-necessary-systems (specs)
   (dolist (db-type +all-db-types+)