@@ -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)))))) src/clj/clojure/test.clj f5f2943dfd0128744227c3f42a630ea10dd40b24 Phil Hagelberg technomancy@gmail.com http://github.com/richhickey/clojure/commit/7779c99699f29118ee9fc66201c7afdd1a5dd300 7779c99699f29118ee9fc66201c7afdd1a5dd300 2009-10-28T19:36:31-07:00 2009-10-18T21:18:41-07:00 Preserve test var metadata within deftest. Fixes #201. Signed-off-by: Chouser <chouser@n01se.net> fd6cd6aede5539f7b210ed0a88559b4591ebc00b Chouser chouser@n01se.net