diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2010-05-23 15:37:17 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-05-24 10:46:09 -0400 |
| commit | 3da8a12112332d15a91b140fab5e535f0d2528e8 (patch) | |
| tree | a8188c9bb1fd29a66251503e688ebbe69aac3d7b /test | |
| parent | 8c9b0574a83f6c77576325b724c837cf4143eb33 (diff) | |
better error message on failed refer
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
Diffstat (limited to 'test')
| -rw-r--r-- | test/clojure/test_clojure/ns_libs.clj | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/clojure/test_clojure/ns_libs.clj b/test/clojure/test_clojure/ns_libs.clj index 10844ded..e1217756 100644 --- a/test/clojure/test_clojure/ns_libs.clj +++ b/test/clojure/test_clojure/ns_libs.clj @@ -71,3 +71,15 @@ (is (thrown? IllegalStateException #"Integer already refers to: class java.lang.Integer" (defrecord Integer []))))) + +(deftest refer-error-messages + (let [temp-ns (gensym)] + (binding [*ns* *ns*] + (in-ns temp-ns) + (eval '(def ^{:private true} hidden-var))) + (testing "referring to something that does not exist" + (is (thrown-with-msg? IllegalAccessError #"nonexistent-var does not exist" + (refer temp-ns :only '(nonexistent-var))))) + (testing "referring to something non-public" + (is (thrown-with-msg? IllegalAccessError #"hidden-var is not public" + (refer temp-ns :only '(hidden-var))))))) |