X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-init.lisp;h=4aa485a7711d26b8460c2ed1d08fb3aac6e3e36f;hb=ef7951fc3ed3b05c6f98d5723753a53f870eb8ff;hp=88322083db113eb9334bcb6c8081d2f9ff7c8073;hpb=22f792cf09747cce9998bed27bbd7ea3cf21b878;p=clsql.git

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+)