From 5219786b46c261dcf39c307f7b0a83f7faa22cf7 Mon Sep 17 00:00:00 2001 From: davidnolen Date: Sun, 17 Nov 2024 15:16:32 -0500 Subject: [PATCH] * test-the-var --- src/test/clojure/cljs/analyzer/spec_tests.clj | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/test/clojure/cljs/analyzer/spec_tests.clj b/src/test/clojure/cljs/analyzer/spec_tests.clj index dbf6c5417..5f4c33da9 100644 --- a/src/test/clojure/cljs/analyzer/spec_tests.clj +++ b/src/test/clojure/cljs/analyzer/spec_tests.clj @@ -9,6 +9,7 @@ (ns cljs.analyzer.spec-tests (:require [cljs.analyzer :as ana] [cljs.analyzer.api :as ana-api :refer [no-warn]] + [cljs.compiler.api :as comp-api] [cljs.analyzer-tests :refer [analyze ns-env]] [cljs.analyzer.specs :as a] [clojure.test :as test :refer [deftest is]] @@ -214,8 +215,9 @@ (is (= :set! (:op node))) (is (s/valid? ::a/node node)))) -#_(deftest test-the-var - (let [node (no-warn (analyze ns-env '(var x)))] +(deftest test-the-var + (let [node (comp-api/with-core-cljs {} + #(analyze ns-env '(var first)))] (is (= :the-var (:op node))))) (deftest test-throw