Skip to content
Snippets Groups Projects
Commit 990ebe84 authored by pfdietz's avatar pfdietz
Browse files

Added usual error tests for pprint-fill, pprint-linear

parent 6100caa6
No related branches found
No related tags found
No related merge requests found
......@@ -133,3 +133,22 @@
;;;
(def-pprint-fill-test pprint-fill.14 ((let ((x (list 'CL-USER::|A|))) (list x x)))
"(#1=(A) #1#)" :circle t)
;;; Error tests
(deftest pprint-fill.error.1
(signals-error (pprint-fill) program-error)
t)
(deftest pprint-fill.error.2
(signals-error (pprint-fill *standard-output*) program-error)
t)
(deftest pprint-fill.error.3
(signals-error (pprint-fill *standard-output* nil t t t) program-error)
t)
......@@ -127,3 +127,19 @@
;;;
(def-pprint-linear-test pprint-linear.14 ((let ((x (list 'CL-USER::|A|))) (list x x)))
"(#1=(A) #1#)" :circle t)
;;; Error tests
(deftest pprint-linear.error.1
(signals-error (pprint-linear) program-error)
t)
(deftest pprint-linear.error.2
(signals-error (pprint-linear *standard-output*) program-error)
t)
(deftest pprint-linear.error.3
(signals-error (pprint-linear *standard-output* nil t t t) program-error)
t)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment