blob: 8de51646221047bc4622f579a107b101336c3bd8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(import :ntest)
(comment "Re-export ntest.test as test.test")
(def test.test ntest.test)
(export test.test)
(comment "Fail a test with a certain message. Returns a closure; needs to be invoked as ((test.fail \"Fail Message\"))")
(defun test.fail (message) (ntest.fail message))
(export test.fail)
(comment "Assert true or fail with message. Returns a closure")
(defun test.assert (cond message) (if cond noop (ntest.fail message)))
(export test.assert)
|
