diff options
Diffstat (limited to 'src/clojure/contrib/test_contrib/with_ns_test.clj')
| -rw-r--r-- | src/clojure/contrib/test_contrib/with_ns_test.clj | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/src/clojure/contrib/test_contrib/with_ns_test.clj b/src/clojure/contrib/test_contrib/with_ns_test.clj deleted file mode 100644 index 09137bc0..00000000 --- a/src/clojure/contrib/test_contrib/with_ns_test.clj +++ /dev/null @@ -1,19 +0,0 @@ -(ns clojure.contrib.test-contrib.with-ns-test - (:use clojure.test - clojure.contrib.with-ns - [clojure.contrib.seq-utils :only (includes?)])) - -(deftest test-namespace-gets-removed - (let [all-ns-names (fn [] (map #(.name %) (all-ns)))] - (testing "unexceptional return" - (let [ns-name (with-temp-ns (ns-name *ns*))] - (is (not (includes? (all-ns-names) ns-name))))) - (testing "when an exception is thrown" - (let [ns-name-str - (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)) - (is (not (includes? (all-ns-names) (symbol ns-name-str)))))))) |