[Fix #106] Handle properly scoped cljs macros in info (#107)

Author: jobo3208

src/orchard/cljs/meta.cljc

@@ -87,7 +87,7 @@
 
 (defn scoped-macro-meta
   [env sym & [context-ns]]
-  (let [ns (or context-ns (macro-namespace env sym context-ns))
+  (let [ns (or (macro-namespace env sym context-ns) context-ns)
         sym (symbol (name sym))]
     (when (and ns (find-ns ns))
       (some-> env

test/orchard/info_test.clj

@@ -370,6 +370,28 @@
                     (map #(info/info* %))
                     (map #(select-keys % [:ns :name :arglists :macro :file])))))))))
 
+(deftest info-macros-scoped-var-test
+  (testing "Macro - scoped"
+    (let [params '[{:ns orchard.test-ns
+                    :sym test-macros/my-add}]
+          expected '{:name my-add
+                     :ns orchard.test-macros
+                     :arglists ([a b])
+                     :file "orchard/test_macros.clj"
+                     :macro true}]
+
+      (testing "- :cljs"
+        (is (= (take 1 (repeat expected))
+               (->> params
+                    (map #(info/info* (merge *cljs-params* %)))
+                    (map #(select-keys % [:ns :name :arglists :macro :file]))))))
+
+      (testing "- :clj"
+        (is (= (take 1 (repeat expected))
+               (->> params
+                    (map #(info/info* %))
+                    (map #(select-keys % [:ns :name :arglists :macro :file])))))))))
+
 (deftest info-no-file-info-test
   (testing "File info key does not exist should not resolve classpath - issue #61"
     (let [params '{:sym finally}