Add test for :print-fallback and :escape-types.

greglook · Mar 7, 2015 · a154ccb · a154ccb
1 parent 496c9f6
commit a154ccb
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/test/puget/printer_test.clj b/test/puget/printer_test.clj
@@ -132,7 +132,10 @@
   (testing "Unknown values"
     (let [usd (java.util.Currency/getInstance "USD")]
       (should-fail-when-strict usd)
-      (is (re-seq #"#<java.util.Currency@[0-9a-f]+ USD>" (pprint-str usd))))))
+      (is (re-seq #"#<java\.util\.Currency@[0-9a-f]+ USD>" (pprint-str usd)))
+      (with-options {:print-fallback :print
+                     :escape-types #{'puget.printer_test.TestRecord}}
+        (is (= "#<Currency USD>" (pprint-str usd)))))))
 
 
 (deftest metadata-printing