Commit e7d8605d authored by pfdietz's avatar pfdietz

Add error tests for set-pprint-dispatch

parent 72e1f77b
......@@ -246,5 +246,27 @@
program-error)
t)
(deftest set-pprint-dispatch.error.1
(signals-error (let ((*print-pprint-dispatch* (copy-pprint-dispatch nil)))
(set-pprint-dispatch))
program-error)
t)
(deftest set-pprint-dispatch.error.2
(signals-error (let ((*print-pprint-dispatch* (copy-pprint-dispatch nil)))
(set-pprint-dispatch t))
program-error)
t)
(deftest set-pprint-dispatch.error.3
(signals-error (let ((table (copy-pprint-dispatch nil)))
(set-pprint-dispatch t 'identity 0 table nil))
program-error)
t)
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