Use wider fields for number of tests, successes and failures.

Pascal J. Bourguignon [2021-05-15 02:20]
Use wider fields for number of tests, successes and failures.
Filename
common-lisp/cesarum/simple-test.lisp
diff --git a/common-lisp/cesarum/simple-test.lisp b/common-lisp/cesarum/simple-test.lisp
index b7d766f..746b85f 100644
--- a/common-lisp/cesarum/simple-test.lisp
+++ b/common-lisp/cesarum/simple-test.lisp
@@ -306,9 +306,9 @@ FAILURE-COUNT."
     (let ((name-max-length 40))
       (flet ((write-tally (name)
                (format *test-output* "~&~VA~@[~%~0@*~V<~>~3@*~]~
-                       ~5D test~:*~P,~:*~[~; ~;~]~
-                       ~4D success~:*~[es~;~:;es~]~
-                       ~:[,~2:*~[~;  ~;~]~*~4D failure~:*~P~;~].~%"
+                       ~9D test~:*~P,~:*~[~; ~;~]~
+                       ~8D success~:*~[es~;~:;es~]~
+                       ~:[,~2:*~[~;  ~;~]~*~8D failure~:*~P~;~].~%"
                        name-max-length name (< name-max-length (length name))
                        (+ success-count failure-count)
                        success-count
ViewGit