tests.lisp

   1 (defvar *passed-tests* 0)
   2 (defvar *failed-tests* 0)
   3 (defvar *timestamp* nil)
   4
   5 (defmacro test (condition)
   6   `(cond
   7      (,condition
   8       (write-line ,(concat "Test `" (prin1-to-string condition) "' passed"))
   9       (incf *passed-tests*))
  10      (t
  11       (write-line ,(concat "Test `" (prin1-to-string condition) "' failed."))
  12       (incf *failed-tests*))))
  13
  14 (write-line "Running tests...")
  15 (write-line "")
  16
  17 (setq *timestamp* (get-internal-real-time))