From 2d6d03a10087483843856e09f5204b1b172fbea6 Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Wed, 3 Feb 2010 02:19:02 -0700 Subject: [PATCH] Ensure report column is wide enough for longest test name --- tests/test-init.lisp | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) 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))) -- 2.34.1