qtest: Make sure we end on a fresh line after running tests
authorAlejandro R Sedeño <asedeno@google.com>
Thu, 7 Mar 2013 21:22:15 +0000 (16:22 -0500)
committerAlejandro R Sedeño <asedeno@google.com>
Thu, 7 Mar 2013 21:22:15 +0000 (16:22 -0500)
tests/qtest.lisp

index 0259e45..71fb050 100644 (file)
@@ -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)