The test

test.clj

(ns user.dustin.minitest2
  (:require
   [meander.epsilon :as m]))

(defn error [& args]
  (apply println args))

(defn run-tests [formv]
  (let [parsed (m/rewrite formv
                          [] []
                          [!xs ... '=> ?v & ?more]
                          [[[!xs ...] ?v] & (m/cata ?more)])]
    (doseq [[forms expected] parsed]
      (let [e (eval expected)
            v (eval (last forms))]
        (if (= v e)
          (println "test passed" (last forms) '=> expected)
          (error "test failed" (last forms) '=> expected e))))))


(defmacro tests [& forms]
  `(run-tests (vec '~forms)))

(tests
  1
  1
  1
  (inc 42) => 43
  (inc 3) => 4
  nil => nil
  nil => true)