projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e74641f
)
Ensure report column is wide enough for longest test name
author
Kevin Rosenberg
<kevin@rosenberg.net>
Wed, 3 Feb 2010 09:19:02 +0000
(
02:19
-0700)
committer
Kevin Rosenberg
<kevin@rosenberg.net>
Wed, 3 Feb 2010 09:19:02 +0000
(
02:19
-0700)
tests/test-init.lisp
patch
|
blob
|
history
diff --git
a/tests/test-init.lisp
b/tests/test-init.lisp
index da40ad781ec5c6e0f33de48eda73a7daa3340760..a7f8a84c476b64f7023d16b5f255cf806d8aab6c 100644
(file)
--- a/
tests/test-init.lisp
+++ b/
tests/test-init.lisp
@@
-173,9
+173,14
@@
(format *report-stream* "~&Tests skipped:")
(if skip-tests
(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)))
(format *report-stream* " None~%")))
(disconnect)))