diff options
| author | Christophe Grand <christophe@cgrand.net> | 2010-06-08 16:23:14 +0200 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2010-06-08 10:53:26 -0400 |
| commit | a804f7c916095ffb5dce64ddfe90397310b1dfd4 (patch) | |
| tree | e71c4bb3359977d6c08ceaf8f4e8967c888dadbf /test | |
| parent | 42df6a0ad721a798411e9a701d51a42f6686777f (diff) | |
read ^:foo bar as ^{:foo true} bar and merge existing metatada. See #375.
Signed-off-by: Rich Hickey <richhickey@gmail.com>
Diffstat (limited to 'test')
| -rw-r--r-- | test/clojure/test_clojure/reader.clj | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/test/clojure/test_clojure/reader.clj b/test/clojure/test_clojure/reader.clj index 1629076f..d11eb311 100644 --- a/test/clojure/test_clojure/reader.clj +++ b/test/clojure/test_clojure/reader.clj @@ -274,10 +274,6 @@ (deftest t-Comment) -;; Meta (^) - -(deftest t-Meta) - ;; Deref (@) (deftest t-Deref) @@ -290,9 +286,10 @@ (deftest t-Regex) -;; Metadata (#^) +;; Metadata (^ or #^ (deprecated)) -(deftest t-Metadata) +(deftest t-Metadata + (is (= (meta '^:static ^:awesome ^{:static false :bar :baz} sym) {:awesome true, :bar :baz, :static true}))) ;; Var-quote (#') |