Run tests asynchronously so it reports incrementally

[jscl.git] / tests-report.lisp

diff --git a/tests-report.lisp b/tests-report.lisp
index 1b44496..3725787 100644 (file)
--- a/tests-report.lisp
+++ b/tests-report.lisp
@@ -1,14 +1,17 @@
-(format t "~%Finished. The execution took ~a seconds.~%"
-        (/ (- (get-internal-real-time) *timestamp*) internal-time-units-per-second 1.0))
+(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*))
+ (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 *expected-failures*)
+   (format t "~a test(s) failed expectedly.~%" *expected-failures*))
 
-(unless (zerop *unexpected-passes*)
-  (format t "~a test(s) passed unexpectedly.~%" *unexpected-passes*))
+ (unless (zerop *unexpected-passes*)
+   (format t "~a test(s) passed unexpectedly.~%" *unexpected-passes*))
 
-(terpri)
+ (terpri)
+
+ (init))