* host field & call

clojure · Nov 1, 2024 · 3bf3b4e · 3bf3b4e
1 parent d0ece88
commit 3bf3b4e
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/src/test/clojure/cljs/analyzer/spec_tests.clj b/src/test/clojure/cljs/analyzer/spec_tests.clj
@@ -96,6 +96,22 @@
     (is (= :defrecord (-> body :statements first :ret :op)))
     (is (s/valid? ::a/node node))))
 
+(deftest test-host-call
+  (let [node (analyze ns-env '(.substring "foo" 0 1))]
+    (is (= :host-call (:op node)))
+    (is (s/valid? ::a/node node)))
+  (let [node (analyze ns-env '(. "foo" (substring 0 1)))]
+    (is (= :host-call (:op node)))
+    (is (s/valid? ::a/node node))))
+
+(deftest test-host-field
+  (let [node (analyze ns-env '(.-length "foo"))]
+    (is (= :host-field (:op node)))
+    (is (s/valid? ::a/node node)))
+  (let [node (analyze ns-env '(. "foo" -length))]
+    (is (= :host-field (:op node)))
+    (is (s/valid? ::a/node node))))
+
 ; TODO: #js
 ;(deftest test-js-object
 ;  )