X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests-report.lisp;h=19a95a7069071d5a7a87eac74f093125869b9820;hb=68cd2db6542fa3442d46b0331ecf8be8f86c09c2;hp=d4a5275db710159346a9b15204513c5de98c094b;hpb=09908481b496f796b9961cb7125b3a95b97abebb;p=jscl.git

diff --git a/tests-report.lisp b/tests-report.lisp
index d4a5275..19a95a7 100644
--- a/tests-report.lisp
+++ b/tests-report.lisp
@@ -1,15 +1,12 @@
-(write-line "")
-(write-string "Finished. The execution took ")
-(write-string (prin1-to-string (/ (- (get-internal-real-time) *timestamp*) internal-time-units-per-second 1.0)))
-(write-line " seconds.")
+(format t "~%Finished. The execution took ~a seconds.~%"
+        (/ (- (get-internal-real-time) *timestamp*) internal-time-units-per-second 1.0))
 
-(cond
-  ((zerop *failed-tests*)
-   (write-string "All tests (")
-   (write-string (prin1-to-string *passed-tests*))
-   (write-line ") passed successfully"))
-  (t
-   (write-string (prin1-to-string *failed-tests*))
-   (write-string "/")
-   (write-string (prin1-to-string (+ *passed-tests* *failed-tests*)))
-   (write-line " failed.")))
+(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*))