Cover TaggedLiteral print-method with a test.

greglook · Mar 7, 2015 · 3aaea50 · 3aaea50
1 parent ab6fa0a
commit 3aaea50
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/test/puget/data_test.clj b/test/puget/data_test.clj
@@ -32,6 +32,7 @@
     (is (= 'foo tag))
     (is (= :bar form))
     (is (= "#foo :bar" string))
+    (is (= "#foo :bar" (pr-str data)))
     (is (= data (edn/read-string {:default data/tagged-literal} string)))))