diff options
| -rw-r--r-- | src/clj/clojure/test.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clj/clojure/test.clj b/src/clj/clojure/test.clj index 9be6dc0d..37cdd7e8 100644 --- a/src/clj/clojure/test.clj +++ b/src/clj/clojure/test.clj @@ -796,14 +796,14 @@ Chas Emerick, Allen Rohner, and Stuart Halloway", When *load-tests* is false, deftest is ignored." [name & body] (when *load-tests* - `(def ~(with-meta name {:test `(fn [] ~@body)}) + `(def ~(vary-meta name assoc :test `(fn [] ~@body)) (fn [] (test-var (var ~name)))))) (defmacro deftest- "Like deftest but creates a private var." [name & body] (when *load-tests* - `(def ~(with-meta name {:test `(fn [] ~@body), :private true}) + `(def ~(vary-meta name assoc :test `(fn [] ~@body) :private true) (fn [] (test-var (var ~name)))))) |