add new case that doesn't work

Author: swannodette

src/main/clojure/cljs/analyzer.cljc

@@ -2636,7 +2636,7 @@
         ;; Cannot determine type of the target
         (when (and (get-in env [:locals target])
                    (or (nil? target-tag)
-                     ('#{any} target-tag)))
+                       ('#{any} target-tag)))
           (warning :infer-warning env
             {:warn-type :target :form form}))
         ;; Unresolveable property on existing extern

src/test/clojure/cljs/analyzer_tests.clj

@@ -825,6 +825,20 @@
           (map (comp :externs second)
             (get @test-cenv ::a/namespaces))))))
 
-  ;; TODO: test (def foo (js/require "bar.js")) pattern
+  ;; FIXME: we don't get an extern for Component
+  (let [test-cenv (atom {::a/externs (externs/externs-map
+                                       (closure/load-externs
+                                         {:externs ["src/test/externs/test.js"]}))})]
+    (binding [a/*cljs-ns* a/*cljs-ns*
+              a/*cljs-warnings* (assoc a/*cljs-warnings* :infer-warning true)]
+      (e/with-compiler-env test-cenv
+        (a/analyze-form-seq
+          '[(ns foo.core)
+            (def React (js/require "react"))
+            (.log js/console (.-Component React))]))
+      (cc/emit-externs
+        (reduce util/map-merge {}
+          (map (comp :externs second)
+            (get @test-cenv ::a/namespaces))))))
 
   )