tests-report.lisp

   1 (write-line "")
   2 (write-string "Finished. The execution took ")
   3 (write-string (prin1-to-string (/ (- (get-internal-real-time) *timestamp*) internal-time-units-per-second 1.0)))
   4 (write-line " seconds.")
   5
   6 (cond
   7   ((= *passed-tests* *total-tests*)
   8    (write-line "All the tests (")
   9    (write-string (prin1-to-string *total-tests*))
  10    (write-line ") passed successfully."))
  11   (t
  12    (write-string (prin1-to-string *passed-tests*))
  13    (write-string "/")
  14    (write-string (prin1-to-string *total-tests*))
  15    (write-line " test(s) passed successfully.")))
  16
  17 (unless (zerop *expected-failures*)
  18   (write-string (prin1-to-string *expected-failures*))
  19   (write-line " test(s) failed expectedly."))
  20
  21 (unless (zerop *unexpected-passes*)
  22   (write-string (prin1-to-string *unexpected-passes*))
  23   (write-line " test(s) passed unexpectedly."))