diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2010-10-14 13:12:19 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-10-15 07:25:19 -0400 |
| commit | 2e213cded166aa1b7b0bf298db571e05e31a49bc (patch) | |
| tree | a10d436799ed39de0171203090f4a5ee228d9911 | |
| parent | 4b9d7ba4812a9540afcaf256dc2f58da1e173988 (diff) | |
test for #263
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
| -rw-r--r-- | test/clojure/test_clojure/ns_libs.clj | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/clojure/test_clojure/ns_libs.clj b/test/clojure/test_clojure/ns_libs.clj index 75d8ce1e..37afacb3 100644 --- a/test/clojure/test_clojure/ns_libs.clj +++ b/test/clojure/test_clojure/ns_libs.clj @@ -73,6 +73,14 @@ #"Integer already refers to: class java.lang.Integer" (defrecord Integer []))))) +(deftest resolution + (let [s (gensym)] + (are [result expr] (= result expr) + #'clojure.core/first (ns-resolve 'clojure.core 'first) + nil (ns-resolve 'clojure.core s) + nil (ns-resolve 'clojure.core {'first :local-first} 'first) + nil (ns-resolve 'clojure.core {'first :local-first} s)))) + (deftest refer-error-messages (let [temp-ns (gensym)] (binding [*ns* *ns*] |