be clearer about an okay test result

tests.l

@@ -901,12 +901,15 @@
       (a b c 133 e f g h))
 
 ;; End Of Tests ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(format t "\ndone testing\n\n")
+(format t "\ndone testing")
 (if fails
-    (let ((list (reverse fails)))
-      (format t "{} FAILS:\n" (length fails))
-      (while list
-        (format t "  {}\n" (pop list)))))
+    (progn
+      (format t "\n\n")
+      (let ((list (reverse fails)))
+        (format t "{} FAILS:\n" (length fails))
+        (while list
+          (format t "  {}\n" (pop list)))))
+  (format t ", all ok\n\n"))
 (when dup-test-names
     (dolist (testname dup-test-names)
       (format t "WARN: duplicate test name {}\n" testname))