yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Assoc the var onto the metadata for test selectors.

Browse source
This commit is contained in:
Phil Hagelberg 2010-09-25 13:31:06 -07:00
parent b13efc5cbd
commit ee88770ab8
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/leiningen/test.clj
View file

@ -16,7 +16,8 @@
(if-let [add-hook# (resolve 'robert.hooke/add-hook)]
(add-hook# (resolve 'clojure.test/test-var)
(fn test-var-with-selector [test-var# var#]
(when (reduce #(or %1 (%2 (meta var#))) false ~selectors)
(when (reduce #(or %1 (%2 (assoc (meta var#) ::var var#)))
false ~selectors)
(test-var# var#))))
(throw (Exception. "Test selectors require robert/hooke dep.")))))