(parse-ns-error-msg spec

"Each of :as and :refer options may only be specified once in :require / :require-macros"))))))

(defnparse-ns-excludes [env args]

(defn-parse-ns-excludes-impl [env args]

(reduce

(fn [s [k & filters]]

(if (= k:refer-clojure)

{:excludes #{}

:renames {}} args))

(defnparse-ns-excludes [env args]

(let [s (parse-ns-excludes-impl env args)]

(update s:excludes into (keys (:renames s)))))

(defnuse->require [env [lib & filters:as spec]]

(when-not (and (symbol? lib) (odd? (count spec)))

(throw

(deftesttest-cljs-3399

(is (=::fake/foo:fake.ns/foo)

(is (= `fake/foo 'fake.ns/foo))))

(deftesttest-cljs-2292

(is (=false (exists? mapv)))

(is (=true (exists? core-mapv))))

'(ns foo.core

(:refer-clojure:rename {when always

map core-map}))))]

(is (= (-> parsed-ns:excludes)#{}))

(is (= (-> parsed-ns:excludes)'#{when map}))

(is (= (-> parsed-ns:rename-macros) '{always cljs.core/when}))

(is (= (-> parsed-ns:renames) '{core-map cljs.core/map})))

(is (thrown? Exception (env/with-compiler-env test-cenv

:renames {}}))

(is (set? (:excludes parsed)))))

(deftesttest-cljs-2292

(let [parsed (ana/parse-ns-excludes {} '((:refer-clojure:rename {map clj-map})))]

(is (= parsed

'{:excludes #{map}

:renames {map clj-map}}))

(is (set? (:excludes parsed)))))

(deftesttest-cljs-1785-js-shadowed-by-local

(let [ws (atom [])]

(ana/with-warning-handlers [(collecting-warning-handler ws)]