* add missing :js spec

* basic tests for loop, recur, case

Author: swannodette

src/test/clojure/cljs/analyzer/spec_tests.clj

@@ -123,17 +123,25 @@
     (is (s/valid? ::a/node node)))
   (let [node (analyze ns-env '(loop [x 1] x))]
     (is (s/valid? ::a/node node)))
-  #_(let [node (analyze ns-env '(loop [x 1] (recur (inc x))))]
+  (let [node (analyze ns-env '(loop [x 1] (recur (inc x))))]
     (is (s/valid? ::a/node node)))
-  #_(let [node (no-warn
+  (let [node (no-warn
                (analyze ns-env
                  '(loop [x 100]
                     (if (pos? x)
                       (recur (dec x))
                       x))))]
     (is (s/valid? ::a/node node))))
 
-;; leftfn
+(deftest test-recur
+  (let [node (no-warn (analyze ns-env '(fn [x] (recur (inc x)))))]
+    (is (s/valid? ::a/node node))))
+
+(deftest test-case
+  (let [node (no-warn (analyze ns-env '(case x 1 :foo 2 :bar)))]
+    (is (s/valid? ::a/node node))))
+
+;; letfn
 
 ;; local
 
@@ -145,7 +153,4 @@
 
   (test/run-tests)
 
-  (s/valid? ::a/node (no-warn (analyze ns-env '(case x 1 :foo 2 :bar))))
-  (s/explain ::a/node (no-warn (analyze ns-env '(case x 1 :foo 2 :bar))))
-
   )

src/test/clojure/cljs/analyzer/specs.cljc

@@ -286,6 +286,13 @@
     (s/keys
       :req-un [::meta ::expr])))
 
+(s/def ::code string?)
+
+(defmethod node :js [_]
+  (s/merge ::base
+    (s/keys
+      :opt-un [::code])))
+
 (comment
 
   (s/valid? ::node 1)