Print java.util.UUIDs as #uuid literals

Author: nwjsmith

src/lambdaisland/deep_diff/printer.clj

@@ -87,7 +87,10 @@
             (puget/format-doc printer v)]))))
 
    'java.util.Date
-   print-date})
+   print-date
+
+   'java.util.UUID
+   (puget/tagged-handler 'uuid str)})
 
 (defn- print-handler-resolver [extra-handlers]
   (fn [^Class klz]

test/lambdaisland/deep_diff/printer_test.clj

@@ -3,10 +3,19 @@
             [lambdaisland.deep-diff.diff :as diff]
             [lambdaisland.deep-diff.printer :as printer]))
 
-(deftest print-doc-test
+(defn- printed
+  [diff]
   (let [printer (printer/puget-printer {})]
+    (with-out-str (-> diff
+                      (printer/format-doc printer)
+                      (printer/print-doc printer)))))
+
+(deftest print-doc-test
+  (testing "date"
     (is (= "-#inst \"2019-04-09T14:57:46.128-00:00\" +#inst \"2019-04-10T14:57:46.128-00:00\"\n"
-           (with-out-str (-> (diff/diff #inst "2019-04-09T14:57:46.128-00:00"
-                                        #inst "2019-04-10T14:57:46.128-00:00")
-                             (printer/format-doc printer)
-                             (printer/print-doc printer)))))))
+           (printed (diff/diff #inst "2019-04-09T14:57:46.128-00:00"
+                               #inst "2019-04-10T14:57:46.128-00:00")))))
+  (testing "uuid"
+    (is (= "-#uuid \"e41b325a-ce9d-4fdd-b51d-280d9c91314d\" +#uuid \"0400be9a-619f-4c6a-a735-6245e4955995\"\n"
+           (printed (diff/diff #uuid "e41b325a-ce9d-4fdd-b51d-280d9c91314d"
+                               #uuid "0400be9a-619f-4c6a-a735-6245e4955995"))))))