diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/clojure/contrib/test_is.clj | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/clojure/contrib/test_is.clj b/src/clojure/contrib/test_is.clj index 280b5f96..b6c5944e 100644 --- a/src/clojure/contrib/test_is.clj +++ b/src/clojure/contrib/test_is.clj @@ -267,9 +267,12 @@ (defmacro set-test "Experimental. Sets :test metadata of the named var to a fn with the given body. - The var must already exist. Does not modify the value of the var." + The var must already exist. Does not modify the value of the var. + + When *load-tests* is false, set-test is ignored." [name & body] - `(alter-meta! (var ~name) assoc :test (fn [] ~@body))) + (when *load-tests* + `(alter-meta! (var ~name) assoc :test (fn [] ~@body)))) ;;; RUNNING TESTS |