(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))
)