17 lines
382 B
Common Lisp
17 lines
382 B
Common Lisp
|
(defun run-unit-test (unit-test)
|
||
|
|
(cond
|
||
|
|
((funcall unit-test) (print (cons (symbol-function unit-test) T)))
|
||
|
|
(T (print (cons (symbol-function unit-test) 'F)))
|
||
|
|
)
|
||
|
|
)
|
||
|
|
|
||
|
|
(defun run-test-suite (test-suite)
|
||
|
|
(cond
|
||
|
|
(test-suite (cons (run-unit-test (car test-suite)) (run-test-suite (cdr test-suite))))
|
||
|
|
)
|
||
|
|
)
|
||
|
|
|
||
|
|
(defun unit (test-suite)
|
||
|
|
(cond ((run-test-suite test-suite) T))
|
||
|
|
)
|