Fix a regression with see-also

The way the code was written it was acting on the ns/symbol that
was passed to info, instead of the ns/symbol that were resolved.

Author: bbatsov

src/cider/nrepl/middleware/info.clj

@@ -87,7 +87,8 @@
                            (and class member) (clj-info/info-java class member)
                            :else (throw (Exception.
                                          "Either \"symbol\", or (\"class\", \"member\") must be supplied")))
-            see-also (clj-info/see-also ns symbol)]
+            ;; we have to use the resolved (real) namespace and name here
+            see-also (clj-info/see-also (:ns var-info) (:name var-info))]
         (if (seq see-also)
           (merge {:see-also see-also} var-info)
           var-info)))))

test/clj/cider/nrepl/middleware/info_test.clj

@@ -33,7 +33,7 @@
 (deftest response-test
   (let [v (ns-resolve 'cider.nrepl.middleware.info 'assoc)
         {:keys [arglists column line added static doc]} (meta v)]
-    (is (= (dissoc (info/format-response (info/info {:ns "cider.nrepl.middleware.info" :symbol "assoc"})) "file")
+    (is (= (dissoc (info/format-response (info/info {:ns "cider.nrepl.middleware.info" :symbol "assoc"})) "file" "see-also")
            {"ns" "clojure.core"
             "name" "assoc"
             "arglists-str" (->> (map pr-str arglists)
@@ -256,7 +256,7 @@
         (is (= ns "cider.nrepl.middleware.info-test"))))
 
     (testing "see also"
-      (let [response (session/message {:op "info" :symbol "map" :ns "clojure.core"})]
+      (let [response (session/message {:op "info" :symbol "map" :ns "cider.nrepl.middleware.info-test"})]
         (is (= (:see-also response)
                ["clojure.core/map-indexed" "clojure.core/pmap" "clojure.core/amap" "clojure.core/mapcat" "clojure.core/keep" "clojure.core/juxt" "clojure.core/mapv" "clojure.core/reduce" "clojure.core/run!"])))
       (let [response (session/message {:op "info" :symbol "xyz" :ns "cider.nrepl.middleware.info-test"})]