cljs.externs/ns-match? was ignoring ctors that are exactly the namespace, add

test case

Author: swannodette

src/main/clojure/cljs/externs.clj

@@ -205,9 +205,12 @@
        defaults sources))))
 
 (defn ns-match? [ns-segs var-segs]
-  (and
-    (= (inc (count ns-segs)) (count var-segs))
-    (= ns-segs (take (count ns-segs) var-segs))))
+  (or
+    ;; exact match (i.e. ctors)
+    (= ns-segs var-segs)
+    (and
+      (= (inc (count ns-segs)) (count var-segs))
+      (= ns-segs (take (count ns-segs) var-segs)))))
 
 (defn parsed->defs [externs]
   (let [ns-segs (into [] (map symbol (string/split (str *goog-ns*) #"\.")))]
@@ -325,4 +328,4 @@
     parse-externs index-externs
     (get 'React)
     (find 'Component) first meta)
-  )
+  )

src/test/clojure/cljs/analyzer_tests.clj

@@ -1456,3 +1456,22 @@
         '[(ns test.foo
            (:import [goog.history Html5History]))]))
     (is (some? (get-in @cenv [::ana/namespaces 'goog.history.Html5History :defs])))))
+
+(deftest test-analyze-goog-ns-ctor
+  (let [cenv (env/default-compiler-env)]
+    (env/with-compiler-env cenv
+      (ana/analyze-form-seq
+        '[(ns test.foo
+            (:import [goog.history Html5History]))]))
+    (is (some? (get-in @cenv [::ana/namespaces 'goog.history.Html5History :defs 'Html5History])))))
+
+(comment
+
+  (let [cenv (env/default-compiler-env)]
+    (env/with-compiler-env cenv
+      (ana/analyze-form-seq
+        '[(ns test.foo
+            (:import [goog.history Html5History]))]))
+    (get-in @cenv [::ana/namespaces 'goog.history.Html5History :defs]))
+
+  )