Hy testing microframework

microtest.hy

; *** Test harness
; Note: works in Hy 0.11.1 - needs to be upgraded for recent Hy

(defn print-expression [expr]
  (+ "(" (.join " " (list-comp (cond [(= (type x) HyExpression) (print-expression x)]
                                 [(= (type x) HyString) (+ "\"" x "\"")]
                                 [True (str x)]) [x expr])) ")"))

(defmacro test-case [expr]
  (quasiquote (do
                (print (+ "Test: \t" (unquote (print-expression expr))))
                (unquote expr)
                (print "Pass:\t✔"))))

; *** example usage

(test-case (assert (= 42 42)))
(test-case (assert (= 42 43)))
(test-case (assert (= (this-symbol-is-not-defined) true)))