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

(comment "Assert that two arguments are equal. Returns a closure")
(defun test.assert-eq (actual expected)
  (test.assert
      (= actual expected)
      (stringify "Expected" expected "got" actual)))
(export test.assert-eq)

(comment "Assert that two number arguments are equal with some tolerance. Returns a closure")
(defun test.assert-eqd (actual expected tolerance) (seq
  (test.assert
      (lt (abs (- expected actual)) tolerance)
      (stringify "Expected" expected "got" actual "with a tolerance of" tolerance))))
(export test.assert-eqd)