add warn configure flag to infer-test-helper

Author: swannodette

src/test/clojure/cljs/analyzer_tests.clj

@@ -856,13 +856,14 @@
           ))))
   )
 
-(defn infer-test-helper [{:keys [forms externs warnings]}]
+(defn infer-test-helper [{:keys [forms externs warnings warn]}]
   (let [test-cenv (atom {::a/externs
                          (externs/externs-map
                            (closure/load-externs {:externs (or externs [])}))})]
     (a/with-warning-handlers [(collecting-warning-handler (or warnings (atom [])))]
       (binding [a/*cljs-ns* a/*cljs-ns*
-                a/*cljs-warnings* (assoc a/*cljs-warnings* :infer-warning true)]
+                a/*cljs-warnings* (assoc a/*cljs-warnings*
+                                    :infer-warning (if (nil? warn) true warn))]
         (e/with-compiler-env test-cenv
           (a/analyze-form-seq forms)
           (with-out-str
@@ -972,4 +973,15 @@
 
 (comment
 
+  (let [ws  (atom [])
+        res (infer-test-helper
+              {:forms '[(ns warn-on-infer-test.app)
+                        (set! *warn-on-infer* true)
+                        (defn wrap-baz [x]
+                          (.baz x))]
+               :externs ["src/test/externs/test.js"]
+               :warnings ws
+               :warn false})]
+    (println (pr-str res) @ws))
+
   )