Add refactor-nrepl.find-symbol-test

Tries reproducing https://github.com/clojure-emacs/clj-refactor.el/issues/485

`find-symbol` seemed to lack test coverage anyway.

Author: vemv

test/refactor_nrepl/find_symbol_test.clj

@@ -0,0 +1,23 @@
+(ns refactor-nrepl.find-symbol-test
+  (:require
+   [clojure.test :refer [deftest is]]
+   [refactor-nrepl.unreadable-files :refer [ignore-errors-str]]
+   [refactor-nrepl.find.find-symbol :as sut])
+  (:import
+   (java.io File)))
+
+(def from-file-path
+  (-> "testproject/src/com/move/ns_to_be_moved.clj" File. .getAbsolutePath))
+
+(deftest works
+  (let [found (sut/find-symbol {:file from-file-path
+                                :ns "com.move.ns-to-be-moved"
+                                :line 11
+                                :column 7
+                                :name "fn-to-be-moved"
+                                :ignore-errors ignore-errors-str
+                                :dir "testproject/src"})]
+    (is (seq found)
+        (pr-str found))
+    (is (= 4 (->> found (map :file) distinct count))
+        "Finds different files with references to the queried symbol")))

testproject/src/com/example/one.clj

@@ -7,3 +7,6 @@
 
 (defn from-registry [k]
   (k four/registry))
+
+;; Tries reproducing https://github.com/clojure-emacs/clj-refactor.el/issues/485
+(set! *warn-on-reflection* true)

testproject/src/com/move/ns_to_be_moved.clj

@@ -1,5 +1,8 @@
 (ns com.move.ns-to-be-moved)
 
+;; Tries reproducing https://github.com/clojure-emacs/clj-refactor.el/issues/485
+(set! *warn-on-reflection* true)
+
 (def var-to-be-moved)
 (def ^:private private-var-to-be-moved)