Skip to content

Commit

Permalink
Fix test warnings about single segment weeble namespaces
Browse files Browse the repository at this point in the history
  • Loading branch information
danielcompton authored and swannodette committed Nov 28, 2015
1 parent 14b7b59 commit a5c5f4b
Showing 1 changed file with 8 additions and 8 deletions.
16 changes: 8 additions & 8 deletions src/test/clojure/cljs/analyzer_tests.clj
Original file line number Diff line number Diff line change
Expand Up @@ -277,32 +277,32 @@

(deftest test-namespace-metadata
(binding [a/*cljs-ns* a/*cljs-ns*]
(is (= (do (a/analyze ns-env '(ns weeble {:foo bar}))
(is (= (do (a/analyze ns-env '(ns weeble.ns {:foo bar}))
(meta a/*cljs-ns*))
{:foo 'bar}))

(is (= (do (a/analyze ns-env '(ns ^{:foo bar} weeble))
(is (= (do (a/analyze ns-env '(ns ^{:foo bar} weeble.ns))
(meta a/*cljs-ns*))
{:foo 'bar}))

(is (= (do (a/analyze ns-env '(ns ^{:foo bar} weeble {:baz quux}))
(is (= (do (a/analyze ns-env '(ns ^{:foo bar} weeble.ns {:baz quux}))
(meta a/*cljs-ns*))
{:foo 'bar :baz 'quux}))

(is (= (do (a/analyze ns-env '(ns ^{:foo bar} weeble {:foo baz}))
(is (= (do (a/analyze ns-env '(ns ^{:foo bar} weeble.ns {:foo baz}))
(meta a/*cljs-ns*))
{:foo 'baz}))

(is (= (meta (:name (a/analyze ns-env '(ns weeble {:foo bar}))))
(is (= (meta (:name (a/analyze ns-env '(ns weeble.ns {:foo bar}))))
{:foo 'bar}))

(is (= (meta (:name (a/analyze ns-env '(ns ^{:foo bar} weeble))))
(is (= (meta (:name (a/analyze ns-env '(ns ^{:foo bar} weeble.ns))))
{:foo 'bar}))

(is (= (meta (:name (a/analyze ns-env '(ns ^{:foo bar} weeble {:baz quux}))))
(is (= (meta (:name (a/analyze ns-env '(ns ^{:foo bar} weeble.ns {:baz quux}))))
{:foo 'bar :baz 'quux}))

(is (= (meta (:name (a/analyze ns-env '(ns ^{:foo bar} weeble {:foo baz}))))
(is (= (meta (:name (a/analyze ns-env '(ns ^{:foo bar} weeble.ns {:foo baz}))))
{:foo 'baz}))))

(deftest test-cljs-1105
Expand Down

0 comments on commit a5c5f4b

Please sign in to comment.