diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2008-12-07 20:53:57 +0000 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2008-12-07 20:53:57 +0000 |
| commit | 1b85ca70ebcd98bdf21b57340f338ea9c1031a52 (patch) | |
| tree | 9cd09049432d0fb0996a2938df910f0fd2ba4ea2 | |
| parent | 3349dbcb7741920a2bbe37a3016efaad03936bb3 (diff) | |
test_is.clj: added doc string for test-var
| -rw-r--r-- | src/clojure/contrib/test_is.clj | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/clojure/contrib/test_is.clj b/src/clojure/contrib/test_is.clj index 1e51ff46..6a911328 100644 --- a/src/clojure/contrib/test_is.clj +++ b/src/clojure/contrib/test_is.clj @@ -206,7 +206,10 @@ ;;; RUNNING TESTS -(defn test-var [v] +(defn test-var + "If v has a function in its :test metadata, calls that function, with + *test-name* bound to the name of the var." + [v] (when-let [t (:test (meta v))] (binding [*test-name* (str v)] (report-count :test) |