diff options
| author | Phil Hagelberg <technomancy@gmail.com> | 2009-10-18 21:18:41 -0700 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2009-10-28 22:36:31 -0400 |
| commit | 7779c99699f29118ee9fc66201c7afdd1a5dd300 (patch) | |
| tree | fd6cd6aede5539f7b210ed0a88559b4591ebc00b | |
| parent | f5f2943dfd0128744227c3f42a630ea10dd40b24 (diff) | |
Preserve test var metadata within deftest. Fixes #201.
Signed-off-by: Chouser <chouser@n01se.net>
| -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)))))) |