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

diff --git a/tests-report.lisp b/tests-report.lisp
new file mode 100644
index 0000000..b40da9e
--- /dev/null
+++ b/tests-report.lisp
@@ -0,0 +1,15 @@
+(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.")))