qtest: Make sure we end on a fresh line after running tests

diff --git a/tests/qtest.lisp b/tests/qtest.lisp
index 0259e45e605cdb02e160d9905da6e2b579c7a4a3..71fb0505fec6a02717996e8e9a6190d6ee2e0792 100644 (file)
--- a/tests/qtest.lisp
+++ b/tests/qtest.lisp
@@ -44,7 +44,8 @@
 (defun run-all-tests ()
   (dolist (test *all-registered-tests*)
     (format t "~&Running test ~A" test)
-    (funcall test)))
+    (funcall test))
+  (fresh-line))
 
 (defmacro assert-equal (actual expected &key (test '#'equal))
   `(unless (funcall ,test ,actual ,expected)