* convert eval comments into tests

Author: swannodette

src/test/clojure/cljs/externs_infer_tests.clj

@@ -486,21 +486,6 @@
                  :with-core? true})]
       (is (empty? @ws)))))
 
-(comment
-
-  (externs/info
-    (::ana/externs @(env/default-compiler-env))
-    '[console])
-
-  (externs/info
-    (::ana/externs @(env/default-compiler-env))
-    '[crypto])
-
-  (-> (externs/filtered-externs "externs.zip//w3c_webcrypto.js")
-    (externs/info '[crypto]))
-
-  )
-
 (comment
   (binding [ana/*cljs-ns* ana/*cljs-ns*]
     (ana/no-warn

src/test/clojure/cljs/externs_parsing_tests.clj

@@ -8,9 +8,11 @@
 
 (ns cljs.externs-parsing-tests
   (:require [cljs.closure :as closure]
+            [cljs.analyzer :as ana]
+            [cljs.env :as env]
             [cljs.externs :as externs]
             [clojure.java.io :as io]
-            [clojure.test :as test :refer [deftest is]])
+            [clojure.test :as test :refer [deftest is testing]])
   (:import [com.google.javascript.jscomp CommandLineRunner]))
 
 (deftest cljs-3121
@@ -45,6 +47,15 @@
                (find 'HTMLDocument) first meta)]
     (is (= 'Document (:super info)))))
 
+(deftest test-parse-closure-type-annotations
+  (let [externs (::ana/externs @(env/default-compiler-env))]
+    (testing "JS global console has tag Console"
+      (let [info (externs/info externs '[console])]
+        (is (= 'Console (:tag info)))))
+    (testing "JS global crypto has tag webCrypto.Crypto"
+      (let [info (externs/info externs '[crypto])]
+        (is (= 'webCrypto.Crypto (:tag info)))))))
+
 (comment
 
   (externs/parse-externs