Fix POP
[jscl.git] / 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))