用clojure实现《实用Common Lisp编程》中的单元测试框架

(ns simple-test-frame.core)(def ^:dynamic *test-name* nil)(defn report-result  [result form]  (if result    (println "pass ... " *test-name* ":" form)    (println "fail ... " *test-name* ":" form))  result)(defn  combine-results  [& forms]  (every? true? forms))(defmacro check  [& forms]  `(combine-results    ~@(for [form forms]      `(report-result ~form '~form))))(defmacro deftest  [fn-name fn-parameters & fn-body]  `(defn ~fn-name     ~fn-parameters     (binding [*test-name* '~fn-name]       ~@fn-body)))