Expand ns-ast-test

Author: vemv

test-resources/clashing_defprotocol_method_name.clj

@@ -0,0 +1,10 @@
+(ns clashing-defprotocol-method-name
+  "Exercises that var shadowing (in this case: for `update`) doesn't cause any issue.")
+
+(defprotocol Repository
+  "Store and retrieve."
+  :extend-via-metadata true
+  (add [repository insert-params]
+    "Add to the repository.")
+  (update [repository update-params]
+    "Update."))

test/refactor_nrepl/analyzer_test.clj

@@ -5,6 +5,7 @@
    [refactor-nrepl.analyzer :as sut]))
 
 (deftest ns-ast-test
-  (doseq [f ["core_async_usage.clj"]
+  (doseq [f ["core_async_usage.clj"
+             "clashing_defprotocol_method_name.clj"]
           :let [c (-> f io/resource slurp)]]
     (is (some? (sut/ns-ast c)))))