X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-init.lisp;fp=tests%2Ftest-init.lisp;h=a7f8a84c476b64f7023d16b5f255cf806d8aab6c;hp=da40ad781ec5c6e0f33de48eda73a7daa3340760;hb=2d6d03a10087483843856e09f5204b1b172fbea6;hpb=e74641f3be973e28b30605777bcd6ad4ec493867

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index da40ad7..a7f8a84 100644
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -173,9 +173,14 @@
 
            (format *report-stream* "~&Tests skipped:")
            (if skip-tests
-               (dolist (skipped skip-tests)
-                 (format *report-stream*
-                         "~&   ~30A ~A~%" (car skipped) (cdr skipped)))
+               (let ((max-test-name 20))
+                 (dolist (skipped skip-tests)
+                   (let ((len (length (symbol-name (car skipped)))))
+                     (when (> len max-test-name)
+                       (setq max-test-name len))))
+                 (let ((fmt (format nil "~~&  ~~~DA ~~A~~%" max-test-name)))
+                   (dolist (skipped skip-tests)
+                     (format *report-stream* fmt (car skipped) (cdr skipped)))))
                (format *report-stream* " None~%")))
     (disconnect)))