diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2009-01-06 15:00:05 +0000 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2009-01-06 15:00:05 +0000 |
| commit | 065b2a1e1109aba2f6bb0ff0fbe4cc94861da9df (patch) | |
| tree | 5dbdda82c862763f7f70a14d8a3bbd09ba3aecc0 /src | |
| parent | f48e4581ef5fcb6f33717c25f6f231516260ce25 (diff) | |
test_is.clj: set-test is ignored when *load-tests* is false
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 |