252 |
;;; Error cases |
;;; Error cases |
253 |
|
|
254 |
(deftest pprint-logical-block.error.1 |
(deftest pprint-logical-block.error.1 |
255 |
(loop for x in *mini-universe* |
(check-type-error #'(lambda (x) |
256 |
for form = `(pprint-logical-block (*standard-output* '(1) :prefix ',x)) |
(pprint-logical-block (*standard-output* '(1) :prefix x))) |
257 |
unless (or (stringp x) |
#'stringp) |
|
(eq (eval `(signals-error ,form type-error)) t)) |
|
|
collect x) |
|
258 |
nil) |
nil) |
259 |
|
|
260 |
(deftest pprint-logical-block.error.1-unsafe |
(deftest pprint-logical-block.error.1-unsafe |
261 |
(loop for x in *mini-universe* |
(check-type-error #'(lambda (x) |
262 |
for form = `(pprint-logical-block (*standard-output* '(1) :prefix ',x)) |
(declare (optimize (safety 0))) |
263 |
unless (or (stringp x) |
(pprint-logical-block (*standard-output* '(1) :prefix x))) |
264 |
(eq (eval `(signals-error ,form type-error :safety 0)) t)) |
#'stringp) |
|
collect x) |
|
265 |
nil) |
nil) |
266 |
|
|
267 |
(deftest pprint-logical-block.error.2 |
(deftest pprint-logical-block.error.2 |
268 |
(loop for x in *mini-universe* |
(check-type-error #'(lambda (x) |
269 |
for form = `(pprint-logical-block (*standard-output* '(1) :suffix ',x)) |
(pprint-logical-block (*standard-output* '(1) :suffix x))) |
270 |
unless (or (stringp x) |
#'stringp) |
|
(eq (eval `(signals-error ,form type-error)) t)) |
|
|
collect x) |
|
271 |
nil) |
nil) |
272 |
|
|
273 |
(deftest pprint-logical-block.error.2-unsafe |
(deftest pprint-logical-block.error.2-unsafe |
274 |
(loop for x in *mini-universe* |
(check-type-error #'(lambda (x) |
275 |
for form = `(pprint-logical-block (*standard-output* '(1) :suffix ',x)) |
(declare (optimize (safety 0))) |
276 |
unless (or (stringp x) |
(pprint-logical-block (*standard-output* '(1) :suffix x))) |
277 |
(eq (eval `(signals-error ,form type-error :safety 0)) t)) |
#'stringp) |
|
collect x) |
|
278 |
nil) |
nil) |
279 |
|
|
280 |
(deftest pprint-logical-block.error.3 |
(deftest pprint-logical-block.error.3 |
281 |
(loop for x in *mini-universe* |
(check-type-error #'(lambda (x) |
282 |
for form = `(pprint-logical-block (*standard-output* '(1) :per-line-prefix ',x)) |
(pprint-logical-block (*standard-output* '(1) :per-line-prefix x))) |
283 |
unless (or (stringp x) |
#'stringp) |
|
(eq (eval `(signals-error ,form type-error)) t)) |
|
|
collect x) |
|
284 |
nil) |
nil) |
285 |
|
|
286 |
(deftest pprint-logical-block.error.3-unsafe |
(deftest pprint-logical-block.error.3-unsafe |
287 |
(loop for x in *mini-universe* |
(check-type-error #'(lambda (x) |
288 |
for form = `(pprint-logical-block (*standard-output* '(1) :per-line-prefix ',x)) |
(declare (optimize (safety 0))) |
289 |
unless (or (stringp x) |
(pprint-logical-block (*standard-output* '(1) :per-line-prefix x))) |
290 |
(eq (eval `(signals-error ,form type-error :safety 0)) t)) |
#'stringp) |
|
collect x) |
|
291 |
nil) |
nil) |
292 |
|
|
293 |
(deftest pprint-logical-block.error.4 |
(deftest pprint-logical-block.error.4 |