diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2008-12-22 03:27:56 +0000 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2008-12-22 03:27:56 +0000 |
| commit | 9d0caa80410b8794327e587611f85955da55c087 (patch) | |
| tree | 31bd4a75b89786a3e3fc9b48666f6866b636afec /src | |
| parent | 934348ca04c6118c4b579da96742cebf12ae3b76 (diff) | |
test_is.clj: added "set-test" (experimental)
Diffstat (limited to 'src')
| -rw-r--r-- | src/clojure/contrib/test_is.clj | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/clojure/contrib/test_is.clj b/src/clojure/contrib/test_is.clj index fcb58029..424188c1 100644 --- a/src/clojure/contrib/test_is.clj +++ b/src/clojure/contrib/test_is.clj @@ -240,6 +240,15 @@ (fn [] (test-var (var ~symbol)))))) +(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. + Note: loses the var's original :line and :arglists metadata." + [name & body] + `(def ~(with-meta name (assoc ^name :test `(fn [] ~@body))) + ~name)) + ;;; RUNNING TESTS |