Flesh out TaggedValue tests.

greglook · Sep 24, 2014 · 9e85ca8 · 9e85ca8
1 parent 6dbc36b
commit 9e85ca8
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/test/puget/printer_test.clj b/test/puget/printer_test.clj
@@ -115,10 +115,14 @@
 
 
 (deftest canonical-tagged-value
-  (let [tval (reify TaggedValue
-               (edn-tag [this] 'foo)
-               (edn-value [this] :bar/baz))
-        doc (canonize tval)]))
+  (let [tv (reify TaggedValue
+             (edn-tag [this] 'foo)
+             (edn-value [this] :bar/baz))]
+    (is (= "#foo :bar/baz" (pprint-str tv))))
+  (let [tv (reify TaggedValue
+             (edn-tag [this] 'frobble/biznar)
+             (edn-value [this] [:foo :bar :baz]))]
+    (is (= "#frobble/biznar\n[:foo :bar :baz]" (pprint-str tv)))))
 
 
 (deftest default-canonize