microtest.clj

(ns user.test
  (:refer-clojure :exclude [test])
  (:require
    [meander.epsilon :as m]
    [taoensso.timbre :refer [error]]))


(def tests-enabled true)

(defmacro test [& body]
  (when tests-enabled
    (let [parsed (m/rewrite (vec body)
                   [] []
                   [!xs ... '=> ?v & ?more]
                   [[[!xs ...] ?v] & (m/cata ?more)])]
      (doseq [[forms expected] parsed]
        (try
          (doseq [form forms]
            (let [v (eval form)]
              (set! *3 *2) (set! *2 *1) (set! *1 v)))
          (let [e (eval expected)]
            (if (= *1 e)
              (println 'test (last forms) '=> expected 'passed)
              (error 'test (last forms) '=> expected 'failed)))
          (catch Throwable e
            (error e)))))))

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

test (inc 42) => 43 passed
test (inc 3) => 4 passed
error [user.test:20]
  test (inc 3) => 5 failed
test nil => nil passed
error [user.test:20]
  test nil => true failed