Commit df382de7 authored by pfdietz's avatar pfdietz

Add def-ppblock-test

parent 1ee4ee2b
......@@ -39,6 +39,13 @@
,form))
,expected-value))
(defmacro def-ppblock-test (name form expected-value &rest key-args)
`(def-pprint-test ,name
(with-output-to-string
(*standard-output*)
(pprint-logical-block (*standard-output* nil) ,form))
,expected-value
,@key-args))
;;; 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