edit tests

clojure-emacs · May 14, 2022 · c8d13ab · c8d13ab
1 parent 8801d47
commit c8d13ab
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/test/clj/cider/nrepl/middleware/undef_test.clj b/test/clj/cider/nrepl/middleware/undef_test.clj
@@ -103,7 +103,7 @@
       (is (:ex response)))))
 
 (deftest undef-all-test
-  (testing "undef-all undefines all vars in namespace"
+  (testing "undef-all undefines all vars in namespace, except default imports"
     (is (= #{"done"}
            (:status (session/message {:op "eval"
                                       :code "(do (ns other.ns (:require [clojure.walk :as walk :refer [postwalk]])))"}))))
@@ -113,6 +113,9 @@
     (is (= ["#'clojure.walk/postwalk"]
            (:value (session/message {:op "eval"
                                      :code "(ns-resolve 'other.ns 'postwalk)"}))))
+    (is (= ["java.lang.System"]
+           (:value (session/message {:op "eval"
+                                     :code "(ns-resolve 'other.ns 'System)"}))))
     (is (= #{"done"}
            (:status (session/message {:op "undef-all"
                                       :ns "other.ns"}))))
@@ -122,6 +125,9 @@
     (is (= ["nil"]
            (:value (session/message {:op "eval"
                                      :code "(ns-resolve 'other.ns 'postwalk)"}))))
+    (is (= ["java.lang.System"]
+           (:value (session/message {:op "eval"
+                                     :code "(ns-resolve 'other.ns 'System)"}))))
     (is (= ["{}"]
            (:value (session/message {:op "eval"
                                      :code "(ns-aliases 'other.ns)"}))))))