Commit 82df4892 authored by pfdietz's avatar pfdietz

Another test of pprint-indent (with various floats as the indent parameter)

parent 4db53d8f
......@@ -40,6 +40,20 @@
(pprint-indent :block 0.1 s))))
nil)
(deftest pprint-indent.6
(my-with-standard-io-syntax
(let ((*print-pretty* nil))
(loop for x in '(1.0s0 1.0f0 1.0d0 1.0l0)
unless
(equal
(multiple-value-list
(with-open-stream (s (make-string-output-stream))
(pprint-indent :block x s)))
'(nil))
collect x)))
nil)
......
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