From 621ab9f2cb6f55515f8d7f5a69ff066e93520306 Mon Sep 17 00:00:00 2001 From: Mike Cifelli Date: Mon, 19 Dec 2016 17:24:12 -0500 Subject: [PATCH] Started a lisp script for running unit tests --- lisp/unit-test.lisp | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 lisp/unit-test.lisp diff --git a/lisp/unit-test.lisp b/lisp/unit-test.lisp new file mode 100644 index 0000000..7e2e40d --- /dev/null +++ b/lisp/unit-test.lisp @@ -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)) +)