- (dolist (skipped skip-tests)
- (format *report-stream*
- "~& ~30A ~A~%" (car skipped) (cdr skipped)))
+ (let ((max-test-name (length (symbol-name (caar skip-tests)))))
+ (dolist (skipped (cdr 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)
+ ;; word-wrap the reason string field
+ (let* ((test (car skipped))
+ (reason (cdr skipped))
+ (rlen (length reason))
+ (rwidth (max 20 (- (or *test-report-width* 80) max-test-name 3)))
+ (rwords (clsql-sys::delimited-string-to-list reason #\space t))
+ (rformat (format nil "~~{~~<~%~~1,~D:;~~A~~> ~~}" rwidth))
+ (rwrapped (format nil rformat rwords))
+ (rlines (clsql-sys::delimited-string-to-list rwrapped #\Newline t)))
+ (dolist (rline rlines)
+ (format *report-stream* fmt (if test
+ (prog1
+ test
+ (setq test nil))
+ "")
+ rline))))))