Tests for namespaced tags and default-tag-parser

clojure · Dec 22, 2012 · 19d265d · 19d265d
1 parent 47bc8f0
commit 19d265d
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/test/cljs/cljs/reader_test.cljs b/test/cljs/cljs/reader_test.cljs
@@ -73,6 +73,14 @@
 
   (assert (= [1 2] (reader/read-string "#foo [1 2]")))
 
+  ;; tag elements with prefix component
+  (reader/register-tag-parser! 'foo.bar/baz identity)
+  (assert (= [1 2] (reader/read-string "#foo.bar/baz [1 2]")))
+
+  ;; default tag parser
+  (reader/register-default-tag-parser! (fn [tag val] val))
+  (assert (= [1 2] (reader/read-string "#a.b/c [1 2]")))
+
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;; Unicode Tests