* add tests for new

clojure · Oct 25, 2024 · 68e120f · 68e120f
1 parent 45bc823
commit 68e120f
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/test/clojure/cljs/analyzer/spec_tests.clj b/src/test/clojure/cljs/analyzer/spec_tests.clj
@@ -7,7 +7,8 @@
 ;; You must not remove this notice, or any other, from this software.
 
 (ns cljs.analyzer.spec-tests
-  (:require [cljs.analyzer-tests :refer [analyze ns-env]]
+  (:require [cljs.analyzer.api :as ana :refer [no-warn]]
+            [cljs.analyzer-tests :refer [analyze ns-env]]
             [cljs.analyzer.specs :as a]
             [clojure.test :as test :refer [deftest is]]
             [clojure.spec.alpha :as s]))
@@ -26,6 +27,12 @@
   (is (s/valid? ::a/node (analyze ns-env '(let [x 1]))))
   (is (s/valid? ::a/node (analyze ns-env '(let [x 1] x)))))
 
+(deftest test-new
+  (is (s/valid? ::a/node (no-warn (analyze ns-env '(new String)))))
+  (is (s/valid? ::a/node (no-warn (analyze ns-env '(new js/String)))))
+  (is (s/valid? ::a/node (no-warn (analyze ns-env '(String.)))))
+  (is (s/valid? ::a/node (no-warn (analyze ns-env '(js/String.))))))
+
 (comment
 
   (test/run-tests)