From ee88770ab8471e593db8dfaf492c0e69a40305a3 Mon Sep 17 00:00:00 2001 From: Phil Hagelberg Date: Sat, 25 Sep 2010 13:31:06 -0700 Subject: [PATCH] Assoc the var onto the metadata for test selectors. --- src/leiningen/test.clj | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/leiningen/test.clj b/src/leiningen/test.clj index e0ad088d..7ba1af74 100644 --- a/src/leiningen/test.clj +++ b/src/leiningen/test.clj @@ -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.")))))