diff options
Diffstat (limited to 'src')
| -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) |