Commit 48b2bba3 authored by pfdietz's avatar pfdietz

Add tests for nil, t stream designators

parent f2cacaa4
......@@ -53,10 +53,22 @@
collect x)))
nil)
(deftest pprint-indent.7
(my-with-standard-io-syntax
(let ((*print-pretty* nil))
(with-open-stream (*standard-output* (make-broadcast-stream))
(pprint-indent :current 0 nil))))
nil)
(deftest pprint-indent.8
(my-with-standard-io-syntax
(let ((*print-pretty* nil))
(with-open-stream
(os (make-string-output-stream))
(with-open-stream
(is (make-string-input-stream ""))
(with-open-stream (*terminal-io* (make-two-way-stream is os))
(pprint-indent :current 0 t))))))
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