mike
/
transcendental-lisp
1
1
Fork 0
Code Issues 10 Pull Requests Packages Projects Releases Wiki Activity

Started a lisp script for running unit tests

This commit is contained in:
Mike Cifelli 2016-12-19 17:24:12 -05:00
parent f925993093
commit 621ab9f2cb
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/unit-test.lisp Normal file
View File

@ -0,0 +1,16 @@
(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))
)