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

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