Фреймворк для юнит-тестирования на jisp

unittest.lisp

(= tests `())

(def pr line
     (process.stdout.write line))

(def prn line
     (pr (+ line "\n")))


(mac test name ...body
     `(do (tests.push (list ,(JSON.stringify name) ,name))
          (def ,name (do ,...body))))


(def eq left right
     (if (!= left right)
         (throw (Error (+ "Assertion error:" left " != " right)))))


(def run_tests
     (for item tests
          (do
              (pr (+ "processing " item[0] "..."))
              (try (do (item[1])
                       (prn "OK"))
                   (catch err (do (prn "ERROR")
                                  (prn err)))))))


(test arithmetic
      (eq 3 (+ 2 1))
      (eq 4 (* 2 1)))


(run_tests)