diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2009-01-30 02:26:23 +0000 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2009-01-30 02:26:23 +0000 |
| commit | 1ac4f0c7bdbfa08a9ebf89131e46bbf7effdef80 (patch) | |
| tree | 8d92df58edcbd59e734fed60126a3df79a0b4e89 /src | |
| parent | 054b9e79f925aaca268db0e67eead65e6dec93a6 (diff) | |
test_is.clj: added "deftest-"
Diffstat (limited to 'src')
| -rw-r--r-- | src/clojure/contrib/test_is.clj | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/clojure/contrib/test_is.clj b/src/clojure/contrib/test_is.clj index 51377cdd..6b14ecc0 100644 --- a/src/clojure/contrib/test_is.clj +++ b/src/clojure/contrib/test_is.clj @@ -483,6 +483,13 @@ `(def ~(with-meta name {: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}) + (fn [] (test-var (var ~name)))))) + (defmacro set-test "Experimental. |