X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests-report.lisp;h=3725787a2eb3a157a4a7523e182061356c5d7a21;hb=HEAD;hp=b40da9ecb188830c38fd5ae84573815b9fc67570;hpb=ad091133b3c6e27c105f6631076cb408df386d42;p=jscl.git

diff --git a/tests-report.lisp b/tests-report.lisp
index b40da9e..3725787 100644
--- a/tests-report.lisp
+++ b/tests-report.lisp
@@ -1,15 +1,17 @@
-(write-line "")
-(write-string "Finished. The execution took ")
-(write-string (prin1-to-string (/ (- (get-internal-real-time) *timestamp*) internal-time-units-per-second)))
-(write-line " seconds.")
-
-(cond
-  ((zerop *failed-tets*)
-   (write-string "All tests (")
-   (write-string (prin1-to-string *passed-tets*))
-   (write-line ") passed successfully"))
-  (t
-   (write-string (prin1-to-string *failed-tets*))
-   (write-string "/")
-   (write-string (prin1-to-string (+ *passed-tets* *failed-tets*)))
-   (write-line " failed.")))
+(async
+ (format t "~%Finished. The execution took ~a seconds.~%"
+         (/ (- (get-internal-real-time) *timestamp*) internal-time-units-per-second 1.0))
+
+ (if (= *passed-tests* *total-tests*)
+     (format t "All the tests (~a) passed successfully.~%" *total-tests*)
+     (format t "~a/~a test(s) passed successfully.~%" *passed-tests* *total-tests*))
+
+ (unless (zerop *expected-failures*)
+   (format t "~a test(s) failed expectedly.~%" *expected-failures*))
+
+ (unless (zerop *unexpected-passes*)
+   (format t "~a test(s) passed unexpectedly.~%" *unexpected-passes*))
+
+ (terpri)
+
+ (init))