diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2010-09-17 12:43:44 -0400 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2010-09-17 12:43:44 -0400 |
| commit | 11852b988be61bbf661ca80ef7a78d17e3ee2325 (patch) | |
| tree | 25910d6a9aaf693a9fca83c1bfa8d55dcb7c57ec | |
| parent | 4083a0695087d34d13dbbe5a9b49d7c7b30ef2c4 (diff) | |
Fix broken with-ns tests; refs #95
* broken by Clojure commit 1c0468dbe5228bb8c228e1370133bbe1d018e058
* Clojure's compiler exceptions changed their format
| -rw-r--r-- | modules/with-ns/src/test/clojure/clojure/contrib/test_with_ns.clj | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/modules/with-ns/src/test/clojure/clojure/contrib/test_with_ns.clj b/modules/with-ns/src/test/clojure/clojure/contrib/test_with_ns.clj index 8d3ca3c1..3d0411ce 100644 --- a/modules/with-ns/src/test/clojure/clojure/contrib/test_with_ns.clj +++ b/modules/with-ns/src/test/clojure/clojure/contrib/test_with_ns.clj @@ -12,7 +12,7 @@ (try (with-temp-ns (throw (RuntimeException. (str (ns-name *ns*))))) - (catch clojure.lang.Compiler$CompilerException e - (-> e .getCause .getMessage)))] - (is (re-find #"^sym.*$" ns-name-str)) + (catch Throwable e + (-> e .getMessage)))] + (is (re-find #"sym.*auto" ns-name-str)) (is (not (some #{(symbol ns-name-str)} (all-ns-names)))))))) |