Commit df382de7 authored by pfdietz's avatar pfdietz
Browse files

Add def-ppblock-test

parent 1ee4ee2b
......@@ -39,6 +39,13 @@
(defmacro def-ppblock-test (name form expected-value &rest key-args)
`(def-pprint-test ,name
(pprint-logical-block (*standard-output* nil) ,form))
;;; Function to test readable of printed forms, under random settings
;;; of various printer control variables.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment