diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2009-12-03 15:34:13 -0500 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2009-12-03 22:19:19 -0500 |
| commit | f047dc4acc69350d3513b4e69e093690cdb92e40 (patch) | |
| tree | f873d39e4a3ba38eb3d5c485805228e4a53cd54f | |
| parent | b3b1fa5081172d9931d7dffac4e12a535871cfde (diff) | |
Remove deprecated ^ reader macro from tests; fixes #215
Signed-off-by: Chouser <chouser@n01se.net>
| -rw-r--r-- | test/clojure/test_clojure/compilation.clj | 2 | ||||
| -rw-r--r-- | test/clojure/test_clojure/test.clj | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/test/clojure/test_clojure/compilation.clj b/test/clojure/test_clojure/compilation.clj index 1d3a78a7..2ee68002 100644 --- a/test/clojure/test_clojure/compilation.clj +++ b/test/clojure/test_clojure/compilation.clj @@ -19,7 +19,7 @@ (deftest test-compiler-metadata - (let [m ^#'when] + (let [m (meta #'when)] (are [x y] (= x y) (list? (:arglists m)) true (> (count (:arglists m)) 0) true diff --git a/test/clojure/test_clojure/test.clj b/test/clojure/test_clojure/test.clj index b96cb60f..002af625 100644 --- a/test/clojure/test_clojure/test.clj +++ b/test/clojure/test_clojure/test.clj @@ -73,7 +73,7 @@ (is (re-find #"cd" "abbabba") "Should fail")) (deftest #^{:has-meta true} can-add-metadata-to-tests - (is (:has-meta ^#'can-add-metadata-to-tests) "Should pass")) + (is (:has-meta (meta #'can-add-metadata-to-tests)) "Should pass")) ;; still have to declare the symbol before testing unbound symbols (declare does-not-exist) |