yogsototh/humane-test-output
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Pretty print records with their type.

Browse source 
Issue #2.
This commit is contained in:
Paul Stadig 2015-02-21 09:02:48 -05:00
parent f1c2d98b01
commit fbe7cb90dd
1 changed files with 22 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/pjstadig/humane_test_output.clj
View file

@ -47,7 +47,28 @@
(print " + "))
(when b
(pp/pprint b)))
(print-expected actual)))))))))
(print-expected actual))))))
;; this code is just yanked from clojure.pprint
(defmethod pp/simple-dispatch clojure.lang.IRecord [arec]
(pp/pprint-logical-block
:prefix (str "#" (.getName (class arec)) "{") :suffix "}"
(pp/print-length-loop
[aseq (seq arec)]
(when aseq
(pp/pprint-logical-block
(pp/write-out (ffirst aseq))
(.write ^java.io.Writer *out* " ")
(pp/pprint-newline :linear)
;; [pjs] this is kind of ugly, but it is a private var :(
(.set #'pp/*current-length* 0) ; always print both parts of the [k v] pair
(pp/write-out (fnext (first aseq))))
(when (next aseq)
(.write ^java.io.Writer *out* ", ")
(pp/pprint-newline :linear)
(recur (next aseq)))))))
(prefer-method pp/simple-dispatch
clojure.lang.IRecord
clojure.lang.IPersistentMap))))
(defn activate! []
@activation-body)